dos33fsprogs/appleiibot/flyer.bas
2020-10-31 14:17:26 -04:00

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