mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-10-24 23:25:28 +00:00
8 lines
291 B
QBasic
8 lines
291 B
QBasic
1GR
|
|
2FORI=0TO7:A(I)=PEEK(2185+I)-35:NEXT
|
|
3C=PEEK(2185+I)-35
|
|
4FORX=XTOX+1:COLOR=A(C-INT(C/8)*8):PLOTX,I/8:C=C/8:NEXT:X=X*(X<15):I=I+1:IFI<135THEN3
|
|
5END
|
|
6".+#'2*/(#,#34,-%+$345555,3455555$455>655+5=>HO654=A5RG@M5V65]H?M5>955H?E8V655R@E7>955=>EO=A55V6HG=VAAA6GH8>VV>MGLO5>>5HO+0O55HO,#+,,,,,#
|
|
|