qdX; "PCPRINT"nX; BY: JOHN WESTxX; 5-24-89 X; (c) 1989, ANTIC PUBLISHINGX;X;ASM,,#D:PCPRINT.COMX;X;SAVE#D:PCPRINT.M65X;"X;CHANGE CTRL-M,CTRL-J INTO 155X;EIX; ZPAGEHATABS;;START OF HNDLER ;TABLEX;INITIALSTART"X;,$>6X;@ FINDPJQHATABS9;;FIND THETR> P;;PRINT HANDLER^FCHANGEPUT;;TABLE BYh2;;LOOKING FORr2;;THE LETTER 'P'.|2 HFINDPX; CHANGEPUTQHATABS9;;KEEP THE OLDPZPAGE;;TABLE ADDRESSQHATABS9;;INTO PAGEPZPAGE;;ZERO ANDQ>4NEWTABLE;;PUT MYPHATABS9;;TABLE ADDRSSQ>5NEWTABLE;;INTO THEPHATABS9;;HNDLER TABLE%>X; MOVELOOPQ@ZPAGE7;;COPY ALL THEPNEWTABLE8;;OTHER HNDLER&1;;ADDRESSES INTO0)>;;MY TABLE, AND: HMOVELOOPD%>NQ>4NEWPUT;;THEN PUT MYX;;;PUT-BYTEbS>;;ADDRESS INlPNEWTABLE8;;ITv Q>5NEWPUTS>PNEWTABLE8:X;X; NEWTABLE == PUTBYTE ====X;X; NEWPUTR> ;;CHEK FOR CTRL-MHNOT13;;IF NOT, CONT Q>;;IF SO, CHANGE!REALPRINT;;TO 0 AND DONE  NOT13*R> ;;CHEK FOR CTRL-J4FSKIPJMP;;IF SO, NOT DONE>!REALPRINT;;IF NOT, DONEH SKIPJMPRQ>;;CHANGE CTRL-J\!REALPRINT;;INTO 155fX;pREALPRINT;REGULAR ADDRESSz!;;OF PUT-BYTEX;X;CAUSE PROGRAM TO STARTX;WHEN IT IS LOADED INITIALSTART