mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-04 05:05:13 +00:00
6 lines
282 B
QBasic
6 lines
282 B
QBasic
|
1GR
|
||
|
|
2C=4*PEEK(2166+I)-192+(PEEK(2278+I/3)-35)/4^(I-INT(I/3)*3)
|
||
|
|
3FORX=XTOX+1:COLOR=C:PLOTX,I/8:C=C/16:NEXT:X=X*(X<15):I=I+1:GOTO2
|
||
|
|
4"RO^22RDYR[22000$O2200000^200A1$-R0@AjO102@?/MlAL0a1$AmCL0A30!jCi1a100JAl3A300@5iO@C00a1jo@aCC7.oj1AaaAIoNO0A5-mOV&S/#S####S#2#32#S&#_/#0&#S##2#S2#/&S
|
||
|
|
|