dos33fsprogs/basic/appleiibot/elite.bas

5 lines
279 B
QBasic

1HGR2:DEFFNP(X)=3*PEEK(2197+I+X)-99
2IFI=0ORI=39THENPOKE230,32+32*P:P=NOTP:POKE49236+P,0:CALL-3086
5IFFNP(0)=6THENHPLOTFNP(1),FNP(2):I=I+3
6HPLOTTOFNP(0),FNP(1):I=(I+2)*(I<94):GOTO2"#*:B6S6l;`ALB5@):#B9B>I?I8B9#L8L?T>T:L8#4-;8NEaNnPZ?L74-N5Y<kLnP#L7O6#Z?Y<#G=I9Q<NAG=#S=YBWFQCS=