®GLA¯®LM0¯®RM255¯®TS10,24¯ R.J. Holmgren 3/21/90 LISTPM.PM v1.0h XPL PrograM Lister for XyWrite III+ v3.54+ ONLY ®MD198¯INSTRUCTIONS®MDNM¯ One empty window must be available RUN LISTPM.PM with XPL target PrograM-to-List in current window Abort with func BK (but you must manually reset Defaults EB and NW if you Abort, because LISTPM is not terminating normally and resetting them) For printing-to-printer, use a US-ASCII font that duplicates the IBM screen- character set (so that low- and high-order chars print properly); OR use LISTPM's runtime option to eliminate low³high codes: result = {1chr}³<3chr> If printing-to-printer, verify here >®VA*BO¯< the MoDe# used to print ®MDBO¯BOLD®MDNM¯ (usually ÿAEMD15ÿAF), then make sure that your .PRiNter file interprets that MoDe in order to print function calls: e.g., if ÿAEMD15ÿAF, add "MD 15+MEDCOURIER-BOLD" to the PT table of a Medium Courier font ®MD198¯USER VARIABLE (1): ÿAESv01ÿAF®MDNM¯ Pick a Printer Type (ÿAEPTnÿAF) that represents a non-proportional 12cpi font (for both screen formatting and printing purposes), and optionally add to ÿAESv01ÿAF other desired printing format codes (e.g. ÿAERM65ÿAF instead of default ÿAERM78ÿAF or appropriate ÿAELSnÿAF, ÿAEFDnÿAF, ÿAEPLn,n,nÿAF, etc. values) *Use Guillemets* "ÿAEÿAF"! Set below: ÄÄ Toggle ®MD198¯EXPANDED TEXT MODE®MDNM¯ to set Save/Get ÿAESv01ÿAF ®LBA¯®SV01,®PT1¯®LS.8¯¯®GLB¯ ®LBB¯®SX01,@UPR(®IS01¯)¯®SV02,PT¯®IF®IS02¯î®IS01¯<1¯ÿÿ€ñÿsea ÿAESV01,ÿ ÿdos /c echo ÿ ÿ LISTPM Uninstalled Ä Set PT (+ other optional formats) in ÿAESv01ÿAFÿ€}®EX¯®EI¯®SX03,®VA$FP¯¯®SX04,®VA$EB¯¯®SX05,®VA$NW¯¯®SX06,®VA$FS¯¯®IF®PV06¯>510¯®LBC¯ÿ No window available®LBD¯ÿd nw=®PV05¯ÿ ÿd eb=®PV04¯ÿ ÿÿ€}®PR Abort¯®EX¯®EI¯ÿd nw=1ÿ ®SX06,®VA$FP¯¯ÿÿÿca conÿ ÿÿ€ãÿme ®PV06¯ÿ ®IF®ER¯¯ÿ No file ®PV06¯ found®GLD¯®EI¯ÿwaitÿ ÿ€ñÿd eb=0,0ÿ ®SV06,®LM0¯®RM78¯®IP10,13¯¯®GT06¯®GT01¯®MDBO¯Listing of ®PV03¯®MDNM¯ÿ0Dÿcia ÿ0AÿFF0DÿFF0Aÿ ÿcia ÿ09ÿFF09ÿ ÿcia ÿFFAEÿE6åãÿ ÿcia ÿFFAFãåÿE6ÿ ®SX06,®CP¯¯®SV07,æ¯®SU08, å®PV07¯ã ¯®SU09, ã®PV07¯å¯®SV10,su¯®SU11,ÿA®LBE¯ÿse ÿAE®PV10¯ÿ ®IF@NOT(®ER¯)¯®SX02,®CP¯-3¯ÿ¯ÿ€ñÿjmp ®PV02¯ÿ ÿ€cÿÿ+®GT08¯ÿjmp ®PV02¯ÿ ÿ€Ï®GT09¯ÿ?ÿ;ÿAÿ€ñ®GLE¯®EI¯ÿ€ñÿ?ÿ;¯®GT11¯®SV10,sv¯®GT11¯®SV10,if¯®SU08,ÿ€½ÿ€Éÿ€Åæãå ¯®SU09,ÿ€½ÿ€Éÿ€Ã¯®GT11¯®SV10,ei¯®SU08, å®PV07¯ã¯®SU09, ¯®GT11¯ÿjmp ®PV06¯ÿ ÿcia ÿAEÿFFAEÿ ÿ ÿcia ÿAFÿFFAFÿ ÿ ®SX11,1¯®SU06,®SX08,1¯ÿsea ÿFFAEÿ ®IF®ER¯¯®SX11,0¯®EX¯®EI¯®SX02,®CP¯-3¯®LBF¯ÿsea ÿFFAFÿ ®SX03,®CP¯¯ÿseba ÿFFAE®LBG¯ÿ ®IF®PV11¯<®PV08¯¯®SX11,®PV11¯+1¯®GLG¯®EI¯®SX07,®CP¯¯®IF®PV02¯==®PV07¯¯ÿ0D®SX03,®PV03¯+2¯®EI¯ÿjmp ®PV03¯ÿ ®IF®PV02¯==®PV07¯¯ÿ0D®EX¯®EI¯®SX08,®PV08¯+1¯®SX11,1¯®GLF¯ÿ£¯®LBH¯®IF®PV11¯>0¯ÿA®GT06¯ÿ?ÿ;®GLH¯®EI¯ÿ€ñ®SU07,®LBI¯ÿse ãÿE6åsuÿ ®IF@NOT(®ER¯)¯ÿse ,ÿ ÿ0D®GLI¯®EI¯ÿ€ñ¯®GT07¯®SU07,®LBJ¯ÿse ÿFFAElbÿ ®IF@NOT(®ER¯)¯ÿ€[ÿ€[ÿ€[ÿ0Dÿ#®GLJ¯®EI¯ÿ€ñ¯®GT07¯®SV03,æ¯®SU07,®LBK¯ÿse ÿ0AÿE6ãåÿ0Aÿ ®IF@NOT(®ER¯)¯ÿ€gÿ€Õÿ€gÿ!ÿ€Ïã®PV03¯å®GLK¯®EI¯ÿ€ñ¯®GT07¯ÿci ÿ0AEIÿ0AåÿE6ãÿ0AÿFFAEEIåÿE6ãÿ0Aÿ ®SU11,ÿci ÿ0Aÿ0Aÿ0A®LBL¯ÿ ®IF@NOT(®ER¯)¯®GLL¯®EI¯ÿ£¯®GT11¯®SV02,,¯®SU12,ÿ¯®SX01,®VAIP¯¯®SX01,®IS01¯¯®XS01,02,08,10,06¯ÿ¯®SU07,®LBM¯ÿAÿ€ñÿse ãÿE6åÿ ®IF®ER¯¯®SX09,-4¯®GLN¯®EI¯®SX09,®CP¯-3¯®LBN¯ÿ€ñÿse åÿE6ãÿ ®IF®ER¯¯ÿ?ÿ;®GT11¯®EX¯®EI¯®SX13,®CP¯-3¯®IF®PV13¯<®PV09¯!®PV09¯<-3¯®GT12¯®SX08,®PV08¯-5¯®SX06,®PV06¯-5¯ÿjmp ®PV13¯ÿ ÿ€Ïÿ€Ïÿ€ÏÿFFAFÿIP ®PV08¯,®PV06¯ÿ ÿ0Dÿ?ÿ;®GLM¯®EI¯ÿ€ñÿjmp ®PV09¯ÿ ÿ!ÿ€Ïÿ€Ïÿ€ÏÿFFAE®GT12¯®SX08,®PV08¯+5¯®SX06,®PV06¯+5¯ÿ€cÿ€cÿIP ®PV08¯,®PV06¯ÿ ÿ?ÿ;ÿA®GLM¯ÿ£¯®GT07¯ÿcia åãÿE6ÿFFAFÿ ®SU07,®LBO¯ÿAÿse ÿFFAElbÿ ®IF@NOT(®ER¯)¯ÿ€[ÿ€[ÿ€[®SX03,®CP¯¯®GT12¯ÿjmp ®PV03¯ÿ ®SX08,®PV08¯-10¯ÿIP ®PV08¯,®PV08¯ÿ ÿ€c®MDRV¯ÿ#ÿ€[®MDNM¯ÿ#ÿIP ®PV01¯ÿ ÿ?ÿ;®GLO¯®EI¯ÿ€ñÿ?ÿ;¯®GT07¯ÿcia ÿE6åãÿFFAEÿ ÿcia ãåÿE6ÿFFAFÿ ÿcia ÿ0AÿFFAFÿAEIPÿFFAFÿAEIPÿ ÿÿC®SV06,Y¯ÿ Print to line printer? (y/n) ®SX02,@UPR(®RC¯)¯®IF®IS02¯<>®IS06¯¯®LBP¯ÿd eb=®PV04¯ÿ ÿd nw=®PV05¯ÿ ÿÿ€}®PR Done¯®EX¯®EI¯®SX01,®VA$FS¯¯®IF®PV01¯>510¯®GLC¯®EI¯®SX01,1¯®SV03,¯ÿ Convert lo- and hi-order Ascii 1-31³128-254 to {numbers}? (y³n³ÿ10`Esc') ®PR For Non-ASCII printers³fonts¯®SX02,@UPR(®RC¯)¯®IF®IS02¯==®IS03¯¯®GLD¯®EI¯®IF®IS02¯<>®IS06¯¯®SX01,0¯®EI¯ÿÿ€ñ®SV06,®FD59¯®PL59,59,59¯®TP0¯®BT0¯®OF0¯®OP0¯®WD0¯¯®GT06¯ÿ€Ÿÿcia ÿFF0DÿFF0A{crlf}ÿ ÿcia ÿFF09{Tab}ÿ ÿcia ÿFFE6æÿ ÿcia {Esc}ÿ ®IF®PV01¯<1¯ÿcia ÿFF0A{10}ÿ ÿcia ÿFF0D{13}ÿ ÿcia ÿFFFF{255}ÿ ®GLV¯®EI¯ÿcia ÿ0Dÿ0A{0D0A}ÿ ÿcia ÿFFÿ€[ÿ€[ÿ+ÿ€cÿ€c{8}ÿ ÿcia ÿFF ÿ€[ÿ€[ÿ+ÿ€cÿ€c{10}ÿ ÿcia {0D0A}ÿFF ÿFF ÿ€[ÿ€[ÿ+ÿ+ÿ€[ÿ+ÿ ÿcia üü{6}üÿ ®SV02,,¯®SV14,¯®SX06,0¯®SV01,0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,¯®SX10,®IS01¯¯®SU07,®XS01,02,03,08,11¯ÿ£¯®SU12,®LBQ¯®GT07¯®SX01,®IS10¯¯®SX09,®IS03¯¯®SX13,®IS11¯¯®LBR¯®GT07¯®SX01,®IS11¯¯ÿcia ÿFF®PV09¯®PV03¯<®PV06¯>ÿ ®SX06,®PV06¯+1¯®IF®IS11¯<>®IS14¯¯®GLR¯®EI¯®IF®IS13¯<>®IS14¯¯®SX01,®IS13¯¯®GLQ¯®EI¯ÿ£¯®GT12¯®SV01,ÿ01 €‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüþ¯®SV08,ÿ01,,,,,,,, ,,,,,,,,,,,,,,,,,,,,,,,€,,‚,ƒ,„,…,†,‡,ˆ,‰,Š,‹,Œ,,Ž,,,‘,’,“,”,•,–,—,˜,™,š,›,œ,,ž,Ÿ, ,¡,¢,£,¤,¥,¦,§,¨,©,ª,«,¬,,,,°,±,²,³,´,µ,¶,·,¸,¹,º,»,¼,½,¾,¿,À,Á,Â,Ã,Ä,Å,Æ,Ç,È,É,Ê,Ë,Ì,Í,Î,Ï,Ð,Ñ,Ò,Ó,Ô,Õ,Ö,×,Ø,Ù,Ú,Û,Ü,Ý,Þ,ß,à,á,â,ã,ä,å,æ,ç,è,é,ê,ë,ì,í,î,ï,ð,ñ,ò,ó,ô,õ,ö,÷,ø,ù,ú,û,ü,,þ,¯®SV11,,¯®SV13,¯®SU12,®LBS¯®XS08,11,07,06,09¯®SX10,®IS07¯î®IS01¯+1¯®IF®PV10¯>1¯®SX10,®PV10¯-2¯®EI¯®IF®PV10¯>31¯®SX10,®PV10¯+96¯®EI¯ÿcia ®PV07¯{®PV10¯}ÿ ®IF®IS09¯<>®IS13¯¯®SX08,®IS09¯¯®GLS¯®EI¯ÿ£¯®GT12¯ÿ€ñ®SX12,5000¯®SV03,¯®SU07,ÿjmp ®PV12¯ÿ ¯®LBT¯ÿ€k®GT07¯ÿ€k®SV08¯ÿ®SX11,®IS03¯î®IS08¯¯®IF®PV11¯>-1¯®SX12,®PV12¯-5000+®PV11¯¯®GT07¯ÿ€Ï{16}®SX12,®CP¯¯®GLU¯®EI¯®SX02,®CP¯¯®IF®PV12¯==®PV02¯¯®LBU¯®SX12,®PV12¯+5000¯®GLT¯®EI¯ÿ€ñÿcia <174>[ÿ ÿcia <175>]ÿ ®LBV¯ÿcia ~ÿFF7Eÿ ÿ€M®PG¯ÿ€ñÿC®SV11,Y¯ÿ TYpe to printer NOW? (y³n) ®SX12,@UPR(®RC¯)¯®IF®IS12¯==®IS11¯¯ÿtyÿ ÿwaitÿ ®EI¯®GLP¯ÿ£