home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 68 / 64er_Magazin_Sonderheft_68_19xx_Markt__Technik_de_Side_A.d64 / editor (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  6KB  |  176 lines
  1. 100 rem editor.system-v
  2. 105 rem (w) 1989  ingolf lange
  3. 110 :
  4. 115 restore
  5. 120 fory=0to7:readp:poke57344+y,p:poke59392+y,p:next
  6. 125 data 0,0,0,24,24,0,0,0
  7. 130 fory=0to7:readp:poke57344+1024+y,p:poke59392+1024+y,p:next
  8. 135 data 0,126,126,126,126,126,126,0
  9. 140 :
  10. 145 ifpeek(50176)=120 then 430
  11. 150 :
  12. 155 for i=0 to 289
  13. 160 readp:if p>255 then a=p:printa:   nexti
  14. 165 pokea,p:a=a+1:nexti
  15. 170 sys 50176:run
  16. 175 :
  17. 180 rem zeichensatz ins ram kopieren
  18. 185 :
  19. 190 data 50176
  20. 195 data 120,162,0,160,208,134,2,132
  21. 200 data 3,162,0,160,224,134,4,132
  22. 205 data 5,169,49,133,1,162,16,160
  23. 210 data 0,177,2,145,4,200,208,249
  24. 215 data 230,3,230,5,202,208,242,169
  25. 220 data 55,133,1,169,1,141,50,196
  26. 225 data 88,96,0
  27. 230 :
  28. 235 rem punkteraster ausgeben
  29. 240 :
  30. 245 data 51200
  31. 250 data 32,253,174,32,138,173,32,247
  32. 255 data 183,132,251,133,252,32,253,174
  33. 260 data 32,138,173,32,247,183,132,253
  34. 265 data 133,254,120,165,1,133,255,169
  35. 270 data 52,133,1,162,0,142,61,3
  36. 275 data 160,0,161,251,57,98,200,142
  37. 280 data 62,3,217,98,200,208,5,169
  38. 285 data 128,141,62,3,173,62,3,145
  39. 290 data 253,200,192,8,208,228,165,253
  40. 295 data 105,39,133,253,144,2,230,254
  41. 300 data 230,251,238,61,3,173,61,3
  42. 305 data 201,8,208,204,165,255,133,1
  43. 310 data 88,96,128,64,32,16,8,4
  44. 315 data 2,1
  45. 320 :
  46. 325 rem save      nach 64'er 6/88
  47. 330 :
  48. 335 data 52224
  49. 340 data 32,253,174,32,87,226,32,189
  50. 345 data 255,32,253,174,32,138,173,32
  51. 350 data 247,183,133,194,132,193,32,253
  52. 355 data 174,32,138,173,32,247,183,133
  53. 360 data 175,132,174,169,1,162,8,160
  54. 365 data 1,32,186,255,169,97,133,185
  55. 370 data 32,213,243,165,186,32,12,237
  56. 375 data 165,185,32,185,237,32,142,251
  57. 380 data 165,172,32,221,237,165,173,32
  58. 385 data 221,237,32,209,252,176,20,120
  59. 390 data 160,0,132,1,177,172,160,55
  60. 395 data 132,1,88,32,221,237,32,219
  61. 400 data 252,208,231,32,254,237,165,186
  62. 405 data 32,12,237,165,185,41,239,9
  63. 410 data 224,32,185,237,32,254,237,96
  64. 415 data 40,96,160,0,177,61,145,0
  65. 420 data 0,21
  66. 425 :
  67. 430 poke56576,148:poke53272,9:poke53265,27:poke648,192
  68. 435 poke53280,0:poke53281,0
  69. 440 :
  70. 445 print"[151][147]"
  71. 450 print"   editor.system-v
  72. 455 [153]"   (w) 1989  ingolf lange
  73. 460 print
  74. 465 print" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  75. 470 [153]" (NULL) f1 zeichen aussuchen               (NULL)"
  76. 475 [153]" (NULL)                                    (NULL)"
  77. 480 [153]" (NULL)    cursor  zeichen waehlen         (NULL)"
  78. 485 [153]" (NULL)    1-9     in die felder kopieren  (NULL)"
  79. 490 [153]" (NULL)                                    (NULL)"
  80. 495 [153]" (NULL) f2 zeichen editieren               (NULL)
  81. 500 print" [221]                                    [221]"
  82. 505 print" [221]    cursor  rasterpunkt ansteuern   [221]"
  83. 510 print" [221]    space   rasterpunkt invertieren [221]"
  84. 515 print" [221]    return  zeichen annehmen        [221]"
  85. 520 print" [221]    clear   raster loeschen         [221]"
  86. 525 print" [221]                                    [221]"
  87. 530 print" [221]                                    [221]"
  88. 535 print" [221] 'l'  zeichensatz laden             [221]"
  89. 540 print" [221] 's'  zeichensatz speichern         [221]"
  90. 545 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  91. 550 print"   irgendeine taste, um fortzusetzen.
  92. 555 [151]198,0:[146]198,1
  93. 560 :
  94. 565 :
  95. 570 [156]:[134] c(8),a(8),b(8) :g$[178][199](34)[170][199](34)[170]"cmd"
  96. 575 b(0)[178]49192:b(1)[178]49200:b(2)[178]49208
  97. 580 b(3)[178]49512:b(4)[178]49520:b(5)[178]49528
  98. 585 b(6)[178]49832:b(7)[178]49840:b(8)[178]49848
  99. 590 [129]i[178]0[164]8:a(i)[178]57344:[130]i
  100. 595 [153]"load"
  101. 600 [153]"poke@@@@@@@@@@@@@@@@poke@@@@@@@@syseditor.system-v ";
  102. 605 [153]"poke@@@@@@@@@@@@@@@@poke@@@@@@@@sys                ";
  103. 610 [153]"poke@@@@@@@@@@@@@@@@poke@@@@@@@@syszeichensaetze:  ";
  104. 615 [153]"poke@@@@@@@@@@@@@@@@poke@@@@@@@@sys1) $e000 (57344)";
  105. 620 [153]"poke@@@@@@@@@@@@@@@@poke@@@@@@@@sys2) $e800 (59392)";
  106. 625 [153]"poke@@@@@@@@@@@@@@@@poke@@@@@@@@sys                ";
  107. 630 [153]"poke@@@@@@@@@@@@@@@@poke@@@@@@@@sysh help          ";
  108. 635 [153]"poke@@@@@@@@@@@@@@@@poke@@@@@@@@sys                ";
  109. 640 [153]"@@@@@@@@poke@@@@@@@@@@@@@@@@waitpoke@apokebcpokedepokefgpokehipokejkpokelmpokeno";
  110. 645 [153]"@@@@@@@@poke@@@@@@@@@@@@@@@@poke@apokebcpokedepokefgpokehipokejkpokelmpokenowait";
  111. 650 [153]"@@@@@@@@poke@@@@@@@@@@@@@@@@waitppokeqrpokestpokeuvpokewxpokeyzpoke[\poke]^poke_";
  112. 655 [153]"@@@@@@@@poke@@@@@@@@@@@@@@@@ppokeqrpokestpokeuvpokewxpokeyzpoke[\poke]^poke_wait";
  113. 660 [153]"@@@@@@@@poke@@@@@@@@@@@@@@@@waitpoke !poke"g$"#poke$%poke&'poke()poke*+poke,-poke./";
  114. 665 [153]"@@@@@@@@poke@@@@@@@@@@@@@@@@poke !poke"g$"#poke$%poke&'poke()poke*+poke,-poke./wait";
  115. 670 [153]"@@@@@@@@poke@@@@@@@@@@@@@@@@wait0poke12poke34poke56poke78poke9:poke;<poke=>poke?";
  116. 675 [153]"@@@@@@@@poke@@@@@@@@@@@@@@@@0poke12poke34poke56poke78poke9:poke;<poke=>poke?wait";
  117. 680 [153]"poke@@@@@@@@@@@@@@@@poke@@@@@@@@waitpoketanatnpokepeeklenpokestr$valpokeascchr$pokeleft$right$pokemid$(NULL)poke(NULL)(NULL)poke(NULL)(NULL)";
  118. 685 [153]"poke@@@@@@@@@@@@@@@@poke@@@@@@@@poketanatnpokepeeklenpokestr$valpokeascchr$pokeleft$right$pokemid$(NULL)poke(NULL)(NULL)poke(NULL)(NULL)wait";
  119. 690 [153]"poke@@@@@@@@@@@@@@@@poke@@@@@@@@wait(NULL)poke(NULL)(NULL)poke(NULL)(NULL)poke(NULL)(NULL)poke(NULL)(NULL)poke(NULL)(NULL)poke(NULL)(NULL)poke(NULL)(NULL)poke(NULL)";
  120. 695 [153]"poke@@@@@@@@@@@@@@@@poke@@@@@@@@(NULL)poke(NULL)(NULL)poke(NULL)(NULL)poke(NULL)(NULL)poke(NULL)(NULL)poke(NULL)(NULL)poke(NULL)(NULL)poke(NULL)(NULL)poke(NULL)wait";
  121. 700 [153]"poke@@@@@@@@@@@@@@@@poke@@@@@@@@waitpokeclosegetpokenewtab(poketofnpokespc(thenpokenotsteppoke+-poke*/poke^and";
  122. 705 [153]"poke@@@@@@@@@@@@@@@@poke@@@@@@@@pokeclosegetpokenewtab(poketofnpokespc(thenpokenotsteppoke+-poke*/poke^andwait";
  123. 710 [153]"poke@@@@@@@@@@@@@@@@poke@@@@@@@@waitorpoke>=poke<sgnpokeintabspokeusrfrepokepossqrpokerndlogpokeexpcospokesin";
  124. 715 [153]"poke@@@@@@@@@@@@@@@@poke@@@@@@@@orpoke>=poke<sgnpokeintabspokeusrfrepokepossqrpokerndlogpokeexppokesincmd";
  125. 720 [153] [199](148);" cmdcoswait";
  126. 725 :
  127. 730 fp[178]55680[170]40[172]yy[170]xx:f[178][194](fp):[151]fp,7
  128. 735 [161]a$:[139]a$[178]""[167]735
  129. 740 [151]fp,f: q[178][197](a$)[171]1
  130. 745 [139]a$[178]""[167]xx[178](xx[170]1)[175]15
  131. 750 [139]a$[178]"cmd"[167]xx[178](xx[171]1)[175]15
  132. 755 [139]a$[178]""[167]yy[178](yy[170]1)[175]15
  133. 760 [139]a$[178]"on"[167]yy[178](yy[171]1)[175]15
  134. 765 [139]a$[177][178]"1"[175]a$[179][178]"9"[167]795
  135. 770 [139]a$[178][199](137)[167]815:[143] f2
  136. 775 [139]a$[178]"s" [167]925
  137. 780 [139]a$[178]"l" [167]965
  138. 785 [139]a$[178]"h"[167][138]
  139. 790 [137]730
  140. 795 c(q)[178][194](49536[170]40[172]yy[170]xx)
  141. 800 a(q)[178]57344[170]([194](53272)[175]2)[172]1024[170]c(q)[172]8
  142. 805 [158]51200,a(q),b(q):[137]730
  143. 810 :
  144. 815 x[178]0:y[178]0
  145. 820 fp[178]55336[170]40[172]y[170]x:f[178][194](fp):[151]fp,7:bp[178]b(0)[170]40[172]y[170]x
  146. 825 [161]a$:[139]a$[178]""[167]825
  147. 830 [151]fp,f
  148. 835 [139]a$[178]" "[167][151]bp,128[171][194](bp):a$[178]""
  149. 840 [139]a$[178]""[167]x[178]x[170]1:[139]x[178]24[167]x[178]0
  150. 845 [139]a$[178]"cmd"[167]x[178]x[171]1:[139]x[178][171]1[167]x[178]23
  151. 850 [139]a$[178]""[167]y[178]y[170]1:[139]y[178]24[167]y[178]0
  152. 855 [139]a$[178]"on"[167]y[178]y[171]1:[139]y[178][171]1[167]y[178]23
  153. 860 [139]a$[178][199](133)[167]725:[143] f1
  154. 865 q[178][171]3[172](y[177]15)[171]3[172](y[177]7)[171](x[177]15)[171](x[177]7)
  155. 870 [139]a$[178]"load"[167][129]s[178]0[164]7:[129]i[178]0[164]7:[151]b(q)[170]40[172]s[170]i,0:[130]i,s
  156. 875 [139]a$[178]"i"[167][129]s[178]0[164]7:[129]i[178]0[164]7:[151]b(q)[170]40[172]s[170]i,128[171][194](b(q)[170]40[172]s[170]i):[130]i,s
  157. 880 [139]a$[179][177][199](13)[167]900
  158. 885 [129]s[178]0[164]7
  159. 890 p[178]0:[129]i[178]0[164]7:p[178]p[171]2[174](7[171]i)[172]([194](b(q)[170]40[172]s[170]i)[178]128):[130]i
  160. 895 [151]a(q)[170]s,p:[130]s:[137]820
  161. 900 [139]a$[178]"s"[167]925
  162. 905 [139]a$[178]"l"[167]965
  163. 910 [139]a$[178]"h"[167][138]
  164. 915 [137]820
  165. 920 :
  166. 925 [153]"load den ersten (1), den zweiten (2) oder
  167. 930 input" beide (3) zeichensaetze speichern";w
  168. 935 input" s-name ";n$ :print
  169. 940 a=57344-2048*(w=2):e=61440+2048*(w=1)
  170. 945 open1,8,15,("s0:"+n$):close1
  171. 950 sys52224,n$,a,e
  172. 955 run
  173. 960 :
  174. 965 input"[147] l-name ";n$
  175. 970 load n$,8,1:run
  176.