10 GRAPHICS 7:SETCOLOR 2,0,0:POKE 752,1:? "CLOSEOUT!":GOSUB 209:GOSUB 112:Y1=181:GOTO C›20 IF X1=J THEN IF Y1>A AND Y1<=B OR Y1>C AND Y1<=D OR Y1>E AND Y1<=I THEN Y1=Y1-3:RETURN ›21 IF X1=L THEN IF Y1>A AND Y1<=E OR Y1>F AND Y1<=I THEN Y1=Y1-3:RETURN ›22 IF X1=K THEN IF Y1>A AND Y1<=G THEN Y1=Y1-3:RETURN ›23 RETURN ›30 IF X1=J THEN IF Y1>=A AND Y1<B OR Y1>=C AND Y1<D OR Y1>=E AND Y1<I THEN Y1=Y1+3:RETURN ›31 IF X1=K THEN IF Y1>=A AND Y1<G THEN Y1=Y1+3:RETURN ›32 IF X1=L THEN IF Y1>=A AND Y1<E OR Y1>=F AND Y1<I THEN Y1=Y1+3›33 RETURN ›37 IF Y5=I OR Y5=H OR Y5=G OR Y5=F OR Y5=E OR Y5=D OR Y5=C OR Y5=B OR Y5=A THEN GOSUB 42:RETURN ›41 RETURN ›42 Z=INT(RND(0)*3):IF Z=0 THEN IF Y5=I OR Y5=H OR Y5=G OR Y5=F OR Y5=D OR Y5=B THEN X9=0:Y9=-3:RETURN ›43 IF Z=1 THEN IF Y5=A OR Y5=C OR Y5=E OR Y5=F OR Y5=G OR Y5=H THEN X9=0:Y9=3:RETURN ›44 X9=4:Y9=0:RETURN ›55 IF Y5=I OR Y5=H OR Y5=G OR Y5=F OR Y5=E OR Y5=D OR Y5=C OR Y5=B OR Y5=A THEN GOSUB 57›56 RETURN ›57 IF Y5>Y1 THEN IF Y5=B OR Y5=C OR Y5=D OR Y5=E OR Y5=G OR Y5=H OR Y5=I THEN X9=0:Y9=-3:RETURN ›58 IF Y5<Y1 THEN IF Y5=A OR Y5=B OR Y5=C OR Y5=D OR Y5=F OR Y5=G OR Y5=H THEN X9=0:Y9=3:RETURN ›59 X9=-4:Y9=0:RETURN ›60 IF Y5=G OR Y5=F OR Y5=E OR Y5=D OR Y5=C OR Y5=B OR Y5=A THEN GOSUB 62›61 RETURN ›62 Z=INT(RND(0)*4):IF Z=0 THEN IF Y5=E OR Y5=F OR Y5=D OR Y5=C OR Y5=B OR Y5=A THEN X9=0:Y9=3:RETURN ›63 IF Z=1 THEN IF Y5=B OR Y5=C OR Y5=D OR Y5=E OR Y5=G OR Y5=F THEN X9=0:Y9=-3:RETURN ›64 IF Z=2 THEN X9=-4:Y9=0:RETURN ›65 X9=4:Y9=0:RETURN ›73 S=STICK(0):IF S=14 OR S=10 OR S=6 THEN GOSUB 20›74 IF S=13 OR S=9 OR S=5 THEN GOSUB 30›75 IF S=7 AND X1<L THEN IF Y1=A OR Y1=B OR Y1=C OR Y1=D OR Y1=E OR Y1=F OR Y1=G OR Y1=H OR Y1=I THEN X1=X1+4›76 IF S=11 AND X1>J THEN IF Y1=A OR Y1=B OR Y1=C OR Y1=D OR Y1=E OR Y1=F OR Y1=G OR Y1=H OR Y1=I THEN X1=X1-4›78 Q=X1-42:R=(Y1-25)/2:LOCATE Q,R,Z:IF Z=1 THEN COLOR 4:PLOT Q,R:T=T+1:T1=T1+1:? "SALE ITEMS=";:? T›79 IF T1>T2 THEN GOSUB 100›80 POKE 77,0:POKE M,X1:POKE N,Y1:SOUND 0,Y1,10,7:IF X2=J THEN Y5=Y2:X9=X7:Y9=Y7:GOSUB A:X7=X9:Y7=Y9›81 IF X2=K THEN Y5=Y2:X9=X7:Y9=Y7:GOSUB 60:X7=X9:Y7=Y9›82 IF X2=L THEN Y5=Y2:X9=X7:Y9=Y7:GOSUB B:X7=X9:Y7=Y9›84 X2=X2+X7:Y2=Y2+Y7:POKE M+1,X2:POKE N+1,Y2:IF X3=J THEN Y5=Y3:X9=X8:Y9=Y8:GOSUB A:X8=X9:Y8=Y9›85 IF X3=K THEN Y5=Y3:X9=X8:Y9=Y8:GOSUB 60:X8=X9:Y8=Y9›86 IF X3=L THEN Y5=Y3:X9=X8:Y9=Y8:GOSUB B:X8=X9:Y8=Y9›87 X3=X3+X8:Y3=Y3+Y8:POKE M+2,X3:POKE N+2,Y3:IF X4=J THEN Y5=Y4:X9=X6:Y9=Y6:GOSUB A:X6=X9:Y6=Y9›88 SOUND 0,0,0,0:IF X4=K THEN Y5=Y4:X9=X6:Y9=Y6:GOSUB 60:X6=X9:Y6=Y9›89 IF X4=L THEN Y5=Y4:X9=X6:Y9=Y6:GOSUB B:X6=X9:Y6=Y9›90 X4=X4+X6:Y4=Y4+Y6:POKE M+3,X4:POKE N+3,Y4:IF STRIG(0)=0 AND T>25 THEN IF Y1=Y2 OR Y1=Y3 OR Y1=Y4 THEN GOSUB H›93 IF Y1=Y2 AND 70>ABS(X1-X2) THEN U=X2-44:V=(Y2-31)/2:GOSUB E›94 IF Y1=Y3 AND 60>ABS(X1-X3) THEN U=X3-44:V=(Y3-31)/2:GOSUB E›95 IF Y1=Y4 AND 55>ABS(X1-X4) THEN U=X4-44:V=(Y4-31)/2:GOSUB E›96 IF PEEK(19)>A1 THEN GOSUB 105›97 GOTO C›100 SOUND 0,0,0,0:COLOR 1:SETCOLOR 0,C1,9›101 FOR Y=6 TO 79 STEP 9:FOR W=16 TO 148 STEP 4:PLOT W,Y:NEXT W:NEXT Y:T1=0:RETURN ›105 C1=INT(RND(0)*15):SETCOLOR 1,C1,8:COLOR 4:PLOT 0,V1:DRAWTO 3,V1:A1=A1+1:V1=V1+2:IF A1<>41 THEN RETURN ›106 IF T<T3 THEN GOSUB 112:RETURN ›107 ? "EXTRA 3.5 MIN":T3=T3+T4:? "NEXT BONUS AT ";:? T3:T4=T4+100›108 COLOR 2:FOR Y=0 TO 78 STEP 2:PLOT 0,Y:DRAWTO 3,Y:NEXT Y:A1=1:V1=0:POKE 19,0:POKE 20,0:RETURN ›109 SOUND 0,2,6,15:COLOR 2:PLOT U,V:DRAWTO Q,R:POKE M,1:POKE N,247:COLOR 4:PLOT U,V:DRAWTO Q,R›112 SOUND 0,0,0,0:GOSUB 216:GOSUB 100:? :? "GAME OVER, SALES FOUND=";:? T:T=0:? "To play-Press FIRE"›113 IF STRIG(0)<>0 THEN 113›114 ? "Extra TIME at 200":GOSUB 108:T=0:T3=200:T4=300:RETURN ›163 W=0:T=T-25:? "SALE ITEMS=";:? T:IF Y1=Y2 THEN U=X2-44:V=(Y2-31)/2:I1=M+1:J1=N+1:GOSUB I:Y2=Z:X2=L:RETURN ›164 IF Y1=Y3 THEN U=X3-44:V=(Y3-31)/2:I1=M+2:J1=N+2:GOSUB I:Y3=Z:X3=L:RETURN ›165 IF Y1=Y4 THEN U=X4-44:V=(Y4-31)/2:I1=M+3:J1=N+3:GOSUB I:Y4=Z:X4=L:RETURN ›181 SOUND 0,1,6,15:COLOR 1:PLOT Q,R:DRAWTO U,V:COLOR 4:PLOT Q,R:DRAWTO U,V:SOUND 0,0,0,0:POKE I1,1:POKE J1,247›189 Z=V*2+67:IF Z=A OR Z=B OR Z=C OR Z=D OR Z=E OR Z=F OR Z=I OR Z=G THEN GOSUB T2:RETURN ›190 V=3:GOTO 189›209 A=37:B=55:C=73:D=91:E=109:F=127:G=145:H=163:I=181:J=54:K=126:L=198:M=53248:N=1780:O=1784:P=704:T2=220›210 ? "Please wait":FOR Y=1536 TO 1706:READ Z:POKE Y,Z:NEXT Y:FOR Y=1774 TO 1787:POKE Y,0:NEXT Y:PM=PEEK(106)-32›211 PMBASE=256*PM:FOR Y=PMBASE+1023 TO PMBASE+2047:POKE Y,0:NEXT Y:FOR Y=PMBASE+1025 TO PMBASE+1032:READ Z›212 POKE Y,Z:NEXT Y:FOR Y=PMBASE+1281 TO PMBASE+1288:READ Z:POKE Y,Z:NEXT Y:FOR Y=PMBASE+1537 TO PMBASE+1544›213 READ Z:POKE Y,Z:NEXT Y:FOR Y=PMBASE+1793 TO PMBASE+1800:READ Z:POKE Y,Z:NEXT Y:POKE P+2,76:POKE P+3,204›214 POKE P,252:POKE P+1,140:POKE 559,62:POKE 623,1:POKE 1788,PM+4:POKE 53277,3:POKE 54279,PM:X=USR(1696)›215 POKE O,8:POKE O+1,8:POKE O+2,8:POKE O+3,8:RETURN ›216 X1=J:Y1=I:Y2=B:X2=62:Y3=E:X3=154:Y4=G:X4=122:X6=4:Y6=0:X7=-4:Y7=0:X8=-4:Y8=0›220 COLOR 3:SETCOLOR 2,15-C1,5:FOR Y=7 TO 79 STEP 9:PLOT 4,Y:DRAWTO 159,Y:NEXT Y›221 PLOT 4,0:DRAWTO 4,79:PLOT 159,0:DRAWTO 159,79:PLOT 149,79:DRAWTO 149,52:FOR Y=52 TO 79 STEP 3:PLOT 149,Y›222 DRAWTO 159,Y:NEXT Y:PLOT 14,79:DRAWTO 14,43:FOR Y=43 TO 79 STEP 3:PLOT 4,Y:DRAWTO 14,Y:NEXT Y:PLOT 149,43›223 DRAWTO 149,7:FOR Y=7 TO 43 STEP 3:PLOT 149,Y:DRAWTO 159,Y:NEXT Y:PLOT 14,7:DRAWTO 14,16:FOR Y=7 TO 16 STEP 3›224 PLOT 4,Y:DRAWTO 14,Y:NEXT Y:PLOT 77,7:DRAWTO 77,61:PLOT 87,7:DRAWTO 87,61:FOR Y=7 TO 61 STEP 3›225 PLOT 77,Y:DRAWTO 87,Y:NEXT Y:PLOT 14,25:DRAWTO 14,34:FOR Y=25 TO 34 STEP 3:PLOT 4,Y:DRAWTO 14,Y:NEXT Y:RETURN ›230 DATA 162,3,189,244,6,240,89,56,221,240,6,240,83,141,254,6,106,141,255,6,142,253,6,24,169,0,109,253,6,24,109›231 DATA 252,6,133,204,133,206,189,240,6,133,203,173,254,6,133,205,189,248,6,170,232,46,255,6,144,16,168,177,203›232 DATA 145,205,169,0,145,203,136,202,208,244,76,87,6,160,0,177,203,145,205,169,0,145,203,200,202,208,244,174›234 DATA 253,6,173,254,6,157,240,6,189,236,6,240,48,133,203,24,138,141,253,6,109,235,6,133,204,24,173,253,6,109›235 DATA 252,6,133,206,189,240,6,133,205,189,248,6,170,160,0,177,203,145,205,200,202,208,248,174,253,6,169,0,157›236 DATA 236,6,202,48,3,76,2,6,76,98,228,0,0,104,169,7,162,6,160,0,32,92,228,96,60,126,219,255,195,126,60,231›237 DATA 126,219,255,129,126,102,195,129,195,126,90,255,129,255,60,102,126,90,126,195,255,60,102,195›