10 GOSUB62:PRINTCHR$(14)
11 PRINTCHR$(147)SPC(9)"[195][208]-[195][207][196][197]/[214]1.1":PRINT""
12 PRINT"  [197]DITOR",,"[195]OMPILER"
13 GOSUB76
14 PRINT:PRINT"  1 = [212]EXT LOESCHEN","6 = [210]UN"
15 PRINT"  2 = [197]DITIEREN","7 = [195]OMPILE"
16 PRINT"  3 = [196]RUCKEN"
17 PRINT"  4 = [204]ADEN"
18 PRINT"  5 = [211]PEICHERN"
19 GOSUB76
20 PRINT"  ([160][198]3 BEENDET [197]DITIERMODUS )"
21 GETA$:IFA$=""THEN21
22 ONVAL(A$)GOSUB46,50,51,52,54,42,29
23 IFVAL(A$)THEN11
24 POKE198,1:POKE631,ASC(A$):PRINT
25 FI$="":INPUTFI$:IFFI$="X"THENOPEN8,8,15,"I0":CLOSE8:GOTO25
26 I=1:IFFI$=""THEN11
27 IFI<=LEN(FI$)THENIFMID$(FI$,I,1)<>" "THENI=I+1:GOTO27
28 FI$=LEFT$(FI$,I-1):GOSUB57:GOTO25
29 RF=0
30 FA$="":PRINTCHR$(147)"[195]OMPILING":SYS51675:IFPEEK(51698)THEN 50
31 FA$="RUN":POKE4096,PEEK(38936):POKE4097,PEEK(38937):IFRFTHENRETURN
32 GOSUB78
34 PRINT:PRINT"[208]RG-[197]NDE:"PE
35 PRINT"[214]AR-[197]NDE:"VE:PRINT:PRINT
36 PRINT"[211]PEICHERN J/N?"
37 GETZ$:IFZ$=""THEN37
38 IFZ$<>"J"THENRETURN
39 PRINT:INPUT"[198]ILENAME";FA$
40 SYS57812"/"+FA$+".EXE",8:POKE193,0:POKE194,16
41 A=PE:GOSUB75:POKE174,AL:POKE175,AH:SYS62957:RETURN
42 RF=1:GOSUB30
43 IFPEEK(51698)THENRETURN
44 IFPEEK(51698)THEN50
45 GOSUB78:SYS50387:RETURN
46 PRINT:PRINT"[215]IRKLICH LOESCHEN J/N ?"
47 GETZ$:IFZ$=""THEN47
48 IFZ$="J"THENSYS52200
49 RETURN
50 SYS52852:RETURN:REM AENDERN
51 OPEN8,4,7:SYS53048:RETURN:REM DRUCKEN
52 PRINT:PRINT:FI$="":INPUT"[198]ILE LADEN:";FI$:IFFI$=""THENRETURN
53 SYS52200:OPEN8,8,8,FI$:SYS52175:GOTO50
54 PRINT:PRINT:FI$="":INPUT"[198]ILE SPEICHERN:";FI$:IFFI$=""THENRETURN
55 OPEN8,8,15,"S:"+FI$:CLOSE8
56 OPEN8,8,8,FI$+",S,W":SYS53048:RETURN:REM SPEICHERN
57 IFFI$=FA$THEN44
59 SYS57812"/"+FI$+".EXE",8,1:GOSUB90
60 IFST<>64THENRETURN
61 FA$=FI$:POKE51698,0:POKE50489,PEEK(781):POKE50490,PEEK(782):GOTO44
62 DATA12000,36863,4096,CPV1.1MC1,CPV1.1MC2,"SYSCON64",EDITOR.MC
63 READAN,EN,PR:A=PR-1:GOSUB75
64 IFAH=PEEK(56)ANDAL=PEEK(55)THENRETURN
65 POKE56,AH:POKE55,AL:CLR
66 READAN,EN,PR:FORI=1TO4:READF$:SYS57812F$,8,1:GOSUB90:NEXT
68 POKE51698,1:A=AN:GOSUB75
70 POKE51978,AL:POKE51979,AH:A=EN:GOSUB75
72 POKE51980,AL:POKE51981,AH:SYS52200
74 POKE65028,255:POKE65029,143:RUN
75 AH=INT(A/256):AL=A-256*AH:RETURN
76 PRINT:PRINT" -------------------------------------":RETURN
78 PE=256*PEEK(50490)+PEEK(50489)
79 VE=256*PEEK(4097)+PEEK(4096)+PE
80 A=VE:GOSUB75:POKE65026,AL:POKE65027,AH:RETURN
90 POKE780,0:SYS65493:RETURN