ONELINER TEXTADVENTURE

[koelman28@zonnet.nl (Johan Koelman)]

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)