home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 1 / Tiger_Disk_001_1994-04_Tiger-Crew-Disk_de_Side_B.d64 / vokabel-test (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  69 lines
  1. 10 print"[147]":poke53272,23
  2. 20 a=0:b=0
  3. 30 print:print:print:print"          [214][160][207][160][203][160][193][160][194][160][197][160][204][160]-[160][212][160][197][160][211][160][212]     [146]":gosub50000
  4. 40 print:print:print:print"[201]ch nenne [196]ir nachfolgend einige"
  5. 50 print:print"englische [215]oerter, zu denen [196]u mir"
  6. 60 print:print"die deutsche [213]ebersetzung sagen sollst"
  7. 70 print:print:print"[211]chreibe immer nach dem > ? < das"
  8. 80 print:print"richtige [215]ort und druecke > [210][197][212][213][210][206] < ."
  9. 90 gosub 40000
  10. 91 print:print:print"     [200][160][201][160][206][160][215][160][197][160][201][160][211][160]:[160][160][146]"
  11. 92 print:print:print"   [194]ei [197]ingabe weiterer [214]okabeln"
  12. 93 print:print"   bitte in den [218]eilen > 100 <"
  13. 94 print:print"   und > 190 < den [215]ert (30)"
  14. 95 print:print"   entsprechend erhoehen!"
  15. 96 print:print:print:gosub40000
  16. 100 forx=1to30:rem anzahl der vokabeln
  17. 101 reada$
  18. 102 print"   ";a$
  19. 110 print:print:print:print:print:input"[145][145][145][196][197][213][212][211][195][200][197][211][160][215][207][210][212] ";c$
  20. 120 readb$
  21. 130 ifc$=b$thengosub20000
  22. 140 ifc$<>b$thengosub30000
  23. 150 next
  24. 155 fort=1to1000:nextt
  25. 160 print"[147]":print:print:print:print:print:print"       [197][206][196][197][160][196][201][197][211][197][210] [213][197][194][213][206][199]!"
  26. 170 print:print"  [196]u hattest ";a;" [215]oerter richtig"
  27. 180 print:print"  und ";b;" [215]oerter falsch uebersetzt."
  28. 190 c=(a*100)/30:rem anzahl der vokabeln
  29. 200 print:print"  [196]as sind ";c;"% richtige [157][157][157][157][157][157][157][157][157][193]ntworten."
  30. 210 ifc<20thenprint"     [196]as ist [205][201][211][197][210][193][194][197][204][211][212]!!!"
  31. 220 ifc<40thenprint"     [196]as ist recht maessig!"
  32. 230 ifc<60thenprint"     [196]as ist wenig, ueben, ueben!"
  33. 240 ifc<80thenprint"[205]it noch etwas [213]ebung wirst [196]u mal gut."
  34. 250 ifc<90thenprint"     [196]as war schon ganz gut!"
  35. 260 ifc>90thenprint:print"        [208][160][210][160][201][160][205][160][193] ! [146] - [215]eiter so!":print:print
  36. 270 gosub40000
  37. 280 print:print:input"     [206][207][195][200][160][197][201][206][160][214][197][210][211][213][195][200] ? (j/n)";d$
  38. 290 ifd$<>"j"thenprint:print"     [212][211][195][200][213][197][211][211]! - [194]is demnaechst!":gosub50020:end
  39. 300 ifd$="j"thenrestore:goto10
  40. 1000 dataable,faehig,above,ueber,adults,erwachsene
  41. 1010 dataget,bekommen,again,wieder,after,nach
  42. 1020 datalight,licht,but,aber,clues,hinweise
  43. 1030 datawill,werden,guess,raten,before,vor
  44. 1040 databecome,werden,be,sein,by,von,tell,erzaehlen
  45. 1050 databuy,kaufen,come,kommen,sleep,schlafen
  46. 1060 datathink,denken,leave,verlassen,arrive,ankommen
  47. 1070 datasell,verkaufen,show,zeigen
  48. 1080 datatake,nehmen,on,auf,point,punkt
  49. 1090 datanumber,zahl,digit,ziffer,know,wissen
  50. 20000 print:print"               [210][201][195][200][212][201][199] !         [146]":print:print
  51. 20010 a=a+1
  52. 20020 return
  53. 30000 print:print"            [204][197][201][196][197][210] [198][193][204][211][195][200] !     [146]"
  54. 30010 print:print"[196]as deutsche [215]ort heisst ";b$:print:print
  55. 30020 b=b+1
  56. 30030 return
  57. 40000 print:print:print:print"          [194][201][212][212][197] [212][193][211][212][197] [196][210][213][197][195][203][197][206]        [146]"
  58. 40010 poke198,0:wait198,1
  59. 40020 print"[147]"
  60. 40030 return
  61. 50000 print:print:print
  62. 50010 print" (c) 1992 "
  63. 50020 print:print"        [212][160][201][160][199][160][197][160][210] - [195][160][210][160][197][160][215]"
  64. 50030 print:print:print"          [198][197][204][196][211][212][210][193][211][211][197]  17"
  65. 50040 print:print"          6492 [211][201][206][206][212][193][204]  1"
  66. 50050 fort=1to5000:nextt
  67. 50060 print"[147]"
  68. 50070 return
  69.