0010 ! EDRDPRAM - produces formatted text file in FMT
0020 ! Create an EMPTY text file FMT in :MAIN BEFORE use
0030 SUB EDITFPR1(A$,B$) @ IF NOT X9 THEN ASSIGN #255 TO FMT @ X9=1
0040 RESTORE #255,9999 @ PRINT #255;A$&B$ @ END SUB 
0050 SUB EDITFPR2(L,R,N1) @ DIM X9$[80] @ X9$=RPT$(" ",(R+L-LEN(STR$(N1)))/2)
0060 CALL EDITFPR1(X9$,"-"&STR$(N1)&"-")
0070 END SUB 
0080 SUB EDITFPR3(A$,L) @ IF LEN(A$)>3 THEN CALL EDITFPR1(A$[4],"")
0090 END SUB 
0100 SUB EDITFRD(#1,I$,I1) @ I1=0 @ ON ERROR GOTO 120 @ READ #1;I$ @ IF I$="" THEN I$=" "
0110 GOTO 130
0120 I1=1
0130 END SUB