home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 55 / Commodore_Disc_55_19xx_-_de.d64 / zeicheneditor (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  7KB  |  239 lines
  1. 17 ifj>0thenpoke1866,32:gosub481:goto103
  2. 19 a1=0:a2=0:a3=0:a4=0:a5=0:a6=0:a7=0:a8=0:ac=56320:a=0:o=12288:b=5:c=0
  3. 21 d=0:e=50:f=24:g=0:h=0:k=0:l=0:r=0:s=0:t=0:u=0:w=0:x=0:y=0:z=0:v=53248
  4. 23 m=1024:n=53272:ad=53270:p=53280:q=53281:aa=53282:i=53283:ab=56334:ba=0
  5. 27 j=j+1:pokep,12:pokeq,0:pokeaa,4:pokei,4
  6. 31 data64,58,90,83,45,68,65,84,65,83,32,49
  7. 33 data169,1,162,8,168,32,186,255,169,12,162,52,160,3,32,189,255,169
  8. 35 data0,162,48,133,251,134,252,169,251,162,0,160,56,32,216,255,96
  9. 37 forx=0to11:readz:poke820+x,z:next:forx=0to34:readz:poke16384+x,z:next
  10. 41 print"[147]"tab(8)"[158][218]     [218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218]"
  11. 43 printtab(8)"[145][218]     [218] @@ [158][218]"spc(19)"[218]"
  12. 45 printtab(8)"[145][218]     [218] @@ [158][218]   [156]zeicheneditor   [158][218]"
  13. 47 printtab(8)"[145][218]     [218]    [218]"spc(19)"[218]"
  14. 49 printtab(8)"[145][218]     [218] @@ [158][218]     [156](c)  1989     [158][218]"
  15. 51 printtab(8)"[145][218]     [218]    [218]"spc(19)"[218]"
  16. 53 printtab(8)"[145][218]     [218] @  [158][218]  [156]von peter groth  [158][218]"
  17. 55 printtab(8)"[145][218]     [218]    [218]"spc(19)"[218]"
  18. 57 print"[145][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218]"
  19. 61 print"[145][159] a zeichen [000]     b hg-farbe aendern":print
  20. 63 print" c zeichnen          d_[146]loeschen":print
  21. 65 print"[158] e clear             f revers":print
  22. 67 print"[159] g zeichenfarbe  [146] [159][160]  h multi an / aus [129] [146]":print
  23. 69 print" i multicolor 1 [156] [146]    j multicolor 2 [156] [146]":print
  24. 71 print"[158] k zs umschalten     l rahmenfarbe":print
  25. 73 print"[159] m zs laden          n zs speichern":print
  26. 75 print" o spiegeln k/s 000  p ende"
  27. 83 pokeab,peek(ab)and254:poke1,peek(1)and251
  28. 85 forx=0to2047:pokeo+x,peek(v+x):next:poke1,peek(1)or4:pokeab,peek(ab)or1
  29. 87 poken,(peek(n)and240)+12:poke56325,80:forx=0to62:poke832+x,0:next
  30. 93 poke841,60:poke844,60:poke2040,13:pokev+39,1:pokev,f:pokev+1,e:pokev+21,1
  31. 95 gosub481
  32. 103 gosub713
  33. 107 y=peek(ac):ify=126goto139
  34. 109 ify=125goto149
  35. 111 ify=119goto159
  36. 113 ify=123goto169
  37. 115 ify=111goto179
  38. 117 ify=110goto199
  39. 119 ify=109goto745
  40. 123 geta$:ifa$=""goto107
  41. 125 forx=1to23:ifa$=mid$("[145][157] [160][133]abcdefghijklmnop",x,1)goto129
  42. 126 next
  43. 127 goto123
  44. 129 onxgoto139,149,159,169,179,179,199,207
  45. 131 onxgoto,,,,,,,,243,277,285,293,303,313,347,363,397,431,447,515,523,531,705
  46. 139 ifd=0goto123
  47. 141 d=d-1:e=e-8:pokev+1,e:goto123
  48. 149 ifd=7goto123
  49. 151 d=d+1:e=e+8:pokev+1,e:goto123
  50. 159 ifc=7goto123
  51. 161 c=c+1:f=f+8:pokev,f:goto123
  52. 169 ifc=0goto123
  53. 171 c=c-1:f=f-8:pokev,f:goto123
  54. 179 ifg=0goto189
  55. 181 pokem+d*40+c,42:poke55296+d*40+c,b:y=o+8*a+d:w=256
  56. 183 forx=0toc:w=w/2:nextx:pokey,peek(y)orw:goto103
  57. 189 pokem+d*40+c,32:y=o+8*a+d:w=256
  58. 191 forx=0toc:w=w/2:nextx:pokey,peek(y)and255-w:goto103
  59. 199 c=0:d=0:e=50:f=24:pokev,f:pokev+1,e:goto123
  60. 207 poke1386,159
  61. 209 y=peek(ac):ify=119goto227
  62. 211 ify=123goto233
  63. 213 ify=125goto221
  64. 215 geta$:ifa$=""goto209
  65. 217 ifa$=""goto227
  66. 219 ifa$="[157]"goto233
  67. 221 poke1386,32:l=0
  68. 223 forx=0to280step40:fory=0to7:pokem+x+y,32:nexty:nextx:gosub481:goto123
  69. 227 a=a+1:ifa=256thena=0
  70. 229 l=1:gosub481:goto209
  71. 233 a=a-1:ifa=-1thena=255
  72. 235 goto229
  73. 243 poke1406,159
  74. 245 y=peek(ac):ify=119goto261
  75. 247 ify=123goto267
  76. 249 ify=125goto257
  77. 251 geta$:ifa$=""goto245
  78. 253 ifa$=""goto261
  79. 255 ifa$="[157]"goto267
  80. 257 poke1406,32:goto123
  81. 261 z=peek(q)and15:z=z+1:ifz=16thenz=0
  82. 263 pokeq,z:goto243
  83. 267 z=peek(q)and15:z=z-1:ifz=-1thenz=15
  84. 269 pokeq,z:goto243
  85. 277 poke1466,159:g=1:poke1486,32:goto123
  86. 285 poke1486,159:g=0:poke1466,32:goto123
  87. 293 poke1546,159:z=o+8*a:forx=0to7:pokez+x,0:next
  88. 295 forx=0to280step40:fory=0to7:pokem+x+y,32:nexty:nextx:poke1546,32:goto103
  89. 303 poke1566,159:forx=0to280step40:fory=0to7:pokem+x+y,32:nexty:nextx:w=o+8*a
  90. 305 y=255:forx=0to7:z=peek(w+x):pokew+x,y-z:next:gosub481:poke1566,32:goto103
  91. 313 poke1626,159
  92. 315 y=peek(ac):ify=119goto331
  93. 317 ify=123goto337
  94. 319 ify=125goto327
  95. 321 geta$:ifa$=""goto315
  96. 323 ifa$=""goto331
  97. 325 ifa$="[157]"goto337
  98. 327 poke1626,32:goto123
  99. 331 b=peek(646):b=b+1:ifb=16thenb=0
  100. 333 poke55912,b:poke646,b:goto313
  101. 337 b=peek(646):b=b-1:ifb=-1thenb=15
  102. 339 poke55912,b:poke646,b:goto313
  103. 347 poke1646,159:ifh=1goto355
  104. 351 h=1:pokead,peek(ad)or16:poke1646,32:goto123
  105. 355 h=0:pokead,peek(ad)and239:poke1646,32:goto123
  106. 363 poke1706,159
  107. 365 y=peek(ac):ify=119goto381
  108. 367 ify=123goto387
  109. 369 ify=125goto377
  110. 371 geta$:ifa$=""goto365
  111. 373 ifa$=""goto381
  112. 375 ifa$="[157]"goto387
  113. 377 poke1706,32:goto123
  114. 381 z=peek(aa)and15:z=z+1:ifz=16thenz=0
  115. 383 pokeaa,z:poke55992,z:goto363
  116. 387 z=peek(aa)and15:z=z-1:ifz=-1thenz=15
  117. 389 pokeaa,z:poke55992,z:goto363
  118. 397 poke1726,159
  119. 399 y=peek(ac):ify=119goto415
  120. 401 ify=123goto421
  121. 403 ify=125goto411
  122. 405 geta$:ifa$=""goto399
  123. 407 ifa$=""goto415
  124. 409 ifa$="[157]"goto421
  125. 411 poke1726,32:goto123
  126. 415 z=peek(i)and15:z=z+1:ifz=16thenz=0
  127. 417 pokei,z:poke56012,z:goto397
  128. 421 z=peek(i)and15:z=z-1:ifz=-1thenz=15
  129. 423 pokei,z:poke56012,z:goto397
  130. 431 poke1786,159:ifba=1goto439
  131. 435 ba=1:poken,21:poke1786,32:goto103
  132. 439 ba=0:poken,(peek(n)and240)or12:poke1786,32:goto103
  133. 447 poke1806,159
  134. 449 y=peek(ac):ify=119goto465
  135. 451 ify=123goto471
  136. 453 ify=125goto461
  137. 455 geta$:ifa$=""goto449
  138. 457 ifa$=""goto465
  139. 459 ifa$="[157]"goto471
  140. 461 poke1806,32:goto123
  141. 465 z=peek(p)and15:z=z+1:ifz=16thenz=0
  142. 467 pokep,z:goto447
  143. 471 z=peek(p)and15:z=z-1:ifz=-1thenz=15
  144. 473 pokep,z:goto447
  145. 481 poke1080,a:poke1081,a:poke1120,a:poke1121,a:poke1200,a:poke1201,a
  146. 483 poke1280,a:poke55352,b:poke55353,b:poke55392,b:poke55393,b:poke55472,b
  147. 485 poke55473,b:poke55552,b:poke646,3:poke214,9
  148. 487 ifa<10thenpoke211,13:sys58640:printa"[157][157][157][157]00"
  149. 489 ifa>9anda<100thenpoke211,12:sys58640:printa"[157][157][157][157]0"
  150. 491 ifa>99thenpoke211,11:sys58640:printa"[157][157][157][157][157]["
  151. 493 ifl=1thenreturn
  152. 497 u=-40:t=o+8*a:forx=ttot+7:z=256:u=u+40:forw=0to7:z=z/2:y=peek(x)andz
  153. 505 ify=zthenpokem+u+w,42:poke55296+u+w,b
  154. 507 nextw:nextx:gosub713:return
  155. 515 poke1866,159:load"zs-datas 1",8,1
  156. 523 poke1886,159:sys16384:gosub481:poke1886,32:goto123
  157. 531 poke1946,159:poke1959,159:poke646,5
  158. 533 y=peek(ac):ify=119goto605
  159. 535 ify=123goto549
  160. 537 ify=125goto545
  161. 539 geta$:ifa$=""goto533
  162. 541 ifa$="k"goto549
  163. 543 ifa$="s"goto605
  164. 545 poke1946,32:poke1959,32:goto103
  165. 549 poke1959,32:poke1963,159:poke214,23
  166. 551 y=peek(ac):ify=119goto565
  167. 553 ify=123goto597
  168. 555 ify=111goto577
  169. 557 geta$:ifa$=""goto551
  170. 559 ifa$=""goto565
  171. 561 ifa$="[157]"goto597
  172. 563 goto577
  173. 565 k=k+1:ifk>255thenk=0
  174. 567 gosub569:goto549
  175. 569 ifk<10thenpoke211,17:sys58640:printk"[157][157][157][157]00":return
  176. 571 ifk>9andk<100thenpoke211,16:sys58640:printk"[157][157][157][157]0":return
  177. 573 ifk>99thenpoke211,15:sys58640:printk:return
  178. 577 y=908:z=o+8*a:forx=ztoz+7:y=y-1:w=peek(x):pokey,w:next:y=o+8*k-1
  179. 587 forx=900to907:y=y+1:w=peek(x):pokey,w:next
  180. 593 poke646,b:poke1946,32:poke1963,32:goto103
  181. 597 k=k-1:ifk<0thenk=255
  182. 599 gosub569:goto549
  183. 605 poke1959,32:poke1963,159:poke214,23
  184. 607 y=peek(ac):ify=119goto625
  185. 609 ify=123goto631
  186. 611 ify=111goto619
  187. 613 geta$:ifa$=""goto607
  188. 615 ifa$=""goto625
  189. 617 ifa$="[157]"goto631
  190. 619 ifh=0goto637
  191. 621 ifh=1goto665
  192. 625 k=k+1:ifk>255thenk=0
  193. 627 gosub569:goto605
  194. 631 k=k-1:ifk<0thenk=255
  195. 633 gosub569:goto605
  196. 637 w=899:r=o+8*a
  197. 641 forx=rtor+7:w=w+1:z=256:u=0:s=.5:fory=0to7:z=z/2:s=s+s:t=peek(x)andz
  198. 653 ift>0thenu=u+s
  199. 655 nexty:pokew,u:nextx:poke1946,32:poke1963,32
  200. 656 w=o+8*k-1:forx=900to907:w=w+1:t=peek(x):pokew,t:nextx:goto103
  201. 665 w=899:r=o+8*a
  202. 669 forx=rtor+7:w=w+1:z=256:u=0:fory=0to7:z=z/2:t=peek(x)andz
  203. 675 ify=0thens=2
  204. 677 ify=1thens=1
  205. 679 ify=2thens=8
  206. 681 ify=3thens=4
  207. 683 ify=4thens=32
  208. 685 ify=5thens=16
  209. 687 ify=6thens=128
  210. 689 ify=7thens=64
  211. 693 ift>0thenu=u+s
  212. 695 nexty:pokew,u:nextx:poke1946,32:poke1963,32
  213. 696 w=o+8*k-1:forx=900to907:w=w+1:t=peek(x):pokew,t:nextx:goto103
  214. 705 poke56325,58:pokev+21,0:print"[147]":end
  215. 713 poke211,0:poke214,0:sys58640:poke646,3:x=o+8*a:a1=peek(x):printtab(10)"   "
  216. 717 x=x+1:a2=peek(x):printtab(10)"[145]   ":x=x+1:a3=peek(x):printtab(10)"   "
  217. 721 x=x+1:a4=peek(x):printtab(10)"[145]   ":x=x+1:a5=peek(x):printtab(10)"   "
  218. 725 x=x+1:a6=peek(x):printtab(10)"[145]   ":x=x+1:a7=peek(x):printtab(10)"   "
  219. 729 x=x+1:a8=peek(x):printtab(10)"[145]   ":poke211,0:poke214,0:sys58640
  220. 733 printtab(9)a1:printtab(9)"[145]"a2:printtab(9)a3:printtab(9)"[145]"a4
  221. 735 printtab(9)a5:printtab(9)"[145]"a6:printtab(9)a7:printtab(9)"[145]"a8:poke646,b:return
  222. 745 a$="a":z=1:y=1386:gosub779:pokey,159
  223. 747 w=peek(ac):ifw=125goto757
  224. 749 ifw=126goto767
  225. 751 ifw=111goto787
  226. 753 goto747
  227. 757 ify=1946theny=1406:z=9:goto763
  228. 759 ify=1966theny=1386:z=1:goto763
  229. 761 z=z+1:y=y+80
  230. 763 gosub779:pokey,159:goto747
  231. 767 ify=1386theny=1966:z=16:goto763
  232. 769 ify=1406theny=1946:z=8:goto763
  233. 771 z=z-1:y=y-80:goto763
  234. 779 w=1326:forx=1386to1946step80:w=w+80:pokex,32:pokew,32:next:return
  235. 787 ifg=0thenpoke1486,159
  236. 789 ifg=1thenpoke1466,159
  237. 793 onzgoto207,277,293,313,363,431,515,531,243,285,303,347,397,447,523,705
  238. 0 
  239.