home *** CD-ROM | disk | FTP | other *** search
/ PD 64 Classic 2 / PD_64_Classic_2_2000_-_Side_A.d64 / saupac (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  46 lines
  1. 0 print"[153][147]":poke53280,12:poke53281,0:gosub9000
  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][196]64 [195]lassic  #2            "
  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. 4 print"[159]1 = [208].[210].[199].s"
  6. 5 print"2 = [205]ix [211]upreme"
  7. 6 print"3 = [209]uestionnaire [195]orner"
  8. 7 print"4 = [199]runz, grunz !"
  9. 9 print"5 = [210][197][211][197][212]"
  10. 10 input"[215]as willst [196]u, [193]lter";a:print"[145][145][145]"
  11. 11 if a<1 or a>5 then0
  12. 12 if a = 1 then goto105
  13. 13 if a = 2 then goto205
  14. 14 if a = 3 then goto305
  15. 15 if a = 4 then goto400
  16. 16 if a = 5 then goto500
  17. 105 poke828,0
  18. 106 print chr$(147) chr$(17)
  19. 107 print "load"chr$(34);"p.r.g.s";chr$(34); ",8
  20. 108 [153] [199](17) [199](17) [199](17) [199](17) "run"
  21. 109 [151]631,13:[151]632,13:[151]198,2
  22. 110 [153] [199](19);:[128]
  23. 205 [151]828,0
  24. 206 [153] [199](147) [199](17)
  25. 207 [153] "load"[199](34);"mix*";[199](34); ",8
  26. 208 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
  27. 209 poke631,13:poke632,13:poke198,2
  28. 210 print chr$(19);:end
  29. 305 poke828,0
  30. 306 print chr$(147) chr$(17)
  31. 307 print "load"chr$(34);"quest*";chr$(34); ",8
  32. 308 [153] [199](17) [199](17) [199](17) [199](17) "run"
  33. 309 [151]631,13:[151]632,13:[151]198,2
  34. 310 [153] [199](19);:[128]
  35. 400 :
  36. 405 [151]828,0
  37. 406 [153] [199](147) [199](17)
  38. 407 [153] "load"[199](34);"grunz";[199](34); ",8
  39. 408 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
  40. 409 poke631,13:poke632,13:poke198,2
  41. 410 print chr$(19);:end
  42. 500 sys64738
  43. 9000 ifa=0thena=1:load"alle*",8,1
  44. 9001 sys49152
  45. 9002 return
  46.