10 CALLR%
   20 VDU26
   30 VDU28,0,1,40,1
   40 PRINTTAB(6)"Printing Text Please Wait.";
   50 PROCprint
   60 VDU12,26
   70 VDU28,0,21,79,2
   80 CHAIN"Editor"
   90 :
  100 DEFPROCprint
  110 REM O%=buffer% M%=maxline%
  120 epson%=E%
  130 datac%=D%
  140 o%=0:graphic%=0:sep%=0
  150 VDU2
  160 IFepson%:VDU1,27,1,48
  170 IFdatac%:VDU1,27,1,65,1,11
  180 FORl%=0TOM%
  190 FORc%=1TO80
  200 d%=?(O%+o%)
  210 IFd%<32:d%=32
  220 IF(epson%+datac%)=0 AND (d%<32ORd%>126):d%=32
  230 IFd%>127AND(datac%+epson%):PROCeprint
  240 VDU1,d%
  250 o%=o%+1
  260 NEXT
  270 IFepson%:VDU1,10
  280 VDU1,13:graphic%=0:sep%=0
  290 NEXT
  300 IFepson%:VDU1,27,1,50
  310 VDU1,13,1,12,3
  320 ENDPROC
  330 :
  340 DEFPROCeprint
  350 IFd%=&80:d%=32:ENDPROC
  360 IFd%>&80 AND d%<&88:graphic%=0:d%=32:ENDPROC
  370 IFd%>&87 AND d%<&91:d%=32:ENDPROC
  380 IFd%>&90 AND d%<&98:graphic%=1:d%=32:ENDPROC
  390 IFd%=&99:sep%=0
  400 IFd%=&9A:sep%=1
  410 IFd%>&97 AND d%<&A0:d%=32:ENDPROC
  420 IFd%>&BF AND d%<&E0:d%=32:ENDPROC
  430 IFgraphic%=0:d%=32:ENDPROC
  440 IFepson%:PROCepson
  450 IFdatac%:PROCdatac
  460 d%=0
  470 ENDPROC
  480 :
  490 DEFPROCdatac
  500 VDU1,27,1,54
  510 VDU1,d%
  520 VDU1,27,1,55
  530 ENDPROC
  540 :
  550 DEFPROCepson
  560 flag%=0
  570 FORn%=0TO6
  580 flag%=flag%+(d%AND2^n%)
  590 NEXT
  600 :
  610 VDU1,27,1,ASC"^",1,0,1,6,1,0
  620 pr%=0
  630 IFflag%AND1:pr%=pr%+&E0-(sep%*&20)
  640 IFflag%AND4:pr%=pr%+&1C-(sep%*&04)
  650 IFflag%AND16:pr%=pr%+&8003-(sep%*&8000)
  660 IFsep%:VDU1,0,1,0
  670 FORn%=sep%TO2
  680 VDU1,pr%AND&FF
  690 VDU1,(pr%AND&FF00)DIV&100
  700 NEXT
  710 pr%=0
  720 IFflag%AND2:pr%=pr%+&E0-(sep%*&20)
  730 IFflag%AND8:pr%=pr%+&1C-(sep%*&04)
  740 IFflag%AND64:pr%=pr%+&8003-(sep%*&8000)
  750 IFsep%:VDU1,0,1,0
  760 FORn%=sep%TO2
  770 VDU1,pr%AND&FF
  780 VDU1,(pr%AND&FF00)DIV&100
  790 NEXT
  800 ENDPROC