5 HGR:HCOLOR=7:GOSUB 120:HGR2:O=1:GOSUB 120:P=1
10 POKE230,32+32*P:P=NOTP:POKE49236+P,0:?CHR$(7):GOTO10
99 END
'100 HPLOT 0,78 TO 136,78 TO 0,114
'110 HPLOT 279,78 TO 144,78 TO 279,114
120 FOR X=0 TO 40
130 Y2=2*O+256-(X*4):IF Y2>191 THEN Y2=191
140 HPLOT 2*O+4+X*4,O+112-X*2 TO 2*O+4+X*4,Y2
'150 HPLOT 276-X*12,1.5*O+112-X*3 TO 276-X*12,Y2
160 NEXT:RETURN