10 POKE53281,0:POKE53280,0:PRINT"[147]":POKE53371,0
20 DV=PEEK(186):IFDV<8THENDV=8
30 DIMC(16):FORI=0TO15:READC(I):NEXT
40 DATA144,5,28,159,156,30,31,158,129,149,150,151,152,153,154,155
50 H$=CHR$(141)+CHR$(145)
60 PRINT"[147][129]   [212][200][197] [205][201][199][200][212][217] [204][207][193][196][211][212][193][210] [200][197][193][196][197][210] [195][207][204][207][210][201][218][197][210]"
70 PRINT"[155]            BY [203]NEES [195]ALHOON
80 [153]" CONT(1CONT) ASCORMAT A 1541 DISK WITH A COLORED
90 PRINT"     HEADER.
100 [153]" (2CONT) LENHANGE THE HEADER NAME AND COLOR
110 PRINT"     ON A FORMATTED DISK WITHOUT
120 [153]"     RE-FORMATTING IT.
130 POKE198,0
140 GETA$:IFA$<"1"ORA$>"2"THEN140
150 M=1:IFA$="2"THENM=2
160 GOSUB630
170 FORI=3TO19:POKE781,I:SYS59903:NEXT
180 PRINT""
190 POKE19,65:PRINT"":INPUT"[155][195]OLOR OF HEADER: ";C1
200 PRINT"":INPUT"[155][195]OLOR OF FILES: ";C2
210 PRINT"":INPUT"[155][200]EADER NAME (12 MAX.): ";HN$
220 IFLEN(HN$)>12THENPRINT"[145][145][145]":GOTO210
230 POKE19,0:PRINT
240 IFM=2THEN380
250 PRINT:INPUT"[155][201][196] ([197]NTER NOTHING FOR SHORT[206][197][215])";ID$
260 IFLEN(ID$)>2THENPRINT"[145][145][145]":GOTO250
270 PRINT"[154]   [201]NSERT DISK TO BE FORMATTED IN
280 [153]"   DRIVESYS"DV"CONTAND PRESS (null)(null)ATNLENVAL.
290 POKE198,0
300 GETA$:IFA$=""THEN300
310 NN$=H$+CHR$(C(C1))+HN$+CHR$(C(C2))
320 IFID$<>""THENNN$=NN$+","+ID$
330 OPEN15,DV,15,"N0:"+NN$:CLOSE15
340 PRINT"[158][196]ONE!"
350 TQ=TI
360 IFTI<TQ+200THEN360
370 GOTO60
380 PRINT"[154]   [201]NSERT DISK TO BE RENAMED IN
390 [153]"   DRIVESYS"DV"CONTAND PRESS (null)(null)ATNLENVAL.
400 POKE198,0
410 GETA$:IFA$<>" "THEN410
420 NN$=H$+CHR$(C(C1))+HN$+CHR$(C(C2))
430 IFLEN(NN$)<16THENNN$=NN$+CHR$(160):GOTO430
440 OPEN15,DV,15,"I0"
450 OPEN1,DV,5,"#"
460 PRINT#15,"U1:5 0 18 0"
470 PRINT#15,"B-P:5 144"
480 OD$="":FORI=1TO16:GET#1,A$:IFA$=""THENA$=CHR$(0)
490 OD$=OD$+A$:NEXT
500 PRINT"[154][207]LD NAME: "OD$
510 PRINT#15,"B-P:5 144"
520 PRINT#1,NN$;
530 PRINT#15,"U2:5 0 18 0"
540 PRINT#15,"I0"
550 CLOSE1:CLOSE15
560 PRINT"[154][206]EW NAME: "MID$(NN$,3,LEN(NN$)-3)
570 PRINT"[158][196]ONE!"
580 PRINT"      [154](1[154]) [193]NOTHER   (2[154]) [209]UIT
590 [161]A$:[139]A$[179]"1"[176]A$[177]"2"[167]590
600 [139]A$[178]"1"[167]60
610 [153]"LOADOPEN":[128]
630 [151]214,20:[153]
640 [153]"0 PRINT#PEEKLACK 4 PRINT#(null)URPLE  8 PRINT#(null)RANGE  12PRINT# CHR$REY 2
650 PRINT"1 [152][215]HITE 5 [152][199]REEN   9 [152][194]ROWN   13[152] [204]T. [199]RN
660 [153]"2 PRINT#(null)ED   6 PRINT#PEEKLUE   10 PRINT#(null)T. (null)ED 14PRINT# (null)T.PEEKLUE
670 PRINT"3 [152][195]YAN  7 [152][217]ELLOW 11 [152][199]REY 1  15[152] [199]REY 3"
680 RETURN
10000 D=PEEK(186):N$="0:HEADERCOLOR":OPEN15,D,15,"S"+N$:CLOSE15:SAVEN$,D:END