home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_86-08_1986_Verlag_Heinz_Weise_de.d64 / sprity (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  15KB  |  358 lines
  1. 4 fl=0:ifpeek(50307)<>120then7
  2. 5 fl=1:sys2092:rem"[169][141] [208][169][255][141]![208][169][141]q[196][169]@[141]r[196][238]o[196][238]![208]{$60}     "
  3. 7 printchr$(142);chr$(8):k$=""
  4. 11 print"[147][158]"spc(14)"[161] sprity [146][161]"
  5. 12 print"[154] programmiert von rainer pahmeyer"
  6. 13 print" (c) heinz-heise verlag (1986)"
  7. 14 print"[150] "
  8. 15 print" benutzen sie joystick in port 2 oder[157][157][157][157][157] [158]9[146][157][157][157][157]q&9[221][158]9&e
  9. 16 [153][166]32)"(NULL)(NULL)(NULL)":[153][166]30)"sysqwaittantan(NULL)tantansyse
  10. 17 printspc(32)"[206][221][205][157][157][157][157][157][158]q&k[221][158]k&e[157][157][157][157][158]k
  11. 18 [153][166]30)"(NULL)tantantantantanright$cmdcmdcmdcmdcmdcmdcmd(NULL)sysspace(NULL)cmdcmdcmdcmdcmdcmdcmdmid$tantantantantan(NULL)"k$""
  12. 19 [153]" wenn sie sprity sichern":[153]" wollen, druecken sie bitte"
  13. 20 [153]" jetzt ctrl-s.":[151]54296,15
  14. 25 i[178]2269:x[178][194](45)[170]256[172][194](46)[171]i:y[178]x[170]i:q[178]38690[170]i:p[178]40956[171]i
  15. 26 i[178][181](p[173]256):[151]51,p[171]i[172]256:[151]52,i:[151]55,p[171]i[172]256:[151]56,i
  16. 27 p[178][181](x[173]256):[151]95,x[171]256[172]p:[151]96,p
  17. 28 i[178][181](y[173]256):[151]90,y[171]256[172]i:[151]91,i
  18. 29 i[178][181](q[173]256):[151]88,q[171]256[172]i:[151]89,i:[158]41919
  19. 30 [153]"druecke feuer oder space !!!":s[178]54272:[141]1300
  20. 31 [139]([194](56320)[175]16)[178]16[175][194](203)[179][177]60[167]31
  21. 32 [151]50257,20:[141]1300:[151]46,p[170]1:[156]:k$[178]"":mc[178]38690:[129]i[178]0[164]7
  22. 33 h(i)[178]2[174](7[171]i):[130]:[139][194](50307)[178]120[167]fl[178]1
  23. 34 bl[178]82:v[178]53248:[151]v[170]28,0:[151]v[170]44,7:cc[178]2:hg[178]0:[151]v[170]21,0
  24. 35 c(0)[178]1:c(1)[178]2:c(2)[178]3:[151]v[170]37,c(0):[151]v[170]38,c(1):[151]v[170]39,c(2):[151]v[170]40,c(2)
  25. 36 p(0)[178]56268:p(1)[178]p(0)[170]4:p(2)[178]p(1)[170]4
  26. 37 [151]21501,80:w[178]0:[151]v[170]29,0
  27. 40 q[178]21504:[129]i[178]2[164]63:[151]q[170]i,0:[130]:[151]q,255:[151]q[170]1,192:q[178]q[170]3
  28. 45 [129]i[178]0[164]7:[151]q[170]i[172]3,128:[151]q[170]1[170]i[172]3,64:[130]:[151]q[170]24,255:[151]q[170]25,192
  29. 50 s[178]54272:[151]s[170]5,5:[151]s[170]6,0:[151]250,0:[151]v[170]23,0
  30. 51 po(0)[178]35:po(1)[178]132:po(2)[178]59:po(3)[178]132:po(4)[178]35:po(5)[178]153:po(6)[178]59:po(7)[178]153
  31. 65 [158]mc[170]15:[151]17191,0:[151]18215,255
  32. 100 [153]"load";:[140]:[151]182,bl[170]ws:[151]v[170]33,hg:[151]159,0
  33. 102 [151]v[170]29,m(ws)[170]ex:[151]21496,bl[170]ws:[151]21497,bl:[151]v[170]16,31:[151]v[170]23,ey
  34. 103 [151]21498,bl[170]1:[151]21499,bl[170]2:[151]21500,bl[170]3
  35. 104 [151]v,55:[151]v[170]1,55:q[178][171](nu[177]0)[172]4[171](nu[177]1)[172]8[171](nu[177]2)[172]16
  36. 105 [151]v[170]21,35[170]q:[151]v[170]10,199[170](m(ws)[178]32):[151]v[170]11,81:sz[178]20662
  37. 110 [129]i[178]0[164]8:[135]a$:[153][166]24)"list(NULL)poke"a$:[130]
  38. 111 [151]v[170]28,m(ws)[173]32[171](m(ws)[178]32)[172]h(6[171]ws)
  39. 120 [129]i[178]0[164]15:[135]a$:[153][166]24)"list(NULL)..poke"a$:[130]
  40. 125 [153]"listtantantantantantantan(NULL)waittantantantantantantan(NULL)waittantantantantantantantan(NULL)"
  41. 130 [153]"poke  spwaiti nuwait  exwaitp powaits aswait  inwaitv":[153]"block    :list"bl
  42. 135 [153]"pokefarbregi.:  stop37wait  38wait  39wait";
  43. 140 [151]p(0),c(0):[151]p(0)[170]1,c(0):[151]p(1),c(1):[151]p(1)[170]1,c(1):[151]p(2),c(2)
  44. 141 [151]21368,49[170]nu:[151]21380,49[170]ws:[129]i[178]2[164]9:[151]v[170]i,po(i[171]2):[130]
  45. 145 [151]p(2)[170]1,c(2):[151]20865[170]c(2)[172]40,81
  46. 147 [139]m(ws)[178]32[167][151]20866[170]c(0)[172]40,87:[151]20866[170]c(1)[172]40,87
  47. 150 q[178]55683[170]c(cc)[172]40:[129]i[178]0[164]11:[151]q[170]i,15:[130]:[151]v[170]39,c(2)
  48. 200 [153]"poke":[158]mc
  49. 300 [141]7000:[139]fi[178]0[167]300
  50. 350 [139][194](v[170]10)[177]208[176][194](v[170]11)[177]210[167]500
  51. 355 x[178][181](sz[173]256):[151]251,sz[171]x[172]256:[151]252,x:[151]253,c(cc):[158]mc[170]18:[137]300
  52. 500 y[178]([194](v[170]11)[171]49)[173]8
  53. 510 [139][194](v[170]10)[179]210[167]550
  54. 515 [141]1300:[139]y[177]8[167]1500
  55. 525 [145]y[170]1[137]800,600,5000,2300,3600,2000,1100,4000,850
  56. 530 [137]300
  57. 550 q2[178][181](sz[173]2)[172]2:[139]q2[178]21366[167]1400
  58. 551 [139]q2[178]21370[167]3800
  59. 552 [139]q2[178]21374[167]3900
  60. 553 [139]q2[178]21378[167]2100
  61. 554 [139]q2[178]21382[167][141]1300:x[178]16384[170]bl[172]64:[158]mc[170]27,x,x,(nu[170]1)[172]64[170]511:[158]mc
  62. 555 [139]q2[178]21362[167][141]1300:[151]182,bl[170]ws:[151]250,m(ws):[137]580
  63. 556 [139]m(ws)[178]0[167]560
  64. 557 [139]q2[178]21452[167]q1[178]0:[137]1000
  65. 558 [139]q2[178]21456[167]q1[178]1:[137]1000
  66. 560 [139]q2[178]21460[167]q1[178]2:[137]1000
  67. 565 [137]300
  68. 580 p[178][194](249):[139](p[175]1)[178]0[176](p[175]2)[178]0[167][158]mc[170]33:[158]mc:[141]585
  69. 581 [139](p[175]4)[178]0[176](p[175]8)[178]0[167][158]mc[170]30:[158]mc:[141]585
  70. 582 [139](p[175]16)[178]0[167]580
  71. 583 [141]1300:[137]300
  72. 585 [139]([194](249)[175]15)[179][177]15[167]585
  73. 586 [142]
  74. 600 [151]v[170]21,0:[153]"loadlist          ***** load/save *****         poke"
  75. 601 [139]fl[178]1[167][141]1550:[137]100
  76. 605 [153],"directoryononcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdfest-saven / als datas / als prg"
  77. 606 [153],"disk-load"
  78. 610 [153],"disk-save":[153],"tape-load":[153],"tape-save":[153],"ende"
  79. 615 q[178]20688:[141]900:d[178]0
  80. 616 [129]i[178]0[164]40:[130]:p[178][194](249):q1[178]q:[139](p[175]1)[178]0[167]q[178]q[171]80:[139]q[179]20688[167]q[178]21088
  81. 617 [139](p[175]2)[178]0[167]q[178]q[170]80:[139]q[177]21088[167]q[178]20688
  82. 618 d$(0)[178]"":d$(1)[178]"":d$(2)[178]"":[139](p[175]8)[178]0[167]d[178]d[171]1:[139]d[179]0[167]d[178]0
  83. 619 [139](p[175]4)[178]0[167]d[178]d[170]1:[139]d[177]2[167]d[178]2
  84. 620 d$(d)[178]""
  85. 621 [153]""[166]7)d$(2)"fest-savenwait / "d$(1)"als dataswait / "d$(0)"als prg"
  86. 622 [151]q1,32:[151]q,42:[151]34816[170]q,15:[139](p[175]16)[178]16[167]616
  87. 623 q1[178](q[171]20688)[173]80:[139]q1[178]5[167]100
  88. 625 [139]q1[178]0[167]765
  89. 626 ga[178]1:[139]q1[178]3[176]q1[178]4[167]628
  90. 627 ga[178]8:[159]1,8,15:[160]1:[139]st[178][171]128[167]q$[178]"device not present":x[178]0:y[178]x:[137]790
  91. 628 [139]q1[178]1[176]q1[178]3[167]700
  92. 629 [151]198,0:q1$[178]"":[153]""k$"save name :";:[141]6000
  93. 630 q1$[178]q$:[139]q1$[178]""[175]ga[178]8[167]600
  94. 631 [141]3700:[151]v[170]21,0:[139]a[177]b[167]q[178]a:b[178]a:b[178]q
  95. 633 [141]830:[151]186,ga:[151]780,87
  96. 635 [139]d[178]1[167]650
  97. 637 i[178]16447[170](b[170]nu)[172]64:q[178][181](i[173]256):[151]781,i[171]256[172]q:[151]782,q
  98. 638 i[178]a[172]64:q[178][181](i[173]256):[151]252,i[171]q[172]256:[151]253,q
  99. 639 i[178]i[170]16384:q[178][181](i[173]256):[151]87,i[171]256[172]q:[151]88,q:[139]d[178]2[167]690
  100. 640 [139]ga[178]1[167]647
  101. 641 [153]""k$;k$"saving...."
  102. 645 [158]65496:[141]785:[139]q[179][177]0[167]790
  103. 646 [137]600
  104. 647 [153]""k$"":q$[178]"record &":[141]795:[139]q[178]1[167]x[178]0:y[178]x:[137]790
  105. 648 i[178]b[172]64[170]64:q[178][181](i[173]256):[151]254,i[171]q[172]256:[151]255,q:[151]251,3
  106. 649 [151]185,3:[158]65496:[137]600
  107. 650 [139]b[171]a[177]28[167]q$[178]"nur 29 sprites auf einmal":x[178]0:y[178]x:[137]790
  108. 651 [153]""k$"pokezeilenanfang :>list00000poke<cmdcmdcmdcmdcmdcmdlist";:c[178]4:q$[178]"00000"
  109. 653 [151]198,0:[141]6002
  110. 655 [129]i[178]1[164][195](q$):x[178][198]([202](q$,i,1)):[139]x[179]48[176]x[177]57[167]650
  111. 660 [130]:x[178][197](q$):[151]254,0:[151]255,160:[139]x[177]65535[167]650
  112. 665 y[178]((b[170]nu)[171]a)[172]64[170]63:[158]mc[170]21,a[172]64[170]16384,y,x
  113. 667 [151]781,[194](254):[151]782,[194](255)
  114. 670 [151]780,87:[151]252,1:[151]253,8:[151]87,1
  115. 673 [151]88,160:[139]ga[178]1[167]680
  116. 675 [153]"  saving....":[158]mc[170]24:[141]785:[139]q[179][177]0[167]790
  117. 677 [137]600
  118. 680 [151]185,3:[151]251,1
  119. 685 [153]""k$;k$:q$[178]"record &"
  120. 688 [141]795:[139]q[178]1[167]600
  121. 689 [158]mc[170]24:[137]600
  122. 690 [153]""k$"pokeanfang :>list00000poke<cmdcmdcmdcmdcmdcmdlist";:q$[178]"00000":c[178]4
  123. 691 [151]198,0:[141]6002
  124. 692 [129]i[178]1[164][195](q$):x[178][198]([202](q$,i,1)):[139]x[179]48[176]x[177]57[167]690
  125. 693 [130]:x[178][197](q$):[139]x[177]65535[167]690
  126. 694 q[178][181](x[173]256):[151]252,x[171]q[172]256:[151]253,q:[137]640
  127. 700 [139]d[178]1[167]q$[178]"cmdcmdcmd"[170]k$[170]" datas nur ohne prg laden !":x[178]0:y[178]x:[137]790
  128. 701 [151]198,0:[153]""k$"load name :";:[141]6000:q1$[178]q$
  129. 705 [139]q1$[178]""[175]ga[178]8[167]600
  130. 707 [139]ga[178]8[167][159]1,8,2,q1$:[161]#1,b$:[161]#1,a$:[160]1:[141]785:[139]q[179][177]0[167]790
  131. 708 [141]830
  132. 710 [151]186,ga:[151]780,0:[151]185,0
  133. 713 [151]781,128:[151]782,84:[139]ga[178]1[167]730
  134. 714 [153]"loading..."
  135. 715 i[178][198](b$)[170][198](a$)[172]256[170]16384:[139]i[179]16384[176]i[177]32768[167]727
  136. 717 q[178][181](i[173]256):[151]781,i[171]q[172]256:[151]782,q
  137. 720 [158]65493:[141]785:[139]q[179][177]0[167]790
  138. 725 [137]600
  139. 727 q$[178]" prg im falschen bereich !!":x[178]0:y[178]x:[137]790
  140. 730 q$[178]"":[141]795:[139]q[178]1[167]x[178]0:y[178]x:[137]790
  141. 731 [151]198,1:[151]631,32:p[178][194](8433):[158]65493:[151]8433,p
  142. 732 [139][194](139)[179][177]0[167]727
  143. 735 [151]198,0:[137]600
  144. 765 [159]1,8,15:[160]1:[139]st[178][171]128[167]q$[178]"device not present":x[178]0:y[178]0:[137]790
  145. 766 [158]mc[170]3:[141]785:[139]q[179][177]0[167]790
  146. 770 [141]900
  147. 775 [139]([194](249)[175]16)[178]16[167]775
  148. 780 [137]600
  149. 785 [159]2,8,15:[132]2,q,q$,x,y:[160]2:[142]
  150. 790 [153]"list"q$"waitpoke"x";"y:[141]900
  151. 791 [139]([194](249)[175]16)[178]16[167]791
  152. 792 [137]600
  153. 795 [153]"press "q$" play on tape":[129]i[178]0[164]300
  154. 796 [139]([194](1)[175]16)[178]16[167][130]:q$[178]"cassette not present":q[178]1:[142]
  155. 797 q[178]0:[153]"ok...":[142]
  156. 800 x[178]16384[170]bl[172]64:[158]mc[170]27,x,x,(nu[170]1)[172]64[171]1:[158]mc:[137]300
  157. 830 [139]q1$[178]""[167]835
  158. 831 [151]187,0:[151]188,4:[129]i[178]1[164][195](q1$):[151]1023[170]i,[198]([202](q1$,i,1)):[130]
  159. 835 [151]183,[195](q1$):[142]
  160. 850 [141]1300:[129]i[178]55641[164]55654:[151]i,15:[130]
  161. 855 [141]7000:[139]fi[178]0[167]855
  162. 860 [139][194](v[170]10)[179]210[167]855
  163. 865 y[178]([194](v[170]11)[171]49)[173]8:[139]y[179]9[167]855
  164. 870 hg[178]y[171]9:[151]v[170]33,hg:[129]i[178]55641[164]55654:[151]i,11:[130]:[137]300
  165. 900 [139]([194](249)[175]16)[178]0[167]900
  166. 905 [142]
  167. 990 [139]q[178]1[167]x[178]0:y[178]0:[137]790
  168. 995 [158]mc[170]24:[137]600
  169. 1000 [141]1300:q[178]55683[170]40[172]c(q1):[129]i[178]0[164]11:[151]q[170]i,11:[130]
  170. 1005 q[178]20866[170]c(q1)[172]40[170](q1[178]2):[151]q,46
  171. 1010 [129]x[178]0[164]3:[141]7000:[139]fi[179][177]0[167]1015
  172. 1011 [130]:[139][194](q2)[179]128[167][151]q2,[194](q2)[170]128:[151]q2[170]1,[194](q2[170]1)[170]128:[137]1010
  173. 1012 [151]q2,[194](q2)[171]128:[151]q2[170]1,[194](q2[170]1)[171]128:[137]1010
  174. 1015 [139][194](v[170]10)[179]210[167][129]i[178]0[164]50:[130]:[137]1011
  175. 1016 y[178]([194](v[170]11)[171]49)[173]8:[139]y[179]9[167][129]i[178]0[164]50:[130]:[137]1011
  176. 1017 y[178]y[171]9:q[178]20866[170]y[172]40:[139][194](q)[179][177]46[176][194](q[171]1)[179][177]46[167]1011
  177. 1018 q[178]q[170](q1[178]2):[139]q1[178]cc[167]x[178]55683[170]40[172]y:[129]i[178]0[164]11:[151]x[170]i,15:[130]
  178. 1020 [151]q,87[170](q1[178]2)[172]6:c(q1)[178]y
  179. 1025 [151]p(q1),c(q1):[151]p(q1)[170]1,c(q1):[151]q2,[194](q2)[176]128
  180. 1030 [151]q2[170]1,[194](q2[170]1)[176]128:[139]q1[179]2[167][151]v[170]37[170]q1,c(q1)
  181. 1035 [139]q1[178]2[167][151]v[170]40[170]ws,c(2):[151]v[170]39,c(2)
  182. 1040 [158]mc
  183. 1045 [139][194](249)[178]111[167]1035
  184. 1050 [137]300
  185. 1100 q[178]17152:q1[178]18176:[139][194](q)[179][177]0[167]1120
  186. 1105 [129]i[178]0[164]6:[151]q[170]i,1:[151]q1[170]i,254:[130]:[151]q[170]7,255:[151]q1[170]7,0
  187. 1110 [151]17191,255:[151]18215,0:[137]1125
  188. 1120 [129]i[178]0[164]7:[151]q[170]i,0:[151]q1[170]i,255:[130]:[151]17191,0:[151]18215,255
  189. 1125 [141]900:[137]300
  190. 1300 [151]s[170]5,55:[151]s[170]1,75:[151]s[170]4,0:[151]s[170]4,17
  191. 1305 [142]
  192. 1400 [141]1300
  193. 1405 p[178][194](249):[139](p[175]16)[178]16[167][141]1300:[137]300
  194. 1410 [139](p[175]1)[178]0[167]nu[178]nu[170]1:[139]nu[177]3[167]nu[178]3
  195. 1415 [139](p[175]2)[178]0[167]nu[178]nu[171]1:[139]nu[179]ws[167]nu[178]ws
  196. 1420 q[178][171](nu[177]0)[172]4[171](nu[177]1)[172]8[171](nu[177]2)[172]16:[151]v[170]21,35[170]q:[151]21368,49[170]nu:[137]1405
  197. 1500 y[178]y[171]9:q[178]55683[170]y[172]40:x[178]55683[170]c(cc)[172]40
  198. 1503 [139][194](q[171]34818)[179][177]81[175][194](q[171]34817)[179][177]87[167]300
  199. 1505 [129]i[178]0[164]11:[151]x[170]i,11:[151]q[170]i,15:[130]
  200. 1510 [129]i[178]0[164]2:[139]c(i)[178]y[167]cc[178]i
  201. 1515 [130]:[137]300
  202. 1550 [153]"load"
  203. 1552 [153]"innerhalb des input 64wait-betriebssystems"
  204. 1554 [153]:[153]"sind zugriffe auf die peripherie (floppy"
  205. 1556 [153]"oder datasette) nicht zugelassen."
  206. 1560 [153]:[153]:[153]"speichern sie deshalb dieses programm"
  207. 1562 [153]:[153]"erst auf ihren eigenen datentraeger ab."
  208. 1566 [153]"bitte taste druecken!! ";
  209. 1568 [151]198,0
  210. 1570 [161]x$:[139]x$[178]""[167]1570
  211. 1580 [142]
  212. 2000 p[178][194](249):[139](p[175]16)[178]16[167][141]1300:[137]300
  213. 2005 [139](p[175]1)[178]0[167]bl[178]bl[170]1[170]nu:[139]bl[177]252[167]bl[178]bl[171]1[171]nu
  214. 2010 [139](p[175]2)[178]0[167]bl[178]bl[171]1[171]nu:[139]bl[179]82[167]bl[178]bl[170]1[170]nu
  215. 2015 [151]21496,bl[170]ws:[151]21497,bl:[151]182,bl[170]ws
  216. 2016 [151]21498,bl[170]1:[151]21499,bl[170]2:[151]21500,bl[170]3
  217. 2020 [158]mc:[151]214,24:[153]"pokeonblock    :list"bl"cmd ":[137]2000
  218. 2100 [141]1300:q1[178]55683[170]c(cc)[172]40:q[178]55683[170]c(2)[172]40:cc[178]2
  219. 2101 [129]i[178]0[164]11:[151]q1[170]i,11:[151]q[170]i,15:[130]:q[178]20865:q1[178]55683
  220. 2105 p[178][194](249):[139](p[175]16)[178]16[167][141]1300:[137]300
  221. 2110 [139](p[175]1)[178]0[167]ws[178]ws[170]1:[139]ws[177]nu[167]ws[178]nu
  222. 2115 [139](p[175]2)[178]0[167]ws[178]ws[171]1:[139]ws[179]0[167]ws[178]0
  223. 2117 [139](p[175]3)[178]3[167]2105
  224. 2120 [151]21496,bl[170]ws:[151]182,bl[170]ws:[151]21380,49[170]ws:[151]250,m(ws):[151]v[170]11,225
  225. 2122 [151]q[170]c(2)[172]40,46:x[178]q1[170]c(2)[172]40:c(2)[178][194](v[170]40[170]ws)[175]15:y[178]q1[170]c(2)[172]40
  226. 2123 [151]v[170]39,c(2):[129]i[178]0[164]11:[151]x[170]i,11:[151]y[170]i,15:[130]:[151]q[170]c(2)[172]40,81
  227. 2125 sz[178]21378:[151]p(2),c(2):[151]p(2)[170]1,c(2):[158]mc:[139]m(ws)[178]32[167]2150
  228. 2130 [151]v[170]29,[194](v[170]29)[175]223:[151]v[170]28,[194](v[170]28)[175]254
  229. 2135 [151]v[170]10,167:[151]q[170]1[170]c(0)[172]40,46:[151]q[170]1[170]c(1)[172]40,46:[137]2105
  230. 2150 [151]v[170]29,[194](v[170]29)[176]32:[151]v[170]10,166:[151]q[170]1[170]c(0)[172]40,87
  231. 2160 [151]q[170]1[170]c(1)[172]40,87:[151]v[170]28,[194](v[170]28)[176]1:[137]2105
  232. 2300 a$[178]" orginal block :":q$[178]" kopie         :"
  233. 2305 [153]"loadlist         ***** kopieren *****           ":[141]3701
  234. 2400 [158]mc[170]27,16384[170]a[172]64,16384[170]b[172]64,(nu[170]1)[172]64[170]255:bl[178]b:[137]100
  235. 2500 [151]253,1:a$[178]"nur hoch     ":[137]3510
  236. 3000 [151]253,2:a$[178]"nur runter   ":[137]3510
  237. 3500 [151]253,0:a$[178]"hoch & runter"
  238. 3510 [153]"list          animation : "a$"     ":[158]mc[170]6:[137]100
  239. 3600 [151]v[170]21,0:[153]"listload          **** animation ****           "
  240. 3604 [153]"poke     list*poke nur runter":[153][166]7)"nur hoch"
  241. 3605 [153][166]7)"hoch & runter":q1[178]20725
  242. 3606 p[178][194](249)
  243. 3607 q[178]q1:[139](p[175]1)[178]0[167]q1[178]q1[171]80:[139]q1[179]20725[167]q1[178]20725
  244. 3608 [139](p[175]2)[178]0[167]q1[178]q1[170]80:[139]q1[177]20885[167]q1[178]20885
  245. 3609 [139](p[175]16)[178]0[167]3620
  246. 3610 [151]q,32:[151]34816[170]q,15:[151]q1,42:[129]i[178]0[164]45:[130]:[137]3606
  247. 3620 q1[178](q1[171]20725)[173]80[170]1:[141]3700:[151]v[170]16,0:[137]3730
  248. 3700 a$[178]" erster block  :":q$[178]" letzter block :":[153]"load"
  249. 3701 a[178]bl:b[178]a:[153]""a$;a:[153]""q$;b
  250. 3702 q[178]0:[129]i[178]0[164]3:[139]m(i)[179][177]0[167]q[178]q[170]h(7[171]i)[170]h(3[171]i)
  251. 3703 q1(i)[178][194](v[170]40[170]i):[130]:[151]v[170]28,q:q[178]1[171](nu[177]0)[172]2[171](nu[177]1)[172]4[171](nu[177]2)[172]8
  252. 3705 [153]" fertig (feuer)."
  253. 3706 [151]v[170]23,ey[173]2[170]ey[172]8:[151]v[170]29,ex[173]2[170]ex[172]8:[151]v[170]21,q[170]q[172]16:[151]v[170]16,0:[151]159,1
  254. 3707 q[178]0:[129]i[178]0[164]7[169]2:[151]v[170]i,po(i)[170]173:[151]v[170]i[170]1,po(i[170]1)[171]42
  255. 3708 [151]v[170]8[170]i,po(i)[170]173:[151]v[170]9[170]i,po(i[170]1)[170]22:[130]
  256. 3709 [129]i[178]0[164]3:[151]21496[170]i,bl[170]i:[151]21500[170]i,bl[170]i
  257. 3710 [151]v[170]39[170]i,q1(i):[151]v[170]43[170]i,q1(i):[130]
  258. 3711 q(0)[178]20701:[151]q(0),31:q(1)[178]21021:q(2)[178]21101
  259. 3712 p[178][194](249):q4[178]q:[139](p[175]1)[178]0[167]q[178]q[171]1:[139]q[179]0[167]q[178]0
  260. 3713 [139](p[175]2)[178]0[167]q[178]q[170]1:[139]q[177]2[167]q[178]2
  261. 3714 [139](p[175]16)[178]0[175]q[178]2[167]3740
  262. 3715 [139](p[175]12)[179][177]12[175]q[179]2[167]3750
  263. 3725 [151]q(q4),32:[151]34816[170]q(q),15:[151]q(q),31:[129]i[178]0[164]35:[130]:[137]3712
  264. 3730 [153]"load"k$;k$"pokegesc.:list 127"[199](13)"pokeblock:list"
  265. 3731 [129]i[178]0[164]7[169]2:[151]v[170]i[170]2,po(i)[170]109:[151]v[170]3[170]i,po(i[170]1):[130]
  266. 3732 [139]a[177]b[167]q[178]a:a[178]b:b[178]q
  267. 3733 [139]a[178]b[167]100
  268. 3734 [151]251,a:[151]252,b
  269. 3735 [151]v[170]21,(1[171](nu[177]0)[172]2[171](nu[177]1)[172]4[171](nu[177]2)[172]8)[172]2:[151]189,nu[170]1
  270. 3736 [145]q1[137]2500,3000,3500
  271. 3740 [129]i[178]0[164]3:[151]v[170]40[170]i,q1(i):[130]:[151]159,0:[151]21501,80:[142]
  272. 3750 [139]q[178]1[167]3770
  273. 3755 p[178][194](249):[139](p[175]4)[178]0[167]a[178]a[171]1[171]nu:[139]a[179]82[167]a[178]a[170]1[170]nu
  274. 3760 [139](p[175]8)[178]0[167]a[178]a[170]1[170]nu:[139]a[177]252[167]a[178]a[171]1[171]nu
  275. 3763 [151]21496,a:[151]21497,a[170]1:[151]21498,a[170]2:[151]21499,a[170]3
  276. 3764 [153]""[166]16)a"cmd ":[139](p[175]3)[178]3[167]3755
  277. 3765 [137]3712
  278. 3770 p[178][194](249):[139](p[175]4)[178]0[167]b[178]b[171]1[171]nu:[139]b[179]82[167]b[178]b[170]1[170]nu
  279. 3775 [139](p[175]8)[178]0[167]b[178]b[170]1[170]nu:[139]b[177]252[167]b[178]b[171]1[171]nu
  280. 3777 [151]21500,b:[151]21501,b[170]1:[151]21502,b[170]2:[151]21503,b[170]3
  281. 3778 [153]""k$""[166]16)b"cmd ":[139](p[175]3)[178]3[167]3770
  282. 3780 [137]3712
  283. 3800 [141]1300:q[178]h(6[171]ws):q1[178]255[171]q
  284. 3805 p[178][194](249):[139](p[175]1)[178]0[167]ey[178]ey[175]q1
  285. 3810 [139](p[175]2)[178]0[167]ey[178]ey[176]q
  286. 3815 [139](p[175]4)[178]0[167]ex[178]ex[175]q1
  287. 3820 [139](p[175]8)[178]0[167]ex[178]ex[176]q
  288. 3825 [151]v[170]29,ex[170]m(ws):[151]v[170]23,ey:[139](p[175]16)[178]0[167]3805
  289. 3830 [141]1300:[137]300
  290. 3900 [141]1300:q[178]ws[172]2
  291. 3905 p[178][194](249):[139](p[175]1)[178]0[167]po(q[170]1)[178]132
  292. 3910 [139](p[175]2)[178]0[167]po(q[170]1)[178]153
  293. 3915 [139](p[175]4)[178]0[167]po(q)[178]35
  294. 3920 [139](p[175]8)[178]0[167]po(q)[178]59
  295. 3925 [151]v[170]2[170]q,po(q):[151]v[170]3[170]q,po(q[170]1):[139](p[175]16)[178]0[167]3905
  296. 3930 [141]1300:[137]300
  297. 4000 q[178][194](v[170]10)
  298. 4002 [139]m(ws)[178]32[167]m(ws)[178]0:[151]250,0:q[178]q[170]1:q1[178]46:[137]4005
  299. 4003 [137]4010
  300. 4005 q2[178]55683[170]40[172]c(cc):q3[178]55683[170]40[172]c(2):[129]i[178]0[164]11:[151]q2[170]i,11:[151]q3[170]i,15:[130]
  301. 4006 cc[178]2:[151]v[170]28,[194](v[170]28)[175](254[171]h(6[171]ws)):[137]4100
  302. 4010 m(ws)[178]32:[151]250,1:q[178]230:sz[178]20786:[151]v[170]28,[194](v[170]28)[176](1[170]h(6[171]ws)):q1[178]87
  303. 4100 [151]v[170]29,([194](v[170]29)[175]223)[176]m(ws)
  304. 4101 [151]v[170]10,q:[151]20866[170]c(0)[172]40,q1:[151]20866[170]c(1)[172]40,q1:[158]mc
  305. 4105 [139]([194](249)[175]16)[178]0[167]4105
  306. 4110 [137]300
  307. 5000 [129]i[178]55401[164]55406:[151]i,15:[130]:[141]900:[137]5170
  308. 5001 [153]"winkel :"w"cmd  ":p[178][194](249):[139](p[175]16)[178]0[167]5005
  309. 5002 [139](p[175]1)[178]0[167]w[178]w[170]1:[139]w[177]180[167]w[178]180
  310. 5003 [139](p[175]2)[178]0[167]w[178]w[171]1:[139]w[179][171]180[167]w[178][171]180
  311. 5004 [137]5001
  312. 5005 [141]1300:[139]w[178]0[167][141]900:[137]5157
  313. 5006 [153]"waehle mittelpunkt !":[141]900
  314. 5007 [141]7000:[139]fi[178]0[167]5007
  315. 5010 [158]mc:fi[178]0:q1[178]20480:ny[178][181]((sz[171]q1)[173]40):nx[178]sz[171]q1[171]ny[172]40:q2[178](bl[170]ws)[172]64[170]16384
  316. 5012 [139]nx[177]23[176]ny[177]20[167]5005
  317. 5015 [129]i[178]0[164]62:[151]q2[170]i,0:[130]
  318. 5050 q[178]([255][173]180)[172]w
  319. 5100 [129]b[178]0[164]20:[129]a[178]0[164]23:[139][194](q1[170]b[172]40[170]a)[179]128[167]5155
  320. 5103 q5[178][180](b[171]ny):[139]q5[178]0[167]q5[178][180](a[171]nx):[139]q5[178]0[167]x[178]nx:y[178]ny:[137]5146
  321. 5105 h[178][186]((a[171]nx)[174]2[170](b[171]ny)[174]2)[172]q5:x[178](a[171]nx)[173]h:[139][182](x)[177].99[167]q4[178]q:[137]5145
  322. 5110 q4[178][171][193](x[173][186](1[171]x[174]2))[170][255][173]2:q4[178]q4[170]q
  323. 5145 x[178]nx[170][190](q4)[172]h:y[178]ny[170][191](q4)[172]h:[139]x[179]0[176]x[177]23[176]y[179][171].5[176]y[177]20[167]5155
  324. 5146 [139]x[171][181](x)[177].5[167]x[178]x[170]1
  325. 5147 x[178][181](x):[139]y[171][181](y)[177].5[167]y[178]y[170]1
  326. 5148 y[178][181](y)
  327. 5150 q3[178]q2[170]y[172]3[170](x[175]248)[173]8:[151]q3,[194](q3)[176]h(x[175]7)
  328. 5155 [151]q1[170]b[172]40[170]a,102:[130]:[130]
  329. 5157 [129]i[178]55401[164]55406:[151]i,11:[130]:[158]mc
  330. 5160 [137]300
  331. 5170 [139]m[178]4[167][153]"drehen nur ohne multic.":[129]i[178]0[164]999:[130]:[137]5157
  332. 5171 [137]5001
  333. 6000 c[178]15:[153]">list                poke<cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdlist";
  334. 6001 q$[178]"                "
  335. 6002 i[178]0:q[178]20480[170][194](214)[172]40[170][194](211):[151]q,[194](q)[170]128
  336. 6005 [161]a$:[139]a$[178]""[167]6005
  337. 6010 [139]a$[178]"load"[176]a$[178]""[176]a$[178]""[176]a$[178]"on"[176]a$[178][199](148)[167]6005
  338. 6015 [151]q[170]i,[194](q[170]i)[171]128:[139]i[178]0[167][139]a$[178]"cmd"[176]a$[178][199](20)[167]6030
  339. 6020 [139]a$[178][199](20)[167][153]"cmd cmd";:i[178]i[171]1:[137]6100
  340. 6024 [139]a$[178]"cmd"[167][153]"cmd";:i[178]i[171]1:[137]6030
  341. 6025 [139]a$[178][199](13)[167]6035
  342. 6026 [139]a$[178]""[167]6028
  343. 6027 q$[178][200](q$,i)[170]a$[170][201](q$,c[171]i)
  344. 6028 [153]a$;:i[178]i[170]1:[139]i[177]c[167]i[178]c:[153]"cmd";
  345. 6030 [151]q[170]i,[194](q[170]i)[170]128:[137]6005
  346. 6035 [129]i[178]c[164]0[169][171]1:[139][201](q$,1)[178]" "[167]q$[178][200](q$,i)
  347. 6040 [130]:[153]:[142]
  348. 6100 q$[178][200](q$,i)[170]" "[170][201](q$,15[171]i):[137]6030
  349. 7000 [158]mc[170]12:[139][194](251)[178]0[167]fi[178]1:[137]7005
  350. 7002 fi[178]0:[129]i[178]1[164]3:[139]([194](249)[175]16)[178]0[167]sz[178]sz[170]([194](252)[171]100):[137]7000
  351. 7003 [130]
  352. 7005 sz[178]sz[170]([194](252)[171]100):[142]
  353. 10000 [131]loeschen,save/load,drehen,copieren,animation,block aendern
  354. 10001 [131]gitter,multicolor
  355. 10002 [131]hintergrund,schwarz,"listcmdcmdcmd-..pokeweiss",rot,cyan,pink,gruen
  356. 10005 [131]blau,gelb,orange,braun,hellrot,dunkelgrau,mittelgrau
  357. 10010 [131]"cmdcmdcmd hellgruen","cmdcmdcmd hellblau","cmdcmdcmd hellgrauonononon"
  358.