mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-03 18:29:53 +00:00
3 lines
276 B
QBasic
3 lines
276 B
QBasic
0HGR2:REM## fM##f eM!& MfR!&fMeR$"n\9C 'fZM) z(0T' n*:U 'h%A% 'q =*% vM'0''t/+0''r3.*%! q?.%!?sY,%!x|:#% + (y!% &Q/% )~ %A '} x0")
|
|
2FORQ=0TO5:A(Q)=2*PEEK(2056+I+Q)-64:NEXT:P=0:FORY=A(3)TOY+A(5):HCOLOR=(P*A(0)+NOTP*A(1))/2:P=NOTP:HPLOTA(2),YTOA(2)+A(4),Y:NEXT:I=I+6:GOTO2
|