1 PRINT"[147]"
2 REM - KHTDTPRINT01 010503 -
3 PRINTTAB(12)"KHTNOTEFILEPRINT[146]":PRINT"[154] BITTE WARTEN -- DATEIEN WERDEN GELADEN"
12 IF PEEK(56)=149 THEN 26
14 F=PEEK(187)+256*PEEK(188)
16 IF PEEK(F)<>77 AND PEEK(F+1)<>67 AND PEEK(F+2)<>50 THEN LOAD "MC1.OBJ",8,1
18 POKE 55,0:POKE 56,149:CLR:LOAD "MC2.OBJ",8,1
26 IO=38912:CR=IO+6
28 DA=IO+12:DE=IO+15
30 VL=IO+24
48 TR=39888:MA=TR:FS=TR+3
68 PI=50960:WI=PI+3:PU=PI+6
80 EI=50176:QU=52240
84 CH=53039:GC=38144
104 SYSFS:SYSMA:SYSCH:SYSPI
114 PRINTCHR$(14)CHR$(8)
119 POKE2,0
120 REM N$="COMMODORE.COD,P,R"
122 N$="KHTPR.COD,P,R"
123 SYS VL,N$,1792,1792+256
142 AL$="QWERTYUIOPASDFGHJKLZXCVBNM[209][215][197][210][212][217][213][201][207][208][193][211][196][198][199][200][202][203][204][218][216][195][214][194][206][205]"
144 AL$=AL$+":;@[][186],./<>?=*^[192]1234567890+-\[169]!#$%&'() "+CHR$(34)
152 E1$=CHR$(13)+CHR$(17)+CHR$(145)+CHR$(133)+CHR$(134)+CHR$(137)+CHR$(138)
154 E2$=CHR$(13)+CHR$(137)
162 FA=64:DIMV$(FA):SZ=1
172 A$(1)=" ([198]1)=[211]EITE VOR     ([198]5)=[204][207][193][196]-[196]ATEI"
174 A$(2)=" ([198]2)=[211]EITE ZUR@CK  ([198]6)=[211][193][214][197]-[196]ATEI"
176 A$(3)=" ([198]7)=[196]RUCKEN       ([198]8)=[211]CHLIESSEN"
180 B$(1)="[196]ATEINAME>"
184 C$(1)=" ([198]1)=[193]LLES  ([198]2)=[211]CHLIESSEN"
186 C$(2)=" ([198]3)=[206]UR DIESE [211]EITE"
232 PRINT"[147]":POKE53280,5:POKE53281,9:POKE646,7
234 PRINTTAB(7)"[200]ALLO, LIEBE [195]64ER-FREAKS!"
235 PRINTTAB(7)"[129][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
236 PRINT"[158][196]IESES IST EIN KLEINES SELBSTERDACHTES"
237 PRINT"[208]RINT-[208]ROGRAMM,  DAS U.A. MIT EIN PAAR"
238 PRINT"[205][195]-[210]OUTINEN ARBEITET,  DIE IN DEM [194]UCH"
240 PRINT"VON  [205]ARKT&[212]ECHNIK  ZUM [195]64/[195]128 UNTER"
242 PRINT"DEM [212]ITEL '[208][210][207][198][201]-[212][207][207][204][211]' VER:FFENTLICHT"
244 PRINT"WURDEN."
250 PRINT"[205]IT DIESEM  [208]ROGRAMM  SOLLEN  EINZELNE"
252 PRINT"[211]EITEN V. [196][212]-[197][196][201][212][207][210]-[212]EXTEN KONVERTIERT"
254 PRINT"AUF DEN [196]RUCKER AUSGEGEBEN WERDEN."
260 PRINT"[208]ROBLEMSTELLUNG AUS DEM [208]ROGRAMM>"
262 PRINT"[218]UR ENTSPRECHENDEN [193]NPASSUNG DES ANGE-"
263 PRINT"SCHLOSSENEN  [196]RUCKERS  SIND  EVENTUELL"
264 PRINT"NOCH [208]ROGRAMM-]NDERUNGEN IN DEN [218]EILEN"
265 PRINT"AB 702 U.IM [208]RINTER-[218]EICHENSATZ N:TIG.":GOSUB902
272 PRINT"[147][158][208]ROGRAMM-[193]NFANG    MIT    '[193][158]'"
273 PRINT"[129]([201]NTRO-[194]ILDSCHIRM)
274 [153]"SYS(null)TART ALS (null)OTER    MIT    '(null)SYS'"
275 [153]"FOR(VALDIT-(null)CREEN LEER)
278 PRINT"[158][218]UM [212]EXT/[205]ENUES    MIT   '[198]1[158]'"
279 PRINT"[215]ENN N:TIG ZUR@CK  MIT   '[198]2[158]'"
280 R$="":GETR$:IFR$=""THEN280
282 IFR$<>"A"ANDR$<>"S"ANDR$<>CHR$(133)ANDR$<>CHR$(137)THEN280
284 ON-(R$="A")-2*(R$="S")GOTO232,302
286 ON-(R$=CHR$(133))-2*(R$=CHR$(137))GOTO290,232
290 IFPG%<>1THEN302
292 GOTO402
302 LA$="":NR%=1:MO=0:I=1:AS=0:PG%=1
304 E$=E1$:GOSUB362
308 FORI=0TOFA:V$(I)="":NEXT:GOTO402
340 GOSUB380
342 SYS EI,0,I,40,V$(I+AS),AL$,E$,LA$,NR%,MO,E%
350 IFLA$=CHR$(17)THEN370
351 IFLA$=CHR$(145)ANDI>1THENI=I-1
352 IFLA$=CHR$(29)ANDI<16THENI=I+1:NR%=1
353 IFLA$=CHR$(157)ANDI>1THENI=I-1:NR%=40
354 IFLA$=CHR$(133)THENGOSUB362:GOTO510
355 IFLA$=CHR$(134)THENI=16:GOTO340
357 IFLA$=CHR$(137)THENGOSUB362:GOTO376
358 IFLA$=CHR$(138)THENI=1:GOTO340
360 IFLA$=CHR$(13)THEN370
361 GOTO340
362 L1$=LA$:N1%=NR%:I1=I:RETURN
370 IFI>15ANDAS>47THEN374
372 I=I+1
373 IFI>16ANDAS<48THENAS=AS+16:I1=1:GOTO402
374 NR%=1:GOTO340
376 AS=0:I1=1:NR%=1:GOTO272
380 Z1$=STR$(I):IFVAL(Z1$)>9THEN384
382 Z1$=" "+Z1$
384 Z$=MID$(Z1$,2)
386 SYS CR,36,0:PRINT"[155]"Z$"[158]":RETURN
390 SZ=INT(AS/16+1)
392 S1$=STR$(SZ)
394 S$=MID$(S1$,2)
396 SYS CR,28,0:PRINT"[155]"S$"[158]":RETURN
402 GOSUB914
410 SYS CR,0,1:J=1+AS
412 PRINTV$(J)
414 FORI=J+1TOJ+15
415 K=LEN(V$(I-1)):IFK<40THEN418
417 PRINT"[145]";
418 PRINTV$(I):NEXT
420 LA$=L1$:NR%=N1%:E$=E1$:I=I1
422 GOTO340
442 SYS PU,9,19,29,3,0
444 PRINTCHR$(18);
446 SYS WI,9,19,29,3,B$(1)
450 V$="":E$=E2$:LA$="":NR%=0
452 SYS EI,20,20,16,V$,AL$,E$,LA$,NR%,1,E$
456 SYS PU,9,19,29,3,1
458 SYS PU,1,19,38,5,1
460 PRINTCHR$(146)CHR$(145)
462 SYS CR,9,20:RETURN
472 SYS PU,7,19,31,4,0
474 PRINTCHR$(18);
476 SYS WI,7,19,31,4,C$(1)
480 R4%=0:R$="":GETR$:IFR$=""THEN480
482 IFR$=CHR$(133)THENR4%=1:GOTO486
483 IFR$=CHR$(134)THENR4%=2:GOTO486
484 IFR$=CHR$(137)THENR4%=3:GOTO486
485 GOTO480
486 SYS PU,7,19,31,4,1
488 SYS PU,1,19,38,5,1
490 PRINTCHR$(146)CHR$(145):GOTO702
510 SYS PU,1,19,38,5,0
520 PRINTCHR$(18);
522 SYS WI,1,19,38,5,A$(1)
530 R$="":GETR$:IFR$=""THEN530
533 IFR$=CHR$(133)THENR%=1:GOTO550
534 IFR$=CHR$(134)THENR%=7:GOTO550
535 IFR$=CHR$(135)THENR%=4:GOTO552
536 IFR$=CHR$(136)THENR%=3:GOTO554
537 IFR$=CHR$(137)THENR%=2:GOTO550
538 IFR$=CHR$(138)THENR%=8:GOTO550
539 IFR$=CHR$(139)THENR%=5:GOTO552
540 IFR$=CHR$(140)THENR%=6:GOTO550
544 GOTO530
550 SYS PU,1,19,38,5,1
552 PRINTCHR$(146);
554 ONR%GOTO560,570,472,622,602,402,580,590
560 IFAS<48THENAS=AS+16:GOTO402
562 GOTO340
570 IFAS>15THENAS=AS-16:GOTO402
572 GOTO340
580 I=16:GOTO340
590 I=1:GOTO340
602 GOSUB442:IFLA$=CHR$(137)THEN402
604 PRINT"[211][193][214][197]> "V$
606 OPEN1,8,15,"S:"+V$:CLOSE1
608 V$=V$+",S,W"
610 OPEN2,8,2,V$
612 SYS DA,2,64,V$(1)
614 CLOSE2:GOTO402
622 GOSUB442:IFLA$=CHR$(137)THEN402
624 PRINT"[204][207][193][196]> "V$
626 V$=V$+",S,R"
628 OPEN2,8,2,V$
630 SYS DE,2,64,V$(1)
632 CLOSE2:GOTO402
702 CLOSE1:CLOSE4:CLOSE5:CLOSE7
704 OPEN1,4,10:PRINT#1:CLOSE1
712 L9=10:ZH=30
714 L9$=CHR$(16)+CHR$(49)+CHR$(48)
716 OPEN4,4:OPEN5,4,6:OPEN7,4,7
718 PRINT#5,CHR$(30)
722 IFR4%=1THEN742
724 IFR4%=2THEN732
726 IFR4%=3THEN340
732 P0=AS+1:PZ=P0+15:GOTO744
742 P0=1:PZ=64
744 FORP=P0TOPZ:QP$=V$(P)
746 PRINT#7,L9$;
748 PRINT#7,QP$
750 QP$="":NEXT
752 PRINT#5,CHR$(36)
754 PRINT#4:PRINT#7
756 CLOSE4:CLOSE5:CLOSE7:GOTO340
902 SYS CR,12,24:PRINT"[155][215]EITER MIT [212]ASTE[145][145][145]"
904 R$="":GETR$:IFR$=""THEN904
906 RETURN
914 PRINT"[147][155][192][192] [197]DITOR-[194]ILDSCHIRM [192][192][211]EITE [192][192][218]EILE  [192][192]":GOSUB390:GOTO916
916 PRINT""
917 PRINT"[155][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][192][192][192][192]"
918 PRINT"[145][155] [193]NGEZEIGT [196][212]-[197][196]-[212]EXT AB [211]EITE [206]R.>"
919 PRINT"[155][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][192][192][192][192]"
928 PRINTTAB(6)"[198]1 = [205]ENUE     [198]2 = ZUR@CK"
929 PRINTTAB(6)"[198]3 = [218]EILE 16  [198]4 = [218]EILE 1[158][145][145][145]":RETURN
9990 POKE198,0:WAIT198,1:GOTO272
9992 SYS64738
9994 PRINT"[147]":SYS CR,6,24:PRINT"  [206]OCH NICHT PROGRAMMIERT!  [146][145][145][145]"
9995 FORI=0TO1500:NEXT:GOTO272
9997 OPEN4,4:OPEN5,4,6:CMD4:PRINT#5,CHR$(27):CLOSE5:CLOSE4:END
9998 OPEN15,8,15,"S:KHTNOTEFILEPRINT":CLOSE15
9999 SAVE"KHTNOTEFILEPRINT",8