Listing of file='609PCRT' on disk='vmedia/731-0067G.wvd.zip'
# Sector 2418, program filename = '609PCRT' 1750 REM %^ '609PCRT' - PRINT TO CRT 1755 IF C6$()<>" "THEN 1760 : IF C4<>4AND C4<>5AND C4<>7THEN 1760 : IF C4=5AND T5(5)=2THEN 1760 : GOTO 1790 1760 $TRAN(C6$(),HEX(0920008B))R : PRINT HEX(06);AT(MOD(D5+1,22),0);STR(C6$(),1,80); : J8=D6 : IF T5(5)=1THEN ON C4GOTO 1795,1800,1805,1790,1795,1800,1795 : IF T5(5)=2THEN ON C4GOTO 1800,1810,1815,1790,1795,1805,1795 1790 D6=D6-1 : GOTO 1820 1795 D6=D6 : GOTO 1820 1800 D6=D6+1 : GOTO 1820 1805 D6=D6+2 : GOTO 1820 1810 D6=D6+3 : GOTO 1820 1815 D6=D6+5 : GOTO 1820 1820 D5=D5+D6-J8 : IF 22-D6>2THEN RETURN : D5,D6=0 : GOSUB 1375 : PRINT HEX(03) : RETURN