10 REM  "BUMPER" 
12 REM  PER JEMT] 28 JUNI 
14 REM  SOMMARLOVET 1982 
22 ; CHR$(12)CUR(8,10)"PER JEMT] 1982 (C) "CUR(7,15)'"BUMPER"'
24 ; CUR(10,6)'TRYCK P] "RETURN" F\R START!!'; : GET A$ : GET A$ : IF A$<>CHR$(13) 22 ELSE 26
26 RANDOMIZE : F%=2% : R1%=0% : O%=200% : Y%=0% : [%=1% : L=0 : Z%=0%
28 I%=194% : E%=INT(RND*18%)+3% : E1%=INT(RND*30%)+6% : I1%=32% : I2%=I1% : I3%=I2% : I4%=I3%
30 ; CHR$(12%) : FOR T%=0% TO 23% : ; : ; CHR$(17%); : NEXT T%
32 A$="# # # # # # # # # # # # # # # # # # "
34 K%=0% : N%=1% : N2%=4% : N3%=34% : N5%=19% : N4%=3% : M4%=1% : M5%=0% : N1%=2% : M%=1% : M1%=0% : M2%=1% : M3%=0%
36 A9%=2 : P9%=0 : K1%=0% : V%=600% : K2%=0% : H1%=0% : H%=0% : Q%=0% : Q1%=5% : Q2%=Q% : Q3%=Q1% : Q4%=Q2% : Q5%=Q3%
38 P8%=0% : P7%=0% : \%=0% : A%=2% : R%=1% : B%=4% : W%=13% : W1%=30% : G$=CHR$(135%) : G1$=CHR$(19%)
40 ; CUR(N%,N1%+1%)"pp"CUR(N%+1%,N1%)",?o,"CUR(N%+2%,N1%+1%)"9f"CUR(N%+3%,N1%)"*pp%"CUR(B%,A%)"n$"
42 IF P8%=0% ; CUR(9%,4%)STRING$(35%,35%)
44 IF R1%=1% ; CUR(B%+1%,A%)"j'#" ELSE ; CUR(B%+1%,A%-1%)"(k)"
46 ; CUR(N2%,N3%+1)"pp"CUR(N2%+1,N3%)",?o,"CUR(N2%+2%,N3%+1%)"9f"CUR(N2%+3%,N3%)"*pp%" : IF R%=1% ; CUR(B%+2%,A%)"uu"
48 IF L>10000 AND L<11000 L=L+1000 : T5%=100% : GOTO 212
50 IF L<21000 AND L>20000 L=L+1000 : W%=1% : GOTO 212 ELSE IF L<31000 AND L>30000 L=L+1000 : T5%=20% : GOTO 212
52 ; CUR(N4%,N5%+1)"pp"CUR(N4%+1,N5%)",?o,"CUR(N4%+2,N5%+1%)"9f"CUR(N4%+3,N5%)"*pp%" : IF R%=2 ; CUR(B%+2,A%-1)"`u5"
54 IF (D%=141% AND S%=0%) AND (A%<30% AND R1%=1%) S%=1% : G%=B%+1% : G1%=A%
56 ; CUR(9%,1%)"7#7" : IF R1%=1% ; CUR(B%+1%,A%+1%)"?#"
58 ; CUR(19%,1%)"7#5"CUR(20%,1%)"7#5"CUR(21%,1%)"7#5"CUR(10%,1%)"7#5"CUR(11%,1%)"7#5"CUR(12%,1%)"7#5"
62 ; CUR(13%,1%)"7#5"CUR(14%,1%)"7#5"CUR(15%,1%)"7#5"CUR(16%,1%)"7#7"CUR(17%,1%)"7#5"CUR(18%,1%)"7#5"
64 IF S%=1% ; CUR(G%,G1%)"  " : G1%=G1%+4% : IF G1%>30% GOSUB 176
66 IF P7%=0% ; CUR(22%,1%)STRING$(39%,35%);
68 O%=O%-1% : IF O%<0% S%=0% : R1%=0% : \%=0%
70 IF P9%=0% ; CUR(16%,4%)STRING$(35%,35%) ELSE A$=RIGHT$(A$,LEN(A$))+LEFT$(A$,LEN(A$)-1%) : ; CUR(16%,4%)A$
72 IF P8%=1% ; CUR(9%,4%)A$ ELSE IF L>30000 P8%=1%
74 IF P7%=1% ; CUR(22%,4%)A$; ELSE IF L>20000 P7%=1%
76 IF (B%=N%+1 OR B%=N%+2) AND (A%=N1% OR A%=N1%+1% OR A%=N1%+3 OR A%=N1%+2) GOSUB 166 ELSE IF [%=5 ; CUR(8,30)"jS5"
78 IF (B%=6% AND A%=28% AND \%=0%) FOR T%=1% TO 250% : OUT 6%,135% : GOSUB 204 : NEXT T% : \%=1% : O%=200% : [%=[%+1%
80 IF [%=1 ; CUR(8,30)"jB5" ELSE IF [%=2 ; CUR(8,30)"jO5" ELSE IF [%=3 ; CUR(8,30)"jN5" ELSE IF [%=4 ; CUR(8,30)"jU5"
82 IF L>10000 AND A9%=2% AND B%=6% A9%=3% : GOSUB 194 : P9%=1% ELSE IF B%<>6% A9%=2%
84 IF (B%=N2%+1% OR B%=N2%+2%) AND (A%=N3% OR A%=N3%+1% OR A%=N3%+3% OR A%=N3%+2%) GOSUB 166
86 POKE 32113,I%,I1%,I2%,I3%,I4% : IF [%=2 I1%=207 ELSE IF [%=3 I2%=206% ELSE IF [%=4% I3%=213% ELSE IF [%=5% I4%=211
88 IF I4%=211 IF B%=19 AND A%>29% ; CUR(18%,20%)SPACE$(19); : Z%=0 : V%=V%+300% : GOSUB 184 : B%=6% : A%=2% : Y%=Y%-1%
90 IF [%=6% [%=1% ELSE IF (B%=N4%+1% OR B%=N4%+2%) AND (A%=N5% OR A%=N5%+1% OR A%=N5%+3% OR A%=N5%+2%) GOSUB 166
92 ; CUR(N%,N1%+1%)"  "CUR(N%+1%,N1%)"    "CUR(N%+2%,N1%+1%)"  "CUR(N%+3%,N1%)"    "
94 ; CUR(N2%,N3%+1%)"  "CUR(N2%+1%,N3%)"    "CUR(N2%+2%,N3%+1%)"  "CUR(N2%+3%,N3%)"    "
96 IF R1%=1% OUT 6%,89% : O%=O%-1% : IF O%<0% S%=0% : R1%=0% : ; CUR(B%+1%,A%)"      "
98 ; CUR(N4%,N5%+1%)"  "CUR(N4%+1%,N5%)"    "CUR(N4%+2%,N5%+1%)"  "CUR(N4%+3%,N5%)"    "
100 IF R1%<>1% ; CUR(W%,W1%)"?#!" : IF B%=W% AND A%+1%=W1% AND Z%<4% R1%=1% : O%=150% : ; CUR(W%,W1%)"   " : Z%=Z%+1%
102 ; CUR(0%,12%)"PER JEMT] 29/6 1982"G1$ : IF M%=0% N%=N%+1% ELSE N%=N%-1%
104 IF S%=1% IF (G%=N%+2% OR G%=N%+3% OR G%=N%+3%) AND (G1%=N1% OR G1%=N1%+1% OR G1%=N1%+2% OR G1%=N1%+3%) GOSUB 178
106 IF S%=1 IF (G%=N2%+2 OR G%=N2%+3 OR G%=N2%+3%) AND (G1%=N3% OR G1%=N3%+1% OR G1%=N3%+2% OR G1%=N3%+3%) GOSUB 180
108 IF S%=1 IF (G%=N4%+2 OR G%=N4%+3 OR G%=N4%+3%) AND (G1%=N5% OR G1%=N5%+1 OR G1%=N5%+2% OR G1%=N5%+3%) GOSUB 182
110 ; CUR(0%,0%)"PTS"L : ; CUR(23%,0%)"BONUS TIME:"V%"  "; : IF M1%=1% AND H%=0% N1%=N1%-1% ELSE N1%=N1%+1%
112 IF N%=Q% M%=0% ELSE IF N%=Q1% M%=1%
114 V%=V%-1% : IF V%<0% 170 ELSE IF N1%<E% M1%=0% ELSE IF N1%>E1% M1%=1%
116 IF M2%=0% N2%=N2%+1% ELSE N2%=N2%-1%
118 IF M3%=1% AND H1%=0% N3%=N3%-1% ELSE N3%=N3%+1%
120 ; CUR(B%,A%)"  "CUR(B%+1%,A%-1%)"     "CUR(B%+2%,A%-1%)"   " : IF S%=1% ; CUR(G%,G1%)"##" : IF R1%=1% OUT 6%,155%
122 IF N2%=Q2% M2%=0% ELSE IF N2%=Q3% M2%=1%
124 IF N3%<2% M3%=0% ELSE IF N3%>35% M3%=1%
126 IF M4%=0% N4%=N4%+1% ELSE N4%=N4%-1%
128 IF M5%=1% N5%=N5%-1% ELSE N5%=N5%+1%
130 IF N4%=Q4% M4%=0% ELSE IF N4%=Q5% M4%=1%
132 IF N5%<2% M5%=0% ELSE IF N5%>35% M5%=1%
134 D%=INP(56%) : IF D%=193% AND (B%=19% OR B%=6% OR B%=13%) A%=A%-3% : R%=2%
136 IF D%=211% AND (B%=19% OR B%=6% OR B%=13%) A%=A%+3% : R%=1%
138 IF B%=13% AND P9%=1% AND A%>2% A%=A%+1% : R%=1% : OUT 6%,437%
140 IF B%=6% AND P8%=1% AND A%>2% A%=A%+1% : R%=1% : OUT 6%,437%
142 IF B%=19% AND P7%=1% AND A%>2% A%=A%-1% : R%=1% : OUT 6%,437%
144 IF A%>31% A%=31% ELSE IF A%<2% A%=2%
146 IF (D%=215% AND A%<4%) B%=B%-1%
148 IF (D%=218% AND A%<4% AND \%=1%) B%=B%+1%
150 IF B%<6% B%=6% ELSE IF B%>19% B%=19%
152 IF K%=0% AND (B%>6%) AND N1%>15% AND N1%<21% H%=1% : N%=N%+1% : IF N%>15% GOSUB 160 ELSE 152
154 IF K1%=0% AND (B%>6%) AND N3%=19% H1%=1% : N2%=N2%+1% : IF N2%>15% GOSUB 162 ELSE 154
156 IF K2%=0% AND (B%>15%) AND N3%>18% AND N3%<20% H1%=1% : N1%=19% : N2%=N2%+1% : IF N2%>15% GOSUB 164 ELSE 156
158 OUT 6%,121% : GOTO 40
160 H%=0% : K%=1% : N%=10% : N1%=12% : M%=1% : M1%=0% : Q%=8% : Q1%=12% : RETURN 
162 H1%=0% : K1%=1% : N2%=10% : N3%=19% : M2%=1% : M3%=0% : Q2%=8% : Q3%=12% : RETURN 
164 H1%=0% : K2%=1% : N3%=33% : N2%=19% : M2%=1% : M3%=0% : Q2%=16% : Q3%=18% : RETURN 
166 FOR T%=1 TO 1300 : OUT 6%,131%,6%,3%,6%,89% : NEXT T% : Y%=Y%+1% : IF Y%>2% 170 ELSE OUT 6%,0% : ; CUR(B%,A%)"  "
168 ; CUR(B%+1%,A%-1%)"      "CUR(B%+2%,A%)"   " : GOSUB 192 : GOTO 34
170 FOR T=1 TO 3000 : NEXT T : OUT 6,0
172 ; CHR$(12%)CUR(10%,16%)'"BUMPER"' : ; CUR(12%,10%)"DU FICK "L" PO[NG!!"
174 ; CUR(14%,10%)"VILL DU SPELA MER??"; : INPUT A$ : IF A$="N" CHAIN "MENY.1" ELSE 12
176 S%=0% : ; CUR(G%,G1%)"   " : G%=30% : G1%=1% : RETURN 
178 FOR T%=1% TO 222% : OUT 6%,155%,6%,121%,6%,255% : NEXT T% : V%=V%+25% : L=L+(A%*20%) : RETURN 
180 FOR T%=1% TO 222% : OUT 6%,137%,6%,121%,6%,45% : NEXT T% : V%=V%+25% : L=L+(A%*15%) : RETURN 
182 FOR T%=1% TO 222% : OUT 6%,437%,6%,131%,6%,221% : NEXT T% : V%=V%+25% : L=L+(A%*20%) : RETURN 
184 FOR T%=1% TO 777% : G=G+0 : OUT 6%,89%,6%,251%,6%,211% : NEXT T% : GOSUB 190 : GOSUB 192
186 FOR T%=1% TO 1200% : G=G+0 : OUT 6%,89%,6%,1%,6%,211% : NEXT T% : FOR T%=1% TO 1500% : OUT 6%,7%,6%,3%,6%,43%
188 NEXT T% : L=L+2000 : RETURN 
190 I%=194% : I1%=32% : I2%=I1% : I3%=I2% : I4%=32% : [%=1% : RETURN 
192 ; CUR(B%,A%)"  "CUR(B%+1%,A%-1%)"     "CUR(B%+2%,A%-1%)"   "
194 ; CUR(N%,N1%+1%)"  "CUR(N%+1%,N1%)"    "CUR(N%+2%,N1%+1%)"  "CUR(N%+3%,N1%)"    "
196 ; CUR(N2%,N3%+1%)"  "CUR(N2%+1%,N3%)"    "CUR(N2%+2%,N3%+1%)"  "CUR(N2%+3%,N3%)"    "
198 ; CUR(N4%,N5%+1%)"  "CUR(N4%+1%,N5%)"    "CUR(N4%+2%,N5%+1%)"  "CUR(N4%+3%,N5%)"    " : IF B%<>6% RETURN 
200 K%=0% : N%=1% : N2%=4% : N3%=34% : N5%=19% : N4%=3% : M4%=1% : M5%=0% : N1%=2% : M%=1% : M1%=0% : M2%=1% : M3%=0%
202 K1%=0% : K2%=0% : H1%=0% : H%=0% : Q%=0% : Q1%=5% : Q2%=Q% : Q3%=Q1% : Q4%=Q2% : Q5%=Q3% : RETURN 
204 ; CUR(0%,0%)"PTS"L : OUT 6%,87% : L=L+2 : RETURN 
212 ; CHR$(12%) : FOR E%=0% TO 23% : ; : ; CHR$(18%); : NEXT E%
214 A$="ppp/ppp/ppp/ppp/ppp/ppp/ppp/ppp/" : A1$="###|###|###|###|###|###|###|###|"
216 A%=20% : Y1%=0% : Q%=33% : Q1%=Q%-10% : Q2%=Q1%-10% : F%=2% : B%=3% : IF W%=1% GOSUB 282
218 OUT 6%,121% : ; CUR(A%,B%)" n$"CUR(A%+1%,B%)"(k)"CUR(A%+2%,B%)" uu"
220 ; CUR(10%,7%)A1$CUR(11%,7%)A$
222 A$=RIGHT$(A$,LEN(A$))+LEFT$(A$,LEN(A$)-1%) : A1$=RIGHT$(A1$,2%)+LEFT$(A1$,1%)
224 ; CUR(11%,1%)"##7#k/"CUR(12%,3%)"7#k"CUR(13%,3%)"7#k"CUR(14%,3%)"7#k"CUR(15%,3%)"7#k"CUR(10%,6%)"|"
226 ; CUR(6%,32%)"7#k"CUR(5%,32%)"7#k"CUR(4%,32%)"7#k"CUR(3%,31%)"#7#k###"CUR(7%,32%)"7#k"
228 ; CUR(8%,32%)"7#k" : POKE 31900,66%+128,207,206,213,211
230 ; CUR(16%,3%)"7#k"CUR(17%,3%)"7#k"CUR(18%,3%)"7#k"CUR(19%,3%)"7#k"
232 FOR T5=1 TO T5% : NEXT T5
234 ; CUR(A%,B%)"   "CUR(A%+1%,B%)"   "CUR(A%+2%,B%)"   "
236 D%=INP(56%) : IF D%=193% AND (A%=7% OR A%=20%) B%=B%-2%
238 IF D%=141% AND F%=2% A1%=0% : F%=1%
240 IF F%=1% A%=A%-1% : A1%=A1%+1% : IF A1%=3% F%=0% : A1%=0%
242 IF F%=0% A%=A%+1% : A1%=A1%+1% : IF A1%=3% F%=2%
244 ; CUR(9%,Q%)" (~}$ "CUR(9%,Q1%)" (~}$ "CUR(9%,Q2%)" (~}$ " : Q%=Q%-1% : Q1%=Q1%-1% : Q2%=Q2%-1%
246 IF Q%=5% GOSUB 284 : Q%=34% ELSE IF Q1%=5% GOSUB 284 : Q1%=34% ELSE IF Q2%=5% GOSUB 284 : Q2%=34%
248 IF B%<3% B%=3% ELSE IF B%>33% B%=33% ELSE IF A%=7% AND B%>6% AND Y1%=1% B%=B%-2% : OUT 6%,437%,6%,155%
250 IF D%=215% AND (B%<4% AND A%>8%) OR (B%>30% AND A%>3%) A%=A%-1% ELSE IF A%=8% AND B%>6% A%=7%
252 IF A%=7% AND B%>6% AND Y1%=0% B%=B%-1% : OUT 6%,437%,6%,155%
254 IF A%=7% AND (B%=Q% OR B%=Q%+1% OR B%=Q%+2%) GOSUB 278
256 IF A%=7% AND (B%=Q1% OR B%=Q1%+1% OR B%=Q1%+2%) GOSUB 278
258 IF B%>30% A%=A%-1 : IF A%<1% FOR T=1 TO 2000 : NEXT T : GOTO 286
260 IF A%=7% AND (B%=Q2% OR B%=Q2%+1% OR B%=Q2%+2%) GOSUB 278
262 R%=R%+1% : ; CUR(0%,0%)"BONUS PLAY TIME:"R% : IF R%>199% FOR T=0 TO 1999 : OUT 6%,131%,6%,389% : NEXT T : GOTO 286
264 IF A%<7% AND (B%=Q% OR B%=Q%+1% OR B%=Q%+2%) GOSUB 276
266 IF A%<7% AND (B%=Q1% OR B%=Q1%+1% OR B%=Q1%+2%) GOSUB 276
268 IF A%<7% AND (B%=Q2% OR B%=Q2%+1% OR B%=Q2%+2%) GOSUB 276
270 IF D%=193% AND (F%=0% OR F%=1%) B%=B%-2% ELSE IF D%=211% AND (F%=0% OR F%=1%) B%=B%+2%
272 IF D%=211% AND (A%=7% OR A%=20%) B%=B%+2%
274 GOTO 218
276 OUT 6%,249% : GOSUB 280 : OUT 6%,3% : GOSUB 280 : OUT 6%,251% : GOSUB 280 : RETURN 
278 FOR T%=1% TO 1300% : OUT 6%,465%,6%,211%,6%,87% : NEXT T% : A%=7% : B%=2% : Y%=Y%+1% : RETURN 
280 FOR T=1 TO 200 : NEXT T : RETURN 
282 Y1%=1% : Q%=33% : Q1%=Q%-8% : Q2%=Q1%-8% : RETURN 
284 FOR T%=1% TO 99% : OUT 6%,121%,6%,89% : NEXT T% : ; CUR(9%,5%)"      " : RETURN 
286 ; CHR$(12%)CUR(10,10)"BONUS PLAY SCORE"; : IF 10000-(R%*150%)<0% ; 0 ELSE ; 10000-(R%*150%) : L=L+10000-(R%*150%)
288 FOR T=1 TO 2000 : NEXT T
290 GOTO 30
292 Y%=1% : Q%=33% : Q1%=Q%-6% : Q2%=Q1%-6% : F%=2% : RETURN