SVERSION VERSION&.SYSLIB 3.6 by Richard Conn "SSDMASETDMA "SLUCLOSELUCLOSE!6# "SLUDIRLUDIR: 2"`i" !N#F!R$READ ́P ( # x *6!~ 3#[ ?( #*: 8S  "SLUINITVLUINIT!6# !INITFCBF$OPEN $F$READ, #: !  w#w>>> "SLUOPENLUOPEN" !N#F!R$READ ́U(# x "  *# !~ #[ ?( #  "SLUREAD/LUREAD!!N#Fy( p+q+F+Nq#pR$READ  "SDIRDIRF2SELFLGDBUFFERDIRLOAD:DIRSELDIRPACKDIRALPHA "SDIR00DIRFS2SELFLGDBUFFERDIRSLOAD:DIRSELDIRPACKDIRALPHA "SDIR013DBUFFER"ORDERDPARAMS*DIRMAX*́́"DIRBUF ѯ=*zҁ- "SDIR02[DPARAMS  |ʁ5##~2BLKSHF#~2BLKMSK##^#V#"BLKMAX#^#V#"DIRMAXÁV *.;^#"#~2#~2#^#" "SDIR03>DFREE *BLKMAXځW+}ʁ)zÁi`:BLKSHFʁ9)=4 "SDIR04DFSIZE ^###~))))~ʁ&= !BLKMSK o&: /o "SDIR05DIRLOADDIRSLOAD>2>?2"DIRBUF"!"Á%́>ʁ:=*DMɯÁ2`o&~ʁ́ʁ*#"*SDMOVE"*| ɯ=կ2Á*|ʁDM* ́  ҁ:͏Á:  x=~O##??????????? "SDIR06DIRALPHA2x"DIRBUF`i"*ORDERs#r#! x*"*|g}oʁ""*#"*}|ځ.*"**}o|g"ځB|ʁB*"́3ځB**́ÁZ*DM*"*"**ʁ yPRINT DIRALPHA Error* ~#~*SDMOVE*^#V*͏"*^#V!͏*##" y*DM+) +) Nq#Nq*DM+) +) N#F^#V`i:ʁ  ́ #́ # ́~O# "SDIR07\DIRSEL2SELFLGxʁB #́G;  ́G;SDFCHK;~w Á ~?ʁU O#G "SDIR083DIRNPACKxʁ, ~/W~wʁ%SDFCHKʁ%~wÁDIRPACK "SDIR09MDIRPACK!"K"DIRBUFxʁB ~ʁ;~w*K#"K*SDMOVE"Á Á*KDM "SDIR10BSDFCHK SDMOVE~#  ~:SELFLGʁ"@'Á>ʁ>: <:G~>> "SDIRBF BLKMAXBLKMSKBLKSHFDIRBUF DIRMAXORDERSELFLG "SDIRQDIRQ2"$ "́!́t́"́O**́<́<" =*zҁJ##~2#~2##^#V#"#^#V#"* 6# w#}w#!"Á́ʁ*=*DMɯÁ `o&́ʁ*́w" *| *#" = ~:ʁ @x"`i"*s#r#! x*"*|g}oʁ""*#"*}|ځ,*"**}o|g"ځ@|ʁ@*"́%ځ@**́ ÁX*DM*"*"**ʁ y * ~#~**́w*^#V*́w"*^#V*́w*##" y*DM+) +) Nq#Nq*DM+) +) N#F^#V`i: ʁ[  ́gÁ] #́g~O#g~#wɡ "SDIRQSDIRQS2"$ "́!́t́K"́O**́<́<" =*zҁJ##~2#~2##^#V#"#^#V#""* 6# w# 6?#w#!"Á́ʁ*=*DMɯÁ `o&́ʁ́ ʁ*́" *| *#" = ~:ʁ @*|ʁGDM*# ́:ځ6́ x =x"`i"*s#r#! x_*"*|g}oʁ""*#"*}|ځv*"**}o|g"ځ|ʁ*"́oځ**́TÁ*DM*"*"**ʁ  y * ~#~**́*^#V*́"*^#V*́*##" y*DM+) +) Nq#Nq*DM+) +) N#F^#V`i: ʁ  ́Á #́~O#~#ɡ "SSORTASORTgSSBINIT"KM MOVEB"U*O}o|gځD*U}o|gځD"M*K!M ͏*M>*UɡgM ͏*O"YDMxyځ:Wʁ*M*Uxʁ s#r#*QÁ*Y"[*[|g}oʁ"["a*a#"a*Y}|ځ*a"]*[*]}o|g"]ځ|ʁ*["_́ځ*]*_́Á:Wʁ*O"]*U"c*M"e*]DM*c*e>ʁ` y3PRINT SORT Pointer Error*c~#~*QDM*e*c~#foNq# x{*Q*e"e*c##"c*]+"]|':W́*QDMNwy# x́"́*ɡ*QDM!zʁ Á*M*UDM+) +) Nq#Nq:W#́Á;*UDM+) +) N#F^#V`i*S "SRAND2RNDRNDINITRNDSEEDCONDINʁx2́2Á !~#4.4+w "SFNAMEFNAME>22$կ ~#:ʁ),ʁ!ځÁ~CAPSAځBAځ=<2#~:ʁ?Z2#~:ʁÁ:G~#:ʁx0ځ: ҁ:OxGÁ\x ҁ:2Á~:#~,ʁ!ҁ >?:G:O>́~.#́Á́Á́ʁ*>?Á#́#Á> ɡ~͏!ځ=_.:;,<>ɾ "SSAFDC9SAFDCd́ ́0SOUTځ" Á_y/ʁ/{y0͏{ "SSHLFDCMSHLFDC '́)́)d́) ́)}0SOUT }o|gځ8 Á+}o|gyEy0Ï "SSHL4HC SHL4HC|SA2HC}͏ "SSHL5DC]SHL5DCSHLDC Á '́2́2d́2 ́2}0SOUT }o|gځA Á4}o|gyUʁU> Ïy0Ï "SSADCFSA3DCSADCÁ d́  ́ 0SOUTځ* Á"_y<ʁ<> ͏{y0͏{ "SSA2HC SA2HĆ́ ځ7SOUT0Ï "SMAFDC;MAFDCd́ ́0́8ځ$ Á_y.{y0́8{w# "SMHLFDCaMHLFDC"_'́3́3d́3 ́3}0́T*_ }o|gځB Á5}o|gyOy0*_w#"_ "SMHL5DCMHL5DCMHLDC"G2FÁ"G>2F'́ÍId́I ́I}0́v*GɡI}o|gځX ÁK}o|gyo:Fʁo> Áv2Fy0*Gw#"G "SMHL4HC MHL4HC|MA2HC}͏ "SMADCVMA3DCMADC 2'Á>2'd́( ́(0́Sɡ(ځ2 Á*yG:'ʁG> ́Sɯ2'y0́Sw# "SMA2HC!MA2HCEŃ́ ځ7Á0w# "SINSTR+INSTRʁG~ʁ##Á#Á > "SCOMP!COMPBCOMPBC H́ # x ʁ? "SSCANNER)SCANNERxځ##  #> "SALLOCLALLOC)IALLOCG CODEND"Hx! *|g.+"J*H*JCOMPHDځE*H"H>ɯ "SCOMPHDCOMPHD|} "SEVALEVAL2~CAPS0ځ$ ځҁ$>2#Á~͏O+~͏G:ʁyHʁdXʁdOʁzQʁzxBʁEVAL10~͏D#ÁEVAL16~͏#HʁXʁ{7EVAL8~͏#OʁQʁÁvEVAL2~͏#Bv{ "SEVAL1)EVAL10~0ځ&0 ҁ&bk)))_zW#Á{ "SEVAL2AEVAL16~CAPS0ځ>Gҁ>:ځAځ>0 ځ% !, T]_z#Á{ "SEVAL3+EVAL8~0ځ(ҁ( ! T]_z#Á{ "SEVAL4$EVAL2~0ځ!ҁ!!T]_z#Á{ "SCONDINCONDINCSTCINOy "SFYIOFY$GET$FY$PUTFY$UNGETFYI$CLOSEFYI$OPENFYO$CLOSEFYO$OPEN:*: G* . Á3>2*":g.SHFTRH" |ʁW*SHFTLH:G*xʁ * ʁh*"2:g.͏" ́!22*INITFCBF$OPEN́́X́!2́*͏F$MOPENÁ́!:2>2́X:2#:#ɡ$́!:ʁD2́X>: ##^#V+zʁi s#r#^#V2} r+s:}́!́*~2}#"*+"́X:}2} ##^#V+zʁs#r#^#V:} r+s:}́!́Z*:}w#"*+"Á́!*F$CLOSEÁ́!*}ʁ+"*6#"Á́Z*͏Á"~~2#~2#^#V"#^#V"#~2#~2#^#V"#"*~#:w*#s#r*#s#r#:w#:w "SFXIO"FX$GETFX$PUT?FXI$CLOSEFXI$OPENFXO$CLOSEFXO$OPEN:*: G*  . Á3>2*":g.SHFTRH" |ʁW*SHFTLH:G*xʁ *  ʁh*"2:g.͏" ́2* INITFCBF$OPEN́́́́* ͏F$MOPENÁ ##^#V+zʁ s#r#^#V2 r+s:́́*~2#"*+"́:2 ##^#V+zʁjs#r#^#V: r+s:́́Z*:w#"*+"Á3́* F$CLOSEÁ́*}ʁ+"*6#"Á́Z* ͏Á"~2#~2#^#V"#^#V"#^#V"#" *#:w*#s#r*#s#r "S0FILEIOzF0$GETF0$PUTFI0$CLOSEFI0$OPENFO0$CLOSE#FO0$OPEN!*FI$OPEN!FO$OPEN!*F$GET!F$PUT!*FI$CLOSE!FO$CLOSE "S1FILEIOzF1$GETF1$PUTFI1$CLOSEFI1$OPENFO1$CLOSE#FO1$OPEN!*FI$OPEN!FO$OPEN!*F$GET!F$PUT!*FI$CLOSE!FO$CLOSE "S2FILEIOzF2$GETF2$PUTFI2$CLOSEFI2$OPENFO2$CLOSE#FO2$OPEN!*FI$OPEN!FO$OPEN!*F$GET!F$PUT!*FI$CLOSE!FO$CLOSE "S3FILEIOzF3$GETF3$PUTFI3$CLOSEFI3$OPENFO3$CLOSE#FO3$OPEN!*FI$OPEN!FO$OPEN!*F$GET!F$PUT!*FI$CLOSE!FO$CLOSE "SFILEIOF$GETF$PUTFI$CLOSEKFI$OPENsFO$CLOSEXFO$OPEN>Á >Á >Á >Á >Á >Á >* !(*####* !(*####~"####$HMOVBINITFCBF$OPEN ́%*6#6#!&s#rÁ ~"####$͏͏F$MOPENʁÁ~ʁ"##^#Vzʁ2r+s+5 6#!&s#ŕ%ʁ* ##6#6:2~ʁ"##^#V:r+s+5 6#!&s#ŕLʁÁ~ʁ "Á{~ʁ "#~ʁ{>́~ʁ{́Án*6####ʁÁ *Á "SFSIZEcF$SIZE!? MOVEB?INITFCB#BDOS*`́8SHFTRH́8͏́8͏zʁ4 #}ɡ_ "SGFA_GFA  ?ʁʁXINITFCBʁXO! ~#8~O#~怱O#~y> "SSFANSFA O ?ʁʁ<! ýC#ýCINITFCBʁ<>~G怰w "SSCFAOSCFAO ?ʁʁ=! ýD#ýDINITFCBʁ=>~G怰w "SFAPPEND^F$APPENDF$APPŁCÁCINITFCB́XʁG#́X!#~L+F+NxʁQ q#p!́X>ÁS>ÁS > "SINITFCBINITFCB w FILLB "SGRRQGETFS&GETRR$!-$w# !!^#V#~ѷ#Á "SGRR1GETFS1GETRR1$!!^#V#~ѷ#Á "SFOPEN2F$MOPENF$OPENBDOS>Á ͏͏Á "SFEXIST F$EXISTBDOS< "SFMAKEF$MAKEF$DELETEBDOS "SFCLOSEF$CLOSEBDOSʁ  "SFRENAME_F$RENAMEÁ''!$FILLB# MOVEB# ͏BDOSʁ]>ɯ "SFREAD F$READBDOS "SFWRITE F$WRITEBDOS "SFDELETE F$DELETEBDOS "SINLINE3INLINE2"*CINʁʁʁ ʁS ʁ ʁʁ}ʁʁ[ʁMw#́ ÁCRLFÁw#́Á6*́~ʁ́~ ʁyʁy #ÁéÁ yʁ ́Á6 #6 #:ďÁ́ʁ+~́ʁ Á́Á́ +:>COUT> ͏>͏6:ď* z{>͏G:x ځÏ ʁCCOUT>#͏Ï yG>GO:> ͏+ "SBBLINE BBLINEÁ2 ! ~#o|g6:ʁ!~ʁCAPSw#Á!: "SBLINE=BLINE2<": *: #~#o|g6:<ʁ4~ʁ3CAPSw#Á& +~# "SSPRINTSPRINTSPSTR "SSPSTRXSPSTR~#ʁT ʁ> CSOUT ʁ+ ʁ0ʁ0ʁ4ÁÁ Áyʁ Á yG>GO> SOUTJÁ "SLPRINTLPRINTLPSTR "SLPSTRXLPSTR~#ʁT ʁ> CLOUT ʁ+ ʁ0ʁ0ʁ4ÁÁ Áyʁ Á yG>GO> LOUTJÁ "SLAFDC9LAFDCd́ ́0LOUTځ" Á_y/ʁ/{y0͏{ "SLHLFDCMLHLFDC '́)́)d́) ́)}0LOUT }o|gځ8 Á+}o|gyEy0Ï "SLHL4HC LHL4HC|LA2HC}͏ "SLHL5DC]LHL5DCLHLDC Á '́2́2d́2 ́2}0LOUT }o|gځA Á4}o|gyUʁU> Ïy0Ï "SLADCFLA3DCLADCÁ d́  ́ 0LOUTځ* Á"_y<ʁ<> ͏{y0͏{ "SLA2HC LA2HĆ́ ځ7LOUT0Ï "SSCRLFSCRLF:SCTLFLLCRLFCRLF "SLCRLF LCRLF> LOUT> ͏ "SPRINTPRINTPSTR "SPSTRXPSTR~#ʁT ʁ> CCOUT ʁ+ ʁ0ʁ0ʁ4ÁÁ Áyʁ Á yG>GO> COUTJÁ "SEPRINTEPRINTEPSTR "SEPSTRXEPSTR~#ʁT ʁ> COUT ʁ+ ʁ0ʁ0ʁ4ÁÁ Áyʁ Á yG>GO> ͏JÁ "SPAFDC9PAFDCd́ ́0COUTځ" Á_y/ʁ/{y0͏{ "SPHLFDCMPHLFDC '́)́)d́) ́)}0COUT }o|gځ8 Á+}o|gyEy0Ï "SPHL4HC PHL4HC|PA2HC}͏ "SPHL5DC]PHL5DCPHLDC Á '́2́2d́2 ́2}0COUT }o|gځA Á4}o|gyUʁU> Ïy0Ï "SPADCFPA3DCPADCÁ d́  ́ 0COUTځ* Á"_y<ʁ<> ͏{y0͏{ "SPA2HC PA2HĆ́ ځ7COUT0Ï "SPFN1"PFN1́>.COUT́͏ "SPFN2$PFN2́>.COUT́  ď "SPFN39PFN3 ́>.COUT́yā/  ā+ Ï> ͏ / "SLFN1"LFN1́>.LOUT́͏ "SLFN2$LFN2́>.LOUT́  ď "SLFN39LFN3 ́>.LOUT́yā/  ā+ Ï> ͏ / "SMFN1!MFN1́6.#́ w# "SMFN2&MFN2́6.#́  ʁ w# "SMFN37MFN3 ́6.#́yā/  ā+ w# 6 # / "SSFN1"SFN1́>.SOUT́͏ "SSFN2$SFN2́>.SOUT́  ď "SSFN39SFN3 ́>.SOUT́yā/  ā+ Ï> ͏ / "SCRLF CRLF> COUT> ͏ "SSCOUTCSOUTO:SCTLFLGyCLOUTxyCCOUT "SSOUTSOUTO:SCTLFLGyLOUTxyCOUT "SSCTLFLSCTLFL "SCCOUT-CCOUT COUTʏʏʏ ʏ ʏ>^͏@͏ "SCLOUT-CLOUT LOUTʏʏʏ ʏ ʏ>^͏@͏ "SCPOUT-CPOUT POUTʏʏʏ ʏ ʏ>^͏@͏ "SCSTCST*. / "SCAPIN CAPINCAPINÉCOUTCINCAPS "SCINCIN*.   "SCOUTCOUT O*.  "SLOUTLOUT O*. "SPOUTPOUT O*. "SRINRIN*.  "SUD16GETUDPUTUD 24 25Á/:4_:5 _  "SUD2LOGUDY X "SUD3RETUD OG "SBDOSBDOS "SCAPSTRCAPSTR~ʁCAPSw#Á "SENEN "SBIOSBIOS" *+++ʁ=Á * "SFILL3FILLBFILLBC HFILBHFILBCH́ Ẃ* H́Ẃ* r# x* "SMOVESHMOVBHMOVBC MOVEBMOVEBC ́ H ́ H́ |ځ@1}ځ@~# x1 ~+ xFÁ; "SCATHCATH0ځ  ځҁ> "SCRC@CRCCLRCRCDONE3CRCUPD !" ɡ O* yO}o|gҁ( |g}!o" ́ ́ *  "SCRC1@CRC1CLRCRC1DONE3CRC1UPD !" ɡ O* yO}o|gҁ( |g}o" ́ ́ *  "SCRC21CRC2CLRCRC2DONE-CRC2UPD !" ɡ G* |)xoʁ&|g}o" * "SPAUSE$PAUSEHAz +| "SMTH01ADDHD{ozgҁ 7 "SMTH02SUBHD}o|gҁ 7 "SMTH03ROTLH }o|g}o "SMTH04 ROTRH }|g}o "SMTH05SHFTLH}o|gҁ7 "SMTH06SHFTRH|g}oҁ7 "SMTH07 ANDHD}o|g "SMTH08 ORHD}o|g "SMTH09 XORHD}o|g "SMTH10CMPHNEGH́ #}/o|/g "SMTH11gMULHDկ2f!"d́Hҁ-*d}o|g"dҁ,>2f́V*d:fʁE7|g}oҁEÁB}o|gҁEÁB "SMTH12`DIVHD!"]|ځB}ځB́H*]́Y"]}o|gځ:"]}oÁ;!Á?}o|gҁV7ÁJ "SCLINE!CLINE!F#xʁ~#  y!! "SSKPUN SKNPUNSKPUN~#ʁ ISPUNʁ+~#ʁ ͏Á "SSKSP SKNSPSKSP~#ʁ ISSPʁ+~#ʁ ͏Á "SISALNUMISALNUMOISDIGITʁISALPHA y>y "SISALPHAISALPHAOCAPSAځ[ҁ y>y "SISHEXISHEXOISDIGITʁCAPSAځGҁ y>y "SISPUN6ISPUNO!ځ00ځ,:ځ0Aځ,[ځ0aځ,{ځ0ʁ0 y>y "SISPRINTISPRINTO ځʁ y>y "SISGRAPHISGRAPHO!ځʁ y>y "SISDIGITISDIGITO0ځ:ҁ y>y "SISCTRLISCTRLO ځ y>y "SISSP!ISSPO !ʁ# y   "SCAPS CAPS a{_ "SBIN BIN  "SBIST BIST   "SBOUTBOUT_ "SGUAGUA   "SSUASUA_  "SRREADR$READ! s#r#6! "SRWRITER$WRITE! s#r#6" "SACAS1&ACASE1F#"$##ʁ### *$Á#~#fo "SACAS2(ACASE2bkF#"&##ʁ### *&Á#~#fo "SACAS3(ACASE3bkF#"&##ʁ### *&Á#~#fo "SAGO1AGOTO1_)~#fo "SAGO2AGOTO2&o!) "SAIF1AIF1ոځʁÁ ~#fo "SAIF2AIF2ոځʁÁ "SBGO1BGOTO1ځ ʁ x<_)~#fo "SBGO2BGOTO2ځ ʁ x<&o!) "SHCAS1GHCASE1"C^#V#"E##́2ʁ%####z*EÁ' ##~#fo*C*C@ "SHCAS2HHCASE2"D^#V#"F##́3ʁ&####z*FÁ( ##~#fo*D*DA "SHCAS3GHCASE3"C^#V#"E##́2ʁ%####z*EÁ' ##~#fo*C*C@ "SHGO1HGOTO1"* )~#fo "SHGO2HGOTO2"* T]) "SHIF1<HIF1":"8|ځ& }ځ& Á)Á)*:~#fo*8 "SHIF28HIF2"6"4|ځ& }ځ& Á)Á)*6*4 "SDGO11DGOTO1"-zځ{ҁ#"/*/ )~#fo*- "SDGO21DGOTO2"-zځ{ҁ#"/*/ T])*- "SARGVaARGV OF##́Cʁ8s#r#ʁ,́Sʁ8yʁ'x ́ŚCʁ8~#w ʁC ʁC  ÁS "SCODEND$MEMRYCODEND*}ʁ $. "APS CAPS a