dos33fsprogs/basic/appleiibot/target.bas

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