Listing of file='709PLPT' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 1686, program filename = '709PLPT' 1750 REM %^'709PLPT'-LINE PRINTER OUTPUT 11/03/88 KKB 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 : SELECT PRINT <@H9$> : PRINT " "; : SELECT PRINT <@H8$> : NEXT D 1810 SELECT PRINT <@H9$> : PRINT STR(C6$(),1,(LEN(C6$()))); : SELECT PRINT <@H8$> : 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 D5=D5+1 : GOTO 1855 1835 SELECT PRINT <@H9$> : PRINT HEX(0D); : SELECT PRINT <@H8$> : D5=D5+2 : GOTO 1855 1840 SELECT PRINT <@H9$> : PRINT HEX(0D0D); : SELECT PRINT <@H8$> : D5=D5+3 : GOTO 1855 1845 SELECT PRINT <@H9$> : PRINT HEX(0D0D0D); : SELECT PRINT <@H8$> : D5=D5+4 : GOTO 1855 1850 SELECT PRINT <@H9$> : PRINT HEX(0D0D0D0D); : SELECT PRINT <@H8$> : D5=D5+6 : GOTO 1855 1855 RETURN