10 POKE53281,0:POKE53280,12
20 PRINT"[147][155] SUPERBOOT! "
30 N$="":B$="!":S=0:F=0:B=1:NF=1
40 INPUT"MAIN PROGRAM NAME ";N$
50 L=LEN(N$)
60 IF L>15 THEN PRINT"FILENAME TOO LONG":PRINT"RENAME IF NECESSARY.":END
70 PRINT"BOOT SYMBOL FOR AUTOBOOT  OR "
80 INPUT"PRESS RETURN FOR ! SYMBOL ";B$
90 F$=B$+N$
100 PRINT"AUTOBOOT FILE IS  ";F$;" "
110 PRINT"SYS ADDRESS FOR MAIN PROGRAM  OR "
120 INPUT"<RETURN> IF BASIC.";S
130 PRINT"SYS ADDRESS TO ACTIVATE FIRST LOAD  OR "
140 INPUT"<RETURN> IF NO FIRST LOAD ";F
150 IF S THEN SH=INT(S/256):SL=S-SH*256:B=0
160 IF F THEN FH=INT(F/256):FL=F-FH*256:NF=0
170 OPEN15,8,15,"I"
180 OPEN2,8,2,F$+",P,W"
190 PRINT#2,CHR$(167);CHR$(02);
200 PRINT#2,CHR$(L);N$;
210 IF F THEN GOSUB 500
220 IF NF THEN GOSUB 600
230 IF B THEN GOSUB 700
240 IF S THEN GOSUB 800
250 N=56-L
260 IF F THEN N=N-20
270 IF B THEN N=N-12
280 IF N=0 THEN 310
290 FORK=1TON:PRINT#2,CHR$(0);
300 NEXT
310 PRINT#2,CHR$(139);CHR$(227);
320 PRINT#2,CHR$(168+L);CHR$(02);
330 CLOSE 2
340 PRINT" DOS MESSAGE [146]";
350 GET#15,E$:E=ST
360 PRINTE$;:IFE=0THEN350
370 CLOSE 15
380 PRINT"TO BOOT - LOAD "CHR$(34);F$;CHR$(34)",8,1 "
390 IF NF THEN 420
400 PRINT"COPY FIRST LOAD FILE "
410 PRINT"TO DISC AND RENAME  "CHR$(34);B$;CHR$(34)" "
420 END
500 FOR K=1TO14:READ A:PRINT#2,CHR$(A);
510 NEXT
520 PRINT#2,CHR$(32);CHR$(FL);CHR$(FH);
530 FOR K=1TO3:READ A:PRINT#2,CHR$(A);
540 NEXT
550 RETURN
600 FORK=1TO17:READ A:NEXT
610 RETURN
700 FORK=1TO44:READ A:PRINT#2,CHR$(A);
710 NEXT
720 RETURN
800 FOR K=1TO12:READ A:PRINT#2,CHR$(A);
810 NEXT
820 FOR K=1TO6:READ A:NEXT
830 FOR K=1TO17:READ A:PRINT#2,CHR$(A);
840 NEXT
850 PRINT#2,CHR$(76);CHR$(SL);CHR$(SH);
860 RETURN
900 DATA 169,001,166,187,164,188,032,189
910 DATA 255,169,000,032,213,255,032,068
920 DATA 166,173,167,002,162,168,160,002
930 DATA 032,189,255,169,000,133,185,166
940 DATA 043,164,044,032,213,255,169,131
950 DATA 141,002,003,169,164,141,003,003
960 DATA 134,045,132,046,032,089,166,032
970 DATA 051,165,076,174,167