90 POKE 53278,HITCLR:GRAPHICS 5:SETCOLOR 2,3,3:SETCOLOR 4,8,4:? "PLEASE WAIT!":GOSUB 1000 91 COLOR 1:PLOT 35,39:PLOT 37,39:PLOT 39,39 92 PLOT 37,38 99 COLOR 2:PLOT 75,39:DRAWTO 75,26:PLOT 79,25:DRAWTO 73,27:PLOT 79,39:DRAWTO 79,25 100 PLOT 78,39:DRAWTO 78,26:PLOT 77,39:DRAWTO 77,27:PLOT 76,39:DRAWTO 76,27 101 Q=6:MEN=3:D9=3:A1=1:SC=0:FY=0 102 B2=0:D1=0:C0=0 103 PRINT :? :? :? "SCORE=";SC:FOR I=1 TO 899:NEXT I 104 PRINT :? "HOUSE{9 SPACES}NAILS{12 SPACES}STORE":? 105 COLOR 1:PLOT 9,5:DRAWTO 9,7:PLOT 8,6:PLOT 10,4:DRAWTO 10,8:PLOT 11,4:DRAWTO 11,8:PLOT 12,5:DRAWTO 12,7 106 PLOT 13,6 120 PRINT "ROUND";A1;"{20 SPACES}TRADE=";D9 125 POKE PLY,169:POKE PLL,24 126 POKE PLY+1,15:POKE PLL+1,9:POKE PLX+1,150 127 POKE PLL+2,9:POKE PLL+3,13:POKE PLY+2,15:POKE PLY+3,15:POKE PLX+2,170:POKE PLX+3,70 134 Z=10:A=10:B=10:DRAW=1 136 I=200:GOTO 148 143 A=A+Q+2:IF A>220 THEN A=5:R=RND(1)*200:POKE PLX+2,R:IF R<45 THEN R=170:POKE PLX+2,R 144 B=B+4:IF B>220 THEN B=5:R=RND(1)*200:POKE PLX+3,R:IF R<45 THEN R=100:POKE PLX+3,R 145 Z=Z+Q:IF Z>220 THEN Z=5:R=RND(1)*200:POKE PLX+1,R:IF R<45 THEN R=70:POKE PLX+1,R 146 IF JP<>0 THEN 800 147 IF STRIG(0)=0 THEN JP=1:GOTO 800 148 IF STICK(0)=15 THEN 152 149 IF STICK(0)=7 THEN I=I+3:IF I>200 THEN I=200 150 IF STICK(0)=11 THEN I=I-3:IF I<44 THEN I=44 151 POKE 77,0 152 POKE PLY+1,Z:POKE PLY+2,A:POKE PLY+3,B:POKE PLX,I:SOUND 0,Z,14,2 170 IF PEEK(53261)=1 THEN 300 171 IF 1<126 AND I>102 AND PEEK(53252)>0 THEN 300 172 IF PEEK(53262)=1 THEN 300 174 IF PEEK(53263)=1 THEN 500 175 POKE 53278,HITCLR 176 IF D1=D9 AND I>180 THEN D1=0:SOUND 2,60,10,8:FOR C1=1 TO 200:NEXT C1:S0UND 2,0,0,0:B1=B1+1 177 IF B1>0 AND I<50 THEN GOSUB 600 185 POKE PDR,DRAW 190 IF STICK(0)=15 THEN 205 195 DRAW=DRAW+24:IF DRAW>73 THEN DRAW=1 205 GOTO 143 300 Z=5:D=0:JP=0:SOUND 3,0,0,0:EX=0 302 FOR U=100 TO 200 STEP 10:SOUND 0,I,0,15:NEXT U 306 POKE PLY+1,Z:POKE PLY+2,Z:POKE PLY+3,Z 307 POKE PLX,200:MEN=MEN-1:D1=0:B1=0:POKE PLX+1,R:FOR S=1 TO 200:NEXT S:SOUND 0,0,0,0 325 POKE 53278,HITCLR:IF MEN=0 THEN 327 326 GOTO 125 327 ? :? "SCORE="; SC 328 PRINT "GAME OVER{3 SPACES}TO PLAY AGAIN PRESS FIRE" 330 COLOR 0 331 PLOT 3,39:DRAWTO 3,33 332 PLOT 0,35:DRAWTO 8,30 333 PLOT 8,30:DRAWTO 15,35 334 PLOT 12,33:DRAWTO 12,39 348 IF STRIG (0)=0 THEN 99 349 GOTO 348 500 D1=D1+1:IF D1>D9 THEN D1=D9 501 B=5:FOR C=1 TO D1:FOR Y=15 TO 0 STEP -1:SOUND 2,9,10,Y:NEXT Y:NEXT C 502 SC=SC+10:IF FY=0 AND SC>100 THEN MEN=MEN+1:FY=1:? "{BELL}" 505 R=RND(1)*190:IF R<45 THEN 505 506 POKE PLY+3,B:FOR S=1 TO 20:NEXT S:POKE PLX+3,R:SOUND 0,0,0,0:POKE 53278,HITCLR:GOTO 143 600 COLOR 2:B2=B2+B1:B1=0:FOR R1=1 TO 20:SOUND 3,170,6,10:FOR J=1 TO 3:NEXT J:SOUND 3,0,0,0:FOR J=1 TO 5:NEXT J 601 NEXT R1 602 IF B2>0 THEN PLOT 3,39:DRAWTO 3,33 603 IF B2>1 THEN PLOT 0,35:DRAWTO 8,30 604 IF B2>2 THEN PLOT 8,30:DRAWTO 15,35 605 IF B2>3 THEN PLOT 12,33:DRAWTO 12,39:COLOR 0:FOR DE=1 TO 100:NEXT DE:GOTO 611 610 SC=SC+10:RETURN 611 IF C0=0 THEN A1=A1+1:Q=Q+2:D9=D9+1:C0=1:GOTO 602 612 SC=SC+50:GOTO 102 800 POKE PLY,PEEK(PLY)-3*JP:IF PEEK(PLY)<150 THEN JP=-JP 805 SOUND 3,PEEK(PLY)-100,10,10 806 DRAW=2 810 IF D<>0 OR EX=1 THEN 815 811 IF STICK(0)<>7 AND STICK(0)<>11 THEN EX=1 812 IF STICK(0)=11 THEN D=-3 813 IF STICK(0)=7 THEN D=+3 815 I=I+D: IF I>200 THEN I=200 816 IF I<44 THEN I=44 817 IF PEEK(PLY)=169 THEN JP=0:SDUND 3,0,0,0:D=0:EX=0 820 GOTO 151 1000 FOR 1=1536 TO 1706:READ A:PDKE I,A:NEXT I 1020 FOR 1=1774 TO 1787:POKE I,0:NEXT I 1030 PM=PEEK(106)-16:PMBASE=256*PM 1040 FOR I=PMBASE+1023 TO PMBASE+2047:POKEI,0:NEXT I:DRWBAS=PMBASE+1 1055 FOR J=0 TO 3 1065 FOR K=DRWBAS+J*24 TO DRWBAS+J*24+23:READ X:POKE K,X:NEXT K:NEXT J 1066 RESTORE 3050 1067 FOR I=PMBASE+1281 TO PMBASE+1289:READA:POKE I,A:NEXT I 1068 RESTORE 3050 1069 FOR I=PMBASE+1537 TO PMBASE+1545:READA:POKE I,A:NEX0 1 1070 RESTORE 3060 1072 FOR I=PMBASE+1793 TO PMBASE+1805:READA:POKE I,A:NEXT I 1075 POKE 704,223:POKE 705,73 1076 POKE 706,44:POKE 707,200 1080 PLX=53248:PLY=1780:PLL=1784 1090 POKE 559,62:POKE 623,4:POKE 1788,PM+4:POKE 53277,3:POKE 54279,PM 1091 POKE 53256,1 1095 PDR=1772:POKE 1771,PM 1100 X=USR(1696) 1110 RETURN 2000 REM 2010 DATA 162,3,189,244,6,240,89,56,221,240,6,240,83,141,254,6,106,141 2020 DATA 255,6,142,253,6,24,169,0,109,253,6,24,109,252,6,133,204,133 2030 DATA 206,189,240,6,133,203,173,254,6,133,205,189,248,6,170,232,46,255 2040 DATA 6,144,16,168,177,203,145,205,169,0,145,203,136,202,208,244,76,87 2050 DATA 6,160,0,177,203,145,205,169,0,145,203,200,202,208,244,174,253,6 2060 DATA 173,254,6,157,240,6,189,236,6,240,48,133,203,24,138,141,253,6 2070 DATA 109,235,6,133,204,24,173,253,6,109,252,6,133,206,189,240,6,133 2080 DATA 205,189,248,6,170,160,0,177,203,145,205,200,202,208,248,174,253,6 2090 DATA 169,0,157,236,6,202,48,3,76,2,6,76,98,228,0,0,104,169 2100 DATA 7,162,6,160,0,32,92,228,96 3005 REM 3015 DATA 0,12,12,30,0,12,12,0,12,14,30,45,13,13,12,28,28,20,52,34,34,34,102,0 3025 DATA 0,12,12,30,0,12,12,0,12,14,14,13,26,4,8,12,12,28,24,28,24,20,18,50,0 3035 DATA 0,12,12,30,0,12 12,0,12,14,10,14,30,12,8,12,28,28,8,12,12,8,24,0 3045 DATA 0,12,12,30,0,12,12,0,12,12,12,10,6,30,12,12,12,12,20,20,18,50,6,0 3050 DATA 126,195,195,126,24,153,90,62,24 3060 DATA 16,124,214,211,208,112,28,22,19,147,214,124,16