home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 13 / Tiger_Disk_013_19xx_Tiger-Crew-Disk_de_Side_B.d64 / lehr-meister (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  55 lines
  1. 10 poke 53281 , 11 : poke 53280 ,11 : print "[155]"
  2. 20 print"[147]                teachmaster"
  3. 30 print"          (w) by arno freisinger"
  4. 40 print"               rossbachstr.17"
  5. 50 print"              6434 niederaula 3"
  6. 90 for i = 1 to 2000 : next
  7. 100 print"[147][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195] auswahl [195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  8. 110 print"[194]                                     [194]"
  9. 120 print"[194]             1 = lektion 1           [194]"
  10. 130 print"[194]                                     [194]"
  11. 140 print"[194]             2 = lektion 2           [194]"
  12. 150 print"[194]                                     [194]"
  13. 160 print"[194]             3 = lektion 3           [194]"
  14. 170 print"[194]                                     [194]"
  15. 180 print"[194]             4 = lektion 4           [194]"
  16. 190 print"[194]                                     [194]"
  17. 200 print"[194]             5 = lektion 5           [194]"
  18. 210 print"[194]                                     [194]"
  19. 220 print"[194]             6 = lektion 6           [194]"
  20. 230 print"[194]                                     [194]"
  21. 240 print"[194]             7 = lektion 7           [194]"
  22. 250 print"[194]                                     [194]"
  23. 260 print"[194]             8 = lektion 8           [194]"
  24. 270 print"[194]                                     [194]"
  25. 280 print"[194]             9 = lektion 9           [194]"
  26. 290 print"[194]                                     [194]"
  27. 300 print"[194]             a = blaettern           [194]"
  28. 330 print"[194]                                     [194]"
  29. 340 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195] taste druecken [195][195][195][195][195][195][195][189]"
  30. 350 get a$ : if a$ = "" then 350
  31. 360 if a$ = "a" then 400
  32. 370 a =  val (a$) : if a < 1 or a > 9 then 350
  33. 380 f$ = "lektion "+a$
  34. 390 load f$ ,8
  35. 400 print"[147][176][195][195][195][195][195][195][195][195][195][195] auswahl teil ii [195][195][195][195][195][195][195][195][195][195][174]"
  36. 410 print"[194]                                     [194]"
  37. 420 print"[194]             1 = lektion 10          [194]"
  38. 430 print"[194]                                     [194]"
  39. 440 print"[194]             2 = lektion 11          [194]"
  40. 445 print"[194]                                     [194]"
  41. 460 print"[194]             3 = lektion 12          [194]"
  42. 470 print"[194]                                     [194]"
  43. 480 print"[194]             4 = lektion 13          [194]"
  44. 490 print"[194]                                     [194]"
  45. 500 print"[194]             5 = zurueck blaettern   [194]"
  46. 510 print"[194]                                     [194]"
  47. 520 print"[173][195][195][195][195][195][195][195][195][195][195][195][195] taste druecken [195][195][195][195][195][195][195][195][195][189]"
  48. 530 get a$ : if a$ = "" then 530
  49. 540 if a$ = "5" then 100
  50. 550 a = val (a$) : if a < 1 or a > 4 then 530
  51. 560 a = a + 9
  52. 570 a$ = ""
  53. 580 a$ = right$(str$(a),2)
  54. 590 goto 380
  55.