100 POKE53281,1:PRINT"[147]"
102 GOSUB410
103 PRINTTAB(4)"[147]ENTER (ZZZ) WHEN COMPOSITION FINISHED"
104 FORC=1TO3000:NEXT
105 PRINTCHR$(147);TAB(8)"UPPER OR LOWER CASE? (U/L)"
107 GETC$:IFC$=""THEN107
108 IFC$="L"THENPOKE53272,23:GOTO115
109 IFC$="U"THENPOKE53272,21:GOTO115
110 IFC$<>"L"ORC$<>"U"THEN107
115 DIMA$(25):PRINT"[147]"
120 FORN=1TO23
130 PRINT"ENTER LINE #"N:INPUTA$(N):IFA$(N)="ZZZ"THEN145
140 NEXTN
145 PRINT"[147]"
146 W=10-INT(N/2)
147 FORZ=1TOW:PRINT"";:NEXTZ
150 FORX=1TO23
160 T=INT(40-LEN(A$(X)))/2
165 IFA$(X)="ZZZ"THEN185
170 PRINTTAB(T)A$(X)
180 NEXTX
185 PRINT"[154]  PRESS F1 TO PRINT SCREEN-F3 TO RENEW  "
190 GETF$:IFF$=""THEN190
200 IFF$="[133]"THEN300
210 IFF$="[134]"THENRUN
300 IFPEEK(53272)=23THENM=7
305 OPEN1,4,M:IFAN<>1THEN310
307 FORF=1TO37:PRINT#1:NEXTF
310 FORX=1TO24
320 IFA$(X)="ZZZ"THENCLOSE1:GOTO360
330 L=LEN(A$(X)):S=INT(L/2):T=20-S
335 IFAN=1THENPRINT#1,CHR$(15)TAB(T+40)A$(X):GOTO350
340 PRINT#1,CHR$(14)TAB(T)A$(X)
350 NEXTX
360 PRINT"[154]     F1 TO REPRINT-F3 TO RERUN        "
370 GETR$:IFR$=""THEN370
380 IFR$="[133]"THEN300
390 IFR$="[134]"THENRUN
400 GOTO370
410 PRINT"DO YOU WANT ANNOUNCEMENT PRINT FORMAT?":PRINTTAB(15)"(Y/N)"
420 GETAN$:IFAN$=""THEN420
430 IFAN$="Y"THENAN=1:RETURN
440 IFAN$="N"THENAN=0:RETURN
450 GOTO420