1 ONPEEK(821)GOTO4,5,8,160
2 PRINT"[147]":REM ---KHTDTEDKONV06---
3 POKE53280,5:POKE53281,11:POKE646,7:GOSUB11:GOSUB902:GOTO1
4 POKE821,2:LOAD"LOADPLUS",8,1
5 POKE821,3:LOAD"KHTDTEDKMS06",8,1
8 POKE45,64:POKE46,36:POKE55,0:POKE56,80:CLR:GOTO110:REM SOV=$2440 TOM=$5000
9 QP=27:OPEN4,4:OPEN5,4,6:CMD4:PRINT#5,CHR$(QP):CLOSE4:CLOSE5:END
11 Q$="KHTDTEDKONV":QV$="06":QT$=Q$+QV$:QD$="060703":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]MIT  DIESEM  PROGRAMM  KOENNEN AUS"
112 PRINT"EINEM  DT-EDITOR-TEXT  BIS ZU ACHT"
114 PRINT"SEITEN SO KONVERTIERT WERDEN, DASS"
116 PRINT"MIT DEM  [153]KHTFILEPRINTER[158]  EINE AUS-"
118 PRINT"GABE AUF DRUCKER MOEGLICH WIRD."
120 PRINT"DAS  DT-EDITOR-TEXTFILE  MUSS  NUN"
122 PRINT"ERST GELADEN WERDEN.":GOSUB190
124 PRINT"BITTE   DEN  DATEINAMEN  EINGEBEN:"
130 POKE19,1:INPUT"";R$:POKE19,0:PRINT"[158]"
140 L=1122:GOSUB68:C=1200:GOSUB61
142 PRINT"DIE DT-ED-DATEI  [153]"R$
144 PRINT"[158]WIRD  GELADEN   -   BITTE WARTEN"
152 SYS694
154 POKE821,4:LOADR$,8,1,20480
156 GOSUB9980:POKE821,3:GOTO110
160 POKE45,64:POKE46,36:POKE55,0:POKE56,80:CLR
162 DIMV$(128)
164 FORI=0TO128:V$(I)="":NEXT
166 PRINT"[147][158]DAS  GELADENE   DT-EDITOR-TEXTFILE"
168 PRINT"UMFASST INSGESAMT   [160][160]      [158]SEITEN":GOTO302
170 C=700:GOSUB61
171 PRINT"[158]IN EINEM  ARBEITSGANG SIND DERZEIT"
172 PRINT"NUR MAXIMAL 8 SEITEN KONVERTIERBAR"
174 PRINT"[153]BITTE EINGEBEN:[158]"
176 PRINT"KONVERTIEREN AB SEITE:  "
178 PRINTTAB(30)"[145]";:POKE19,1:INPUT"";R$:POKE19,0:PRINT"[158]":S1=VAL(R$)
180 GOSUB970:PRINTTAB(10)"[145][153]"S1"[158]"
182 ZS=1:POKE8690,1:ZB=0:POKE8691,0:GOSUB404:POKE8700,1:GOTO408
190 C=2306:GOSUB61
192 PRINT"BEI FEHLER '...ERROR IN 154'"
194 PRINTTAB(6)"RUN156[158]  <RETURN>   EINGEBEN![145][145][145]"
196 C=1200:GOSUB61:RETURN
299 GOTO999
300 REM ---ERMITTLUNG SEITENANZAHL---
302 SYS7904:GOTO170
400 REM ---SEITE KONVERTIEREN---
404 XS=S1:XL=7696+XS:XH=7952+XS
405 YL=PEEK(XL):POKE8693,YL:YH=PEEK(XH):POKE8694,YH
406 S0=YH*256+YL:RETURN
408 PG=PEEK(8700):ONPGGOTO410,410,414,480,490,510
410 SYS8752
412 GOTO408
414 SYS9096
416 GOTO408
480 ZS=PEEK(8690)
482 FORI=8704TO8743:V$(ZS)=V$(ZS)+CHR$(PEEK(I)):NEXT
484 POKE8700,3:GOTO408
490 PRINT:L=0:GOSUB68:L=1524:GOSUB68:C=1504:GOSUB61
492 PRINT"[158]KONVERTIERUNG SEITE [153]"S1" [158]BEENDET!"
494 PRINT"N[158]AECHSTE SEITE ODER   S[158]PEICHERN?"
496 R$="":GETR$:IFR$=""THEN496
497 IFR$<>"N"ANDR$<>"S"THEN496
498 ON-(R$="N")-2*(R$="S")GOTO502,514
500 REM ---NAECHSTE SEITE---
502 S1=S1+1:SZ%=PEEK(7686):IFS1>SZ%THEN510:REM -IMPOS
504 ZS=PEEK(8690):IFZS>128THEN510:REM -IMPOS
506 GOSUB970:PRINTTAB(10)"[145][153]"S1"[158]"
507 ZB=0:POKE8691,0:GOSUB404
508 POKE8700,1:GOTO408
510 L=1524:GOSUB68:C=1604:GOSUB61
512 PRINT"[158]KONVERTIERUNG DER SEITEN BEENDET"
514 L=1724:GOSUB68:C=1804:GOSUB61
516 PRINT"[158]KONV-DATEI SPEICHERN?--<J[158]A/N[158]EIN>"
520 R$="":GETR$:IFR$=""THEN520
522 IFR$<>"J"ANDR$<>"N"THEN520
524 ON-(R$="J")-2*(R$="N")GOTO550,602
550 L=1924:GOSUB68:C=2004:GOSUB61
552 PRINT"[158]DATEINAME?  "
554 PRINTTAB(16)"[145]";:POKE19,1:INPUT"";R$:POKE19,0:PRINT"[158]"
556 KD$=R$:REM NAME KONVERTIERTE DATEI
558 K$=KD$+",S,W"
560 OPEN1,8,15,"S:"+KD$:CLOSE1
562 OPEN2,8,2,K$
564 FORI=1TO128
566 PRINT#2,V$(I)
567 NEXT
568 CLOSE2
569 GOTO602
600 REM ---WEITERE SEITE KONV.---
602 L=0:GOSUB68:L=1724:GOSUB68:C=1903:GOSUB61
604 PRINT"W[158]EITERE KONVERTIERUNG? --PRG-E[158]NDE?"
605 PRINT"   N[158]EUE DATEI ZUM KONVERTIEREN LADEN?"
606 R$="":GETR$:IFR$=""THEN606
608 IFR$<>"W"ANDR$<>"E"ANDR$<>"N"THEN606
610 ON-(R$="W")-2*(R$="E")-3*(R$="N")GOTO620,990,652
620 L=824:GOSUB68:C=600:GOSUB61
622 FORI=0TO128:V$(I)="":NEXT
624 GOTO170
650 REM ---NEUE DATEI LADEN---
652 GOTO110
902 POKE821,1
903 B1$="****************************"
904 B2$="*                          *"
905 B3$="*  [158]KHT-DT-ED-KONVERTER 06[150]  *"
910 PRINT"[147][150]"B1$
911 PRINTTAB(6)B2$:PRINTTAB(6)B3$
912 PRINTTAB(6)B2$:PRINTTAB(6)B1$"[158]"
919 RETURN
920 REM ---ZEICHEN-TABELLE IN MS---
970 L=1524:GOSUB68:C=1504:GOSUB61
972 PRINT"[155]SEITE      WIRD NUN KONVERTIERT![158]":RETURN
990 PRINT"[147][158]VIELEN DANK FUER DAS VERTRAUEN"
992 PRINT"BEI DER ARBEIT MIT DIESEM PROGRAMM"
993 PRINT"RUECKMELDUNGEN UND  VERBESSERUNGS-"
994 PRINT"VORSCHLAEGE  BITTE DIREKT AN MICH:"
995 PRINTTAB(9)"KARL HEINZ  THURNHUBER":PRINTTAB(9)"HERZOG-WELF-STRASSE 32"
996 PRINTTAB(12)"85604  ZORNEDING":PRINTTAB(12)"TEL: 08106 22688"
997 POKE198,0:WAIT198,1:SYS64738
999 GOTO9994
9980 OPEN1,8,15:INPUT#1,EN,EM$,ET,ES:IFEN=0THEN9984
9982 PRINT"DISK ERROR !!![146]":PRINTEN"  "EM$"  "ET"  "ES:FORI=0TO3000:NEXT
9984 CLOSE1:RETURN
9990 POKE198,0:WAIT198,1:STOP
9994 L=2424:GOSUB68:C=2406:GOSUB61:PRINT"  NOCH NICHT PROGRAMMIERT!  [146][145][145][145]"
9995 FORI=0TO1500:NEXT:GOTO9990