home *** CD-ROM | disk | FTP | other *** search
/ PD 64 Classic 2 / PD_64_Classic_2_2000_-_Side_A.d64 / p.r.g.s (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  143 lines
  1. 0 print"[153][147]":poke53280,12:poke53281,0
  2. 1 print"[145][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].[210].[199].s                "
  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"[145][198]uer alle [208].[210].[199].s [211]eite 2 einlegen !!!!":print"[159]1 = [214]ampyre [197]mpire"
  6. 5 print"2 = [206]o [211]moke"
  7. 6 print"3 = [193]rschi - [212]he [199]ame"
  8. 7 print"4 = [211]too hat gepennt"
  9. 9 print"5 = [196]ogl. [193]pro. [211]croll"
  10. 10 print"6 = [194]ejah [211]croll"
  11. 11 print"7 = [215]olkenkratzer"
  12. 12 print"8 = [210]aus hier"
  13. 13 print"9 = [193]rschgeburt"
  14. 14 print"10 = [211]creeneditor"
  15. 15 print"11 = [207]lli & [203]arl"
  16. 16 print"12 = [198]lugs getextet"
  17. 17 print"13 = 5-[205]in-[211]piel"
  18. 18 print"14 = [211]piel fuer [202]ens"
  19. 19 print"15 = [205]is1000000"
  20. 20 print"16 = [208]upsturnier"
  21. 21 print"17 = [205]ain [205]enu"
  22. 30 input"[215]as willst [196]u, [193]lter";a:print"[145][145][145]"
  23. 31 if a<1 or a>17 then0
  24. 32 if a = 1 then goto105
  25. 33 if a = 2 then goto205
  26. 34 if a = 3 then goto305
  27. 35 if a = 4 then goto405
  28. 36 if a = 5 then goto505
  29. 37 if a = 6 then goto605
  30. 38 if a = 7 then goto705
  31. 39 if a = 8 then goto805
  32. 40 if a = 9 then goto905
  33. 41 if a =10 then goto1005
  34. 42 if a =11 then goto1105
  35. 43 if a =12 then goto1205
  36. 44 if a =13 then goto1305
  37. 45 if a =14 then goto1405
  38. 46 if a =15 then goto1505
  39. 47 if a =16 then goto1605
  40. 48 if a =17 then goto1705
  41. 105 poke828,0
  42. 106 print chr$(147) chr$(17)
  43. 107 print "load"chr$(34);"vamp*";chr$(34); ",8
  44. 108 [153] [199](17) [199](17) [199](17) [199](17) "run"
  45. 109 [151]631,13:[151]632,13:[151]198,2
  46. 110 [153] [199](19);:[128]
  47. 205 [151]828,0
  48. 206 [153] [199](147) [199](17)
  49. 207 [153] "load"[199](34);"no*";[199](34); ",8
  50. 208 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
  51. 209 poke631,13:poke632,13:poke198,2
  52. 210 print chr$(19);:end
  53. 305 poke828,0
  54. 306 print chr$(147) chr$(17)
  55. 307 print "load"chr$(34);"arsch*";chr$(34); ",8
  56. 308 [153] [199](17) [199](17) [199](17) [199](17) "run"
  57. 309 [151]631,13:[151]632,13:[151]198,2
  58. 310 [153] [199](19);:[128]
  59. 405 [151]828,0
  60. 406 [153] [199](147) [199](17)
  61. 407 [153] "load"[199](34);"stoo*";[199](34); ",8
  62. 408 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
  63. 409 poke631,13:poke632,13:poke198,2
  64. 410 print chr$(19);:end
  65. 505 poke828,0
  66. 506 print chr$(147) chr$(17)
  67. 507 print "load"chr$(34);"dogl*";chr$(34); ",8
  68. 508 [153] [199](17) [199](17) [199](17) [199](17) "run"
  69. 509 [151]631,13:[151]632,13:[151]198,2
  70. 510 [153] [199](19);:[128]
  71. 605 [151]828,0
  72. 606 [153] [199](147) [199](17)
  73. 607 [153] "load"[199](34);"bejah*";[199](34); ",8
  74. 608 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
  75. 609 poke631,13:poke632,13:poke198,2
  76. 610 print chr$(19);:end
  77. 705 poke828,0
  78. 706 print chr$(147) chr$(17)
  79. 707 print "load"chr$(34);"wolken*";chr$(34); ",8
  80. 708 [153] [199](17) [199](17) [199](17) [199](17) "run"
  81. 709 [151]631,13:[151]632,13:[151]198,2
  82. 710 [153] [199](19);:[128]
  83. 805 [151]828,0
  84. 806 [153] [199](147) [199](17)
  85. 807 [153] "load"[199](34);"raus*";[199](34); ",8
  86. 808 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
  87. 809 poke631,13:poke632,13:poke198,2
  88. 810 print chr$(19);:end
  89. 905 poke828,0
  90. 906 print chr$(147) chr$(17)
  91. 907 print "load"chr$(34);"arschge*";chr$(34); ",8
  92. 908 [153] [199](17) [199](17) [199](17) [199](17) "run"
  93. 909 [151]631,13:[151]632,13:[151]198,2
  94. 910 [153] [199](19);:[128]
  95. 1005 [151]828,0
  96. 1006 [153] [199](147) [199](17)
  97. 1007 [153] "load"[199](34);"screen*";[199](34); ",8
  98. 1008 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
  99. 1009 poke631,13:poke632,13:poke198,2
  100. 1010 print chr$(19);:end
  101. 1105 poke828,0
  102. 1106 print chr$(147) chr$(17)
  103. 1107 print "load"chr$(34);"olli*";chr$(34); ",8
  104. 1108 [153] [199](17) [199](17) [199](17) [199](17) "run"
  105. 1109 [151]631,13:[151]632,13:[151]198,2
  106. 1110 [153] [199](19);:[128]
  107. 1205 [151]828,0
  108. 1206 [153] [199](147) [199](17)
  109. 1207 [153] "load"[199](34);"flugs*";[199](34); ",8
  110. 1208 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
  111. 1209 poke631,13:poke632,13:poke198,2
  112. 1210 print chr$(19);:end
  113. 1305 poke828,0
  114. 1306 print chr$(147) chr$(17)
  115. 1307 print "load"chr$(34);"5-min*";chr$(34); ",8
  116. 1308 [153] [199](17) [199](17) [199](17) [199](17) "run"
  117. 1309 [151]631,13:[151]632,13:[151]198,2
  118. 1310 [153] [199](19);:[128]
  119. 1405 [151]828,0
  120. 1406 [153] [199](147) [199](17)
  121. 1407 [153] "load"[199](34);"spiel*";[199](34); ",8
  122. 1408 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
  123. 1409 poke631,13:poke632,13:poke198,2
  124. 1410 print chr$(19);:end
  125. 1505 poke828,0
  126. 1506 print chr$(147) chr$(17)
  127. 1507 print "load"chr$(34);"mis1*";chr$(34); ",8
  128. 1508 [153] [199](17) [199](17) [199](17) [199](17) "run"
  129. 1509 [151]631,13:[151]632,13:[151]198,2
  130. 1510 [153] [199](19);:[128]
  131. 1605 [151]828,0
  132. 1606 [153] [199](147) [199](17)
  133. 1607 [153] "load"[199](34);"pupstu*";[199](34); ",8
  134. 1608 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
  135. 1609 poke631,13:poke632,13:poke198,2
  136. 1610 print chr$(19);:end
  137. 1705 poke828,0
  138. 1706 print chr$(147) chr$(17)
  139. 1707 print "load"chr$(34);"saupac";chr$(34); ",8
  140. 1708 [153] [199](17) [199](17) [199](17) [199](17) "run"
  141. 1709 [151]631,13:[151]632,13:[151]198,2
  142. 1710 [153] [199](19);:[128]
  143.