mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-16 23:20:43 +00:00
7 lines
260 B
QBasic
7 lines
260 B
QBasic
0REM~8)g)gX8X8)gX~82gN~8<gE~8Eg<~8Ng2~8Xg)~B3BN]N]3~I:IGVGV:~L=LDSDS=~N?NBQBQ?~D+D,N/N.O-Q.Q/[,Z+~D4D3N/N0O1Q0Q/[3Z4~M-N.~Q.R-~M1N0~Q0R1!
|
|
1HGR2:DEFFNP(X)=3*PEEK(2054+I+X)-99
|
|
2IFFNP(0)=279THENHPLOTFNP(1),FNP(2):I=I+3
|
|
3HPLOTTOFNP(0),FNP(1):I=I+2:IFFNP(0)GOTO2
|
|
|
|
|