<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">Ž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&lt;cr&gt; 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}ł&lt;3chr&gt;
If printing-to-printer, verify here &gt;ŽVA*BOŻ&lt; 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Ż&lt;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Ż&gt;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Ż&lt;Ž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Ż&gt;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Ż&lt;ŽPV09Ż!ŽPV09Ż&lt;-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Ż&lt;&gt;ŽIS06ŻŻŽLBPŻ˙d eb=ŽPV04Ż˙	˙d nw=ŽPV05Ż˙	˙˙}ŽPR DoneŻŽEXŻŽEIŻŽSX01,ŽVA$FSŻŻŽIFŽPV01Ż&gt;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Ż&lt;&gt;Ž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Ż&lt;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Ż&lt;ŽPV06Ż&gt;˙	ŽSX06,ŽPV06Ż+1ŻŽIFŽIS11Ż&lt;&gt;ŽIS14ŻŻŽGLRŻŽEIŻŽIFŽIS13Ż&lt;&gt;ŽIS14ŻŻŽSX01,ŽIS13ŻŻŽGLQŻŽEIŻ˙ŁŻŽGT12ŻŽSV01,˙01	&nbsp;Ą˘Ł¤ĽŚ§¨ŠŞŤŹ­°ą˛ł´ľśˇ¸šşťź˝žżŔÁÂĂÄĹĆÇČÉĘËĚÍÎĎĐŃŇÓÔŐÖ×ŘŮÚŰÜÝŢßŕáâăäĺćçčéęëěíîďđńňóôőö÷řůúűüţŻŽSV08,˙01,,,,,,,,	,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,&nbsp;,Ą,˘,Ł,¤,Ľ,Ś,§,¨,Š,Ş,Ť,Ź,­,,,°,ą,˛,ł,´,ľ,ś,ˇ,¸,š,ş,ť,ź,˝,ž,ż,Ŕ,Á,Â,Ă,Ä,Ĺ,Ć,Ç,Č,É,Ę,Ë,Ě,Í,Î,Ď,Đ,Ń,Ň,Ó,Ô,Ő,Ö,×,Ř,Ů,Ú,Ű,Ü,Ý,Ţ,ß,ŕ,á,â,ă,ä,ĺ,ć,ç,č,é,ę,ë,ě,í,î,ď,đ,ń,ň,ó,ô,ő,ö,÷,ř,ů,ú,ű,ü,,ţ,ŻŽSV11,,ŻŽSV13,ŻŽSU12,ŽLBSŻŽXS08,11,07,06,09ŻŽSX10,ŽIS07ŻîŽIS01Ż+1ŻŽIFŽPV10Ż&gt;1ŻŽSX10,ŽPV10Ż-2ŻŽEIŻŽIFŽPV10Ż&gt;31ŻŽSX10,ŽPV10Ż+96ŻŽEIŻ˙cia ŽPV07Ż{ŽPV10Ż}˙	ŽIFŽIS09Ż&lt;&gt;ŽIS13ŻŻŽSX08,ŽIS09ŻŻŽGLSŻŽEIŻ˙ŁŻŽGT12Ż˙ńŽSX12,5000ŻŽSV03,ŻŽSU07,˙jmp ŽPV12Ż˙	ŻŽLBTŻ˙kŽGT07Ż˙kŽSV08Ż˙ŽSX11,ŽIS03ŻîŽIS08ŻŻŽIFŽPV11Ż&gt;-1ŻŽSX12,ŽPV12Ż-5000+ŽPV11ŻŻŽGT07Ż˙Ď{16}ŽSX12,ŽCPŻŻŽGLUŻŽEIŻŽSX02,ŽCPŻŻŽIFŽPV12Ż==ŽPV02ŻŻŽLBUŻŽSX12,ŽPV12Ż+5000ŻŽGLTŻŽEIŻ˙ń˙cia &lt;174&gt;[˙	˙cia &lt;175&gt;]˙	ŽLBVŻ˙cia ~˙FF7E˙	˙MŽPGŻ˙ń˙CŽSV11,YŻ˙ TYpe to printer NOW?  (yłn) ŽSX12,@UPR(ŽRCŻ)ŻŽIFŽIS12Ż==ŽIS11ŻŻ˙ty˙	˙wait˙	ŽEIŻŽGLPŻ˙Ł</pre></body></html>