žžqdX; "PCPRINT"nX; BY: JOHN WESTxX; 5-24-89‚ X; (c) 1989, ANTIC PUBLISHINGŒX;–X;ASM,,#D:PCPRINT.COM X;ŖX;SAVE#D:PCPRINT.M65“X;¾"X;CHANGE CTRL-M,CTRL-J INTO 155ČX;ŅEIÜX;ę …ZPAGEĖš†HATABS;;START OF HNDLERś ;TABLEX;ŒINITIALSTART"X;,$>6X;@ …FINDPJQ†HATABS9;;FIND THETR> P;;PRINT HANDLER^F‰CHANGEPUT;;TABLE BYh2;;LOOKING FORr2;;THE LETTER 'P'.|2† H…FINDPX;š ‰CHANGEPUT¤Q†HATABS9;;KEEP THE OLD®P…ZPAGE;;TABLE ADDRESSøQ†HATABS9;;INTO PAGEĀP…ZPAGE;;ZERO ANDĢQ>4ˆNEWTABLE;;PUT MYÖP†HATABS9;;TABLE ADDRSSąQ>5ˆNEWTABLE;;INTO THEźP†HATABS9;;HNDLER TABLEō%>žX; ˆMOVELOOPQ@…ZPAGE7;;COPY ALL THEPˆNEWTABLE8;;OTHER HNDLER&1;;ADDRESSES INTO0)>’;;MY TABLE, AND: HˆMOVELOOPD%>NQ>4†NEWPUT;;THEN PUT MYX;;;PUT-BYTEbS>;;ADDRESS INlPˆNEWTABLE8;;ITv Q>5†NEWPUT€S>ŠPˆNEWTABLE8”:žX;ØX;² ˆNEWTABLE¼ ==Ę ‡PUTBYTEŠ ====ŚX;äX;ī †NEWPUTųR> ;;CHEK FOR CTRL-MH…NOT13;;IF NOT, CONT Q>;;IF SO, CHANGE!‰REALPRINT;;TO 0 AND DONE  …NOT13*R> ;;CHEK FOR CTRL-J4F‡SKIPJMP;;IF SO, NOT DONE>!‰REALPRINT;;IF NOT, DONEH ‡SKIPJMPRQ>›;;CHANGE CTRL-J\!‰REALPRINT;;INTO 155fX;p‰REALPRINT;REGULAR ADDRESSz!Ėž;;OF PUT-BYTE„X;ŽX;CAUSE PROGRAM TO START˜X;WHEN IT IS LOADED¢ą¬ ŒINITIALSTART