mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-16 23:20:43 +00:00
5 lines
271 B
QBasic
5 lines
271 B
QBasic
0REM!,/')!-.&'!/0&'&-/*.&,../',./0'/0./'01,.',-+-'-.*+#./()#-0)*&-/*/&,0./'+,.0'.0/0'-.*,'./,-!,0(*!-/'(#./()#-0)*
|
|
1HGR:DEFFNP(X)=7*PEEK(2054+I*5+X)-224
|
|
2GOSUB4:HGR2:Z=10:GOSUB4
|
|
4FORI=ZTOZ+11:HCOLOR=FNP(0)/7:FORY=FNP(3)TOFNP(4)-1:HPLOTFNP(1),YTOFNP(2)-1,Y:NEXTY,I:RETURN
|