home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 54 / Tiger_Disk_054_1998-09_Tiger-Crew-Disk_de_Side_B.d64 / zahlen-gedaecht. (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  1KB  |  34 lines
  1. 1 dimn(76):ma=0:poke53280,peek(53281)
  2. 2 print"[147]zahlen-gedaechtnis"
  3. 3 input"anzahl (sek./zeichen)  1[157][157][157]";dr$:dr=val(dr$):ifdr<.5thendr=.5
  4. 4 input"anzahl der zeichen  5[157][157][157]";sl$:sl=val(sl$):ifsl<2thensl=2
  5. 5 ifsl>76thensl=76
  6. 6 print"jetzige zeichen-zahl[146]";sl;"[157] "
  7. 7 print"achtung[146]";:fori=1to300:next
  8. 8 print"[157][157][157][157][157][157][157]achtung";chr$(7):print"*":print"[145]";:fori=1to1250:next:print
  9. 10 fori=1tosl:n(i)=int(rnd(1)*10):t=ti
  10. 12 print"[145]";n(i);"[146]";:forj=1to100:next
  11. 13 print"[157][157][157]";n(i)
  12. 14 ifti<t+dr*60then14
  13. 15 next
  14. 16 print"[145]   ";
  15. 17 print"zeichen eingeben":fl=0
  16. 18 poke198,0:print"                                           ";
  17. 19 print"                                         ":input"[145][145][145]   *[157][157][157]";a$
  18. 20 iflen(a$)<>slthenfl=1:goto24
  19. 22 fori=1tosl:ifval(mid$(a$,i,1))<>n(i)thenfl=1:i=sl
  20. 23 next:print:iffl<>1then28
  21. 24 print"falsch[146] - versuche weniger !!          ":sl=sl-1
  22. 25 print "                                      ";
  23. 26 print "                                     ":print "[145][145]";
  24. 27 forj=1tosl+1:printright$(str$(n(j)),1);:nextj:print:print"[145][145][145]":goto32
  25. 28 print"richtig[146] -   versuch's mit mehr !!     ":sl=sl+1
  26. 29 ifma<sl-1thenma=sl-1
  27. 30 print"                                      ";
  28. 31 print"                                     ":print "[145][145]";
  29. 32 input"nochmal   j[157][157][157]";n$:ifsl<1thensl=1
  30. 33 ifsl>76thensl=76
  31. 34 ifleft$(n$,1)="j"thenprint"";:goto6
  32. 35 print"hoffentlich hast du dein gedaechnis     trainiert!!"
  33. 36 print"hoechste richtige anzahl:[146]";ma;:poke198,0:wait198,1
  34.