start tok64 d64-wrrS1e 2 INPUT"{clear}h{pound}gsta summa (0-{.*4})";hs 3 PRINT"{down}l[gsta summa (0-";hs")";:INPUTls 4 INPUT"h{pound}gsta term 1";h1:INPUT"l[gsta term 1";l1:INPUT"h{pound}gsta term 2";h2 5 INPUT"l[gsta term 2";l2:t$="01{0*4}" 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 2O 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 150 PRINT"{clear}Var god v[nta{!*3}" 160 FORx=1TO20 162 nr=20-x 165 PRINT"{home}{down*2}nedr[kning:";nr;"{left}{space*2}" 170 a(x)=INT((h1+1)*RND(1))+l1 180 b(x)=INT((h2+1)*RND(1))+l2 187 IFa(x)>h1ORb(x)>h2THEN170 189 IFa(x)hsTHEN170 195 IFc(x)c(x)THENPRINT"{right*20}Fel." 340 FORl=1TO100:NEXT:PRINT:NEXT 350 FORx=1TO4000:NEXT:NEXT 360 PRINT"{down}Du hade "rt" r[tt av 20." 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$)