LL}6CD l0C)HCC WhL/h `CmCDiD`  R@P1  00@R !L` D  C D CS S0 )  C)D10 pL@ YЍL 0 C9DI pCDL~CiCDiD` D  C D CS S0 )  C)D10 pL@ YЍL }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") 0 }$G%H ?S8`$G $}$%i% x ְ48(())`G}GHiH x G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLsrotceS eerF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}`}YTE DDOS  !!"DOSDOS SYS }}}}CDOS SYSb2BGET M65b8BGET OBJb9BGET USRb;BIT M65b=BIT OBJb>BIT USRb@BITSTR } M65} -SDCXE.MOC.1N@   a0IWPTZ*&;LHLDL  ɐ @  }   9  L  1 Al `LOLPD2:D:STARTUP.EXCDD2:DOS.*Mxt*!}*MR@= DOS.*S.* D1:Q -QEXCOMD1:OMS D:STADD:SD1:D:STARTUP.EXC LE:  "}        : Aɛ )a{)_@#}@=LHLQ P L1LJ]8ʈ0 #H"H`:1u5q L$}CI 80 Y0-IIII Y L Ll    %}LlREMRENPROUNPSAVLOARUNERADIRTYPMERTRAAPPCAR) ` 8n( Ll   P:&} *.E  0\  8cL ɛ P0 0* $B V0  B $ '} V֘ LHJJJJ h) ii0`#$!  L P w L ɛ  L L P(}  P 00 mL   N  NLɪ) ` L P L 0֩  )} ɈЬ Ll`  N0  $ L  Nз N`lȌ P*}HAhALA J N0a) )ύ L % N DH & N L Lh0+},p . N`L)  L!JH hLNH PhL 0 $  NLy .LN B V,}Cɀ` L ʽ ĩ  $ LN LRLH" c$ c  h-} 8 iL& L $L $ED`IH` AL$ L.}` :  者` 80$  . Ԍ`/} `ɛ `    $ NRA/ ɛ/ i/i  $ LNNo HandlerTimeoutW0}rite protectedDrive #Disk fullProtectedNot foundBad LoadConfigAdr rangeNo CAR~~MASTER DOS 2.32 SSS- LO:1}2287 RUN:4000㩠Error 80 } EI=EHX;X;X;X;$X;.X;8LNG;;# bytes loadedBFR0;;FP-reg 0LX;VICCOMB;;IOCB comm3}and`ICSTAC;;IOCB statusj ICBALD;;IOCB buf adr (LO)t ICBAHE;;IOCB buf adr (HI)~ ICBLLH;;IOCB buf len (LO)4} ICBLHI;;IOCB buf len (HI)ICAX1J;;IOCB aux 1ICAX2K;;IOCB aux 2X;GETBR;;get binary recordX;5}CIOV;;CIO vectorX;X;X; START7X; 77T?(T?2T?<T?F>PX;Z7d PICBAH9n7x PICBAL9X6};7 PICBLH97 PICBLL9X; Q>GETBR PICCOM9X; CIOQ> PFR0'FR0X; QICBLL9PLNG" Q7}ICBLH9, PLNG6X;@:JX;TX;^X;hR PICCOM9X; CIOQ> PFR0'FR0X; QICBLL9PLNG" Q.0hhh hEhDhIhHB VՄԽHнI``X; CIOQ> PFR0 QICSTA9PFR0X; QICBLL9"7 BGE >>6-C:1hhh hEhDhIhHB VՄԽHнI`,!!! :}!err=USR(BGET,chn,start,len)(!!2real length = dpeek(208)< D:BGET.U*! t EI=EHX;X;X;X;$X;.X;8 FR0BX;LX;VX;` STARTj7t>~Q>PFR0 PFR0X;<} GETBIT77V?UFR0 UFR00 HGETBIT:X; X;X;STARTj7t>~Q>PFR0 PFR0X;NhԅhhJ&&`FR0 UFR00 HGETBIT:X; X;X;STARTj7t>~Q>PFR0 PFR0X; BI 6-C:hԅhhJ&&`,$$##word=USR(BIT,bn,...,b2,b1,?}b0)($$2 D2:BIT.U*##word=USR(BIT,bn,...,b2,b1,? EI=EHX;X;X;X;$X;.X;8 FILLB AUXL FR0VX;`X;jX;t START~7>X;7 A}PAUX7PAUXX;7 PFR07PFR0X;Q> 0  PFILL%>0(02 FPUTBIT<7F7P PFILLZX;d B}PUTBITn VFR0xWFR0Q>;;$30-->$18U? P@AUX7QFR0 HCONT QFR0 FREADYCONT1 IPUTBITX;C} READY'FR01 GRETURN QFILL" DELETE, P@AUX761@ IDELETEJX;T RETURN^Q>h PFR0r#FR0|:X;D}X;X;R01 GRETURN QFILL" DELETE, P@AUX761@ IDELETEJX;T RETURN^Q>h PFR0r#FR0|:X;Bhhhhhԩ0ϠhhFfԩ*ХԈ0ϑЈ`TEJX;T RETURN^Q>h PFR0r#FR0|:X; IBITST PP6-C:Chhhhhԩ0ϠhhFfԩ*ХԈ0ϑЈ`,$$$G}$$start=USR(BITSTR,adr,word[,f])($$2 D2:BITSTR.U*$v EI=EHX;X;X;X;$X;.X;8AUX;;usageBZP;;usageLIOCB1;;fr0lVIOCB2;;fr0h`X;j(I}ICCOMB;;IOCB commandtICSTAC;;IOCB status~ ICBALD;;IOCB buf adr (LO) ICBAHE;;IOCB buf adr (HI) ICBLL(J}H;;IOCB buf len (LO) ICBLHI;;IOCB buf len (HI)ICAX1J;;IOCB aux 1ICAX2K;;IOCB aux 2X;GETBR;;g(K}et binary recordPUTBR ;;put binary recordX;CR;;carriage returnCIOV;;CIO vectorX;X; X; START(L}7(X;27<7FT?PT?ZT?dT?n PIOCB1x>X;77T?T?T?T? PIOCB2?X;7 PICBAH9 PIC(M}BAH87 PICBAL9 PICBAL8"X;,76 PICBLH9@ PICBLH8J7T PICBLL9^ PICBLL8hX;r Q>GETBR| PICCOM9 Q>PUTBR(N} PICCOM8X;X; READBLOCK CIOGLASTBLOCKX; $IOCB2 CIO GERROR $IOCB1IREADBLOCKX;X;(O} LASTBLOCK& %IOCB20 QICBLL9: PICBLL8D QICBLH9N PICBLH8X $IOCB2b CIOl ERRORv QICSTA9 PIOCB1Q> P(P}IOCB2:X;X;X;BLL9: PICBLL8D QICBLH9N PICBLH8X $IOCB2b CIOl ERRORv QICSTA9 PIOCB1Q> P(ehhh Ԫhh ըhEEhDDhIIhHHB B V0 V0սHHII VCԩ`IOCB1Q> P,l COP ss6-C:fhhh Ԫhh ըhEEhDDhIIhHHB B V0 V0սHHII0S} VCԩ`,%%%%err=USR(COPY,src,des,start,len)(%%1} EI=EHX;X;X;X;$X;.X;8AUX;;usageBZP;;usageLIOCB1;;fr0lVIOCB2;;fr0h`X;j4U}ICCOMB;;IOCB commandtICSTAC;;IOCB status~ ICBALD;;IOCB buf adr (LO) ICBAHE;;IOCB buf adr (HI) ICBLL4V}H;;IOCB buf len (LO) ICBLHI;;IOCB buf len (HI)ICAX1J;;IOCB aux 1ICAX2K;;IOCB aux 2X;GETBR;;g4W}et binary recordPUTBR ;;put binary recordX;CR;;carriage returnCIOV;;CIO vectorX;X; X; START4X}7(X;27<7FT?PT?ZT?dT?n PIOCB1x>X;77T?T?T?T? PIOCB2?X;7 PICBAH9 PIC4Y}BAH87 PICBAL9 PICBAL8"X;,76 PICBLH9@ PICBLH8J7T PICBLL9^ PICBLL8hX;r7| PAUX7PAUXX;4Z} Q>GETBR PICCOM9 Q>PUTBR PICCOM8 HSHORT?X;X; READBLOCK CIOGLASTBLOCKX; $IOCB2 CIO& 4[}GERROR0 $IOCB1:;DQAUXN SICBLL9XPAUXb QAUXl SICBLH9v PAUXX; SHORT?QAUX RICBLL9 QAUX4\} SICBLH9EREADBLOCKX;QAUX PICBLL9 QAUX PICBLH9X; CIO X; LASTBLOCK  %IOCB2* QICBLL944]} PICBLL8> QICBLH9H PICBLH8RC\>f CIOp ERRORz QICSTA9 PIOCB1Q> PIOCB2:X;X;X;ICBLL944vhhh Ԫhh ըhEEhDDhIIhHHhhЩB B V01 V0=8HХIѥHIץНHѝI V8_}սHHII VCԩ`EhDDhIIhHHhhЩB B V01 V0=8HХIѥHIץНHѝI V8  XkCOPYXCOPY ;AH,6-C:,ZZ6.Phhh Ԫhh ըhEEhDDhIIhHHhX;7 PAUX7PAUX,O> PICBAL9 QAUX@h}O> PICBAH9X; Q>GETTR PICCOM9 Q>LEN" PICBLL9,Q>6 PICBLH9@ PFR0J CIOTX;^%> hBACKr Q@@i}AUX7|3 P@AUX711)>  HBACK%>Q> D P@AUX73 QICDNO9L>0;;to ASCII number P@AUX73 Q@@j}AUX7R> ;;blank ? FOKAY&Q>;;eof error0 GINTRO:OKAYDQ> :N P@AUX7X SEARCHb3l Q@AUX7vR>  FFOUND@k})>  HSEARCH FOUNDQ> . P@AUX7Q> PT1COPY'T2%T1 Q@AUX73)>  FFERTIG'T1 %T2@l}*34 P@AUX7> ICOPYH FERTIGR%T2\Q> ;;blankf DELETEp )>LENzFEOF3 P@AUX7 HDELETEX;EOFQ>@m} INTROPFR0:X;X;X;\Q> ;;blankf DELETEp )>LENzFEOF3 P@AUX7 HDELETEX;EOFQ>@(hhh hhiDiEBHI V ȑЈ DȽA 0ȱ 0::ȱ  .Щ ҄Ӥұ Do}Ҥȑө ȑ`iEBHI V ȑЈ DȽA 0ȱ 0::ȱ  .Щ ҄Ӥұ D !AFILENAMEFILENAMDIRFILEDIRFIL ;AF,6-C:,ZZ6.Phhh hhHq}iDiEBHI V ȑЈ DȽA 0ȱ UU67@,.B0::ȱ  .Щ ҄ӤұHr} Ҥȑө ȑ`(&&2&&err=USR(DIRFILE,dev,buf [15Byt])<&&I} EI=EHX;X;X;X;$X;.X;8NUMBER;;usageBFR0;;FP reg 0LX;V DUNIT`DCOMNDaLt}DSTATSj DBUFt DAUX1 ~ DAUX2 X;DSKINVS;;DSK vectorX;X;X; START7>X;7 PLu}DBUF7 PDBUF X;7 PDAUX2(72 PDAUX1<X;F7P7Z PDCOMNDdX;n7x7 PDUNITX;Q> PNUMBERLv}0000 FDOITX;77 PNUMBERX;DOIT DSKINV" GERROR, "NUMBER6 FERROR@X;J,T QDBUF^OLw}>h PDBUFr QDBUF|O> PDBUFX; #DAUX1 HDOIT #DAUX2 HDOITX; ERROR QDSTATSPFR0Q>Lx} PFR0:X;X;X;&DBUFX; #DAUX1 HDOIT #DAUX2 HDOITX; ERROR QDSTATSPFR0Q>L#Whhhh h hhhhhh S0ii  ܭԩ`ERROR QDSTATSPFR0Q>P^ &0DISREAWRIT ee6-C:Xhhhh h hhhhhh S0iT{}i  ܭԩ`,-@6-@&&(&&err=USR(DISK,buf,sec,cmd,d T|}[,n])2&&< D2:DISK.U*(&&err=USR(DISK,buf,sec,cmd,d TD EI=EHX;X;X;X;$X;.X;8ICCOMB;;IOCB commandBICSTAC;;IOCB statusL ICBALD;;IOCB buX~}f adr (LO)V ICBAHE;;IOCB buf adr (HI)` ICBLLH;;IOCB buf len (LO)j ICBLHI;;IOCB buf len (HI)tICAX1J;;IOCBX} aux 1~ICAX2K;;IOCB aux 2X;HATABS;;handler tableX;C.PUT ;;put binary recC.INSERTb;;insert IOCX}B#C.REMOVEc;;remove IOCB#X;CIOV;;CIO vectorX;NAME F;;device IDX;X;X; INITDEVICE7$>X}( FINDSPACE2 QHATABS9< FSPACEF R>NAMEP FSPACEZ2d2n2xHFINDSPACEX; SPACE Q>NAMEPHATABS9 QX}>4TABLEPHATABS9 Q>5TABLEPHATABS9:X;X;X; TABLE OPEN CLOSE GETBYTE" PUX}TBYTE, GETSTATUS6 SPECIAL@ !INITJX;TX;^X;hOPENr CLOSE|Q> PNUMBERX;INIT%> IOX}ERROR:X;X; GETSTATUSQ> PICSTA9 HINITX;X; SPECIAL QICCOM9&R>C.INSERT0 FINSERT:R>C.RX}EMOVED FREMOVEN%>X:bX;l INSERTv %NUMBER QICAX19 PFIELD8 #NUMBER HINITX; REMOVE %NUMBER FX}ERROR1 QICAX19 SEARCH RFIELD8FIOCBFOUND1  ISEARCH ERROR %>;;not found*:4X;> IOCBFOUNDHQX}FIELD8R PFIELD8\3f )NUMBERpHIOCBFOUNDz "NUMBER IINITX;X; GETBYTE%>:X;X; PUTBYTE X}PBYTE %NUMBER FERROR1 IOCBOP QFIELD8 'HOLDY$ T?. T?8 T?B T?L >V Q>C.PUT` PICCOM9j Q>t PICBLLX}9~ PICBLH9 QBYTE  CIO C GIOERROR %HOLDY 1 IIOCBOP GINIT X; X; X; NUMBER  BYTE  X}HOLDY  X; FIELD( X;2 X;< X;F R %HOLDY 1 IIOCBOP GINIT X; X; X; NUMBER  BYTE  X,h FF!`//7>L5`CBbc`Jڬ Jٸ`\}ε`ሹ BHI V00CBbc`Jڬ Jٸ`\> FDRIVERFDRIVE ;A,6-C:,ZZ6.Ph FF!`//7>`}L5`CBbc`xx67@,.eJڬ Jٸ`̵ε`ሹ `} BHI V00(YM6-?:C:.hhhhhhh`,<<A6X;7 PFR07PFR0X;7 PCNT7;S>PCNT QCNT S> PCNTX;(%>2 'd}FILL<0F0P FLOOPZ7d7n PFILLxX;LOOP QFILL P@FR07#FR0 HCONT #FR0CONT;QCNTS>d}PCNT QCNTS> PCNT ELOOPX;":,X;6X;@X;JFR0 HCONT #FR0CONT;QCNTS>dJ<hhhhh8ХѠhhϥϑ8ХѰ`X;JFR0 HCONT #FR0CONT;QCNTS>hC FIL JJ6-C:=hhhhh8ХѠhhϥϑ8ХѰ`,&&l}&&next=USR(FILL,start,anz [,byte])(&&2 D2:FILL.U*lr EI=EHX;X;X;X;$X;.X;8DIGITS;;usageBIOCB;;usageLFR0;;fr0lVX;`ICCOMB;;Ip}OCB commandjICSTAC;;IOCB statust ICBALD;;IOCB buf adr (LO)~ ICBAHE;;IOCB buf adr (HI) ICBLLH;;IOCB buf p}len (LO) ICBLHI;;IOCB buf len (HI)ICAX1J;;IOCB aux 1ICAX2K;;IOCB aux 2X;PUTBR ;;put binary recorp}dX;CR;;carriage returnLBUF;;line bufferX;FASC;;fp --> asciiIFP;;int --> fpCIOV;;Cp}IO vector X;X;X;( START27<?F$>PX;Z7d PFR0n7xPFR0X;77 PDIGITSX;11 FBEGp}IN77T?T?T?T?>X;" BEGIN, &IOCB6 IFP@ FASCJ $>;;-1T FINDEND^2h QLBUF9r IFINDEND|p}%>COPYNUMBER QLBUF9M>;;to nrm video PLBUF810ICOPYNUMBERX;Q> 0ZERO PLBUF81 IZEROp}X; $IOCB Q>PUTBR& PICCOM90 QDIGITS: PICBLL9DQ>N PICBLH9X PFR0b;l SDIGITSv PICBAL9 Q>5LBUFp} PICBAH9 CIOX;'FR0:X;X;X;BLL9DQ>N PICBLH9X PFR0b;l SDIGITSv PICBAL9 Q>5LBUFp6bhhhhhЈhh آ轀)0ѩ BНHI8НDE V`PICBAL9 Q>5LBUFti FM pp6-C:chhhhhЈhh آ轀)0ѩ BНHI8НDx}E V`,!!!!err=USR(FMT,word,dig[,chn])(!!2 x}D2:FMT.U*`,!!!!err=USR(FMT,word,dig[,chn])(!!2 x  EI=EHX;X;X;X;$X;.X;8GRMODEW;;GR modeBAUX;;usageLSDLSTL0;;DL startVX;`X;j|}X;t START~7X; QSDLSTLPAUXQSDLSTL PAUX%>LOOP Q@AUX7> R>A;;end FDONEM> |}FOKAY R>;;jmp to loc FJUMPR>;;GR.8 ?( HOKAY2A<M>;;GR.8 to GR.7+F P@AUX7PM>@Z FOKAYd3n3xOKA|}Y3 HLOOPX;X;JUMP3 Q@AUX7>3 Q@AUX7&AUX PAUX%> FLOOPX;X;"DONE,Q>6|} PGRMODE@:JX;TX;^X;h3 Q@AUX7>3 Q@AUX7&AUX PAUX%> FLOOPX;X;"DONE,Q>6|!Ah0Э1ѠЪA)) ))@ȱЪȱІЅѠЩW` PAUX%> FLOOPX;X;"DONE,Q>6H GR1 OO6-C:Bh0Э1ѠЪA)) ))@ȱЪȱІЅѠЩW`,}gr15=USR(GR15)(2 D2:GR15.U* ))@ȱЪȱІЅѠЩW`,A EI=EHX;X;X;X;$X;.X;8 FR0BX;LX;VX;` STARTj7t7~PFR07Q> PFR0}:X;X;X;X;X;X;$X;.X;8 FR0BX;LX;VX;` STARTj7t7~PFR07Q> PFR0 hhh`X;X;X;$X;.X;8 FR0BX;LX;VX;` STARTj7t7~PFR07Q> PFR0 m}H 6-C: hhh`,high=USR(HI,word)(2}D2:HI.U*H 6-C: hhh`,high=USR(HI,word)(2 EI=EHX;X;X;X;$X;.X;8 FR0BX;LX;VX;` STARTj7t7~7PFR0Q> PFR0}:X;X;X;X;X;X;$X;.X;8 FR0BX;LX;VX;` STARTj7t7~7PFR0Q> PFR0 hhhԩ`X;X;X;$X;.X;8 FR0BX;LX;VX;` STARTj7t7~7PFR0Q> PFR0 jzL 6-C: hhhԩ`,low=USR(LO,word)(2}D2:LO.U*zL 6-C: hhhԩ`,low=USR(LO,word)(2  EI=EHX;X;X;X;$X;.X;8AUX;;usageBNUMBER;;number searchedLHOLD;;org numberVI}OCB;;fr0l`LENGTH;;fr0hjSLENGTH;;fr0++tINDEX;;fr0+++~X;ICCOMB;;IOCB commandICSTAC;;IOCB s}tatus ICBALD;;IOCB buf adr (LO) ICBAHE;;IOCB buf adr (HI) ICBLLH;;IOCB buf len (LO) ICBLHI;;IOCB buf }len (HI)ICAX1J;;IOCB aux 1ICAX2K;;IOCB aux 2ICAX3L;;IOCB aux 3ICAX4M;;IOCB aux 4ICAX5N;;IO}CB aux 5X;GETBR;;get binary record PUTBR ;;put binary recordPOSITION%;;pointX;(CR;;carriage ret}urn2CIOV;;CIO vector<X;FX;PX;Z STARTd7nX;x77T?T?T?T? PIOCBX;7 PINDEX7 }PINDEXX;7 PAUX7PAUX"X;,767@ PLENGTHJ,TO>^ PSLENGTHhX;r7|7 PNUMBER PHOLD FN}OTHINGX; SEARCH%> $LENGTH COMPARE Q@INDEX7 FSKIP R@AUX7HDIFFERENTSKIP30 HCOMPARE&}X;0 $IOCB:Q>POSITIOND PICCOM9N Q@AUX7XPICAX39;;sector lb3l Q@AUX7vPICAX49;;sector h3 Q@AUX7PICA}X59;;byteX; CIOX;QAUX $AUX INTRO PIOCB &IOCB; QHOLD SNUMBER O> PHOLD  "NUMB}ER*:4X;>X;H DIFFERENTR "NUMBER\HADDf NOTHINGpQ>z> FINTROX;ADD,QAUX OSLENGTHPAUXʠ} QAUXO> PAUX HSEARCHX;X; X; GpQ>z> FINTROX;ADD,QAUX OSLENGTHPAUXʠ:|hhh hhhhhhihh΅Cձ3ԩ%B˝Lȱ˝Mȱ˝N V˦̅Ԇ8i`eօ˥̤}iЩhhh hhhhhhihh΅Cձ3ԩ%B˝Lȱ˝Mȱ˝N V˦̅Ԇ8i`eօ˥̤=NPOSPO ;A%,6-C:,ZZ6.Phhh hhhhhhihh΅Cձ3Ш}ԩ%B˝Lȱ˝Mȱ˝N V@@67@,.-˦̅Ԇ8i`eօ˥iЩ($$}2$$adr=USR(POS,c,aind,afield,l,n)<$$F D2:POS.U*b EI=EHX;X;X;X;$X;.X;8XNUMBER;;# recsBNUMBER;;# recs (cdown)LOFFSET;;rec to re}cVSRCLEN;;# s-bytes/rec`ADR;;rec adrjSTR;;str adrtX;~X;X;7X;7 PADR7PADRX;}7POFFSET7 POFFSETX; 77 PSRCLEN(X;27<7F PXNUMBERP PNUMBERZX;d7n PSTRx7PSTR} QNUMBER FNOTFOUNDX; SEARCH%>LOOP Q@STR7 FWILDCARD R@ADR7 HTRYNEXT WILDCARD3 )SRCLEN} HLOOPX;" "NUMBER,;6 QXNUMBER@ SNUMBERJ PXNUMBERT:^X;h TRYNEXTr,|QADR OOFFSETPADR QADR}OOFFSET PADR "NUMBER HSEARCHX; NOTFOUNDQ>PADR PADR:X;X;X;&R QADRqQhhhhhhhhh΅hh֥*8υ`eЅԥeх֩ԅ`:X;X;X;&R QADRXSEARC __6-C:Rhhhhhhhhh΅hh֥*8υ`eЅԥeх֩ԅ`,}%%%%a=USR(SEARCH,adr,ofs,sln,n,str)(%%2 D2}:SEARCH.U*%%a=USR(SEARCH,adr,ofs,sln,n,str)(%%2 D2  EI=EHX;X;X;X;$X;.X;8START;;usageBAUX;;usageLEXC;;usageVOFFSET;;fr0l`}NUMBER;;fr0hjSORTLEN;;fr0+tPTR;;fr0++~AGAIN;;fr0+++XNUMBER;;fr0++++X;X;X;7X;7θ} PSTART7 PSTARTX;77  POFFSETX;7(72 PSORTLEN<X;F7P7Z PXNUMBERdX;nLOOPx, QSTA}RTPAUX OOFFSETPEXC QSTART PAUXO> PEXCX;Q> PAGAINX; "XNUMBER QXNUMBER }FRETURN PNUMBER"X;,COMPARENEXT6%>@ COMPAREJ Q@AUX7T R@EXC7^ FNEXTBYTEh ISWAPr GTRYNEXT| NEXTBYTE}3 )SORTLEN HCOMPAREX; TRYNEXT,QAUX OOFFSETPAUX QAUXO> PAUXX;,QEXC OO}FFSET&PEXC0 QEXC:O>D PEXCNX;X "NUMBERbHCOMPARENEXTlX;v "AGAIN FLOOP RETURN QXNUMBERP}ԨQ>Pռ:X;X;SWAP%> SWAPLOOP Q@AUX7>  Q@EXC7 P@AUX7 A* P@EXC743> )OFFSETH HSW}APLOOPRX;\Q>f PAGAINp HTRYNEXTzX;X;X;@AUX7>  Q@EXC7 P@AUX7 A* P@EXC743> )OFFSETH HSW;hhhhhhhhh˅eԅҥ̅iө٥5ՠ20eԅХieԅҥiمԩ`ЪґЊ}оhhhhhh˅eԅҥ̅iө٥5ՠ20eԅХieԅҥiمԩ`ЪґЊ   EWSORTSOR ;A1,6-C:,ZZ6.Phhhhhhhhh˅eԅҥ̅iө٥5ՠ}20eԅХiFF67@,.3eԅҥiمԩ`ЪґЊо($$}2$$s=USR(SORT,afield,offs,slen,n)<$$F D2:SORT.U*k  EI=EHX;X;X;X;$X;.X;8 AUXB FR0LX;VX;`X;j STARTt7~X;7 PAUX7}PAUXX;77>X;%>'FR0 'FR0X;  GETBIT Q@AUX7V?(UFR02 UFR0<3F0P HGETBITZ:}dX;nX;xX;>X;%>'FR0 'FR0X;  GETBIT Q@AUX7V?(UFR02 UFR0<3F0P HGETBITZ:hhhhhԄձJ&&`'FR0 'FR0X;  GETBIT Q@AUX7V?(UFR02 UFR0<3F0P HGETBITZ:"STRBI ))6-C:hhhhhԄձJ&&`,word=USR(STRBIT,adr,}len)(2 D2:STRBIT.U*&`,word=USR(STRBIT,adr,=_ EI=EHX;X;X;X;$X;.X;8 FR0BX;LICCOMB;;IOCB commandVICSTAC;;IOCB status` ICB}ALD;;IOCB buf adr (LO)j ICBAHE;;IOCB buf adr (HI)t ICBLLH;;IOCB buf len (LO)~ ICBLHI;;IOCB buf len (HI)}ICAX1J;;IOCB aux 1ICAX2K;;IOCB aux 2X;GETBR;;get binary recordPUTBR ;;put binary recordX;CR};;carriage returnCIOV;;CIO vectorX;X;X; START7 X;77(T?2T?<T?FT?P>ZX;d Q>GETBRn} PICCOM9xQ> PICBLL9 PICBLH9X; CIOPFR0X; CIO PFR0X;:X;X;X;;d Q>GETBRnohhh BHI V V`X; CIOPFR0X; CIO PFR0X;:X;X;X;;d Q>GETBRn& WGE --6-C: hhh BHI V V`,word=USR(WGET,chn)(}2 D2:WGET.U* BHI V V`,word=USR(WGET,chn)(+ EI=EHX;X;X;X;$X;.X;8 FR0BX;LX;VX;` STARTj7tX;~77PFR0X;77 }PFR0X;:X;X;X;X;$X;.X;8 FR0BX;LX;VX;` STARTj7tX;~77PFR0X;77 $ hhhhh`:X;X;X;X;$X;.X;8 FR0BX;LX;VX;` STARTj7tX;~77PFR0X;77  WOR 6-C: hhhhh`,word=USR(WORD,low,high)(}2 D2:WORD.U* hhhhh`,word=USR(WORD,low,high)($w EI=EHX;X;X;X;$X;.X;8 FR0BX;LICCOMB;;IOCB commandVICSTAC;;IOCB status` ICB}ALD;;IOCB buf adr (LO)j ICBAHE;;IOCB buf adr (HI)t ICBLLH;;IOCB buf len (LO)~ ICBLHI;;IOCB buf len (HI)}ICAX1J;;IOCB aux 1ICAX2K;;IOCB aux 2X;GETBR;;get binary recordPUTBR ;;put binary recordX;CR};;carriage returnCIOV;;CIO vectorX;X;X; START7 X;77(T?2T?<T?FT?P>ZX;d Q>PUTBRn} PICCOM9xQ> PICBLL9 PICBLH9X;7 PFR0X;7PFR0 CIOX; QFR0 CIOX;:X;X};"X;,Q> PICBLL9 PICBLH9X;7 PFR0X;7PFR0 CIOX; QFR0 CIOX;:X;X #hhh BHIhh V V`;7 PFR0X;7PFR0 CIOX; QFR0 CIOX;:X;X* WPU 116-C:$hhh BHIhh V V`,word=USR(WPUT,c}hn,word)(2 D2:WPUT.U*h V V`,word=USR(WPUT,c> EI=EHX;X;X;X;$X;.X;8HATABSBX;LX;VX;` STARTj7tX;~$> SEARCH QHATABS}9 FFOUNDR> Z FFOUND222 HSEARCHX; FOUNDQ> Z PHATABS9  Q>4TABLEPHATABS9 Q>5TABLE(}PHATABS92:<X;FX;P TABLEZ OPENd CLOSEn GETx PUT STATUS SPECIAL !INITX};X;INITOPEN CLOSEPUT STATUS%> SPECIAL:X;X;GET"%>,:6X;@X;JX;TINITXu5h ZZ!`//2//1L0``PECIAL:X;X;GET"%>,:6X;@X;JX;TINITX<ZDRIVE CC6-C:6h ZZ!`//2//1L0``,\P6-?:C:.hhhhhh}h`,<<A6<@T,\6-A6(x=USR(ZDRIVER)2<} D2:ZDRIVER.U*`,<<A6<@T,\6-A6(x=USR(ZDRIVER)2<FD2:DIRFILE.USR2&&err=USR(DIRFILE,dev,buf [15Byt])<&&H.2 D2:COPY.U*%%err=USR(COPY,src,des,start,len)(%%0*2$$err=USR(COPYX,s,d,buf,len,anz)<$$F D2:COPYX.U<b.DOS SYSb2BGET M65b8BGET OBJb9BGET USRb;BIT M65b=BIT OBJb>BIT USRb@BITSTR M65bEBITSTR OBJbFBITSTR USRb HCOPY M65bQCOPY OBJbRCOPY USRb TCOPYX M65b^COPYX OBJb`COPYX USRb cDIRFILE M65bnDIRFILE OBJbpDIRFILE USRbsDISK M65byDISK OBJbzDISK USRb}FDRIVER M65bFDRIVER OBJbFDRIVER USRbFILL M65bFILL OBJbFILL USRb FMT M65bFMT OBJbFMT USRbGR15 M65bGR15 OBJbGR15 USRbHI M65bHI OBJbHI USRbLO M65bLO OBJbLO USRb POS M65bPOS OBJbPOS USRbSEARCH M65bSEARCH OBJbSEARCH USRb SORT M65bSORT OBJbSORT USRbSTRBIT M65bSTRBIT OBJbSTRBIT USRbWGET M65bWGET OBJbWGET USRbWORD M65bWORD OBJbWORD USRbWPUT M65bWPUT OBJbWPUT USRbZDRIVER M65bZDRIVER OBJbZDRIVER USR