Re: ONELINER TEXTADVENTURE

["Peter Watson" <paw77@N_O_hotmail_S_P_A_M.com>]

I don't recognise the BASIC - what machine is it written for? Also, am I
right in saying that it is self-modifying code?
-- 
Peter Watson
-- Write to MSDOS disks on the Apple IIgs?
-- Impossible!  ;-)

"Johan Koelman" <koelman28@zonnet.nl> wrote in message
d684d53d.0406300312.589d576b@posting.google.com">news:d684d53d.0406300312.589d576b@posting.google.com...
> 1000 LET c$=CHR$ 13: DIM r$(10,4
> ): LET a$="You are in a room."+c
> $+"You see"+c$+"north: an open d
> oor"+c$+"south: an open door"+c$
> +"a book about timetravela timet
> ravelmachine": DIM p$(10,99): RE
> STORE 10: FOR f=1 TO 10: READ p$
> (f),r$(f): NEXT f: DATA a$( TO 3
> 5)+" locked door"+a$(67 TO 90),"
> ///0",a$( TO 46)+a$(67 TO 90),"0
> .//",a$( TO 67)+"a key","05//",a
> $( TO 67)+a$(91 TO ),"440/",p$(4
> ),"30//",a$( TO 55)+" locked doo
> r"+c$+"a key","2/02",p$(3),"0111
> ",p$(4),"1000","You broke timetr
> avelrules!","","You found an exi
> t","": LET p=1: FOR t=1 TO 8: CL
> S : PRINT p$(t)''t-(t>4)*5;":00"
> : INPUT r$(9): FOR x=1 TO 4: LET
>  t=t+(CODE r$(t,x)-47)*(r$(9,1)=
> "NSUR"(x)): NEXT x: LET t=t-1: N
> EXT t: PRINT p$(t)