home *** CD-ROM | disk | FTP | other *** search
/ Power Disk 64 1995 2 / Power_Disk_64_95-02_1995_Lagune_de_Side_B.d64 / programmenu (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  51 lines
  1. 0 print"[153][147]":poke53280,0:poke53281,0
  2. 1 print"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  3. 2 print"[145][159]    [208][207][215][197][210] [196][201][211][203] 64 - [208]rogrammenu 2/95    "
  4. 3 print"[145][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  5. 5 print"[159]1 = [212][207][208]-[208][210][199]:[215][215][214] ([210]emix)"
  6. 6 print"2 = [214]okabeln (11)"
  7. 7 print"3 = [215]itze (9)                4 = [215]ort-[211]piel 2"
  8. 8 print"5 = [200]auptmenu"
  9. 9 print"6 = [210][197][211][197][212]"
  10. 10 input"[201]hre [215]ahl";a:print"[145][145][145]"
  11. 11 if a<1 or a>6 then0
  12. 12 if a = 1 then goto105
  13. 13 if a = 2 then goto300
  14. 14 if a = 3 then goto410
  15. 15 if a = 5 then goto500
  16. 16 if a = 6 then goto600
  17. 17 if a = 4 then goto200
  18. 20 get m$:if m$=""then20
  19. 21 goto1
  20. 105 poke828,0
  21. 106 print chr$(147) chr$(17)
  22. 107 print "load"chr$(34);"loa*";chr$(34); ",8,1
  23. 108 [153] [199](17) [199](17) [199](17) [199](17) "run"
  24. 109 [151]631,13:[151]632,13:[151]198,2
  25. 110 [153] [199](19);:[128]
  26. 200 [151]828,0
  27. 201 [153] [199](147) [199](17)
  28. 202 [153] "load"[199](34);"wort*";[199](34); ",8
  29. 203 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
  30. 204 poke631,13:poke632,13:poke198,2
  31. 205 print chr$(19);:end
  32. 300 poke828,0
  33. 301 print chr$(147) chr$(17)
  34. 302 print "load"chr$(34);"voka*";chr$(34); ",8
  35. 303 [153] [199](17) [199](17) [199](17) [199](17) "run"
  36. 304 [151]631,13:[151]632,13:[151]198,2
  37. 305 [153] [199](19);:[128]
  38. 410 [151]828,0
  39. 411 [153] [199](147) [199](17)
  40. 412 [153] "load"[199](34);"witze";[199](34); ",8
  41. 413 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
  42. 414 poke631,13:poke632,13:poke198,2
  43. 415 print chr$(19);:end
  44. 500 poke828,0
  45. 501 print chr$(147) chr$(17)
  46. 502 print "load"chr$(34);"haupt*";chr$(34); ",8
  47. 503 [153] [199](17) [199](17) [199](17) [199](17) "run"
  48. 504 [151]631,13:[151]632,13:[151]198,2
  49. 505 [153] [199](19);:[128]
  50. 600 [158]64738
  51.