home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 4 / 64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_A.d64 / zeichens.-editor (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  4KB  |  144 lines
  1. 0 rem *****************************
  2. 1 rem  zeichensatz-editor (c) 1985
  3. 2 rem *****************************
  4. 3 ifi=1then100
  5. 4 video=52223:rem start bildschirm
  6. 5 poke53280,0:poke53281,0:print"[158]"
  7. 10 rem modifizierte peek-funktion ------
  8. 11 fori=704to751:readx:pokei,x:next:poke785,192:poke786,2:rem usr-vektor
  9. 12 data165,20,72,165,21,72,32,247,183,165,1,72,165,21,201,208,144,7,201,224
  10. 13 data176,3,169,49,44,169,52,120,133,1,160,0,177,20,168,104,133,1,88,104,133
  11. 14 data21,104,133,20,76,162,179
  12. 30 rem menue ---------------------------
  13. 31 print"[147]zeichensatz-editor i[146]"
  14. 32 print"von michael nickles.
  15. 34 [153]"     nwaiteuen zeichensatz erstellen"
  16. 35 [153]"     awaitlten zeichensatz aendern  "
  17. 36 [153]"     dwaiteutschen zeichensatz generieren  "
  18. 37 [161]i$:[139]i$[179][177]"n"[175]i$[179][177]"a"[175]i$[179][177]"d"[167]37
  19. 38 [139]i$[178]"n"[167]50
  20. 39 [139]i$[178]"d"[167]50
  21. 40 [143] deutschen zeichensatz laden -----
  22. 41 [133]"filename ";i$
  23. 42 [139]i[179][177]1[167]i[178]1:[147]i$,8,1
  24. 44 [151]648,204:[151]53272,56:[151]56576,0:[153]"load"
  25. 50 [143] z.s. vom rom ins ram ab 57344 ---
  26. 51 [153]"bitte warten!"
  27. 53 [151]56334,[194](56334)[175]254:[151]1,[194](1)[175]251: [143] interrupt aus
  28. 55 iz[178]57344
  29. 60 [129]i[178]53248[164]57344
  30. 62 :[151]iz,[194](i)
  31. 64 :iz[178]iz[170]1
  32. 66 [130]i
  33. 70 [151]1,[194](1)[176]4:[151]56334,[194](56334)[176]1
  34. 80 [139]i$[178]"d"[167]3000
  35. 100 [143] start --------------------------
  36. 105 [151]648,204:[151]53272,56:[151]56576,0:[153]"load";
  37. 106 [153]"bitte waehlen sie:
  38. 110 print"     gross-grafik z.satz  1[146]"
  39. 115 print"     gross-klein  z.satz  2[146]"
  40. 116 print"     z.satz abspeichern   3[146]
  41. 118 [153]"     crazy characters     4wait
  42. 120 geti$:ifi$<>"1"andi$<>"2"andi$<>"3"andi$<>"4"then120
  43. 122 ifi$="1"then an=57344      :printchr$(142)
  44. 124 ifi$="2"then an=57344+256*8:printchr$(14)
  45. 125 ifi$="3"then 1000
  46. 127 ifi$="4"then 2000
  47. 130 print"welches zeichen wollen sie aendern?"
  48. 131 print"angabe bitte im bildschirmcode!
  49. 132 [133]"zeichen ";nr:z[178]nr
  50. 200 [143] maske ausgeben -----------------
  51. 201 video[178]52223
  52. 205 [153]"loadzeichen: ":[151]vi[170]10,z
  53. 210 z[178]an[170]z[172]8
  54. 229 [153]"    ";
  55. 230 [129]i1[178]z[164]z[170]7
  56. 235 [153]i1;"   ";
  57. 240 :b[178][183](i1)
  58. 245 : [129]i2[178]7[164]0[169][171]1
  59. 250 :   [139] b[175]2[174]i2 [167][153]"*";:[137]260
  60. 255 :   [153]".";
  61. 260 : [130]i2
  62. 270 :[153]"   "b:[153]"    ";
  63. 275 [130]i1
  64. 300 [143] editor-programm ----------------
  65. 310 xx[178]vi[170]135:xp[178][194](xx):[151]xx,32
  66. 330 joy[178]56320:[143] port 2
  67. 331 ta[178]203:t1[178]653
  68. 335 [139][194](joy)[178]127[175][194](ta)[178]64[167]w[178]0
  69. 340 [139][194](joy)[178]126[176][194](ta)[178]7[175][194](t1)[178]1[167]w[178][171]40
  70. 342 [139][194](joy)[178]125[176][194](ta)[178]7[175][194](t1)[178]0[167]w[178][170]40
  71. 344 [139][194](joy)[178]123[176][194](ta)[178]2[175][194](t1)[178]1[167]w[178][171]1
  72. 346 [139][194](joy)[178]119[176][194](ta)[178]2[175][194](t1)[178]0[167]w[178][170]1
  73. 350 [139][194](joy)[177]111[175][194](ta)[179][177]60[167]360
  74. 352 [139]xp[178]46[167]xp[178]42:[137]355
  75. 354 [139]xp[178]42[167]xp[178]46:[137]355
  76. 355 [151]xx,xp:[139][194](joy)[179][178]111[176][194](ta)[178]60[167]355
  77. 360 :[139][194](ta)[178]1[167][151]xx,xp:[137]400
  78. 370 [151]xx,xp
  79. 375 xx[178]xx[170]w:[139][194](xx)[178]32[167]xx[178]xx[171]w
  80. 380 xp[178][194](xx):[151]xx,32
  81. 390 [137]330
  82. 400 [143] neues zeichen berechnen
  83. 405 [153]"bitte warten!"
  84. 410 xx[178]vi[170]135
  85. 430 [129] i1[178]xx [164] xx[170]7[172]40[169]40
  86. 435 :im[178]0:iz[178]7
  87. 445 : [129] i2[178]i1 [164] i1[170]7
  88. 450 :   [139]rv[178]0[167][139][194](i2)[178]42[167]im[178]im[170]2[174]iz
  89. 451 :   [139]rv[178]1[167][139][194](i2)[178]46[167]im[178]im[170]2[174]iz
  90. 455 :   iz[178]iz[171]1
  91. 460 : [130]i2
  92. 470 :[151]z,im:z[178]z[170]1
  93. 475 [130]i1
  94. 476 [139]rv[178]1[167]rv[178]0:[137]100
  95. 479 [139]nr[177]127[167]100
  96. 480 [153]"revers-aenderung erwuenscht? (j/n)
  97. 482 geti$:ifi$<>"j"andi$<>"n"then482
  98. 484 ifi$="n"then100
  99. 485 z=an+(nr+128)*8:rv=1:goto400
  100. 490 goto100
  101. 1000 rem z.satz abspeichern ------------
  102. 1000 rem speichern auf disk -----------
  103. 1005 print"[147]zeichensatz auf disk speichern[146]":poke198,0
  104. 1006 input"filename";i$
  105. 1010 print"bitte diskette einlegen!
  106. 1020 [153]"[return]":[151]198,0:[146]198,1
  107. 1030 aa[178]57344
  108. 1040 ea[178]61439
  109. 1050 [159]1,8,1,i$
  110. 1060 hb[178][181](aa[173]256):lb[178]aa[171]hb[172]256
  111. 1070 [152]1,[199](lb);[199](hb);
  112. 1080 [129]i[178]aa[164]ea
  113. 1090 :[152]1,[199]([183](i));
  114. 1100 [130]i
  115. 1110 [160]1
  116. 1120 [153]"*** fertig ***":[138]
  117. 2000 [143] crazy characters --------------
  118. 2010 [129]i[178]57344[164]61439
  119. 2020 :x[178][183](i):m[178]0
  120. 2030 : [129] i1[178]0 [164] 7
  121. 2040 :  [139] x[175]2[174]i1 [167] m[178]m[170]2[174](7[171]i1)
  122. 2050 : [130]i1
  123. 2060 :[151]i,m
  124. 2070 :[130]i
  125. 2080 [137]100
  126. 3000 [143] deutschen zeichensatz automatisch generieren --------------------------
  127. 3010 [131]60264,102,24,60,102,126,102,102,0  :[143] grosses ae
  128. 3015 [131]60336,102,60,102,102,102,102,60,0  :[143] grosses oe
  129. 3020 [131]60328,102,0,102,102,102,102,60,0   :[143] grosses ue
  130. 3025 [131]60288,102,0,60,6,62,102,62,0       :[143] kleines ae
  131. 3030 [131]60360,0,102,0,60,102,102,60,0      :[143] kleines oe
  132. 3035 [131]60352,0,102,0,102,102,102,62,0     :[143] kleines ue
  133. 3040 [131]60272,60,102,102,108,110,102,108,96:[143] scharfes s
  134. 3045 [131]59392,102,102,102,0,0,0,0,0        :[143] anfuehrungszeichen
  135. 3050 [131]59640,0,0,0,0,0,24,24,48           :[143] komma
  136. 3055 [131]59632,0,0,24,0,0,24,0,0            :[143] doppelpunkt
  137. 3060 [131]-1
  138. 3100 [135]x:[139]x[178][171]1[167]100
  139. 3110 [129]i[178]x[164]x[170]7
  140. 3120 : [135]a:[151]i,a     :[143] normal
  141. 3130 :       [151]i[170]2048,a:[143] revers
  142. 3140 [130]i
  143. 3150 [137]3100
  144.