2 REM ---KHTDTEDITANL01---
3 PRINT"[147]":POKE53280,5:POKE53281,11:GOSUB1001:GOTO110
9 QP=27:OPEN4,4:OPEN5,4,6:CMD4:PRINT#5,CHR$(QP):CLOSE4:CLOSE5:END
11 Q$="KHTDTEDITANL":QV$="01":QT$=Q$+QV$:QD$="300602":RETURN
12 GOSUB11:PRINT"G-A 8/9?[145]":GETQ:ON-(Q<>8ANDQ<>9)GOTO12:RETURN
18 GOSUB12:PRINT"   G-A"Q"[145]":OPEN15,Q,15,"S:"+QT$:CLOSE15:SAVEQT$,Q:END
61 CY=INT(C/100):CX=C-(CY*100)
62 POKE211,CX:POKE214,CY:SYS58640:RETURN
68 LC=INT(L/100):LL=L-(LC*100)
69 FORX=LCTOLL:POKE781,X:SYS59903:NEXT:RETURN
100 REM ---PROGRAMM-ABLAUF---
110 PRINT"[147]":GOTO180:REM ---BS1---
120 PRINTR5$L1$
122 PRINTR5$U1$
124 PRINTR5$L2$
126 PRINTR5$D1$
128 PRINTCR$CR$CR$CR$R5$U2$
130 PRINTCR$CR$R3$SH$
132 PRINTR0$E1$(1)
134 PRINTR0$E1$(2)
140 PRINTCR$CR$R3$CB$
142 PRINTR0$E1$(3)
144 PRINTR0$E1$(4)
179 RETURN
180 BS=1:GOSUB120
182 GOSUB910
190 IFR$="+"THEN210
192 IFR$="-"THEN810
194 IFR$="D"THENGOSUB940
199 GOTO110
210 PRINT"[147]":GOTO280:REM ---BS2---
220 PRINTCR$R3$CT$
222 PRINTR0$E1$(5)
224 PRINTR0$E1$(6)
230 PRINTCR$R0$E1$(7)
232 PRINTR0$E1$(8)
234 PRINTR0$E1$(9)
236 PRINTR0$E1$(10)
240 PRINTCR$R0$E2$(1)
242 PRINTR0$E2$(2)
244 PRINTCR$R0$E2$(3)
246 PRINTR0$E2$(4)
250 PRINTCR$R0$E2$(5)
252 PRINTCR$R0$E2$(6)
254 PRINTR0$E2$(7)
279 RETURN
280 BS=2:GOSUB220
282 GOSUB910
290 IFR$="+"THEN310
292 IFR$="-"THEN110
294 IFR$="D"THENGOSUB940
299 GOTO210
310 PRINT"[147]":GOTO380:REM ---BS3---
320 PRINTCR$CR$R5$U3$
322 PRINTCR$CR$CR$R3$E3$(1)
330 PRINTCR$CR$R3$SH$
332 PRINTR0$E3$(2)
340 PRINTCR$CR$R3$CB$
342 PRINTR0$E3$(3)
350 PRINTCR$CR$R3$CT$
352 PRINTR0$E3$(4)
354 PRINTR0$E3$(5)
379 RETURN
380 BS=3:GOSUB320
382 GOSUB910
390 IFR$="+"THEN410
392 IFR$="-"THEN210
394 IFR$="D"THENGOSUB940
399 GOTO310
410 PRINT"[147]":GOTO480:REM ---BS4---
420 PRINTCR$CR$R5$U4$
422 PRINTCR$CR$CR$R3$CB$
430 PRINTR0$E4$(1)
432 PRINTR0$E4$(2)
434 PRINTR0$E4$(3)
436 PRINTR0$E4$(4)
440 PRINTCR$CR$R3$CT$
442 PRINTR0$E4$(5)
444 PRINTR0$E4$(6)
446 PRINTR0$E4$(7)
450 PRINTCR$R0$E4$(8)
452 PRINTR0$E4$(9)
479 RETURN
480 BS=4:GOSUB420
482 GOSUB910
490 IFR$="+"THEN510
492 IFR$="-"THEN310
494 IFR$="D"THENGOSUB940
499 GOTO410
510 PRINT"[147]":GOTO580:REM ---BS5---
520 PRINTCR$CR$R5$U5$
522 PRINTCR$CR$R3$E5$(1)
530 PRINTCR$CR$R3$CT$
532 PRINTR0$E5$(2)
533 PRINTR0$E5$(3)
534 PRINTR0$E5$(4)
535 PRINTR0$E5$(5)
536 PRINTR0$E5$(6)
540 PRINTCR$CR$R5$U6$
542 PRINTCR$R3$E5$(7)
544 PRINTR3$E5$(8)
546 PRINTR3$E5$(9)
579 RETURN
580 BS=5:GOSUB520
582 GOSUB910
590 IFR$="+"THEN610
592 IFR$="-"THEN410
594 IFR$="D"THENGOSUB940
599 GOTO510
610 PRINT"[147]":GOTO680:REM ---BS6---
620 PRINTE6$(1)
622 PRINTE6$(2)
623 PRINTE6$(3)
624 PRINTE6$(4)
630 PRINTCR$E6$(5)
632 PRINTE6$(6)
633 PRINTE6$(7)
634 PRINTE6$(8)
635 PRINTE6$(9)
640 PRINTCR$CR$CR$R5$U7$
642 PRINTCR$CR$E7$(1)
643 PRINTE7$(2)
644 PRINTE7$(3)
645 PRINTE7$(4)
646 PRINTE7$(5)
679 RETURN
680 BS=6:GOSUB620
682 GOSUB910
690 IFR$="+"THEN710
692 IFR$="-"THEN510
694 IFR$="D"THENGOSUB940
699 GOTO610
710 PRINT"[147]":GOTO780:REM ---BS7---
720 PRINTH1$
721 PRINTCR$R5$H1$(1)
722 PRINTCR$R5$H1$(2)
728 PRINTCR$H2$
730 PRINTCR$H3$
731 PRINTCR$R5$H3$(1)
732 PRINTCR$R5$H3$(2)
740 PRINTCR$H4$
741 PRINTCR$R5$H4$(1)
750 PRINTCR$H5$
751 PRINTCR$R5$H5$(1)
779 RETURN
780 BS=7:GOSUB720
782 GOSUB910
790 IFR$="+"THEN810
792 IFR$="-"THEN610
794 IFR$="D"THENGOSUB940
799 GOTO710
810 PRINT"[147]":GOTO880:REM ---BS8---
820 PRINTCR$CR$R5$U8$
821 PRINTCR$CR$R3$CT$
822 PRINTR9$G1$(1)
823 PRINTR9$G1$(2)
824 PRINTR9$G1$(3)
825 PRINTR9$G1$(4)
826 PRINTR9$G1$(5)
827 PRINTR9$G1$(6)
828 PRINTR9$G1$(7)
830 PRINTCR$R5$L1$
831 PRINTCR$G2$(1)
832 PRINTG2$(2)
833 PRINTCR$G2$(3)
834 PRINTG2$(4)
879 RETURN
880 BS=8:GOSUB820
882 GOSUB910
890 IFR$="+"THEN110
892 IFR$="-"THEN710
894 IFR$="D"THENGOSUB940
899 GOTO810
900 REM --- ABFRAGEN ---
910 L=2324:GOSUB68:C=2300:GOSUB61
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]";
922 PRINTBS"   [152]BLAETTERN <+[152]/-[152]>  DRUCKEN <D[152]>[145][145]"
930 R$="":GETR$:IFR$<>"+"ANDR$<>"-"ANDR$<>"D"THEN930
939 RETURN
940 OPEN4,4:CMD4
942 ONBSGOSUB120,220,320,420,520,620,720,820
944 PRINT#4:CLOSE4
949 RETURN
990 PRINT"[147]NOCH NICHT PROGRAMMIERT!"
992 POKE198,0:WAIT198,1
994 POKE198,0
999 GOTO110
1000 REM ---DEFINITION-VARIABLE---
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]"
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]"
1008 CR$=CHR$(13):R5$="     ":R0$="          ":R9$="         ":R3$="   "
1009 SH$="[159]SHIFT-":CB$="[159]CBM-":CT$="[159]CTRL-":RS$="[159]RUN/STOP"
1010 U1$="[158]DT-EDITOR  V 6.98 - ANLEITUNG:"
1012 U2$="---- TEXTEDITOR-KOMMANDOS ----"
1013 U3$="---- TABULATOR-KOMMANDOS: ----"
1014 U4$="------ BLOCK-FUNKTIONEN ------"
1015 U5$="----- DISKETTENKOMMANDOS -----"
1016 U6$="---------- CHARSETS ----------"
1017 U7$="-- EINBINDUNG HIRES-GRAFIK: --"
1018 U8$="--- WEITERE GRAFIK-BEFEHLE ---"
1022 D1$="[155]-BASIC-AUSFUEHRUNG VON KAHATE-"
1031 E1$(1)="[155]+ SEITE VORBLAETTERN"
1032 E1$(2)="[155]- SEITE ZURUECKBLAETTERN"
1033 E1$(3)="[155]+ 10 SEITEN VORBLAETTERN"
1034 E1$(4)="[155]- 10 SEITEN ZURUECKBLAETTERN"
1035 E1$(5)="[155]+ ZUM TEXTENDE GEHEN"
1036 E1$(6)="[155]- ZUM TEXTANFANG GEHEN"
1037 E1$(7)="[155]= ZEILE IN BLOCKSATZ"
1038 E1$(8)="[155]; ZEILE LINKSBUENDIG"
1039 E1$(9)="[155]: ZEILE RECHTSBUENDIG"
1040 E1$(10)="[155]C ZEILE ZENTRIEREN"
1041 E2$(1)="[155]I ZEILE EINFUEGEN"
1042 E2$(2)="[155]E ZEILE LOESCHEN"
1043 E2$(3)="[155]J SEITE EINFUEGEN"
1044 E2$(4)="[155]K SEITE LOESCHEN"
1045 E2$(5)="[155]X WORDWRAP <AUT.ZLNUMSPRUNG>"
1046 E2$(6)="[155]Z TEXTSPEICHER LOESCHEN"
1047 E2$(7)="[155]  <ACHTUNG! KEINE ABFRAGE!>"
1051 E3$(1)="[155]RUN/STOP   TABULATOR LINKS"
1052 E3$(2)="[155]R/S TABULATOR RECHTS"
1053 E3$(3)="[155]R/S TABULATOR SETZEN"
1054 E3$(4)="[155] *  LOESCHT ALLE TABS"
1055 E3$(5)="[155]R/S LOESCHT GESETZTEN TAB"
1061 E4$(1)="[155]F1 SETZT BLOCKANFANG"
1062 E4$(2)="[155]F3 SETZT BLOCKENDE"
1063 E4$(3)="[155]F5 KOPIERT BLOCK IN PUFFER"
1064 E4$(4)="[155]F7 KOPIERT PUFFER IM BLOCK"
1065 E4$(5)="[155]F5 SCHNEIDET BLOCK AUS UND"
1066 E4$(6)="[155]   SPEICHERT IHN IN PUFFER"
1067 E4$(7)="[155]F7 TAUSCHT PUFFER UND BLOCK"
1068 E4$(8)="[155]R  KOPIERT SEITE IN PUFFER"
1069 E4$(9)="[155]H  BLOCKMASKE ENTFERNEN"
1071 E5$(1)="[155]F2  LAUFWERKNUMMER AENDERN"
1072 E5$(2)="[155]L  TEXT LADEN"
1073 E5$(3)="[155]S  TEXT SPEICHERN"
1074 E5$(4)="[155]A  TEXT ANHAENGEN"
1075 E5$(5)="[155]D  DIRECTORY ZEIGEN"
1076 E5$(6)="[155]Q  FLOPPY-SYSTEMBEFEHL"
1077 E5$(7)="[155]F1  NORMALE TEXTSCHRIFT"
1078 E5$(8)="[155]F3  FETTSCHRIFT   (HERVORHEBUNGEN)"
1079 E5$(9)="[155]F5  GROSSSCHRIFT  (UEBERSCHRIFTEN)"
1080 E6$(1)="[155] ALTERNATIVE CHARSETS MIT CBM+<ZEICHEN>"
1082 E6$(2)="[155] IM NORMAL- OD. FETTSCHRIFT-MODUS SOWIE"
1083 E6$(3)="[155] MIT SCHIFT+<ZEICHEN>  IM GROSSSCHRIFT-"
1084 E6$(4)="[155] MODUS."
1085 E6$(5)="[155] GRAFIK-ZEICHENSATZ  MIT  CBM+<ZCHN> IM"
1086 E6$(6)="[155] DOPPELSCHRIFT-MODUS.   EIN  KOMPLETTES"
1087 E6$(7)="[155] OBJEKT  BESTEHT  DABEI  IMMER AUS ZWEI"
1088 E6$(8)="[155] AUFEINANDERFOLGENDEN  ZEICHEN    <Z.B."
1089 E6$(9)="[155] CBM-A + CBM-B>."
1090 E7$(1)="[155] HIRES-GRAFIKEN, DIE EINGEBUNDEN WERDEN"
1092 E7$(2)="[155] SOLLEN, MUESSEN ZUNAECHST MIT HILFE D."
1093 E7$(3)="[153] DT-CHARKONVERTER  [155]<BEFINDET SICH A. D."
1094 E7$(4)="[155] DT-TOOLDISK> IN EINEN CHARSET U. EINEN"
1095 E7$(5)="[155] SCREEN KONVERTIERT WERDEN."
1110 H1$="[155] 1. -[158]CTRL-G[155]  DRUECKEN"
1111 H1$(1)="[152]FILENAME:  [155]F.<CHARSETNAME>"
1112 H1$(2)="[152]<ZEICHENSATZ LADEN>"
1120 H2$="[155] 2. -USERCHARSET 1 OD. 2 WAEHLEN <[158]1[155]/[158]2[155]>"
1130 H3$="[155] 3. -[158]CTRL-B[155]  DRUECKEN"
1131 H3$(1)="[152]FILENAME:  [155]S.<SCREENNAME>"
1132 H3$(2)="[152]<SCREEN LADEN>"
1140 H4$="[155] 4. -USERCHARSET 1 BZW. 2 AKTIVIEREN"
1141 H4$(1)="[155]< [158]F7[155] / [158]F8[155] >"
1150 H5$="[155] 5. -[158]CTRL-P[155]  DRUECKEN"
1151 H5$(1)="[152]<GRAFIK EINSCHALTEN>"
1161 G1$(1)="[155]M  SCREENPUFFER + SCREEN MIXEN"
1162 G1$(2)="[155]T  SCREEN IN SCREENPUFFER"
1163 G1$(3)="[155]   TRANSFERIEREN"
1164 G1$(4)="[155]W  SCREENPUFFER AUF DISK"
1165 G1$(5)="[155]   SPEICHERN"
1166 G1$(6)="[155]N  USERCHARSETS LOESCHEN"
1167 G1$(7)="[155]O  GRAFIKEN AUS TEXT LOESCHEN"
1171 G2$(1)="[155] DIES  WAREN JETZT  ALLE FUNKTIONEN DES"
1172 G2$(2)="[155] DT-EDITORS."
1173 G2$(3)="[155] BEI WEITEREN FRAGEN, ETC. BITTE AN DIE"
1174 G2$(4)="[155] DT-REDAKTION WENDEN!"
1999 RETURN