1Z=INP(3)
2P$="KIKSTART"
3;CHR$(12):FORI=1TO14:;CHR$(151%):NEXTI
4RESTORE9
5READR%,K%
6IFR%=100%GOTO13
7FORA%=10%TO-10%STEP-1:FORD%=1%TOA%:NEXTD%:OUT6%,0%,6%,121%:NEXTA%
8;CUR(R%+5,K%+10%)""
9DATA4,4,2,8,7,14,4,12,5,16,1,17,2,1,5,10,5,8,6,1,7,18,1,12,7,6,7,9,4,1,3,16,1,4,4,19,7,11,5,4,7,16
10DATA3,8,7,4,4,2,2,19,6,12,1,8,1,16,6,8,6,4,7,1,6,12,1,1,3,4,2,12,7,17,3,1,4,16,6,10,4,8,4,3
11DATA3,12,5,19,2,4,2,16,5,1,6,16,6,19,1,18,5,19,5,12,3,19,100,100
12GOTO5
13FORI=1TO19:B$=LEFT$("Hugo Wikstr|ms Data",I):FORQ=1TO100:NEXTQ:;CUR(15,11)B$:NEXTI
14FORI=1TO8:B$=LEFT$("SOFTWARE",I):FORQ=1TO100:NEXTQ:;CUR(17,16)B$:NEXTI
15FORI=1TO11:B$=LEFT$("presenterar",I):FORQ=1TO100:NEXTQ:;CUR(19,15)B$:NEXTI
16L=LEN(P$)
17FORI=1TOL:B$=LEFT$(P$,I):FORQ=1TO100:NEXTQ:;CUR(21,20-(L/2))B$:NEXTI
18FORQ=1TO2000:NEXTQ:FORI=1TO24:;:FORZ=1TO10:FORX=1TOI:NEXTX
19OUT6%,0%,6%,121%:NEXTZ:NEXTI
20]$="** HWD **":]=200
21GOTO133
22W=1
23R%=38%:R1%=R%:R2%=R%:F=.1:I=1:T=0
24GETA$
25ONERRORGOTO25
26;CHR$(12%)"Vilken bana 1-5 ";:INPUTW1:IFNOTW1<6ANDNOTW1>0GOTO25
27IFW1=W;CHR$(12%):FORI%=1%TO24%:;CHR$(151%):NEXTI%:GOTO68
28W=W1:B1$="":B2$="":B3$="":B4$=""
29;CHR$(12%):FORI%=1%TO24%:;CHR$(151%):NEXTI%
30DIMB1$=400:DIMB2$=400:DIMB3$=400:DIMB4$=400
31GOTO42
32C1$="   x":C2$=" `~":C3$="x":C4$="":RETURN
33C1$="t   ":C2$="}0 ":C3$="t":C4$="":RETURN
34C1$="   ":C2$=" `~":C3$="x":C4$="":RETURN
35C1$="   ":C2$="}0 ":C3$="t":C4$="":RETURN
36C1$=" p0":C2$="j|~":C3$="j<~":C4$="":RETURN
37C1$="pppp":C2$="n,,=":C3$="{ssw":C4$="":RETURN
38C1$="   ":C2$=" vy":C3$=" e:":C4$="":RETURN
39C1$=" x<d$||||||| ":C2$=" 7!j 5 HWD j ":C3$=" %n&///#o'+? ":C4$="":RETURN
40C1$="     ":C2$="     ":C3$="     ":C4$="ppp":RETURN
41C1$=" ":C2$=" ":C3$=" ":C4$="":RETURN
42ONW1RESTORE51,53,55,57,59
43READA%
44IFA%=0%READA1%ELSEA1%=1%
45IFA%=11%GOTO61
46ONA%+1%GOSUB41,32,33,34,35,36,37,38,39,40
47FORI%=1%TOA1%
48B1$=B1$+C1$:B2$=B2$+C2$:B3$=B3$+C3$:B4$=B4$+C4$
49NEXTI%
50GOTO43
51DATA0,10,1,5,5,5,2,0,4,9,3,6,6,6,4,0,4,1,7,7,7,7,2,0,6,3,7,7,7,4,0,5,9,0,5,9,0,5,9,0,5,9,1,8,2,1,3,3,3,3,1
52DATA3,8,0,5,1,5,5,5,2,0,10,3,8,9,0,5,3,6,6,6,4,0,10,1,7,8,7,2,0,5,1,2,3,4,3,4,3,4,3,4,3,4,2,9,11
53DATA0,20,1,0,25,2,1,2,0,5,9,0,5,3,8,8,8,4,0,10,9,0,5,3,3,1,0,15,2,0,5,3,6,6,6,6,6,6,0,4,1,7,0,3,7,0,3,7,2,0,10
54DATA0,27,1,2,0,3,7,0,3,7,0,3,7,0,3,2,0,5,9,0,5,9,0,5,1,0,25,2,11
55DATA0,10,3,8,8,5,5,8,8,6,6,6,6,6,0,10,9,0,10,1,0,5,8,0,5,2,0,5,9,0,5,9,0,5,9,9,9,9,9,0,5,1,6,6,6,6,6,6,6,2
56DATA0,10,1,2,1,2,1,2,1,2,3,4,3,4,3,4,1,0,30,2,0,5,9,9,9,9,11
57DATA0,10,3,6,6,6,6,6,6,6,2,0,10,1,9,9,9,9,9,9,9,9,9,9,1,9,9,9,9,9,9,9,9,9,9,1,2,3,4,1,2,1,2,1,2,1,2,1,3,4,1,1
58DATA2,1,2,1,2,1,2,3,4,3,4,3,4,3,4,3,3,4,1,2,1,2,0,10,1,8,8,2,11
59DATA0,10,1,8,7,8,7,8,7,8,7,8,6,6,7,7,0,10,1,9,9,9,9,9,9,9,0,10,1,2,0,10,3,4,3,4,1,2,0,10,1,8,5,8,0,10,9,9
60DATA0,10,1,7,7,7,7,7,7,2,0,5,9,0,5,9,0,5,3,4,3,4,1,2,11
61A1%=400-LEN(B1$)
62B1$=B1$+SPACE$(A1%-36%)+"fM]L9"+SPACE$(20%)
63B2$=B2$+SPACE$(A1%)
64B3$=B3$+SPACE$(A1%)
65B4$=B4$+STRING$(A1%,127%)
66D1$=RIGHT$(B1$,I)
67D1$=LEFT$(D1$,25%)
68D2$=RIGHT$(B2$,I):D2$=LEFT$(D2$,25%)
69D3$=RIGHT$(B3$,I):D3$=LEFT$(D3$,25%)
70D4$=RIGHT$(B4$,I):D4$=LEFT$(D4$,25%)
71;CUR(10%,1%)D1$CUR(11%,1%)D2$CUR(12%,1%)D3$CUR(13%,1%)D4$
72;CUR(14%,1%)""CUR(2%,1%)CHR$(151%)SPACE$(38%)
73G=G+F:IFG>=1G=G-1:OUT6%,0%,6%,121%
74IFDOT(R%-1%,16%)\%=\%+1%
75IFDOT(R%,16%)\%=\%+2%
76IFDOT(R%+1%,16%)\%=\%+4%
77IFDOT(R%+1%,15%)\%=\%+8%
78IFDOT(R%+2%,15%)\%=\%+16%
79IF\%=3%OR\%=7%OR\%=15%OR\%=22%ORR%>39%OUT6%,0%,6%,137%:F=F/2:;CUR(2%,0%)" DAMAGE!!":GOSUB100
80IF\%=12%IFF>=.5OUT6%,7%:F=.4:;CUR(2%,0%)" YOU ARE DRIVING TO FAST !!!":GOSUB100
81IF\%=30%OR\%=4%OR\%=31%N=-F*2
82IF\%=0%N=N+.3
83IF\%=12%OR\%=28%N=0
84IF\%=16%ANDR%=30%R%=R%+1%:N=0
85IF\%>3%ANDNOT\%=16%ANDINP(56%)=160%N=N-.5
86IF\%>3%ANDINP(56%)=211%F=F+.05:IFF>1F=1
87IF\%>3%ANDINP(56%)=193%F=F/1.5
88IFN>1N=1
89R%=R%+N
90CLRDOTR1%,15%:CLRDOTR2%,13%:CLRDOTR1%-1%,14%:R2%=R1%:R1%=R%:SETDOTR%,15%:SETDOTR2%,13%
91SETDOTR%-1%,14%
92I=I+F
93IFI>359GOTO117
94;CUR(20,0)" TIME:"T:T=T+.1
95;CUR(21,0)"SPEED:"CHR$(151%)STRING$(F*20%,47%)"            "
96\%=0%
97IFI<2I=2:GOSUB184
98G1=G1+F:IFG1>=1G1=G1-1:OUT6%,0%,6%,121%
99GOTO66
100FORR%=R%TO38%
101OUT6%,9%
102CLRDOTR1%,15%:CLRDOTR1%,13%:CLRDOTR1%-1%,14%:R1%=R%:SETDOTR%,15%:SETDOTR%,13%
103SETDOTR%-1%,14%
104FORQ%=1%TO300%:NEXTQ%
105OUT6%,7%
106NEXTR%
107;CUR(12,6)"   "CUR(11,6)"   "
108FORY%=1%TO2%
109RESTORE116
110FORX%=1%TO6%
111READR%,K%,R1%,K1%
112IFDOT(R%,K%)CLRDOTR%,K%ELSESETDOTR%,K%
113IFDOT(R1%,K1%)CLRDOTR1%,K1%ELSESETDOTR1%,K1%
114FORQ%=1%TO500%:NEXTQ%
115NEXTX%:NEXTY%:R%=28%:R1%=R%:R2%=R1%:T=T+10:FORQ=1TO500:NEXTQ:RETURN
116DATA37,14,38,2,36,14,38,2,35,14,38,2,34,13,34,15,35,12,35,16,35,13,35,15
117IFT<50A$="YOU ARE CAMPION IN KIKSTART":GOTO121
118IFT<100A$="VERY GOOD DRIVE":GOTO121
119IFT<150A$="GOOD DRIVE":GOTO121
120IFT<250A$="I CAN TEATCH YOU  KIKSTART"ELSEA$="YOU CAN BETTER...."
121;CUR(2%,1%)A$
122FORI%=1%TO2%
123RESTORE130
124ONERRORGOTO131
125READB%,A%
126FORX%=1%TOA%*2%
127FORY%=1%TOB%/2%:NEXTY%
128OUT6%,0%,6%,121%
129NEXTX%:FORB%=1%TO100%:NEXTB%:GOTO125
130DATA20,10,20,10,20,10,20,10,10,40,20,40
131NEXTI%
132IFT<]]=T:GOSUB158
133;CHR$(12)"*** KIKSTART ** KIKSTART ** KIKSTART ***"
134;:;:;:;"BEST TIME:"]""TAB(19%)]$
135;:;:;"TIME:"T
136;CUR(22,0)"*** HWD ** HWD ** HWD ** HWD ** HWD ***"
137;CUR(20,0)"Tryck B f|r nytt spel."
138FORI=1TO1000:IFINP(56%)=194GOTO23
139NEXTI
140;CHR$(12)"*** KIKSTART ** KIKSTART ** KIKSTART ***"
141;"I detta spel KIKSTART ska man k|ra en   motorcrosscykel i h|gsta m|jliga fart"
142;"och s{kerhet |ver bilar,hopp,oljefat    och gropar."
143RESTORE150
144FORA%=1%TO6%
145READR,K,B$
146ONA%GOSUB32,36,37,38,39,40
147;CUR(R,K)B$CUR(R+1,K)CHR$(151)C1$CUR(R+2,K)CHR$(151)C2$CUR(R+3,K)CHR$(151)C3$
148IFA%=6%;CUR(R+3,K)C4$
149NEXTA%:GOTO151
150DATA7,1,' Hopp',7,16,' Bus',7,26,'Staket *',11,1,'Olje fat',11,11,'  L}ngtradare',11,26,'Grop',25,0,,
151;"* P} staketet ska man k|ra sakta.":;:;"Du k|r med f|ljande tangeter."
152;"A Broms, S Gas och SPACE Hopp"
153;CUR(22,0)"*** HWD ** HWD ** HWD ** HWD ** HWD ***"
154;CUR(21,0)"Tryck B f|r ett nytt spel"
155FORI=1TO5000:IFINP(56)=194GOTO23
156NEXTI
157GOTO133
158R%=10%:K%=10%:R1%=R%:K1%=K%:;CHR$(12%):;CUR(9,0)"":]$="":G=0:D=1
159RESTORE178
160FORI%=1%TO5%
161READA$
162;TAB(10%)A$
163NEXTI%
164;CUR(17%,10%)"NAME:"]$
165FORI%=1%TO1200%:NEXTI%
166IFINP(56%)=211%K%=K%+2%:IFK%>28%R%=R%+1:K%=10%:IFR%>14%R%=10%
167IFINP(56%)=193%K%=K%-2%:IFK%<10%R%=R%-1:K%=28%:IFR%<10%R%=14%
168IFINP(56%)=160%GOTO171
169;CUR(R1%,K1%-1%)" "CUR(R1%,K1%+1%)" ":R1%=R%:K1%=K%:;CUR(R%,K%-1%)"("CUR(R%,K%+1%)")"
170GOTO164
171RESTORE178
172FORI=1TO5
173READA$
174IFR%-9=IB$=RIGHT$(A$,K%-9):B$=LEFT$(B$,1%):IFB$="@"GOTO183ELSE]$=]$+B$:D=D+1
175IFD=8GOTO183
176NEXTI
177GOTO164
178DATA"1 2 3 4 5 6 7 8 9 0"
179DATA"A B C D E F G H I J"
180DATA"K L M N O P Q R S T"
181DATA"U V W X Y Z ] [ \ *"
182DATA" $ # ? < > & %   @"
183RETURN
184;CUR(10,3)" fSTART9                  "
185FORI%=1%TO4%
186OUT6,3
187FORQ=1TO500:NEXTQ
188OUT6,0
189FORQ=1TO500:NEXTQ
190NEXTI%
191OUT6,1:FORQ=1TO1000:NEXTQ:RETURN