100 REM Save Install.bac
101 REM 
102 REM  Installerar filen DIDosgen.ld till DIDosgen.asm 
103 REM 
104 DIM A$(4%)=253%
105 IF PEEK(65013%) GET X$
106 ; INP(4%)CHR$(12%)' Installering av filen DIDosgen.asm'
107 ; CHR$(23%)STRING$(34%,35%)
108 ; 
109 ; ' Tryck p} RETURN f|r start : ';
110 GET X$
111 ; ''
112 IF ASC(X$)<>13% 138
113 ONERRORGOTO 141
114 ; : ; : ; 
115 ; ' - L[SER FILEN'
116 ; 
117 OPEN 'DIDosgen.ld' ASFILE 1%
118 FOR R%=0% TO 4%
119 FOR C%=1% TO 253%
120 INPUT #1%,X% : A$(R%)=A$(R%)+CHR$(X%)
121 NEXT C%
122 NEXT R%
123 CLOSE 1%
124 D$='Dr'+NUM$(PEEK(64769%))+':'
125 ; ' - RADERAR FILEN'
126 ; 
127 KILL D$+'Didosgen.ld' : F%=-1%
128 ; ' - KONVERTERAR PROGRAMMET'
129 ; 
130 PREPARE D$+'DIDosgen.asm' ASFILE 1%
131 FOR R%=0% TO 4%
132 Z%=CALL(28666%,1%)+CALL(28670%,R%)
133 Q0$=A$(R%) : Z%=CALL(28670%,R%)
134 NEXT R%
135 CLOSE 1%
136 ; : ; : ; : ; 'KLART'
137 END 
138 REM  Abort 
139 ; : ; ' Ingenting gjort.'
140 END 
141 REM  Skivfel 
142 ; : ; : ; CHR$(7%)' Skivfel'ERRCODE'!'
143 IF F% ; ' Filen DIDOSGEN.LD {r raderad, ladda in p} nytt!'
144 CLOSE 1% : CLOSE 2%
145 END