start tok64 d64-qcE80R 5 t$="{0*6}" 6 t=0 7 DIMa(20),b(20),c(20),s(20) 10 PRINT"{clear}":POKE53280,0:POKE53281,0 20 PRINT"{home}{white}"; 30 PRINT"{ct n}Hej!" 40 PRINT"Skriv i ditt namn och tryck sedan p]" 50 PRINT"knappen som det st]r {reverse on}RETURN{reverse off} p]." 55 PRINT"F{pound}r att f] en stor bokstav s] trycker dup] knappen {reverse on}SHIFT{reverse off}." 60 OPEN1,0:INPUT#1,a$ 70 PRINT"{clear}Hej "a$"!" 80 PRINT"{down}Nu ska du f] r[kna 1O stycken tal." 90 PRINT"Du skriver in svaret s] snabbt du kan{space*3}och trycker p] {reverse on}RETURN{reverse off}." 100 PRINT"Sedan skriver du in n[sta svar o.s.v." 110 IFt=0THENGOTO130 120 PRINT"Din b[sta tid [r: ";LEFT$(t$,2);":";MID$(t$,3,2);":";RIGHT$(t$,2)"." 125 PRINT"Och ditt b[sta resultat [r: "r" r[tt." 130 PRINT"Tryck p] vilken tangent som helst f{pound}r{space*3}att starta.":tt$="{0*6}" 140 GETb$:IFb$=""THEN140 160 FORx=1TO10 170 a(x)=INT(10*RND(1))+1 182 GOTO190 190 c(x)=a(x)*2 200 NEXT 210 PRINT"{clear}"; 220 FORx=1TO10 230 PRINTa(x):PRINT"{up}{right*4}+":PRINT"{up}{right*7}"a(x):PRINT"{up}{right*11}=" 235 PRINT"{sh asterisk*20}" 240 NEXT 250 ti$=tt$:PRINT"{home}"; 260 FORx=1TO10 270 PRINT"{right*14}";:INPUT#1,s(x) 275 PRINT:PRINT 280 NEXT 285 tt$=ti$ 290 PRINT"Bra! D] var det gjort! Nu ska jag r[tta.":FORl=1TO1000:NEXT 300 PRINT"{home}"; 310 FORx=1TO10 320 IFs(x)=c(x)THENPRINT"{right*20}R[tt!":rt=rt+1 330 IFs(x)<>c(x)THENPRINT"{right*20}Fel." 340 FORl=1TO100:NEXT:PRINT:NEXT 350 FORx=1TO4000:NEXT 360 PRINT"{down}Du hade "rt" r[tt av 10." 370 PRINT"Du gjorde det p] tid "LEFT$(tt$,2);":";MID$(tt$,3,2);":";RIGHT$(tt$,2) 390 IFrt>rTHENPRINT"Du har slagit ditt rekord med "rt-r"!":r=rt 400 IFVAL(tt$)