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