mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-16 23:20:43 +00:00
5 lines
281 B
QBasic
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
|