home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 56 / Digital_Talk_56_2002-08-23_Digital_Talk_de_Side_B.d64 / kht-dt-editanl01 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  7KB  |  279 lines
  1. 2 rem ---khtdteditanl01---
  2. 3 print"[147]":poke53280,5:poke53281,11:gosub1001:goto110
  3. 9 qp=27:open4,4:open5,4,6:cmd4:print#5,chr$(qp):close4:close5:end
  4. 11 q$="khtdteditanl":qv$="01":qt$=q$+qv$:qd$="300602":return
  5. 12 gosub11:print"g-a 8/9?[145]":getq:on-(q<>8andq<>9)goto12:return
  6. 18 gosub12:print"   g-a"q"[145]":open15,q,15,"s:"+qt$:close15:saveqt$,q:end
  7. 61 cy=int(c/100):cx=c-(cy*100)
  8. 62 poke211,cx:poke214,cy:sys58640:return
  9. 68 lc=int(l/100):ll=l-(lc*100)
  10. 69 forx=lctoll:poke781,x:sys59903:next:return
  11. 100 rem ---programm-ablauf---
  12. 110 print"[147]":goto180:rem ---bs1---
  13. 120 printr5$l1$
  14. 122 printr5$u1$
  15. 124 printr5$l2$
  16. 126 printr5$d1$
  17. 128 printcr$cr$cr$cr$r5$u2$
  18. 130 printcr$cr$r3$sh$
  19. 132 printr0$e1$(1)
  20. 134 printr0$e1$(2)
  21. 140 printcr$cr$r3$cb$
  22. 142 printr0$e1$(3)
  23. 144 printr0$e1$(4)
  24. 179 return
  25. 180 bs=1:gosub120
  26. 182 gosub910
  27. 190 ifr$="+"then210
  28. 192 ifr$="-"then810
  29. 194 ifr$="d"thengosub940
  30. 199 goto110
  31. 210 print"[147]":goto280:rem ---bs2---
  32. 220 printcr$r3$ct$
  33. 222 printr0$e1$(5)
  34. 224 printr0$e1$(6)
  35. 230 printcr$r0$e1$(7)
  36. 232 printr0$e1$(8)
  37. 234 printr0$e1$(9)
  38. 236 printr0$e1$(10)
  39. 240 printcr$r0$e2$(1)
  40. 242 printr0$e2$(2)
  41. 244 printcr$r0$e2$(3)
  42. 246 printr0$e2$(4)
  43. 250 printcr$r0$e2$(5)
  44. 252 printcr$r0$e2$(6)
  45. 254 printr0$e2$(7)
  46. 279 return
  47. 280 bs=2:gosub220
  48. 282 gosub910
  49. 290 ifr$="+"then310
  50. 292 ifr$="-"then110
  51. 294 ifr$="d"thengosub940
  52. 299 goto210
  53. 310 print"[147]":goto380:rem ---bs3---
  54. 320 printcr$cr$r5$u3$
  55. 322 printcr$cr$cr$r3$e3$(1)
  56. 330 printcr$cr$r3$sh$
  57. 332 printr0$e3$(2)
  58. 340 printcr$cr$r3$cb$
  59. 342 printr0$e3$(3)
  60. 350 printcr$cr$r3$ct$
  61. 352 printr0$e3$(4)
  62. 354 printr0$e3$(5)
  63. 379 return
  64. 380 bs=3:gosub320
  65. 382 gosub910
  66. 390 ifr$="+"then410
  67. 392 ifr$="-"then210
  68. 394 ifr$="d"thengosub940
  69. 399 goto310
  70. 410 print"[147]":goto480:rem ---bs4---
  71. 420 printcr$cr$r5$u4$
  72. 422 printcr$cr$cr$r3$cb$
  73. 430 printr0$e4$(1)
  74. 432 printr0$e4$(2)
  75. 434 printr0$e4$(3)
  76. 436 printr0$e4$(4)
  77. 440 printcr$cr$r3$ct$
  78. 442 printr0$e4$(5)
  79. 444 printr0$e4$(6)
  80. 446 printr0$e4$(7)
  81. 450 printcr$r0$e4$(8)
  82. 452 printr0$e4$(9)
  83. 479 return
  84. 480 bs=4:gosub420
  85. 482 gosub910
  86. 490 ifr$="+"then510
  87. 492 ifr$="-"then310
  88. 494 ifr$="d"thengosub940
  89. 499 goto410
  90. 510 print"[147]":goto580:rem ---bs5---
  91. 520 printcr$cr$r5$u5$
  92. 522 printcr$cr$r3$e5$(1)
  93. 530 printcr$cr$r3$ct$
  94. 532 printr0$e5$(2)
  95. 533 printr0$e5$(3)
  96. 534 printr0$e5$(4)
  97. 535 printr0$e5$(5)
  98. 536 printr0$e5$(6)
  99. 540 printcr$cr$r5$u6$
  100. 542 printcr$r3$e5$(7)
  101. 544 printr3$e5$(8)
  102. 546 printr3$e5$(9)
  103. 579 return
  104. 580 bs=5:gosub520
  105. 582 gosub910
  106. 590 ifr$="+"then610
  107. 592 ifr$="-"then410
  108. 594 ifr$="d"thengosub940
  109. 599 goto510
  110. 610 print"[147]":goto680:rem ---bs6---
  111. 620 printe6$(1)
  112. 622 printe6$(2)
  113. 623 printe6$(3)
  114. 624 printe6$(4)
  115. 630 printcr$e6$(5)
  116. 632 printe6$(6)
  117. 633 printe6$(7)
  118. 634 printe6$(8)
  119. 635 printe6$(9)
  120. 640 printcr$cr$cr$r5$u7$
  121. 642 printcr$cr$e7$(1)
  122. 643 printe7$(2)
  123. 644 printe7$(3)
  124. 645 printe7$(4)
  125. 646 printe7$(5)
  126. 679 return
  127. 680 bs=6:gosub620
  128. 682 gosub910
  129. 690 ifr$="+"then710
  130. 692 ifr$="-"then510
  131. 694 ifr$="d"thengosub940
  132. 699 goto610
  133. 710 print"[147]":goto780:rem ---bs7---
  134. 720 printh1$
  135. 721 printcr$r5$h1$(1)
  136. 722 printcr$r5$h1$(2)
  137. 728 printcr$h2$
  138. 730 printcr$h3$
  139. 731 printcr$r5$h3$(1)
  140. 732 printcr$r5$h3$(2)
  141. 740 printcr$h4$
  142. 741 printcr$r5$h4$(1)
  143. 750 printcr$h5$
  144. 751 printcr$r5$h5$(1)
  145. 779 return
  146. 780 bs=7:gosub720
  147. 782 gosub910
  148. 790 ifr$="+"then810
  149. 792 ifr$="-"then610
  150. 794 ifr$="d"thengosub940
  151. 799 goto710
  152. 810 print"[147]":goto880:rem ---bs8---
  153. 820 printcr$cr$r5$u8$
  154. 821 printcr$cr$r3$ct$
  155. 822 printr9$g1$(1)
  156. 823 printr9$g1$(2)
  157. 824 printr9$g1$(3)
  158. 825 printr9$g1$(4)
  159. 826 printr9$g1$(5)
  160. 827 printr9$g1$(6)
  161. 828 printr9$g1$(7)
  162. 830 printcr$r5$l1$
  163. 831 printcr$g2$(1)
  164. 832 printg2$(2)
  165. 833 printcr$g2$(3)
  166. 834 printg2$(4)
  167. 879 return
  168. 880 bs=8:gosub820
  169. 882 gosub910
  170. 890 ifr$="+"then110
  171. 892 ifr$="-"then710
  172. 894 ifr$="d"thengosub940
  173. 899 goto810
  174. 900 rem --- abfragen ---
  175. 910 l=2324:gosub68:c=2300:gosub61
  176. 920 print"[144][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210]";
  177. 922 printbs"   [152]blaettern <+[152]/-[152]>  drucken <d[152]>[145][145]"
  178. 930 r$="":getr$:ifr$<>"+"andr$<>"-"andr$<>"d"then930
  179. 939 return
  180. 940 open4,4:cmd4
  181. 942 onbsgosub120,220,320,420,520,620,720,820
  182. 944 print#4:close4
  183. 949 return
  184. 990 print"[147]noch nicht programmiert!"
  185. 992 poke198,0:wait198,1
  186. 994 poke198,0
  187. 999 goto110
  188. 1000 rem ---definition-variable---
  189. 1001 l1$="[153][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210]"
  190. 1002 l2$="[153][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
  191. 1008 cr$=chr$(13):r5$="     ":r0$="          ":r9$="         ":r3$="   "
  192. 1009 sh$="[159]shift-":cb$="[159]cbm-":ct$="[159]ctrl-":rs$="[159]run/stop"
  193. 1010 u1$="[158]dt-editor  v 6.98 - anleitung:"
  194. 1012 u2$="---- texteditor-kommandos ----"
  195. 1013 u3$="---- tabulator-kommandos: ----"
  196. 1014 u4$="------ block-funktionen ------"
  197. 1015 u5$="----- diskettenkommandos -----"
  198. 1016 u6$="---------- charsets ----------"
  199. 1017 u7$="-- einbindung hires-grafik: --"
  200. 1018 u8$="--- weitere grafik-befehle ---"
  201. 1022 d1$="[155]-basic-ausfuehrung von kahate-"
  202. 1031 e1$(1)="[155]+ seite vorblaettern"
  203. 1032 e1$(2)="[155]- seite zurueckblaettern"
  204. 1033 e1$(3)="[155]+ 10 seiten vorblaettern"
  205. 1034 e1$(4)="[155]- 10 seiten zurueckblaettern"
  206. 1035 e1$(5)="[155]+ zum textende gehen"
  207. 1036 e1$(6)="[155]- zum textanfang gehen"
  208. 1037 e1$(7)="[155]= zeile in blocksatz"
  209. 1038 e1$(8)="[155]; zeile linksbuendig"
  210. 1039 e1$(9)="[155]: zeile rechtsbuendig"
  211. 1040 e1$(10)="[155]c zeile zentrieren"
  212. 1041 e2$(1)="[155]i zeile einfuegen"
  213. 1042 e2$(2)="[155]e zeile loeschen"
  214. 1043 e2$(3)="[155]j seite einfuegen"
  215. 1044 e2$(4)="[155]k seite loeschen"
  216. 1045 e2$(5)="[155]x wordwrap <aut.zlnumsprung>"
  217. 1046 e2$(6)="[155]z textspeicher loeschen"
  218. 1047 e2$(7)="[155]  <achtung! keine abfrage!>"
  219. 1051 e3$(1)="[155]run/stop   tabulator links"
  220. 1052 e3$(2)="[155]r/s tabulator rechts"
  221. 1053 e3$(3)="[155]r/s tabulator setzen"
  222. 1054 e3$(4)="[155] *  loescht alle tabs"
  223. 1055 e3$(5)="[155]r/s loescht gesetzten tab"
  224. 1061 e4$(1)="[155]f1 setzt blockanfang"
  225. 1062 e4$(2)="[155]f3 setzt blockende"
  226. 1063 e4$(3)="[155]f5 kopiert block in puffer"
  227. 1064 e4$(4)="[155]f7 kopiert puffer im block"
  228. 1065 e4$(5)="[155]f5 schneidet block aus und"
  229. 1066 e4$(6)="[155]   speichert ihn in puffer"
  230. 1067 e4$(7)="[155]f7 tauscht puffer und block"
  231. 1068 e4$(8)="[155]r  kopiert seite in puffer"
  232. 1069 e4$(9)="[155]h  blockmaske entfernen"
  233. 1071 e5$(1)="[155]f2  laufwerknummer aendern"
  234. 1072 e5$(2)="[155]l  text laden"
  235. 1073 e5$(3)="[155]s  text speichern"
  236. 1074 e5$(4)="[155]a  text anhaengen"
  237. 1075 e5$(5)="[155]d  directory zeigen"
  238. 1076 e5$(6)="[155]q  floppy-systembefehl"
  239. 1077 e5$(7)="[155]f1  normale textschrift"
  240. 1078 e5$(8)="[155]f3  fettschrift   (hervorhebungen)"
  241. 1079 e5$(9)="[155]f5  grossschrift  (ueberschriften)"
  242. 1080 e6$(1)="[155] alternative charsets mit cbm+<zeichen>"
  243. 1082 e6$(2)="[155] im normal- od. fettschrift-modus sowie"
  244. 1083 e6$(3)="[155] mit schift+<zeichen>  im grossschrift-"
  245. 1084 e6$(4)="[155] modus."
  246. 1085 e6$(5)="[155] grafik-zeichensatz  mit  cbm+<zchn> im"
  247. 1086 e6$(6)="[155] doppelschrift-modus.   ein  komplettes"
  248. 1087 e6$(7)="[155] objekt  besteht  dabei  immer aus zwei"
  249. 1088 e6$(8)="[155] aufeinanderfolgenden  zeichen    <z.b."
  250. 1089 e6$(9)="[155] cbm-a + cbm-b>."
  251. 1090 e7$(1)="[155] hires-grafiken, die eingebunden werden"
  252. 1092 e7$(2)="[155] sollen, muessen zunaechst mit hilfe d."
  253. 1093 e7$(3)="[153] dt-charkonverter  [155]<befindet sich a. d."
  254. 1094 e7$(4)="[155] dt-tooldisk> in einen charset u. einen"
  255. 1095 e7$(5)="[155] screen konvertiert werden."
  256. 1110 h1$="[155] 1. -[158]ctrl-g[155]  druecken"
  257. 1111 h1$(1)="[152]filename:  [155]f.<charsetname>"
  258. 1112 h1$(2)="[152]<zeichensatz laden>"
  259. 1120 h2$="[155] 2. -usercharset 1 od. 2 waehlen <[158]1[155]/[158]2[155]>"
  260. 1130 h3$="[155] 3. -[158]ctrl-b[155]  druecken"
  261. 1131 h3$(1)="[152]filename:  [155]s.<screenname>"
  262. 1132 h3$(2)="[152]<screen laden>"
  263. 1140 h4$="[155] 4. -usercharset 1 bzw. 2 aktivieren"
  264. 1141 h4$(1)="[155]< [158]f7[155] / [158]f8[155] >"
  265. 1150 h5$="[155] 5. -[158]ctrl-p[155]  druecken"
  266. 1151 h5$(1)="[152]<grafik einschalten>"
  267. 1161 g1$(1)="[155]m  screenpuffer + screen mixen"
  268. 1162 g1$(2)="[155]t  screen in screenpuffer"
  269. 1163 g1$(3)="[155]   transferieren"
  270. 1164 g1$(4)="[155]w  screenpuffer auf disk"
  271. 1165 g1$(5)="[155]   speichern"
  272. 1166 g1$(6)="[155]n  usercharsets loeschen"
  273. 1167 g1$(7)="[155]o  grafiken aus text loeschen"
  274. 1171 g2$(1)="[155] dies  waren jetzt  alle funktionen des"
  275. 1172 g2$(2)="[155] dt-editors."
  276. 1173 g2$(3)="[155] bei weiteren fragen, etc. bitte an die"
  277. 1174 g2$(4)="[155] dt-redaktion wenden!"
  278. 1999 return
  279.