mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-03 18:29:53 +00:00
5 lines
281 B
QBasic
5 lines
281 B
QBasic
0REM$"E"G #D#F$&A(B &A,= 16(B/(),=/>?,= 4422!4444-4411&((,=&>>,=!4433 4444')),='??,=!4422 4433 4433 4433 4433
|
|
1GR:?" 00000","LEVEL 1","MANS:3":DEFFNP(X)=PEEK(2054+I*5+X)-32
|
|
2FORI=0TO18:COLOR=FNP(0):FORY=FNP(3)TOFNP(4):HLINFNP(1),FNP(2)ATY:IFI=17THEN?,"SECRET COLLECT":I=4
|
|
3NEXTY,I
|