12I^ARLINELNAFNAMECS1CNPAGPAGECCNDONES@ """"| LAST REVISED ON 12/10/83 |""| UTILITY FOR LISTING |$;@,;@,. A8""B""| INIT FOR FIRST USER LINE |L""V A`INDEX FIRST LINE 5 SPACESj(@ t6-~%6-%LAST BYTE PROCESSED46-@4# OF LINES PRINTED ON CURRENT PAGE96-@9# OF CHARACTERS PRINTED ON CURRENT LINE,6-@,CURRENT PAGE BEING PRINTED46-@4PAGE COUNT SINCE LAST FIX OF "TOF"""""| BEGIN LOOP FOR NEXT BYTE |""""CHECK FOR LAST CHARACTER WASEND OF LINE. IF SO INDEXNEXT CARD IN 5 SPACES.="AU#(@ 16-%@=6-@CHECK FOR LONG LINEL!@e6-@)6-%@B(@ L A HANDLE PAGE BREAKS HERE!@b A"P)@6-%@(.!@1*@$(>:,. A`2 < | ATARI/EPSON CONVERSION |F P 6-X=EPSON Y=ATARIZ"@6-AV|d"@6-ATn"@6-AQx"@6-AI"@6-Au"@6-A4"@&6-AS"@6-AP"@#6-AR"@$6-AX"@6-AY"@6-AW*@(>:, A`| CODE EXITING LOGIC |%6-@%FLAG NO NEW TMARGIN A"P PAGE BREAK LOGIC +"-@@,&(@>:@,&RING BELL6 @%D1:DRAWJT| USER INITILIZATION |^h +r!!(THIS PROCEEDURE WILL LIST| (A PROGRAM STORED ON YOUR(DISK IN LIST FORM.( IT CONVERTS ATARI(CHARACTER<32 TO THEIR(EPSON EQUILIVENT!#(#(DO YOU WISH TO CONTINUE?( ENTER (Y/N):0#@@K:0)@$@@$ A((INPUT THE FILE NAME (FOR EXAMPLE: D1:CODE.LST( FILE NAME IS ( (| PRINTER INITILIZATION |& A!00""@@P: A"D @@NINITILIZE THE PRINTERX%%(@>:@',>:@d,b00(@>:@',>:@g,>:@g,l""(DO YOU WANT DOUBLE STRIKE?v0#@@K:0)@$@@$ APDOUBLE STRIKE$$(@>:@',>:@q,(( LISTING FOR  ( (((1 LINE LARGE CHARACTERS + EMPHASED??(@>:@',W>:@,>:@',>:@i,!!TURN ON UNDERLING FOR TITLE))(@>:@',->:@,(@0%(@ LISTING OF 0(@(@TURN OFF EMPHASED%%(@>:@',>:@p, ""TURN ON COMPRESSED CHAR MODE(@>:@, TURN OFF UNDERLING*))(@>:@',->:,4SET # OF CHARS/LINE = 66>))(@>:@',Q>:@f,H AR\| ERROR TRAPS HERE |fp"("(TURN ON THE PRINTER ANDz(SET AT TOP OF PAGE(HIT ANY KEY WHEN READY!0#@@K:0)@@ A0"("(I HAD A PROBLEM OPENING(THE FILE NAMED (SO I AM TERMINATING| SUB FOR PAGE BREAKS |HANDLE SCREEN BREAK,()( END OF PAGE #(),( | PRINT PAGE # |  !@b A#$ -@b. (@ 8  B 6-@cL 0(@ 0(@ V ''(@ PAGE #()` 6-%@j t | SET BOTTOM MARGIN |~  !(@ !(@  6- 6- 6-%@ 6-%@  @ A%` "" ""| COMPENSATE FOR TOF DRIFT | "" (@  6-@  | SET TOP MARGIN |  !!(@ !$ 6-@( -@+&@,2 (@ <  F INDEX IN FOR NEXT LINEP (@ Z $ D:LISTING.BAS