mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-03 18:29:53 +00:00
6 lines
272 B
QBasic
6 lines
272 B
QBasic
0REM~$?.(<$L+P+Z(g+n2qEnSd]T`B`2Z'K$?~8??5F?8?~S?Z5`?S?~L?PIIIL?~5IBPBSISIPPPPSVSVP]LdF]SSZFZ;S5I"~E(I$Q"S&P(P+!
|
|
1HGR2:HCOLOR=5:DEFFNP(X)=3*PEEK(2054+I+X)-99
|
|
2IFFNP(0)=3THENHCOLOR=1:I=I+1
|
|
3IFFNP(0)=279THENHPLOTFNP(1),FNP(2):I=I+3
|
|
4HPLOTTOFNP(0),FNP(1):I=I+2:IFFNP(0)GOTO2
|