home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9009a.d64 / quickness-test (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  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.