mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-01 01:06:33 +00:00
4 lines
280 B
QBasic
4 lines
280 B
QBasic
0REM##JJR*((*+*((.?*++(+***->*33'9*<<'=%,0(+%+1-A%49'A%=B'>#06:@)15;?#14AC&11AA&00BB#+,:A%++<<(,,?A(**EN(*/CC(49CC(99JN#=@<>%@@==+=?>>(=?<<(>@;;':::=';<990<<::
|
|
1GR:POKE49234,0:DEFFNP(X)=PEEK(2054+I*5+X)-35:FORI=0TO30:COLOR=FNP(0):FORY=FNP(3)TOFNP(4):HLINFNP(1),FNP(2)ATY:NEXTY,I
|
|
|