mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-08 03:31:10 +00:00
9 lines
310 B
QBasic
9 lines
310 B
QBasic
0REM~*:B6S6l;`ALB5@):~B9B>I?I8B9~L8L?T>T:L8"~4-;8NEaNnPZ?L74-N5Y<kLnP~L7O6~Z?Y<~G=I9Q<NAG=~S=YBWFQCS=!
|
|
1HGR2:DEFFNP(X)=3*PEEK(2054+I+X)-99
|
|
2POKE230,32+32*P:P=NOTP:POKE49236+P,0:CALL-3086
|
|
3V=FNP(0):IFV=3THENI=I+1:GOTO2
|
|
4IFV=0THENI=0:GOTO2
|
|
5IFV=279THENHPLOTFNP(1),FNP(2):I=I+3
|
|
6HPLOTTOFNP(0),FNP(1):I=I+2
|
|
7GOTO3
|