mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-16 23:20:43 +00:00
9c0fe0c223
wasn't sure it would fit, blinks a bit more than optimal
6 lines
281 B
QBasic
6 lines
281 B
QBasic
1HGR:DEFFNP(X)=7*PEEK(2185+I*5+X)-224
|
|
4HCOLOR=FNP(0)/7:FORY=FNP(3)TOFNP(4)-1:HPLOTFNP(1),YTOFNP(2)-1,Y:NEXTY:IFI=9THENHGR2
|
|
7P=NOTP:POKE49236+P,0:IFI<21THENI=I+1
|
|
8GOTO4
|
|
9"&-/*/&,0./'+,.0'.0/0'-.*,'./,-!,0(*!-/'(#./()#-0)*!,/')!-.&'!/0&'&-/*.&,../',./0'/0./'01,.',-+-'-.*+#./()#-0)*
|