þþæd$X;Example 2 - using the XIO macronX;by Karl E. WiegersxX;‚$X;examples of using STATUS, LOCK,Œ X;UNLOCK, RENAME, DELETE, and–X;FORMAT disk operations X;ªX;you need the MACRO.LIB and´"X;SUBS.LIB files on the disk in¾X;the drive named in linesÈX;0240 and 0990ÒX;ÜX;æF=EIð>ŒD8:MACRO.LIBúX;#X;******************************X; PROGRAM STARTS HERE#X;******************************"X;,P6X;@!„XIO †STATUS====A„D8:PAJ)>TFƒOK1^ ‰STATUSERRh+rƒOK1|„XIO „LOCK====A„D8:PA†IƒOK2 ‡LOCKERRš+¤ƒOK2®!„XIO †UNLOCK====A„D8:PA¸IƒOK3 ‰UNLOCKERRÌ+ÖƒOK3à%„XIO †RENAME====AˆD8:P,Q.RAêIƒOK4ô ˆRENAMERRþ+ƒOK4#„XIO †STATUS====A†D8:Q.RA)>&FƒOK50 ‰STATUSERR:+DƒOK5N!„XIO „LOCK====A†D8:Q.RAXIƒOK6b ‡LOCKERRl+vƒOK6€X;Š$X;-------------------------------”"X;NOTE: program will stop herež"X;and tell you that the file is¨ X;locked.²$X;-------------------------------¼X;Æ#„XIO †STATUS====A†D8:Q.RAÐ)>ÚFƒOK7ä ‰STATUSERRî+øƒOK7#„XIO †DELETE====A†D8:Q.RA IƒOK8 ˆDELETERR +*ƒOK84X;>$X;-------------------------------H#X;BE VERY CAREFUL WHEN USING THERX;FORMAT COMMAND !!!!!!!!\$X;-------------------------------fX;p X; XIO FORMAT,3,0,0,"D2:"zX; BPL OK9„X; JSR FORMATERRŽ X; BRK˜ƒOK9¢+¬X;¶$X;-------------------------------À X;pull in all the subroutinesÊ$X;-------------------------------ÔX;Þ>‹D8:SUBS.LIB