home *** CD-ROM | disk | FTP | other *** search
/ Power Disk 64 1995 2 / Power_Disk_64_95-02_1995_Lagune_de_Side_B.d64 / hauptmenu (.txt) next >
Encoding:
Commodore BASIC  |  1995-01-01  |  1.6 KB  |  58 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]"
  3. 2 print"[159]    [208][207][215][197][210] [196][201][211][203] 64 - [200]auptmenu 2/95    "
  4. 3 print"[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. 4 print"[159]1 = [208]rogrammenu"
  6. 5 print"2 = [205]usik"
  7. 6 print"3 = [211]pieleteilmenu"
  8. 7 print"4 = [197]ditorial"
  9. 8 print"5 = [201]nhalt 2/95"
  10. 9 print"6 = [210][197][211][197][212]"
  11. 10 input"[215]as wollen sie machen";a:print"[145][145][145]"
  12. 11 if a<1 or a>6 then0
  13. 12 if a = 1 then goto105
  14. 13 if a = 2 then goto205
  15. 14 if a = 3 then goto300
  16. 15 if a = 4 then goto400
  17. 16 if a = 5 then goto505
  18. 17 if a = 6 then goto600
  19. 105 poke828,0
  20. 106 print chr$(147) chr$(17)
  21. 107 print "load"chr$(34);"programm*";chr$(34); ",8
  22. 108 [153] [199](17) [199](17) [199](17) [199](17) "run"
  23. 109 [151]631,13:[151]632,13:[151]198,2
  24. 110 [153] [199](19);:[128]
  25. 205 [151]828,0
  26. 206 [153] [199](147) [199](17)
  27. 207 [153] "load"[199](34);"musik";[199](34); ",8
  28. 208 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
  29. 209 poke631,13:poke632,13:poke198,2
  30. 210 print chr$(19);:end
  31. 300 print"[147]"
  32. 301 print"[211][208][201][197][204][197][212][197][201][204]"
  33. 302 print"[211]eite 1 einlegen und [212][193][211][212][197]"
  34. 303 geta$:ifa$=""then303
  35. 305 poke828,0
  36. 306 print chr$(147) chr$(17)
  37. 307 print "load"chr$(34);"spielete*";chr$(34); ",8
  38. 308 [153] [199](17) [199](17) [199](17) [199](17) "run"
  39. 309 [151]631,13:[151]632,13:[151]198,2
  40. 310 [153] [199](19);:[128]
  41. 400 [153]"load"
  42. 401 [153]"valstr$right$(NULL)(NULL)(NULL)right$atn(NULL)"
  43. 402 [153]"(NULL)eite 1 einlegen und (NULL)atn(NULL)(NULL)val"
  44. 403 [161]a$:[139]a$[178]""[167]403
  45. 405 [151]828,0
  46. 406 [153] [199](147) [199](17)
  47. 407 [153] "load"[199](34);"editoria*";[199](34); ",8
  48. 408 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
  49. 409 poke631,13:poke632,13:poke198,2
  50. 410 print chr$(19);:end
  51. 505 poke828,0
  52. 506 print chr$(147) chr$(17)
  53. 507 print "load"chr$(34);"inhalt";chr$(34); ",8
  54. 508 [153] [199](17) [199](17) [199](17) [199](17) "run"
  55. 509 [151]631,13:[151]632,13:[151]198,2
  56. 510 [153] [199](19);:[128]
  57. 600 [158]64738
  58.