Listing of file='609PLPT' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 2460, program filename = '609PLPT' 1750 REM %^ '609PLPT' - LINE PRINTER OUTPUT 1752 $TRAN(C6$(),HEX(008B))R : AND (C6$(),7F) : D5=D5-1 : IF C6$()<>" "THEN 1795 : IF C4<>4AND C4<>5AND C4<>7THEN 1795 : IF C4=5AND T5(5)=2THEN 1795 : RETURN 1795 $IF OFF /005,1800 : PRINT HEX(06);AT(5,5);STR(C6$(),,73); 1800 IF D7+LEN(C6$())>159THEN 1460 : IF D7=0THEN 1810 : FOR D=1TO D7 : $GIO#C7,(4020,C3$) : NEXT D 1810 $GIO#C7,(A200,C3$)C6$()<,LEN(C6$())> : IF T5(5)=1THEN ON C4GOTO 1830,1835,1840,1830,1830,1835,1830 : IF T5(5)=2THEN ON C4GOTO 1835,1845,1850,1830,1830,1840,1830 1830 $GIO#C7,(400D,C3$) : D5=D5+1 : GOTO 1855 1835 $GIO#C7,(400D400D,C3$) : D5=D5+2 : GOTO 1855 1840 $GIO#C7,(400D400D400D,C3$) : D5=D5+3 : GOTO 1855 1845 $GIO#C7,(400D400D400D400D,C3$) : D5=D5+4 : GOTO 1855 1850 $GIO#C7,(400D400D400D400D400D400D,C3$) : D5=D5+6 : GOTO 1855 1855 RETURN