home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_87-05_1987_Verlag_Heinz_Weise_de.d64 / pyramidon (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  23KB  |  199 lines
  1. 1 ifpeek(50307)=120thenpoke50257,16
  2. 4 v=53248:s=54272:s2=s+7:l=5:print"[147]"
  3. 6 pokev+32,0:pokev+33,0:pokev+34,7:pokev+35,7:pokev+21,0:pokev+24,29
  4. 8 cs=58640:as=14336:gosub10010
  5. 10 dimp(7,2):poke650,128
  6. 17 fort=1to5:readp$(t):next:p$(0)="":gosub10005:gosub10000
  7. 18 fort=0to4000:next
  8. 20 gosub9000:gosub6300:gosub4900:sp=1
  9. 30 fort=0to5:p(t,sp)=0:next:fori=1tol:p(i+6-l,sp)=i:next
  10. 40 fort=0to5:p(t,0)=0:p(t,2)=0:next:fort=0to2:p(7,t)=8:next
  11. 50 c(0)=7:c(1)=7-l:c(2)=7
  12. 400 data"[169][223]","[169]@@[223]","[169]@@@@[223]","[169]@@@@@@[223]","[169]@@@@@@@@[223]"
  13. 2000 print"[147][159]";:fort=0to10:printtab(rnd(1)*39)".":next:print"[155]";
  14. 2010 print"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@";
  15. 2011 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]";
  16. 2013 print"[146]         entfernung des kometen"
  17. 2015 print"        [156]                [156]                ":poke253,63
  18. 2020 poke254,0:pokev+12,116:pokev+14,228:pokev+27,0
  19. 2030 pokev+13,191:pokev+15,191
  20. 2040 pokev+28,192:poke2046,254:poke2047,254:pokev+38,9:pokev+45,5:pokev+46,5
  21. 2045 pokev+23,0:pokev+29,6:pokev+16,0:pokev+40,7:pokev+41,7
  22. 2050 print"[155]";
  23. 2060 fort=0to6:printtab(15)p$(p(t,1)):next
  24. 2070 pokev+1,0:pokev+21,193:pokev+39,12:y=72:y2=170:y1=170:x=130:f=0
  25. 2075 pokes,100:pokes+1,170:pokes+5,16*8:pokes+6,240:poke251,100:poke252,2
  26. 2077 pokes+24,15:pokes+4,49:poke2040,250
  27. 2080 fort=0to200:pokev+1,30+t/2:sysas+100:y=y+t/200:pokev,y:next
  28. 2100 poke198,0
  29. 2105 j=peek(56320):geta$
  30. 2110 if((jand8)=0ora$="/")andsp<2then2700
  31. 2120 if((jand4)=0ora$=".")andsp>0then2800
  32. 2130 if(jand2)=0ora$="z"then2600
  33. 2140 sysas+100:ifpeek(1944)=160then2105
  34. 2150 goto7000
  35. 2500 sysas+79:x=x-1:ifpeek(1944)<>160then7000
  36. 2510 geta$:if(peek(56320)and2)=0ora$="z"then2620
  37. 2520 ifx>130then2500
  38. 2530 iff>0thenc(sp)=c(sp)+1
  39. 2540 goto2100
  40. 2600 iff=0then2620
  41. 2610 c(sp)=c(sp)-1
  42. 2620 sysas+91:x=x+1:ifpeek(1944)<>160then7000
  43. 2630 geta$:if((peek(56320))and1)=0ora$="a"then2500
  44. 2640 ifx<140+(c(sp))*8then2620
  45. 2650 iff=0then2670
  46. 2655 iff>=p(c(sp)+1,sp)then4000
  47. 2660 p(c(sp),sp)=f:poke214,13+c(sp):poke211,1+14*sp:syscs:printp$(f):f=0
  48. 2665 pokev+21,193:ifsp<>1andc(sp)=7-lthen3000
  49. 2666 goto2690
  50. 2670 ifc(sp)=7then2690
  51. 2675 f=p(c(sp),sp):poke214,13+c(sp):poke211,1+14*sp:syscs
  52. 2680 onfgosub2695,2696,2697,2698,2699:poke2041,bl:poke2042,bl
  53. 2681 pokev+16,int(sp/2)+int(y1/256)*2+int(y2/256)*4
  54. 2682 pokev+2,y1and255:pokev+4,y2and255
  55. 2683 pokev+3,x+14:pokev+5,x+14
  56. 2685 pokev+21,199:print"          "
  57. 2690 geta$:if(peek(56320)and1)=0ora$="a"then2500
  58. 2693 sysas+100:fort=0to10:next:ifpeek(1944)=160then2690
  59. 2694 goto7000
  60. 2695 bl=240:y1=y-12:y2=y1:return
  61. 2696 bl=241:y1=y-12:y2=y1:return
  62. 2697 bl=242:y1=y-12:y2=y1:return
  63. 2698 bl=242:y1=y-20:y2=y1+16:return
  64. 2699 bl=242:y1=y-28:y2=y1+32:return
  65. 2700 fort=0to111
  66. 2710 sysas+44:y=y+1:fori=0to7:next:ifpeek(1944)<>160then7000
  67. 2720 next:sp=sp+1:goto2100
  68. 2800 fort=0to111
  69. 2810 sysas:y=y-1:fori=0to7:next:ifpeek(1944)<>160then7000
  70. 2820 next:sp=sp-1:goto2100
  71. 3000 print"[158][158]       sie haben die pyramide vor"
  72. 3010 print"        der zerstoerung gerettet."
  73. 3020 print"    fuer ihre leistung erhalten sie"
  74. 3030 pu=0:pokeas+176,1:poke2,1:hh=peek(253)-(peek(254)=0)*256:se=10^(l-2)
  75. 3040 fort=1tohh:pu=pu+se:sysas+100:print"          ";
  76. 3050 printright$("       "+str$(pu),7)" punkte.":next:pokeas+176,60
  77. 3060 fort=0to1000:next:gosub8000:gosub8500:goto4120
  78. 4000 fort=0to1:w=v+t*2
  79. 4010 pokew+6,peek(w+2):pokew+7,peek(w+3):poke2043+t,peek(2041+t):next
  80. 4020 pokev+42,7:pokev+43,7:pokev+29,30
  81. 4030 pokev+16,((peek(v+16)and6)*4)orpeek(v+16):pokev+27,255
  82. 4040 pokev+21,223:pokev+40,0:pokev+41,0
  83. 4050 fort=peek(v+3)to210:fori=3to9step2:pokev+i,t:next
  84. 4055 pokes2+1,10:pokes2+5,6*16+3:pokes2+6,160+6:pokes2+4,129
  85. 4060 poke2041,t-100:poke2042,t-100:sysas+100:next
  86. 4070 pokes2+4,128:pokes+4,48
  87. 4100 print"[158][158]       sie haben einen teil der"
  88. 4110 print"          pyramide zerstoert ."
  89. 4120 geta$:if(peek(56320)and16)anda$<>" "then4120
  90. 4130 goto20
  91. 4900 gosub5000
  92. 4910 on6-lgosub6000,6100,6200
  93. 4920 geta$:ifa$<>"[133]"then4950
  94. 4930 l=l+1:ifl>5thenl=3
  95. 4940 goto4910
  96. 4950 if(peek(56320)and16)anda$<>" "then4920
  97. 4960 goto6300
  98. 5000 poke53280,6:poke53281,0
  99. 5010 print"[147]"spc(13)"[158][164][164][164][164][164][164][164][164][164][164][164][164][164]
  100. 5020 [153][166]12)"step@@pyramidon@@(NULL)
  101. 5030 print
  102. 5040 print"   sie, ein genialer astronom, haben
  103. 5050 [153]
  104. 5060 [153]"   einen kometen entdeckt, der nach
  105. 5070 print
  106. 5080 print"    ihren berechnungen genau in die
  107. 5100 [153][166]11)"einschlagen wird.
  108. 5110 print
  109. 5120 printspc(6)"druecken sie den feuerknopf,
  110. 5130 [153]
  111. 5140 [153]"  um mit ihrem raumschiff die pyramide
  112. 5150 print
  113. 5160 print"   an einen anderen ort zu stellen!
  114. 5170 [153]
  115. 5180 [153][166]6)"doch seien sie vorsichtig!":[142]
  116. 6000 [143]
  117. 6010 [153]""
  118. 6020 [153][166]8)"liststep{$7f}
  119. 6030 printspc(7)"[169]@@[223]
  120. 6040 [153][166]6)"step@@@@(NULL)
  121. 6050 print" [158](f1)[155][169]@@@@@@[223][146]   [159]cheops - pyramide "
  122. 6060 print"    [155][169]@@@@@@@@[223]
  123. 6070 [142]
  124. 6100 [143]
  125. 6110 [153]"          "
  126. 6120 [153]"        liststep(NULL)wait    "
  127. 6130 [153]"       step@@(NULL)wait    "
  128. 6140 [153]" sys(f1)list step@@@@(NULL)wait   openchephren - pyramide
  129. 6150 print"[155]     [169]@@@@@@[223][146] "
  130. 6170 return
  131. 6200 rem
  132. 6210 print"          "
  133. 6220 print"                 "
  134. 6230 print"        [155][169][223][146]    "
  135. 6240 print" [158](f1)[155]  [169]@@[223][146]   [159]mykerinos - pyramide
  136. 6250 [153]"list      step@@@@(NULL)wait   "
  137. 6270 [142]
  138. 6300 [143]
  139. 6310 [153]"list";:[151]v[170]17,11:[151]16383,0:[151]v[170]21,0
  140. 6320 [129]t[178]0[164]23:[153]"step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)";:[130]
  141. 6330 [153]"step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)step(NULL)(NULL)cmdsavestep":[151]v[170]32,0:[151]v[170]33,2
  142. 6340 [151]v[170]17,27
  143. 6350 [129]i[178]0[164]3:[129]t[178]0[164]24:[151]s[170]t,0:[130]t,i
  144. 6360 [151]v[170]17,11:[151]v[170]33,0:[153]"load":[151]v[170]17,27:[151]2,200:[151]198,0
  145. 6370 [142]
  146. 7000 [141]8000:[141]8500
  147. 7010 [153]"syssys     sie haben es nicht geschafft"
  148. 7020 [153]"        die pyramide zu retten."
  149. 7030 [137]4120
  150. 8000 [153]"stop                                        ";
  151. 8005 [153]"                                        "
  152. 8010 [151]253,63:[151]254,0:[142]
  153. 8500 [129]t[178]0[164]11:[158]as[170]100:[129]i[178]0[164]20:[130]i,t
  154. 8600 [129]t[178][194](v[170]1)[164]0[169][171]1:[158]as[170]79:[129]i[178]0[164]20:[130]i,t
  155. 8610 [129]t[178]0[164]2:[151]v[170]2[172]t,155:[151]v[170]1[170]2[172]t,0:[130]:[151]v[170]21,198:[151]s[170]4,32
  156. 8615 [129]t[178]0[164]1000:[130]:[151]s[170]6,252
  157. 8620 [151]s[170]4,129:[151]s[170]5,255:[151]v[170]23,7:[151]v[170]29,7:[151]v[170]40,9:[151]v[170]41,7
  158. 8630 [151]2041,245:[151]2042,246:[151]v[170]16,0:[129]t[178]0[164]3000:[130]
  159. 8640 [129]t[178]0[164]180:[158]as[170]91:[130]
  160. 8645 [153]"";:[129]t[178]0[164]4:[153]"            ":[130]
  161. 8650 [151]v[170]40,7:[151]v[170]41,2:[129]t[178]0[164]64:[151]2041,t:[151]2042,t[170]1
  162. 8660 [151]v[170]17,11[170][187](1)[172]31:[151]v[170]32,t:[151]v[170]33,t:[130]:[151]v[170]17,27
  163. 8670 [151]s[170]4,128:[151]v[170]21,192
  164. 8700 [153]"list@@@@@@@@@@@@@@@newwaitfreusrusrtab(tab(usrusrfrenew@@@@@@@@@@@@@@@";
  165. 8710 [153]"@@@@@@@@@@@@@@@@tab(usrusrfrefreusrusrtab(@@@@@@@@@@@@@@@@"
  166. 8720 [151]v[170]40,9:[151]v[170]41,9:[151]v[170]23,0:[151]v[170]29,6:[151]v[170]2,135:[151]v[170]4,180
  167. 8730 [151]2041,239:[151]2042,239:[151]v[170]3,210:[151]v[170]5,210:[151]v[170]27,7:[151]v[170]21,198
  168. 8999 [142]
  169. 9000 [151]v[170]17,11:[151]v[170]21,0
  170. 9010 [151]648,124:[153]"loadfor";:[129]t[178]0[164]332:[153]"www";:[130]:[153]"cmdsavew":[151]648,4
  171. 9015 [151]v[170]24,240:[151]v[170]22,216
  172. 9020 [151]56576,150:[151]v[170]17,59:[141]9500
  173. 9040 [151]v[170]17,11:[153]"load":[151]56576,151:[151]v[170]24,29:[151]v[170]17,27:[142]
  174. 9500 [129]t[178]0[164]24:[151]s[170]t,0:[130]:[151]s[170]24,79:[151]s[170]23,6[170]240:[151]198,0
  175. 9505 [151]s[170]5,224:[151]s[170]6,240:[151]s[170]12,25:[151]s[170]13,0:[151]s[170]20,0
  176. 9510 [129]id[178]1[164]4:[145]id[141]9900,9920,9940,9960:[151]s[170]4,32
  177. 9520 [151]s,l1:[151]s[170]1,h1:[151]s[170]7,l2:[151]s[170]8,h2
  178. 9525 [129]g[178]0[164]3:[151]s[170]14,l3:[151]s[170]15,h3
  179. 9530 [151]s[170]19,31:[141]9980
  180. 9540 [129]t[178]0[164]510:[130]:[151]s[170]14,l4:[151]s[170]15,h4
  181. 9550 [151]s[170]19,25:[141]9985
  182. 9560 [129]t[178]0[164]300:[130]t:[161]a$:[139]a$[178]""[167][130]g,id:[137]9510
  183. 9570 [142]
  184. 9900 l1[178]90:h1[178]4:l2[178]20:h2[178]26:l3[178]178:h3[178]20:l4[178]137:h4[178]19:[142]
  185. 9920 l1[178]207:h1[178]5:l2[178]103:h2[178]17:l3[178]160:h3[178]27:l4[178]20:h4[178]26:[142]
  186. 9940 l1[178]133:h1[178]6:l2[178]137:h2[178]19:l3[178]3:h3[178]31:l4[178]69:h4[178]29:[142]
  187. 9960 l1[178]27:h1[178]4:l2[178]59:h2[178]23:l3[178]178:h3[178]20:l4[178]137:h4[178]19:[142]
  188. 9980 [151]s[170]4,33
  189. 9982 [151]s[170]11,32
  190. 9985 [151]s[170]18,32:[151]s[170]18,33:[151]s[170]11,33:[142]
  191. 10000 a$[178]"       mit dank an thomas lehmann":[137]10020
  192. 10005 a$[178]"    ein programm von  markus koetter":[137]10020
  193. 10010 a$[178]"          input 64 praesentiert"
  194. 10020 [151]646,11:[153]a$:[129]t[178]0[164]200:[130]
  195. 10030 [151]646,12:[153]a$:[129]t[178]0[164]200:[130]
  196. 10040 [151]646,15:[153]a$:[129]t[178]0[164]200:[130]
  197. 10050 [151]646,1:[153]a$:[129]t[178]0[164]200:[130]
  198. 10060 [151]646,7:[153]a$:[142]
  199.