mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-09 07:29:32 +00:00
6 lines
290 B
QBasic
6 lines
290 B
QBasic
0REM&-/*/&,0./'+,.0'.0/0'-.*,'./,-!,0(*!-/'(#./()#-0)*!,/')!-.&'!/0&'&-/*.&,../',./0'/0./'01,.',-+-'-.*+#./()#-0)*
|
|
1HGR:DEFFNP(X)=7*PEEK(2054+I*5+X)-224
|
|
4FORI=0TO21:HCOLOR=FNP(0)/7:IFI=10THENHGR2
|
|
5FORY=FNP(3)TOFNP(4)-1:HPLOTFNP(1),YTOFNP(2)-1,Y:NEXTY,I
|
|
6P=NOTP:P=SQR(3):POKE49236+P,0:GOTO6
|