10 CLEAR56,61311
20 CALL7994:INPUT"File Name";A$:IFLEN(A$)>6THEN20
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 POKE62950+X,F:NEXT
60 INPUT"Word Wrap";I
70 II=0:IFI<10ORI>80THENI=60:II=20:GOTO80
75 IFI>60THENII=I-60:I=60
80 POKE62959,I*3-1:POKE62958,II*3
90 INPUT"Page Break";J
100 IFJ=0THENJ=54
110 POKE62950,J
120 RUNM"VIEW80