þþ•dX;SAVE#D:SPYPT4.M65nX;xX;-------------------;‚X; Secret Agent ;ŒX; By: Barry Kolbe ;–X; Disk I/O routines ; X; (c) 1988 ;ªX;-------------------;´X;¾X;CIO equatesÈX;Ò…ICCOMB;;commandÜ…ICBALD;;buffer addressæ …ICBAHEð…ICBLLH;;buffer lengthú …ICBLHI„AUX1J;;type access „AUX2K ƒCIOVä"X;, †SVEGAM †CLOSE1;;close IOCB 16 Q>;;open@$>;;channel 1J P…ICCOM9TQ>;;to write^ P„AUX19hQ>4„FNAM;;file namer P…ICBAL9| Q>5„FNAM† P…ICBAH9Q>š P„AUX29¤ ƒCIO;;open it!®G…IOERR;;show error¸Q> ;;put bytesÂ$>;;channel 1Ì P…ICCOM9ÖQ>4…SAVST;;startingàP…ICBAL9;;addressê Q>5…SAVSTô P…ICBAH9þQ>4…SAVEN…SAVST P…ICBLL9;;number ofQ>5…SAVEN…SAVST P…ICBLH9;;bytes& ƒCIO;;save data0G…IOERR;;woops!:…IODON†PRINT ‚M2;;'done'D †CLOSE1;;close fileN:X…IOERR †CLOSE1;;close IOCB 1b†PRINT …IOMSG;;say 'Error'l:vX;€†CLOSE1$>;;close IOCB 1ŠQ> ;;close commnd” P…ICCOM9ž ƒCIO¨:²X;¼!‡LOADGAM †CLOSE1;;close IOCB 1Æ Q>;;openÐ$>Ú P…ICCOM9ä Q>4„FNAMî P…ICBAL9ø Q>5„FNAM P…ICBAH9 Q> P„AUX29  Q>;;read* P„AUX194 ƒCIO>ƒIOJG…IOERR;;'Error'HQ>;;get bytesR$>\ P…ICCOM9fQ>4…SAVST;;startingpP…ICBAL9;;addressz Q>5…SAVST„P…ICBAH9;;get numberŽQ>4…SAVEN…SAVST ˜P…ICBLL9;;of bytes¢Q>5…SAVEN…SAVST ¬ P…ICBLH9¶ ƒCIOÀGƒIOJ;;'Error'ÊX;ÔX;Reset proper MessageÞX;èQ‚FJ;;robot dead?ò FƒRBK;;yesüQ>4ƒD1A;;say 'guarding' P†ROBROM Q>5ƒD1AP†ROBROM$ !…IODON.ƒRBKQ>4ƒD1F;;'mangled8P†ROBROM;;robot'B Q>5ƒD1FLP†ROBROMV !…IODON`X;j„FNAM A‰D:SPY.DATA=ƒEOLt…IOMSG AŒFile error. A=