mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-01 05:31:52 +00:00
6 lines
277 B
QBasic
6 lines
277 B
QBasic
0REM~/$5*>0E3O4P-R(V$["d"h$k&t$o+w)o1o:lChKdQ_V[YS]H`=`4^*Y2Y;V@S;Q7O4K3H9H4E0A-;-70939/4-.-*/$!
|
|
1HGR2:HCOLOR=6:DEFFNP(X)=3*PEEK(2054+I+X)-99
|
|
2IFFNP(0)=279THENHPLOTFNP(1),FNP(2):I=I+3
|
|
4HPLOTTOFNP(0),FNP(1):I=I+2:IFFNP(0)GOTO2
|
|
5HCOLOR=5:HPLOTRND(1)*279,RND(1)*192TO140,96:GOTO5
|