home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 5 / Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64 / 11_6lektion (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  38 lines
  1. 1 rem bestimmung der hintergrund- u. rahmenfarbe
  2. 2 poke53280,9:poke53281,7
  3. 10 print"[147]            << wortspiel >>"
  4. 20 print"dieses programm kann zum vokabeln-"
  5. 25 print"lernen benutzt werden."
  6. 30 print"neue worte koennen hinzugefuegt und"
  7. 35 print"bereits gelernte vokabeln geloescht wer-";:print"den."
  8. 60 read n
  9. 70 for i=1 to n
  10. 80 read w$,ns
  11. 90 for k = 1 to ns
  12. 100 read s$(k)
  13. 110 next
  14. 120 print "uebersetze das wort    "w$;""
  15. 130 input r$
  16. 140 if r$ = "hilfe" then 230
  17. 150 for k = 1 to ns
  18. 160 if r$ = s$(k) then 210
  19. 170 next
  20. 180 print"nein! ueberlege noch einmal oder":print"schreibe 'hilfe'!"
  21. 190 rem tippen sie list -125 ein, um            den anfang der liste zu sehen.
  22. 200 goto 130
  23. 210 print "richtig!!"
  24. 220 goto 270
  25. 230 print"";:printw$" bedeutet:"
  26. 240 for k=1 to ns
  27. 250 print s$(k)
  28. 260 next
  29. 270 next i
  30. 280 rem um ein neues wort hinzuzufuegen         wird in den data-befehl in
  31. 290 rem zeile 330 die neue anzahl der           worte geschrieben, und dann
  32. 300 rem werden soviele data-befehle             geschrieben, wie fuer die
  33. 310 rem vokabel,die anzahl der ueber-           setzungen und die uebersetzung
  34. 320 rem selbst notwendig sind.(benutzen         sie zeilen# > 330)
  35. 330 data 2
  36. 340 data goal,3,ziel,tor,mal (narbe)
  37. 350 data hit,3,stoss,treffer,schlager
  38.