start tok64 d64-04jXU1
10 POKE53280,0
20 POKE53281,0
30 PRINT"{clear}{yellow}t i o k o m p i s a r{space*4}av ulf t -90"
40 PRINT"{down*3}{light green}skriv in ditt namn och tryck sedan p]{space*3}{reverse on}return{reverse off}."
50 INPUT"ditt namn";n$
60 PRINT"{clear}{156}hejsan ";n$;"!"
70 PRINT"{down}nu ska du f] 1o tal. det st]r t.ex. "
80 PRINT"{down}4 +{space*3}= 10"
90 PRINT"{down}d] ska du trycka p] en 6:a."
100 PRINT"{down*2}tryck p] en tangent f{pound}r att starta."
110 GETa$:IFa$=""THEN110
120 PRINT"{clear}":r=0:m=0
130 FORk=1TO10
140 a(k)=INT(10*RND(1))+1
150 b(k)=10-a(k)
160 NEXT
170 FORk=1TO10:PRINTa(k):PRINT"{up}{right*4}+{space*3}= 10":PRINT"{sh asterisk*18}":NEXT
180 PRINT"{home}":ti$="{0*6}"
190 FORk=1TO10
195 PRINT"{right*6}{reverse on} {reverse off}{up}"
200 GETa$:IFa$=""THEN195
205 IFASC(a$)<48ORASC(a$)>57THEN200
207 c(k)=VAL(a$)
210 PRINT"{right*6}";a$:PRINT
220 NEXT
230 t$=ti$:PRINT"{down*2}nu ska jag r[tta!":FORt=1TO3000:NEXT:PRINT"{home}"
240 FORk=1TO10
250 IFc(k)<>b(k)THENPRINT"{right*19}fel!":m=m+1:GOTO270
260 PRINT"{right*18}r[tt!":r=r+1
270 PRINT:FORt=1TO400:NEXT:NEXT
280 FORt=1TO1000:NEXT
290 PRINT"du hade"r"r[tt och"m"fel."
300 IFr=10THENPRINT"grattis! du hade alla r[tt!"
310 IFr>5ANDr<10THENPRINT"ganska bra!"
320 IFr>2ANDr<6THENPRINT"inte s[rskilt bra."
330 IFr=1THENPRINT"det var ganska d]ligt! f{pound}rs{pound}k en g]ng{space*3}till!{space*13}"
340 IFr=0THENPRINT"alla fel! har du ont i huvudet{?*3} f{pound}rs{pound}kigen{!*3}{space*12}"
350 PRINT"du hade tiden:"MID$(t$,3,2)"."RIGHT$(t$,2)
360 PRINT"vill du f{pound}rs{pound}ka igen (j/n)?"
370 GETa$:IFa$=""THEN370
380 IFa$="n"THENRUN
390 IFa$="j"THEN60
stop tok64
(bastext 1.0)