home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1990 September
/
64er_Magazin_90-09_1990_Markt__Technik_de_Side_A.d64
/
quickness-test
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
21 lines
0 gosub19:dima$(50),b$(50),z(50),n$(50),p(50):m=2000:h=m:y=m:reade$,e$,e$,e$:printchr$(14);
1 input" [211]pieler : ";a$(a):ifa$(a)<>""anda<19thena$(a)=left$(a$(a)+e$,28):a=a+1:goto1
2 print:print" [215]ieviele [196]urchgaenge ( 1 -";int(20/a);") ";:inputb
3 ifb<1orb>int(20/a)then2:data" schlechteste [208]unktzahl : [146]"
4 print:input" [215]elche [211]tufe ( 1 - 9 ) ";c:ifc<1orc>9then4
5 fore=1tob:forf=0toa-1:o=o+1:gosub19:print" der naechste ist :":print:printa$(f):print:gosub17:gosub19
6 forj=1to10:fork=1toh:next:h=int(rnd(0)*1200)+1000:i=int(rnd(0)*c)+1:l=ti
7 print"";i;"[146]";:poke198,0:data" beste [208]unktzahl : [146]"
8 geta$:ifval(a$)<>ithen8:data" gesamte [208]unktzahl : [146]"
9 u=ti-l:z(o)=z(o)+u:n$(o)=a$(f):ifu>=yandu<=xthenb$=" kein [210]ekord"
10 ifu>xthenb$="[158]minus [210]ekord":x=u
11 ifu<ythenb$="neuer [210]ekord[146]":y=u:data" "
12 restore:printb$;u:print:next:gosub17:gosub19:readc$:printc$;x:print:readc$:printc$;y:print:readc$:printc$;z(o)
13 print:x=0:y=m:gosub17:gosub19:fort=1too:p(t)=1:forp=1too:ifz(t)>z(p)thenp(t)=p(t)+1
14 next:next:forl=1too:fors=1too:ifs=oandl=p(s)thenprint"";
15 ifl=p(s)thenl$=right$(" "+str$(l),3):gosub18
16 next:next:gosub17:next:next:print:print"[145][145]**programmed by [193]ndre' [211]chmatloch 1990**":end
17 print" wenn fertig : [212]aste [146]":poke198,0:wait198,1:return
18 r$=right$(" "+str$(z(s)),6)+" ":printl$;".";r$;n$(s);"[146]";:return
19 print"[147] [209]uickness-test[146]":print" --------------":print:return