0 IFA=0THENA=1:LOAD"DATA",8,1
1 POKE56,25:POKE55,0:CLR:POKE53281,14:DIMN$(9),A(9),I(1):OPEN15,8,15
2 C=7162:D=12522:U=48:PRINT"[147]	*** [200][197][213][210][197][203][193]-[211]PRINT [201]NSTALLATION [212]OOL ***";
3 PRINT"[205]ARTIN [208]FOST  (C) 1986 [200]EUREKA [212]EACHWARE[198]ERTIGINSTALLATIONEN"
4 PRINT"====================":PRINT"1- EIN [198]ILE INSTALLIEREN":POKE53280,14
5 PRINT"2- MEHRERE [198]ILES INSTALLIEREN":PRINT"[197]INZELOPERATIONEN"
6 PRINT"==================":PRINT"3- [196]ISKETTE INITIALISIEREN"
7 PRINT"4- [198]ILE SCHREIBEN":PRINT"5- [198]ILE LOESCHEN"
8 PRINT"6- [198]ILE WIEDERHERSTELLEN":PRINT"7- [196]IRECTORY":PRINT"8- [197]NDE"
9 INPUT"[201]HRE [215]AHL : ";O:IFO<1ORO>8THEN2
10 ONOGOSUB11,12,21,34,68,68,87,67:PRINT"<[212]ASTE>":GOSUB80:GOTO2
11 GOSUB58:GOSUB25:A=0:GOTO35
12 INPUT"[147][218]AHL DER [198]ILES ";N:IFN<2ORN>9THENRETURN
13 GOSUB59:A(0)=1618:O(0)=1:I=0:GOSUB25:U=50:FORI=1TON+1
14 IFI>NTHENN$=CHR$(13)+CHR$(13)+"[201]HRE [215]AHL : "+CHR$(0):GOTO18
15 A=1:GOSUB35:A=D+8*I:POKEA,PEEK(250):POKEA+1,PEEK(251):POKEA+2,I(0)
16 POKEA+3,I(1):A=A+4:W=A(I):GOSUB84:POKEA+2,64*O(I)
17 N$=LEFT$(RIGHT$(STR$(I),1)+""+N$(I)+"",20)
18 FORJ=1TOLEN(N$):POKED-13+8*N+20*I+J,ASC(MID$(N$,J,1)):NEXT:NEXT
19 PRINT"[196]AS [205]ENUEFILE WIRD GENERIERT.":POKED+7,N:U=48:FORI=0TO240
20 POKE12288+I,PEEK(8576+I):NEXT:A=174:W=D+23+28*N:GOSUB84:A=0:GOTO39
21 PRINT"[147][211]TARTADRESSE DER [204]ADEROUTINE ?":PRINT"[206]UR [200]IGH-[194]YTE ANGEBEN!"
22 INPUT"[193]DRESSE ";H:IFH<6ORH>206OR(H>154ANDH<192)THEN21
23 I=0:GOSUB43:PRINT"[147][200]IGH-[194]YTE DER [204]ADEROUTINEADRESSE:";H:GOSUB52
24 INPUT"[193]LLES [207]K (J/N)";A$:IFA$<>"J"THENRETURN
25 PRINT"[147][204]EGEN [211]IE JETZT EINE FORMATIERTE LEERE"
26 PRINT"[196]ISKETTE (DIE [218]IELDISKETTE) EIN!":GOSUB80:PRINT"[197]INEN [205]OMENT";
27 PRINT#15,"I":PRINT#15,"M-R"+CHR$(0)+"";:FORJ=0TO1:GET#15,A$
28 I(J)=ASC(A$+CHR$(0)):POKEC+J,I(J):NEXT:POKE6514,H:POKE6528,H:A=C+2:W=A(I)
29 GOSUB84:POKEC+4,64*O(I):SYS8835:OPEN2,8,2,"#"
30 RESTORE:FORJ=1TO10:READW,L,T,S:W=6400+W:IFT=18THENPRINT#15,"U1 2 0 18 1"
31 GOSUB81:PRINT".";:IFT<>18THENPRINT#15,"B-A:0";T;S:GOSUB81
32 PRINT#15,"B-P 2 0":A=174:GOSUB84:POKE172,L:SYS8838:PRINT#15,"U2 2 0";T;S
33 GOSUB81:NEXT:CLOSE 2:PRINT:PRINT"[196]IE [196]ISKETTE IST INITIALISIERT.":RETURN
34 N=1:X=1:GOSUB60:INPUT"[193]UTOBOOT-[198]ILE (J/N) ";A$:A=1+(A$="J")
35 PRINT"[196]ISK MIT '";N$(I);"' EINLEGEN!":GOSUB80:OPEN1,8,0,N$(I):GOSUB81
36 PRINT"[196]AS [198]ILE WIRD GELESEN.":POKE174,0:POKE175,U:SYS8841:CLOSE1:GOSUB81
37 IFPEEK(175)=0THENPRINT"[198]ILE ZU LANG!":GOTO83
38 PRINT"[218]IELDISKETTE EINLEGEN!":GOSUB80
39 OPEN2,8,2,"#":GOSUB81:PRINT#15,"U1 2 0 18 0":PRINT#15,"B-P 2 69":GET#2,A$
40 IFA=0AND(ASC(A$+CHR$(0))AND64)=0THENPRINT"[193]UTOBOOTFILE EXISTIERT!":GOTO83
41 POKE172,0:POKE173,U:POKE252,A:SYS8844:CLOSE2:IFPEEK(253)THEN83
42 PRINT:PRINT"[198]ILE GESCHRIEBEN.":RETURN
43 PRINT"[147][211]TARTBEFEHL (R- [210]UN,S- [211]YS)":INPUT"[194]EFEHL (R/S) ";A$
44 IFA$="R"THENA(I)=256*H+82:GOTO47
45 IFA$<>"S"THEN43
46 INPUT"[211]TARTADRESSE DES [208]ROGRAMMS ";A(I)
47 PRINT"[147][207]PERATION NACH [204]ADEN DES [194]OOTFILES"
48 PRINT" 1- SOFORT [194]OOTFILE STARTEN":PRINT" 2- [204]ADESYSTEM DISAKTIVIEREN"
49 PRINT" 3- WIE 2, ZUSAETZLICH AUF [198]LOPPY WARTEN";
50 INPUT"[207]PERATION (1,2,3) ";O(I):IFO(I)<1ORO(I)>3THEN47
51 RETURN
52 PRINT"[211]TARTBEFEHL ";:IFA(I)=256*H+82THENPRINT"[210][213][206]":GOTO54
53 PRINT "[211][217][211]";A(I)
54 PRINT"[206]ACH [204]ADEN DES [194]OOTFILES:":IFO(I)=1THENPRINT"[194]OOTFILE SOFORT STARTEN"
55 IFO(I)>1THENPRINT"[204]ADESYSTEM DISAKTIVIEREN";:IFO(I)=2THENPRINT
56 IFO(I)=3THENPRINT" UND AUF [198]LOPPY":PRINT"WARTEN"
57 RETURN
58 N=1
59 X=0:H=6
60 FORI=1TON
61 PRINT"[147][198]ILENAME ($- [196]IRECTORY) ?":PRINT"[198]ILE";I;:INPUTN$
62 IFN$="$"THENGOSUB87:GOSUB80:GOTO 61
63 N$(I)=LEFT$(N$,16):IFXTHEN66
64 GOSUB43:PRINT"[147][198]ILE";I;": ";N$(I):GOSUB52:INPUT"[193]LLES [207]K (J/N)";A$
65 IFA$<>"J"THEN61
66 NEXT:I=N:RETURN
67 CLOSE15:END
68 N$="LOESCHEN":IFO=6THENN$="WIEDERHERSTELLEN"
69 PRINT"[147]*** [198]ILE ";N$;"":N=0:INPUT"[211]TARTTRACK  =";T:INPUT"[211]TARTSEKTOR =";S
70 INPUT"[193]LLES [207]K (J/N) ";A$:IFA$<>"J"THENRETURN
71 PRINT"[204]EGEN [211]IE DIE [196]ISKETTE MIT DEM ZU":PRINTN$;"DEN [198]ILE EIN!":GOSUB80
72 OPEN2,8,2,"#"
73 PRINT "[145]                   ":N=N+1:PRINT"[145][194]LOCK";N;"  ";T;S
74 PRINT#15,"U1 2 0";T;S:GOSUB81:PRINT#15,"B-"+CHR$(70+(O>5)*5)+":0 ";T;S
75 GOSUB81:GET#2,A$,N$:PRINT#15,"B-P 2 255":GET#2,E$:A=INT(ASC(A$+CHR$(0))/16)
76 X=ASC(A$+CHR$(0))AND15:J=ASC(E$+CHR$(0))AND15:I=INT(ASC(N$+CHR$(0))/16)
77 IFI>7THEN83
78 I=16*(IAND2)+4*(IAND4):T=I+A:S=16*(JAND1)+X:IF(JAND8)=0THEN73
79 CLOSE2:PRINT"[198]ERTIG.":RETURN
80 POKE198,0:WAIT198,1:POKE198,0:RETURN
81 INPUT#15,E,E$,F,G:IFE=0THENRETURN
82 PRINT"[196]ISK-[198]EHLER !":PRINTE;E$;F;G
83 GOSUB80:GOTO1
84 F=INT(W/256):G=W-256*F:POKEA,G:POKEA+1,F:RETURN
85 DATA0,224,17,12,256,0,17,18,512,0,17,7,768,128,17,11,896,0,17,17
86 DATA1152,0,17,2,1408,0,17,8,1664,0,17,14,1920,0,17,20,224,32,18,1
87 OPEN1,8,0,"$":GOSUB81:SYS8832:CLOSE1:RETURN