Smash

104 REM SMASH GLASS
105 F$ = "
107 POKEV,15:P0KE36877,200
109 FORI=1T016:PRINTMIDS(FS,I,1);:POKEV,16
111 P0 K E3 6 8 7 7 ,0
113 PARTITION
115 PRINT"10 :N: FOR J =1 T0 2 0 0 :NEXT:PRINT
117 GOSUB131
119 F=0:H=1:NEXTGAME
121 GOT0 173
122 REM SUB TO MOVE ARM
123 PRINT"OMORIPINJ"TABK19)
125 PRINTTAB(18)" : "U"
127 PRINTTAB(16)"3eNN P r N "
129 PRINTTAB(19)" S 1 1
131 PRINT"611410CAM"TAB<19)
135 PRINTTAB(16)
137 PRINTTAB<19>" : RETURN
139 E RETURN
141 IFF<OTHEN147
1403 REM TEST FOR SPACE BAR
145 GETKS:IFKS<>"
145 50 "THENFORJ=1T020:NEXT:RETURN
147 F=F-1:IFF=-11THENF=0:RETURN
149 IFF(-2THENPOKE36877,0:POKEV,0:60T0153
151 POKE36877,190:POKEV)15
152 REM CHECK IF HIT
153 P=PEEK<E-24-F>:IFR=1THENRETURN
155 IFP=AAORP=BBORP=CCTHENGOSUB161:R=1:RETURN
157 P O K E E - 2 4 - F , 1 1 9 : P O K E E - 2 4 - F 4 - 3 0 7 2 0 , 0 : P O K E E
159 RETURN
1 REM HIT
160
161 S C = S C 4 - 1 : F 0 R J = 1 1 0 2 1 0 S C : P O K E A 4
161 -3 F O R J = 1 1 0 2 * S C : P O K E A + 4 * B
-6 F a 41 ,3 2 :POK E8 0 9 8
35 * BFORZ1=1T05
167 P O K E V , 1 5 : F O R Z = 2 0 0 T 0 2 3 0 : P O K E S O , Z : N E X T : F O R Z = 2 3 0 T 0 2 0 0 S T E P
J , 3 2 :N,4E- X T
S 0 ,-3 02
J ,3 2 :N EXT
1 : PNEXTZ1
169 OK ESO,Z:N EXT:POK E
171 RETURN
172 REM PR IN T SCORE
173 PRINT"ASNYOU GOT"SC".1 OUT OF 6 "
175 IFSO=6THENPRINT"SMSHARPSHOOTER":PRINT"DO I TAKE I T YOU DON'TWANT A DRINK?"
177 FORI=IT08000:NEXT:H=1:IFSC=6THENBB=AA
179 IFSC=6ANDBB=AATHENCC=AA
181 6 0 1 0 5
182 REM INSTRUCTIONS
183 READXSIFXS="41"THENRETURN
185 FORI=ITOLEN<XS)
187 PRINT"AM"TAB(20)MIDS<XS,I,1>
189 PRINT"AMM"CHRS(20):F