100 REM *********************
110 REM *                   *
120 REM *  BOOT-GENERATOR   *
130 REM *                   *
140 REM *                   *
150 REM *  THOMAS NELLESSEN *
160 REM *                   *
170 REM *                   *
180 REM *  APRIL '86        *
190 REM *                   *
200 REM *********************
210 :
220 PRINT"[147]     BOOT-GENERATOR EINGABEDATEN"
230 PRINT"     ***************************":PRINT
240 INPUT" NAME DES 1. PROGS.";A$:PRINT
250 A$=LEFT$(A$,16)
260 INPUT" NAME DES 2. PROGS.";B$:PRINT
270 IFA$=B$THENPRINT"KEINE GLEICHEN NAMEN":FORI=1TO500:NEXT:RUN
280 B$=LEFT$(B$,16):LB=LEN(B$)
290 PRINT" GIB STARTADRESSE DES MASCH.PROGS EIN    "
300 PRINTLB+48"BYTES AB STARTADRESSE ERFORDERLICH  "
310 INPUT" STARTADRESSE";AD
320 AD$=MID$(STR$(AD+LB),2):LA=LEN(AD$)
330 PRINT"[147]NEW"
340 PRINT"10 FORI="AD"TO"AD+47+LB":READA:POKEI,A:NEXT"
350 PRINT"15 FORI=631TO"634+LA":READA:POKEI,A:NEXT"
360 PRINT"20 POKE198,"4+LA":LOAD"CHR$(34)A$CHR$(34)",8,1
370 [153]"25 DATA";
380 [129]I[178]1[164]LB:[153]([198]([202](B$,I,1)))"CMD,";:[130]:[153]"CMD "
390 [153]"30 DATA162,8,160,1,32,186,255,169,"LB",162,0,160,192,32"
400 [153]"35 DATA189,255,169,0,32,213,255,134,45,132,46,32,94"
410 [153]"40 DATA166,169,82,162,213,160,13,141,119,2,142,120"
420 [153]"45 DATA2,140,121,2,169,4,133,198,96,83,89,83,";
430 [129]I[178]1[164]LA:[153][198]([202](AD$,I,1))"CMD,";:[130]:[153]"13"
440 [153]:[153]"SAVE"[199](34)[200](B$,11)".BOOT"[199](34)",8"
450 [129]I[178]631[164]640:[151]I,13:[130]:[151]198,10