home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 70 / Tiger_Disk_070_20xx_Tiger-Crew-Disk_de_Side_B.d64 / schnell-lesen (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  74 lines
  1. 1 rem"steven darnold, p.o. box 201, alexandra  new zealand[141]
  2. 10 [151]53280,11:[151]53281,11
  3. 90 [153]"returnloadprint";:[141]100:[137]130
  4. 100 [153],"                       "
  5. 110 [153],"  s p e e d - r e a d  "
  6. 120 [153],"                       ":[142]
  7. 130 k$[178]" s c h n e l l - l e s e n            von                max yoder"
  8. 140 k$[178]k$[170]"                            deutsche uebersetzung              "
  9. 150 k$[178]k$[170]"von                > tiger-crew <        "
  10. 160 [129]i[178]1[164]1000:[130]
  11. 170 [129]i[178]1[164][195](k$)[169]2:[153]"":[153],""[202](k$,i,23):[129]j[178]1[164]120:[130]:[130]
  12. 180 [153]"";:[141]100
  13. 190 k$[178]"stop^":n[178]12
  14. 200 [134] p$(20):[134] v$(20)
  15. 210 [134] n$(20):[134] lw(40)
  16. 220 [153]"sysdieses programm testet deine faehigkeit  des schnellen lesens."
  17. 230 [153]"printdie saetze sind einfach, aber etwas      > albern <.
  18. 240 print"der sinn ist es, die saetze in der       kurzen zeit zu erkennen.";
  19. 290 t=50
  20. 310 x$=" "
  21. 330 for i= 1 to n
  22. 340 read n$(i)
  23. 350 n$(i)=n$(i)+x$:next
  24. 360 for i= 1 to n
  25. 370 read p$(i)
  26. 380 next
  27. 390 z=0:fori = 1 to 14
  28. 400 r1=int(2*rnd(1))+1
  29. 440 read v$(i)
  30. 450 v$(i)=v$(i)+x$
  31. 460 next:print"                  drueck  shift[146]":wait653,1
  32. 470 r1=int(12*rnd(1))+1
  33. 480 r2=int(14*rnd(1))+1
  34. 490 r3=int(12*rnd(1))+1
  35. 500 r4=int(2*rnd(1))+1
  36. 540 a$=n$(r1)+v$(r2)+p$(r3)
  37. 550 l=len(a$):w1=l/5
  38. 560 print"[147][158]":for i= 1 to 1000:next
  39. 570 printa$
  40. 580 ti$="000000"
  41. 590 if ti<t goto590
  42. 600 print"[147]"
  43. 610 print"[153]wie hiess der satz ?"
  44. 620 input"[160][160][160][157][157][157]"; d$
  45. 630 print"[147][158]du sagtest:"
  46. 640 printd$""
  47. 650 if a$=d$ then comp=100:goto750
  48. 660 for i=1 to l+1:m$=mid$(a$,i,1):n$=mid$(d$,i,1):if m$=n$ then lc= lc+1
  49. 670 if m$<>n$ then lw=lw+1:lw(i)=i
  50. 680 next i
  51. 690 print"der satz hiess :"
  52. 700 printa$
  53. 710 for i= 1 to l+1
  54. 720 if lw(i)=i then printtab(i-1);k$"[145]"
  55. 730 next i
  56. 740 comp=int(lc*100/(l+1)):goto760
  57. 750 sc=sc+1:if int(sc)=.25*int(sc*4)then sp=sp+1
  58. 760 print""
  59. 770 print"[153]dein >tempo<"int(14400/t)"woerter pro minute bei
  60. 780 [153]" erkennen von "comp"%"
  61. 790 [129] i [178] 1 [164](l[170]1):lw(i)[178]0:[130] i
  62. 800 [153]"drueck 'ne taste :wait"
  63. 810 [153]" swaitoncmdtochneller  lwaitoncmdtoangsamer   kwaitoncmdtoeine aenderung
  64. 820 poke198,0:wait198,1:geta$:ifa$="l"thent=t*1.15
  65. 830 if a$="s" then t=t*.91
  66. 840 l=0:lc=0:lr=0:comp=0:t1=0:print
  67. 850 goto470
  68. 860 datadas pferd,das kamel,das huhn,die kuh,die maus,die ratte,das schwein
  69. 865 datadas tier,die fliege,die gans,die ente,die frau
  70. 870 datadie tuer,die lampe,das bett,die kanne,das haus,das auto,das hemd
  71. 875 datadie katze,das schwein,das kind,das krokodil,das baby
  72. 880 dataspringt ueber,badet,kauft,schlaegt,sucht,verliert,holt,wirft
  73. 890 data bringt,waescht,streichelt,faengt,kuesst,verkauft
  74.