mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-24 12:29:29 +00:00
8 lines
288 B
QBasic
8 lines
288 B
QBasic
|
2POKE232,20:POKE233,8
|
||
|
|
5REM!%%-...
|
||
|
|
6HGR2:ROT=0:Z=96
|
||
|
|
7FORJ=0TO7:HCOLOR=1:S=Z+12*J:POKE230,32+32*P:P=NOTP:POKE49236+P,0:CALL-3086
|
||
|
|
8S=S/2:Y=Z+S:HPLOT0,YTO279,Y:IFS>1THEN8
|
||
|
|
9HCOLOR=6:HPLOT0,ZTO133,80TO279,Z:HCOLOR=3:SCALE=2:DRAW1AT140+16*SIN(H),180:H=H+0.3
|
||
|
|
10SCALE=5:DRAW1AT140,120:NEXTJ:GOTO7
|