home *** CD-ROM | disk | FTP | other *** search
/ Power Disk 64 1998 4 / Power_Disk_64_98-04_1998_Lagune_de_Side_B.d64 / p.r.g.s (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  56 lines
  1. 0 print"[153][147]":poke53280,12: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].[210].[199].s 4/98      "
  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]: [210]ed [196]ust            2 = [197]xtrashit"
  6. 6 print"3 = [202]asmyne [210]onda - [198]emale [193]gent/           [208]review"
  7. 7 print"4 = [215]itze [195]ollection             5 = [195]lassic: [211]chool [207]f [196]oom"
  8. 8 print"6 = [205]ain [205]enu"
  9. 9 print"7 = [210][197][211][197][212]"
  10. 10 input"[215]elche [206]ummer ";a:print"[145][145][145]"
  11. 11 if a<1 or a>7 then0
  12. 12 if a = 1 then goto106
  13. 13 if a = 2 then goto200
  14. 14 if a = 4 then goto400
  15. 15 if a = 6 then goto500
  16. 16 if a = 7 then goto600
  17. 18 if a = 3 then goto700
  18. 19 if a = 5 then goto300
  19. 106 poke828,0
  20. 107 print chr$(147) chr$(17)
  21. 108 print "load"chr$(34);"red*";chr$(34); ",8,1
  22. 109 [153] [199](17) [199](17) [199](17) [199](17) "run"
  23. 110 [151]631,13:[151]632,13:[151]198,2
  24. 111 [153] [199](19);:[128]
  25. 200 [151]828,0
  26. 201 [153] [199](147) [199](17)
  27. 202 [153] "load"[199](34);"ext*";[199](34); ",8
  28. 203 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
  29. 204 poke631,13:poke632,13:poke198,2
  30. 205 print chr$(19);:end
  31. 300 poke828,0
  32. 301 print chr$(147) chr$(17)
  33. 302 print "load"chr$(34);"scho*";chr$(34); ",8
  34. 303 [153] [199](17) [199](17) [199](17) [199](17) "run"
  35. 304 [151]631,13:[151]632,13:[151]198,2
  36. 305 [153] [199](19);:[128]
  37. 400 [151]828,0
  38. 401 [153] [199](147) [199](17)
  39. 402 [153] "load"[199](34);"witze (1)";[199](34); ",8
  40. 403 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
  41. 404 poke631,13:poke632,13:poke198,2
  42. 405 print chr$(19);:end
  43. 500 poke828,0
  44. 501 print chr$(147) chr$(17)
  45. 502 print "load"chr$(34);"main*";chr$(34); ",8
  46. 503 [153] [199](17) [199](17) [199](17) [199](17) "run"
  47. 504 [151]631,13:[151]632,13:[151]198,2
  48. 505 [153] [199](19);:[128]
  49. 600 [158]64738
  50. 700 [151]828,0
  51. 701 [153] [199](147) [199](17)
  52. 702 [153] "load"[199](34);"jasm*";[199](34); ",8
  53. 703 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
  54. 704 poke631,13:poke632,13:poke198,2
  55. 705 print chr$(19);:end
  56.