home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / GLUTTON.SFX / glutton (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-02-14  |  7.2 KB  |  188 lines
  1. 0 IFPEEK(53280)<>241THENPOKE53280,1:LOAD"GSPRT",8,1
  2. 1 IFPEEK(53280)=241THENFL=1
  3. 2 MN=5:PRINTCHR$(142);CHR$(8);
  4. 3 REM A. MANIKAS
  5. 4 POKE994,0:POKE995,0:POKE996,0
  6. 5 POKE53272,30:POKE808,225
  7. 6 POKE53271,0:POKE53277,0:POKE53275,0:POKE53276,160:POKE54296,0
  8. 8 POKE53269,255:POKE53249,123:POKE53251,123:POKE53248,200:POKE53250,128
  9. 9 POKE53264,32:POKE53248+39,7:POKE53248+40,2:POKE2040,192:POKE2041,198
  10. 10 POKE53280,0:POKE53281,0:PRINT"[147]";
  11. 20 POKE999,MN:BN=0
  12. 25 POKE2047,199
  13. 100 PRINT"[147][154][213][195][195][195][195][195][195][195][195][201]   [194][158] [154][194]   [213][195][195][195][195][201][213][195][195][195][195][201]":BN=BN+1
  14. 101 PRINT"[194][158]::[209][158]:::::[154][194]   [194][158] [154][194]   [194][158]:::[209][154][202][203][158]::::[154][194]"
  15. 102 PRINT"[194][158]:[154][213][195][201][158]:[154][213][201][158]:[154][194]   [194][158] [154][194]   [194][158]:[154][213][201][158]::::[154][213][201][158]:[154][194]":IFGF>209THENGF=209
  16. 103 PRINT"[154][194][158]:[154][194] [194][158]:[154][194][194][158]:[154][194]   [194][158] [154][194]   [194][158]:[154][194][202][195][195][201][158]:[154][194][194][158]:[154][194]"
  17. 104 PRINT"[194][158]:[154][202][195][203][158]:[154][202][203][158]:[154][202][195][195][195][203] [202][195][195][195][203][158]:[154][202][195][195][195][203][158]:[154][194][194][158]:[154][194]"
  18. 105 PRINT"[194][158]::::::::::::::::::::::::::[154][194][194][158]:[154][194]":POKE53278,0
  19. 106 PRINT"[194][158]:[154][213][195][201][158]:[154][213][195][195][195][195][195][195][201][158] [154][213][195][195][195][201][158]:[154][213][201][158]:[154][213][195][195][203][194][158]:[154][194]"
  20. 107 PRINT"[194][158]:[154][194] [194][158]:[154][202][195][195][201][213][195][195][203][158] [154][202][195][195][195][203][158]:[154][194][194][158]:[154][202][195][195][201][194][158]:[154][194]"
  21. 108 PRINT"[194][158]:[154][202][195][203][158]::::[154][202][203][158]         :[154][202][203][158]::::[154][202][203][158]:[154][194]
  22. 109 [153]"PEEKSYS:::::CONT(null)RIGHT$SYS::: CONTOR***^SYS CONT(null)RIGHT$SYS::::CONT(null)RIGHT$SYS::::CONTPEEK
  23. 110 PRINT"[202][195][195][195][201][158]:[154][194][202][195][195][201][158] [154][194]   [194][158] [154][194][202][195][195][201][158][160][154][194][202][195][195][201][158]:[154][194]
  24. 111 [153]"(null)LENLENLEN(null)SYS:CONTPEEK(null)LENLEN(null)SYS CONTPEEK   PEEKSYS CONTPEEK(null)LENLEN(null)SYS CONTPEEK(null)LENLEN(null)SYS:CONTPEEK
  25. 112 PRINT"[194][158]:::::[154][202][203][158]::: [154][173][195][195][195][189][158] [154][202][203][158]::::[154][202][203][158]::::[154][194]
  26. 113 [153]"PEEKSYS:CONT(null)LENRIGHT$SYS::::CONT(null)RIGHT$SYS         :CONT(null)RIGHT$SYS::::CONT(null)RIGHT$SYS:CONTPEEK
  27. 114 PRINT"[194][158]:[154][194] [194][158]:[154][213][195][195][203][202][195][195][201][158] [154][213][195][195][195][201][158]:[154][194][194][158]:[154][213][195][195][203][194][158]:[154][194]
  28. 115 [153]"PEEKSYS:CONTMID$LEN(null)SYS:CONTMID$LENLENLENLENLENLEN(null)SYS CONTMID$LENLENLEN(null)SYS:CONTMID$(null)SYS:CONTMID$LENLENRIGHT$PEEKSYS:CONTPEEK
  29. 116 PRINT"[194][158]::::::::::::::::::::::::::[154][194][194][158]:[154][194]"
  30. 117 PRINT"[194][158]:[154][213][195][201][158]:[154][213][201][158]:[154][213][195][195][195][201] [213][195][195][195][201][158]:[154][213][195][195][195][201][158]:[154][194][194][158]:[154][194]"
  31. 118 PRINT"[154][194][158]:[154][194] [194][158]:[154][194][194][158]:[154][194]   [194][158] [154][194]   [194][158]:[154][194][213][195][195][203][158]:[154][194][194][158]:[154][194]"
  32. 119 PRINT"[194][158]:[154][202][195][203][158]:[154][202][203][158]:[154][194]   [194][158] [154][194]   [194][158]:[154][202][203][158]::::[154][202][203][158]:[154][194]"
  33. 120 PRINT"[194][158]::[209][158]:::::[154][194]   [194][158] [154][194]   [194][158]:::[209][154][213][201][158]::::[154][194]"
  34. 121 PRINT"[202][195][195][195][195][195][195][195][195][203][160][160][160][194][158] [154][194][160][160][160][202][195][195][195][195][203][202][195][195][195][195][203]
  35. 160 [153]"CLR    THEFOR ACEGIKMOMOSYSQSFORUWWAIT   OPENPROGRAMMED BY"
  36. 170 [153]"        BDFHJLNPNPSYSRTVXWAIT   OPENLISTA. S. MANIKAS":VD[178]784
  37. 171 [153]"";:[151]211,32:[153]"SCORE\CLR":[151]211,32:[153]"MEN LEFT"
  38. 173 [153]"":[151]211,32:[153]"OPENBOARD #SYS"
  39. 174 [151]211,34:B$[178][196](BNO):B$[178][201](B$,[195](B$)[171]1):[139][195](B$)[178]1[167]B$[178]"0"[170]B$
  40. 175 [153]B$:X[178]BNO:[139]X[177]11[167]X[178]11
  41. 176 L[178]BNO[172]2:[139]L[177]38[167]L[178]38
  42. 180 [141]4000
  43. 181 [139]FL[178]1[167]FL[178]0:[137]301
  44. 185 [153]"":[151]211,32
  45. 186 [153]"PRINTVALUE\":[151]211,33:[153]"SYS";PS$;""
  46. 193 [139]BN[177]1[167]200
  47. 194 [129]L[178]54272[164]54296:[151]L,0:[130]:[151]54296,15:[151]54277,8:[151]54278,255
  48. 195 [151]54276,23:[129]Z[178]1[164]3:F1[178]15:[129]Y[178]1[164]3:F2[178]13:[151]54273,F1:[129]X[178]1[164]5
  49. 196 [151]54287,F2:F2[178]F2[172]1.4:[130]:F1[178]F1[172]1.3:[130]:[129]W[178]1[164]5:[151]54287,F2
  50. 197 F2[178]F2[172]1.2:[130]:[130]:[151]54278,15
  51. 200 [143] THE GLUTTON! C-64
  52. 205 [158] 49152
  53. 210 M[178][194](999):[139]M[178]0[167]290
  54. 211 [139]BN[178]2[176]BN[178]5[176]BN[178]9[167][141]500
  55. 212 [151]53269,255:[151]53249,123:[151]53251,123:[151]53248,200:[151]53250,128
  56. 213 [151]53264,128:[151]53248[170]39,7:[151]53248[170]40,2:[151]2040,192:[151]2041,198
  57. 220 [137]100
  58. 290 [129]L[178]54272[164]54296:[151]L,0:[130]:[151]54296,15:[151]54277,8:[151]54278,255
  59. 291 [151]54276,21:F2[178]255:[129]Z[178]1[164]50[169]2:[151]54287,F2:[129]F1[178]255[164]0[169][171]25
  60. 292 [151]54273,F1:[130]:F2[178]F2[171].7:[130]:[151]54278,15
  61. 300 [143] SKA
  62. 301 [153]"":[151]211,32
  63. 302 [153]"DEF  PUSH":[151]2041,198:[151]53248[170]40,2
  64. 303 [151]211,32:[153]"JOYSTICK"
  65. 304 [151]211,32:[153]"ONCONT BUTTON":[151]53269,255:[151]53264,128
  66. 305 [151]211,33:[153]"PRINT  ^  ":[151]53249,123:[151]53251,12:[151]53248,200
  67. 306 [151]211,33:[153]"  (null)  ":[151]53250,128:[151]53248[170]39,7:[151]2040,192
  68. 307 [151]2047,199
  69. 310 K[178][194](56320)[175]16:[139]K[178]0[167]310
  70. 311 Q[178]0:C[178]0:[151]54296,15:[151]54278,15:[151]54277,8:[151]54276,33:[151]54272,100
  71. 312 C[178]C[170]1:[139]C[178]4[167]C[178]0:Q[178]1[171]Q:[151]54276,32:[151]54276,33:[151]54273,82[171]Q[172]20
  72. 313 [151]1819[170]54272,7[171]7[172]Q:[151]1779[170]54272,C
  73. 314 [151]55339,Q:[151]55359,Q:[151]56099,Q:[151]56119,Q
  74. 320 K[178][194](56320)[175]16:[139]K[179][177]0[167]312
  75. 330 [151]53280,1:[156]:[151]54296,0:[137]2
  76. 500 [153]"LOAD         FORYOU HAVE WON AN EXTRA":[151]53269,0
  77. 501 [151]54296,15:[151]54277,37:[151]54278,0:[129]J[178]1[164]200[169]5:[151]54276,32
  78. 502 [151]54276,33:[151]54273,J:[151]54272,100:[151]54283,16:[151]54283,17
  79. 503 [151]54280,J[173]1.5:[151]54279,80:[130]:[151]54296,0
  80. 505 Q[178]0:[151]53269,0
  81. 510 A$[178]" CLRACEGIKMOMOSYSQSCLRUWWAIT "
  82. 520 B$[178]" OPENBDFHJLNPNPSYSRTOPENVXWAIT "
  83. 530 [129]J[178]1[164]23:[153]"":[151]211,J:[153]A$:[151]211,23[171]J:[153]B$
  84. 640 [129]K[178]1[164]40:[130]:[130]
  85. 730 [129]J[178]22[164]11[169][171]1:[153]"":[151]211,J
  86. 740 [153]A$
  87. 750 [151]211,22[171]J:[153]B$:[129]K[178]1[164]30:[130]:[130]
  88. 756 [139]BNO[177]6[167][141]3000:[137]770
  89. 757 [139]BNO[177]3[167][141]2000:[137]770
  90. 760 [141]1000:[137]770
  91. 761 [129]L[178]54272[164]54295:[151]L,0:[130]:[151]54296,15:[151]54277,8:[151]54278,255
  92. 762 [151]54276,23:[129]Z[178]1[164]3:F1[178]10:[129]Y[178]1[164]6:F2[178]50:[151]54273,F1:[129]X[178]1[164]3
  93. 763 [151]54287,F2:F2[178]F2[173]1.2:[130]:F1[178]F1[172]1.5:[130]:[129]W[178]1[164]8:[151]54273,F1
  94. 764 [151]54287,5:[129]V[178]1[164]5:[130]:F1[178]F1[173]1.5:[130]:[130]:[151]54278,15
  95. 765 [137]780
  96. 770 [153]:[153]:[153]:[153]"       KEEP GOING, AND GOOD LUCK!":[137]761
  97. 780 [142]
  98. 1000 [151]53280,0:[151]53281,0:[151]53269,0:[151]53248,255:[151]53250,235
  99. 1020 [151]53249,150:[151]53251,150:Q[178]0:V[178]20:[151]53269,3
  100. 1025 [151]2040,197:[151]53248[170]39,2:[151]53248[170]40,7
  101. 1030 [129]J[178]235[164]0[169][171]4:Q[178]1[171]Q:[151]2041,192[170]Q[172]2
  102. 1040 [151]53250,J:K[178]J[170]V:[151]53248,K:V[178]V[171].17
  103. 1050 [129]W[178]1[164]40:[130]:[130]
  104. 1060 [151]53248,0:[151]53250,0:[129]WT[178]1[164]250:[130]:X[178]42:V[178]0
  105. 1065 [151]53249,138:[151]2040,199:[151]2041,198:[151]53248[170]39,7:[151]53248[170]40,6
  106. 1070 [151]53277,1:[151]53271,1:[129]J[178]0[164]255[169]4:[151]53250,J:V[178]V[171].28
  107. 1080 K[178]J[171](X[170]V):[139]K[179]0[167]K[178]0:[151]2040,199:[137]1100
  108. 1090 [151]53248,K:Q[178]1[171]Q:[151]2040,192[170]Q
  109. 1100 [129]W[178]1[164]40:[130]:[130]
  110. 1110 [151]53271,0:[151]53277,0:[151]53269,0:[142]
  111. 2000 [151]53280,0:[151]53281,0:[151]53269,0:[151]53248,255:[151]53250,235:FF[178]0
  112. 2005 [153]"":[153]"CONTLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^CMD/LENLENEXPCMDONORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN"
  113. 2020 [151]53249,149:[151]53251,149:Q[178]0:V[178]20:[151]53269,3:WT[178]40:T[178][255]
  114. 2025 [151]2040,197:[151]53248[170]39,2:[151]53248[170]40,7
  115. 2030 [129]J[178]235[164]0[169][171]4:Q[178]1[171]Q:[151]2041,192[170]Q[172]2
  116. 2040 [151]53250,J:K[178]J[170]V:[139]FF[178]0[167][151]53248,K:V[178]V[171].17
  117. 2041 [139]J[177]149[175]J[179]183[167]T[178]T[170][255][173]11:[151]53251,150[170]13[172][191](T)
  118. 2042 [139]J[179]150[167]FF[178]1:[151]53249,154:[151]53251,150:WT[178]WT[171].5
  119. 2050 [129]W[178]1[164]WT:[130]:[130]
  120. 2060 [151]53250,0:[129]WT[178]1[164]300:[130]:[129]X[178]0[164]145[169]4:[151]53250,X:Q[178]1[171]Q
  121. 2070 [151]2041,192[170]Q:[129]WT[178]1[164]45:[130]:[130]
  122. 2075 [153]"SYSHACMDHA"
  123. 2080 [129]J[178]1[164]11:Q[178]1[171]Q:[151]2041,192[170]Q:[129]WT[178]1[164]90:[130]:[130]
  124. 2090 [153]"":[142]
  125. 3000 [151]53280,0:[151]53281,0:[151]53269,0:[151]53248,0:[151]53250,235
  126. 3010 [151]53264,0
  127. 3020 [151]53249,149:[151]53251,149:Q[178]0:V[178]20:[151]53269,3
  128. 3025 [151]2040,197:[151]53248[170]39,2:[151]53248[170]40,7
  129. 3030 [129]J[178]0[164]195[169]4
  130. 3040 [151]53250,J:Q[178]1[171]Q:[151]2041,192[170]Q:[129]WT[178]1[164]18:[130]:[130]
  131. 3045 [151]53250,195
  132. 3050 [151]2041,193:[129]WT[178]1[164]225:[130]
  133. 3060 [151]2041,196:[129]WT[178]1[164]225:[130]
  134. 3070 [151]2041,194:[129]WT[178]1[164]225:[130]
  135. 3080 [151]2041,195:[129]WT[178]1[164]200:[130]
  136. 3090 [151]1565,33:[129]J[178]1[164]5
  137. 3100 [151]1565[170]54272,1:[129]WT[178]1[164]130:[130]:[151]1565[170]54272,0:[129]WT[178]1[164]80:[130]:[130]
  138. 3110 [151]1565,32
  139. 3120 [129]Y[178]150[164]130[169][171]4:[151]53251,Y:Q[178]1[171]Q:[151]2041,192[170]3[172]Q
  140. 3130 [129]WT[178]1[164]40:[130]:[130]
  141. 3131 [151]1406,32:[151]1407,32:[151]1446,32:[151]1447,32
  142. 3132 [129]Y[178]130[164]120[169][171]2:[151]53251,Y:Q[178]1[171]Q:[151]2041,192[170]3[172]Q
  143. 3133 [129]WT[178]1[164]18:[130]:[130]
  144. 3140 [151]2041,193:[151]53251,120
  145. 3150 [129]J[178]0[164]178[169]4:[151]53248,J:[129]WT[178]1[164]30:[130]:[130]:[129]WT[178]1[164]180:[130]
  146. 3160 [151]1524,63
  147. 3170 [129]J[178]1[164]10:[151]1524[170]54272,5:[129]WT[178]1[164]100:[130]:[151]1524[170]54272,0
  148. 3180 [129]WT[178]1[164]80:[130]:[130]:[129]WT[178]1[164]200:[130]
  149. 3190 [129]J[178]178[164]255[169]4:[151]53248,J:[129]WT[178]1[164]30:[130]:[130]
  150. 3200 [151]53264,1:[129]J[178]0[164]100[169]4:[151]53248,J:[129]WT[178]1[164]30:[130]:[130]
  151. 3210 [142]
  152. 3220 [143] THIS IS THE END!!!!!!
  153. 4000 [139]X[178]1[167]A[178]31:G[178]255:B[178]254:C[178]255:D[178]255:H[178]254:I[178]253:J[178]240:F[178]60:P[178]75
  154. 4005 [139]X[178]1[167][151]784,30:M1[178]2:M2[178]1:M3[178]5:NT[178]2
  155. 4010 [139]X[178]2[167]A[178]31:G[178]253:F[178]59:P[178]70:B[178]254:C[178]255:D[178]254:H[178]253:I[178]253:J[178]239
  156. 4015 [139]X[178]2[167][151]784,29:M1[178]2:M2[178]1:M3[178]5:NT[178]4
  157. 4020 [139]X[178]3[167]A[178]15:G[178]253:F[178]58:P[178]72:B[178]253:C[178]252:D[178]254:H[178]253:I[178]252:J[178]239
  158. 4025 [139]X[178]3[167][151]784,28:M1[178]13:M2[178]1:M3[178]7:NT[178]6
  159. 4030 [139]X[178]4[167]A[178]15:G[178]252:F[178]57:P[178]65:B[178]248:C[178]248:D[178]250:H[178]250:I[178]248:J[178]239
  160. 4035 [139]X[178]4[167][151]784,27:M1[178]13:M2[178]1:M3[178]8:NT[178]10
  161. 4040 [139]X[178]5[167]A[178]7:G[178]248:F[178]50:P[178]55:[151]VD,25:B[178]31:C[178]127:D[178]240:H[178]240:I[178]240:J[178]31
  162. 4045 [139]X[178]5[167][151]784,25:M1[178]5:M2[178]1:M3[178]2:NT[178]14
  163. 4050 [139]X[178]6[167]A[178]7:G[178]248:F[178]49:P[178]68:B[178]31:C[178]127:D[178]240:H[178]240:I[178]240:J[178]15
  164. 4055 [139]X[178]6[167][151]784,24:M1[178]5:M2[178]9:M3[178]7:NT[178]16
  165. 4060 [139]X[178]7[167]A[178]7:G[178]240:F[178]48:P[178]52:B[178]15:C[178]31:D[178]127:H[178]15:I[178]240:J[178]31
  166. 4065 [139]X[178]7[167][151]784,23:M1[178]5:M2[178]9:M3[178]7:NT[178]20
  167. 4070 [139]X[178]8[167]A[178]7:G[178]224:F[178]47:P[178]47:B[178]15:C[178]15:D[178]63:H[178]31:I[178]31:J[178]7
  168. 4075 [139]X[178]8[167][151]784,22:M1[178]9:M2[178]1:M3[178]5:NT[178]40
  169. 4080 [139]X[178]9[167]A[178]5:G[178]192:F[178]42:P[178]35:B[178]7:C[178]7:D[178]31:H[178]31:I[178]31:J[178]15
  170. 4085 [139]X[178]9[167][151]784,20:M1[178]7:M2[178]1:M3[178]3:NT[178]60
  171. 4090 [139]X[178]10[167]A[178]3:G[178]253:B[178]5:H[178]192:C[178]15:I[178]31:D[178]31:J[178]7:F[178]41:P[178]55:[151]VD,19
  172. 4091 K[178]BN[172]3:[139]K[177]60[167]K[178]60
  173. 4095 [139]X[177]9[167]NT[178]100:M1[178]6:M2[178]4:M3[178]14
  174. 4110 [139]X[178]11[167]A[178]1:G[178]254:F[178]62[171]L
  175. 4115 [139]X[178]11[167]P[178]61[171]K:[151]VD,18:B[178]3:C[178]7:D[178]15:H[178]250:I[178]240:J[178]15
  176. 4120 [151]1000,A:[151]1001,B:[151]1002,C:[151]1003,D:[151]1023,F:[151]997,P
  177. 4130 [151]1005,H:[151]1004,G
  178. 4140 [151]1006,I:[151]1007,J:[139]BN[178]10[176]BN[178]3[176]BN[178]6[167][151]999,[194](999)[170]1
  179. 4150 Q[178]203[170]X:[139]Q[177]213[167]Q[178]213
  180. 4160 [151]699,Q:[151]53248[170]44,M1:[151]53285,M2:[151]53286,M3:[151]53276,32
  181. 4170 [151]53248[170]45,1:[151]53264,128:[151]53248[170]46,M1:[151]2047,Q
  182. 4180 [151]53262,34:[151]53263,162
  183. 4185 [151]698,NT
  184. 4190 PS[178]50[172]NT:PS$[178][196](PS):PS$[178][201](PS$,[195](PS$)[171]1)
  185. 4200 [139][195](PS$)[178]3[167]PS$[178]" "[170]PS$
  186. 4205 [151]53276,160
  187. 4210 [142]
  188.