dos33fsprogs/basic/appleiibot/mystery.bas

5 lines
281 B
QBasic

1HGR:DEFFNP(X)=3*PEEK(2080+I+X)-99:REM"!!~!~T!T!!"&!&L1Q1$+!"1Q`Q`$1$"Y!`$z,zT"1LSLhT"R$R616"1<`<R6"R<RL"=DHDFGHIHMGN?N>J@H=D"HDLEMGMHKJHJHIJIJFGE
2IFFNP(0)=3THENHPLOTFNP(1),FNP(2):I=I+3
3HPLOTTOFNP(0),FNP(1):I=I+2:IFI<108GOTO2
4?"YOU ARE IN THE KITCHEN",,"THERE IS A REFRIGERATOR