start tok64 d64-UamhIo
2 INPUT"{clear}h{pound}gsta differens (1-{.*4})";hs
3 PRINT"{down}l[gsta differens (1-";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
185 IFa(x)<b(x)THEN170
187 IFa(x)>h1ORb(x)>h2THEN170
189 IFa(x)<l1ORb(x)<l2THEN170
190 c(x)=a(x)-b(x):IFc(x)>hsTHEN170
195 IFc(x)<lsTHEN170
200 NEXT
205 FORpq=1TO2
210 PRINT"{clear}";
220 IFpq=1THENFORx=1TO10
225 IFpq=2THENFORx=11TO20
230 PRINTa(x):PRINT"{up}{right*4}-":PRINT"{up}{right*7}"b(x):PRINT"{up}{right*11}="
235 PRINT"{sh asterisk*20}"
240 NEXT
250 ti$=tt$:PRINT"{home}";
260 IFpq=1THENFORx=1TO10
265 IFpq=2THENFORx=11TO20
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 IFpq=1THENFORx=1TO10
315 IFpq=2THENFORx=11TO20
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: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$)<VAL(t$)THENPRINT"Du har slagit din gamla tid!":t$=tt$
410 t=1
415 IF rt=20THENPRINT"Bravo! Alla r[tt!"
420 FORt=1TO5000:NEXT
430 PRINT"Vill du f{pound}rs{pound}ka en g]ng till? (j/n)"
440 GETb$:IFb$=""THEN440
450 IFb$="j"THENrt=0:GOTO70
460 IFb$="n"THENCLOSE1:t$="01{0*4}":r=0:t=0:GOTO10
470 GOTO440
stop tok64
(bastext 1.0)