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