home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 5 / Commodore_Disc_05_19xx_-_de.d64 / zeicheneditor.64 (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  8KB  |  189 lines
  1. 0 vc=53248
  2. 1 printchr$(17)"bitte warten - lese daten !"
  3. 2 fora=28672to29586:readc:y=y+c:pokea,c:next
  4. 3 ify<>126178thenprintchr$(17)"? read error in track one"chr$(145):end
  5. 6 forq=49152to49214:readc:pokeq,c:next
  6. 7 fora=0to89:readc:poke30000+a,c:next
  7. 8 forq=0to167:readc:poke15000+q,c:next
  8. 9 poke56333,127:poke1,51:sys30000:poke1,55:poke56333,129:poke650,128
  9. 10 print"[147][144]":poke53281,15:poke53280,15
  10. 20 printtab(12)"               [146]"
  11. 30 printtab(12)" zeicheneditor [146]"
  12. 40 printtab(12)"               [146]"
  13. 50 printtab(10)"programmed in 1987"
  14. 60 printtab(18)"by"
  15. 70 printtab(12)"dietmar schorr"
  16. 80 printtab(13)"(c) by s.c.s"
  17. 90 printtab(7)"saarland cracking service"
  18. 91 geta$:ifa$=""andpeek(56320)=127then91
  19. 92 printchr$(147)chr$(17)"  1) neuer oder 2) alter zeichensatz ?"
  20. 93 gosub610:ifx=32thenpokevc+21,0:goto130
  21. 95 gosub670:ifx=48thenga=8:goto100
  22. 98 ga=1:goto105
  23. 100 gosub730:ifty=1then92
  24. 105 n$="":input"prg.-name:";n$
  25. 106 poke16000,ga:poke16001,peek(45):poke16002,peek(46)
  26. 110 sys15120 n$:sys29468:sys15060
  27. 120 poke45,peek(16001):poke46,peek(16002):pokevc+21,0
  28. 130 printchr$(147)
  29. 140 print""tab(14)"zeicheneditor":h=0
  30. 150 input"welches zeichen(code)";h
  31. 160 print"neues zeichen :"
  32. 161 fora=0to7:poke38000+a,peek(34816+a+h*8):next
  33. 170 printtab(13)"**********"
  34. 180 forq=1to8:printtab(13)"*"tab(22)"*":next
  35. 190 printtab(13)"**********"
  36. 191 print""
  37. 195 print" zeichnen: [146]"
  38. 196 print" loeschen: [146]"
  39. 197 print" farbe:    [146]"
  40. 198 print" menue:    [146]"
  41. 200 printtab(13)"f1 = invers"
  42. 201 printtab(13)"f3 = spiegeln"
  43. 202 printtab(13)"f5 = rechts"
  44. 203 printtab(13)"f7 = runter"
  45. 210 sys29151:pokevc+21,1
  46. 220 pokevc,152:pokevc+1,144
  47. 230 poke52400,254
  48. 290 sys28672
  49. 295 sys15000
  50. 300 fora=0to100:next
  51. 301 poke198,0:printchr$(147)
  52. 305 y=97:pokevc+1,y:pokevc,120
  53. 310 print""tab(13)"1) probe"
  54. 320 printtab(13)"2) speichern"
  55. 330 printtab(13)"3) altes zeichen"
  56. 340 printtab(13)"4) neues zeichen"
  57. 350 printtab(13)"5) ende"
  58. 360 fora=0to7:poke57344+a+h*8,peek(38000+a):poke34816+a+h*8,peek(38000+a):next
  59. 370 if(peek(56320)and1)=0theny=y-8
  60. 375 if(peek(56320)and2)=0theny=y+8
  61. 380 if(peek(56320)and16)=0then410
  62. 390 ify<97theny=97
  63. 395 ify>161theny=161
  64. 400 pokevc+1,y:goto370
  65. 410 ify=97then443
  66. 420 ify=129thensys15030:pokevc,152:pokevc+1,144:fora=0to150:next:goto220
  67. 430 ify=145thenpokevc+21,0:goto92
  68. 440 ify=161thenprintchr$(147):pokevc+21,0:end
  69. 441 ify=113then450
  70. 442 goto370
  71. 443 printchr$(147):pokevc+21,0:print"aussteigen mit <return>"
  72. 444 sys29238:pokevc+21,1:goto300
  73. 450 printchr$(147):sys29408
  74. 455 poke16001,peek(45):poke16002,peek(46)
  75. 460 printtab(15)"speichern"
  76. 470 gosub670
  77. 490 ifx=48thenga=8:goto510
  78. 500 ga=1:goto530
  79. 510 gosub730
  80. 520 ifty=1then300
  81. 530 n$="":input"prg.-name";n$
  82. 540 poke193,28:poke194,115:sys57812 n$,ga
  83. 550 poke174,147:poke175,123:sys57812 n$,ga
  84. 580 poke16000,ga:sys15144 n$
  85. 590 poke45,peek(16001):poke46,peek(16002):print
  86. 595 print"laden:[146] load '"n$"',"ga",1"
  87. 596 print"start:[146] sys 29468"
  88. 597 geta$:ifa$=""andpeek(56320)=127then597
  89. 600 pokevc+21,1:goto300
  90. 610 poke53240,0:pokevc+23,0:pokevc+29,0:pokevc+21,1:pokevc+39,1
  91. 620 x=32:pokevc,x:pokevc+1,49
  92. 625 fora=0to100:next
  93. 630 if(peek(56320)and4)=0thenx=32
  94. 640 if(peek(56320)and8)=0thenx=144
  95. 650 if(peek(56320)and16)=0thenreturn
  96. 660 pokevc,x:goto630
  97. 670 printchr$(17)chr$(17)"    1) floppy oder 2) datasette ?"
  98. 680 x=48:pokevc,x:pokevc+1,73
  99. 685 fora=0to150:next
  100. 690 if(peek(56320)and4)=0thenx=48
  101. 700 if(peek(56320)and8)=0thenx=168
  102. 710 if(peek(56320)and16)=0thenreturn
  103. 720 pokevc,x:goto690
  104. 730 ty=0:open1,8,0:close1:ifst<>-128thenreturn
  105. 740 printchr$(17)tab(10)"device not present":fora=0to150:next
  106. 750 geta$:ifa$=""andpeek(56320)=127then750
  107. 760 ty=1:return
  108. 29997 :
  109. 29998 rem ******** track one **********
  110. 32000 data160,0,132,100,132,101,169,158,133,98,169,205,133,99,160,0,177,98,201
  111. 32001 data160,208,12,152,41,7,170,165,100,24,125,26,113,133,100,200,152,41,7
  112. 32002 data208,16,165,100,166,101,157,240,231,157,112,148,169,0,133,100,230,101
  113. 32003 data192,8,208,212,24,160,0,165,98,24,105,40,133,98,144,2,230,99,169,207
  114. 32004 data197,99,208,192,173,0,220,41,1,208,9,173,1,208,56,233,8,141,1,208,173
  115. 32005 data0,220,41,2,208,9,173,1,208,24,105,8,141,1,208,173,0,220,41,4,208,9
  116. 32006 data173,0,208,56,233,8,141,0,208,173,0,220,41,8,208,9,173,0,208,24,105
  117. 32007 data8,141,0,208,173,0,208,201,96,176,5,169,96,141,0,208,173,0,208,201,185
  118. 32008 data144,5,169,184,141,0,208,173,1,208,201,120,176,5,169,120,141,1,208,173
  119. 32009 data1,208,201,177,144,5,169,176,141,1,208,169,158,133,98,169,205,133,99
  120. 32010 data162,120,236,1,208,240,18,138,24,105,8,170,165,98,24,105,40,133,98,144
  121. 32011 data2,230,99,208,233,162,128,236,0,208,240,14,138,24,105,8,170,24,230,98
  122. 32012 data144,2,230,99,208,237,173,0,208,201,128,144,14,173,0,220,41,16,208,7
  123. 32013 data173,34,113,160,0,145,98,162,0,160,0,200,208,253,232,224,16,208,246
  124. 32014 data76,35,113,128,64,32,16,8,4,2,1,160,173,0,208,201,96,240,3,76,106,113
  125. 32015 data173,0,220,41,16,208,54,173,1,208,201,120,208,5,169,160,141,34,113,173
  126. 32016 data1,208,201,136,208,5,169,32,141,34,113,173,1,208,201,152,208,15,238
  127. 32017 data176,216,162,0,160,0,200,208,253,232,224,26,208,246,173,1,208,201,168
  128. 32018 data208,1,96,24,169,10,133,248,169,23,133,249,162,0,189,112,148,134,250
  129. 32019 data168,32,162,179,32,221,189,166,248,164,249,24,32,10,229,230,248,162
  130. 32020 data0,189,0,1,201,0,240,6,32,210,255,232,208,243,169,32,32,210,255,169
  131. 32021 data32,32,210,255,166,250,232,224,8,208,202,165,203,201,51,208,43,173,141
  132. 32022 data2,41,1,240,36,162,0,160,0,169,32,157,158,205,232,200,192,8,208,245
  133. 32023 data160,0,138,24,105,32,170,144,236,162,0,169,32,157,182,206,232,224,8
  134. 32024 data208,246,76,62,114,169,10,133,248,169,14,133,249,162,0,160,0,189,112
  135. 32025 data148,57,26,113,240,7,169,18,133,250,76,254,113,169,32,133,250,134,252
  136. 32026 data132,253,166,248,164,249,24,32,10,229,230,249,165,250,32,210,255,201
  137. 32027 data18,208,10,169,32,32,210,255,169,146,32,210,255,166,252,164,253,200
  138. 32028 data192,8,208,195,160,0,230,248,169,14,133,249,232,224,8,208,182,96,32
  139. 32029 data207,255,201,13,208,249,96,165,203,201,4,208,21,162,0,189,112,148,73
  140. 32030 data255,157,112,148,232,224,8,208,243,32,223,113,32,211,114,165,203,201
  141. 32031 data5,208,37,160,0,132,248,162,8,185,112,148,74,153,112,148,165,248,42
  142. 32032 data133,248,202,208,241,165,248,153,112,148,200,192,8,208,229,32,223,113
  143. 32033 data32,211,114,165,203,201,6,208,25,162,0,134,248,189,112,148,106,165,248
  144. 32034 data42,24,74,126,112,148,24,232,224,8,208,238,32,223,113,165,203,201,3
  145. 32035 data208,39,162,0,173,119,148,133,248,189,112,148,157,0,64,232,224,7,208
  146. 32036 data245,162,0,189,0,64,157,113,148,232,224,7,208,245,165,248,141,112,148
  147. 32037 data32,223,113,76,0,112,162,0,160,0,200,208,253,232,224,16,208,246,96,162
  148. 32038 data0,189,0,136,157,147,115,189,255,136,157,146,116,189,255,137,157,146
  149. 32039 data117,189,255,138,157,146,118,189,255,139,157,146,119,189,255,140,157
  150. 32040 data146,120,189,255,141,157,146,121,189,255,142,157,146,122,189,255,143
  151. 32041 data157,146,123,232,208,199,96,120,169,51,133,1,169,208,133,252,169,224
  152. 32042 data133,254,160,0,132,251,132,253,162,16,177,251,145,253,200,208,249,230
  153. 32043 data252,230,254,202,208,242,169,55,133,1,88,169,196,141,0,221,169,204,141
  154. 32044 data136,2,169,56,141,24,208,32,68,229,234,162,0,189,147,115,157,0,224,189
  155. 32045 data146,116,157,255,224,189,146,117,157,255,225,189,146,118,157,255,226
  156. 32046 data189,146,119,157,255,227,189,146,120,157,255,228,189,146,121,157,255
  157. 32047 data229,189,146,122,157,255,230,189,146,123,157,255,231,232,208,199,96
  158. 32048 rem ****** ende track one *******
  159. 32049 :
  160. 40000 data0,0,0,0,0,0,0,0,0,0,0,0
  161. 40001 data0,0,0,0,0,0,0,0,0,0,0,0
  162. 40002 data0,0,0,0,0,0,0,0,0,0,0,0
  163. 40003 data0,8,0,0,24,0,0,56,0,0,120,0,0,248,0,0,32,0,0,64,0,0,128,0,1,0,0
  164. 50000 data160,0,132,98,132,100,169,136,133,99,169,208,133,101,177,100,145
  165. 50010 data98,200,208,249,230,99,230,101,169,224,197,101,208,239
  166. 50070 data120,169,51,133,1,169,208,133,252,169,224,133,254,160,0,132,251
  167. 50080 data132,253,162,16,177,251,145,253,200,208,249,230,252,230,254,202
  168. 50090 data208,242,169,55,133,1,88,169,196
  169. 50100 data141,0,221,169,204,141,136,2,169,56,141,24,208,32,68,229,96
  170. 50110 data162,0,189,0,204,157,0,64,189,255,204,157,255,64,189,255,205,157,255
  171. 50120 data65,189,255,206,157,255,66,232,208,229,96,162,0,189,0,64,157,0
  172. 50130 data204,189,255,64,157,255,204,189,255,65,157,255,205,189,255,66,157,255
  173. 50140 data206,232,208,229,96
  174. 50150 data162,0,189,147,115,157,0,136,189,146,116,157,255,136,189,146,117
  175. 50160 data157,255,137,189,146,118,157,255,138,189,146,119,157,255,139,189
  176. 50170 data146,120,157,255,140,189,146,121,157,255,141,189,146,122,157,255
  177. 50180 data142,189,146,123,157,255,143,232,208,199,96
  178. 50190 data32,87,226,160,1,169,1,174,128,62,32,186,255,169,0,32,213,255
  179. 50200 data144,3,76,249,224,96
  180. 50210 data32,87,226,160,1,169,1,174,128,62,32,186,255,169,0,32,234,245
  181. 50220 data144,3,76,249,224,96
  182. 50230 :
  183. 50233 :
  184. 50235 rem ****** ladeprogramm *********
  185. 50236 rem *sys anfangsa,name,geraetenr*
  186. 50237 rem *****************************
  187. 50240 data32,253,174,32,87,226,32,253,174,32,158,183,169,1,168,32,186,255
  188. 50250 data169,0,32,213,255,144,3,76,249,224,96
  189.