dos33fsprogs/graphics/hgr/boxes/myst_tiny.bas

6 lines
279 B
QBasic
Raw Normal View History

0REM## 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")
1HGR2
2FORQ=0TO5:A(Q)=2*PEEK(2054+I+Q)-64:NEXT:P=0
3FORY=A(3)TOY+A(5):HCOLOR=(P*A(0)+NOTP*A(1))/2
4P=NOTP:HPLOTA(2),YTOA(2)+A(4),Y:NEXT:I=I+6:GOTO2