mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-01 01:06:33 +00:00
ba0794eeb0
based on image posted by onedreamergame
5 lines
279 B
QBasic
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=
|