20 CALL10794:INPUT"File Name";A$:IFLEN(A$)>6 THEN 20
30 IFA$=""THEN60
40 A$=A$+SPACE$(6-LEN(A$))+"DO":FORX=1TO8
45 F=ASC(MID$(A$,X,1)):IFF>96THENF=F-32
50 POKE58300+X,F:NEXT
60 INPUT"Word Wrap";I
70 IFI<10ORI>60THENI=60
80 POKE58309,I*4-1
90 INPUT"Page Break";J
100 IFJ=0THENJ=54
110 POKE58300,J
120 CALL56500