IMD 1.17: 29/05/2011 12:32:39 turbodos 1.4 generation disk >o:~W!{> " OC > S>O31! >2|N#Fx2CN#FC$#^#V^#VS#~2#~2<2###~2#^#VSN#FCC*KB0KC:( [0!' #"* (,*#"+))[R%! !!Cy͏qput+[[R8 uty7?R#|(/ sr +utwwNFqpnf^:(#~W#:G)[7?K R0!!=NFx(ENF C$7?KnfB8C[0MD!'  |:o!=!NFnfB#>,(0W}_nfRut=RDM!C7*![3*:G*!w0͘!4͘ !͙>O3F#Nů  SYS: Which .SYS file to load 0 = CPM 1 = OSLOAD ? SelectReadFile not found error: file C3>L~~ÃG3x(OxAG:>G~ > 2<:4O y~ 8 q *@~(͙8ͺ{ͣ:72:>2>2?7O> 2<> :?G /_~(!& *1::{  _ O(  :<= L{((glrZwZ:4hZ::hZ:>hZZ>2< ~ ( w:728F8 <2:y2>:7W:0*3K5B(7:8Gz?"B*3"5:7G28xG![120G!> z:(8 DZP>w(>>w~Can't recognize density of disk in$Read$Write$Seek$ error on track $ sector $ side $ drive $ $~Can't recognize density of disk in$Read$Write$Seek$ error on2,...,VALN ) x;2 Where Y (Y e;G ) ;\Top of memor ;q}P9x K*(wX7&>: !}C :!\}C~ (~ ( Copyright 1984, Software 2000, Inc. h8~~o8h8  *#D.$*rCR~/w/w(+"rC*rC| f*rC|?</ 0y:r!vC6*rC&R"yC=:vC !=[yC'!3:vC ́~/w/(((( t(~(T(Nt(͙/O =#˯~0.~k͞|< ͨY^( >wAwB~k?O?^CVDy<( ~k?(#sCrDnEfF!uEtF~O*+ )"+Yy= (>>+~#TO ?' +  )###4ͬ !+++ ͬ/OG(6"͠~8=)))0Ͷ(r+s!++~#T2+!+w#r#sZѯ+ !+RDM!x(6ͷ"u't())s$:COPYRIGHT 1984, SOFTWARE 2000, INC. (VERSION 03/21/84) 1D _76;# &\͹/ͧ8ͳ:}C=t*yC { -( ]2]swC :}C N:tC(>_*( Kw0D {wC:}C 4O:tCy(=<8 ` K*(wX7&>: !}C :!\}C~ (~ ( Copyright 1984, Software 2000, Inc. h8~~o8h8  *#D.$*rCR~/w/w(+"rC*rC| f*rC|?</ 0y:r!vC6*rC&R"yC=:vC !=[yC'!3:vC ́~/w/wdd#| R  ͎ͳ!vC68fo8`g"yC8Wo8Qg"{C͟*yCͳͱ*yC[{Cͳ͹*{Cͳ8+*rC|(R8 [{C*yC8w #z BB78~!!D5 6C}C7!!D[!DRɯ!Cw#<2!D}C<}C:}C=WA!~Cn~#!'͜͜d͜ ͜ R0y 0|ͺ} 80~#_OSMASTERSYS!G"#DbFE;7.F'.[#D"#DFatal error loading O/S: to retry not founTestingK of memorno errorBad Memory @ loading from to, size, unexpected end-of-fil, not enough memor, bad memorZZ!9u5t6o8>Cs6ð~.ZfZ ~.ZfZ"DR8K8n/f0*Dͳ"Du/t0u1t2Y8t.Zu Z*Dn5f6Zf 6.63n9f:|(o8n3f4^1V2N/F0~.Zf}Dq/p0s1r2u3t4Zf(!Y86.o8~/Zf !,!0!:08h!  o84o8O ^#V|45555o85o8o86664,,hH"$o8,,o8o8o8,Ge 1!o8o8o8,,o844o8.5"656o8@5o86o8o8o8o8-!-o8o83"L5o-+-l!o8o8o8o!!!2/0H0o8Z0o8o8o8o8o8o8o8o8o8o8o8o8o8k5N"o8B, d8o8ͬ#(o8X(5o8ͬ# 'K8 ~(o8o8 -~< %"~wo8>Zn~@-)o8 ̀o8d8o8|$-vN++~˾o8o8~@i(6@w@K8.%[-u1t2 .ͬ,.F&/d8v&ͅ%7K8~? wl)=B,)$=8K8#~@ w#ɷd8*& .͑,.}w3}oͬ,=8ͧ&-Z~"8`o8d8)>o8'*͚" 1ͧ&͚+ "ZVo8 6&8ͧ&,3,Y)ͼ" Oy (0'*o8=8F\~3 =8D8D8 Ao8->84 "|$ ,o8I  ͬ#> o8-6& -4d8=8F\E~3 =8D8D8d8o8->8m "|$ eo8I  Mͬ#:# ;o8o8 Co8' :-4o8|$ -o8I  ͬ#:# o8-6w3-6d8)o8o8-4~ >w##4<"(7-#˾B,o8 (ͬ# o8 )K8 #˾:# o8o8>d8"("( ~"8Ao8d8o8͚"ͧ&͚+o8- #͑,~x" ~w(x=(#?(M& [&# 4(#NxFz͢"pz~x?(`,/wxͬ,ͼ"( ~x?Vo8K8 ~"8o8d8)>o8͚"<o8K8#ͧ&# ˾x880#[N( -"w&ͼ" o8%=8͒-F\i~3 X ͡-D88( ͬ#> Yo8&d8%=8͒-F\ͩ~3 X ͡-D8d8(ͬ#:#> o8o8d8o8'o8w3-~iw-~hw-~gw)o87I -~wi#~+w#~#~G~#O>>~Ox ##y|$>7o8-p##q=-~wg-~wh=8D8ì-"d8))(swgwhwi~@͚" ͧ&!ͼ" w3("Zn(:~@(46@͚" +ͧ& ~ -nˮo8(!o8-(w@fi^hVgX=(n&ͳ,-G)MDa~g8++~h8###~i8~wg++~wh###~wi-~^##Vg{怄O>G{GzGz_>-#q#p#wo8)'*8u)+~8# ͤ+ s1r2ͳ,Y8~w/~`8)nfY8~w1~w2~w/~w0~`8~1͛438[D42()~1o8ѷ`852 }/o|/g"D{ozg"D{Oz(>g~1w6o8<2oY8)ͅ+8w+6'*8+T*`8)+͝&~("#`8͑,#`8(#ͬ,+8)ͅ+-ˮo8 o8o87͢"%$6x6z"(D+<6x?~x?(O`,ͧ& 1#6&͑,*&%F&ͬ,/*&$F&1#&- ç&ͅ+K8͚+)>o8͑,#| 5$ J-ͧ&~@n(K8# ~##-~X,8w###6&V$~o8)(*o8$  V$o8O-`,/G-n&)))))}o-D()= -˾##6#6#y=(n&ͳ,+R8 s#̓,(r#ݯ->###> wͧ&K8## #˿##-~o8)(BK8͚+ @$% 7ͅ+82ͧ&͚+ ( K8 -X,8###w&-˾o8$-n6l-~@K8#M&+ͬ,Nl6l1&ͅ%ql͘,X&1&v&(c+)8:!"D-! b&+b&#O`,/ݦx_{(*D|g}oR0+ͬ,1&*&z&F&+8 v&&+ͬ,-͝&~(9x(((( #&(~(Q(K#&(`,/O :#˯~0+~lM& ͑,[&Y^( >wAwB~l?Å%O?^CVDD+,( ~l?( OSLOAD SYSg OSMASTERSYS OSMASTERSYSMOSMASTR5SYSOSMASTR5SYSX !"#$OSSLAVE SYS~%&'()*+,OSSLAVEASYS-./01234OSSLAVEASYS5OSSLAVEBSYS6789:;<=OSSLAVEBSYS >OSSLAVECSYS?@ABCDEFOSSLAVECSYS GOSSLAVEDSYSHIJKLMNOOSSLAVEDSYS PDIR CMQRCHANGE CMSOSLOAD COMgTUVWXYZCOPY CM$[\]DBASE COM^_`abcdeDBASE COMfDBASEMSGCOM>ghijDPROG CMDkDSACCT CMDRlmnopqDELETE MrDSAPLG CMDstDSARLG CMDuvDSBALS CMD(wxyDSBUDV CMD2z{|}DSCAP CMD~DSCAY CMDDSCJP CMDDSDATR CMDDSDISP CMDDSFILE CMD=DSGENL CMDDSINCS CMD(DSJREG CMD DSLIST CMDDSMENU CMDDSMNDX CMD!DSPROG CMD*DSREPT CMDDSSEAR CMDDSUTIL CMD(DSADDC FMT DSADDF FMT DSADDS FMT DSKEYF FMT DSLIST FMTDSMNDX FMT DSPASS FMTDSPGMC FMTDSPGMS FMT DSREPT FMTDBASEAPPOVRDBASEBROOVR DBASEJOIOVRDBASEMAIOVR7DBASEMODOVRDBASEMSCOVRDBASERPGOVRDBASESRTOVR DBASETTLOVRDBASEUPDOVRDSFILE1 NDXDSLIST1 NDXDSPASS1 NDXDSPROG1 NDXDSPROG2 NDXDSREPT1 NDXDSFILE DBF DSLIST DBFDSPASS DBFDSPROG DBF$DSREPT DBFDPROG MEMF5 COMFDSKDR RELFDST RELMODCON RELMODEMCONDOCPDRIVE COMSCOMDR RELTERMDR RELMASTER M:COPYRIGHT 1984, SOFTWARE 2000, INC. (VERSION 03/21/84) 1D _76;# &\͹/ͧ8ͳ:}C=t*yC { -( ]2]swC :}C N:tC(>_*( Kw0D {wC:}C 4O:tCy(=<8 ` K*(wX7&>: !}C :!\}C~ (~ ( Copyright 1984, Software 2000, Inc. h8~~o8h8  *#D.$*rCR~/w/w(+"rC*rC| f*rC|?</ 0y:r!vC6*rC&R"yC=:vC !=[yC'!3:vC ́~/w/wdd#| R  ͎ͳ!vC68fo8`g"yC8Wo8Qg"{C͟*yCͳͱ*yC[{Cͳ͹*{Cͳ8+*rC|(R8 [{C*yC8w #z BB78~!!D5 6C}C7!!D[!DRɯ!Cw#<2!D}C<}C:}C=WA!~Cn~#!'͜͜d͜ ͜ R0y 0|ͺ} 80~#_OSMASTERSYS!G"#DbFE;7.F'.[#D"#DFatal error loading O/S: to retry not founTestingK of memorno errorBad Memory @ loading from to, size, unexpected end-of-fil, not enough memor, bad memorZZ!9u5t6o8>Cs6ð~.ZfZ ~.ZfZ"DR8K8n/f0*Dͳ"Du/t0u1t2Y8t.Zu Z*Dn5f6Zf 6.63n9f:|(o8n3f4^1V2N/F0~.Zf}Dq/p0s1r2u3t4Zf(!Y86.o8~/Zf !,!0!:08h!  o84o8O ^#V|45555o85o8o86664,,hH"$o8,,o8o8o8,Ge 1!o8o8o8,,o844o8.5"656o8@5o86o8o8o8o8-!-o8o83"L5o-+-l!o8o8o8o!!!2/0H0o8Z0o8o8o8o8o8o8o8o8o8o8o8o8o8k5N"o8B, d8o8ͬ#(o8X(5o8ͬ# 'K8 ~(o8o8 -~< %"~wo8>Zn~@-)o8 ̀o8d8o8|$-vN++~˾o8o8~@i(6@w@K8.%[-u1t2 .ͬ,.F&/d8v&ͅ%7K8~? wl)=B,)$=8K8#~@ w#ɷd8*& .͑,.}w3}oͬ,=8ͧ&-Z~"8`o8d8)>o8'*͚" 1ͧ&͚+ "ZVo8 6&8ͧ&,3,Y)ͼ" Oy (0'*o8=8F\~3 =8D8D8 Ao8->84 "|$ ,o8I  ͬ#> o8-6& -4d8=8F\E~3 =8D8D8d8o8->8m "|$ eo8I  Mͬ#:# ;o8o8 Co8' :-4o8|$ -o8I  ͬ#:# o8-6w3-6d8)o8o8-4~ >w##4<"(7-#˾B,o8 (ͬ# o8 )K8 #˾:# o8o8>d8"("( ~"8Ao8d8o8͚"ͧ&͚+o8- #͑,~x" ~w(x=(#?(M& [&# 4(#NxFz͢"pz~x?(`,/wxͬ,ͼ"( ~x?Vo8K8 ~"8o8d8)>o8͚"<o8K8#ͧ&# ˾x880#[N( -"w&ͼ" o8%=8͒-F\i~3 X ͡-D88( ͬ#> Yo8&d8%=8͒-F\ͩ~3 X ͡-D8d8(ͬ#:#> o8o8d8o8'o8w3-~iw-~hw-~gw)o87I -~wi#~+w#~#~G~#O>>~Ox ##y|$>7o8-p##q=-~wg-~wh=8D8ì-"d8))(swgwhwi~@͚" ͧ&!ͼ" w3("Zn(:~@(46@͚" +ͧ& ~ -nˮo8(!o8-(w@fi^hVgX=(n&ͳ,-G)MDa~g8++~h8###~i8~wg++~wh###~wi-~^##Vg{怄O>G{GzGz_>-#q#p#wo8)'*8u)+~8# ͤ+ s1r2ͳ,Y8~w/~`8)nfY8~w1~w2~w/~w0~`8~1͛438[D42()~1o8ѷ`852 }/o|/g"D{ozg"D{Oz(>g~1w6o8<2oY8)ͅ+8w+6'*8+T*`8)+͝&~("#`8͑,#`8(#ͬ,+8)ͅ+-ˮo8 o8o87͢"%$6x6z"(D+<6x?~x?(O`,ͧ& 1#6&͑,*&%F&ͬ,/*&$F&1#&- ç&ͅ+K8͚+)>o8͑,#| 5$ J-ͧ&~@n(K8# ~##-~X,8w###6&V$~o8)(*o8$  V$o8O-`,/G-n&)))))}o-D()= -˾##6#6#y=(n&ͳ,+R8 s#̓,(r#ݯ->###> wͧ&K8## #˿##-~o8)(BK8͚+ @$% 7ͅ+82ͧ&͚+ ( K8 -X,8###w&-˾o8$-n6l-~@K8#M&+ͬ,Nl6l1&ͅ%ql͘,X&1&v&(c+)8:!"D-! b&+b&#O`,/ݦx_{(*D|g}oR0+ͬ,1&*&z&F&+8 v&&+ͬ,-͝&~(9x(((( #&(~(Q(K#&(`,/O :#˯~0+~lM& ͑,[&Y^( >wAwB~l?Å%O?^CVDD+,( ~l?(+sCrDnEfF|!uEtF~O*D )"DYD+=) ͢'͙(D~#͛4O ?' +  )###4y, !+++̓( y,/OG(6".--~-8=)))0̓,(r+sJ)!DD~#͛42Dͷ(!Dw#r#sZѯD ̓(!DRDM!x(6=8u't()ͷ()s$r%w&-G)y,-ѳ_-N-`,G-<8= K8 ̓,( ^(#Vz[[-([#~([͸-~1w#~#o8(6~#v-(< Î~#2h)Խ)h)ˇԽ)ͳ,+R͑,:bk##B8B0! <ͬ,ͧ&{_G~  (w&ì,x-~ ##~Z~ =K8#$~# !* # yDIRDSKD+ͅ+++ 6 #6#6#6#6#6#&w+6,++*6ͻ+ 8(6&,+ ͳ,+u)~=w> O6ͻ+ (6&^J){ +0%͝&~( ,3,J)~86&D++͝&6&>7͝&~(0- ͑,+0!͝&~ - &ͬ,͝&6#>7w+~͑,+͝&ͬ,~  N###~< =y >ɯ~#͛4_!D~#38:Do:D>7 ~/ͻ+ط +,͝&#<_#{ x7NF >8= ɯwAwB,,Rͳ,+B0,Rn&-)= ͑,#ì,-! ^#̓,(V#z)-~?(w#w#wͧ& ɯvy,O̓,y(-G7~=~ =nAfBD+!( ~l?(++uAtBnf!D8~1w=~=d8K8D8~1 ~@Z~(w@>d8~1=w\^1;G)=8s#r#wK8u7t8K8u9t:Zv 9~1(Zn ,w@0ZZZZZ:Dw@:o8w=>`8~1w[Oz<(!Er7Oqn7f8|>-#N#N#Fp+q+q-#4#4#4K8~?(=~=l K8 ~    K8~nLfMuLtMnNfOuNtO^PVQsPrQn0!D^#V+R( 7+:D(G72D2D*.:Do:DgY8!,F|`8~1o8~1͛4OF2y<( 1}o|g"Dˀ!Dy<( 1}o|`1^#V!DR$1d2y(#### x u2v Ez2~=1R2 u2~(+11 1Z2u2p(42h $1ƒ0͂2Æ0[Dy38Z2x42=y<(8x(4@(x`` )!D ^#Vz(y2~ p+p!D pj(!D^#V!DR( ! ˶@`Î!D^#V!DR͙1(d2####N#͉2w#~#> ##q#~*8>)~>62˾k2~2p2~w 6!:Dݾ06k2~v-(< +2k2~#w# ut=Z242Î͂27!6!D7͂27!D7z26z287 u+t,   ͂2n+f,~#Û4*DDRK8Z~(1͔4f4~wx4w.~K8 ͔4s#r^ V n4~0>`8w6~8&4=t4N F! ~=38qpn f!͘74^V~F?3?nf| )R0=T3 =v3:!R0nf NFq p utsrNF nfR0; ut43ѷn f NF DM!Rut4nf#~wnf^VRx4~v-=<(͘7~=4%ut ~_!D^#Vz %6x4 ~v-( Î͔4r+ss r   6~_!E~~#w^#V^ V _! E~Z*o8u1t2:LEd8K8^#V#~#4W~4_*  ;G 4d84#w ;x2 K8q#p#z5w#{5w 0 !!!!K8|<("ME*MEY8:Dw[o8o86/Z~(w0!.u1t2!Y8=8MDK8R8o8Y8s1r2q/p0`8U6 0 ( ( ( ͮ5d8~1O!OE 0 ( 6~G 54ò6U6d8N1ò6~1O<(<(<²6 P6P6U6d8K8:PE~#ͮ5K8o8P6d8K8|<(}2PE:PEd8K8^#V#~#foz~#ͮ56c6KTÈ6P6 o8o8TP6:TEo6:YEOĽ6o6O:UE:VEʎ:XE(:WE ~YwYo8Yf(o8 ~;=_!QEF#^#V!`E7K8|"^E!\E57[`E!`ER(^#V#7##~6*ZE#"ZE:\E*^E+"^E|!\E4SdE!""fE!""hE6# x {fE*hE*dEM*fE~#<(=7 ~# ~ xD##>)))))))';7;7d;7 ;7 R0y 0OͲ6N#F#^#V+++q#p+}|##~#foN#Fr+sq#p+ _ W| }##s#r8N˹Ͳ6~#a{ !=)n>f?u>t?n1f2n3f4u3t4w.w3!o8Rog_8;;| 7{_@( (M=(J_@!E~ 5_@:E_@O8_@:E_@_@!E~O_@~#8 !E69!E87sE~(=(3=ʬ:=[;=(m> 2E9 :Q:> 2E9 6:Q:> 2E͔;¥::E~ ˟~(2E~G; ; n f "Enf +"E> [;6 ;; V:EO:E_(2ED< ; :E :E :E <~0O 2ED<~<~3<>2ED<<~3<~>͔;>/!Ef>2Eͣ<> !<6> D3<_!E!E"E!"E!E~> <:E2E(2Eo8D2Eo8ͣ< !E6:E>  sjE1E 2E:E=< :EO:ZE2E02E2E:ZE2E !E87> {jEM> > < ^#V|< n f ^!E<`M5=0M?5=(50=0M 5A=M;5R=(5c= (>t=4M=M= M=M=. %>=4M=S(>M=           !E6V>!E87sE~r>=ʚ>=?=ʦ?=>?z?> @*EF "EE? >?z?>0*EF "E@E? ?z?> @N@E? :E(T@{Eͦ??z?*E:E>P:Ew(y @>N?>n f "Enf}|~2E~2E2E!E4!E5?:E'''G:E怰G:Ew x@@:EG:E8 :EG_>(˘N?u?:EO!E ~(6?T@><>N??u t ~''''!E_ E>@:Ep:EwG@/@63@!E6!Ewg!/@7!E878{( A=(.=;A=ʿB=B=B=CxKF*E(KF*FxN>x 3*F|(+"F*E~#*E+KE R0YPSE!F4!F6*F|(+"F*F~#*F+KF R0YPSF!F4!F6x> :F@(y>:F@(y>x> )(:F@((yy2FA6! F6(:F@((yy2FA6!$F6>:F@(:F!A7! F87>:F@(:F!A7!$F87sjE1EB]B{jEMG!FnO~(˹:TE *E"E!"F*E[FRSF*Eq#*E+KE R0YPSEF!FͷBG!FnO~(˹:TE *F"F!"F*F[FRSF*Fq#*F+KF R0YPSFF!FͷB=87x!F(!FqyOx:E( Gy2E!Fx(!F~>y(q(Wx(>yQx(>yPZ(Z!*F47>Zf /N/^1!+F(y(( (  {04n6o8DDDD99D>1$8 `E`E 0EEEEËy(χEEEEL`2@FF F F F F&F&F!E!E ",FE*,F # q+ 4F>2!>o>>> >>G^>o8FGFo8o8o8o8o8o8o8D2!>o>>> >>G^>̓͗ͣ̓̓̓̓Ã*2M"4"8":! }2!g" ! ! *M"""*M"""D!" >G>> >d ͼ!":2>s&{""(*$ɛ:0ˆ*({&ɷ( ʠ21( :1‚È̓Ϳɷyʐ=(J=(M=(D=(G((9=((t(s!(tʠ22"{(8:2o <22oڜڜ>Yf { (i(:(K c(!{ 0 Y6U4R̓/̓/(7=(:͈ѷ{<({24z(!23:24z :S*S,22͈ +>@ă!26 *"| s""${"*$6;͈͈͠$n͂ ͈|(ƞƞO|:G:(G:_:W͈ͽͲ{"*$͈͈{"*$!0~6̓ Ĥ<(ͯ >ɛ>2!"2P!"Q ͂͂O2͈̓*[ Ri!!"*",ZYf ͈,>ɛ͈̓͂:3_͂:4_ ͂>@Ã!>+r+s+w"2::0*##R>20*[.R.5**| *,|ʈ{&*(>'d  R0y 0_͂ Â*]~( =(=(:ݟ*Rea*Writ *Not read* error, Drive:~AON~(D*, Track:nfʹ*, Sector:nfʹ^Vz( * -ʹ* (Retry,~( *Ignore,*Abort)׷(  a>O::ȟ=~ :< $nQ/I/ 0:y066OA6:6͡ g!~(76͕(0*##~#2~#2~#( OSU!~6 [ Q#~ʠO#"ͧ 6ѡ*"!qS: J! ~ 6C#6O#6MQ:(: ͤU^66!!Q#"!|*!+|:~;:7~7#># !"> 6> _::  >ɛ_^#V#~#fo͡!͡w1w2 !ʹO8B( (l87(!.(?:(B!O8!(/ l8 $kb l8 !!!m>(G!~#08:030O:<(>2:G88888 0 2x=("A8Q0@O: y2:= =2}l(:.*(w#6?# (8ͦ=(,( O:(y>_| s1r26#ʹͶ6#6 #!~(# (!V:w+ ^qs#r~1< ~=23~@24÷_|(/~@tN#:0O[ySͧ!6͕͑ͅ(@͡(~( #! M #####:w#:w#qy(#*!% !6!"͡!%^#V+R*|:>2:k)!m!mFˆ>N  ͑ :lJ/!mί>ɛɛ!m~1 ˎ:n<=_ɛZɫ.~ Ц͈͈ZZ~( Zw(Zow@Z(Z~(B(( !(Kѷ(#:RG!U~# ~(###Y̓66~Zf(!F0!,0O N#Fx( x(!$nf u t Kʩ͈͈:w[6@Zګ| ;!!M bujtk:wN! ~<(.^%V&:RG!U~# ~###(N !h͆<(wߩ6~ӫ| ~Yw#~ë<~(  !uetfneffnjfk ͈͈͈ͭ͂\N! ! ~( ޮ(wǮS####^#Vz(ͼs#r!!~#w@~w70͈R*6͵! 6!w#w#w~(<=( =(,6͜O͵%4!~=(*͵ A͜6͵!͂ѷ !!4 #4 #4ͭ͌͵%~(͈͂͜͵4B( N! p>͂ÂG|"G̓">ÃG#~G[q|"q̓"yt}o|~G[{ozg}/o|/gN#͞~t_! z<(ez<(=(=t{(wz!^! Vm~4<ޮ g3O!h ~<(Y~3>t ͼ^#VN! ɷ( ޮ #~#fo!!O ! ~N! ͈!"m(${2͈(:G[}o|g"*["}o|gm)(>00W͈E[͈!h~!8~#ZZK!9u5t6̓͡^+~.ZfZ ~.ZfZ"f_n/f0*K^."u/t0u1t2mt.Zu Z*n5f6Zf 6.63n9f:|(ͭn3f4^1V2N/F0~.Zf}Dq/p0s1r2u3t4Zf(!m6.̓~/Zf !',!0!08h!  Yʑ̓O ^#V|F(Gu{ځײ׸K5;/>ò0`DJ^1PµඬHCmwüZ֋sֶA7JÜ]p᮸æ'Q5юۥ4~ɸͽ͈x͢ķ'(ͯӱ(5͢ķ' '_ ~(R˷ j~< ͏i~wͯ>Zn~@[{Ʒ [F̯xͻ[vN++~˾͒¹~@i(6@nw@_b͏[xu1t2͆'͔b/x7_~? wl{=ͽ[bQ_#~@ w#ɷxͥ͛ ͍}w3}o'Q"LZ8۲ͯx[>|͢ 1" "ZV 6]8"͙ͮԿ7 Oy (0͢ͰQF\S~3 QXXD A̷ͤj>84 " ,<ĶO '> 8m " e<ĶO M;'ĵ ;<ɷ C͓ :j4< -<ĶO 'ĵ ;w##4xW(V[( 8ͼͯx|P"P~CV ̀P ~xqV ~w(x=(#?(ȼ ּ͖ 4ͣNxFzpz~x?(/wx'7( ~x?ѴͰ_ 8nͯx[>|·z_#"# ˾x880#[N( jiw]7 Ͱo%Q F\~3 ӶXf8( '> Y <ɷx͓>~Ox ##y>7G{GzGz_>j#q#p#wÜ͚͢8E~8#  s1r2.m~w/~t͚nfm~w1~w2~w/~w0~t~17G[42()~1Tѷt52 }/o|/g"{ozg"{Oz(>g~1w6͜<čom͚86͢8Wt͚W~(q̀t ͖tͣ'_8{[ˮ͒ȷ c ŷ7͏b6x6zW(Ϳ<6x?~x?(O" ͬ6] ͥ͏'÷/ͥtͬ]C "_d>| #| 5t J["~@n(_# ~##V~8w###6]Ѻ~Ͱ[(*###> w"_## #˿##[į~|[(B_ @T͏ 782" ( _ V8###w][˾Ͱb[n6lC~@_#ȼ+'Nl6lͬqlӼͬ(ci)8:!"C! ݼ+ݼ#O/ݦx_{(*|g}oR0+'ͬͥzʌ_8 ʌi'C~(9x(((( ͞(~(Q(K͞(/O :#˯~0+~lȼ  ּY^( >wAwB~l?O?^CVDͿ͂( ~l?(isCrDnEfF|!uEtF~O* )"YͿ=H ~#7O ?' +  )###4¦ !+++ /OG(6"e[j~eľ8=)))0(r+sſ!~#722!w#r#sZѯ !RDM!x(6Qu't()2)s$r%w&rG)jĦѳ_jNV¦Gr<8= _ ( ^(#Vz[[L([#~([3~1w#~#͜Ϸ(6~#÷(< ~#Æ8ˇ8.+R :bk##B8B0! <'"{_G~  (w]'xV~ ##~Z~ =_#$~#  # yDIRDSKͿW 6 #6#6#6#6#6#]6͒El66 8(6]͒? .+~=w> O66 (6]^ſ{ _0%~( ͙ͮſ~86]ͿW6]>7~(0C _0!~ C ]'6#>7~ W'~  N###~< =y >ɯ~#7_!~#G:o:>7 ~/6ط ?͒#<_#{ x7NF >8= ɯwAwB͂͒·R.+B0͂Rn&r)= #'C! ^#(V#z{V~?(w#w#w" ɯvOy(rG7~=~ =nAfBͿ!( ~l?(i+uAtBnf!X~1w=~=x_X~1 ~@Z~(w@>x~1=w\^1ͶG)Qs#r#w_u7t8_u9t:Zv 9~1(Zn ,w@0ZZZZZ:w@:w=>t~1w[Oz<(!h͆Oqn7f8|>j#N#N#Fp+q+qj#4#4#4_~?(=~=l _ ~    _~nLfMuLtMnNfOuNtO^PVQsPrQc~[(  [~(  [~(>>O~YwY͝(( (!;~((Gy( ([f(ͬ> ~Yw!1M4#S?bks#r#s#r#6#w#T]s#r#s#r&~I4I ! ;˯w####[~@(n(_~#=u~=7<;K͝ȷ(;v ͬC4;ˮC;˶C ;<[n;ˮ[n6K!"͡ȷ(3;~` &K͹ѷ(+!~( Sͬ[z( ?>?>4!ԺK!"V~2#˾##~2͡ȷ(@K:0 ~2K"#˾##0~2 :w6#_ ͬ4*|>K͝ȷ(Kͬ4[ˮ5ȷ( ([5ȷ( [ˮ͈VN##FKnF#V~ ##~++q##p'FK_#~I&4m5ȷmn9f:w9w:n5f6!9u5t6~[{w[u5t6u9t::K&˷R ^#V+5IK#####~@~#w@N1F2u1t2q1p2w@;˯NF /~͝ȷ( ;~ ͬ ++++4~IG> 2&4-7O!4͵!~= /> 2!4-!R KK͝4> >2!4͵-&˷R ~I(-= !R[~@O(n(_=~=7<:G#y ( (/((?($O~?(O/O ï/{Ʒx F\;<(@͍ʷ Gʷ A! M 8####DMj#~#~#~`iq#p#q#p ͳ(%'w3~\<(G ^#Vj#~#~#~ͬOw+w+wy[^[vK͝ȷ((ͳ ;( ͬ>[v( 4x{Ʒx F\͍ ;ʷxͳ( 'w3 [^ͳoط( ' j#~##<ɯ2(+####DM~## 2j# # # /!4 DM^#VBK';~=>sJrKnJfKK^#VuGtHK####K+nGfHx[Fx!## (^#VQ####^͐ͽͯ c #w#w#w#w j4 55J/(;x V~##((6+6FƷ [<Կ!!~շw3>ѷ>x !N#F#~#foB8x>x[Fx!!!^#Vr+s## ($!Mѷ =`iQ##~#+< w#w+͐ͯ !~շw3>!'!'Fx6|]Ͱѯ!^'V( V~##(!)6"|eͰůN#Fp+qj#~q#~p#~6w+w+w~3(N#F p+qη/x> 2[#!#R^#V_#~!N#F###~#!^#Vr+s~2(/x~1Tȷt~1͜t~RwR~SwS}o|g"'x ~1͜Ϸt{/ݦRwRz/ݦSwS*'{/oz/g"'~1ͽ{ݦROzݦS*'ͯC'wRwSͽͯ*'}O|>~R/O~S/G7G !0^#V+R( :)(G72-2*:)o:*gm!|t~1͜Ϸ~17OF2y<( ͨ}o|g".ˀ!4y<(ͨ}o|^#V!4Ry(#### x v E~= ~(+sj Ͱp(h $Ͱ"[.yGx=y<(8x(4@(x`` )!8 ^#Vz(y͆~ p+p! p!4^#V!4R( ! ˶@` !4^#V!4R5(####N#%w#~#> ##q#~*8>)~>6͍Է˾~͆ ~w 6!:)ݾ06~÷(< ~#w# ut= !6!0 !4  u+t,   n+f,~#7*44R_Z~(10~ww.~_ 0s#r^ V ~0>tw6~8=N F! ~=8qpn f!ͬͻ^V~F?nf| )R0= =:!R0nf NFq p utsrNF nfR0; utͫ́ѷn f NF DM!Rutͫnf#~wnf^VRַ~=<(ͬ~=%ut ~_!8^#Vz %6ַ ~÷( 0r+ss r   6~_!h~~#w^#V^ V _!X~Z*Uu1t2:x_^#V#~#yW~y_*  öG ͗x͗#w Ͷx2 _q#p#zͷw#{ͷw 0 !!!!_|<("*m:w[SÊ6/Z~(w0!.u1t2!mQMD_f̓ms1r2q/p0t 0 ( ( ( Jx~1O! 0 ( 6~G q4NxN1N~1O<(<(_~ (͗("*"*> _|(m~@2@ C*|( a*a!l ("6!%l "_ !wͨu0>t! M####͗͐*####͵͐*|(͵ͮ*|Į0++++~@:w@ͨw@*|!^#V+R!""F#6#cO(6 0(. (/(2(.0q#o&q5Yv(^ܷͣY8Rl< Y6<Yn(YYv ͏͓ ͣN<8RYvYn͏-V< Ͷ->( G&#6NZF\Z6\ͨA(Zp\'ͨ'y=Kg:4oöQ#XXn@:4w@Ku@e>_6K|!uUtVnUfVe|!uWtXnWfX*]*Spooler error (Ignore, Abort)׷(  a>O:=:<lttttN1F2˸!VF͓~ ͎!;S++++'w!IN#F!IB( !M̓  ͜!I  SR(!V MM>)|(N!EN#F!EB(!! # ++ c1!E *!;>66S!IN#F!IB( !̓ 1!I  >!^#V#N#~#fo w͜!˾!!F#~< +++w=8 !V ~<(͎ͨ>!6=!EN#F!EB(  (!IN#F!IB(  (####6#KUq#p#>w#s#r#s#r#w#w#w##w######6 ##N#F+++kb*!e~#<(=(#F!V:R~#(###= !^#V=7~#fo!u"MSPy2O # # !Mw#w#MDq#p#q#p#MDq#p#q#pnf ^Vsrut !3[3R(!1~(:/0 !M/(BW!3 !7[7R(!2~(:00 !M0( W!7 4!f"q_"o~02n*qm*ou1t2:nw0:sw/!n4~<6#4~<6#4~6[q!RSq_|( ftͶ!u1!}!^#V!"Mѷ"6#z !-:|w<2|! +p+qMD!q#p!s#r#q#p!}f_ _Sm ^#V! s1!uv +( ͹{M!M!}"x{Q+˾(Ϳ+~˶!u!u~˾!}"54>_|(* s#r!"xsz1*z!u*!9͔[!R(^#V#9##*x|(!}~=Uw!}!"x:}(!u˶*"z{z*s#"s*v#"v!Kv"vx!^#V!R!^#VBr+s(0##^#V+++! !!}>͇5##͇~4##^#Vy ####*####v ~#fos#r_Mmt"R0S!"#"!^#V!R('+V+^*##R(58*R8S"*|( ![R0 +r+s['*[R>B"{s#r#_"!^#V!R(U*+F+N R(+V+^K B(+V+^## DM*+p+q*+F+N+V+^ s#r#*!^#V!R*R +V+^##"~#<(= ~# ~ xD##>)))))))'d  R0y 0ONN#F#^#V+++q#p+}|##~#foN#Fr+sq#p+ _ W| }##s#r0N˹N~#a{ !=)n>f?u>t?n1f2n3f4u3t4w.w3!Rog_;;| 7_s1r2 :=~=_Ͷtjw_ !"ͷͮ((*RS( *"!6 *!4*6#"ͷͮ(s*!~#"!(b!o&r=4)u t!ͬ^>V?sr8W*+++K B8HR8Ds>r?~$w~%w~&w6͍Է v(Vͨt_""!Ù_! !è:x~12!Ͷ}(7jm^=Ͷx!Ͷ|(7jm^=Ͷ=@)!#ms#r#^=Ͷ+w#G7w#(w#s#r#i&)= +s#r#7 r#s###q#p_)0 Ͷ_6#~;t~1(GO: *8":!"6*2[6R8'S6*8q#*2+K4 R0[4S8!~!<~2w*Q!=N 2=!>">t{( (N=(=(g=*6|*:N>Q !*6+"6*:~#*4K2 R0[4S::<(:=>*q#"!=4>͏c!:=!!* {( ʃ=(.=ʻ=?=i=u=ʗxK*(K*xN>x 3*|(+"*~#*+K R0YPS!4!*|(+"*~#*+K R0YPS!4!x> :@(y>:@(y>x> )(:@((yy2c!(:@((yy2=c!>:@(:!!>:@(:!=!s1̓{MG!nO~(˹: *"!"*[RS*q#*+K R0YPS!7G!nO~(˹: *"!"*[RS*q#*+K R0YPS!7=x!(!qyOx:( Gy2!x(!~>y(q(Wx(>yQx(>yPZ(Zs1!4~<86͌ͅ{i!X~{((5g:O!~{((5>>>:O!q>cB!:>!>!!3͊!3s'~(=(3=$==(m> 2 _ ͐>͂ :#> 2 _ 6͐>͂ :# _ ͐zͫ :#> 2 :$~ ˟~(2$~̿͘ n f "Bnf +"D>͂~2~2n f "BF!@)+"D2# ͘2~!$_ ˞W:( N98O~( $( Ny<:$:$W!#w*B[D"B!4!5N: Ŀ: *'!3!!3"'=2 {'>6͘V V:0O:$_(2$ͼ V :. :$ :0 A~0Od!y( ^#Vz ##u t > <̿ ݾ>2!ͼ~A~ͫ>2!ͼA~ͫ~> >/!$f>2%> !<> ͼ!%~6/ȯ~Af(2$ͼ2!:ݾ(N w~2N~ >ͫ_!)!-"B!"D!$~>͂:$2$(2L̓ͼ!?:!ͫѣ>2!̓ !9:">  s1 2":%= :&O:s2&02%2%:s2& !9> {M> > : ^#V|: n f ^!u`M50M?5(50M 5M;5(5 (}4MM MM0. %A4MRS(Mc           ͧ!wͺ!w~ =(===G>2{͹/ w w ~G!$_u t >2{( !͹ >> 2{( !͹ >ɯnf^V|2}2~2͎In f "~ҡ2R >@QR(>Qͤ!ROy@~P#*RO(y ~P#PORG(P y >*RO(y Pw#}o|g @2 @2 @2 @2y(=:=21c!F ͍8A >y >yͿ &+~(!:8F#(Ϳ :22:ì:˖ˆ^˞!#####~=+45z!2V‹n(vʜ~( œ͍ڥ _ >y˦nc:!ˆf \>yF̭ͭ J͖:~(˾˶ˮ:Oy( >y!!͖͖:ˎ˶˾4:W>~@@~<ˆ:g." {yy! Ϳ>y!"ͭ!Iͭ[KC{ ͭ%:=!406FN x_(ˎ!1!x_ !n!>yyxG 7 x 7x  x>x =_!:sw!:s<::_!N !_6!1>!*[C{ 1>^G>>>>!">>>!>!F͕!˾~(!͕@p#: (![S+~!S^#V#N#F +*"> > :2MS 20ɛ;337ÍfÈͭàf$ DSK <-- $Invalid command$Command not found$Insufficient memory$Non-privileged user$ Program terminated due to insufficient memory $\}%%COLDSTRTAUTWARMSTRTAUTOSSLAVE SYS{{,##0044xxxx1$9 -PRINT-?0003377==AAEEIIP@@>@ 55;;Ëy(χ Advanced Digital Corp. Super Six up.$yyprtvxz|~ABCD 37;@DJD@WOZ_ekoúý2. %YYY+C5 C7PYL!"_P=)!K5x( 0< [70<"Z2\9`i($/$)$TurboDOS 1.40, Copyright 1984, Software 2000, Inc. $-PRINT-?0003377==AAEEIIP@@k!se"l:"o&###"&w:Ge͡V !^e͡q] $! w#w#]Ts#r#s#r# #s#r 9* |pe!! "* # q+ :=o&e͡ :m(G!͓:n(G!12))͇6̀"͎@>2!>o>>> >>G^>͗*" "$"&! }2!" ! ! *"""*"""D!i" >G>> >d s!":2>sd{`"f*bF:n*f{dɷ( s 2ol( :o<ݯɷy =(J=(M=(D=(G((9=((t(s!(t2p"{(8:po <2poWiW>Yf { (ii(:(K (!{ 0 Y6U4R//(7=(:™ѷ™{<({2rz(!2q:U2rz :)ShSj2pI ͨ>@!p6 *`| s`"b{`*b6;'0$ń (́ĆĆ;ā:)G:!(G:_: W/{`*b{`*b͘!n~6ā A<(̓ >F>2!"2P! "Q O2*[^R!!"h"jZYf ,>F͐:q_:r_ >@!>+r+s+w"2::n*##R>2n*[lRͫò*h|ʆ*j|{d*f>'aada a R0y 0_ ͧ~( =(=(:)ZͧReaͧWrit ͧNot readͧ error, Drive:~AO~(Dͧ, Track:nf1ͧ, Sector:nf1^Vz( ͧ -1ͧ (Retry,~( ͧIgnore,ͧAbort)iҷ(͈͈ͻO:):E=~ʆ::<Æ$nΜͬƜ/ 0:y0ijͳ̜Aͳ:$ͳ g!*~(76(0m*&##~#2*~#2+~#( OS(Ҝ!+~6 [& Μ#~O#"($ 6N*("_rS,:? Ǜ!G~ 6C#6O#6MΜ:M(:K!>Ҝ<=:r!!\)́(r(\í( r(li*,͑8 {< ͑0O{=ր2y͡ì:>=ћ2q:M( :K!2r*,͑0͡C:> :%( :)<̜J_ƜѻȜƜѻ2+ͬNͽͽ*(͑ 0 @>^ͳͳ!>_Μ#"_|*_+|:#~;:#7~7#ͻ# !"(> ͳ> _:+:+  >F^#V#~#fo!.w1w2 !/1̝8B( (87(!.(?:(B!7̝8!(/ 8 $kb 8 !!.!>(G!/~#08:030O:=<(>2=:;G88888 0 2;x=("A8Q0@O:. y2.:== =2=(:.*(w#6?# (8=(,( O:#(yͻ| s1r26#136#6 #!~(# > (!V:#w+ ^q́s#r~1< ~=2q~@2r|(/~ͽN#:"0O[&yS($!*6mi(@(~( #! #####:*w#:+w#qy(#*(!c͊!*6!"(!c^#V+R*(|:#>2+:gm!!Fˆ>N I  :m/!ί>FF!~1 ˎ:<=_F͙͌ZFͫ~ yM2ZZ~( Zw(Zow@Z(Z~(B(( !(Ȥѷ(#:G!~# ~(###Y>66>~Zf(!á0!#,0O N#Fx( x(!sv͡>nf u t Ȥ&:Vw[6@ZW| ;!!޷ bujtk:)wN!. ~<(.^%V&:G!~# ~###(N !<(w\6~P| ~Yw#~@<~(  !uetfneffnjfk*٧N! ! ~( [(wD####^#Vz(9s#r!!~#w@~w7i0mϧͧf62! 6͛m!w#w#wf~(<=( =(,6O2͢ͱ!Yf~=(ͧ2͛ Af62!ѷ !!4 #4 #4* 2͢~(͙2iͱvͿ( N! p>ħ"ħ">ħ#~[""y}o|~[{ozg}/o|/gN#~<~0w0OV>! z<(ez<(=(={(wz 9^#VN! ɷ( [ #~#fo!!O !. ~N! !"(${2 (:[}o|g"*["}o|g)(>00W©[ w!~!v~#ZZȪ!9u5t6۪͌è~.ZfZ ~.ZfZ"n/f0*Ȫ۪ͫ"u/t0u1t2t.Zu Z*n5f6Zf 6.63n9f:|(*n3f4^1V2N/F0~.Zf}Dq/p0s1r2u3t4Zf(!6.~/Zf !,!0!208h!  ֜;O ^#V|ХqZ`/5в`@ݮgǽۯͽ?])90G;NY3Vݾfߴ+eg#d~ӁwgβHȃs ՛"u;FQYalt؄F:ͤ(,P(5ͤ ' ~(Eŷ ~< ~w,>Zn~@ؾR x[F,8tؾvN++~˾6~@i(6@w@߬ [u1t2ͤ>߬/n}7~? wl=:غߵ#~@ w#ɷ"͉ }w3}oͤ͟ɾZv8X,غ>͒ 1͒͟ "ZVr 6ڷ8͟+Qʹ Oy (0-F\Э~3  A!Ƿ>84 "t ,͹A̮ ͤ> ͹6᷷ 4԰F\=~3 Ƿ>8m "t e͹A̮ M͸ͤ2 ;͹Pķ C͓ :4t -͹A̮ ͤ2 ͸ù6w3԰6RÙӾ4~ >w##4<Գ(7ɾ#˾: (ͤ o غ #˾2 @,>Գ(ӯس( v89,͒ͯ͒ͯ͟ӯ ͉ͯ~xӯ ~w(x=(#?(E S 4 NxFz͚pz~x?(X/wxͤʹ( ~x?N- v8,غ>͒4#͟# ˾x880#[N( wڷʹ -%͊F\a~3 P͙8( ͤ> Y͹%͊F\͡~3 P͙(ͤ2> ͹oķ͓ʹw3~iwӾ~hwݾ~gwR7A~wi#~+w#~#~G~#O>>~Ox ##yt>7͹Ӿp##q=ݾ~wgӾ~whäԳغ(swgwhwi~@͒ ͟ʹ w3("Zn(:~@(46@͒ +͟ ~ ؾnˮ·(ؾ(w@fi^hVgX=(n&ͫG)MDa~g8++~h8###~i8~wg++~wh###~wi~^##Vg{怄O>G{GzGz_>#q#p#w8m¼~8# ͜ s1r2ͫ~w/~nf~w1~w2~w/~w0~~1ʹ[!42()~1ѷ52 }/o|/g"!{ozg"!{Oz(>g~1w6< o}8o68ԼLԼ͕~(͉ ܼͤ8}ؾˮ÷ ͈7͚ ߵ6x6zԳ(<<6x?~x?(OX͟ )6ڷ͉" >ͤ/">)ڷ ß}͒>͉#| 5 Jؾ͟~@n(# ~##Ӿ~P8w###6ڷN~-غ(*a###> w͟## #˿##ؾ~غ(B͒ @ѵ 7}82͒͟ ( ӾP8###wڷؾ˾-ߵؾn6l~@#E+ͤNl6l)}ql͐P)n(c)8:!"S! Z+Z#OX/ݦx_{(*S|g}oR0+ͤ)"z >ܼ8 n ͕ͤ~(9x(((( (~(Q(K(X/O :#˯~0+~lE ͉SY^( >wAwB~l?}O?^CVD<( ~l?(sCrDnEfF|!uEtF~O*S )"SY<=ź ͚͑3~#ʹO ?' +  )###4q !+++{ q/OG(6"ؾ~⾾8=)))0{(r+sB!NR~#ʹ23ͯ!4w#r#sZѯ3 {!ORDM!x(6u't()ͯ)s$r%w&G)q羦ѳ_NӾXG<8=  {( ^(#Vz[[ɾ([#~([Ͱ~1w#~#ʷ(6~#n(< Æ~#`Ե`ˇԵͫ+R͉:bk##B8B0! <ͤ͟{_G~  (wڷäxӾ~ ##~Z~ =#$~#  # yDIRDSK<}Լ 6 #6#6#6#6#6#ڷo6¼6ͳ 8(6ڷͼ ͫ+m~=w> O6ͳ (6ڷ^B{ ܼ0%͕~( +B~86ڷ<Լ͕6ڷ>7͕~(0 ͉ܼ0!͕~  ڷ͕ͤ6#>7o~͉Լ͕ͤ~  N###~< =y >ɯ~#ʹ_!#~#:!o:">7 ~/ͳط ͼ͕#<_#{ x7NF >8= ɯwAwBRͫ+B0Rn&)= ͉#ä! ^#{(V#zӾ~?(w#w#w͟ ɯvqO{y(G7~=~ =nAfB~1=w\^13G)s#r#wu7t8u9t:Zv 9~1(Zn ,w@0ZZZZZ:Uw@:)w=>~1w[Oz<(!Oqn7f8|>#N#N#Fp+q+q#4#4#4~?(=~=l  ~    ~nLfMuLtMnNfOuNtO^PVQsPrQ~[(  [~(  [~(>>O~YwY(( (!͸~((Gy( ([f()>͈~Yw!1޷ͱ#пͼbks#r#s#r#6#w#T]s#r#s#rͣ~I4I ͜!]͊͸ůw####ؾ~@(n(~#=~=ʹ<͸÷(͸v )Iͱ͸ˮI͸˶_޷ ͸͹ؾn͸ˮo[n6!"X÷(3͸~` &6ѷ(+!~( NtoSX)[Xz( ͼ>ͼ>ñ!Q!"XӾ~2Z#˾##~2[÷(@:Z0 ~2Z"X#˾##0~2[ :[w6# )ͱ*X|>÷()ñؾˮͲ·(͉(ؾͲ·(͉ ؾˮӾN##F͓n#Ӿ~ ##~++tq##pͤ#~IͣͱͲ·Nn9f:w9w:n5f6!9u5t6~[xw[u5t6u9t:oͷͣŷR ^#V+͜mi5I#####~@~#w@N1F2u1t2q1p2w@͸ůNF /~o÷( ͸~ ) ++++ñ~IG> 2WͣͱRͪʹO!]ͱ2!~= /> 2W!]ͱͪ!]RR ñ> >2W!]ͱ2RͪͣŷR ~I(ͪ= !]Rؾ~@O(n(=y~=ʹ<:WG#y ( (/((?($O~?(OX/O ï/R͒͊F\;<(@ ŷ Ǵķ A! ޷ 8####DM#~#~#~`iq#p#q#p͊͊0(%ͤw3~\<(G͊^#Vmi͙#~#~#~)oOw+w+wyo͒[^[v÷((0 {;( )>[v( Iñ{R͊F\ ;ŷ0( ͤw3͙_ mio[^0ط( ͤ ͹Ͱ>#~##<ɯ2\{(+####DM~## 2\# # # /!\4̀͊DM^#VB'͸~=>sJrKnJfK^#VuGtH####+nGfHoT[F!Iͅ## (^#Vm####i^ :, c͓w #w#w#w#w q4 55ǹ/(;x Ӿ~##({(6+6 ؾ͹Q!!~շ_w3>ÏF}ѷ>͈!N#F#~#foB8͏wx>[F!!Iw!^#Vr+s## ($!ѷ =`ḯ##~#+< w#w+ z, !~շ_w3ͅ>!'I!'_ͳڷ-ѯ!^'V( Ӿ~##(t͹Ӿ6##6ͤ͹6->͞)6"-N#Fp+q#~q#~p#~6Ów+w+w~3(N#F p+qoTɷ/> 2W[a!aRS^#V#~!N#F###~#!^#Vr+s~2(/~1·~1~RwR~SwS}o|g"e ~1ʷ{/ݦRwRz/ݦSwS*e{/oz/g"e~1:{ݦROzݦS*e,CewRwS:,*e}O|>~R/O~S/Gʹ͇!n^#V+R( mi:g(G72k2hC:go:hg!|~1ʷ~1ʹOF2y<( %}o|g"lˀ!ry<(%}o|y^#V!rR=}y(#### x ͎v E͓~=k ͎~(+ -s͎p(Mh $-œ͛ß[lysxM=y<(8x(4@(x`` )!v ^#Vz(y~ p+p!# pb!r^#V!rR( ! ˶@`Æ!r^#V!rRͲ(}####N#͢w#~#> ##q#~*8>)~>6 Ϸ˾̈́~͉~w 6!:gݾ06̈́~n(< D̈́~#w# ut=sMÆ͛m!6!nÊ͛m!rÊ͓Iݷ͓_޷ u+t,   ͛n+f,~#ô*rrRZ~(1ͭ~w͑w.~ ͭs#r^ V Ç~0>w6~8?=ʍN F! ~=-8qpn f!)8^V~FX?nf| )R0=m =:!R0nf NFq p utsrNF nfR0; ut(ѷn f NF DM!Rut(nf#~wnf^VR͑з~n=<()~=8%ut ~_!v^#Vz %6͑з ~n( Æͭr+ss r   6~_!~~#w^#V^ V _!~Z*u1t2:^#V#~#W~_*  3G #w 3x2 q#p#z4w#{4w 0 !!!!|<("*:Vw[6/Z~(w0!.u1t2!MDs1r2q/p0n 0 ( ( ( ~1O! 0 ( 6~G 4nN1~1O<(<(< iiҷn:~#ei|<(}2:^#V#~#foz~#|K͙iҷ ITiҷ:͈:O͈O::ʆ:(: ~YwYÛYf(t ~;=_!F#^#V*5 K#N@F\:w@6\NZZ[%A(Zp\q@*6(#6+>_~ (O(u"*u"ͧ> m|(m~@2ͽ C*|( *[! ("6!% " !w%ͭ>!Ê####O *####2 mi*|(2+*|+0++++i~@:w@%w@*|!^#V+R!""F#6#O(6 0(. (/(2(.0q#o&q5Yv(^ ׷aY͵<ʆY6<Yn(YYv  N( G&#6͔̓NZF\Z6\%A(Zp\ͤ͏͔%ͤy=g:ro3#n@:rw@u@>_6|i!uUtVnUfV|i!uWtXnWfXͧͧSpooler error (Ignore, Abort)iҷ(͈͈ͻO: =:<͖͖ÖÖ͖Ö͖N1F2˸!F~  ~!y++++'!N#F!B( !  !͊ R(!V m>(N!N#F!B(!! # ++ cͮ!͊ͧ!yûH66S!N#F!B( ! ͮ!͊ û!^#V#N#~#fo !˾!!F#~< +++wͺ8 !V̓ۯ ~<(% >b!6ͺ!N#F!B(  ͥ!N#F!B(  ͥ####6#Kq#p#>w#s#r#s#r#w#w#w##w######6 ##N#F+++mkbͧ!~#<(=(#F!:~#(###= !^#V=7~#fo!"Sy2 # # ͙!w#w#MDq#p#q#p#MDq#p#q#pnf ^Vsrut !q[qR(m!o~(:m0 !m(B!qÊ!u[uR(m!p~(:n0 !n( !uÊ4!Y""~02**u1t2:w0: w/!4~<6#4~<6#4~6[!RS|( e3!1!|!^#ViÚ!"ѷ"6#z !-:w<2! +p+qMD!q#p!s#r#q#p!m ̈́_I ^#Vm!Ês1)!v ͨ( 6{M!M!"{Qͨ˾(<ͨ~˶!!~˾!"5Q4>|(* s#r!"s1*!*!9[!R(^#V###*|(!|~=w!m!":(!˶*"{*#"*#"!K"x!^#V!R!^#VBr+s(0##^#V+++m!͊!_|޷!m>5##̈́~4##^#Vmy ####*####v ~#fos#r"R0S!"#"!^#V!R('+V+^*##R(58*R8S"*|( ![R0 +r+s['m*[R>B"s#r#"!^#V!R(U*+F+N R(+V+^K B(+V+^## DM*+p+qmm*+F+N+V+^ s#r#*̈́!^#V!R*R +V+^##m"~#<(=" ~# ~ xD##>)))))))'OOdO O R0y 0ON#F#^#V+++q#p+}|##~#foN#Fr+sq#p+ _ W| }##s#rͭN˹~#a{ !=)n>f?u>t?n1f2n3f4u3t4w.w3!Rog_;;| 7*s1r2 :*=6~=_3MwK!"[4+((*[RS[( *]"_6 *_4*]6#"]4+(s*_~#"_(b͞o&=)u t!)^>V?sr8W*+++K^B8HR8Ds>r?~$w~%w~&w6 Ϸ†v(@ӾX@*%"]"_!K!0*%:~12!3}(7jm^=3!3|(7j^=3=)!as#r#^=3+w#G7w#(w#s#r#i&)= +s#r#7 r#s###q#p)0 36#p}ʅֆ!R ɕ.^EdjY!Y*p:w3~12r:r^#V!^#V~;~1(GO: *$"&!""*["R8'S"*$q#*+K R0[ S$!~_!(~2w!)N 2)!*">{( (N=(=(gʐ=ʐ*"|*&N> !I*"+""*&~#* K R0[ S&:((:)>*q#"!)4>Fz!I:)!zm!_ͧ {( :=(.=r== =,=NxK*(K*xN>x 3*|(+"*~#*+K R0YPS!4!I*|(+"*~#*+K R0YPS!4!Ix> :@(y>:@(y>x> )(:@((yy2!I(:@((yy2!I>:@(:!m!_>:@(:!m!_s1):͔{MG!nO~(˹: *"!"*[RS*q#*+K R0YPS!G!nO~(˹: *"!"*[RS*q#*+K R0YPS!=_x!(!qyOx:( Gy2!x(!~>y(q(Wx(>yQx(>yPZ(Zs1)!4~<86 {!X~̨{((5g͖:OÖ!~{((5>>>:O!q!I:>!m!_!IA!_s~(=(3==ʊ=(m> 2  G̀>9͉ :ͣ> 2  6G̀>9͉ :  G̀zb͉ :ͣ> 2 :~ ˟~(2~vO n f ".nf +"0>9ͣ~2 ~2 n f ".F!@)+"02O~!_ ˞W: ( N98O~( ( Ny<::W!w*.[0".! 4! 5: v: *!_!Y!I"=2 {>͊6O V:O:_(2s : : : ~0O!y( ^#Vz ##u t > 2 s~~b>2 s~b~>>/!f>2> !<Y> s!~6/ȯ~f(2s2 : ݾ( w~2 ~ >b_!!".!"0!~>9:2(28s!+: bѣ>2 !%I:>  s1) 2:= :O:2022:2 !%_> {M> >  ^#V| n f ^!,`M5=0M?5N(5_0M 5pM;5(5 (44MM MM. %>4M S(HM           !cIͅ!c_so~ʡ====Hͩ> =*qF "qt Hͩ>0*qF "q=t Hͩ> =}t :s(̓{oHͩ*q:u>P:vw(y =} n f "qnf}|~2u~2t2s!t4!u5 :x'''G:v怰G:vw x4@:yG:t8 :wG_>(˘}ͤ:xO!z ~(6-̓><} u t ~''''!~_ v>=:vp:vwv^b!iI!swg!^m!i_ͧy(=":=2o!Iy  >y &+~(!:8F#(  :R22 ::#M˖ˆ^˞!_#####~=+45ʸ!I2AVn(v~( _ >y˦:#!IAˆf \>yF J:#M~(˾˶ˮ:ROy( >y!ID~@@[~<ˆ:g."H{yy! >y!`![C{ c:=!406yyxG 7 x 7x  x>x =_!:w!:<::_!N !_[6!1>!*[C{ 1>^G>>>>!">>>!>!F͕!˾~(!͕@p#: (![S+~!S^#V#N#F +*"> > :2MS 2nF;337 *͘$ DSK <-- $Invalid command$Command not found$Insufficient memory$Non-privileged user$ Program terminated due to insufficient memory $\}>ccCOLDSTRTAUTWARMSTRTAUTOSSLAVE SYS,]]aannrr//s1$ -PRINT-?000qquu{{@ vv@*@ 0!!''Ëy(χ Advanced Digital Corp. Super Six up.$eekkL`2prtvxz|~ 37;@DJD@WOZ_ekoúý2. %YYY+Cs CuPYL!"_P=)!Ksx( 0< [u0<"2w`i($/$)$TurboDOS 1.40, Copyright 1984, Software 2000, Inc. $ >!Hc"*:[o&###Y"_w:=o&p0 :(G!Y{:(G!YͲ12h͉͏͏͏"͏͏͏k>2ͣG@Ï^G>>>>O! s#r+}! }2!" ! ! *lY"n"p"r*Y"""D!ͻ:G!:(####+:w>!û>s{"*͍:L*{ɷ( ʺ d2ͳ·( :͏ɷyT=(J=(M=(D=(G((9=((t(s!(tdį2"{(8:o <2oĞ͞>Yf { (i(:"(K m(!{ 0 Y6U4R͖//(7=(:ѷ{<({2z(!2:2z :hSS2 ͏>@ď!6 *| s"{*6;͍nw$n ͈(͈͊͊:hG:Z(G:X_:YWv{*{*!~6%͏ ͈<( >͍>2!"2P!g"Q ˇO2͟*:[R-!!""*ZYf ,>͍:_:_ >@Ï!c>+r+s+w"2:i:*##R>2*[R:LA*|*|L{*>'ͨͨdͨ ͨ R0y 0_ 6g~( =(=(:pá6Rea6Writ 6Not read6 error, Drive:~AOX~(D6, Track:nf6, Sector:nf^Vz( 6 -6 (Retry,~( 6Ignore,6Abort)з(kJO:pƑ:=~:<$n / 0:y0A:]e g!c~(76Y(0*_##~#2c~#2d~#( OSa!d~6 [_ #~dO#"ak 6͕*a"͹5Se:x !~ 6C#6O#6M:(:hw<:=c:h!\eep(͹(\Ͱ( ͹(lͰ*e8 {< 0O{=ր2y:w=2:( :h2*e0dC:w :^( :h<^!w#"|*+|:\~;:\7~7#J# !"a> > _:d:d  >Ík^#V#~#foe!geʯw1w2 !hx8B( (087(!.(?:(B!p8!(/ 08 $kb 08 !!g!y>(G!h~#08:030O:v<(>2v:tG88888 0 2tx=("A8Q0@O:g y2g:v= =2vA0(:.*(w#6?# (8=(,( O:\(yJk| s1r26#xz6#6 #!~(# (!V:\w+ ^qs#r~1< ~=2~@2.k|(/~€N#:[0O[_ySak!c6IYU(@e(~( #! Y #####:cw#:dw#qy(#*a!!c6!"ae!^#V+R*a|:\>2d:ʹ!!Fˆ>N  U :ʹ/!ί>͍͍·!~1 ˎ:<=_ÍZZͯ!9u5t6ͭ͏Ï~.ZfZ ~.ZfZ"rkn/f0*ͯ͒"u/t0u1t2yt.Zu Z*n5f6Zf 6.63n9f:|(͹n3f4^1V2N/F0~.Zf}Dq/p0s1r2u3t4Zf(!y6.~/Zf !,!0!08h!y  ʛ/O ^#V|P2QЅӋNTмU͏[x͏ %΀dϕ$}MCV@JΏϘTΏ ˾ʏ(ԏЏ!d~1w=~=Äkd~1 ~@Z~(w@>Ä~1=w\^1G)]s#r#wku7t8ku9t:Zv 9~1(Zn ,w@0ZZZZZ:w@:hw=>À~1w[Oz<(!͒Oqn7f8|>#N#N#Fp+q+q#4#4#4k~?(=~=l k ~    k~nLfMuLtMnNfOuNtO^PVQsPrQZ*u1t2:Äk^#V#~#̓W~̓_*  G ͡Ä͡#w x2 kq#p#zw#{w 0 !!!!k|<("*y:w[͏Ï6/Z~(w0!.u1t2!y]MDkr͏ys1r2q/p0À 0 ( ( ( TÄ~1O! 0 ( 6~G {4XÄN1X~1O<(<(_~ (͡(".*(",> k|(m~@20 C*,|( k*.k!v (".6!%v ",k !w ̷>À!(Y####͚͡*(####Ϳ͚*,|(Ϳ͸*.|ĸ0++++~@:0w@ w@*,|!(^#V+R!",".F#6#mO(6 0(. (/(2(.0q#o&q5Yv(^ͭշYB\v( G&#6!NZF\Z6\ A(Zp\1! 1y=Ug:o]#ddn@:w@Uu@o>_6U|!uUtVnUfVo|!uWtXnWfX6g6Spooler error (Ignore, Abort)з(kJO:=:<v NÀ NÀ N N NÀ N NÀN1F2˸~/Zf @ʏ!,!,O ^#Vz* Yz( !O7=d׷ 7w.w37J͖׷ ͱ<ٷ6دͳ~/Zf(!!DO ~w!. ~@Zn( Z~(Zf 6^(#k~#?(~#<#~[~%wf(]~ƀwZf ~/ w k. #n(s1r2###v( ^>V?utܷ^V N-qZN( ^aVbNc~ds r q w ~)^#Vz(0##~ !#~ #~ #~ #~ #~ 8!YN#Fr+sq#p# ~w#~w#~ w#~ w#~ w#~ wnf NFN-͟ݷ~ ([ S ~w^V YV ~͟w06 6nf NF͹(ͳm{܂ܪڲڂڂ܂ڂ܂iIIvvvcNccQWWWWWWW v^#Vz>N#F#p+q^#V#~#wa~#wb~#wc~wd 6/dk- &u1t2͂~qdOwyĄ>͂f>͂>~\w0Â~0!Bͥ8MY~2<($=(!=!rͥ84(2N]F^B % q2s0d׷ ~4(=O!r͒~4!rͥ8`q4nN]F^ 8I(>w#:G!N#Frk6/du1t2y ~.>###6.>q#p~2!Bͥ8q26.>Ndg !t.>͂>ɯZNQ~0(!=(!B=(!r=(60>k >~0ͥ6.>͈/ɯ2~2/~1!ͥ!/~1ܷͅq1!w#ͥ6~#͟η(< mO ~<7ȯ~N˹q##~#fo >~w !~#<( = (#~w :G!~ ( ####>+~w_ n]f^u]t^((hhh8(h8((8((h@P!F~ f!_++++'!N#F!B( !  ! _R(!V ͲͲ>͈(N!N#F!B(!! # ++ c͖!͏!J066S!N#F!B( ! ͖! J!^#V#N#~#fo !˾!!F#~< +++w͢8 !V{ ~<( >J!6͢!N#F!B(  ͍!N#F!B(  ͍####6#Kq#p#>w#s#r#s#r#w#w#w##w######6 ##N#F+++kb͏!~#<(=(#F!:~#(###= !^#V=7~#fo!"Sy2 # # ́!w#w#MDq#p#q#p#MDq#p#q#pnf ^Vsrut ![R(!~(:0 !Y(Bͼ!![R(!~(:0 !Y( ͼ!4!k|( rÀ!1:! !^#V)!"Yѷ"6#z !-:w<2! +p+qMD!q#p!s#r#q#p!rk k_y ^#V!sF1h!v 7( {FM!M!"{FQ7˾(7~˶!!~˾!"54>k|(* s#r!"s1:*!*!9͠[!R(^#V#E##*|(! ~=aw!!":(!˶*"{*#"*#"!K"x!^#V!R!^#VBr+s(0##^#V+++!! !>͓5##͓~4###^#Vy ####*####v ~#fos#rkYyÀ"<R0S!B^#V!BR('+V+^*<##R(58*@R8S@">*>|( ![@R0 +r+s[<'*:[<R>B":?s#r#k">!B^#V!BR(U*>+F+N R(+V+^K> B(+V+^## DM*>+p+q*>+F+N+V+^ s#r#*>!B^#V!BR*:R +V+^##":~#<(= ~# ~ xD##>)))))))'d  R0y 0OXN#F#^#V+++q#p+}|##~#foN#Fr+sq#p+ _ W| }##s#rf?u>t?n1f2n3f4u3t4w.w3!Rog_;;| 72mh!$"|!w:p !,/0!08%h!_ rʠֆ!q O ^#V|k !! 6 ̷ 'S8 ̷ r͖=(> w.Ͳ!:i> *:+++KBRͲZF(!i45(!(s1G{:i1Gc!\*>è~1(# :i*:+++[R8[R8 2i:i>À -5dFjXh // #; U[nc2*rV c: *r c!N*r"z*z"r:o<[c![j!*rSr!i !k!c*rh>o>p2nͫ*vR0![v"vSKB:nOcKvx __!_?ѷJ_?J[!"* N#Fx !*rSrͮ=cSr͠*r͠"rE||1G*>*r| *r|Sr*r:د2o[S[!!"|* 1*j!;:lZF( *j:i ]!{=_ZF( :i({2ls\>ZF(:i:l~\J͖׷ Uͱ K<ٷ E~. "v( S0w6v(r͖Vͳ7ͳ6.ͲJw0͖׷ >ͱ 4<ٷ .6v(r͖Vͳ(7ͳ63ÖͲ~/"̻JG>r͖ѷ I͖ ͱ %~<w~/"<ٷ 6 w3w3ͳ~/"Ö:Ä~12!}(7jay^=Ä!|(7jy^==)!ys#r#^=+w#G7w#(w#s#r#i&)= +s#r#7 r#s###q#pk)0 k6#dqyֆ!F ɉw"R9X^k!*:w3~12:^#V!k^#V{N( (M=(JN!H~ 5N:GNOͫN:GNN!I~ON~#6 !S~{((5>>>:QO!Rqo!T:R>!!T![X~8{((5gN:ZON{( =(.=*=ʴ=== xKt*r(K*xN>x 3*t|(+"t*r~#*l+Kn R0YPSr!v4!y*|(+"*~#*+K R0YPS!4!x> :x@(y>:@(y>x> )(:x@((yy2wo!(:@((yy2o!>:x@(:w!!>:@(:!!sF1hO{FMG!xnO~(˹:" *p"r!"t*l[tRSt*pq#*l+Kn R0YPSpv!yͬG!nO~(˹:" *"!"*[RS*q#*+K R0YPS!ͬ=x!x(!qyOx:k( Gy2k!xx(!~>y(q(Wx(>yQx(>yPZ(Zy(=()!̓@p#!˾v(˶!!!~( !̓F!> sF1h> !!{Fu*y #"~s1'ͨ>{">2!"2!"w#s#r2P!"Q!{>{>s1!>!>!"!"!" !">ͻ{s1͓>{s1>{s1>{v@DJD@WOZ_ekoúý2. %YYY+C CPYL!"_P=)!Kx( 0< [0<"2`i($/$)$TurboDOS 1.40, Copyright 1984, Software 2000, Inc. $@! \c "CC:o&###r"w:r=o& I :O(G!r͔:P(G!r12͉ͨͨͨ"HͨͨÄ>2ͣG@è^G>>>>O! s#r+}! }2!" ! ! *\r"^"`"b*ur"w"y"{D!rͻ:rG!v:(####+:w>!û:G} I>s;{7"=*9ͦ:Ee*={;ɷ( }2F( :Fͨ߯ɷym=(J=(M=(D=(G((9=((t(s!(t}¯2G"{(8:Go <2Goķͷ>Yf { (i(:(K ͆(!{ 0 Y6U4Rͯ//(7=(:ѷ{<({2Iz(!2H:2Iz :S?SA2G ͨ>@Ĩ!G6 *7| s7"9{7*96;ͦ$n ͡(ͣͣ͡:G:(G:_:W͏{7*9{7*9!E~6ͨ ͡<( >ͦ>2!"2P!"Q ɇO2͸*[5RF!!"?"ACZYf ,>ͦͨ:H_:I_ >@è!|>+r+s+w"2::E*##R>2E*[CRSeZ*?|*A|e{;*=>'d  R0y 0_ Ò~( =(=(:úOReaOWrit ONot readO error, Drive:~AOq~(DO, Track:nfO, Sector:nf^Vz( O -O (Retry,~( OIgnore,OAbort)Ϸ(..̈́cO:đ:=~:<$n. &/ 0:y0,A:~ g!~(76r(0*##~#2~#2~#( OS2!~6 [ .#~}O#"̈́ 6ͮ*"6NS: '!~ 6C#6O#6M.:$(:"́2^!6.#"6|*6+|:~;:7~7#c# !"> > _::  >æ̈́^#V#~#fo~!~ȯw1w2 !͑,8B( (I87(!.(?:(B!,8!(/ I8 $kb I8 !!!Ò>(G!~#08:030O:<(>2:G88888 0 2x=("A8Q0@O: y2:= =2ZI(:.*(w#6?# (8=(,( O:(yc̈́| s1r26#͓͑6#6 #!~(# (!V:w+ ^qs#r~1< ~=2H~@2I ̈́|(/~™N#:0O[yS̈́!6brn(@~(~( #! r #####:w#:w#qy(#*!:2!6!"~!:^#V+R*|:>2:>!!Fˆ>N  n :_/!ί>ͦͦ!~1 ˎ:<=_æZZ!9u5t6ͨ2è~.ZfZ ~.ZfZ"͋̈́n/f0*ͫ"u/t0u1t2͒t.Zu Z*n5f6Zf 6.63n9f:|(n3f4^1V2N/F0~.Zf}Dq/p0s1r2u3t4Zf(!͒6..~/Zf !,!0!208h!  6ʴͨO ^#V|iKjΘΞҤgmn̨t ̨&4>̙}ͮ=Ζf\oYc̨ αm̨$ȨAҨ*Ψ!}~1w=~=Ý̈́}~1 ~@Z~(w@>Ý~1=w\^13G)vs#r#ẅ́u7t8̈́u9t:Zv 9~1(Zn ,w@0ZZZZZ:w@:w=>Ù~1w[Oz<(!ͫOqn7f8|>1#N#N#Fp+q+q1#4#4#4̈́~?(=~=l ̈́ ~    ̈́~nLfMuLtMnNfOuNtO^PVQsPrQZ*uu1t2:Ý̈́^#V#~#͜W~͜_*  3G ͺÝͺ#w 3x2 ̈́q#p#zw#{w 0 !!!!̈́|<("*Ò:w[ͨè6/Z~(w0!.u1t2!ÒvMD̈́͋ͨ͒s1r2q/p0Ù 0 ( ( ( mÝ~1O! 0 ( 6~G ͔4qÝN1q~1O<(<(_~ (ͺ("*"> ̈́|(m~@2 C*|( ̈́*̈́!͏ ("6!%͏ "̈́ !w%ʷ͘ >Ù!2r####ͺͳ*####ͳ*|(*|0++++~@:w@%w@*|!^#V+R!""F#6#͆O(6 0(. (/(2(.0q#o&q5Yv(^ӷY[u͏<ʆY6<Yn(YYv ͲͶ N<[uYvYnͲP)V< 35P>( G&#6):NZF\Z6\%A(Zp\J5:%Jy=ng:Io3v#}}n@:Iw@nu@͈>_6n|!uUtVnUfV͈|!uWtXnWfXÒOSpooler error (Ignore, Abort)Ϸ(..̈́cO:=:<Ï%-Ù%-Ù%-%-%-Ù%-%-ÙN1F2˸~/Zf @ʨ!*,!,O ^#Vz*s&Yz( !h7=}շ 7w.w37cͯշ U׷O֯~/Zf(!-!]O ~w!. ~@Zn( Z~(Zf 6^(#̈́~#?(~#<#~[~%wf(v~ƀwZf ~/ Ð ̈́. #n(s1r2###v( ^>V?utڷ^V N-qZN( ^aVbNc~ds r q w ~B^#Vz(0##~ !#~ #~ #~ #~ #~ 8! rN#Fr+sq#p#~w#~w#~ w#~ w#~ w#~ wnf NFN-͸۷~ ([ S ~w^V YV ~͸wI6 6nf NF(ÆÔڛ؛؛ڛ؛ڛقbbڏڏ|g|| jppppppp$ڏ^#Vz>N#F#p+q^#V#~#wa~#wb~#wc~wd&6/}̈́F ?u1t2͛,~q}Owyĝ>͛>͛>~\w0Û~0!;8MY~2<($=(!=!;84(2N]F^B % q2s0}շ ~4(=O!ͫ~4!;8`q4͇N]F^&8I(>w#:rG!uN#F͋̈́6/}u1t2͒ ~.>###6.>'q#p~2!;8q26.>g}g !t.>͛>ɯZNj~0(!=(!=(!=(60>̈́&>~0;6.>͡/ɯ2~2/~1!;!/~1͞ڷq1!w#;6~#͸̷(< ÆO ~<7ȯ~N˹q##~#fo&>~w !~#<( = (#~w :rG!v~ ( ####>+~w_ n]f^u]t^((hhh8(h8((8((h@P!vF~  ![x++++'!iN#F!iB( !m  !i2 xR(!V >}͡(N!eN#F!eB(!! # ++ cͯ!e2ͨ![cI66S!iN#F!iB( ! ͯ!i2 c!^#V#N#~#fo !˾!!F#~< +++wͻ8 !V̔ޯ ~<(& >c!6ͻ!eN#F!eB(  ͦ!iN#F!iB(  ͦ####6#Kuq#p#>w#s#r#s#r#w#w#w##w######6 ##N#F+++kbͨ!~#<(=(#F!v:r~#(###= !^#V=7~#fo!"mSpy2o # # ͚!mw#w#MDq#p#q#p#MDq#p#q#pnf ^Vsrut !S[SR(!Q~(:O0 !rO(B!S2!W[WR(!R~(:P0 !rP( !W24!̈́|( ͋ Ù3!1!$!^#VB!"rѷ"6#z !-:w<2! +p+qMD!q#p!s#r#q#p!͋̈́ ,̈́xÒ ^#V!2s1!v P( {M!M!"{QP˾(P~˶!!~˾!"54>̈́|(* s#r!"s1*!*!9͹[!R(^#V#^##*|(!$~=zw!!":(!˶*"{*#"*#"!K"x!^#V!R!^#VBr+s(0##^#V+++!2!$!>ͬ5##,ͬ~4<##^#Vy ####*####v ~#fos#r̈́r͒Ù"R0S!"#"!^#V!R('+V+^*##R(58*R8S"*|( ![R0 +r+s['*[R>B"Xs#r#̈́"!^#V!R(U*+F+N R(+V+^K B(+V+^## DM*+p+q*+F+N+V+^ s#r#*,!^#V!R*R +V+^##"~#<(= ~# ~ xD##>)))))))'d  R0y 0OqN#F#^#V+++q#p+}|##~#foN#Fr+sq#p+ _ W| }##s#rUN˹q~#a{ !=)n>f?u>t?n1f2n3f4u3t4w.w3!Rog_;;| 72 ́!$"!: !,/0!08%h!x 2ʋ2ʹֆ! O ^#V|̈́ !! 6%ʷ 'l8%ʷ ͋ͯ=(>%w.!:> *+++K5BRZF(!45(!(s1G{:1G|!\*>è~1(# :*+++[5R8[R8 2:>Ù222222222#2222 FN } 222222 _2 2222 22q2222#44HH2222222222%12<222T2222222%2n2222222t22n|2*o |: * |!N*"*" : o>p2 *R0!["S&KB$: O|Kx x2x2!xX2ѷcxXc2[!"* N#Fx !*SV |S͹*͹"^||1G*>*|2%*|2S2*:د2 2tl2t!!"C 1*!: ZF( *: v!{=_ZF( :({2 s\>ZF(:: ~\cͯշ U KU׷ E~. "v( l0wOv(͋ͯVP6.cw0ͯշ > 4U׷ .Ov(͋ͯV(P63ï~/"cG>͋ͯѷ Iͯ  %1~<w~/"U׷ O w3w3~/"ï:Ý~12!3}(7jzÒ^=3Ý!3|(7jÒ^=3=)!(͒s#r#^=3+w#G7w#(w#s#r#i&)= +s#r#7 r#s###q#p̈́)0 3,̈́6#{-( (M=(J-!8~ 5-:7-O͊-:7--!9~O-~#O !C~̹{((5>>>:AO!Bq͈!D:B>!!D!KX~{((5g-:JO-{( =(.= =ʓ=ʽ==xKd*b(K}*{xN>x 3*d|(+"d*b~#*\+K^ R0YPSb!f4!i*}|(+"}*{~#*u+Kw R0YPS{!4!x> :h@(y>:@(y>x> )(:h@((yy2ga͈!o(:@((yy2͈!>:h@(:g!a!o>:@(:!!s1.{MG!hnO~(˹Ͷ: *`"b!"d*\[dRSd*`q#*\+K^ R0YPS`f!i͋G!nO~(˹Ͷ: *y"{!"}*u[}RS}*yq#*u+Kw R0YPSy!͋=x!h(!qyOx:[( Gy2[!hx(!~>y(q(Wx(>yQx(>yPZ(Zy(=()!b@p#!˾v(˶!!!~( !bF!> s1> !!{Î*y #"~wN! ~<(.^%V&:rG!u~# ~###(N !ͫ<(w36~'| ~Yw#~<~(  !uetfneffnjfk$ DSK <-- $Invalid command$Command not found$Insufficient memory$Non-privileged user$ Program terminated due to insufficient memory $\}::COLDSTRTAUTWARMSTRTAUT1$H -PRINT-?000SSWW]]aaeeii@|  FF @kkqq|| Advanced Digital Corp. Banked Super Slave A ready.$ $OSSLAVE SYS37;@DJD@WOZ_ekoúý2. %YYY+CJ CLPYL!"_P=)!KJx( 0< [L0<"o2qN`i($/$)$TurboDOS 1.40, Copyright 1984, Software 2000, Inc. $>s1'>{">2!"2!"w#s#r2P!"Q!{>{>s1!>!>!"!"!" !">ͻ{s1r>{s1>{s1͵>{vJD@WOZ_ekoúý2. %YYY+CJ CLPYL!"_P=)!KJx( 0< [L0<"o2qN`i($/$)$TurboDOS 1.40, Copyright 1984, Software 2000, Inc. $>s1'>{">2!"2!"w#s#r2P!"Q!{>{>bD!c":o&###H"w:-=o&_ : (G!Hj: (G!H͡12͉~\~"H~~Z>2ͣG@~^G>>>>O! s#r+}! }2!^" ! ! *H"""*'H")"+"-D!ͻ:-G!1:(####+:w>!xû:G& !Hq $! Hw#w#]Ts#r#s#r# #s#r _>s{"*|:;*{ɷ( ʩ S2͢( :~ͺܯɷyC=(J=(M=(D=(G((9=((t(s!(tS2"{(8:o <2oč͍>Yf { (i(:{(K \(!v{ 0 Y6U4Rͅ/͹/(7=(:ϽѷϽ{<({2z(!2:A2z :SS2 ~>@~!6 *| s"{*6;|]f$nͷ w(ͷyͷyͷ[wķ:G:(G:_:Wοe{*{*ο!~6~ķ~ w<(͹ >|>2!"2P!V"Q ƇO2͎*[R!!""ZYf ,>|~:_:_ >@~!R>+r+s+w"2::*##R>2*U[R);0*|ʼ*|;{*>'͗͗d͗ ͗ R0y 0_ %V~( =(=(:_Ð%Rea%Writ %Not read% error, Drive:~AOG~(D%, Track:nfͯ%, Sector:nfͯ^Vz( % -ͯ% (Retry,~( %Ignore,%Abort)˷(Z9O:_:{=~ʼ:p<ü$n/ 0:y0A:T g!~(76H(0*##~#2~#2~#( OS!~6 [ #~SO#"Z 6̈́*"ͨ$S: !~ 6C#6O#6M:(:W<)=R:W!\TT_ͷ(ͨ(\͟ͷ( ͨ(l͟*8 {< 0O{=ր2y:=2:( :W2*0S4C: :( :<^!#"|*+|:~;:7~7#9# !"> > _::  >|Z^#V#~#foT!Tůw1w2 !g8B( (87(!.(?:(B!8!(/ 8 $kb 8 !!!h>(G!~#08:030O:<(>2:G88888 0 2x=("A8Q0@O: y2:= =20(:.*(w#6?# (8ͥ=(,( O:(y9Z| s1r26#gi6#6 #!~(# t (!V:w+ ^qͷs#r~1< ~=2~@2öZ|(/~oN#:0O[ySZ!68HD(@T(~( #! H #####:w#:w#qy(#*!!6!"T!^#V+R*|:>2:;ͣ!=!=Fˆ>N  D :<ͣ/!=ί>||!=~1 ˎ:><=_|ZZ͞!9u5t6͜~ͱ~~.ZfZ ~.ZfZ"?aZn/f0*?͞ͱ́"?u/t0u1t2ht.Zu Z*?n5f6Zf 6.63n9f:|(ͨn3f4^1V2N/F0~.Zf}Dq/p0s1r2u3t4Zf(!h6.~/Zf !z,!0!08h!h  ʊ~O ^#V|?!@ntz=C˫˱D~~~~~~~~~Jgt~~~~~~~~ oSʄlʱ<2E/9~~~ʇC~̷ƭ~~~~~~~~Ϣ1w~~!S~1w=~=sZS~1 ~@Z~(w@>s~1=w\^1 G)Ls#r#wZu7t8Zu9t:Zv 9~1(Zn ,w@0ZZZZZ:Aw@:w=>o~1w[Oz<(!ĆOqn7f8|>#N#N#Fp+q+q#4#4#4Z~?(=~=l Z ~    Z~nLfMuLtMnNfOuNtO^PVQsPrQZ*0u1t2:ssZ^#V#~#rW~r_*  G ͐s͐#w x2 Zq#p#zͰw#{Ͱw 0 !!!!Z|<("t*th:Bw[~~6/Z~(w0!.u1t2!hLMDZa~hs1r2q/p0o 0 ( ( ( Cs~1O!v 0 ( 6~G j4GsN1G~1O<(<(_~ (͐("*"> Z|(m~@2 C*|( Z*Z!e ("6!%e "Z !wƷn>o!H####͉͐*####͉ͮ*|(ͮͧ*|ħ0++++~@:w@w@*|!^#V+R!""F#6#\O(6 0(. (/(2(.0q#W6Yv!!H;=!4~:860+D~To&q5Yv(^͜зY1Ke<\Y6<Yn(YYv ͈͌ ͜N<1KYvYn͈&V< &>( G&#6NZF\Z6\A(Zp\  y=Dg:o L#SSn@:w@Du@^>_6D|!uUtVnUfV^|!uWtXnWfX%V%Spooler error (Ignore, Abort)˷(Z9O:=:~<eooooN1F2˸~/Zf @~!,!,O ^#Vz*.Yz( !>7=Sҷ 7w.w379ͅҷ ͠+Է%ӯ͢~/Zf(!!3O ~w!. ~@Zn( Z~(Zf 6^(#Z~#?(~#<#~[~%wf(L~ƀwZf ~/ f Z. #n(s1r2###v( ^>V?ut͵׷^V N-qZN( ^aVbNc~ds r q w ~^#Vz(0##~ !#~ #~ #~ #~ #~ 8!H޷N#Fr+sq#p#~w#~w#~ w#~ w#~ w#~ wnf NF͵N-͎ط~ ([ S ~w^V YV ~͎w6 6nf NFͨ(͢\jqqיաqqqqqqX88eeeR=RR@FFFFFFFe^#Vz>N#F#p+q^#V#~#wa~#wb~#wc~wd6/SZ u1t2q~qSOwys>qU>q͸>~\w0q~0!͔8MY~2<($=(!=!͔84(2N]F^B % q2s0Sҷ ~4(=O!́~4!͔8`q4]N]F^8I(Ͳ>w#:-G!0N#FͲaZ6/Su1t2h ~.>###6.>q#p~2!͔8q26.>=Sg !t.>q>ɯZN~@~0(!C=(!=(!=(60>Z>~0͔6.>~~w/ɯ2~2/~1!C͔!C/~1t׷q1!Cw#͔6~#͎ɷ(< \O  ~<7ȯ~N˹q##~#fo>~w !@~#<( = (#~w :-G!1~ ( ####>+~w_ n]f^u]t^((hhh8(h8((8((h@P!1F~ U!N++++'!$N#F!$B( !(  !$ NR(!V ͡͡>&w(N! N#F! B(!! # ++ cͅ! ~!966S!$N#F!$B( ! ͅ!$ 9!^#V#N#~#fo !˾!!F#~< +++w͑8 !Vjۯ ~<(>9!6͑! N#F! B(  |!$N#F!$B(  |####6#K0q#p#>w#s#r#s#r#w#w#w##w######6 ##N#F+++kb~!@~#<(=(#F!1:-~#(###= !^#V=7~#fo!"(S+y2* # # p!(w#w#MDq#p#q#p#MDq#p#q#pnf ^Vsrut ![R(! ~(: 0 !H (Bͫ!![R(! ~(: 0 !H ( ͫ!4!Z|( ao !K1!S!^#V!"Hѷ"6#z !-:Rw<2R! +p+qMD!q#p!s#r#q#p!SaZ ZNh ^#V!_s1!Kv &( ʹ{M!M!S"N{Q&˾(ͺ&~˶!K!K~˾!S"54>Z|(*U s#r!Y"NsP1*P!K*U!9͏[_!_R(^#V#4##*N|(!S~=Pw!S!"N:S(!K˶*U"P{P*I#"I*L#"L!KL"Lx![^#V![R!^#VBr+s(0##^#V+++![!Yݷ!S>͂5##͂~4##^#Vy ####*U####v ~#fos#rZHho"R0S!"#"!^#V!R('+V+^*##R(58*R8S"*|( ![R0 +r+s['*[R>B".s#r#Z"!^#V!R(U*+F+N R(+V+^K B(+V+^## DM*+p+q*+F+N+V+^ s#r#*!^#V!R*R +V+^##"~#<(= ~# ~ xD##>)))))))'d  R0y 0OGN#F#^#V+++q#p+}|##~#foN#Fr+sq#p+ _ W| }##s#r+N˹G~#a{ !=)n>f?u>t?n1f2n3f4u3t4w.w3!~Rog_;;| 72W!$"!f: !r,/0!08%h!N aʏֆ!` O ^#V|Z !! 6Ʒ 'B8Ʒ aͅ=(>w.͡!:> *+++KBR͡ZF(!45(!(s1G{:1GR!\*>è~1(# :*+++[R8[~R8 2:>o$S5YGWn *DJͺnR2*E R: ͺ* R!N*"*":o>p2͚*R0!["SKB:ORKx NN!N.ѷ9N.9[!"* N#Fx !*S͝,RS͏ͽ*͏"4||1G*>*|*|S*:د2JBJ!!" 1*!ͭ:ZF( *: L!{=_ZF( :({2s\>ZF(::~\9ͅҷ U͠ K+Է E~. "v( B0w%v(aͅV͢&͢6.͡9w0ͅҷ >͠ 4+Է .%v(aͅV͢(&͢63Å͡~/"̪9G>aͅѷ Iͅ ͠ %~<w~/"+Է % w3w3͢~/"̹Å:s~12! }(7jPh^= s! |(7jzh^= =)!hs#r#^= +w#G7w#(w#s#r#i&)= +s#r#7 r#s###q#pZ)0  Z6#{( (M=(J!~ 5:O`:!~O~#% !X~̕{((5:O(  {( z=(.=ʲ=<=f=r=ʔxK*(K/*-xN>x 3*|(+"*~#*+K R0YPS!4!*/|(+"/*-~#*'+K) R0YPS-!14!4x> :@(y>:3@(y>x> )(:@((yy2 ^!!(:3@((yy224^!:>:@(:! !!>:3@(:2!4!:s1z{MG!nO~(˹_:{ *"!"*[RS*q#*+K R0YPS!4G!3nO~(˹_:{ *+"-!"/*'[/RS/*+q#*'+K) R0YPS+1!44=x!(!3qyOx: ( Gy2 !x(!3~>y(q(Wx(>yQx(>yPZ(Zy(=()!A @p#!@˾v(˶!Mݯ!G!@~( !M F!Gݯ> s1> !@!A{d*Xy #"X~wN! ~<(.^%V&:-G!0~# ~###(N !Ć<(w6~| ~Yw#~<~(  !uetfneffnjfk ͪYN! ! ~( (wN####^#Vz(͹s#r!!~#w@~w70O'6Ͳ! 6!w#w#w~(<=( =(,6͙OͲ"1!~=('Ͳ A͙6Ͳ!ѷ !!4 #4 #4͉ͪͲ"~(͙Ͳ1?( N! p>ƷDy"D̀">~D#~B[ny"ǹ"yq}o|~B[{ozg}/o|/gN#͛~oZ! z<(ez<(=(=o{(wzo ͹^#VN! ɷ( #~#fo!!O ! ~N! $ DSK <-- $Invalid command$Command not found$Insufficient memory$Non-privileged user$ Program terminated due to insufficient memory $\}COLDSTRTAUTWARMSTRTAUT1$ }-PRINT-?000 $$~~~@UU[[__R  @##66<<CCIIOO||S Advanced Digital Corp. Banked Super Slave B ready.$  $OSSLAVE SYS37;@DJD@WOZ_ekoúý2. %YYY+C CPYL!"_P=)!Kx( 0< [0<"*2, `i($/$)$TurboDOS 1.40, Copyright 1984, Software 2000, Inc. $>s1'͗>{">2!"2!"w#s#r2P!"Q!{>{>s1!>!>!"!"!" !">ͻ{s1>{s1x>{s1^>{vOZ_ekoúý2. %YYY+C CPYL!"_P=)!Kx( 0< [0<"*2, `i($/$)$TurboDOS 1.40, Copyright 1984, Software 2000, Inc. $>s1'͗>{">2!"2!"w#s#r2P!"Q!{>{>s1!>!>!"!"!" !">ͻ{s1bD!c":o&###H"w:-=o&_ : (G!Hj: (G!H͡12͉~\~"H~~Z>2ͣG@~^G>>>>O! s#r+}! }2!^" ! ! *H"""*'H")"+"-D!ͻ:-G!1:(####+:w>!xû:G& !Hq $! Hw#w#]Ts#r#s#r# #s#r _>s{"*|:;*{ɷ( ʩ S2͢( :~ͺܯɷyC=(J=(M=(D=(G((9=((t(s!(tS2"{(8:o <2oč͍>Yf { (i(:{(K \(!v{ 0 Y6U4Rͅ/͹/(7=(:ϽѷϽ{<({2z(!2:A2z :SS2 ~>@~!6 *| s"{*6;|]f$nͷ w(ͷyͷyͷ[wķ:G:(G:_:Wοe{*{*ο!~6~ķ~ w<(͹ >|>2!"2P!V"Q ƇO2͎*[R!!""ZYf ,>|~:_:_ >@~!R>+r+s+w"2::*##R>2*U[R);0*|ʼ*|;{*>'͗͗d͗ ͗ R0y 0_ %V~( =(=(:_Ð%Rea%Writ %Not read% error, Drive:~AOG~(D%, Track:nfͯ%, Sector:nfͯ^Vz( % -ͯ% (Retry,~( %Ignore,%Abort)˷(Z9O:_:{=~ʼ:p<ü$n/ 0:y0A:T g!~(76H(0*##~#2~#2~#( OS!~6 [ #~SO#"Z 6̈́*"ͨ$S: !~ 6C#6O#6M:(:W<)=R:W!\TT_ͷ(ͨ(\͟ͷ( ͨ(l͟*8 {< 0O{=ր2y:=2:( :W2*0S4C: :( :<^!#"|*+|:~;:7~7#9# !"> > _::  >|Z^#V#~#foT!Tůw1w2 !g8B( (87(!.(?:(B!8!(/ 8 $kb 8 !!!h>(G!~#08:030O:<(>2:G88888 0 2x=("A8Q0@O: y2:= =20(:.*(w#6?# (8ͥ=(,( O:(y9Z| s1r26#gi6#6 #!~(# t (!V:w+ ^qͷs#r~1< ~=2~@2öZ|(/~oN#:0O[ySZ!68HD(@T(~( #! H #####:w#:w#qy(#*!!6!"T!^#V+R*|:>2:;ͣ!=!=Fˆ>N  D :<ͣ/!=ί>||!=~1 ˎ:><=_|ZZ͞!9u5t6͜~ͱ~~.ZfZ ~.ZfZ"?aZn/f0*?͞ͱ́"?u/t0u1t2ht.Zu Z*?n5f6Zf 6.63n9f:|(ͨn3f4^1V2N/F0~.Zf}Dq/p0s1r2u3t4Zf(!h6.~/Zf !z,!0!08h!h  ʊ~O ^#V|?!@ntz=C˫˱D~~~~~~~~~Jgt~~~~~~~~ oSʄlʱ<2E/9~~~ʇC~̷ƭ~~~~~~~~Ϣ1w~~!S~1w=~=sZS~1 ~@Z~(w@>s~1=w\^1 G)Ls#r#wZu7t8Zu9t:Zv 9~1(Zn ,w@0ZZZZZ:Aw@:w=>o~1w[Oz<(!ĆOqn7f8|>#N#N#Fp+q+q#4#4#4Z~?(=~=l Z ~    Z~nLfMuLtMnNfOuNtO^PVQsPrQZ*0u1t2:ssZ^#V#~#rW~r_*  G ͐s͐#w x2 Zq#p#zͰw#{Ͱw 0 !!!!Z|<("t*th:Bw[~~6/Z~(w0!.u1t2!hLMDZa~hs1r2q/p0o 0 ( ( ( Cs~1O!v 0 ( 6~G j4GsN1G~1O<(<(_~ (͐("*"> Z|(m~@2 C*|( Z*Z!e ("6!%e "Z !wƷn>o!H####͉͐*####͉ͮ*|(ͮͧ*|ħ0++++~@:w@w@*|!^#V+R!""F#6#\O(6 0(. (/(2(.0q#W6Yv!!H;=!4~:860+D~To&q5Yv(^͜зY1Ke<\Y6<Yn(YYv ͈͌ ͜N<1KYvYn͈&V< &>( G&#6NZF\Z6\A(Zp\  y=Dg:o L#SSn@:w@Du@^>_6D|!uUtVnUfV^|!uWtXnWfX%V%Spooler error (Ignore, Abort)˷(Z9O:=:~<eooooN1F2˸~/Zf @~!,!,O ^#Vz*.Yz( !>7=Sҷ 7w.w379ͅҷ ͠+Է%ӯ͢~/Zf(!!3O ~w!. ~@Zn( Z~(Zf 6^(#Z~#?(~#<#~[~%wf(L~ƀwZf ~/ f Z. #n(s1r2###v( ^>V?ut͵׷^V N-qZN( ^aVbNc~ds r q w ~^#Vz(0##~ !#~ #~ #~ #~ #~ 8!H޷N#Fr+sq#p#~w#~w#~ w#~ w#~ w#~ wnf NF͵N-͎ط~ ([ S ~w^V YV ~͎w6 6nf NFͨ(͢\jqqיաqqqqqqX88eeeR=RR@FFFFFFFe^#Vz>N#F#p+q^#V#~#wa~#wb~#wc~wd6/SZ u1t2q~qSOwys>qU>q͸>~\w0q~0!͔8MY~2<($=(!=!͔84(2N]F^B % q2s0Sҷ ~4(=O!́~4!͔8`q4]N]F^8I(Ͳ>w#:-G!0N#FͲaZ6/Su1t2h ~.>###6.>q#p~2!͔8q26.>=Sg !t.>q>ɯZN~@~0(!C=(!=(!=(60>Z>~0͔6.>~~w/ɯ2~2/~1!C͔!C/~1t׷q1!Cw#͔6~#͎ɷ(< \O  ~<7ȯ~N˹q##~#fo>~w !@~#<( = (#~w :-G!1~ ( ####>+~w_ n]f^u]t^((hhh8(h8((8((h@P!1F~ U!N++++'!$N#F!$B( !(  !$ NR(!V ͡͡>&w(N! N#F! B(!! # ++ cͅ! ~!966S!$N#F!$B( ! ͅ!$ 9!^#V#N#~#fo !˾!!F#~< +++w͑8 !Vjۯ ~<(>9!6͑! N#F! B(  |!$N#F!$B(  |####6#K0q#p#>w#s#r#s#r#w#w#w##w######6 ##N#F+++kb~!@~#<(=(#F!1:-~#(###= !^#V=7~#fo!"(S+y2* # # p!(w#w#MDq#p#q#p#MDq#p#q#pnf ^Vsrut ![R(! ~(: 0 !H (Bͫ!![R(! ~(: 0 !H ( ͫ!4!Z|( ao !K1!S!^#V!"Hѷ"6#z !-:Rw<2R! +p+qMD!q#p!s#r#q#p!SaZ ZNh ^#V!_s1!Kv &( ʹ{M!M!S"N{Q&˾(ͺ&~˶!K!K~˾!S"54>Z|(*U s#r!Y"NsP1*P!K*U!9͏[_!_R(^#V#4##*N|(!S~=Pw!S!"N:S(!K˶*U"P{P*I#"I*L#"L!KL"Lx![^#V![R!^#VBr+s(0##^#V+++![!Yݷ!S>͂5##͂~4##^#Vy ####*U####v ~#fos#rZHho"R0S!"#"!^#V!R('+V+^*##R(58*R8S"*|( ![R0 +r+s['*[R>B".s#r#Z"!^#V!R(U*+F+N R(+V+^K B(+V+^## DM*+p+q*+F+N+V+^ s#r#*!^#V!R*R +V+^##"~#<(= ~# ~ xD##>)))))))'d  R0y 0OGN#F#^#V+++q#p+}|##~#foN#Fr+sq#p+ _ W| }##s#r+N˹G~#a{ !=)n>f?u>t?n1f2n3f4u3t4w.w3!~Rog_;;| 72W!$"!f: !r,/0!08%h!N aʏֆ!` O ^#V|Z !! 6Ʒ 'B8Ʒ aͅ=(>w.͡!:> *+++KBR͡ZF(!45(!(s1G{:1GR!\*>è~1(# :*+++[R8[~R8 2:>o$S5YGWn *DJͺnR2*E R: ͺ* R!N*"*":o>p2͚*R0!["SKB:ORKx NN!N.ѷ9N.9[!"* N#Fx !*S͝,RS͏ͽ*͏"4||1G*>*|*|S*:د2JBJ!!" 1*!ͭ:ZF( *: L!{=_ZF( :({2s\>ZF(::~\9ͅҷ U͠ K+Է E~. "v( B0w%v(aͅV͢&͢6.͡9w0ͅҷ >͠ 4+Է .%v(aͅV͢(&͢63Å͡~/"̪9G>aͅѷ Iͅ ͠ %~<w~/"+Է % w3w3͢~/"̹Å:s~12! }(7jPh^= s! |(7jzh^= =)!hs#r#^= +w#G7w#(w#s#r#i&)= +s#r#7 r#s###q#pZ)0  Z6#{( (M=(J!~ 5:O`:!~O~#% !X~̕{((5:O(  {( z=(.=ʲ=<=f=r=ʔxK*(K/*-xN>x 3*|(+"*~#*+K R0YPS!4!*/|(+"/*-~#*'+K) R0YPS-!14!4x> :@(y>:3@(y>x> )(:@((yy2 ^!!(:3@((yy224^!:>:@(:! !!>:3@(:2!4!:s1z{MG!nO~(˹_:{ *"!"*[RS*q#*+K R0YPS!4G!3nO~(˹_:{ *+"-!"/*'[/RS/*+q#*'+K) R0YPS+1!44=x!(!3qyOx: ( Gy2 !x(!3~>y(q(Wx(>yQx(>yPZ(Zy(=()!A @p#!@˾v(˶!Mݯ!G!@~( !M F!Gݯ> s1> !@!A{d*Xy #"X~wN! ~<(.^%V&:-G!0~# ~###(N !Ć<(w6~| ~Yw#~<~(  !uetfneffnjfk ͪYN! ! ~( (wN####^#Vz(͹s#r!!~#w@~w70O'6Ͳ! 6!w#w#w~(<=( =(,6͙OͲ"1!~=('Ͳ A͙6Ͳ!ѷ !!4 #4 #4͉ͪͲ"~(͙Ͳ1?( N! p>ƷDy"D̀">~D#~B[ny"ǹ"yq}o|~B[{ozg}/o|/gN#͛~oZ! z<(ez<(=(=o{(wzo ͹^#VN! ɷ( #~#fo!!O ! ~N! $ DSK <-- $Invalid command$Command not found$Insufficient memory$Non-privileged user$ Program terminated due to insufficient memory $\}COLDSTRTAUTWARMSTRTAUT1$ }-PRINT-?000 $$~~~@UU[[__R  @##66<<CCIIOO||S Advanced Digital Corp. Banked Super Slave C ready.$  $OSSLAVE SYS37;@DJD@WOZ_ekoúý2. %YYY+C CPYL!"_P=)!Kx( 0< [0<"*2, `i($/$)$TurboDOS 1.40, Copyright 1984, Software 2000, Inc. $>s1'͗>{">2!"2!"w#s#r2P!"Q!{>{>s1!>!>!"!"!" !">ͻ{s1>{s1x>{s1^>{vOZ_ekoúý2. %YYY+C CPYL!"_P=)!Kx( 0< [0<"*2, `i($/$)$TurboDOS 1.40, Copyright 1984, Software 2000, Inc. $>s1'͗>{">2!"2!"w#s#r2P!"Q!{>{>s1!>!>!"!"!" !">ͻ{s1bD!c":o&###H"w:-=o&_ : (G!Hj: (G!H͡12͉~\~"H~~Z>2ͣG@~^G>>>>O! s#r+}! }2!^" ! ! *H"""*'H")"+"-D!ͻ:-G!1:(####+:w>!xû:G& !Hq $! Hw#w#]Ts#r#s#r# #s#r _>s{"*|:;*{ɷ( ʩ S2͢( :~ͺܯɷyC=(J=(M=(D=(G((9=((t(s!(tS2"{(8:o <2oč͍>Yf { (i(:{(K \(!v{ 0 Y6U4Rͅ/͹/(7=(:ϽѷϽ{<({2z(!2:A2z :SS2 ~>@~!6 *| s"{*6;|]f$nͷ w(ͷyͷyͷ[wķ:G:(G:_:Wοe{*{*ο!~6~ķ~ w<(͹ >|>2!"2P!V"Q ƇO2͎*[R!!""ZYf ,>|~:_:_ >@~!R>+r+s+w"2::*##R>2*U[R);0*|ʼ*|;{*>'͗͗d͗ ͗ R0y 0_ %V~( =(=(:_Ð%Rea%Writ %Not read% error, Drive:~AOG~(D%, Track:nfͯ%, Sector:nfͯ^Vz( % -ͯ% (Retry,~( %Ignore,%Abort)˷(Z9O:_:{=~ʼ:p<ü$n/ 0:y0A:T g!~(76H(0*##~#2~#2~#( OS!~6 [ #~SO#"Z 6̈́*"ͨ$S: !~ 6C#6O#6M:(:W<)=R:W!\TT_ͷ(ͨ(\͟ͷ( ͨ(l͟*8 {< 0O{=ր2y:=2:( :W2*0S4C: :( :<^!#"|*+|:~;:7~7#9# !"> > _::  >|Z^#V#~#foT!Tůw1w2 !g8B( (87(!.(?:(B!8!(/ 8 $kb 8 !!!h>(G!~#08:030O:<(>2:G88888 0 2x=("A8Q0@O: y2:= =20(:.*(w#6?# (8ͥ=(,( O:(y9Z| s1r26#gi6#6 #!~(# t (!V:w+ ^qͷs#r~1< ~=2~@2öZ|(/~oN#:0O[ySZ!68HD(@T(~( #! H #####:w#:w#qy(#*!!6!"T!^#V+R*|:>2:;ͣ!=!=Fˆ>N  D :<ͣ/!=ί>||!=~1 ˎ:><=_|ZZ͞!9u5t6͜~ͱ~~.ZfZ ~.ZfZ"?aZn/f0*?͞ͱ́"?u/t0u1t2ht.Zu Z*?n5f6Zf 6.63n9f:|(ͨn3f4^1V2N/F0~.Zf}Dq/p0s1r2u3t4Zf(!h6.~/Zf !z,!0!08h!h  ʊ~O ^#V|?!@ntz=C˫˱D~~~~~~~~~Jgt~~~~~~~~ oSʄlʱ<2E/9~~~ʇC~̷ƭ~~~~~~~~Ϣ1w~~!S~1w=~=sZS~1 ~@Z~(w@>s~1=w\^1 G)Ls#r#wZu7t8Zu9t:Zv 9~1(Zn ,w@0ZZZZZ:Aw@:w=>o~1w[Oz<(!ĆOqn7f8|>#N#N#Fp+q+q#4#4#4Z~?(=~=l Z ~    Z~nLfMuLtMnNfOuNtO^PVQsPrQZ*0u1t2:ssZ^#V#~#rW~r_*  G ͐s͐#w x2 Zq#p#zͰw#{Ͱw 0 !!!!Z|<("t*th:Bw[~~6/Z~(w0!.u1t2!hLMDZa~hs1r2q/p0o 0 ( ( ( Cs~1O!v 0 ( 6~G j4GsN1G~1O<(<(_~ (͐("*"> Z|(m~@2 C*|( Z*Z!e ("6!%e "Z !wƷn>o!H####͉͐*####͉ͮ*|(ͮͧ*|ħ0++++~@:w@w@*|!^#V+R!""F#6#\O(6 0(. (/(2(.0q#W6Yv!!H;=!4~:860+D~To&q5Yv(^͜зY1Ke<\Y6<Yn(YYv ͈͌ ͜N<1KYvYn͈&V< &>( G&#6NZF\Z6\A(Zp\  y=Dg:o L#SSn@:w@Du@^>_6D|!uUtVnUfV^|!uWtXnWfX%V%Spooler error (Ignore, Abort)˷(Z9O:=:~<eooooN1F2˸~/Zf @~!,!,O ^#Vz*.Yz( !>7=Sҷ 7w.w379ͅҷ ͠+Է%ӯ͢~/Zf(!!3O ~w!. ~@Zn( Z~(Zf 6^(#Z~#?(~#<#~[~%wf(L~ƀwZf ~/ f Z. #n(s1r2###v( ^>V?ut͵׷^V N-qZN( ^aVbNc~ds r q w ~^#Vz(0##~ !#~ #~ #~ #~ #~ 8!H޷N#Fr+sq#p#~w#~w#~ w#~ w#~ w#~ wnf NF͵N-͎ط~ ([ S ~w^V YV ~͎w6 6nf NFͨ(͢\jqqיաqqqqqqX88eeeR=RR@FFFFFFFe^#Vz>N#F#p+q^#V#~#wa~#wb~#wc~wd6/SZ u1t2q~qSOwys>qU>q͸>~\w0q~0!͔8MY~2<($=(!=!͔84(2N]F^B % q2s0Sҷ ~4(=O!́~4!͔8`q4]N]F^8I(Ͳ>w#:-G!0N#FͲaZ6/Su1t2h ~.>###6.>q#p~2!͔8q26.>=Sg !t.>q>ɯZN~@~0(!C=(!=(!=(60>Z>~0͔6.>~~w/ɯ2~2/~1!C͔!C/~1t׷q1!Cw#͔6~#͎ɷ(< \O  ~<7ȯ~N˹q##~#fo>~w !@~#<( = (#~w :-G!1~ ( ####>+~w_ n]f^u]t^((hhh8(h8((8((h@P!1F~ U!N++++'!$N#F!$B( !(  !$ NR(!V ͡͡>&w(N! N#F! B(!! # ++ cͅ! ~!966S!$N#F!$B( ! ͅ!$ 9!^#V#N#~#fo !˾!!F#~< +++w͑8 !Vjۯ ~<(>9!6͑! N#F! B(  |!$N#F!$B(  |####6#K0q#p#>w#s#r#s#r#w#w#w##w######6 ##N#F+++kb~!@~#<(=(#F!1:-~#(###= !^#V=7~#fo!"(S+y2* # # p!(w#w#MDq#p#q#p#MDq#p#q#pnf ^Vsrut ![R(! ~(: 0 !H (Bͫ!![R(! ~(: 0 !H ( ͫ!4!Z|( ao !K1!S!^#V!"Hѷ"6#z !-:Rw<2R! +p+qMD!q#p!s#r#q#p!SaZ ZNh ^#V!_s1!Kv &( ʹ{M!M!S"N{Q&˾(ͺ&~˶!K!K~˾!S"54>Z|(*U s#r!Y"NsP1*P!K*U!9͏[_!_R(^#V#4##*N|(!S~=Pw!S!"N:S(!K˶*U"P{P*I#"I*L#"L!KL"Lx![^#V![R!^#VBr+s(0##^#V+++![!Yݷ!S>͂5##͂~4##^#Vy ####*U####v ~#fos#rZHho"R0S!"#"!^#V!R('+V+^*##R(58*R8S"*|( ![R0 +r+s['*[R>B".s#r#Z"!^#V!R(U*+F+N R(+V+^K B(+V+^## DM*+p+q*+F+N+V+^ s#r#*!^#V!R*R +V+^##"~#<(= ~# ~ xD##>)))))))'d  R0y 0OGN#F#^#V+++q#p+}|##~#foN#Fr+sq#p+ _ W| }##s#r+N˹G~#a{ !=)n>f?u>t?n1f2n3f4u3t4w.w3!~Rog_;;| 72W!$"!f: !r,/0!08%h!N aʏֆ!` O ^#V|Z !! 6Ʒ 'B8Ʒ aͅ=(>w.͡!:> *+++KBR͡ZF(!45(!(s1G{:1GR!\*>è~1(# :*+++[R8[~R8 2:>o$S5YGWn *DJͺnR2*E R: ͺ* R!N*"*":o>p2͚*R0!["SKB:ORKx NN!N.ѷ9N.9[!"* N#Fx !*S͝,RS͏ͽ*͏"4||1G*>*|*|S*:د2JBJ!!" 1*!ͭ:ZF( *: L!{=_ZF( :({2s\>ZF(::~\9ͅҷ U͠ K+Է E~. "v( B0w%v(aͅV͢&͢6.͡9w0ͅҷ >͠ 4+Է .%v(aͅV͢(&͢63Å͡~/"̪9G>aͅѷ Iͅ ͠ %~<w~/"+Է % w3w3͢~/"̹Å:s~12! }(7jPh^= s! |(7jzh^= =)!hs#r#^= +w#G7w#(w#s#r#i&)= +s#r#7 r#s###q#pZ)0  Z6#{( (M=(J!~ 5:O`:!~O~#% !X~̕{((5:O(  {( z=(.=ʲ=<=f=r=ʔxK*(K/*-xN>x 3*|(+"*~#*+K R0YPS!4!*/|(+"/*-~#*'+K) R0YPS-!14!4x> :@(y>:3@(y>x> )(:@((yy2 ^!!(:3@((yy224^!:>:@(:! !!>:3@(:2!4!:s1z{MG!nO~(˹_:{ *"!"*[RS*q#*+K R0YPS!4G!3nO~(˹_:{ *+"-!"/*'[/RS/*+q#*'+K) R0YPS+1!44=x!(!3qyOx: ( Gy2 !x(!3~>y(q(Wx(>yQx(>yPZ(Zy(=()!A @p#!@˾v(˶!Mݯ!G!@~( !M F!Gݯ> s1> !@!A{d*Xy #"X~wN! ~<(.^%V&:-G!0~# ~###(N !Ć<(w6~| ~Yw#~<~(  !uetfneffnjfk ͪYN! ! ~( (wN####^#Vz(͹s#r!!~#w@~w70O'6Ͳ! 6!w#w#w~(<=( =(,6͙OͲ"1!~=('Ͳ A͙6Ͳ!ѷ !!4 #4 #4͉ͪͲ"~(͙Ͳ1?( N! p>ƷDy"D̀">~D#~B[ny"ǹ"yq}o|~B[{ozg}/o|/gN#͛~oZ! z<(ez<(=(=o{(wzo ͹^#VN! ɷ( #~#fo!!O ! ~N! $ DSK <-- $Invalid command$Command not found$Insufficient memory$Non-privileged user$ Program terminated due to insufficient memory $\}COLDSTRTAUTWARMSTRTAUT1$ }-PRINT-?000 $$~~~@UU[[__R  @##66<<CCIIOO||S Advanced Digital Corp. Banked Super Slave D ready.$  $OSSLAVE SYS37;@DJD@WOZ_ekoúý2. %YYY+C CPYL!"_P=)!Kx( 0< [0<"*2, `i($/$)$TurboDOS 1.40, Copyright 1984, Software 2000, Inc. $>s1'͗>{">2!"2!"w#s#r2P!"Q!{>{>s1!>!>!"!"!" !">ͻ{s1>{s1x>{s1^>{vOZ_ekoúý2. %YYY+C CPYL!"_P=)!Kx( 0< [0<"*2, `i($/$)$TurboDOS 1.40, Copyright 1984, Software 2000, Inc. $>s1'͗>{">2!"2!"w#s#r2P!"Q!{>{>s1!>!>!"!"!" !">ͻ{s1< COPYRIGHT 1984, SOFTWARE 2000, INC. (VERSION 01/15/84) 1$  2l 2m ^͈ͲOG;(iO:~i !k :k(:i2m :] :e !] 6?#>?2h6P(~2s ==G72u "n Sp y2r +|2t 6K <(: :< ![ _ P x2 {2 z2 " :\=B_!k ˎ !" " " *$ Sx R "v :S \ȇ_!~"  !A^#:t (V#z(#" !"z "| * |(b"~ *~ [| R<"z ͺ[  O~# *z ͺ ^#VK r+sê*z 8"~ "| #"z *~ [| R * |(+" * *R8h* [z R()* ]T+* *  [ s#r*z [ s#rS * K " K B8" Ñ!k ˎ<<<  %* |" !" !k ˆ[ :u !8 = R8!k :k G>(=2 !k N != K B8: O* +B0S * " " " (: G!   :k G(    * |* +" | 6 ( :G%:k G* (* " ^#Vr+s[ R06ͺ#^#V:u G!2 0<O:k Gy(Ni͖* +" ##(!\   !!g ~(  (H)     *p |<(͛ͨ  (2 * V;* +|    :m o&2 q:\=A !]  *   :u G!2 0<N͖ * a: (* * &+T]~# :   >*!R!|D)0)0>2 x0~#foKv )) ))Kx :m :l _ѻ ѻ/  ~#!k N 0(__a{ L  to Continue  REMAININ  DISK READ ONL  FIL  DISPLAYE  Insufficient memory JanFebMarAprMayJunJulAugSepOctNovDec  Network error  Non-privileged user ? AB02 } : =<<:  x2s !r^R#8( 2 2 2 y2 }2 :  :  : / :x ~(   ~#:k O:G ͓@B͓͓̀'͓͓̀d͓ ͓}0: (  R0x : >2 x0~#foKv )) ))Kx :m :l _ѻ ѻ/  ~#!k N 0(__a{ L  to Continue  REMAININ  DISK READ ONL  FIL  DISPLAYE  Insufficient memory JanFebMarAp:COPYRIGHT 1984, SOFTWARE 2000, INC. (VERSION 04/04/84) 1X!~(G#~!8 xH  :ʧG!"!~#;(H (;,(7:(3*('A8,0(A0;<a{ N͏ Enter drive(s) to be changed:͏ Invalid drive(s) requested ͏ Following drive(s) in use: ͏ Change drive(s)͏ Enter when change complete͏ Unable to free drive(s): ͕~#;(_$/p0o 0 ( ( ( Cs~1O!v 0 ( 6~G j4GsN1G~1O<(<(_*( Kw0D {w0:}0 4O:t0y(=<8 ` K*(wX7&>: !}0 :!\}0~ (~ ( Copyright 1984, Software 2000, Inc. h%~~o%h%  *#1.$*r0R~/w/w(+"r0*r0| f*r0|?</ 0y:r!v06*r0&R"y0=:v0 !=[y0'!3:v0 ́~/w/wdd#| R  ͎ͳ!v068fo8`g"y08Wo8Qg"{0͟*y0ͳͱ*y0[{0ͳ͹*{0ͳ8+*r0|(R8 [{0*y08w #z BB78~!!15 60}07!!1[!1Rɯ!0w#<2!1}0<}0:}0=WA!~0n~#!'͜͜d͜ ͜ R0y 0|ͺ} 80~#_OSMASTERSYS!4"#1b3E;$.3'[#1"#1Fatal error loading O/S: to retry not founTestingK of memorno errorBad Memory @ loading from to, size, unexpected end-of-fil, not enough memor, bad memorZZ!9u5t6o%>0s#ð~.ZfZ ~.ZfZ"1R%K%n/f0*1ͳ"1u/t0u1t2Y%t.Zu Z*1n5f6Zf 6.63n9f:|(o%n3f4^1V2N/F0~.Zf}Dq/p0s1r2u3t4Zf(!Y%6.o%~/Zf !,!0!:08h!  o%!o%O ^#V|!""""o%"o%o%###!hH " $ o%o%o% o%G e 1o% o%o%o%!!o%.""#5#o%@"o%#o%o%o%o%!o%o%3L"o+lo%o%o%o/Ho%Zo%o%o%o%o%o%o%o%o%o%o%o%o%k"No%B d%o%ͬ(o%X(5o%ͬ 'K% ~(o%o% ~< ~wo%>Zn~@o% ̀[Fo%d%o%|vN++~˾o%o%~@i(6@ w@K%[u1t2 ͬF/d%vͅ7K%~? wl=B=%K%#~@ w#ɷd%* ͑}w3}oͬ=%ͧZ~8` o%d%>o%'͚ 1͚ͧ "ZVo% 68ͧ3Yͼ Oy (0'o%=%F\ ~3 =%D%D% Ao%>84 "| ,o%I ͬ> o%6 4 d%=%F\E ~3 =%D%D% d%o%>8m "| eo%I M ͬ: ;o%o% Co% :4o%| -o%I ͬ:  o%6w3 6d%o%o%4~ >w##4<(7#˾Bo% (ͬ o% K% #˾: o%o%>d%( ( ~8A o%d%o%͚ ͚ͧ o%   ͑~x  ~w(x=(#?(M [ 4(NxFz͢pz~x?(`/wxͬͼ( ~x?V o%K% ~8 o%d%>o%͚< o%K%#ͧ# ˾x880#[N( wͼ o% %=%͒F\i ~3 X ͡D% 8( ͬ> Yo%d% %=%͒F\ͩ ~3 X ͡D% d%(ͬ:> o%o%d%o%o%w3~iw~hw~gwo%7I ~wi#~+w#~#~G~#O>>~Ox ##y|>7o%p##q=~wg~wh=%D%ìd%(swgwhwi~@͚ ͧͼ w3("Zn(:~@(46@͚ +ͧ ~ nˮo%(o%(w@fi^hVgX=(n&ͳG)MDa~g8++~h8###~i8~wg++~wh###~wi~^##Vg{怄O>G{GzGz_>#q#p#wo%'8u~8# ͤ s1r2ͳY%~w/~`%nfY%~w1~w2~w/~w0~`%~1͛!3%[142()~1o%ѷ`%52 }/o|/g"1{ozg"1{Oz(>g~1w6o%<oY%ͅ8w6'8T`%͝~(`%͑`%(ͬ8ͅˮo% o%o%7͢6x6z(D<6x?~x?(O`ͧ 16͑*Fͬ/*F1 çͅK%͚>o%͑#| 5 Jͧ~@n(K%# ~##~X8w###6V~o%(*o%  Vo%O`/Gn&)))))}oD()= ˾##6#6#y=(n&ͳ+R8 s#̓(r#ݯ>###> wͧK%## #˿##~o%(BK%͚ @ 7ͅ82͚ͧ ( K% X8###w˾o%n6l~@K%#M+ͬNl6l1ͅql͘X1v(c)8:!"1! b+b#O`/ݦx_{(*1|g}oR0+ͬ1*zF8 vͬ͝~(9x(((( #(~(Q(K#(`/O :#˯~0+~lM ͑[Y^( >wAwB~l?ÅO?^CVDD( ~l?(sCrDnEfF|!uEtF~O*1 )"1YD= ͙͢1~#͛!O ?' +  )###4y !+++̓ y/OG(6"~8=)))0̓(r+sJ!11~#͛!21ͷ!1w#r#sZѯ1 ̓!1RDM!x(6=%u't()ͷ)s$r%w&G)yѳ_N`G<8= K% ̓( ^(#Vz[[([#~([͸~1w#~#o%(6~#v(< Î~#hԽhˇԽͳ+R͑:bk##B8B0! <ͬͧ{_G~  (wìx~ ##~Z~ =K%#$~# ! # yDIRDSKDͅ 6 #6#6#6#6#6#w66ͻ 8(6 ͳ+u~=w> O6ͻ (6^J{ 0%͝~( 3J~86D͝6>7͝~(0 ͑0!͝~  ͬ͝6#>7w~͑ͬ͝~  N###~< =y >ɯ~#͛!_!1~#3%:1o:1>7 ~/ͻط ͝#<_#{ x7NF >8= ɯwAwBRͳ+B0Rn&)= ͑#ì! ^#̓(V#z~?(w#w#wͧ ɯvyO̓y(G7~=~ =nAfBD!( ~l?(+uAtBnf!D%~1w=~=d%K%D%~1 ~@Z~(w@>d%~1=w\^1;G)=%s#r#wK%u7t8K%u9t:Zv 9~1(Zn ,w@0ZZZZZ:1w@:o%w=>`%~1w[Oz<(!2r$Oqn7f8|>#N#N#Fp+q+q#4#4#4K%~?(=~=l K% ~    K%~nLfMuLtMnNfOuNtO^PVQsPrQn!1^#V+R( $+:1(G72121*:1o:1gY%!,3|`%~1o%~1͛!OF2y<( }o|g"1ˀ!1y<( }o|`^#V!1R$dy(#### x uv Ez~=R u~(+ Zup(4h $ƒ͂Æ[1y3%Zx4=y<(8x(4@(x`` )!1 ^#Vz(y~ p+p!1 pj!1^#V!1R( ! ˶@`Î!1^#V!1R͙(d####N#͉w#~#> ##q#~*8>)~>6˾k~p~w 6!:1ݾ06k~v(< +k~#w# ut=Z4Î͂$!6!1$͂$!1$z#z8$ u+t,   ͂n+f,~#Û!*11RK%Z~(1͔!f!~wx!w.~K% ͔!s#r^ V n!~0>`%w6~8&!=t!N F! ~= 8qpn f!͘$!^V~F? ?nf| )R0=T  =v :!R0nf NFq p utsrNF nfR0; ut! ѷn f NF DM!Rut!nf#~wnf^VRx!~v=<(͘$~=!%ut ~_!1^#Vz %6x! ~v( Î͔!r+ss r   6~_!2~~#w^#V^ V _! 2~Z*o%u1t2:L2d%K%^#V#~#!W~!_*  ;G !d%!#w ;x2 K%q#p#z"w#{"w 0 !!!!K%|<("M2*M2Y%:1w[o%o%6/Z~(w0!.u1t2!Y%=%MDK%R%o%Y%s1r2q/p0`%U# 0 ( ( ( ͮ"d%~1O!O2 0 ( 6~G "4ò#U#d%N1ò#~1O<(<(<²# P#P#U#d%K%:P2~#ͮ"K%o%P#d%K%|<(}2P2:P2d%K%^#V#~#foz~#ͮ"#c#KT2̀#P# o%o%TP#:T2o#:Y2OĽ#o#O:U2:V2ʎ:X2(:W2 ~YwYo%Yf(o% ~;=_!Q2F#^#V!`2$K%|"^2!\25$[`2!`2R(^#V#$##~#*Z2#"Z2:\2*^2+"^2|!\24Sd2!""f2!""h26# x {f2*h2*d2M*f2~#<(=$ ~# ~ xD##>)))))))';$;$d;$ ;$ R0y 0OͲ#N#F#^#V+++q#p+}|##~#foN#Fr+sq#p+ _ W| }##s#r%N˹Ͳ#~#a{ !=)n>f?u>t?n1f2n3f4u3t4w.w3!o%Rog_%;;| 7{_-( (M=(J_-!2~ 5_-:2_-O%_-:2_-_-!2~O_-~#% !2#&!28$s2~(=(3=ʬ'=[(=(m> 22& 'Q'> )Z' :2t'> 22& 6'Q'> )Z' :2 & 'Q'z3)Z' :2t'> 22͔(¥':2~ ˟~(22~G( ( n f "2nf +"2> )t'~22~22n f "2F!@)+"222͔(¥' (ͺ)~!2_ ˞W:2( N98O~( ͬ)( Ny<:2:2W!2w*2[2"2!24!25Ͳ#:2G(:2*2!28$!#!2#"2=22{2>[(6 (( V:2O:2_(22D) ( :2 :2 :2 )~0O)!y( ^#Vz ##u t > 22D)~)~3)>22D))~3)~>͔(>/!2f>22ͣ)> !<#> D)!2~6/ȯ~)f(22D)22:2ݾ(( w~22(~ >3)_!2!2"2!"2!2~> ):222(22o%D)!2:23)ѣ>22o%ͣ) !2#:2>  sj212 22:2=) :2O:Z22202222:Z222 !28$> {j2M> > ) ^#V|) n f ^!2)`M5*0M?5*(50*0M 5A*M;5R*(5c* (+t*4M*M* M*M*. %+*4M*S(+M*           !2#V+!28$s2~r+=ʚ+=,=ʦ,=+,z,> -*2F "2E, +,z,>0*2F "2-E, ,z,> -N-E, :2(T-{2ͦ,,z,*2:2>P:2w(y -+N,+n f "2nf}|~22~2222!24!25,:2'''G:2怰G:2w x-@:2G:28 :2G_>(˘N,u,:2O!2 ~(6,T-><+N,,u t ~''''!2_ 2>-:2p:2wG-/-#3-!2#!2wg!/-$!28$%{( .=(.=;.=ʿ/=/=/=0xK3*2(K3*3xN>x 3*3|(+"3*2~#*2+K2 R0YPS2!34!3#*3|(+"3*3~#*3+K3 R0YPS3!34!3#x> :3@(y>:3@(y>x> )(:3@((yy23.#! 3#(:3@((yy23.#!$3#>:3@(:3!.$! 38$>:3@(:3!.$!$38$sj212/]/{j2MG!3nO~(˹:T2 *2"2!"3*2[3RS3*2q#*2+K2 R0YPS23!3ͷ/G!3nO~(˹:T2 *3"3!"3*3[3RS3*3q#*3+K3 R0YPS33!3ͷ/=8$x!3(!3qyOx:2( Gy22!3x(!3~>y(q(Wx(>yQx(>yPZ(Z!*34$>Zf /N/^1!+3(y(( (  {04n6o%1111&&D+1$% `2`2 02222Ëy(χ2222L`2@33 3 3 3 3&3&3!2!2 ",32*,3 # q+ 43>2!>o>>> >>G^>o%343o%o%o%o%o%o%o%D)!U)"! }24!." !4 !4 *2""2"2"2*3""3"3"3D20#:COPYRIGHT 1984, SOFTWARE 2000, INC. (VERSION 01/16/84) 1 22M2N:\ 3:] ,:e %:k :l :m :u :{ !J!~( 2OO :P(:Q{ O: { (: { ( !K!K!"͉ # 6#!m? *͉ # ~w#y 86#:\2:l2G:=QxO:=Zx 4:MO:N *! O~#  !:MO c :KG O U:JW(Nl !:M !:N͋ >2OO :P(:Q{ O: { (: { :±ͬ  :K !:N2 !:N͙ :_!~ X!~:Kw¥G OͰ >2OO :P(:Q{ O: { : { /   !:M !:M !:N (1: !:MF^ Ͳ :KW( !ͨ  E!:N:Kg!~ oG O’ !:MW>2OO :P(:Q{ O: { (: { M !:M  (1:" !:M 1:, (  *+"|*#~/ 0:y0 > 99~#=&A9>>~#9*%[R R0x C!J˞!"*"t ~ :J_ *#"[R8*"*|(t ~ ~ *+":J_(* 4 0 U :K( Ê l =( :KoX !~X * k A d Y ͓u ͼ( ( k O 00  !:Ml = !J4 u 4 c k A9͊ :K( 4 !Kn( !Ͳ  p A  Y *! ͼ( ( p O E U :Ko 0 * !J˞!" !:M:Ko͊ ! * c p A94 ͧ 2222=2 :2ͬ 2!""Yͧ !*#"| !4ͬ "*#"| !4ͧ ͬ :2!Xc * yc ͡c c * 4 4 c c 2c `c ͓ͧ ͬ ͧ ͬ _P_PP! (#˾[*"͠ ~#fo͙ K ))) )K :M:N:_ ѻ  ѻ͸c   8 \ 2M͌ c  8 l 2Nͥ c !!~! ~*R|7"6 #6 7"R| *T !U^#"R6 !Jæ:\:l=a{ YNABCERX Invalid filename 1 Invalid filename 2 Ambiguous filename not permitted with option B Destination drive read only Ambiguous filename: confirm individual files (y/n)? copy to same filename Ok to copy  to  (y/n)? already exists,ok to delete? (y/n) not copiedread only FIFO file, not copiedFIFO file, not deleted  not copiednot delete copied to  Ok to delete source file? (y/n) File not found Insert next source disk in drive:  Enter when change complete Unable to lock out destination drive  Unable to free drive  Insert next destination disk in drive:  Unable to open source file Unable to create destination file Unable to read source file Unable to write destination file Unable to close source file Unable to close destination file Unable to set attributes on source file Unable to set attributes on destination file Insufficient memory for copy  Non-privileged user Insufficient memory not found ~#9 (_VHation drive  Unable to free drive  Insert next destination disk in drive:  Unable to open source file Unable to create destination file Unable to read source file Unable to write destination file Unable to close source file Unable to close destination file Unable to set attributes on source file Unable to set attributes on destination file Insufficient memory for copy  Non-privileged user Insufficient memory not found sD  =()(*(=7 PPHLKJ&! gFx#N͆ k:.D!g:.D!$g!*g!0g:Vi¢= * :O:J2 2 ! A uß99ʑ ¶9!W9!Xr#ʟ#I#ʳuW6uI7WIruImuubrp8$uuuuu>J: |* * " ͭ* ~#" O9ͤ: =2 22 99* " " ͭu͕: =c: f: J2 uß2 * * e6I-:T=o%" ͭur* * e6ͤͻͭuß:D:Dʳ9ó* " ͭ:Du9>2 uy :D9u>2 : $* wO9ß* : `6* " N: 2 ͻ* e6XyX* ~qO<: 2 * " wO9n ß: 2 ʁ! Ä! !Au* +* e6uʮͻu* -" :T=o%" ͭ>2 : O* * y`6+" : 2 * " * * e6!ͻ: * Ny!* qͻ* 6 : 2 * " n u>2 : O* 6 # D͕n u͕: J͕: J: : * * e6: J: N³* * e6ʳ: ³* 6͕: 2 u>@J>J͕: J͕: u: 0J͕: u: J!<g͍: G: f: 2 }6" s6" `i" ͭ> ͍͔!" !" 2 2 2 * ," :T=$." ͭ* #" * |: <2 `6~͐ 2 * +" * |: =2 `6~͐ 2 : ! Ϳ8O: 9L#LA3LB!8X7y56y56?_Oy! Ϳ87y! Ϳ8yP6G*  N##s6yʮʉ~€FÂT9͖ͤ4* |ʚnâ* N!2!ï#* |N͆ #ͤ¹* " 7* w#" 9#A ! Xw&~P6&#O~56y!~&_w&~&> wO͆ #ͤ* 6#" ͍* " ͭ^" ͭu~O͆ #ͤ^~#.q~ #{: o&)))}6: N* : OD2: *  s6͉4* |n: G: O* 2* " ͭ* N͆ #: * ~_Y T 662 ́~A : Y  ~. > O͆ #ͤ' \ * |\  ͆ ͤ: I ^* |:Dq :9ͤu* * x6" *  ~Y* - :To%* x6* x6* x6" ́:D :9ͤ! 4ɯ2 ̈́" " 2 }6" }6" s6" *  ~O2 #~ <2 #}6yN M N ͖4* |5 nx2 y2 > : G2 O!" " 2X #" 2 " ͭ* |g ~j ͐ 2 : 2 * " * " >2 9: N >9L>XTFYNtfyn.+- #9AXL!DELETED INSERT ""!j"!j"*~#"1Ҙ W6RftDMVbktH 1j ^9    *+": g~*~#~#"" }6" F#N#s6xC L x D2*͉4 *7N *x #y7 N x ~*w1 ~*_T/ Y/ 61 6N OG"gxq ~@X 2W +~ W + F yj yj >2 y/<2ɯ22*6!j"Ϳ5N#~2#^#V#~#F#"x2:/<.Qx2 :ͽ :_:<2*~ /6=T}6}6"! N#}6> `6~#s6҄O7 }6" ~CʴL##s6g7 #NgFxH)WDp#q#s6x6+N͌6x#s6q#7 ##s6g~ }6" ~CKLf#F#}6N~@2 ͎6#7 ##}6g~6T 6F 4M4E*p#2H N 4M4E|JgxJy1=4~O#x`6*q#7 N >w:Ø *w# XN g~w] Ͷ͓1ڃ >v:Ø Ͷ@1 Ͷ61 ͶZ0 DIIDIIDDIDIDDI*N#7y`6F#7y*w*wN DIIDIIDDIDIDDI*wN *wN g~ʮï/w] Ͱ4 .,ͼ3 gN#D2 gn&ͼ3 *NͧDI*N.,DIN#F#x'DI͇6"xʘ†yʒi&Û!ͼ3;2Þ!Û!ͼ3 4n&ͼ3 gͣ4g͖4gg*͉4NͶ61*]͉4#"+~:+D.N#~N#6*]#"+x7F#N#6*]#"+6 6 *]i&"*x6"*+V+^"`i"8͚ژ960#q#p#60*DM7xxʺ7>áѷ.OR. x x7>ѷ.AND.%7%7-%7'3x+>37.NOT.ڈxW͊2xʈ:ɱ͊m~$>i#2xˆʈ:7~=•>#Ÿ><¿#~=ʺ>µ>> > >#~=>> #ɯ͠.xF~+#͠-x-1>-#͠-x-1>7xG|;GyBMxGɱM~+s#͠ڜxœʜyO> M-˜#͠ڜxœʜyO>M7x¯~*#xyxGOxG>ï/#xx=|GGy Mxï7A~+<-@#IG>#IGevEͲ ~!Ϳ8s7#ͥ- xG>> > A>~(#͚~,#͚~)#>~( %66$#͂6 x>%~(#x~,#s7چ~)ʂ,†{È>2x~)ʾ,#x~)>#:O>.~(#͚~,#x~)I,#s7"~)"{$>2x~)#:O>/#>>/ > x> ~(#~)#>! *>'x66#x6Ny6C6L#" >">> >#7~(>#͚>~)>#7͍xtD2*>'x6͉4*>`6"7~C6¯x#*ʹ6ʮO>'x6y`6#"#7~TYFN7>*w6'#x6#"#o ~N#F###N>&x6*7oB ~CA#N6*7ol ~Lk6*7͓*ʊ"͗Š722~+ʤ-¦#~0ڰ:.2:¤ä >2ä:O:Hyx<ɯ~  #.F..T.CDEFILPSTV#@$!*INT#VALLEN@TESTPEEK4STRK$!ZCHRmDATETYPETRIM*EOFFILEM()!d!`*/~**/*/"/͉,*/#"/2/2/l6DM*/> `67 6x2q/y2n/2o/_!|x2p/!"j/#"l/J$2/!ͯ#>$/R=F1:/Fw" Pկ2z/.,"={ͅ$a#2/!";{"{*/"/*j/"x/}#:/»*t/!={:n/O7*t/:n/`66#6*/#6#6>2/2~/#ͬ#>2~/*t/>2}/!?{:n/O͠$t$++}6z#"x/}#û#*/"{/#"r/:~/O:/0<͐$DM:/<$+:/$+8*r/!={:n/O7*r/:n/`6*{x6!/4:p/mͬ#:/J$*{/"/~2/<g:z/}%|2/*x/";{ͯ#:/g:z/ʖ$|2z/2/$={:n/7:/2/O:/2/͐$DM:/<$++*t/++7*l/"{ͯ#:/O:~/2~/*l/"x/##*l/#"l/>2/*/*/e6q*/#!;{:o/O7*t/:n/`6*{x6>2/*l/ͯ#*l/"j/#"l/J$*/*{/l6DM*{/+T]8#"/*j/*/x66#z#$>$͙"á>$ ͅ$!?{:d/7B |ʵe6ʵ͌!ҡ!>$a##> z#:~/O:/O͐$DM$++:~/<$++7!/5#ͬ#!~/5!/5ͬ#:/$={:n/O7#> z#$!={:n/O7ͬ#:~/O:/ ɷO2}/"r/a#*/"/*j/"x/}#:/ >2~/*/*r/͠$ʞ ڄ t$r ++}6z #"x/}#e ++}6zʸ #"x/}#e #s62/*/"/!>$*/ 9u!`i"v/#}6z>C+++6, !>N6*2c/{2d/#X/x6>$/P!6!?!*!:/?!w".,}N!O ͅ$a##}!#z#$?{:n/O>2}/͠$!͸P>a##!z#t$!#!z#:~/O:/ڠ!:~/<2~/$++}6#"x/>2~/#z#*/#}6z!!#$s6!>2/7ɷa##j"z#:~/=2~/^"#j"z#:~/"=2~/*/#4"$}6#"x/}#:/2~/#:/<$++}6z:"a"#$s6s">2/7ɷ2/ͅ;Å-:/*/nͅ;Å->2~/*/"/a#*j/"x/}##:/"*/#s6|ª"*/###s6!*/"/a#*j/"x/}#:/<2~/#:/#<$++s6|":/$7D!>$/+#ͅ;Å-#2/>$a###z#$x6ͬ#O!/~Z##Q#q:/*/h/ 7*/###"t/*x/"/://ͅ; Å-:/*/ͅ;Å-*/~2/*x/"/://ͅ; Å-*/:/w:/ͅ;Å-*x/*/x6:~/w#"/*/*/e6$7+~2~/+V+^"x/"/ѷ:~/*t/=O:o/W yO:$x5$G)$ E$33:/:/ͅ;Å-*/!h/ 7*/:/ͅ;Å-:o/`6!~/4:/*v/! O:o/_! š$##:q/$ͣ4:}/ھ$D2$͖461͉47:+D$6A:n/O6:/O:/ %:/ %t.2/2/:/ͅ;2//ͅ;(% ą-7! "/~ [% ~#*/x6`6"/#;%*/}o|gx6ͅ;{%ą-7ͅ; Å-!P/͌68ʼ%/ͥ-»%9!%ҝ%ü%K&>2P/K&>2S/%K&>2T/8s7zWD9"/>2W/%>2R/!wvu`i"/>2V/>2Q/:T/'&͉,+:V/2&m,:Q/E$D&*/ͅ'"ͅ':U/£&=2U/"/:P/d&Ù&:S/q&*/ß&:T/ʄ&͉,+!ß&:R/™&:W/œ&*/|:8"/!95WD͕'͂+-)'#-m,*/9>:WD*/"/*/> `6xv)yl)6A##}6z§)+pí)6#6})6#6 #}6zʭ)ҧ))ھ)p#N͌6x6ú)##ú))ڿ)p#x6q)6>:WD͓*)x))## `&ɯ:WD*/)ʐ*!`~ʇ* t*>:WD*/7~56*_w #~.* #P¶**S**M** +*~56*_w*P6*:*# *yͳ5*/+"/}E$++:1DL+-+?+-<͌!G+ͅ':1DL+-͌!?+ͅ'-<"-7"7ɯ<!wvu~+##~~+++6#6#60PY!v 47/!ͅ;Ø+2/ą-7"/͉,x~³+> ͈5# y¬+*/"/>2/*/*/DM:/ͅ;+*/#"/2/<,ą->2/7:m,7:/ͅ;%,,,ą-7*/:/!/7/ͅ; Y,ͅ-!"/͉,E$~,͙"ͅ'2/ɯ2/!ͅ'!/͌6*/|,+*/e6,"/"/*/"/! "/!/ -,/!/,!/,*/|º,/:/ͅ; Å->Å-w# ,~w# -~w+ -:/ͅ;Å--:/ */ͅ;Å-*/DM*/~j-#s6"/*/0%*/++s6"/$'>ͅ-*/DM*/> ͎6:WD!wvuڢ-PY!v %7-#¯-##~<§-=~0-:-A-í--s6:/ͅ; -ɯ2/:/://<2/:/*/#"/"/- */6#*/x6: Dw#: Dw#: Dw:/ͅ;Å-*/6#"//ͅ; Å-!z"/*/:/w#:/w#:/w#:/w#"/*/+~."/G*/ze6/+~</"/xͅ; Å-ALL%NEXT%RECORD%FOR%TOP &BOTTOM&WHILE%KEY C?{.DBF.CMD.FRM.MEM.TXT.NDX.FMTz0-0~|{Njl~|{Njl~|upr!j~w0!j~/1A4,1G.~,1ʿ00/< ڜ0~,1jf0~ڪ0WXî0P_i,l4z®0i~怲w.Fj0.'w- 0,1.>m4.4,1.7>'w- 0)1.ƙw- 1.7~'w- 1.~w4.6,1!j~wZ0!jjA4.J4 .l4l1GZ0e1.4 V1.~GO.~WIwx1~w4!j~2j.~722j.6@.6> 2jZ0.~1 1õ161.~=wy.R4:j=°12y 1.R4:j=22j.R41> .R4:j=22j1:jG.N@._y怳wjA447:j2j!j J4 ]2 2O2.6?+n2-t26 20ʯ22:2.6G.~4ڜ2ƶoxwâ2ƶo~w.~n2.4n2.~2.4.~n2.4n2.~n2.5n2.2.~26n2.~2.wy2x=G!j~.60 36-@T3/<.w> #33.~yʹ3>..F>0C3 63ù3.R40 C3ù3<.q/  x3d3.~3Ä3.~-ʂ3> .R40„3.~ʹ3O>..R40  3ù3>*±3!j J4'33d3 33>I2j4}o|g3 z!jR4!j~,,,,,<4!j~O,~44 <4.R4. 4.~怱w.w~#A4ɯw,K4_~Wwz+U4ɯ_~Wwz,t4!jA4jA4jA4!j~@5 4 /#͈5Ϳ55y 5>͈5+ 5w͈56y29ͳ5:9::9ʬ59ͅ;v29͢9:*DWD> ͈5> ͈5Ϳ5~͈5#55&o6&o5'66d6 66/}o|g6 z͈5/6/6/6/6> ͈5A[?a{?G'"[]0:?`6s6o$z{}o|g~#fos#r#^#V#q#p#N#F#>Wxʜ6r# Ñ6> #á6žʲ6# ¨6 G~66# ¹6y6# 6x66x296y29H66"7x"7 7:9O~ 7# 7"7xO~a07_q7m7S7O~AI7_g7#87~0m7;o7Am7o7xo7DM! ƒ7y7 0گ7:ү70e6ڬ7zT])))o҃7$ƒ77 `i9_7͈5> ͈5N Y7ɷ7Ϳ5>?͈5ö7H77y8~# 7x8~+ 8x8t8͢8t8W`i͢8c8O8G͢8c8OT]x`6Ͳ8c8/ 1::B:1:G::CM:xI:a>_d:O9 Z:!B4d: d:!B6O:?CyY }:!B4 !B6!B4:` =Ì::?Cʰ:  2B2B:B:B2:C::C9:?C2?C2Bͼ>:B2CB!:B;!5ͼ>B:_/;:C /;CC7! C6!C7ͼ>C<};";C!D"=CCy;*=CZ;*;C>x:WD29C"B"B`i"B!9"B~#W6;;Y<<<<=:=<>ͼ>͵>;> uB͵>\B> uB>!QC"MC~;B@;< y <*MC;ͼ>͵><>uB:j2j;@<2B*MC!\$7YBy<2B!"HC"JC2LC*MC6#"FCYB>!QC"MC~suBͼ>͵><>uB͵>\B͇@>2DC*B"@CD>YB͇@2DC*B"@CD>YB͇@>2DC*B"@CD>YB͇@>2DC*B#"@CD>YB͇@z=X@?YB!"JC"HCYB͇@2DC!"@C*B!5C"BD>*HC+"HC"BYB͇@2DCX@@A?*FC+6YB͇@*HC}|*JC}|\B͇@*BxN#F#^#Vʈ="JC`i"HCYBixg"HCz{gxo"JCYBͼ> _!QC"MC2B*MC~=^#V=*MC6:B<=2B*MC"MC=:9C͊@\B*B>!\7*BLD͵><(>> uB!\7<\B>uB28C:8C*@C| A*@Ce6a>DM*JCͤ?*HC*OC*B:DCҔ>B"B*OCl6"HCè>B"B*OCl6"HCXA*@Cl6"@CH>\!\6# > ͎6͌6:D2\!]w#:>+~@2\. ??w#>!e?w# ?:LC@'?:_ͼ>*MC:LC@2LC)):ECQ?*MC! x6}G)L*MC yʖ??qͼ>*MC<•?:DCڟ?*MC uB*MC p>uB!C"6C~ʿ??:9C? ë?#s6e6¿?###}6"OC6*BC "BC~?!C"BC#####~?5?#~@6LB*BC~)A:9C͊@*BC###s6"OC*JCdA*JC*BC"6C:9Cw#x6##6#6^#V!\ #N@:9CG!C~ȸ€@#####6#~@6x)A_@:9Cշ@ҹ@=!QCʥ@= @~ʹ@#"FCHC7>uB!QC~@@!QC~@@> uB6#"FCHC7!"HC"JC2LC>*HC!l6|*JC#"JC!"HC!͊@#}6s6"OCALB:9CG!C~ȸTA6JA*6C######6uB*OC:ECAA͌B*MC:EC$B"GBBB*MC!}6++x65BBBGBA:LC@2LC> uB> uB*FC!HC7LB*B###*BDM*B*B:B2B*BeB:DCBʗBx~# ÌB~ £B# x~­B>uBx~ B BB# íB#>28Cx~ # BB>28CDBASEMSGCOMDBASE OVRCʒ6Z~Ɠ2Vz”s6#!~/5#>ü>2D2-D>'>26D!pDD;MAI19*e6nEnE!D5INSUFFICIENT MEMORY IN SYSTEM, dBASE REQUIRES AT LEAST 41984 BYTES (0A400 HEX) OF MEMORY IN IN ADDITION TO THE SIZE OF THE OPERATING SYSTEM dBASE WILL OPERATE ON MOST 48K CP/M (tm) SYSTEMS THAT HAVE A STANDARD BIOS (2k:E!9`66>͕'͂+E:D!D`6'w2D!D4ͫ.;¯F!E5;F!E5MESSAGE FILE (DBASEMSG.COM) CANNOT BE OPENED2 D>r: 98ʯFs7{EE E2 D98s7zF{F: DqFqF qF qFzF{ FÀF{FÀF{F2 D98gGs7zE{2 DʯF: D¯F: DFͿ5Ϳ5!FFTTT@@Ȅ@@@@@@@d\~F:#F!G5:D[DWDͿ5!F5EThirty days hath September April, June and November All the rest have thirty one Except February ... ERROR!xG!GERRORG~@@ʑG:#~G##~#fo5ERROR3B 22 FEB 82s6#!~/5#>ü>2D2-D>'>26D!pDD;MAI19*e6nEnE!D5INSUFFICIENT MEMORY IN SYSTEM, dBASE REQUIRES AT LEAST 41984 BYTES (0A400 HEX) OF MEMORY IN IN ADDITION TO THdBASE IICOPYRIGHT (C) 1980 BY SOFTWARE CONSULTATION, DESIGN, AND PRODUCTION (SCDP) 6542 GREELEY ST, TUJUNGA, CA 910427 *** dBASE II Ver 2. FILE DOES NOT EXIST UNASSIGNED FILE NUMBER FILE IS CURRENTLY OPEN END OF FILE FOUND UNEXPECTEDLY" RECORD OUT OF RANGE TOO MANY FILES ARE OPEN DISK IS FULL DIRECTORY IS FULL FILE ALREADY EXISTS NO FIND TOO MANY MEMORY VARIABLES OUT OF MEMORY FOR MEMORY VARIABLES ILLEGAL VARIABLE NAME TOO MANY CHARACTERS NO DATABASE FILE IN USE, ENTER FILENAME: NOT A dBASE II DATABASE RECORDS ADDED DO CANCELLED BAD NAME FIELD BAD TYPE FIELD BAD DECIMAL WIDTH FIELD BAD WIDTH FIELD DESTROY EXISTING FILE? (Y/N) *** UNKNOWN COMMAND COUNT = ENTER RECORD STRUCTURE AS FOLLOWS:: FIELD NAME,TYPE,WIDTH,DECIMAL PLACES INPUT DATA NOW? & MACRO IS NOT A CHARACTER STRING RECORDS COPIED BAD FILE NAME COMMAND FILE CANNOT BE FOUND7 NESTING LIMIT VIOLATION EXCEEDED DELETION(S)t *** END RUN dBASE II *** TO MANY RETURNS ENCOUNTERED ENTER RECORD #,FIELD (# OR NAME),NEW VALUE+ ILLEGAL DATA TYPE SORTER INTERNAL ERROR, NOTIFY SCDP CORRECT AND RETRY? FILE HAS BEEN DELETED ILLEGAL GOTO VALUE2 SYNTAX ERROR, RE-ENTER CANNOT INSERT - THERE ARE NO RECORDS IN DATABASE FILE END OF FILE ENCOUNTERED END OF LOCATE SCOPE MACRO NOT FOUND PACK COMPLETE, RECORDS COPIED RECALL(S)~ COL WIDTH,CONTENTS DOUBLE SPACE REPORT? (Y/N) REPLACEMENT(S) ENTER REPORT FORM NAME: ENTER HEADING: DATA ITEM NOT FOUND "WITH" PHRASE NOT FOUND ENTER SUBTOTALS FIELD:  SUBTOTALS IN REPORT? (Y/N) PAGE HEADING? (Y/N) > ENTER PAGE HEADING:  SORT COMPLETE "TO" PHRASE NOT FOUND** SUBTOTAL ** NO EXPRESSION TO SUM: NON-NUMERIC EXPRESSION> MORE THAN 5 FIELDS TO SUM *** SYNTAX ERROR *** ARE TOTALS REQUIRED? (Y/N) NONEXISTENT FILE2 SUMMARY REPORT ONLY? (Y/N) INDEX FILE CANNOT BE OPENED VARIABLE CANNOT BE FOUND SOURCE AND DESTINATION DATA TYPES ARE DIFFERENT "ON" PHRASE NOT FOUND FORMAT FILE HAS NOT BEEN SET SYNTAX ERROR IN FORMAT SPECIFICATION "FIELD" PHRASE NOT FOUND3 CANNOT OPEN FILE FORMAT FILE CANNOT BE OPENEDQ COORD: CORRECT AND RETRY (Y/N)? CHANGE FROM : CHANGE TO : MORE CORRECTIONS (Y/N)? O ENTER FILENAME: ** TOTAL ** RECORD: NO FINDPAGE NO.  SINGLE STEP Y:=STEP, N:=KEYBOARD CMD, ESC:=CANCEL WAITING 7 FLD NAME TYPE WIDTH DECE STRUCTURE FOR FILE: ENTER OPTIONS, M=LEFT MARGIN, L=LINES/PAGE, W=PAGE WIDTH ENTER SUBTOTAL HEADING: 0 ENTER SUBTOTAL FOOTING: EJECT PAGE AFTER SUBTOTALS? (Y/N) NO "FOR" PHRASE JOIN ATTEMPTED TO GENERATE MORE THAN 65,534 RECORDS NO "FROM" PHRASEG KEYS ARE NOT THE SAME LENGTH PRIMARY USE DATABASEY SECONDARY USE DATABASE NUMBER OF RECORDS: DATABASE IN USE IS NOT INDEXED MORE THAN 7 INDEX FILES SELECTED MODIFY ERASES ALL DATA RECORDS ... PROCEED? (Y/N) & ENTER TODAYS DATE AS MM/DD/YY OR RETURN FOR NONE : DATE OF LAST UPDATE: RECORDS INDEXED RECORD LENGTH EXCEEDS MAXIMUM SIZE (OF 1000) *** ZERO DIVIDE *** BEYOND STRING *** OVERLAY CANNOT BE OPENED ENTER RECORD # : RECORD NOT IN INDEX INDEX DOES NOT MATCH DATABASE PRIMARY USE DATABASEY SECONDARY USE DATABASE NUMBER OF RECORDS: DATABASE IN USE IS NOT INDEXED* dPROG.CMD - Initial entry and setup for dPROGRAMMER * CLEAR SET TALK OFF RESTORE FROM DPROG IF BELLON ELSE SET BELL OFF ENDIF IF CONFIRMON SET CONFIRM ON ENDIF IF V24 SET DELETE ON ENDIF IF USEPASS STORE "DSPASS" TO DSFILE SELECT SECONDARY USE &SYS&DSFILE INDEX &SYS&DSFILE&ONE STORE "DSPWENTR" TO FMTNAME SET FORMAT TO &SYS&FMTNAME FIND zzzzz DO WHILE # = 0 STORE " " TO PW READ IF PW = " " ERASE RETURN ENDIF SET EXACT ON FIND &PW SET EXACT OFF ENDDO SET FORMAT TO SCREEN USE ENDIF STORE "DSMENU" TO COMMAND DO &SYS&COMMAND SET TALK ON ERASE QUIT RETURN @H221@:2!o6+6+6!6#6!6#6:G*o .!N6:^*M^!K6!6!6+6' :$::=2K  :ʤ\:ҷ\x'Ͳ:!\͢  :͈'! Ͳ:$: $͈Ͳ!N6' :!Cwͯ !6:^͢c!6{:/>!/H{ͯ :<2Š ::=HҮͯ !6:Ҿ:2 !6::/H͈;!6:> !/>HHͯ :^!w:<2:0}:@E}:!S!W6: z!]6:cm!c6:_z!_6l ::,: HHҰͯ : 2ó:E:1:2v!q!*8!*6: >ͦ>ͦ!q:_  !p+q.*   !q*&!p+q*2!p+q*2!p+q*22!p+q*!p+q*!p+q*!p+q*2!p+q** ACCT.CMD - General Ledger Accounting Program * STORE TRIM(TITLE) TO MTITLE STORE " " TO STYPE SELECT PRIMARY USE DAPROM GO BOTTOM STORE # TO LAST GO TOP STORE "PROM:DESC+' '+JOURNAL+' '+LEDGER+' '+LEDG:TYPE" TO FLIST STORE "T" TO MATCH STORE "You may choose one of the following entry types: JR LEDGER" TO MDESC STORE "DSDISP" TO COMMAND DO &SYS&COMMAND IF !(RECORD)="Q" RETURN ENDIF RELEASE STYPE,FLIST,MATCH,MDESC STORE PROM:DESC TO PDESC STORE JOURNAL TO JOUR STORE LEDGER TO LDGR STORE CTRL:REF TO CREF STORE TYPE:DOC TO TDOC STORE CTRL:ACCT TO CACCT STORE CTRL:DESC TO CDESC STORE CTRL:TYPE TO CTYPE STORE LEDG:TYPE TO LTYPE STORE 00000.00 TO CTOTAL COPY NEXT 1 TO DATYPE SELECT SECONDARY USE DABATCH DELETE ALL PACK STORE T TO MORE STORE " " TO LAST STORE " / / " TO LDATE STORE 0 TO TCOUNT DO WHILE MORE SELECT SECONDARY ERASE @ 1,10 SAY TMARK + " " + CNAME SET INTE OFF @ 3,10 SAY PDESC SET INTE ON @ 4,10 SAY "Bal account " GET CACCT @ 4,37 SAY "Desc " GET CDESC @ 5,10 SAY "Batch total " GET CTOTAL @ 5,37 SAY "Last entry " GET LAST CLEAR GETS IF LDGR = "AP" .OR. LDGR = "AR" STORE " " TO ID @ 7,10 SAY "Enter ID number or RETURN to quit. " GET ID READ IF ID = " " STORE F TO MORE LOOP ELSE SELECT PRIMARY IF LDGR = "AP" STORE "DAVEND" TO FILE ELSE STORE "DACUST" TO FILE ENDIF USE &FILE INDEX &FILE&ONE SET EXACT ON FIND &ID SET EXACT OFF IF # = 0 @ 9,10 SAY "That ID number was not in your master file. " STORE " " TO ANSWER @ 10,10 SAY "You may add this ID number to your master file. If you do, be " @ 11,10 SAY "prepared to enter a name, an address and beginning balances. " @ 12,10 SAY "To add enter 'ADD' or just RETURN to try a new ID number."; GET ANSWER PICTURE "!!!" READ IF !(ANSWER) = "ADD" SELECT PRIMARY USE &FILE INDEX &FILE&ONE,&FILE&TWO SET FORMAT TO &FILE APPEND BLANK REPLACE ID:NUMB WITH ID READ SET FORMAT TO SCREEN STORE ID:NUMB TO ID STORE NAME TO DESC SELECT SECONDARY ERASE @ 1,10 SAY TMARK + " " + CNAME SET INTE OFF @ 3,10 SAY PDESC SET INTE ON @ 5,10 SAY "Batch total " GET CTOTAL @ 5,37 SAY "Last entry " GET LAST @ 7,10 SAY "ID number just added " GET ID @ 8,10 SAY "Name just added " GET DESC CLEAR GETS ELSE @ 9,10 @ 10,10 @ 11,10 @ 12,10 LOOP ENDIF ELSE STORE NAME TO DESC SELECT SECONDARY STORE " " TO ANSWER @ 8,10 SAY "The name on file is " GET DESC CLEAR GETS  @ 9,10 SAY "If this is the name you wish to use enter just a RETURN. " @ 10,10 SAY "If you wish to try another ID number enter any character. " ; GET ANSWER PICTURE "!" READ @ 9,10 @ 10,10 IF ANSWER <> " " LOOP ENDIF ENDIF ENDIF ELSE STORE " " TO ID STORE " " TO DESC @ 8,10 SAY "Enter description or RETURN to quit " GET DESC READ IF DESC = " " STORE F TO MORE LOOP ENDIF ENDIF APPEND FROM DATYPE REPLACE ID:NUMB WITH ID REPLACE ID:NAME WITH DESC @ 10,10 SAY "Enter date as MM/DD/YY " GET LDATE PICTURE "99/99/99" @ 10,50 SAY TDOC GET REF:NO READ REPLACE PDATE WITH LDATE @ 12,10 SAY " Account Description Amount" STORE 1 TO COUNT DO WHILE COUNT < 8 SELECT SECONDARY IF COUNT = 7 STORE " " TO STATUS @ 21,10  @ 21,10 SAY "Enter (A)ccept,(D)elete or (R)eenter " GET STATUS READ IF !(STATUS)="R" STORE 1 TO COUNT REPLACE TTOTAL WITH 0.00 LOOP ENDIF IF !(STATUS) = "D" DELETE PACK ELSE STORE CTOTAL+TTOTAL TO CTOTAL STORE DESC TO LAST STORE TCOUNT + 1 TO TCOUNT ENDIF STORE 8 TO COUNT LOOP ENDIF STORE COUNT + 12 TO ROW STORE STR(COUNT,1) TO CNT @ ROW,7 SAY CNT+"." IF ACCOUNT&CNT = " " STORE " " TO FACCT @ ROW,10 @ ROW,10 GET FACCT @ ROW+1,10 SAY "Enter RETURN to end entry of this transaction." READ IF FACCT = " " STORE 7 TO COUNT LOOP ELSE SELECT PRIMARY USE DAACCT INDEX DAACCT1 SET EXACT ON FIND &FACCT SET EXACT OFF IF # = 0 @ 21,10 SAY FACCT+" is not a valid account! Please try again. " LOOP ELSE STORE ACCT:NAME TO ADESC SELECT SECONDARY REPLACE DESC&CNT WITH ADESC @ ROW,23 GET ADESC CLEAR GETS REPLACE ACCOUNT&CNT WITH FACCT @ 21,10 ENDIF ENDIF ELSE @ ROW,10 GET ACCOUNT&CNT @ ROW,23 GET DESC&CNT CLEAR GETS ENDIF @ ROW,58 GET AMOUNT&CNT READ REPLACE TTOTAL WITH TTOTAL + AMOUNT&CNT @ 20,42 SAY "Total so far is " GET TTOTAL CLEAR GETS STORE COUNT + 1 TO COUNT ENDDO ENDDO SELECT SECONDARY IF TCOUNT = 0 RETURN ENDIF ERASE @ 1,10 SAY TMARK + " " + CNAME SET INTE OFF @ 3,10 SAY PDESC SET INTE ON @ 5,10 SAY "Batch total " GET CTOTAL @ 5,37 SAY "Last entry " GET LAST @ 7,10 SAY "This batch will be entered with a source code of " GET JOUR @ 8,10 SAY "The source code determines which register is updated as follows:" @ 9,10 SAY " CD - Cash disbursements CR - Cash receipts" @ 10,10 SAY " CP - Credit purchases IN - Invoice register" @ 11,10 SAY " GJ - General journal" IF CTYPE = "CR" .OR. CTYPE = "DB" @ 13,10 SAY "A " GET CTYPE @ 13,17 SAY " entry of " GET CTOTAL @ 13,42 SAY " will be made to account " GET CACCT @ 14,10 SAY "This account is " GET CDESC ELSE IF CTOTAL <> 0.00 @ 13,10 SAY "The batch total is not zero and no control account is provided." @ 14,10 SAY "If we proceed with this update your accounts will be out of balance." @ 15,10 SAY "Please reenter this batch in such a way that the total is zero." @ 16,10 SAY "THIS BATCH HAS BEEN DELETED! Enter RETURN to continue." WAIT RETURN ELSE ENDIF @ 13,10 SAY "This batch does not require a balancing transaction." ENDIF @ 15,10 SAY "If all of the above information is not correct the entire batch" @ 16,10 SAY "should be deleted and reentered. If the controlling account" @ 17,10 SAY "information is wrong, you must change the prompt record for this" @ 18,10 SAY "entry type first. Consult the documentation if in doubt!" CLEAR GETS STORE "ACCEPT" TO ANSWER @ 20,10 SAY "If you wish to delete this batch, enter DELETE followed by a RETURN." @ 21,10 SAY "If you wish to accept it, just a RETURN will do " GET ANSWER PICTURE "!!!!!!" READ IF ANSWER = "DELETE" @ 22,10 SAY "THIS BATCH HAS BEEN DELETED! Enter RETURN to continue." WAIT RETURN ENDIF ERASE @ 1,10 SAY TMARK + " " + CNAME SET INTE OFF @ 3,10 SAY PDESC SET INTE ON @ 5,10 SAY "Batch total " GET CTOTAL @ 5,37 SAY "Last entry " GET LAST CLEAR GETS SELECT PRIMARY USE DATRAN INDEX DATRAN1,DATRAN2 STORE TCOUNT TO JCOUNT STORE 0 TO TCOUNT IF CTYPE = "CR" .OR. CTYPE = "DB" @ 7,10 SAY "The reference for the controlling transaction is assigned a default" @ 8,10 SAY "which you may change or add to if you wish. Enter a new reference" @ 9,10 SAY "or RETURN to accept the default. " GET CREF READ APPEND BLANK REPLACE PDATE WITH LDATE REPLACE ACCT:NUMB WITH CACCT REPLACE REFERENCE WITH CREF REPLACE SOURCE WITH JOUR REPLACE REF:NO WITH "BalEntry" IF CTYPE = "CR" REPLACE AMOUNT WITH CTOTAL * -1 ELSE REPLACE AMOUNT WITH CTOTAL ENDIF STORE 1 TO TCOUNT ELSE ENDIF @ 10,10 SAY "Now updating accounting transaction file." @ 11,10 SAY STR(TCOUNT,4) + " control transaction added." STORE 0 TO TCOUNT SELECT SECONDARY GO TOP DO WHILE .NOT. EOF STORE PDATE TO LDATE STORE ID:NAME TO REF STORE REF:NO TO REFNO STORE 1 TO COUNT DO WHILE COUNT < 7 STORE STR(COUNT,1) TO CNT IF ACCOUNT&CNT = " " STORE 7 TO COUNT LOOP ENDIF IF AMOUNT&CNT = 0.00 STORE COUNT + 1 TO COUNT LOOP ENDIF STORE ACCOUNT&CNT TO ACCT STORE AMOUNT&CNT TO AMT SELECT PRIMARY APPEND BLANK STORE TCOUNT + 1 TO TCOUNT REPLACE PDATE WITH LDATE REPLACE ACCT:NUMB WITH ACCT REPLACE REFERENCE WITH REF REPLACE SOURCE WITH JOUR REPLACE REF:NO WITH REFNO IF CTYPE = "CR" .OR. CTYPE = " " REPLACE AMOUNT WITH AMT ELSE REPLACE AMOUNT WITH AMT * -1 ENDIF STORE COUNT + 1 TO COUNT SELECT SECONDARY ENDDO SKIP ENDDO @ 12,10 SAY STR(TCOUNT,4) + " regular transactions added." @ 14,10 SAY "Now updating the journal transaction file." GO TOP IF LTYPE = "DN" REPLACE ALL TTOTAL WITH -1 * TTOTAL ENDIF  USE SELECT PRIMARY USE DAJOUR INDEX DAJOUR1,DAJOUR2 APPEND FROM DABATCH @ 15,10 SAY STR(JCOUNT,4) + " journal records added." RETURN CCT STORE AMOUNT&CNT TO AMT SELECT PRIMARY APPEND BLANK STORE TCOUNT + 1 TO TCOUNT REPLACE PDATE WITH LDATE REPLACE ACCT:NUMB WITH ACCT REPLACE REFERENCE WITH REF REPLACE SOURCE WITH JOUR REPLACE REF:NO WITH REFNO IF CTYPE = "CR" .OR. CTYPE = " " REPLACE AMOUNT WITH AMT ELSE REPLACE AMOUNT WITH AMT * -1 ENDIF STORE COUNT + 1 TO COUNT SELECT SECONDARY ENDDO SKIP ENDDO @ 12,10 SAY STR(TCOUNT,4) + " regular transactions added." @ 14,10 SAY "Now updating the journal transaction file." GO TOP IF LTYPE = "DN" REPLACE ALL TTOTAL WITH -1 * TTOTAL ENDIF "))ҍ*)) ^#V")]͠.*)DM\ -°!\6:\ͣ:ͱ*}DM'ͫ*)%) N#F'ͫ*)!) N#F'k͐ͫ*)) N#FͫR͐/͐ *) ~IO͐NW͐ͫ8AO͐:͐ *) ~2)t(͐:)҃)͐*)#")Ã& \!"))\Ұ*)")]͠*)M! ^#V *) >*) w *) >*) w *) >*) w *) >*) w.*)DM\ -+!\6uͱ:)O! DMͱ*)#")Ù*))))))"):m w>.Yn -:YS:Z Hҧ!6> 2)½>!)6> !)*)&*)>2) :) .͐*)M͐:)<2)99:Y=/9&ͩ c,Hͩ 9 EHͺ i`N#Fog_og_ogDM!>))덑o|gҘ =†DM!>))ҭ =¥~ ³^#V) ½^#V|g}o _{ozgi`N#Fogo&og_{_z#W:COPYRIGHT 1984, SOFTWARE 2000, INC. (VERSION 01/16/84) 1 222:] :e !!~( 2 :(:͜O:͜(:͜(!ˎ!ˆ!" ͊*! ~ P!~ M:G O0:O(G>2 :(:͜O:͜(:͜(F;/6 ͊*#w:\ < MW(  *+"|*#ôd:/ 0:y0 > :\=A*#~#~#foK ))) )K ::_ ѻ  ѻ;Ô J8\!c:k:i2yÔ*|7"ssg#g7"| * !^#"6 !Ìa{ YN Destination drive read only Ambiguous filename: confirm individual files (y/n)? Ok to delete (y/n)? read only FIFO file, not deleted not delete File not found Invalid filename Insufficient memory Network error Non-privileged user~# _Hc#ôd:/ 0:y0 > :\=A*#~#~#foK ))) )K ::* APLG.CMD - Accounts payable report * STORE TRIM(TITLE) TO MTITLE ERASE @ 1,10 SAY TMARK + " " + CNAME SET INTE OFF @ 3,10 SAY MTITLE SET INTE ON STORE 5 TO ROW STORE "Vendor " to ID:TYPE STORE " " TO EDATE @ ROW,10 SAY "You may print this report as of a certain date. Transactions" @ ROW+1,10 SAY "dated after this date will not be included. Enter date as (MM/DD/YY)" @ ROW+2,10 SAY "or just a RETURN if you do not wish to limit the report. " GET EDATE PICTURE "99/99/99" READ STORE 4 + ROW TO ROW IF EDATE = " / / " STORE "99/99/99" TO TDATE ELSE STORE $(EDATE,7,2) + $(EDATE,1,5) TO TDATE ENDIF STORE " " TO HEADING @ ROW,10 SAY "You may now enter a report heading for later identification." @ ROW+1,10 SAY "RETURN only for no heading. " GET HEADING READ STORE ROW + 3 TO ROW @ ROW,10 SAY "Please ensure that your printer is ready to print." STORE ROW + 1 TO ROW STORE " " TO READY @ ROW,10 SAY "Enter (P)rint or (Q)uit followed by RETURN " GET READY READ IF !(READY) = "Q" RETURN ENDIF @ ROW+2,10 SAY "Your report is now printing!" SELECT SECONDARY USE DAJOUR INDEX DAJOUR1 SELECT PRIMARY USE DAVEND INDEX DAVEND1 STORE 0.00 TO TOT:BEG STORE 0.00 TO TOT:CUR STORE 0.00 TO TOT:BAL SET FORMAT TO PRINT STORE 60 TO ROW DO WHILE .NOT. EOF STORE ID:NUMB TO ID STORE ROW + 3 TO ROW IF ROW > 56 EJECT @ 1,25 SAY CNAME @ 2,25 SAY MTITLE @ 4,25 SAY HEADING @ 6,1 SAY ID:TYPE+" Name Previous Current Current" @ 7,1 SAY "Number Date Reference balance entries balance" @ 8,1 SAY "------------------------------------------------------------------------------------------" STORE 10 TO ROW ENDIF @ ROW,1 SAY ID @ ROW,12 SAY NAME @ ROW,43 SAY TTOTAL USING ' 999,999,999.99' STORE TOT:BEG + TTOTAL TO TOT:BEG STORE TTOTAL TO EBAL SELECT SECONDARY FIND &ID IF # = 0 STORE ROW + 1 TO ROW @ ROW,75 SAY EBAL USING ' 999,999,999.99' SELECT PRIMARY STORE TOT:BAL + TTOTAL TO TOT:BAL SKIP LOOP ENDIF STORE ROW + 1 TO ROW DO WHILE ID:NUMB = ID .AND. .NOT. EOF IF $(PDATE,7,2) + $(PDATE,1,5) > TDATE SKIP LOOP ENDIF IF LEDGER <> "AP" SKIP LOOP ENDIF STORE ROW + 1 TO ROW IF ROW > 60 EJECT @ 1,25 SAY CNAME @ 2,25 SAY MTITLE @ 4,25 SAY HEADING @ 6,1 SAY ID:TYPE+" Name Previous Current Current" @ 7,1 SAY "Number Date Reference balance entries balance" @ 8,1 SAY "------------------------------------------------------------------------------------------" STORE 12 TO ROW @ 10,1 SAY ID + " continued" ENDIF @ ROW,12 SAY PDATE @ ROW,21 SAY JOURNAL @ ROW,24 SAY REF:NO @ ROW,59 SAY TTOTAL USING ' 999,999,999.99' STORE EBAL + TTOTAL TO EBAL STORE TOT:CUR + TTOTAL TO TOT:CUR SKIP ENDDO STORE ROW + 1 TO ROW @ ROW,75 SAY EBAL USING ' 999,999,999.99' STORE TOT:BAL + EBAL TO TOT:BAL SELECT PRIMARY SKIP ENDDO EOF STORE ROW + 2 TO ROW @ ROW-1,48 SAY "----------- ----------- -----------" @ ROW,12 SAY "TOTALS ARE:" @ ROW,43 SAY TOT:BEG USING ' 999,999,999.99' @ ROW,59 SAY TOT:CUR USING ' 999,999,999.99' @ ROW,75 SAY TOT:BAL USING ' 999,999,999.99' @ ROW+1,48 SAY "=========== =========== ===========" EJECT SET FORMAT TO SCREEN RETURN ious Current Current" @ 7,1 SAY "Number Date Reference balance entries balance" @ 8,1 SAY "------------------------------------------------------------------------------------------" STORE 12 TO ROW @ 10,1 SAY ID + " continued" ENDIF @ ROW,12 SAY PDATE @ ROW,21 SAY JOURNAL @ ROW,24 SAY REF:NO @ ROW,59 SAY TTOTAL USING ' 999,999,999.99' STORE EBAL + TTOTAL TO EBAL STORE TOT:CUR + TTOTAL TO * ARLG.CMD - Accounts receivable report * STORE TRIM(TITLE) TO MTITLE ERASE @ 1,10 SAY TMARK + " " + CNAME SET INTE OFF @ 3,10 SAY MTITLE SET INTE ON STORE 5 TO ROW STORE "Customer" to ID:TYPE STORE "C" TO TYPE STORE " " TO EDATE @ ROW,10 SAY "You may print this report as of a certain date. Transactions" @ ROW+1,10 SAY "dated after this date will not be included. Enter date as (MM/DD/YY)" @ ROW+2,10 SAY "or just a RETURN if you do not wish to limit the report. " GET EDATE PICTURE "99/99/99" READ STORE 4 + ROW TO ROW IF EDATE = " / / " STORE "99/99/99" TO TDATE ELSE STORE $(EDATE,7,2) + $(EDATE,1,5) TO TDATE ENDIF STORE " " TO HEADING @ ROW,10 SAY "You may now enter a report heading for later identification." @ ROW+1,10 SAY "RETURN only for no heading. " GET HEADING READ STORE ROW + 3 TO ROW @ ROW,10 SAY "Please ensure that your printer is ready to print." STORE ROW + 1 TO ROW STORE " " TO READY @ ROW,10 SAY "Enter (P)rint or (Q)uit followed by RETURN " GET READY READ IF !(READY) = "Q" RETURN ENDIF @ ROW+2,10 SAY "Your report is now printing!" SELECT SECONDARY USE DAJOUR INDEX DAJOUR1 SELECT PRIMARY USE DACUST INDEX DACUST1 STORE 0.00 TO TOT:BEG STORE 0.00 TO TOT:CUR STORE 0.00 TO TOT:BAL SET FORMAT TO PRINT STORE 60 TO ROW DO WHILE .NOT. EOF STORE ID:NUMB TO ID STORE ROW + 3 TO ROW IF ROW > 56 EJECT @ 1,25 SAY CNAME @ 2,25 SAY MTITLE @ 4,25 SAY HEADING @ 6,1 SAY ID:TYPE+" Name Previous Current Current" @ 7,1 SAY "Number Date Reference balance entries balance" @ 8,1 SAY "------------------------------------------------------------------------------------------" STORE 10 TO ROW ENDIF @ ROW,1 SAY ID @ ROW,12 SAY NAME @ ROW,43 SAY TTOTAL USING ' 999,999,999.99' STORE TOT:BEG + TTOTAL TO TOT:BEG STORE TTOTAL TO EBAL SELECT SECONDARY FIND &ID IF # = 0 STORE ROW + 1 TO ROW @ ROW,75 SAY EBAL USING ' 999,999,999.99' SELECT PRIMARY STORE TOT:BAL + TTOTAL TO TOT:BAL SKIP LOOP ENDIF STORE ROW + 1 TO ROW DO WHILE ID:NUMB = ID .AND. .NOT. EOF IF $(PDATE,7,2) + $(PDATE,1,5) > TDATE SKIP LOOP ENDIF IF LEDGER <> "AR" SKIP LOOP ENDIF STORE ROW + 1 TO ROW IF ROW > 60 EJECT @ 1,25 SAY CNAME @ 2,25 SAY MTITLE @ 4,25 SAY HEADING @ 6,1 SAY ID:TYPE+" Name Previous Current Current" @ 7,1 SAY "Number Date Reference balance entries balance" @ 8,1 SAY "------------------------------------------------------------------------------------------" STORE 12 TO ROW @ 10,1 SAY ID + " continued" ENDIF @ ROW,12 SAY PDATE @ ROW,21 SAY JOURNAL @ ROW,24 SAY REF:NO @ ROW,59 SAY TTOTAL USING ' 999,999,999.99' STORE EBAL + TTOTAL TO EBAL STORE TOT:CUR + TTOTAL TO TOT:CUR SKIP ENDDO STORE ROW + 1 TO ROW @ ROW,75 SAY EBAL USING ' 999,999,999.99' STORE TOT:BAL + EBAL TO TOT:BAL SELECT PRIMARY SKIP ENDDO EOF STORE ROW + 2 TO ROW @ ROW-1,48 SAY "----------- ----------- -----------" @ ROW,12 SAY "TOTALS ARE:" @ ROW,43 SAY TOT:BEG USING ' 999,999,999.99' @ ROW,59 SAY TOT:CUR USING ' 999,999,999.99' @ ROW,75 SAY TOT:BAL USING ' 999,999,999.99' @ ROW+1,48 SAY "=========== =========== ===========" EJECT SET FORMAT TO SCREEN RETURN  balance entries balance" @ 8,1 SAY "------------------------------------------------------------------------------------------" STORE 12 TO ROW @ 10,1 SAY ID + " continued" ENDIF @ ROW,12 SAY PDATE @ ROW,21 SAY JOURNAL @ ROW,24 SAY REF:NO @ ROW,59 SAY TTOTAL USING ' 999,999,999.99' STORE EBAL + TTOTAL TO EBAL STOR* BALS.CMD - Balance Sheet * STORE TRIM(TITLE) TO MTITLE ERASE @ 1,10 SAY TMARK + " " + CNAME SET INTE OFF @ 3,10 SAY MTITLE SET INTE ON STORE 5 TO ROW STORE " " TO EDATE @ 5,10 SAY "You may print this report as of a certain date. Transactions" @ 6,10 SAY "dated after this date will not be included. Enter date as (MM/DD/YY)" @ 7,10 SAY "or just a RETURN if you do not wish to limit the report. " ; GET EDATE PICTURE "99/99/99" READ IF EDATE = " / / " STORE "99/99/99" TO TDATE ELSE STORE $(EDATE,7,2) + $(EDATE,1,5) TO TDATE ENDIF STORE " " TO HEADING @ 9,10 SAY "You may now enter a report heading for later identification." @ 10,10 SAY "RETURN only for no heading. " GET HEADING READ @ 12,10 SAY "Please ensure that your printer is ready to print." STORE " " TO READY @ 13,10 SAY "Enter (P)rint or (Q)uit followed by RETURN " GET READY READ IF !(READY) = "Q" RETURN ENDIF @ 16,10 SAY "Your report is now printing!" SELECT SECONDARY USE DATRAN INDEX DATRAN1 SELECT PRIMARY USE DAACCT INDEX DAACCT1 STORE 0.00 TO TOT:MAJ STORE 0.00 TO TOT:MIN SET FORMAT TO PRINT STORE 66 TO ROW STORE "ASSETS" TO ATITLE STORE " " TO OLD:TYPE DO WHILE .NOT. EOF IF ROW > 56 EJECT @ 1,25 SAY CNAME @ 2,25 SAY MTITLE @ 4,25 SAY HEADING @ 6,25 SAY ATITLE STORE 7 TO ROW ENDIF IF ACCT:TYPE <> OLD:TYPE IF OLD:TYPE <> " " STORE ROW + 1 TO ROW @ ROW,16 SAY "Total " + OLD:TYPE IF ATITLE = "ASSETS" @ ROW,63 SAY TOT:MIN USING ' 999,999,999.99' ELSE @ ROW,63 SAY (TOT:MIN * -1) USING ' 999,999,999.99' ENDIF STORE TOT:MAJ + TOT:MIN TO TOT:MAJ STORE 0.00 TO TOT:MIN IF ACCT:NUMB > LASTASSET .AND. ATITLE = "ASSETS" STORE ROW + 2 TO ROW @ ROW,68 SAY "-----------" STORE ROW +1 TO ROW @ ROW,16 SAY "TOTAL ASSETS" @ ROW,63 SAY TOT:MAJ USING ' 999,999,999.99' STORE ROW + 1 TO ROW @ ROW,68 SAY "===========" STORE "LIABILITIES AND CAPITAL " TO ATITLE STORE 0.00 TO TOT:MAJ IF ROW > 44 EJECT @ 1,25 SAY CNAME @ 2,25 SAY MTITLE @ 4,25 SAY HEADING @ 6,25 SAY ATITLE STORE 7 TO ROW ELSE STORE ROW + 3 TO ROW @ ROW,25 SAY ATITLE ENDIF ENDIF IF ACCT:NUMB >= FIRSTINC .AND. ATITLE = "LIAB" STORE ROW + 2 TO ROW @ ROW,68 SAY "-----------" STORE ROW +1 TO ROW @ ROW,16 SAY "TOTAL LIABILITIES AND CAPITAL " @ ROW,63 SAY (TOT:MAJ * -1) USING ' 999,999,999.99' STORE ROW + 1 TO ROW @ ROW,68 SAY "===========" GO BOTTOM SKIP LOOP ENDIF ENDIF STORE ACCT:TYPE TO OLD:TYPE STORE ROW + 2 TO ROW IF ROW > 50 EJECT @ 1,25 SAY CNAME @ 2,25 SAY MTITLE @ 4,25 SAY HEADING @ 6,25 SAY ATITLE STORE 7 TO ROW ENDIF @ ROW,8 SAY OLD:TYPE ENDIF STORE ACCT:NUMB TO ACCT STORE ROW + 1 TO ROW @ ROW,12 SAY ACCT:NAME STORE AMOUNT TO EBAL SELECT SECONDARY FIND &ACCT IF # = 0 ELSE DO WHILE ACCT:NUMB = ACCT .AND. .NOT. EOF IF $(PDATE,7,2) + $(PDATE,1,5) > TDATE SKIP LOOP ENDIF STORE EBAL + AMOUNT TO EBAL SKIP ENDDO ENDIF IF ATITLE = "ASSETS" @ ROW,45 SAY EBAL USING ' 999,999,999.99' ELSE @ ROW,45 SAY (EBAL * -1) USING ' 999,999,999.99' ENDIF STORE TOT:MIN + EBAL TO TOT:MIN SELECT PRIMARY SKIP ENDDO EOF EJECT SET FORMAT TO SCREEN RETURN QR RVCSARUM $SAR2%SAR3&SAR4'SAR5(SAR6o SAY (EBAL * -1) USING ' 999,999,999.99' ENDIF STORE TOT:MIN + EBAL TO TOT:MIN SELECT PRIMARY SKIP ENDDO EOF EJECT SET FORMAT TO SCREEN RETURN QR RVCSARUM $SAR2%SAR3&SAR4'SAR5(SAR6oELSE STORE $(EDATE,7,2) + $(EDATE,1,5) TO TDATE ENDIF STORE " " TO HEADING @ 9,10 SAY "You may now enter a report heading for later identification." @ 10,10 SAY "RETURN only for no heading. " GET HEADING READ @ 12,10 SAY "Please ensure that your printer is ready to print." STORE " " TO READY @ 13,10 SAY "Enter (P)rint or (Q)uit followed by RETURN " GET READY READ IF !(READY) = "Q" RETURN ENDIF @ 16,10 SAY "Your report is now printing!" SELECT SEC* BUDV.CMD - Budget Variance Report * STORE TRIM(TITLE) TO MTITLE ERASE @ 1,10 SAY TMARK + " " + CNAME SET INTE OFF @ 3,10 SAY MTITLE SET INTE ON STORE 5 TO ROW STORE " " TO EDATE @ ROW,10 SAY "You may print this report as of a certain date. Transactions" @ ROW+1,10 SAY "dated after this date will not be included. Enter date as (MM/DD/YY)" @ ROW+2,10 SAY "or just a RETURN if you do not wish to limit the report. " ; GET EDATE PICTURE "99/99/99" READ STORE 4 + ROW TO ROW IF EDATE = " / / " STORE "99/99/99" TO TDATE ELSE STORE $(EDATE,7,2) + $(EDATE,1,5) TO TDATE ENDIF STORE " " TO MONTHS DO WHILE (MONTHS < "01" .OR. MONTHS > "12") STORE " " TO MONTHS @ ROW,10 SAY "The budget totals stored in your chart of accounts file are yearly" @ ROW+1,10 SAY "totals. You should now enter the number of months of the current" @ ROW+2,10 SAY "budget year that are represented so the yearly budget amounts can" @ ROW+3,10 SAY "be multiplied by the correct fraction (months/12). The number of" @ ROW+4,10 SAY "must be between '01' and '12' " GET MONTHS PICTURE "99" READ ENDDO STORE VAL(MONTHS) TO BMONTHS STORE ROW + 6 TO ROW STORE " " TO HEADING @ ROW,10 SAY "You may now enter a report heading for later identification." @ ROW+1,10 SAY "RETURN only for no heading. " GET HEADING READ STORE ROW + 3 TO ROW @ ROW,10 SAY "Please ensure that your printer is ready to print." STORE ROW + 1 TO ROW STORE " " TO READY @ ROW,10 SAY "Enter (P)rint or (Q)uit followed by RETURN " GET READY READ IF !(READY) = "Q" RETURN ENDIF @ ROW+3,10 SAY "Your report is now printing!" SELECT SECONDARY USE DATRAN INDEX DATRAN1 SELECT PRIMARY USE DAACCT INDEX DAACCT1 FIND &FIRSTINC STORE 0.00 TO YTOT:MAJ STORE 0.00 TO YTOT:MIN STORE 0.00 TO BTOT:MAJ STORE 0.00 TO BTOT:MIN SET FORMAT TO PRINT STORE 66 TO ROW STORE "INCOME" TO ATITLE STORE " " TO OLD:TYPE DO WHILE .NOT. EOF IF ROW > 56 EJECT @ 1,25 SAY CNAME @ 2,25 SAY MTITLE @ 4,25 SAY HEADING @ 6,1 SAY ATITLE @ 6,49 SAY " Budget Year-to-date Variance" STORE 6 TO ROW ENDIF IF ACCT:TYPE <> OLD:TYPE IF OLD:TYPE <> " " STORE ROW + 2 TO ROW @ ROW,1 SAY "Total " + OLD:TYPE IF ATITLE = "EXPENSES" @ ROW,40 SAY BTOT:MIN USING ' 999,999,999.99' @ ROW,57 SAY YTOT:MIN USING ' 999,999,999.99' @ ROW,74 SAY (BTOT:MIN-YTOT:MIN) USING ' 999,999,999.99' ELSE @ ROW,40 SAY (BTOT:MIN * -1) USING ' 999,999,999.99' @ ROW,57 SAY (YTOT:MIN * -1) USING ' 999,999,999.99' @ ROW,74 SAY (BTOT:MIN-YTOT:MIN) USING ' 999,999,999.99' ENDIF STORE BTOT:MAJ + BTOT:MIN TO BTOT:MAJ STORE 0.00 TO BTOT:MIN STORE YTOT:MAJ + YTOT:MIN TO YTOT:MAJ STORE 0.00 TO YTOT:MIN IF ACCT:NUMB > LASTINC .AND. ATITLE = "INCOME" STORE ROW + 2 TO ROW @ ROW,40 SAY " -----------" @ ROW,57 SAY " -----------" @ ROW,74 SAY " -----------" STORE ROW +1 TO ROW @ ROW,01 SAY "TOTAL INCOME" @ ROW,40 SAY (BTOT:MAJ * -1) USING ' 999,999,999.99' @ ROW,57 SAY (YTOT:MAJ * -1) USING ' 999,999,999.99' @ ROW,74 SAY (BTOT:MAJ-YTOT:MAJ) USING ' 999,999,999.99' STORE (BTOT:MAJ * -1) TO BUD:INC STORE (YTOT:MAJ * -1) TO YTD:INC STORE "EXPENSES" TO ATITLE STORE 0.00 TO BTOT:MAJ STORE 0.00 TO YTOT:MAJ IF ROW > 44 EJECT @ 1,25 SAY CNAME @ 2,25 SAY MTITLE @ 4,25 SAY HEADING @ 6,1 SAY ATITLE @ 6,49 SAY " Budget Year-to-date Variance" STORE 6 TO ROW ELSE STORE ROW + 3 TO ROW @ ROW,1 SAY ATITLE ENDIF ENDIF ENDIF STORE ACCT:TYPE TO OLD:TYPE STORE ROW + 1 TO ROW IF ROW > 50 EJECT @ 1,25 SAY CNAME   @ 2,25 SAY MTITLE @ 4,25 SAY HEADING @ 6,1 SAY ATITLE @ 6,49 SAY " Budget Year-to-date Variance" STORE 6 TO ROW ENDIF STORE ROW + 1 TO ROW @ ROW,1 SAY OLD:TYPE STORE ROW + 1 TO ROW ENDIF STORE ACCT:NUMB TO ACCT STORE ROW + 1 TO ROW @ ROW,04 SAY ACCT:NAME STORE ((BUDGET * BMONTHS) / 12) TO BBAL STORE AMOUNT TO YBAL SELECT SECONDARY FIND &ACCT IF # = 0 ELSE DO WHILE ACCT:NUMB = ACCT .AND. .NOT. EOF IF $(PDATE,7,2) + $(PDATE,1,5) > TDATE SKIP LOOP ENDIF STORE YBAL + AMOUNT TO YBAL SKIP ENDDO ENDIF IF ATITLE = "EXPENSES" @ ROW,40 SAY BBAL USING ' 999,999,999.99' @ ROW,57 SAY YBAL USING ' 999,999,999.99' @ ROW,74 SAY (BBAL-YBAL) USING ' 999,999,999.99' ELSE @ ROW,40 SAY (BBAL * -1) USING ' 999,999,999.99' @ ROW,57 SAY (YBAL * -1) USING ' 999,999,999.99' @ ROW,74 SAY (BBAL-YBAL) USING ' 999,999,999.99' ENDIF STORE BTOT:MIN + BBAL TO BTOT:MIN STORE YTOT:MIN + YBAL TO YTOT:MIN SELECT PRIMARY SKIP ENDDO EOF STORE ROW + 2 TO ROW @ ROW,1 SAY "Total " + OLD:TYPE @ ROW,40 SAY BTOT:MIN USING ' 999,999,999.99' @ ROW,57 SAY YTOT:MIN USING ' 999,999,999.99' @ ROW,74 SAY (BTOT:MIN-YTOT:MIN) USING ' 999,999,999.99' STORE BTOT:MAJ + BTOT:MIN TO BTOT:MAJ STORE YTOT:MAJ + YTOT:MIN TO YTOT:MAJ STORE ROW + 2 TO ROW @ ROW,40 SAY " -----------" @ ROW,57 SAY " -----------" @ ROW,74 SAY " -----------" STORE ROW +1 TO ROW @ ROW,01 SAY "TOTAL EXPENSES" @ ROW,40 SAY BTOT:MAJ USING ' 999,999,999.99' @ ROW,57 SAY YTOT:MAJ USING ' 999,999,999.99' @ ROW,74 SAY (BTOT:MAJ-YTOT:MAJ) USING ' 999,999,999.99' STORE ROW + 2 TO ROW @ ROW,40 SAY " -----------" @ ROW,57 SAY " -----------" @ ROW,74 SAY " -----------" STORE ROW +1 TO ROW @ ROW,1 SAY "NET PROFIT (LOSS)" @ ROW,40 SAY (BUD:INC - BTOT:MAJ) USING ' 999,999,999.99' @ ROW,57 SAY (YTD:INC - YTOT:MAJ) USING ' 999,999,999.99' @ ROW,74 SAY (YTD:INC - YTOT:MAJ)-(BUD:INC - BTOT:MAJ) USING ' 999,999,999.99' STORE ROW + 1 TO ROW @ ROW,40 SAY " ===========" @ ROW,57 SAY " ===========" @ ROW,74 SAY " ===========" EJECT SET FORMAT TO SCREEN RETURN 99,999,999.99' STORE BTOT:MAJ + BTOT:MIN TO BTOT:MAJ STORE YTOT:MAJ + YTOT:MIN TO YTOT:MAJ STORE ROW + 2 TO ROW @ ROW,40 SAY " -----------" @ ROW,57 SAY " -----------" @ ROW,74 SAY " -----------" STORE ROW +1 TO ROW @ ROW,01 SAY "TOTAL EXPENSES" @ ROW,40 SAY BTOT:MAJ USING ' 999,999,999.99' @ ROW,57 SAY YTOT:MAJ USING ' 999,999,999.99' @ ROW,74 SAY (BTOT:MAJ-YTOT:MAJ) USING ' 999,999,999.99' STORE ROW + 2 TO ROW @ ROW,40 SAY " -----------" @ ROW,57 SAY " -----------" @ ROW,74 SAY " -----------" STORE ROW +1 TO ROW @ ROW,1 SAY "NET PROFIT (LOSS)" @ ROW,40 SAY (BUD:INC - BTOT:MAJ) USING ' 999,999,999.99' @ ROW,57 SAY (YTD:INC - YTOT:MAJ) USING ' 999,999,999.99' @ ROW,74 SAY (YTD:INC - YTOT:MAJ)-(BUD:INC - BTOT:M* CAP.CMD - Close Accounting Period or Month * STORE TRIM(TITLE) TO MTITLE ERASE @ 1,10 SAY TMARK + " " + CNAME SET INTE OFF @ 3,10 SAY MTITLE SET INTE ON STORE 5 TO ROW @ 5,10 SAY "You may use this program to close either a single month or all" @ 6,10 SAY "months currently open. This process involves rolling up dollar" @ 7,10 SAY "amounts stored in transactions and adding them to totals stored" @ 8,10 SAY "in the chart of accounts file, then deleting the transactions." @ 9,10 SAY "Closing a period or month will only affect current period totals" @ 10,10 SAY "on the income statement and the amount of detail printed on the" @ 11,10 SAY "general ledger and detailed transaction reports. Further, closing" @ 12,10 SAY "an accounting period does not affect the amount of detail printed" @ 13,10 SAY "on your AR and AP reports or your journal registers. It is " @ 14,10 SAY "normally a good practice to backup all your files at this point as" @ 15,10 SAY "a set and label as such. Make sure you have printed the following" @ 16,10 SAY "reports before closing:" @ 18,10 SAY " General ledger report" @ 19,10 SAY " Detailed accounting transactions" @ 20,10 SAY " Income statement" @ 21,10 SAY " Balance sheet" STORE " " TO ANSWER @ 23,10 SAY "Enter just a RETURN to proceed or (Q)uit " GET ANSWER PICTURE "!" READ IF ANSWER = "Q" RETURN ENDIF ERASE @ 1,10 SAY TMARK + " " + CNAME SET INTE OFF @ 3,10 SAY MTITLE SET INTE ON SELECT PRIMARY USE DAACCT INDEX DAACCT1 SELECT SECONDARY USE DATRAN STORE " " TO MONTH DO WHILE (MONTH < "01" .OR. MONTH > "12") .AND. !(MONTH) <> "ALL" STORE " " TO MONTH @ ROW,10 SAY "Enter the month you wish to close (01-12) or 'ALL' " GET MONTH READ ENDDO IF !(MONTH) = "ALL" STORE " " TO CRITERIA ELSE STORE "FOR PDATE = TRIM(MONTH)" TO CRITERIA ENDIF COUNT TO ALLT COUNT &CRITERIA TO DELT STORE 7 TO ROW @ 7,10 SAY STR(DELT,5)+" OF "+STR(ALLT,5)+" transaction records will be removed from" @ 8,10 SAY "your accounting transaction file by this closing. Do you wish to" @ 9,10 SAY "copy these records to a backup file before they are deleted? If" @ 10,10 SAY "yes, you will be asked for the name of the file to copy to so be" @ 11,10 SAY "prepared. Enter just RETURN to copy or anything else to not copy." STORE "COPY" TO ANSWER @ 12,10 GET ANSWER PICTURE "!!!!" READ IF ANSWER = "COPY" @ 14,10 SAY "Enter a filename (.DBF extension not necessary) to which you wish" @ 15,10 SAY "these transactions copied. Do not enter the name of an exsisting " @ 16,10 SAY "file unless you want that file replaced. You may preface the name" @ 17,10 SAY "with a drive if you wish or use the default drive of " + ACC + "." STORE " " TO FILE @ 18,10 SAY "File name is " GET FILE READ @ 19,10 SAY "Now copying to " + FILE COPY ALL &CRITERIA TO &FILE STORE ROW + 12 TO ROW ELSE @ 14,10 SAY "A backup copy of the transactions was not made." STORE ROW + 8 TO ROW ENDIF STORE ROW + 1 TO ROW STORE " " TO ANSWER @ ROW,10 SAY "Enter just a RETURN to close or (Q)uit " GET ANSWER PICTURE "!" READ IF ANSWER = "Q" RETURN ENDIF STORE ROW + 1 TO ROW @ ROW,10 SAY "Standby while we close some transactions." COPY ALL &CRITERIA TO DATEMP SELECT SECONDARY USE DATEMP SORT ON ACCT:NUMB TO DATEMP1 USE SELECT PRIMARY UPDATE FROM DATEMP1 ON ACCT:NUMB ADD AMOUNT SELECT SECONDARY USE DATRAN DELETE ALL &CRITERIA PACK INDEX ON ACCT:NUMB+PDATE TO DATRAN1 INDEX ON PDATE TO DATRAN2 RETURN ay preface the name" @ 17,10 SAY "with a drive if you wish or use the default drive of " + ACC + "." STORE " " TO FILE @ 18,10 SAY "File name is " GET FILE READ @ 19,10 SAY "Now copying to " + FILE COPY ALL &CRITERIA TO &FILE STORE ROW + 12 TO ROW ELSE @ 14,10 SAY "A backup copy of the transactions was not made." STORE ROW + 8 TO ROW!* CAY.CMD - Close Accounting Year * STORE TRIM(TITLE) TO MTITLE ERASE @ 1,10 SAY TMARK + " " + CNAME SET INTE OFF @ 3,10 SAY MTITLE SET INTE ON STORE 5 TO ROW @ ROW,10 SAY "You may use this program to close the year. This process involves" @ ROW+1,10 SAY "zeroing YTD amounts on income statement accounts and tranferring" @ ROW+2,10 SAY "earnings year-to-date to retained earnings. Before this program" @ ROW+3,10 SAY "is run, you should close all months within the accounting year" @ ROW+4,10 SAY "and print all associated reports. Also, make several copies of" @ ROW+5,10 SAY "your chart of accounts and label them as of the end of the year" @ ROW+6,10 SAY "for reference. Closing a year requires that the computer know" @ ROW+7,10 SAY "some account numbers in order to transfer earnings. Make certain" @ ROW+8,10 SAY "that the following account numbers are correct. If they are not" @ ROW+9,10 SAY "use the initialization procedure to correct them:" @ ROW+11,10 SAY " Retained earnings account - " GET RETEARN @ ROW+12,10 SAY " Earnings, Year-to-date - " GET YTDEARN @ ROW+13,10 SAY " First Income Account - " GET FIRSTINC CLEAR GETS STORE 20 TO ROW STORE " " TO ANSWER @ ROW,10 SAY "Enter just a RETURN to close or (Q)uit " GET ANSWER PICTURE "!" READ IF ANSWER = "Q" RETURN ENDIF STORE ROW + 2 TO ROW @ ROW,10 SAY "Standby while we close out this year." SELECT PRIMARY USE DAACCT INDEX DAACCT1 FIND &RETEARN IF # = 0 @ ROW,10 SAY "The Retained Earnings Account is wrong, please correct and rerun" WAIT RETURN ENDIF FIND &YTDEARN IF # = 0 @ ROW,10 SAY "The Earnings, Year-to-date Account is wrong, please correct and rerun" WAIT RETURN ENDIF STORE AMOUNT TO EARNINGS REPLACE AMOUNT WITH 0.00 FIND &RETEARN REPLACE AMOUNT WITH AMOUNT + EARNINGS REPLACE ALL AMOUNT WITH 0.00 FOR ACCT:NUMB >= FIRSTINC RETURN * CJP.CMD - Close Journal Period or Month STORE TRIM(TITLE) TO MTITLE ERASE @ 1,10 SAY TMARK + " " + CNAME SET INTE OFF @ 3,10 SAY MTITLE SET INTE ON STORE 5 TO ROW @ 5,10 SAY "You may use this program to close either a single month or all" @ 6,10 SAY "months currently open. This process involves rolling up dollar" @ 7,10 SAY "amounts stored in transactions and adding them to totals stored" @ 8,10 SAY "in the master files, then deleting the journal transactions." @ 9,10 SAY "Closing a month will affect the amount of detail printed on the" @ 10,10 SAY "AR, AP and Journal register reports. It does not affect the total" @ 11,10 SAY "balance for a customer or vendor nor does it affect your standard" @ 12,10 SAY "reports. You should backup your journal file at this point. Make" @ 13,10 SAY "sure you have printed the following reports before closing:" @ 14,10 SAY " Accounts receivable report" @ 15,10 SAY " Accounts payable report" @ 16,10 SAY " Journal register reports" STORE " " TO ANSWER @ 19,10 SAY "Enter just a RETURN to proceed or (Q)uit " GET ANSWER PICTURE "!" READ IF ANSWER = "Q" RETURN ENDIF ERASE @ 1,10 SAY TMARK + " " + CNAME SET INTE OFF @ 3,10 SAY MTITLE SET INTE ON SELECT SECONDARY USE DAJOUR STORE " " TO MONTH DO WHILE (MONTH < "01" .OR. MONTH > "12") .AND. !(MONTH) <> "ALL" STORE " " TO MONTH @ 5,10 SAY "Enter the month you wish to close (01-12) or 'ALL' " GET MONTH READ ENDDO IF !(MONTH) = "ALL" STORE " " TO CRITERIA ELSE STORE "FOR PDATE = TRIM(MONTH)" TO CRITERIA ENDIF COUNT TO ALLT COUNT &CRITERIA TO DELT STORE 7 TO ROW @ 7,10 SAY STR(DELT,5)+" OF "+STR(ALLT,5)+" transaction records will be removed from" @ 8,10 SAY "your journal transaction file by this closing. Do you wish to" @ 9,10 SAY "copy these records to a backup file before they are deleted? If" @ 10,10 SAY "yes, you will be asked for the name of the file to copy to so be" @ 11,10 SAY "prepared. Enter just RETURN to copy or anything else to not copy." STORE "COPY" TO ANSWER @ 12,10 GET ANSWER PICTURE "!!!!" READ IF ANSWER = "COPY" @ 14,10 SAY "Enter a filename (.DBF extension not necessary) to which you wish" @ 15,10 SAY "these transactions copied. Do not enter the name of an exsisting " @ 16,10 SAY "file unless you want that file replaced. You may preface the name" @ 17,10 SAY "with a drive if you wish or use the default drive of " + ACC + "." STORE " " TO SAVEFILE @ 18,10 SAY "File name is " GET SAVEFILE READ @ 19,10 SAY "Now copying to " + SAVEFILE COPY ALL &CRITERIA TO &SAVEFILE STORE ROW + 13 TO ROW ELSE @ 14,10 SAY "A backup copy of the transactions was not made." STORE ROW + 9 TO ROW ENDIF STORE " " TO ANSWER @ ROW,10 SAY "Enter just a RETURN to close or (Q)uit " GET ANSWER PICTURE "!" READ IF ANSWER = "Q" RETURN ENDIF STORE ROW + 1 TO ROW @ ROW,10 SAY "Standby while we close some transactions." IF CRITERIA = " " STORE "FOR " TO CONNECT ELSE  STORE ".AND. " TO CONNECT ENDIF STORE "LEDGER = 'AR'" TO JTYPE COPY ALL &CRITERIA&CONNECT&JTYPE TO DATEMP SELECT SECONDARY USE DATEMP SORT ON ID:NUMB TO DATEMP1 USE SELECT PRIMARY USE DACUST INDEX DACUST1 UPDATE FROM DATEMP1 ON ID:NUMB ADD TTOTAL SELECT SECONDARY USE DAJOUR STORE "LEDGER = 'AP'" TO JTYPE COPY ALL &CRITERIA&CONNECT&JTYPE TO DATEMP SELECT SECONDARY USE DATEMP SORT ON ID:NUMB TO DATEMP1 USE SELECT PRIMARY USE DAVEND INDEX DAVEND1 UPDATE FROM DATEMP1 ON ID:NUMB ADD TTOTAL SELECT SECONDARY USE DAJOUR DELETE ALL &CRITERIA PACK INDEX ON ID:NUMB+PDATE TO DAJOUR1 INDEX ON REF:NO+PDATE TO DAJOUR2 RETURN ROW,10 SAY "Enter just a RETURN to close or (Q)uit " GET ANSWER PICTURE "!" READ IF ANSWER = "Q" RETURN ENDIF STORE ROW + 1 TO ROW @ ROW,10 SAY "Standby while we close some transactions." IF CRITERIA = " " STORE "FOR " TO CONNECT ELSE * DATR.CMD - Detailed Accounting Transaction Report * STORE TRIM(TITLE) TO MTITLE STORE " " TO CRITERIA SELECT PRIMARY USE DATRAN ERASE @ 1,10 SAY TMARK + " " + CNAME SET INTE OFF @ 3,10 SAY MTITLE SET INTE ON STORE 5 TO ROW STORE " " TO ANSWER @ ROW,10 SAY "You may select a single source code or 'ALL' for all transactions" @ ROW+1,10 SAY "Normally source codes are as follows:" @ ROW+2,10 SAY " CR - Cash receipts CD - Cash disbursements" @ ROW+3,10 SAY " IN - Invoice register CP - Credit purchases" @ ROW+4,10 SAY " GJ - General journal" @ ROW+5,10 SAY "Enter either one of the above, another one you are using or 'ALL'" @ ROW+6,10 SAY "Source code " GET ANSWER PICTURE "!!!" READ IF ANSWER = " " RETURN ENDIF IF ANSWER = "ALL" ELSE STORE "FOR SOURCE = '" + TRIM(ANSWER) + "'" TO CRITERIA ENDIF @ ROW+6,10 @ ROW+6,10 SAY "The source code selected is " + ANSWER STORE ROW + 8 TO ROW STORE "ACCT" TO ANSWER @ ROW,10 SAY "You may have this report in date sequence rather than account" @ ROW+1,10 SAY "sequence if you prefer. If so enter 'DATE', otherwise just a" @ ROW+2,10 SAY "RETURN will do. " GET ANSWER READ STORE ROW + 4 TO ROW STORE " " TO HEADING @ ROW,10 SAY "You may now enter a report heading for later identification." @ ROW+1,10 SAY "RETURN only for no heading. " GET HEADING READ STORE ROW + 2 TO ROW @ ROW,10 SAY "Please ensure that your printer is ready to print." STORE ROW + 1 TO ROW STORE " " TO READY @ ROW,10 SAY "Enter (P)rint or (Q)uit followed by RETURN " GET READY READ IF !(READY) = "Q" RETURN ENDIF IF ANSWER = "DATE" SET INDEX TO DATRAN2 ELSE SET INDEX TO DATRAN1 ENDIF @ ROW+3,10 SAY "Your report is now printing!" SET CONSOLE OFF SET HEADING TO &HEADING SET PRINT ON REPORT FORM DADATR &CRITERIA EJECT SET PRINT OFF SET CONSOLE ON RETURN "* DISP.CMD - DISPLAY UP TO 14 RECORDS TO SCREEN - USER CHOOSES OR PAGES STORE " " TO RECORD DO WHILE RECORD = " " ERASE @ 1,10 SAY TMARK + " " + CNAME SET INTE OFF @ 3,10 SAY MTITLE SET INTE ON @ 5,0 SAY "REC # " + MDESC DISPLAY STR(#,5)," ",&FLIST NEXT 14 WHILE &MATCH OFF SKIP STORE STR(#,5) TO OLDPLACE STORE (&MATCH .AND. .NOT. EOF) TO MORE IF MORE @ 20,10 SAY "There are additional records, enter RETURN to view another page." ENDIF @ 21,10 SAY "Choose one of the above by entering lefthand record number " STORE T TO REPEAT DO WHILE REPEAT STORE " " TO RECORD IF STYPE = "A" @ 22,10 SAY "Enter record number, (A)dd or (Q)uit followed by RETURN " GET RECORD PICTURE "X9999" ELSE @ 22,10 SAY "Enter record number or (Q)uit followed by RETURN " GET RECORD PICTURE "X9999" ENDIF READ IF !(RECORD) = "Q" RETURN ENDIF IF STYPE = "A" .AND. !(RECORD) = "A" RETURN ENDIF @ 23,10 SAY " " IF RECORD = " " IF MORE GOTO &OLDPLACE STORE F TO REPEAT ELSE @ 23,10 SAY "Sorry, but there are no more matching records." ENDIF LOOP ENDIF IF VAL(RECORD) < 1 .OR. VAL(RECORD) > LAST @ 23,10 SAY RECORD + " is not a valid record number." ELSE GOTO &RECORD IF # = 0 @ 23,10 SAY "Record "+RECORD+" was not found!" ELSE STORE F TO REPEAT ENDIF ENDIF ENDDO ENDDO RETURN  SAY "Enter record number or (Q)uit followed by RETURN " GET RECORD PICTURE "X9999" ENDIF READ IF * FILE.CMD - Make changes to file parameters * STORE TRIM(CATEGORY) TO CAT STORE TRIM(TITLE) TO MTITLE STORE PARM TO STYPE SELECT PRIMARY STORE "DSFILE" TO DSFILE USE &SYS&DSFILE GO BOTTOM STORE # TO LAST USE &SYS&DSFILE INDEX &SYS&DSFILE&ONE STORE "FILENAME,' ',FILE:DESC" TO FLIST STORE "CATEGORY = CAT" TO MATCH FIND &CAT STORE "The following files are available:" TO MDESC STORE "DSDISP" TO COMMAND DO &SYS&COMMAND IF !(RECORD)="Q" RETURN ENDIF IF !(RECORD)="A" STORE " " TO FNAME STORE " " TO FDESC STORE "DSADDF" TO FMTNAME SET FORMAT TO &SYS&FMTNAME READ SET FORMAT TO SCREEN IF FNAME = " " RETURN ENDIF ERASE @ 1,10 SAY TMARK + " " + CNAME STORE "Adding a new file " TO MTITLE @ 3,10 SAY MTITLE STORE " " TO ANSWER IF FILE(FNAME) @ 5,10 SAY "That filename is already being used. If this file was created" @ 6,10 SAY "using dBASE II and you now wish to incorporate it into your" @ 7,10 SAY "dPROGRAMMER application you should enter 'INC'. If this file" @ 8,10 SAY "is already being used in dPROGRAMMER, enter RETURN which will" @ 9,10 SAY "return to the menus. You should not use this name but you may" @ 10,10 SAY "choose to add a file again using a different name. " GET ANSWER PICTURE "!!!" READ IF ANSWER = "INC" ELSE RETURN ENDIF ELSE @ 5,10 CREATE &FNAME ENDIF SELECT SECONDARY USE &FNAME SELECT PRIMARY USE &SYS&DSFILE INDEX &SYS&DSFILE&ONE APPEND BLANK REPLACE CATEGORY WITH CAT REPLACE FILENAME WITH FNAME REPLACE FILE:DESC WITH FDESC STORE STR(#,5) TO RECORD STORE "DSKEYF" TO FMTNAME SET FORMAT TO &SYS&FMTNAME STORE " " TO ANSWER READ SET FORMAT TO SCREEN IF ANSWER <> "NO" STORE " " TO ANSWER STORE "DSMNDX" TO COMMAND DO &SYS&COMMAND ENDIF ELSE GOTO &RECORD ENDIF STORE TRIM(FILENAME) TO FNAME STORE TRIM(FILE:DESC) TO FDESC STORE TRIM(INDEXES) TO ALLNDX SELECT SECONDARY USE &FNAME SET INDEX TO &ALLNDX DO WHILE T ERASE @ 1,10 SAY TMARK + " " + CNAME SET INTE OFF STORE "File maintenance menu" TO MTITLE @ 3,10 SAY MTITLE SET INTE ON @ 5,10 SAY "You have selected " + FDESC STORE " " TO ANSWER @ 7,10 SAY "Your choices are:" @ 8,10 SAY " PACK - Pack and re-index the file" @ 9,10 SAY " DFLD - Display fields in indexes " @ 10,10 SAY " (Above for version 2.4 or greater only)" @ 11,10 SAY " DSTR - Display structure to screen" @ 12,10 SAY " PSTR - Print structure to printer" @ 13,10 SAY " MNDX - Modify indexes and reindex" @ 14,10 SAY " MSAV - Modify structure and save data" @ 15,10 SAY " MDEL - Modify structure and delete data" @ 16,10 SAY " LIST - Modify list of fields on displays" @ 17,10 SAY " RENA - Rename file or file description" @ 18,10  SAY " DELE - Delete file and all it's indexes" @ 19,10 SAY "Enter your choice or just a RETURN to quit " GET ANSWER PICTURE "!!!!" READ IF ANSWER = " " RETURN ENDIF IF ANSWER = "DFLD" .AND. V24 DISPLAY STATUS LOOP ENDIF IF ANSWER = "DSTR" ERASE @ 1,10 SAY TMARK + " " + CNAME SET INTE OFF STORE "Display file structure" TO MTITLE @ 3,10 SAY MTITLE SET INTE ON @ 4,10 DISPLAY STRUCTURE DISP " " OFF STORE " " TO ANSWER @ 23,10 SAY "Enter RETURN to continue. " GET ANSWER READ LOOP ENDIF IF ANSWER = "PSTR" STORE " " TO READY @ 21,10 SAY "Enter (P)rint or (Q)uit followed by RETURN " GET READY READ IF !(READY) <> "Q" SET PRINT ON SET SCREEN OFF DISPLAY STRUCTURE EJECT SET PRINT OFF SET SCREEN ON ENDIF LOOP ENDIF IF ANSWER = "MNDX" STORE "Modifying index information" TO MTITLE STORE " " TO ANSWER STORE "DSMNDX" TO COMMAND DO &SYS&COMMAND SELECT SECONDARY USE &FNAME SET INDEX TO &ALLNDX LOOP ENDIF IF ANSWER = "PACK" .AND. V24 ERASE @ 1,10 SAY TMARK + " " + CNAME SET INTE OFF STORE "Packing and re-indexing file " TO MTITLE @ 3,10 SAY MTITLE SET INTE ON @ 4,10 DISP "Now packing the file" OFF SET TALK ON PACK SET TALK OFF STORE " " TO ANSWER WAIT LOOP ENDIF IF ANSWER = "MSAV" .OR. ANSWER = "MDEL" IF ANSWER = "MSAV" @ 20,10 SAY "Now saving data" USE &FNAME COPY TO DSSAVEXX @ 21,10 SAY "Enter Y for the next prompt" MODIFY STRUCTURE @ 21,0 @ 22,0 @ 23,0 @ 21,10 SAY "Now recovering saved data" APPEND FROM DSSAVEXX SET INDEX TO &ALLNDX IF V24 REINDEX  ELSE PACK ENDIF @ 22,10 SAY "Recovery complete" WAIT ELSE MODIFY STRUCTURE ENDIF LOOP ENDIF IF ANSWER = "LIST" SELECT PRIMARY @ 20,10 SAY "Enter a list of fields for one line displays on screens" @ 21,10 SAY "Enter fields seperated by commas and limit total length to 65" @ 22,10 GET FLD:LIST READ SELECT SECONDARY LOOP ENDIF IF ANSWER = "RENA" STORE FNAME TO OLDNAME STORE " " TO NEWNAME @ 20,10 SAY "If you change the name of a file which is used in programs" @ 21,10 SAY "you will also have to change the name in those program records." @ 22,10 SAY "Enter the new file name or RETURN to keep the same name " GET NEWNAME PICTURE "!!!!!!!!" READ IF NEWNAME <> " " STORE TRIM(NEWNAME) TO FNAME ENDIF @ 20,10 @ 21,10 @ 22,10 IF FNAME <> OLDNAME USE @ #20,10 RENAME &OLDNAME TO &FNAME USE &FNAME SELECT PRIMARY REPLACE FILENAME WITH FNAME SELECT SECONDARY SET INDEX TO &ALLNDX ENDIF STORE P.FILE:DESC TO FDESC @ 20,10 SAY "Enter a description of this file which will appear on" @ 21,10 SAY "all file selection and display screens." @ 22,10 GET FDESC READ SELECT PRIMARY REPLACE FILE:DESC WITH FDESC SELECT SECONDARY LOOP ENDIF IF ANSWER = "DELE" STORE " " TO ANSWER @ 21,10 SAY "Enter RETURN to delete file " + FNAME + " and all it's indexes." @ 22,10 SAY "Enter 'NO' to not delete " GET ANSWER PICTURE '!!' READ IF ANSWER = 'NO' ELSE SET INDEX TO USE SELECT PRIMARY STORE 1 TO COUNT DO WHILE COUNT < 8 STORE STR(COUNT,1) TO CNT IF INDEX&CNT = " " ELSE  STORE INDEX&CNT TO NDXNAME STORE NDXNAME + ".NDX" TO NDXNAME DELETE FILE &NDXNAME ENDIF STORE COUNT + 1 TO COUNT ENDDO DELETE PACK SELECT SECONDARY USE DELETE FILE &FNAME RETURN ENDIF LOOP ENDIF @ 21,10 SAY ANSWER + " is not a valid entry, please try again." STORE " " TO ANSWER @ 23,10 SAY "Enter RETURN to continue. " GET ANSWER READ ENDDO RETURN s." @ 22,10 SAY "Enter 'NO' to not delete " GET ANSWER PICTURE '!!' READ IF ANSWER = 'NO' ELSE SET INDEX TO USE SELECT PRIMARY STORE 1 TO COUNT DO WHILE COUNT < 8 STORE STR(COUNT,1) TO CNT IF INDEX&CNT = " " ELSE * GENL.CMD - GENERAL LEDGER (TRIAL BALANCE) REPORT * STORE TRIM(TITLE) TO MTITLE ERASE @ 1,10 SAY TMARK + " " + CNAME SET INTE OFF @ 3,10 SAY MTITLE SET INTE ON STORE 5 TO ROW STORE " " TO EDATE @ ROW,10 SAY "You may print this report as of a certain date. Transactions" @ ROW+1,10 SAY "dated after this date will not be included. Enter date as (MM/DD/YY)" @ ROW+2,10 SAY "or just a RETURN if you do not wish to limit the report. " ; GET EDATE PICTURE "99/99/99" READ STORE 4 + ROW TO ROW IF EDATE = " / / " STORE "99/99/99" TO TDATE ELSE STORE $(EDATE,7,2) + $(EDATE,1,5) TO TDATE ENDIF STORE " " TO HEADING @ ROW,10 SAY "You may now enter a report heading for later identification." @ ROW+1,10 SAY "RETURN only for no heading. " GET HEADING READ STORE ROW + 3 TO ROW @ ROW,10 SAY "Please ensure that your printer is ready to print." STORE ROW + 1 TO ROW STORE " " TO READY @ ROW,10 SAY "Enter (P)rint or (Q)uit followed by RETURN " GET READY READ IF !(READY) = "Q" RETURN ENDIF @ ROW+3,10 SAY "Your report is now printing!" SELECT SECONDARY USE DATRAN INDEX DATRAN1 SELECT PRIMARY USE DAACCT INDEX DAACCT1 STORE 0.00 TO TOT:CUR STORE 0.00 TO TOT:BAL SET FORMAT TO PRINT STORE 60 TO ROW DO WHILE .NOT. EOF STORE ACCT:NUMB TO ACCT IF ACCT = YTDEARN SKIP LOOP ENDIF STORE ROW + 3 TO ROW IF ROW > 56 EJECT @ 1,25 SAY CNAME @ 2,25 SAY MTITLE @ 4,25 SAY HEADING @ 6,1 SAY "Account Prev Balance Current" @ 7,1 SAY "Number Description Date Reference Curr Entries Balance" @ 8,1 SAY "-----------------------------------------------------------------------------------------------" STORE 10 TO ROW ENDIF @ ROW,1 SAY ACCT @ ROW,12 SAY ACCT:NAME @ ROW,64 SAY AMOUNT USING ' 999,999,999.99' STORE AMOUNT TO EBAL SELECT SECONDARY FIND &ACCT IF # = 0 STORE ROW + 1 TO ROW @ ROW,80 SAY EBAL USING ' 999,999,999.99' SELECT PRIMARY STORE TOT:BAL + AMOUNT TO TOT:BAL SKIP LOOP ENDIF STORE ROW + 1 TO ROW DO WHILE ACCT:NUMB = ACCT .AND. .NOT. EOF IF $(PDATE,7,2) + $(PDATE,1,5) > TDATE SKIP LOOP ENDIF STORE ROW + 1 TO ROW IF ROW > 62 EJECT @ 1,25 SAY CNAME @ 2,25 SAY MTITLE @ 4,25 SAY HEADING @ 6,1 SAY "Account Prev Balance Current" @ 7,1 SAY "Number Description Date Reference Curr Entries Balance" @ 8,1 SAY "-----------------------------------------------------------------------------------------------" STORE 12 TO ROW @ 10,1 SAY ACCT + " continued" ENDIF @ ROW,12 SAY REFERENCE @ ROW,43 SAY PDATE @ ROW,52 SAY SOURCE @ ROW,55 SAY REF:NO @ ROW,64 SAY AMOUNT USING ' 999,999,999.99' STORE EBAL + AMOUNT TO EBAL STORE TOT:CUR + AMOUNT TO TOT:CUR  SKIP ENDDO STORE ROW + 1 TO ROW @ ROW,80 SAY EBAL USING ' 999,999,999.99' STORE TOT:BAL + EBAL TO TOT:BAL SELECT PRIMARY SKIP ENDDO EOF STORE ROW + 2 TO ROW @ ROW-1,69 SAY "----------- -----------" @ ROW,12 SAY "TOTALS ARE:" @ ROW,64 SAY TOT:CUR USING ' 999,999,999.99' @ ROW,80 SAY TOT:BAL USING ' 999,999,999.99' @ ROW+1,69 SAY "=========== ===========" EJECT SET FORMAT TO SCREEN RETURN  7,1 SAY "Number Description Date Reference Curr Entries Balance" @ 8,1 SAY "-----------------------------------------------------------------------------------------------" STORE 12 TO ROW @ 10,1 SAY ACCT + " continued" ENDIF @ ROW,12 SAY REFERENCE @ ROW,43 SAY PDATE @ ROW,52 SAY SOURCE @ ROW,55 SAY REF:NO @ ROW,64 SAY AMOUNT USING ' 999,999,999.99' STORE EBAL + AMOUNT TO EBAL STORE TOT:CUR + AMOUNT TO TOT:CUR * INCS.CMD - Income Statement (Profit and Loss Statement) * STORE TRIM(TITLE) TO MTITLE ERASE @ 1,10 SAY TMARK + " " + CNAME SET INTE OFF @ 3,10 SAY MTITLE SET INTE ON STORE " " TO EDATE @ 5,10 SAY "You may print this report as of a certain date. Transactions" @ 6,10 SAY "dated after this date will not be included. Enter date as (MM/DD/YY)" @ 7,10 SAY "or just a RETURN if you do not wish to limit the report. " ; GET EDATE PICTURE "99/99/99" READ IF EDATE = " / / " STORE "99/99/99" TO TDATE ELSE STORE $(EDATE,7,2) + $(EDATE,1,5) TO TDATE ENDIF STORE " " TO HEADING @ 9,10 SAY "You may now enter a report heading for later identification." @ 10,10 SAY "RETURN only for no heading. " GET HEADING READ @ 12,10 SAY "Please ensure that your printer is ready to print." STORE " " TO READY @ 13,10 SAY "Enter (P)rint or (Q)uit followed by RETURN " GET READY READ IF !(READY) = "Q" RETURN ENDIF @ 16,10 SAY "Your report is now printing!" SELECT SECONDARY USE DATRAN INDEX DATRAN1 SELECT PRIMARY USE DAACCT INDEX DAACCT1 FIND &FIRSTINC STORE 0.00 TO YTOT:MAJ STORE 0.00 TO YTOT:MIN STORE 0.00 TO CTOT:MAJ STORE 0.00 TO CTOT:MIN SET FORMAT TO PRINT STORE 66 TO ROW STORE "INCOME" TO ATITLE STORE " " TO OLD:TYPE DO WHILE .NOT. EOF IF ROW > 56 EJECT @ 1,25 SAY CNAME @ 2,25 SAY MTITLE @ 4,25 SAY HEADING @ 6,1 SAY ATITLE @ 6,49 SAY "Current Year-to-date" STORE 6 TO ROW ENDIF IF ACCT:TYPE <> OLD:TYPE IF OLD:TYPE <> " " STORE ROW + 2 TO ROW @ ROW,1 SAY "Total " + OLD:TYPE IF ATITLE = "EXPENSES" @ ROW,40 SAY CTOT:MIN USING ' 999,999,999.99' @ ROW,57 SAY YTOT:MIN USING ' 999,999,999.99' ELSE @ ROW,40 SAY (CTOT:MIN * -1) USING ' 999,999,999.99' @ ROW,57 SAY (YTOT:MIN * -1) USING ' 999,999,999.99' ENDIF STORE CTOT:MAJ + CTOT:MIN TO CTOT:MAJ STORE 0.00 TO CTOT:MIN STORE YTOT:MAJ + YTO$T:MIN TO YTOT:MAJ STORE 0.00 TO YTOT:MIN IF ACCT:NUMB > LASTINC .AND. ATITLE = "INCOME" STORE ROW + 2 TO ROW @ ROW,40 SAY " -----------" @ ROW,57 SAY " -----------" STORE ROW +1 TO ROW @ ROW,01 SAY "TOTAL INCOME" @ ROW,40 SAY (CTOT:MAJ * -1) USING ' 999,999,999.99' @ ROW,57 SAY (YTOT:MAJ * -1) USING ' 999,999,999.99' STORE (CTOT:MAJ * -1) TO CUR:INC STORE (YTOT:MAJ * -1) TO YTD:INC STORE "EXPENSES" TO ATITLE STORE 0.00 TO CTOT:MAJ STORE 0.00 TO YTOT:MAJ IF ROW > 44 EJECT @ 1,25 SAY CNAME @ 2,25 SAY MTITLE @ 4,25 SAY HEADING @ 6,1 SAY ATITLE @ 6,49 SAY "Current Year-to-date" STORE 6 TO ROW ELSE STORE ROW + 3 TO ROW @ ROW,1 SAY ATITLE ENDIF ENDIF ENDIF STORE ACCT:TYPE TO OLD:TYPE STORE ROW + 1 TO ROW IF ROW > 50 EJECT @ 1,25 SAY CNAME @ 2,25 SAY MTITLE @ 4,25 SAY HEADING @ 6,1 SAY ATITLE @ 6,49 SAY "Current Year-to-date" STORE 6 TO ROW ENDIF STORE ROW + 1 TO ROW @ ROW,1 SAY OLD:TYPE STORE ROW + 1 TO ROW ENDIF STORE ACCT:NUMB TO ACCT STORE ROW + 1 TO ROW @ ROW,04 SAY ACCT:NAME STORE 0.00 TO CBAL STORE AMOUNT TO YBAL SELECT SECONDARY FIND &ACCT IF # = 0 ELSE DO WHILE ACCT:NUMB = ACCT .AND. .NOT. EOF IF $(PDATE,7,2) + $(PDATE,1,5) > TDATE SKIP LOOP ENDIF STORE CBAL + AMOUNT TO CBAL STORE YBAL + AMOUNT TO YBAL SKIP ENDDO ENDIF IF ATITLE = "EXPENSES" @ ROW,40 SAY CBAL USING ' 999,999,999.99' @ ROW,57 SAY YBAL USING ' 999,999,999.99' ELSE @ ROW,40 SAY (CBAL * -1) USING ' 999,999,999.99' @ ROW,57 SAY (YBAL * -1) USING ' 999,999,999.99' ENDIF STORE CTOT:MIN + CBAL TO CTOT:MIN STORE YTOT:MIN + YBAL TO YTOT:MIN SELECT PRIMARY SKIP ENDDO EOF STORE ROW + 2 TO ROW @ ROW,1 SAY "Total " + OLD:TYPE @ ROW,40 SAY CTOT:MIN USING ' 999,999,999.99' @ ROW,57 SAY YTOT:MIN USING ' 999,999,999.99' STORE CTOT:MAJ + CTOT:MIN TO CTOT:MAJ STORE YTOT:MAJ + YTOT:MIN TO YTOT:MAJ STORE ROW + 2 TO ROW @ ROW,40 SAY " -----------" @ ROW,57 SAY " -----------" STORE ROW +1 TO ROW @ ROW,01 SAY "TOTAL EXPENSES" @ ROW,40 SAY CTOT:MAJ USING ' 999,999,999.99' @ ROW,57 SAY YTOT:MAJ USING ' 999,999,999.99' STORE ROW + 2 TO ROW @ ROW,40 SAY " -----------" @ ROW,57 SAY " -----------" STORE ROW +1 TO ROW @ ROW,1 SAY "NET PROFIT (LOSS)" @ ROW,40 SAY (CUR:INC - CTOT:MAJ) USING ' 999,999,999.99' @ ROW,57 SAY (YTD:INC - YTOT:MAJ) USING ' 999,999,999.99' STORE ROW + 1 TO ROW @ ROW,40 SAY " ===========" @ ROW,57 SAY " ===========" EJECT FIND &YTDEARN REPLACE AMOUNT WITH (YTOT:MAJ-YTD:INC) SET FORMAT TO SCREEN RETURN * JREG.CMD - Journal Register Reports * STORE TRIM(TITLE) TO MTITLE SELECT PRIMARY USE DAJOUR INDEX DAJOUR2 ERASE @ 1,10 SAY TMARK + " " + CNAME SET INTE OFF @ 3,10 SAY MTITLE SET INTE ON @ 5,10 SAY "You may choose one of the following registers:" @ 6,10 SAY " 1 - Cash receipts 2 - Cash disbursements" @ 7,10 SAY " 3 - Invoice register 4 - Credit purchases" @ 8,10 SAY " 5 - General journal 6 - Exit" STORE " " TO ANSWER DO WHILE ANSWER < "1" .OR. ANSWER > "6" STORE " " TO ANSWER @ 9,10 SAY "Enter your choice as a number between 1 and 6 " GET ANSWER PICTURE "9" READ ENDDO IF ANSWER = "6" RETURN ENDIF STORE (VAL(ANSWER)*8) - 7 TO POS STORE "Receipt Check Invoice P. O. Journal " TO REFER:NO STORE $(REFER:NO,POS,8) TO R:NO STORE (VAL(ANSWER)*2) - 1 TO POS STORE "CRCDINCPGJ" TO JOURNALS STORE "FOR JOURNAL = '" + $(JOURNALS,POS,2) + "'" TO CRITERIA STORE TRIM(R:NO) + " Register in " + TRIM(R:NO) + " No. sequence" TO HEADING @ 14,10 SAY "Please ensure that your printer is ready to print." STORE " " TO READY @ 15,10 SAY "Enter (P)rint or (Q)uit followed by RETURN " GET READY READ IF !(READY) = "Q" RETURN ENDIF @ 18,10 SAY "Your report is now printing!" SET CONSOLE OFF SET HEADING TO &HEADING SET PRINT ON REPORT FORM DAJREG &CRITERIA EJECT SET PRINT OFF SET CONSOLE ON RETURN - Credit purchases" @ 8,10 SAY " 5 - General journal 6 - Exit" STORE " " TO ANSWER DO WHILE ANSWER < "1" .OR. ANSWER > "6" STORE " " TO ANSWER @ 9,10 SAY "Enter your choice as a number between 1 and 6 " GET ANSWER PICTURE "9" READ ENDDO IF ANSWER = "6" RETURN ENDIF STORE (VAL(ANSWER)*8) - 7 TO POS STORE "Receipt Check Invoice P. O. Journal " TO REFER:NO STORE $(REFER:NO,POS,8) TO R:NO STORE (VAL(ANSWER)*2) - 1 TO POS STORE "CRCDINCPGJ" TO JOURNALS STORE "FOR JOURNAL = '" + $(JOURNALS,POS,2) + "'" TO CRITERIA STORE TRIM(R:NO) + " Register in " + TRIM(R:NO) + " No. sequence" TO HEADING @ 14,1* LIST.CMD - LIST RECORDS BASED ON USER SELECTION * STORE TRIM(CATEGORY) TO CAT STORE TRIM(TITLE) TO MTITLE STORE PARM TO STYPE SELECT PRIMARY STORE "DSLIST" TO DSFILE USE &SYS&DSFILE GO BOTTOM STORE # TO LAST USE &SYS&DSFILE INDEX &SYS&DSFILE&ONE FIND &CAT STORE "LIST:DESC" TO FLIST STORE "CATEGORY = CAT" TO MATCH STORE "The following lists are available to use:" TO MDESC STORE "DSDISP" TO COMMAND DO &SYS&COMMAND IF !(RECORD)="Q" RETURN ENDIF IF !(RECORD)="A" APPEND BLANK REPLACE CATEGORY WITH CAT ELSE GOTO &RECORD ENDIF IF STYPE = "A" SET FORMAT TO &SYS&DSFILE STORE " " TO DEL READ SET FORMAT TO SCREEN IF DEL = "DEL" DELETE RETURN ENDIF ENDIF STORE TRIM(FILENAME) TO FNAME STORE OUTPUT TO MOUT STORE LIST:DESC TO LDESC STORE TRIM(FLD:LIST) TO FLIST STORE TRIM(NDXNAME) TO MNDXNAME STORE TRIM(SPEC:NDX) TO MSPEC IF SELECTION = " " STORE " " TO CRITERIA ELSE STORE "FOR " + TRIM(SELECTION) TO CRITERIA ENDIF SELECT PRIMARY USE &FNAME ERASE @ 1,10 SAY TMARK + " " + CNAME SET INTE OFF @ 3,10 SAY MTITLE SET INTE ON @ 5,10 SAY "Listing " + LDESC STORE 5 TO ROW IF !(MNDXNAME) = "SPECIAL" STORE ROW + 2 TO ROW @ ROW,10 SAY "Waiting while a special index is created on " GET MSPEC CLEAR GETS INDEX ON &MSPEC TO &FNAME ELSE SET INDEX TO &MNDXNAME ENDIF IF MOUT = "P" .OR. MOUT = "B" STORE ROW + 2 TO ROW @ ROW,10 SAY "Please ensure that your printer is ready to print." STORE ROW + 1 TO ROW STORE " " TO READY @ ROW,10 SAY "Enter (P)rint or (Q)uit followed by RETURN " GET READY READ IF !(READY) = "Q" RETURN ENDIF SET PRINT ON ENDIF IF MOUT = "P" SET CONSOLE OFF LIST ALL &FLIST &CRITERIA OFF ELSE DISPLAY ALL &FLIST &CRITERIA OFF ENDIF EJECT SET PRINT OFF SET CONSOLE ON ? "LIST COMPLETE" WAIT RETURN %* MENU.CMD - PROCESS MENU * DO WHILE T SELECT PRIMARY STORE "DSPROG" TO DSFILE USE &SYS&DSFILE STORE TRIM(PROGRAM) TO OLDMENU SET INDEX TO &SYS&DSFILE&TWO FIND &OLDMENU STORE TRIM(TITLE) TO MTITLE ERASE @ 1,10 SAY TMARK + " " + CNAME SET INTE OFF @ 3,10 SAY MTITLE SET INTE ON @ 5,10 SAY "CODE DESCRIPTION" SET INDEX TO &SYS&DSFILE&ONE FIND &OLDMENU DISP " " + MENU:CODE + " " + TITLE WHILE MENU=OLDMENU OFF STORE Y TO LOGICAL DO WHILE LOGICAL STORE " " TO SELECTION @ 20,10 SAY "To select an item, enter the code on the left and RETURN." @ 21,10 SAY "You may also enter a code not on this menu if you know it." @ 22,10 SAY "Enter a code or just RETURN to exit " GET SELECTION PICTURE '!!!' READ SET INDEX TO &SYS&DSFILE&TWO IF SELECTION = " " IF OLDMENU = "MAI" RETURN ENDIF FIND &OLDMENU STORE MENU TO OLDMENU GOTO 1 REPLACE PROGRAM WITH OLDMENU STORE F TO LOGICAL ELSE SET EXACT ON FIND &SELECTION SET EXACT OFF IF # = 0 @ 23,10 SAY SELECTION+" is not a valid code - please try again." ELSE STORE F TO LOGICAL ENDIF ENDIF ENDDO IF SELECTION = " " LOOP ENDIF IF CATEGORY = "MNU" STORE MENU:CODE TO OLDMENU GOTO 1 REPLACE PROGRAM WITH OLDMENU ELSE STORE CATEGORY TO CAT STORE &CAT TO DEFA STORE SYS + TRIM(PROGRAM) TO PROG SET DEFAULT TO &DEFA DO &PROG SET DEFAULT TO &SYS SELECT PRIMARY STORE "DSPROG" TO DSFILE USE &SYS&DSFILE REPLACE PROGRAM WITH OLDMENU CLEAR RESTORE FROM DPROG ENDIF ENDDO RETURN  RETURN ENDIF FIND &OLDMENU STORE MENU TO OLDMENU GOTO 1 REPLACE PROGRAM WITH OLDMENU* MNDX.CMD - Modify indexes of a file * STORE "DSMNDX" TO FMTNAME SET FORMAT TO &SYS&FMTNAME READ SET FORMAT TO SCREEN ERASE @ 1,10 SAY TMARK + " " + CNAME SET INTE OFF @ 3,10 SAY MTITLE SET INTE ON @ 5,10 SAY "Index names for drive " + DEFA DISP FILES LIKE *.NDX SELECT SECONDARY COPY STRU EXTE TO &SYS&FMTNAME DISP " " OFF USE &SYS&FMTNAME STORE " " TO FLDNAMES STORE 0 TO FLDCOUNT DO WHILE (.NOT. EOF) .AND. (FLDCOUNT <= 26) IF FLDNAMES = " " STORE !(FIELD:NAME) TO FLDNAMES ELSE STORE FLDNAMES + !(FIELD:NAME) TO FLDNAMES ENDIF STORE FLDCOUNT + 1 TO FLDCOUNT SKIP ENDDO USE &FNAME STORE " " TO ANSWER @ 23,10 SAY "Enter RETURN to continue. " GET ANSWER READ STORE " " TO ANSWER DO WHILE ANSWER <> "0" SELECT PRIMARY ERASE @ 1,10 SAY TMARK + " " + CNAME SET INTE OFF @ 3,10 SAY MTITLE SET INTE ON @ 5,10 SAY "Index names for " + FDESC STORE 6 TO ROW STORE 1 TO COUNT DO WHILE COUNT < 8 STORE STR(COUNT,1) TO CNT @ ROW+COUNT,10 SAY "Index number "+CNT+" is " GET INDEX&CNT STORE COUNT + 1 TO COUNT ENDDO CLEAR GETS STORE " " TO ANSWER @ 15,10 SAY "Enter index number 1-7 to add, modify or delete an index " GET ANSWER PICTURE "9" @ 16,10 SAY "To quit enter 0 " READ IF ANSWER > "7" .OR. ANSWER < "1" LOOP ENDIF IF INDEX&ANSWER = " " STORE " " TO INAME @ 18,10 SAY "Enter a name for this new index " GET INAME PICTURE "!!!!!!!!" READ STORE F TO CORRECT DO WHILE .NOT. CORRECT STORE " " TO KNAME @ 19,10 SAY "Enter key field name " GET KNAME PICTURE "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" READ IF KNAME = " " STORE T TO CORRECT LOOP ENDIF STORE TRIM(KNAME) TO TKEY STORE 1 TO CHECK DO WHILE CHECK <= FLDCOUNT IF $(FLDNAMES,(10*CHECK)-9,10) = $(KNAME,1,10) STORE FLDCOUNT + 1 TO CHECK STORE T TO CORRECT ELSE STORE CHECK + 1 TO CHECK ENDIF ENDDO IF .NOT. CORRECT STORE " " TO ACCEPT @ 20,10 SAY "That may not be a correct field name. If you believe it to be a" @ 21,10 SAY "correct entry, enter ACCEPT. If not, RETURN. " GET ACCEPT PICTURE "!!!!!!" READ IF ACCEPT = "ACCEPT" STORE T TO CORRECT ELSE @ 20,10 @ 21,10 ENDIF ENDIF ENDDO IF KNAME = " " LOOP ENDIF ERASE @ 1,10 SAY TMARK + " " + CNAME SET INTE OFF @ 3,10 SAY MTITLE SET INTE ON @ 5,10 SAY "Now indexing on " + TKEY + " to " + INAME SELECT SECONDARY SET TALK ON INDEX ON &TKEY TO &INAME SET TALK OFF * This is very important - do not remove - this means you SET INDEX TO SELECT PRIMARY REPLACE INDEX&ANSWER WITH INAME STORE T TO CORRECT ELSE STORE INDEX&ANSWER TO INAME @ 18,10 SAY "Enter a new name for this index or 'DELETE' to delete it. " GET INAME PICTURE "!!!!!!!!" READ IF INAME = "DELETE " STORE INDEX&ANSWER TO NDXNAME STORE TRIM(NDXNAME) + ".NDX" TO NDXNAME DELETE FILE &NDXNAME REPLACE INDEX&ANSWER WITH " " ELSE STORE INDEX&ANSWER TO OLDNDX STORE TRIM(OLDNDX) + ".NDX" TO OLDNDX STORE TRIM(INAME) + ".NDX" TO NDXNAME IF FILE(NDXNAME) @ 18,10 SAY "That index name is already being used. Please try again. " STORE " " TO ANSWER @ 23,10 SAY "Enter RETURN to continue. " GET ANSWER READ LOOP ENDIF RENAME &OLDNDX TO &NDXNAME REPLACE INDEX&ANSWER WITH INAME ENDIF ENDIF ENDDO SELECT PRIMARY STORE " " TO ALLNDX STORE 1 TO COUNT DO WHILE COUNT < 8 STORE STR(COUNT,1) TO CNT IF INDEX&CNT = " " ELSE IF ALLNDX = " " STORE TRIM(INDEX&CNT) TO ALLNDX ELSE STORE ALLNDX + "," + TRIM(INDEX&CNT) TO ALLNDX ENDIF ENDIF STORE COUNT + 1 TO COUNT ENDDO IF FLD:LIST = " " REPLACE FLD:LIST WITH $(FLDNAMES,1,10) ENDIF REPLACE INDEXES WITH ALLNDX RETURN  ELSE STORE INDEX&ANSWER TO OLDNDX STORE TRIM(OLDNDX) + ".NDX" TO OLDNDX STORE TRIM(INAME) + ".NDX" TO NDXNAME IF FILE(NDXNAME) @ 18,10 SAY "That index name is already being used. Please try again. " STORE " " TO ANSWER @ 23,10 SAY "Enter RETURN to continue. " GET ANSWER READ LOOP ENDIF RENAME &OLDNDX TO &NDXNAME REPLACE INDEX&ANSWER WITH INAME ENDIF ENDIF ENDDO SELECT PRIMARY STORE " " TO ALLNDX STORE 1 TO COUNT DO WHILE COUNT < 8 STORE STR(COUNT,1) TO CNT IF INDEX&CNT = " " ELSE IF ALLNDX = " " STORE TRIM(INDEX&CNT) TO ALLNDX ELSE STORE ALLNDX + "," + TRIM(INDEX&CNT) TO ALLNDX ENDIF ENDIF STORE COUNT + 1 TO COUNT ENDDO IF FLD:LIST = " " REPLACE FLD:LIST WITH $(FLDNAMES&* PROG.CMD - Add a more complicated program to the program file * STORE TRIM(CATEGORY) TO CAT STORE TRIM(TITLE) TO MTITLE STORE PARM TO PTYPE SELECT PRIMARY IF PTYPE = "S" STORE " " TO STYPE STORE "DSFILE" TO DSFILE USE &SYS&DSFILE GO BOTTOM STORE # TO LAST USE &SYS&DSFILE INDEX &SYS&DSFILE&ONE STORE "FILENAME,' ',FILE:DESC" TO FLIST STORE "CATEGORY = CAT" TO MATCH FIND &CAT STORE "The following files are available:" TO MDESC STORE "DSDISP" TO COMMAND DO &SYS&COMMAND IF !(RECORD)="Q" RETURN ENDIF GOTO &RECORD STORE FILENAME TO FNAME STORE FILE:DESC TO FDESC ENDIF IF PTYPE = "S" .OR. PTYPE = "C" STORE "DSADD" + PTYPE TO FMTNAME SET FORMAT TO &SYS&FMTNAME STORE " " TO ANSWER READ SET FORMAT TO SCREEN IF ANSWER = "NO" RETURN ENDIF ENDIF ERASE @ 1,10 SAY TMARK + " " + CNAME @ 3,10 SAY MTITLE IF PTYPE = "S" @ 5,10 SAY "File selected is " + FDESC ENDIF STORE " " TO PCODE IF PTYPE <> "G" @ 7,10 SAY "To create a new program enter a unique program code." ENDIF @ 8,10 SAY "To modify a current program enter a current program code." @ 10,10 SAY "Enter a program code " GET PCODE PICTURE "!!!" READ STORE "DSPROG" TO DSFILE USE &SYS&DSFILE SET INDEX TO &SYS&DSFILE&TWO,&SYS&DSFILE&ONE SET EXACT ON FIND &PCODE SET EXACT OFF IF # = 0 IF PTYPE = "G" @ 12,10 SAY "To modify menu information, you must enter an existing code." @ 13,10 SAY "Other programs are available to add new programs. Enter RETURN " @ 14,10 SAY "and you will be returned to the menus. Either choose another " @ 15,10 SAY "program to add your new program or select this program again " @ 16,10 SAY "after determining the correct program code." WAIT RETURN ENDIF APPEND BLANK REPLACE MENU:CODE WITH PCODE ENDIF IF PTYPE = "S" REPLACE CATEGORY WITH CAT REPLACE FILENAME WITH FNAME REPLACE PROGRAM WITH "DSSEAR" ENDIF IF PTYPE = "C" REPLACE CATEGORY WITH CAT ENDIF IF PTYPE = "M" REPLACE CATEGORY WITH "MNU" ENDIF STORE " " TO DEL @ 12,10 SAY "Enter or modify the program description which appears on the menu." @ 13,10 GET TITLE @ 15,10 SAY "You may place this program on any menu in the system. Please enter" @ 16,10 SAY "the exact code of the menu on which you want this program displayed." @ 17,10 SAY "If you do not know a valid menu code, use MAI for main menu. " GET MENU PICTURE "!!!" @ 19,10 SAY "Enter or modify the menu sequence code which determines the order" @ 20,10 SAY "in which programs are displayed on the menus. " GET MENU:SEQ @ 22,10 SAY "Enter 'DEL' in order to delete this program " GET DEL PICTURE "!!!" READ IF DEL = "DEL" DELETE SET INDEX TO PACK INDEX ON MENU+MENU:SEQ TO &SYS&DSFILE&ONE INDEX ON MENU:CODE TO &SYS&DSFILE&TWO RETURN ENDIF IF PTYPE = "M" .OR. PTYPE = "G" RETURN ENDIF STORE "DSPGM" + PTYPE TO FMTNAME SET FORMAT TO &SYS&FMTNAME READ SET FORMAT TO SCREEN IF PTYPE = "S" .AND. FORMAT <> " " ERASE @ 1,10 SAY TMARK + " " + CNAME @ 3,10 SAY MTITLE STORE " " TO ANSWER STORE TRIM(FORMAT) + ".FMT" TO SCREENFMT STORE FILE(SCREENFMT) TO DUP STORE FILE("DSPASS") TO XXX IF DUP @ 5,10 SAY "Screen format " + FORMAT + " already exists. You may use it or modify it." @ 6,10 SAY "Enter (U)se, (M)odify or just RETURN to choose another. " GET ANSWER PICTURE "!" READ IF ANSWER = "U" .OR. ANSWER = "M" IF ANSWER = "M" MODIFY COMMAND &SCREENFMT ENDIF ELSE STORE " " TO ANSWER @ 7,10 SAY "In order to use another screen format, select this program record" @ 8,10 SAY "again and enter a new screen format name. Enter RETURN " WAIT ENDIF ELSE STORE " " TO ANSWER @ 7,10 SAY "You have selected a new screen format, enter the format lines on the" @ 8,10 SAY "next screen. Enter a CTRL W when you have finished. Enter RETURN " WAIT SELECT SECONDARY USE MODIFY COMMAND &SCREENFMT SELECT PRIMARY ENDIF ENDIF IF PTYPE = "C" ERASE @ 1,10 SAY TMARK + " " + CNAME @ 3,10 SAY MTITLE STORE " " TO ANSWER STORE SYS + TRIM(PROGRAM) + ".CMD" TO COMMFILE STORE FILE(COMMFILE) TO DUP STORE FILE("DSPASS") TO XXX IF DUP @ 5,10 SAY "Command file " + PROGRAM + " already exists. You may use it or modify it." @ 6,10 SAY "Enter (U)se, (M)odify or just RETURN to choose another. " GET ANSWER PICTURE "!" READ IF ANSWER = "U" .OR. ANSWER = "M" IF ANSWER = "M" MODIFY COMMAND &COMMFILE ENDIF ELSE STORE " " TO ANSWER @ 7,10 SAY "In order to use another command file, select this program record" @ 8,10 SAY "again and enter a new command file name. Enter RETURN " WAIT ENDIF ELSE STORE " " TO ANSWER @ 7,10 SAY "You have selected a new command file, enter the command lines on the" @ 8,10 SAY "next screen. Enter a CTRL W when you have finished. Enter RETURN " WAIT SELECT SECONDARY USE MODIFY COMMAND &COMMFILE SELECT PRIMARY ENDIF ENDIF RETURN OGRAM) + ".CMD" TO COMMFILE STORE FILE(COMMFILE) TO DUP STORE FILE("DSPASS") TO XXX IF DUP @ 5,10 SAY "Command file " + PROGRAM + " already exists. You may use it or modify it." @ 6,10 SAY "Enter (U)se, (M)odify or just RETURN to choose another. " GET ANSWER PICTURE "!" READ IF ANSWER = "U" .OR. ANSWER = "M" IF ANSWER = "M" MODIFY COMMAND &COMMFILE ENDIF ELSE STORE " " TO ANSWER @ 7,10 SAY "In order to use another command file, select this program record" @ 8,10 SAY "again and enter a new command file name. Enter RETURN " WAIT ENDIF ELSE STORE " " TO ANSWER @ 7,10 SAY "You have selected a new command file, en* REPT.CMD - REPT RECORDS BASED ON USER SELECTION * STORE TRIM(CATEGORY) TO CAT STORE TRIM(TITLE) TO MTITLE STORE PARM TO STYPE SELECT PRIMARY STORE "DSREPT" TO DSFILE USE &SYS&DSFILE GO BOTTOM STORE # TO LAST USE &SYS&DSFILE INDEX &SYS&DSFILE&ONE FIND &CAT STORE "REPT:DESC" TO FLIST STORE "CATEGORY = CAT" TO MATCH STORE "The following reports are available to use:" TO MDESC STORE "DSDISP" TO COMMAND DO &SYS&COMMAND IF !(RECORD)="Q" RETURN ENDIF IF !(RECORD)="A" APPEND BLANK REPLACE CATEGORY WITH CAT ELSE GOTO &RECORD ENDIF IF STYPE = "A" SET FORMAT TO &SYS&DSFILE STORE " " TO DEL READ SET FORMAT TO SCREEN IF DEL = "DEL" DELETE RETURN ENDIF ENDIF STORE TRIM(FILENAME) TO FNAME STORE REPT:DESC TO RDESC STORE TRIM(REPT:FORM) TO REPTNAME STORE REPTNAME + ".FRM" TO REPTFORM STORE TRIM(NDXNAME) TO MNDXNAME STORE TRIM(SPEC:NDX) TO MSPEC IF SELECTION = " " STORE " " TO CRITERIA ELSE STORE "FOR " + TRIM(SELECTION) TO CRITERIA ENDIF SELECT SECONDARY USE &FNAME ERASE @ 1,10 SAY TMARK + " " + CNAME SET INTE OFF @ 3,10 SAY MTITLE SET INTE ON IF STYPE = "A" REPORT FORM &REPTNAME USE RETURN ENDIF @ 5,10 SAY "Printing " + RDESC STORE 5 TO ROW IF !(MNDXNAME) = "SPECIAL" STORE ROW + 2 TO ROW @ ROW,10 SAY "Waiting while a special index is created on " GET MSPEC CLEAR GETS INDEX ON &MSPEC TO &FNAME ELSE SET INDEX TO &MNDXNAME ENDIF STORE ROW + 2 TO ROW STORE " " TO HEADING @ ROW,10 SAY "You may now enter a report heading for later identification." @ ROW+1,10 SAY "RETURN only for no heading. " GET HEADING READ STORE ROW + 2 TO ROW @ ROW,10 SAY "Please ensure that your printer is ready to print." STORE ROW + 1 TO ROW STORE " " TO READY @ ROW,10 SAY "Enter (P)rint or (Q)uit followed by RETURN " GET READY READ IF !(READY) = "Q" RETURN ENDIF @ ROW+2,10 SAY "Your report is now printing!" SET' CONSOLE OFF SET EJECT OFF SET HEADING TO &HEADING SET PRINT ON REPORT FORM &REPTNAME &CRITERIA EJECT SET PRINT OFF SET CONSOLE ON RETURN " + RDESC STORE 5 TO ROW IF !(MNDXNAME) = "SPECIAL" STORE ROW + 2 TO ROW @ ROW,10 SAY "Waiting while a special index is created on " GET MSPEC CLEAR GETS INDEX ON &MSPEC TO &FNAME ELSE SET INDEX TO &MNDXNAME ENDIF STORE ROW + 2 TO ROW STORE " " TO HEADING @ ROW,10 SAY "You may now enter a report heading for later identification." @ ROW+1,10 SAY "RETURN only for no heading. " GET HEADING READ STORE ROW + 2 TO ROW @ ROW,10 SAY "Please ensure that your printer is ready to print." STORE ROW + 1 TO ROW STORE " " TO READY @ ROW,10 SAY "Enter (P)rint or (Q)uit followed by RETURN " GET READY READ IF !(READY) = "Q" RETURN ENDIF @ ROW+2,10 SAY "Your report is now printing!" SET* SEAR.CMD - SEAR RECORDS BASED ON USER SELECTION STORE CATEGORY TO CAT STORE TRIM(FILENAME) TO FNAME STORE TRIM(TITLE) TO MTITLE IF FORMAT = " " STORE "SCREEN" TO FMTNAME ELSE STORE FORMAT TO FMTNAME ENDIF STORE NDXNUMB TO SUFFIX STORE LENGTH TO KEYLEN STORE PARM TO STYPE STORE TRIM(KEYNAME) TO KNAME SELECT PRIMARY STORE "DSFILE" TO DSFILE USE &SYS&DSFILE INDEX &SYS&DSFILE&ONE FIND &CAT&FNAME IF # = 0 ERASE @ 3,01 SAY "Sorry but the Filename in the program record you selected is not correct." @ 4,01 SAY "Enter RETURN to return to the menu. Correct the Filename and try again. " WAIT RETURN ENDIF STORE TRIM(FLD:LIST) TO FLIST STORE TRIM(FILE:DESC) TO FDESC IF SUFFIX > "0" .AND. SUFFIX < "7" STORE TRIM(INDEX&SUFFIX) TO KEYNDX STORE TRIM(INDEX&SUFFIX) TO ALLNDX STORE 1 TO COUNT DO WHILE COUNT <= 7 STORE STR(COUNT,1) TO CNT IF INDEX&CNT = " " .OR. CNT = SUFFIX ELSE STORE ALLNDX+","+TRIM(INDEX&CNT) TO ALLNDX ENDIF STORE COUNT + 1 TO COUNT ENDDO ELSE STORE " " TO KEYNDX STORE INDEXES TO ALLNDX ENDIF STORE " " TO RECORD DO WHILE T SELECT PRIMARY USE &FNAME GO BOTTOM STORE # TO LAST SET INDEX TO &KEYNDX GO TOP IF KEYLEN = " " .OR. KEYNDX = " " IF !(RECORD) = "Q" RETURN ENDIF STORE "T" TO MATCH STORE "Listing entire file" TO MDESC STORE " " TO PKEY ELSE ERASE @ 1,10 SAY TMARK + " " + CNAME SET INTE OFF @ 3,10 SAY MTITLE SET INTE ON STORE $(BLANKS,1,&KEYLEN) TO PKEY STORE PKEY TO BKEY @ 5,10 SAY "This program will search the " + FDESC + " file based on" @ 6,10 SAY "your entry of a " + KNAME + " below. Normally you should enter as much" @ 7,10 SAY "of the "+KNAME+" as you know in order to limit the search. " @ 8,10 SAY "Information from each record matching your criteria will be displayed." @ 9,10 SAY "You will then be able to select individual records to view or modify." IF STYPE = "A" @ 10,10 SAY "If the record you are looking for is not there, you may add it." @ 11,10 SAY "ADD will allow you to add new records to the file." ENDIF @ 12,10 SAY "ALL will display all records from the beginning." @ 13,10 SAY "Just RETURN will return you back to the menu." @ 15,10 SAY KNAME+" " GET PKEY READ IF PKEY = BKEY RETURN ENDIF IF !(PKEY) = "ALL" STORE "T" TO MATCH STORE "Listing entire file" TO MDESC ELSE STORE TRIM(PKEY) TO TKEY STORE KNAME+"=TKEY" TO MATCH STORE "Listing for " + KNAME + " = " + TKEY TO MDESC FIND &TKEY ENDIF ENDIF IF !(PKEY) = "ADD" .AND. STYPE = "A" STORE "A" TO RECORD ELSE STORE "DSDISP" TO COMMAND DO &SYS&COMMAND ENDIF IF !(RECORD)="Q" LOOP ENDIF SET INDEX TO &ALLNDX SET FORMAT TO &FMTNAME IF !(RECORD)="A" APPEND ELSE EDIT &RECORD ENDIF SET FORMAT TO SCREEN ENDDO RETURN *UTIL.CMD - File utility program * STORE TRIM(CATEGORY) TO CAT STORE TRIM(TITLE) TO MTITLE STORE PARM TO STYPE SELECT PRIMARY STORE "DSFILE" TO DSFILE USE &SYS&DSFILE GO BOTTOM STORE # TO LAST USE &SYS&DSFILE INDEX &SYS&DSFILE&ONE STORE "FILENAME,' ',FILE:DESC" TO FLIST STORE "CATEGORY = CAT" TO MATCH FIND &CAT STORE "The following files are available:" TO MDESC STORE "DSDISP" TO COMMAND DO &SYS&COMMAND IF !(RECORD)="Q" RETURN ENDIF STORE FILENAME TO FNAME STORE FILE:DESC TO FDESC STORE INDEXES TO ALLNDX SELECT SECONDARY USE &FNAME DO WHILE T ERASE @ 1,10 SAY TMARK + " " + CNAME SET INTE OFF STORE "Utility menu" TO MTITLE @ 3,10 SAY MTITLE SET INTE ON @ 5,10 SAY "You have selected " + FDESC STORE " " TO ANSWER @ 7,10 SAY "Your choices are:" @ 9,10 SAY " COPY - Copy file to another name" @ 10,10 SAY " REPL - Replace all the values of a field" @ 11,10 SAY " DELE - Delete records for a given condition" @ 12,10 SAY " RECA - Recall records for a given condition" @ 14,10 SAY "Enter your choice or just a RETURN to quit " GET ANSWER PICTURE "!!!!" READ IF ANSWER = " " RETURN ENDIF IF ANSWER = "COPY" .OR. ANSWER = "REPL" .OR. ANSWER = "DELE" .OR. ANSWER = "RECA" ELSE @ 21,10 SAY ANSWER + " is not a valid entry, please try again." STORE " " TO ANSWER @ 22,10 SAY "Enter RETURN to continue. " GET ANSWER READ LOOP ENDIF IF ANSWER = "COPY" STORE " " TO NEWFILE STORE " " TO EXT @ 16,10 SAY "Enter new filename to copy to " GET NEWFILE PICTURE "!!!!!!!!" @ 17,10 SAY "Enter extension for new file " GET EXT PICTURE "!!!" @ 18,10 SAY "An extension of DBF will result in a dBASE file structure, anything" @ 19,10 SAY "else will be a structure usable by a word processor for mailing" @ 20,10 SAY "letters and labels. Enter two RETURNs to quit." READ IF NEWFILE = " ( " LOOP ENDIF @ 16,10 @ 17,10 @ 18,10 @ 19,10 @ 20,10 IF EXT = "DBF" STORE " TO " + TRIM(NEWFILE) TO DEST ELSE STORE " TO " + TRIM(NEWFILE) + "." + EXT + " SDF DELIMITED WITH , " TO DEST ENDIF ENDIF IF ANSWER = "REPL" STORE F TO CORRECT DO WHILE .NOT. CORRECT STORE " " TO FIELD STORE " " TO VALUE @ 16,10 SAY "Enter field to be replaced " GET FIELD PICTURE "!!!!!!!!!!" @ 17,10 SAY "Enter new value(character fields within quotes) " GET VALUE @ 18,10 SAY "Enter two RETURNs in order to quit" READ IF FIELD = " " STORE T TO CORRECT LOOP ENDIF STORE TRIM(FIELD) + " = " + TRIM(VALUE) TO CRIT IF 0 = TEST(&CRIT) @ 19,10 SAY "I'm sorry, but there is something wrong with the following criteria." @ 20,10 SAY "Field " GET FIELD @ 20,30 SAY "Value " GET VALUE CLEAR GETS ELSE STORE T TO CORRECT @ 16,10 @ 17,10 @ 18,10 @ 19,10 @ 20,10 ENDIF ENDDO IF FIELD = " " LOOP ENDIF STORE TRIM(FIELD) + " WITH " + TRIM(VALUE) TO REPLMENT ENDIF STORE F TO CORRECT DO WHILE .NOT. CORRECT STORE " " TO CRITERIA @ 16,10 SAY "Enter selection criteria below or RETURN to select all records." @ 17,10 GET CRITERIA READ STORE TRIM(CRITERIA) TO CRIT IF CRIT = " " STORE T TO CORRECT ELSE IF 0 = TEST(&CRIT) STORE F TO CORRECT ELSE STORE T TO CORRECT ENDIF ENDIF IF CORRECT @ 16,10 @ 17,10 @ 19,10 @ 20,10 ELSE @ 19,10 SAY "I'm sorry, but there is something wrong with the following criteria." @ 20,10 GET CRITERIA CLEAR GETS ENDIF ENDDO IF CRIT = " " STORE "ALL " TO SELECTION ELSE STORE " FOR " + CRIT TO SELECTION ENDIF @ 16,0 IF ANSWER = "COPY" SET INDEX TO DISP "Now copying records" OFF SET TALK ON COPY &DEST &SELECTION SET TALK OFF DISP "Copy complete" OFF ENDIF IF ANSWER = "REPL" SET INDEX TO &ALLNDX DISP "Now replacing values" OFF SET TALK ON REPL &REPLMENT &SELECTION SET TALK OFF DISP "Replace complete" OFF ENDIF IF ANSWER = "DELE" SET INDEX TO DISP "Now deleting records " OFF SET TALK ON DELE &SELECTION SET TALK OFF DISP "Delete complete" OFF ENDIF IF ANSWER = "RECA" SET INDEX TO DISP "Now recalling records " OFF SET TALK ON RECALL &SELECTION SET TALK OFF DISP "Recall complete" OFF ENDIF STORE " " TO ANSWER WAIT ENDDO RETURN * ADDC.FMT - Text describing options for adding a command file. @ 1,10 SAY TMARK + " " + CNAME @ 3,10 SAY MTITLE @ 5,10 SAY "A command file allows you to create custom programs which do a" @ 6,10 SAY "specific function. Command files may be written by anyone, but " @ 7,10 SAY "writing a complex one may require some experience. Command " @ 8,10 SAY "files are dBASE II programs and use only valid dBASE II commands." @ 9,10 SAY "Some command files may only be two or three lines long while " @ 10,10 SAY "others may go on for pages. Command files may be produced using" @ 11,10 SAY "dPROGRAMMER or a word processor. If you are using long programs " @ 12,10 SAY "and are familiar with a word processor, it is recommended that you" @ 13,10 SAY "use the word processor. Command files are stored on your computer" @ 14,10 SAY "with an extension of CMD. You will have to provide a unique name" @ 15,10 SAY "for new command files. You may incorporate an existing command file" @ 16,10 SAY "which you may have written for dBASE II into your menu structure" @ 17,10 SAY "by just using its name as the name of the program. Make sure you" @ 18,10 SAY "have copied the CMD file onto this drive before continuing with " @ 19,10 SAY "this program. Read your documentation. GOOD LUCK!" @ 21,10 SAY "Enter RETURN to add a command or 'NO' to quit. " GET ANSWER PICTURE "!!" programs and use only valid dBASE II commands." @ 9,10 SAY "Some command files may only be two or three lines long while " @ 10,10 SAY "others may go on for pages. Command files may be produced using" @ 11,10 SAY "dPROGRAMMER or a word processor. If you are using long programs " @ 12,10 SAY "and are familiar with a word processor, it is recommended that you" @ 13,10 SAY "use the word processor. Command files are stored on your computer" @ 14,10 SAY "with an extension of CMD. You will have to provide a unique name" @ 15,10 SAY "for new command files. You may incorporate an existing command file" @ 16,10 SAY "which you may ha* ADDF.FMT - Text describing options for adding a new file to the system. @ 1,10 SAY TMARK + " " + CNAME @ 3,10 SAY MTITLE @ 5,10 SAY " If you wish to add a new file you must be prepared to enter" @ 6,10 SAY "data about this file to the computer. You will have to give it a" @ 7,10 SAY "name. For each field in this file you will have to enter a field" @ 8,10 SAY "name, a field type (C for character, N for numeric, or L for " @ 9,10 SAY "logical), a field length and number of decimal places if it is a" @ 10,10 SAY "numeric field. Almost all fields will be character fields. You " @ 11,10 SAY "would only make a field numeric if you intend to do arithmetic " @ 12,10 SAY "such as adding and subtracting on it. Dates, social security " @ 13,10 SAY "numbers, phone numbers, zip codes and employee ID numbers should" @ 14,10 SAY "all be character fields while YTD quantity delivered should be" @ 15,10 SAY "numeric. Dollar values should be numeric with a length of 10 and" @ 16,10 SAY "2 digits after the decimal point. Logical fields are only used" @ 17,10 SAY "if the only possible value of the field is yes or no. " @ 18,10 SAY " You will also be asked to enter up to 7 of the fields as key" @ 19,10 SAY "fields. It is not necessary to have any key fields for your file." @ 21,10 SAY "Enter new file name " GET FNAME PICTURE "!!!!!!!!" @ 22,10 SAY "Enter new file description " GET FDESC @ 23,10 SAY "To quit without adding a new file enter RETURN twice. " f it is a" @ 10,10 SAY "numeric field. Almost all fields will be character fields. You " @ 11,10 SAY "would only make a field numeric if you intend to do arithmetic " @ 12,10 SAY "such as adding and subtracting on it. Dates, social security " @ 13,10 SAY "numbers, phone numbers, zip codes and employee ID numbers should" @ 14,10 SAY "all be character fields while YTD quantity delivered should be" @ 15,10 SAY "numeric. Dollar values should be numeric with a length of 10 and" @ 16,10 SAY "2 digits after)* ADDS.FMT - Text describing options for adding search program record. @ 1,10 SAY TMARK + " " + CNAME @ 3,10 SAY MTITLE @ 5,10 SAY "A display program allows a user to enter either a partial or complete" @ 6,10 SAY "key field (such as name) and view at least one line of information" @ 7,10 SAY "from all records which match that entry. The user then chooses either" @ 8,10 SAY "to display and modify a complete record by entering a record number" @ 9,10 SAY "or to add new records to the file. For this reason a display program" @ 10,10 SAY "fulfills the purpose of a complete file maintenance program for any" @ 11,10 SAY "file and you will most likely include at least one of these programs" @ 12,10 SAY "in your system's design for each file in your system. " @ 14,10 SAY "You have already chosen the file to be displayed, you must also enter" @ 15,10 SAY "the following information in order to complete this program:" @ 16,10 SAY " 1) Key field name and length" @ 17,10 SAY " 2) Index number (1-7) for this key field" @ 18,10 SAY " 3) Menu information" @ 19,10 SAY " 4) Format file name (.FMT) - optional" @ 20,10 SAY " 5) Allow adding of records (y/n)?" @ 22,10 SAY "Enter RETURN to add a display or 'NO' to quit. " GET ANSWER PICTURE "!!" 0 SAY "to display and modify a complete record by entering a record number" @ 9,10 SAY "or to add new records to the file. For this reason a display program" @ 10,10 SAY "fulfills the purpose of a complete file maintenance program for any" @ 11,10 SAY "file and you will most likely include at least one of these programs" @ 12,10 SAY "in your system's design for each file in your system. " @ 14,10 SAY "You have already chosen the file to be displayed, you must also enter" @ 15,10 SAY "the following information in order to complete this program:" @ 16,10 SAY " 1) Key field name and length" @ 17,10 SAY " 2) Index n* KEYF.FMT - Text describing options for adding keys to a new file. @ 1,10 SAY TMARK + " " + CNAME @ 3,10 SAY MTITLE @ 5,10 SAY "You are now allowed to select up to 7 of the fields which you" @ 6,10 SAY "have just entered as key fields. Key fields are special in that" @ 7,10 SAY "your file will always be maintained in sequence by that field" @ 8,10 SAY "regardless of the order in which the records are entered later." @ 9,10 SAY "This will provide you with a way of sequencing lists and reports" @ 10,10 SAY "which you may easily add later using another program. Key fields" @ 11,10 SAY "will also provide you with a way to look up data records in your" @ 12,10 SAY "file using your CRT screen. You may create look up programs for" @ 13,10 SAY "each key field which allow you to enter that key and then display" @ 14,10 SAY "and modify all the other information on that record. Typically," @ 15,10 SAY "a systems designer (that's what you are doing now) will choose at" @ 16,10 SAY "least an ID number type field and an alphabetic descriptive field" @ 17,10 SAY "as the primary keys for master files. Transaction files are often" @ 18,10 SAY "maintained in ID number and date sequence. Additional key fields" @ 19,10 SAY "should be added if you wish to see reports sorted by that field" @ 20,10 SAY "Each application is unique, however, always remember you may add," @ 21,10 SAY "modify or delete keys later, as long as you do not exceed 7 keys." @ 22,10 SAY "Enter RETURN to add key fields or 'NO' to not add any keys. " @ 22,70 GET ANSWER PICTURE "!!"  to look up data records in your" @ 12,10 SAY "file using your CRT screen. You may create look up programs for" @ 13,10 SAY "each key field which allow you to enter that key and then display" @ 14,10 SAY "and modify all the other information on that record. Typically," @ 15,10 SAY "a systems designer (that's what you are doing now) will choose at" @ 16,10 SAY "least an ID numb* LIST.FMT - Format for list file @ 1,10 SAY TMARK + " " + CNAME @ 3,10 SAY MTITLE @ 5,10 SAY "Filename " GET FILENAME PICTURE "!!!!!!!!" @ 6,10 SAY "List name " GET LIST:DESC @ 8,10 SAY "Sequence " GET NDXNAME PICTURE "!!!!!!!!!!" @ 8,45 SAY "Index name, SPECIAL or blank " @ 9,10 SAY "Special key " GET SPEC:NDX PICTURE "!!!!!!!!!!!!!!!!!!!!" @ 9,45 SAY "Only if sequence is SPECIAL" @ 11,10 SAY "Selection " GET SELECTION @ 12,10 SAY "Field list " GET FLD:LIST @ 14,10 SAY "Output type " GET OUTPUT PICTURE "!" @ 14,30 SAY "'S' - Screen only" @ 15,30 SAY "'P' - Printer only" @ 16,30 SAY "'B' - Both screen and printer" @ 18,10 SAY "To DELETE this list enter DEL " GET DEL PICTURE '!!!' @ 20,10 SAY '***CTRL KEYS*************************************' @ 21,10 SAY 'W - TO DISPLAY THE LIST USING ABOVE PARAMETERS' @ 22,10 SAY 'D - NEXT CHR ** X - NEXT FLD ** G - DELETE CHAR' @ 23,10 SAY 'S - PREV CHR ** E - PREV FLD ** V - INSERT ON/OFF' * MNDX.FMT - Text describing options for modifying index names and key fields. @ 1,10 SAY TMARK + " " + CNAME @ 3,10 SAY MTITLE @ 5,10 SAY " Entry of a key field requires you to enter a name under which" @ 6,10 SAY "an index of the file will be maintained. Each name represents an" @ 7,10 SAY "index file and is maintained on your disk using that name with an" @ 8,10 SAY "extension of 'NDX'. You must be sure that each name you enter is" @ 9,10 SAY "different from every other index name on drive "+DEFA+" or you will " @ 10,10 SAY "destroy another index. One way to ensure that each index name is" @ 11,10 SAY "unique is to name your index as the name of the file plus a suffix" @ 12,10 SAY "of 1-7. If you use names like ZIP or DATE you are bound to repeat" @ 13,10 SAY "an index name some day. Before you add or modify index names, all" @ 14,10 SAY "the index names on drive "+DEFA+" will be displayed on the screen." @ 16,10 SAY " Entry of a key field also requires you to enter the field name" @ 17,10 SAY "exactly as it appears in your file structure. If you do not enter" @ 18,10 SAY "a correct field name you will be prompted with an error message and" @ 19,10 SAY "asked to try again. Enter RETURN to continue. " GET ANSWER maintained. Each name represents an" @ 7,10 SAY "index file and is maintained on your disk using that name with an" @ 8,10 SAY "extension of 'NDX'. You must be sure that each name you enter is" @ 9,10 SAY "different from every other index name on drive "+DEFA+" or you will " @ 10,10 SAY "destroy another index. One way to ensure that each index name is" @ 11,10 SAY "unique is to name your index as the name of the file plus a suffix" @ 12,10 SAY "of 1-7. If you use names like ZIP or DATE you are bound to repeat" @ 13,10 SAY "an index name some day. Before you add or modify index names, all" @ 14,10 SAY "the index names on drive "+DEFA+" will be displayed on the screen." @ 16,10 SAY " Entry of a key field also requires you to enter the field name"** PASS.FMT - Format for password file @ 1,10 SAY TMARK + " " + CNAME @ 3,10 SAY MTITLE @ 5,10 SAY "A password record should be entered for everyone who wishes to use" @ 6,10 SAY "the computer system. A person who does not have access to a password" @ 7,10 SAY "will not be allowed to enter the menus. If you do not wish the " @ 8,10 SAY "initial password screen to appear, enter N to the question " @ 9,10 SAY "Password? during installation." @ 11,10 SAY "Name " GET NAME @ 20,10 SAY '***CTRL KEYS*************************************' @ 21,10 SAY 'D - NEXT CHR ** E - PREV FLD ** W - NEXT SCREEN' @ 22,10 SAY 'S - PREV CHR ** C - NEXT RCD ** V - INSERT ON/OFF' @ 23,10 SAY 'X - NEXT FLD ** R - PREV RCD ** G - DELETE CHAR' rive "+DEFA+" will be displayed on the screen." @ 16,10 SAY " Entry of a key field also requires you to enter the field name"* PGMC.FMT - Format for adding a command file. @ 1,10 SAY TMARK + " " + CNAME @ 3,10 SAY MTITLE @ 5,10 SAY "Program code is " + PCODE @ 6,10 SAY "Program description is " + TITLE @ 8,10 SAY "What is the name of the command file " GET PROGRAM PICTURE "!!!!!!!!" @ 21,10 SAY "***CTRL KEYS*************************************" @ 22,10 SAY "D - NEXT CHR ** X - NEXT FLD ** G - DELETE CHAR" @ 23,10 SAY "S - PREV CHR ** E - PREV FLD ** V - INSERT ON/OFF" ce complete" OFF ENDIF IF ANSWER = "DELE" SET INDEX TO DISP "Now deleting records " OFF SET TALK ON DELE &SELECTION SET TALK OFF DISP "Delete complete" OFF ENDIF IF ANSWER = "RECA" SET INDEX TO DISP "Now recalling records " OFF SET TALK ON RECALL &SELECTION SET TALK OFF DISP "Recall complete" OFF ENDIF STORE " " TO ANSWER WAIT ENDDO RETURN * PGMS.FMT - Format for adding a search program record. @ 1,10 SAY TMARK + " " + CNAME @ 3,10 SAY MTITLE @ 5,10 SAY "File selected is " + FDESC @ 6,10 SAY "Program is " + TITLE @ 8,10 SAY "The following information must be entered correctly in order for the" @ 9,10 SAY "display program to work. Remember that you may modify this information" @ 10,10 SAY "if you find the program does not work right when you test it." @ 12,10 SAY "What is the name of the key field which the user will enter in order" @ 13,10 SAY "to select records? " GET KEYNAME @ 14,10 SAY "What is the length of this field? " GET LENGTH PICTURE "99" @ 16,10 SAY "An index file must be created for the above key field before the pro-" @ 17,10 SAY "gram will work. Enter the number of the index (1-7) here. " @ 17,68 SAY " " GET NDXNUMB PICTURE "9" @ 18,10 SAY "A format file may be specified in order to format the screen (Blank" @ 19,10 SAY "means no format file is to be used). " GET FORMAT PICTURE "!!!!!!!!" @ 20,10 SAY "Enter an A in order to allow adding of records. " GET PARM PICTURE "!" @ 21,10 SAY "***CTRL KEYS*************************************" @ 22,10 SAY "D - NEXT CHR ** X - NEXT FLD ** G - DELETE CHAR" @ 23,10 SAY "S - PREV CHR ** E - PREV FLD ** V - INSERT ON/OFF" e program does not work right when you test it." @ 12,10 SAY "What is the name of the key field which the user will enter in order" @ 13,10 SAY "to select records? " GET KEYNAME @ 14,10 SAY "What is the length of this field? " GET LENGTH PICTURE "99" @ 16,10 SAY "An index file must be created for the above key field before the pro-" @ 17,10 SAY "gram will work. Enter the number of the index (1-7) here. " @ 17,68 SAY " " GET NDXNUMB PICTURE "9" @ 18,10 SAY "A format file may be specified in order to format the screen (Blank" @ 19,10 SAY "means no format file is to be used). " GET FORMAT PICTURE "!!!!!!!!" @ 20,10 SAY "Enter* REPT.FMT - Format for report file @ 1,10 SAY TMARK + " " + CNAME @ 3,10 SAY MTITLE @ 5,10 SAY "Filename " GET FILENAME PICTURE "!!!!!!!!" @ 6,10 SAY "Report name " GET REPT:DESC @ 8,10 SAY "Sequence " GET NDXNAME PICTURE "!!!!!!!!!!" @ 8,45 SAY "Index name, SPECIAL or blank " @ 9,10 SAY "Special key " GET SPEC:NDX PICTURE "!!!!!!!!!!!!!!!!!!!!" @ 9,45 SAY "Only if sequence is SPECIAL" @ 11,10 SAY "Selection " GET SELECTION @ 12,10 SAY "Report form name " GET REPT:FORM PICTURE "!!!!!!!!" @ 14,10 SAY "To DELETE this report enter DEL " GET DEL PICTURE '!!!' @ 20,10 SAY '***CTRL KEYS*************************************' @ 21,10 SAY 'W - TO PRINT THE REPORT USING ABOVE PARAMETERS' @ 22,10 SAY 'D - NEXT CHR ** X - NEXT FLD ** G - DELETE CHAR' @ 23,10 SAY 'S - PREV CHR ** E - PREV FLD ** V - INSERT ON/OFF' format the screen (Blank" @ 19,10 SAY "means no format file is to be used). " GET FORMAT PICTURE "!!!!!!!!" @ 20,10 SAY "Enter+ÒDHHKMÍN(2xS2uS2vS͐%8D͜%ډR8D0S%7D9"S͕'G>2xSâD@S%7D9>2uSâDS%7‰R9>2uS2vSâDͿ+|Eͅ'+E:xSeF!"S!d"S :uSʃF*S9>͕'͂+G'2rS>'u-:vSF!9:rS'm%ھGͮ"S*S~ %F ~NE#F#}68'‘EÖE"¡EO8EèE,E,ʻE8%F¨EE8%FE,»EE#F#}6N8dD2928,Ey,E8%F,E8%F*S"SkEͧ#:rS'm%ھG>'X'EEH.$*S#"S*S+"S|EE:6DEE*SͿ55>:!d"SEE QtF$hFͦ&Ϳ+ͅ'+ÑR͂+G'2rS ,:G!0%!"S!"S~ NG"nSM(AG"pS ~NF*S6(#*nSx6*pSx660"SAG*nS ~N G*S6&#*nSx66#6,#*pSx660"SAG*S6&#*nSx66,#*pSx660"SAG*S"SõFu- *DM:rS',ھG: TG>'ͧ6 ! X'TGH.$*S#"S*S+"S|TG:6DTG*SͿ55>:!d"STG$:6DG*SͿ55>:>'ͦ&Ϳ+ͅ'+ÑR>$:>2)DÑR>:>2)DÑR(͐%2wS8ʗH͜%ډR8ʗH*S%74H>S:>2)DÑR>2wS9!"Sx68͓*^H>:>2)DÑR8M(uH>N:>2)DÑR*Sx6"Sx698, H8HH:wS«H>D:>2)DÑR!W&X'HͧHͿ5>]:.,5Ϳ5!"S*S}6"SzHOHHͲH.*HұHÑR$'#'8I>[: 9ʑR͕'%گK͂+2rS8=I0S%7‰RpJ>:> :ͮ͌6!"SͿ5/6`i+))))ͮy!2J5#6 982Jbk͌68͓*~,‡K8>,ʹ6ʇK ҇K9! 8_CINILK>J88s7ڗK{ʗKz—K{<ʗK=98J,ŸK8s7ڟK98ŸK{*S`6e6ڧK"SYI> !+t.ͦ&$>!:Ͷ7ʑR͂+#-ͦ&m,u-Q^Jͦ&t.$ÑR98͕'K͂+K#-ͮ7ͮ"S ͌6!"S*S+aKͧ~ ¤J#98͓* 8 J8 J8_CJNJLK>>K8jS79!jSs7K{ʟKzŸK{8jS79!jSs7K{*S`6e6K"S*S"SäJ$*S6 !+:rS'-t.ͦ&#-m,ÑR>:ZI>:ZI>:ZI>:ZI>u:ZI>:Ͷ7ʑR%I>:ÁR>:ÁR>:ÁR>:ÁR>u:ÁR>$:ÁR>:Ͷ7ʑR%I(.,"Sͮ"}S>2yS8LL2yS: %L>*::yS‘R: ;L>V:@L>y: 9LL͍ÑR8 ڑRs7Ϳ+e6M98|qL*S"Sͅ'*S͊: /Mͮ"S*S*SQ>%LGҧL%Mx%LxLxLE$L!%LqL*S+"S|%LqLE$M͌!%LqLxMͮ*Se6ҹL"SÊL*fS~ L*fS"SÊL+%L*S#"SqLͲH.!8ʺM,%L8,ʕM:{M0ڕMs79%Lz%L{!%L+))))ͮ~%L %L"}SÕM8͓*%L8M("}S%L98ʺM8ͧ6l6M8*}S͙O%LM*}SOڑR%LͲH.%L>:ÑR(2tS2sS8NS%7M>2sS9MS%7‰R>2tS9M.,:sSN#"S"S͡+=)DM,ڂN*S͡+:tSGNu-H.JNQͧ7,*S#"S͡+H.JNͿ+#+ͦ&m,*Sͅ'ÑR>1:m,ÑR8ʉR2zS2wS8O5S%7N98"SuډR8~N+"S#~O#F>2wSÚNNS%7‰R#98>͕'N>$:ÁR>2zSÚN:wS>P~R:zS>D~R%͂+'L#*S*S'>'!ͅ'ږO !"S!d"S$*S#"S*S+"S|{O:6D{O*SͿ55>t:!d"S+JO:6DʖO*SͿ55>t:ÑR ~NO#y=ON#s6T]> ͎67D2#F#}6N2>:7"S V#~2S#s6"SzCPP!!S5 9PO8*S͙OOP!͌62S:SG7!"SP!S5!5ʠP:PʀP!QS5!5!8P>2S>P!͌6!QS5!5ʠP>2S>P:SP:SGʾPw#¯PP6 #¾PP*SͿ55>:͈5/6*S:S_~͈5#P7>ɯ> :>Pͮ"S:DQu-: ʎQ2Sͮ"S.,#*SQ>QGO:S2Sx|QxjQͮ*Se6|Q"S&Q*fS~ |Q*fS"S&Q:SҊQH.7Ϳ5!8S5.,#5Ϳ5*SͿ5 ͨ+>:͈5/6 9O8QQxQQ*S͙OڣQ*S"S~ ¦QH.7"fS͊!DS55!"{S*fS N! :T_ l6#Ry2S*{SO:U![S > ͎6*fS[S~TR#IR[S*{SDM!fSh*{S:Sg"{S*fS"fS~ R:>2)DÑR>2)DÑR!RD;MAI[!W&5)"/DX'R*RҤR:6DʀD>2:ÀD:6DʀD>3:ÀD:6DʀD>]:.,5ÀD!9͐%͜%ڝ[*/D9)BEFOREBLANKCHANGE? DELIMITEDTO: FIELDFROMONRECORD SDFRECORD # TOTO dSͿ5gS8*_uڝ[`i"_6-#͇6x–SyNKCHANGE? DELIMITEDTO: FIELDFROMONRECORD SDFRECORD # TOTO dSͿ5gS8*_uڝ[`i"_6-#P!!S5 9PO8*S͙OOP!͌62S:SG7!"SP!S5!5ʠP:PʀP!QS5!5!8P>2S>P͐%!W&.,"I"I2I͊:D2I2D2I2I2I2I2I͊!"I*Iͅ'H"I2I>2I*I~ D͆GD!I4*I"ID:IG:I2IE*I:Ig."I!I4*D!"IH"I2I*I~ JE@HJE!I4*I"I*E:IO:IG!y=aEOxgUE"I*IIHI!Ih*Iͅ'͊H"I2I*I~ ʬEGڬE!I4*I"IÌE:I!IڻE~=2I:IG>2Ix2I͍2IH"I2I*I~ E͆GE!I4*I"IE:IFI2I:I9FͲH.E$9F!2I9F.,"I"I͊2I:I:G:IF!I6#:I/2I:I2IîDm,.,"I*I"I2IêD!I6#:IwE$ G͌!-G"I:I-G:IG:IO:I2I-GdE*-G*I#"I:IG:IO:I2I-GdE*I"I2IêD:I0ʃGXG:I=vG2I!I4vGH~ vG:I<2I:I=vG2I*I"I2IêDI ~PҙG:IPڿG:IʢG7~/2I7 H?~2I*IDMI!Ih*I:I-!I͎62J7~2IÉH?~2IO>-!I͎6I~ʛH#ÐH!I:I`66*IDMI!Ih*I:I2)DI͊:I2D!$ID;MAIGF#:7ªF#*7*76 ª:7G*7"7:6ă"7 :7m#:6ĩ:8ȯ28 ʤ#3>G27<2RECORD # :00000;MAIGF#:7ªF#*7*76 ª:7G*7"7:6ă"7 :7m#:6ĩ:8ȯ28 ʤFI2I:I9FͲH.E$9F!2I9F.,"I"I͊2I:I:G:IF!I6#:I/2I:I2IîDm,.,"I*I"I2IêD!I6#:IwE$ G͌!-G"I:I-G:IG:IO:I2I-GdE*-G*I#"I:IG:IO:I2I-GdE*I"I2IêD:I0ʃGXG:I=vG2I!I4vGH~ vG:I<2I:I=vG2I*I"I2IêDI ~PҙG:IPڿG:IʢG7~/2I7 H?~2I*IDMI!Ih*I:I-!I͎62J7~2IÉH?~2IO(-(-2G2G2G8,E:GDG%7D98͕'/G>2G×D:GDG%7D98ubG`i"G>2G×D:GbGG%7bG9>2G8bG"G8͓*OG98,—D8E:G7G:G?G%͂+'2G>'-:GFͮ"G!"G!G"G*G~ ʩE*G7*G6(#*Gx6*Gx660"G*G "G*G "GfE>-ͮ"G*G~ yF&F*G*G7*G6(#*Gx6*Gx660"G*G "Ge6yF*G "GôE!"G!G"G*G98͓*"G8M(OG"G*G7*G6(#*Gx6*Gx660"G*G"G*G98,yF8 F*G6 !0%> 2:G' 9.>'>-m,-m,!"-*G! F*G!G :G'*DM9.>'*#"|-*FóFm,-*GóF:G'ͦ&-> 9.$>'mG>$:WG>D:WG>h:WG>i:WG>:bG>'>2)DmG>'>2)DmG!vGD;MAI :8Ī Ī*8:8 ʣ!y Ī:8O*7"7*8{!z̘zB"|G|!|"!"|/G}/O!FIELDSFORTOmG!vGD;MAI :8 H:IPH:IH7>2I7 H?~2I*IDMI!Ih*I:I-!I͎62J7~2IÉH?~2IO,1:)D•[2_:DE͢9ʢD:*DGK:4DD:DD:2_>::2_:>`:Ͷ7:DD:_::_:GKE:D͵.:D>9ڕV8E#~E/wDͿ5>.͈5/6 998ʀDʀD*ʀD:-DʍE8AE_^%7HE!_4ÀD8YE:^%7gE:_€D2-DÀD8xE^%7€D:_†E2-DÀD=2_ÀD:_EE^%7E9!"_DM͋-ڝ[8[ʀD2_ÀD^%7E2_ÀD^%7€D2_ÀD:(DF:DF:2_>::2_:r9:DF:_::_::\G8ʗF2F#~%F!͌6!͌6#͓*~.UF 7!)‘F ~C?G##s6N#798IGF8F98F<\ͥ-¯F9~P6:G(BQ8W6sQPDOPKPKYGSCVV8WHNGG)KGKKKKKLL4MRPPP0QPQQQR]RiRuRPSSSiTTTTUVUV\WXYZZZZ6[>Ï[>"Ï[>Ï[>4Ï[Ϳ58C6yG8~ʝ[#^G9l6DM ͨ+8^%7>R#98Q*>:͈5 98GK阯ʹ6¬G> >O!6'#x66*#x660A)ڀD! ÀD(81^%7G!GD;APPͿ+|Gͅ'+Gu-H.ͦ& $Ϳ+ͅ'+ÀD͙H:5DʇH:2_>::2_:*_DM͸:/2_8uڝ[`i"__6,#Ns#Frx/I2_y2_>N2_MI2_yCIA2_>C2_MI2_>L2_!x`668^%7I98C6[8xʹ6ʝ[#9!`662>2_8V^%7I98K͓*K͗"_ʽI>NÏ[98Iv^%7K98C6[8xuʹ6ʝ[9!u"_`662t:_*_! :_!:_NJ~(J.(J#J"_!~ #wDJDJ DJʘJwCJ6 DJ*_*_~KJ#J~K#J9¯JwîJ~K#J9J#J60#J!~KXJKw#J#J6 #J!"_>RÏ[: ʀD(!&KD;BRO8:>'ÀD>2_ÀD(!GD;8K$'#-$'#-: D'ͦ&$(2k2 Dͯ5-ÀDV^%7KZ^%7[͍ÀD(!ZD;(͐%2_͜%ڝ[89L^%7[98ʝ[**"_>2_89L +LKͿ+|]L!W&X'TL]L*]LJL:6DnL>:`i5:_ʀD`iͼ3*_ }6͉4ÀD!GD;͐%8?^%7L9͕'&L>':6DʀD>.:ÀD:>'ÀD(>*2_L:6DʀD>':ÀD͜%ڝ[8[!W&:_WͿ+|&MX'M&MͧMrͲH.*&MM`i:6DͿ55!"_!"_^8%7N(>c:>'T'5>n:Ϳ+5>s:ͮ+++++5>/͈55>/͈55-ʞM>l:ãM>m:>b:ͮ Ϳ5y5#6 ͨ+)6 ~͈5&6#~5&6###F~)6xM5)6~ ­MͿ5>\:#6#6)6=)5ÀD9h^%7ʰOD^%7ʹO(2_2_͐%!"_!"_8ʻN͜%ڝ[8ʻNo^%7jN>2_9DN*_DM*_uڝ[>2_`i"_6-#͇6xŸNyšN6àN6áNp4#6#60"_8ʻN,DN8DN:2D-O:_-Oͮ"_*_~ -O*_6f-# ~#N###FNOCO6#6#6O6#p#6Op#q#q4#6#60"_*_"_N*_W&.,|ʀDX'ʤOڀD*_+"_|cO!"_>a:9ʀDͿ5:_|O.,5/6͈ͧ5:_šO:2DʚO=)DMͧ #ͨ+äO*_! *ʀD;OÀD!ZD;9!ZD;8^%7ʍP^%7 P8>͕'P8[͂+P:DP!D`6'w2D!D4ͫ.>'ÀD>%P>&:GK:DʅP9͋-ڝ[P2_:D>98NP7^%7dP98^%77P!_47P8uP^%77P!_57PÀD.ÀD>%:ÀD>2_ÀD(!GD;>2-D2_ÀD2_ÀD2_:DʀD.ÀD:G:5DP>:͛::ÀD͊ÀD(E$+Q88C6QQ8xʹ68A ͅ'|€D:6DʀD> :ÀD>oÏ[(͐%͜%BQ&ÀDO+ڝ[|iQͿ+e6DGT]ͅ'͊|nQÀD>/Ï[>zÏ[!"_DM͋-ڝ[€D>2-D2_ÀD(!GD;Ϳ58C6Q8~ʝ[#¬Q9l6DM ͨ+88^%7>R988Q*>:͈5 98GK!"_DMuFR`i"_6*#͇6++x6A)CR:6D1R6+#x660Ϳ5*_! ÀD>DÏ[ÀD>0:Ϳ5Q(!GD;!fRD;JOI!"_"_@M(8~ʉR#~R!9͐%͜%ڝ[8[!W&5)"/DX'R*RҤR:6DʀD>2:ÀD:6DʀD>3:ÀD:6DʀD>]:.,5ÀD!9͐%͜%ڝ[*/D9)ðRD! S;MOD!ZD;O+ڝ["_8,[8O+ڝ[}*_w#"_8,*SÀD!"_!"_8ʿS?dSͿ5gS8*_DM*_uڝ[`i"_6-#͇6x–Sy‘S6×S6ØSp4#6#60"_8ʲS,[8gS*_! ÀDͿ5ÀD$#-$#>(:: D'ͦ&$8&!ZD;: ʀD:,DAT'-͊:,D>9>T8T*T@8͙H>*_DM*_!_hT>'>DҀD'ʀD.,|ʀDͲH.!ÀD(͐%> 2_L:6DʀD>7:ÀD85ÀD8ʝ[͕'6,8ʝ[^%7[98͕'G,ÀD(.,|U͐%!"_!"_8ʐU͜%ڝ[8ʐU8͓*T>Ï[8M(U"_^8y`698%7U98*_DM*_uڝ[`i"_N##~JUC+~JUL*_ ~\U>OÏ[*_6,#x660"_>2_8ʐU,U8T-^%7T9T:_U!W&X'UUͧU*_! ͳ&ͲH.!ͺ&*UҠU:6DʀD`iͿ55>::ÀD>=Ï[>>Ï[D!U;RPG8ʝ[J^%7[9>͕'͂+!V>TÏ[ͣM*#DM,͟&*DM,$>'ÀD8)^%7UV(ÀD8ʀD͓*fV>Ï[8)sV1*98ʀD,[8UV'm,-ÀD:DʀD'$>'.:DV=VV2D=!D`6~2D2-DÀD2D2D2-DÀD>):ÀD8.W^%7.W9>͕'3W%͂+.W'2_ͣM*#DM9.͟&*DM9.ͦ&$>'ÀD>DÏ[>$Ï[8~^%7KW-ÀD^%7[>-ÀD8^ͥ-tW9XwÀDX_ͥ-[9X:ÀD8^%7W9>͕': DʯW'ͦ&$%͂+'2 D>'ÀDXW: Dͯ5ÀDX:ÀD8^%7W9<!k͌68kʹ62ÀDXO+ڝ["DÀD:,D%X'$2,D>'X^%7]XO^%7VX>͕'͂+JX>UÏ['2,D>'ÀD25DÀD>25DÀDX8ʝ[~_@2DÀDXs7{2 D98s7{2 D98s7{2 DÀDXO+ڝ[}2`ÀDX#8ʀDZÀD8^%7[988s^%7Xo^%7[>(8-Y8 Y+ Y88ʣYO+ڝ[|ʀDyfYE$QY.,"_!HY"_z0Y*_ͅ'øY͙"ͅ'øY.,l6`Yͅ'øYm,øYE$ʙY.,"_͌!ڊY"_zrY*_ͅ'øYͳ&"ͅ'ͺ&øY.,ͅ'øYE$ʵY͌!ڊYͅ'øY+:6DʀD>]:.,5ÀD!YD;SRT!"_DMuڝ["_`i"_8^%7|Z9*_#N#F8***_6*#x6"_"_8͓*98LZ,[*_*_6"_8 Z:6DcZ*_*_6+#x6"_*_60*_:6DĿ5! ÀD>DÏ[!ZD;MSC!ZD;TTL!ZD;UPD$'#8ʀD͕''[͂+"['#-m,8ʀDb^%7[98ZÀD>͕''[͂+,['L#8,[8 Z>pÏ[]#w" 1[>'m,>Ï[>$Ï[>MÏ[>{Ï[>a:9GK8ʋ[^%7[98ʝ[)f[1*** s66# [> w͈5> ͈5ÀDÀD:[:)D[>I:Ϳ589l6M [/6ñ[>?͈52)Dr9:]GK>W:Ͷ7GKʀD>X:!5ʀD>Y:!598[r9>Z:Ͷ7GK[19E6S6y6Ϳ6_~6{„6{STOREY?GSELSEPENDDOPENDIFD*DDOONOTEDLOOPPRELEASECVRETURNVSELECT8W@HACCEPTNGAPPENDGBROWSEKCALL)KCANCELGKCHANGEKCLEARKCOPYKCOUNTKCREATELDELETELDISPLAY4MCONTINUEREDITPEJECTPERASEPGOTO0QGO0QIFsQFINDPINDEXQINPUTQINSERTQRJOIN]RLISTiRLOCATEuRMODIFYSPACKSPOKESQUITSREADSRECALLiTREMARKTRENAMETREPLACETREPORTURESETVRESTOREUSAVEVSET\WSKIPXSORTYSUMZTOTALZUPDATEZUSEZWAIT6[CASEKENDCASEPOTHERWISEKALLANDBLANKDOELSEFILEFILESFROMSCREENGETGETSIFINDEXMEMORYOFFONPICTUREPRIMARYPRINTSAYSECONDARYSTRUCTURETOUSINGWHILEWITHENDDOENDIFCASEENDCASEOTHERWISEBELLDCARRYDCOLONDCONFIRMDDEBUGDECHO(DEJECT3DESCAPE*DEXACT+DINTENSITY.DLINKAGE1DRAW2DSTEP4DSCREEN TALK6DALTERNATEWCALLXCONSOLEWDATEyXDEFAULTeXFORMATXHEADINGWINDEXXMARGINXPRINTW.EDBASE DBASEXCONSOLEWDATEyXDEFA8[r9>Z:Ͷ7GK[19E6S6y6Ϳ6_~6{„6{STOREY?GSELSEPENDDOPENDIFD*DDOONOTEDLOOPPRELEASECV-8M%7ʛDM%7L9öG>q:Ͷ7LL(!O > ͎6!P w Dͮ7!"M!M"M!"M*M~ *E*M s6 ~E#D~L###~L*M"M*M"MD!M"M͊!"M M!Mh*M"M!"M*MDM*M"M!Mh*M"M~ ʀE*M$"M|QE:MGx2MGELCF:M_:M!OʵE=°E"M!Sl6|EDMS!S~+ xE*M> ͎6+60ExʇF2Mx"F*M"MMe6F!M"M2M0E:M2M0E*M"MyOe68FÇF:M2M0E:M_:M!OZF=UF"M!Sl6|vFDM*M!7!S> ͎6+60E!͌6!"M!"M!M"M*M~ gG s698ZG*M8͓*~8> ʹ6ʎG ҎG9! 8_CFNFL–G>:G88s7ڦG{ʦGz¦G{98:Gs7ڞG98žG{*M`6e6ڮG"M*M"M*M"MâF*M6 ͮ!7!+t.ͦ&#-m,L>:õL>:õL>:õL>:õL>u:õL8G>[: 9L>͕'J͂+G!cM5>2MG'2MMK%͂+'2M:D2M2D:TPH> 2M!N6O#x6! N6 #6 #"M"M"M"M#"M2M*M!`l6DM*M>͎6K͊!"M!"M*M"M*MJښH##"M&o62!Mh:M ҔHxjH͍!M"M*MJ"M:MGM!MhGG8IʤJI7KRK*M*Ml6DM*M+T]8#"M*M6 #6 5LRH*M##*Ml6DM*M*M##7 "M*M~RH6 #6 #6#"MRHx6JxʰI7KRK*M*Me6ҚHJ"M!M5:M jI5~H2M*M"M*M*Me6ҧIJ"M:M<2MG:M ҡIx2Mx yI*M"MRHxI7KRK*MJ##"M~I6 #6 #6#"M5L!M4:M I4~ښH2M*M"MRHRK:M > J>2M*MJ##~)J"M:M=2MJ*M"M2MRHRK:MLJ*M"MK9J*M*Ml6DM:M'9.ͦ&$:MJ'$MK&MK6,MKG,MK6,MKG,ýJ:MJ'$:M'$&>':M2D͊L++~ J#T' >.ͧ6#"MM7O> !͎66"M*M+e6K*M~.K 1K 'K> # K7y!"M:MG!Mh*M> ͢8G!P +~ bKy2M2MK*M*Ml6"MҪKy*M`6*MDM*M7:M_*M"MK*M+`6*MDM*M+8#"M*M:MO75L*M7:M"L*M^e6K?LKT] "M:M',xL L*M+6 #6 #6#"M*M_e6*M*Ml6e6ҦL*M:M'9.*MT] *Ml6DM7*M"M*M"M*M"M*M"M*M> ͧ6#"M!qM5Ͷ7ʤJ9J>a:9*E&odL LL/}o|gL z!LD;MAI>2)DL2 7 2 7 2 7 >2 7 >2 7 2 7 >2 7 >26 26 >26%26zt:7 {=tt NEW FILEBUFFER FULL, TYPE Y TO SAVE, OR N TO ABORTNAME TYP LEN DECCOMMANDSTRUCTURE$$$BAK+F'͑Gö=2 7*#7~#"#7!{ (t FIELD 01 COFIELD 02 CPFIELD 03 C,PFIELD 04 CEPFIELD 05 C^PFIELD 06 CwPFIELD 07 CPFIELD 08 CPFIELD 09 CPFIELD 10 CPFIELD 11 CPFIELD 12 C QFIELD 13 C&QFIELD 14 C?QFIELD 15 CXQFIELD 16 CqQFIELD 17 CQFIELD 18 CQFIELD 19 CQFIELD 20 CQFIELD 21 CQFIELD 22 CRFIELD 23 C RFIELD 24 C9RFIELD 25 CRRFIELD 26 CkRFIELD 27 CRFIELD 28 CRFIELD 29 CRFIELD 30 CRFIELD 31 CRFIELD 32 CS +ELD 2 "M:M',xL L*M+6 #6 #6#"M*M_e6*M*Ml6e6ҦL*M:M'9.*MT] *Ml6DM7*M"ÒDÅIKLANN͐%2rQ2pQ2qQ2mQ2nQ2oQͮ7!"Q8E͜%ڥO8EP%7D"tQ9͕'sI>2rQúD|P%7[E>2pQ9!6 "Q8͓*E>zI8M(!E>NzI*Q7!6 "Q*Q6(#x6x660"Q98,ºD8EP%7ƒE>2qQ98sP%7ºD>2oQ9úDP%7—E>2mQ9úDKP%7¥O>2mQ2nQ98P%7ºD98ʥO2#Q8úD:rQxI*tQ9:mQEE>͕'%͂+'2"Q:mQ)F!6#w#w#ͮ+++++7:oQ°H 9.:qQ3I>'!0%!W&!"Q!d"Q.,|IX'ʤHIͧʤH*Q#"Q*Q+"Q|ŒF:6DʌF*QͿ55>#:!d"Q:pQʍG:nQ³F*DM!> ͎6! ÑG!"Q!"Q*Q~0sG#}6##"Q ~N%G#F#}6*QyF6,#:#Q,Fw#7x`6:#Q,Gw#"QoG+~ G+G#"QoG#F#}6*Qy6G6,#:#Q,MG7x`6"QoG~# [GhGMGMG"QoG60#"Q F*Q6 #6 #l6DM:"Q̈́%äHͧ:mQ¬G*DM:"Q'9.>'äH:nQG*6 #6 :"Q*DM̈́%äH!"Qͮ"Q*Q~ ʍH ~N5H#F#}6*QyG6,#:#Q, Hw#7x`6:#Q,"Hw#"QH+~ .H+#H#"QH#F#}6*QyFH6,#:#Q,]H7x`6"QH~# kHxH]H]H"QH60#"Q*Q"Q G*Q6 #6 #l6DM:"Q̈́%*IOFI!+QA7 9.ͮ"wQ!"Q*wQ~ I>  ~H> #H#~#~ͼO###~ͼO*wQ"wQ9.*Q#"QH:6D3I*QͿ55>#::"Q'ͦ&:oQQI:qQjI:mQjI-*Q!6#x69.$>'ðO>$zI>D>'>2)DðO(͐%!"|Q!"Q>A2P2Q2Q2sQ!Q"Q8͜%ڥO8ʓJP%7BJ:Q<2QK*|QDM*QuڥO>2sQ`i"|Q"Q#͇6xJ!P4**! s6͌6*Q6f#6*#x660"Q*Q6+#x660"Q8ʓJ,¬I8ìI9>2Q!Q"Q8ʓJ)_J1**Q~ʰO#}6"Qbk ͌68͓*8798,¬I8VJ:sQJ!W&X'ʹJJͧʹJ*|Q! *JҠJ:6DJ!QͿ5 >A2P:Q°O!Q~0ʰO#}61*J>FzI>GzI>HzI8P%7¥O98C6¥Ox68ʥO%K88FK,¥O88K"Q!"Q*Q++"Qe6dK҅K}6C6*Q~{K#pK#"QPK*Q6!͓K& |ʪK02QQQ~K #Ky2Q#~KQ |LO 6:D2\2lQ8LP%7KL98ʥO_@2\8:L8LP%7¥O98ʥO!P>  ͎6P8*ʐLL L.ʡLaڈL_8sL>?͎68.L8P*LL LaڼL_8ìL>?8>2lQLͿ5:lQL!P5!P] 7MͿ5ðO!P] 7MͿ5ðO!Q"Q6 \N0M!P5*Q7 "Q6 N0M!Q"QͿ5*Q~ ]7"Q2h!]ͨ+/6ͨ+#62|\\Mog5#65>/͈55>/͈55Ϳ5O>:Ϳ5O\NM!P5Ϳ5ͨ+>.͈5ͨ+N#6)6 NͿ5NMͿ5"N\1N7(͈5 ~͈5>)͈5,6~NʙN#~2(Q2vQ2)QêN#~2)Q###~2(Q>2vQ!$Q :vQ*zQ`6"zQ~ NNͿ5>\:#6:yQ5!UP5*zQ5!gP5ðO(!"~Q"QͿ+|}O!d"QͿ+*~Qe6qOͅ'͊*~Q#"~QͧkO*Q͡+H.*Q0#*Q#"Q:6D O*Q+"Q| OͿ5*Q+5>6:!d"Q O͸ O*Q͡+ͦ&m,:6DʉO>5:*Q+"Q+:6DʰO5>6:ðO>'>2)DðO!OD;MAI&odO OO/}o|gO z\QMs6"SzCPP!!S5 9PO8*S͙OOP!͌62S:SG7!"SP!S5!DELIMITED VARIABLES USED BYTES USEDEXTENDEDFIELDSA:::::::::ALIKECOMMAND FILESDATABASE FILES # RCDS LAST UPDATE NoneONSDFSTRUCTURETO ????????DBFWITH$$$ SUB'&S),#0FIELD:NAMEC FIELD:TYPEC FIELD:LENN FIELD:DECN ????????DBFWITH\\Mog5#65>/͈55>/͈55Ϳ5O>:Ϳ5O\NM!P5Ϳ5ͨ+>.͈5ͨ+N#6)6 NͿ5NMͿ5"N\1N7(͈5 ~͈5>)͈5,6~NʙN#~2(Q2vQ2)QêN#~2)Q###~2(Q>2vQ!$Q :vQ*zQ`6"zQ~ NNͿ5>\:#6:yQ5!UP5*zQ5!gP5ðO(!"~Q"QͿ+|}O!d"QͿ+*~Qe6qOͅ'͊*~Q#"~QͧkO*Q͡+H.*Q0#*Q#"Q:6D O*Q+"Q| OͿ5*Q+5>6:!d"Q O͸ O*Q͡+ͦ&m,:6DʉO>5:*Q+"Q+:6DʰO5>6:ðO>'>2)DðO!OD;MAI&odO OO/}o|gO z\QMs6"SzCPP!!S5 9PO8*S͙OOP!͌62S:SG7!"SP!S5!DELIMITED VARIABLES USED BYTES USEDEXTENDEDFIEL.(2P2P2P2P2P!Y ͌6>2P2P>92P>P2P:2P2P͐%8E͜%IM8EM%7D9>͕'>2PúDM%7 E98IMM%7IM9>2PúDM%7IM9>2PúD:P;E>;: 98=M>͕'>2P͂+PE%͂+2P'2P2P:PfE>d:L M8E E_M™E8=IM8s7{2P2P9EL¶E8=IM8s7{2P9EWE8=IM8s7{2P9E8,E8lE:PE>A:L M8_YgF>2P:PF>B:L!T#8<'F>/F4F8>4F8>@2Pʹ6F2TO M!T6'#x66-#q#:Pw#:PG:Pw#p#602P:PwF>9:L8_Y‰F>2P M2Q:PœF>J:L8_Y¾F>2Q!M**"P2P M:QG:PF>@:L8_YF>2P M:PG:PF>?:L MQiQuڱL:PG>L:L8_Y,G>2P M2P:P?G>g:L8YOG>2P M:P^G>e:L jGvGX> >âGX8<ʋG>ʓGØG8>ØG8>@2Pʹ6RGO2X M!Y6'#x66-#q#:Pw#q#:Pw#60:PG>8:!"P!"P60!Q"Q60!U"Q60!U"P60!R"P60>2P:PHͿ5:P5#6L8aJs7{2P9~,±L8*PDM*PuڱL8±L`i"P:PzH6-#N#FxgHw#:Pw#:Pw#60"PÁH"P#͇6 M:P‘H><:L ʝH®H*Q> 2P>H*Q#8HH8>H8>@2Pʹ6ʅHO M*P6'#x66-#q#:Pw#:Pw#:Pw#60"P*Qqy`6#"QxBJ:QBJ:P'I>J:L M8_YBJ*P6*#x6:P_I6f-#͂6:Pw#:Pw#6*M"P!"M! p!q6f#6*#x6:PI*P6*M"P!"M! p!q6f#6*#x660"P*P*Q6f-#͂6:P_:Pw#6#60"Q:P(J*P*P6f-#͂6:PG:Pw#6#6#6*#x660"P2P:P<2P:P_:P<2PH:P_:P<2P:P<2P:P<2PH:PqJ:P'ͦ&:P'$>':P:!"P!W&:PK!iQR~0ʨJ#ÜJ#N#F!M4**"P6*#x6606&#*Px66xJ6#60!R6+#*Px660ͧJX'KfL*fLfLJ*P!iQ Ͱ::3D)KͿ5͛:)KͿ5͛:2P:PxKͿ5,M>_:*P#"P5#6!k5,M: DxK5>/͈5: D5>/͈5: D5Ϳ5,M:PʋK!TT Ϳ5,M*P!U ,M:PK,M>*͈5/6*P!Y *P!R ͧL:P#K͸:O:P#KX'LfL:P,M*P! :PL,M*fLfLͧLX'L:PK*P!R KL:PK͸:O:P#KͿ5,M>*͈5/6*P!Y *P!R KL:QʥL:Q0ʥL,M>\:,M*P!Q !M)™L1*!M5~AҐL6AͿ5:P:=M:PIM>0:H:P:R0L,M>E:,M*P!R *P!iQ :PL>2PͿ5:PM 98:P'$=M:P>9:P:Py9Ϳ5:POy/6 3M!FMD;MAI>2)D=M:>'T'5>n:Ϳ+5>s:ͮ+++++5>/͈55>/͈55-ʞM>l:ãM>m:>b:ͮ Ϳ5yA::::::::AFORMPLAINPRINTTOM5&6###FYxM5)6"Y~ ­MͿ5>\(Y6#6)6=).Y9h^%7ʰ4Y%7ʹO(2:Y%!"_!@Y8ʻN͜%ڝ[FYo^%7jN>LY9DN*_DM*RYڝ[>2_`iXY-#͇6xŸNy^YàN6áNp4dY0"_8ʻNjY8DN:2D-pY-Oͮ"_*vY-O*_6&#x|Y ~#N###FYOCO6#6YO6#p#6OY4#6#60"_*Y"_N*_Y|ʀDX'ʤOY_+"_|cO!Y>a:9Y:_|O.,Y͈ͧ5:_YʚO=)DMͧY+äO*_!Y*ʀD;OÀD!Y;9!ZY8^%7ʍPY7 P8>͕Y8[͂+PYP!D`6Y!D4ͫ.>'YP>&:GK:YP9͋-ڝ[Y_:D>98Z7^%7dP9Z^%77P!_4 Z8uP^%Z_57PÀDZ%:ÀD>2Z(!GD;$Z2_ÀD2_*Z_:DʀD0Z:G:5DP6Z%77P!_4 Z8uP^%Z_57PÀDͷM 98:P'$=M:P>9:P:Py9Ϳ5:POy/6 3M!FMD;MAI>2)D=M:>'T'5>n:Ϳ+5>s:ͮ+++++5>/͈55>/͈55-ʞM>l:ãM>m:>b:ͮ Ϳ5yA::::::::AFORMPLAINPRINTTOM5&6###FYxM5)6"Y~ ­MͿ5>\(Y6#6)6=).Y9h^%7ʰ4Y%7ʹO(2:Y%!"_!@Y8ʻN͜%ڝ[FYo^%7jN>LY9DN*_DM*RYڝ[>2_`iXY-#͇6xŸNy^YàN6áNp4dY0"_8ʻNjY8DN:2D-pY-Oͮ"_*vY-O*_6&#x|Y ~#N###FYOCO6#6YO6#p#6OY4#6#60"_*Y"_N*_Y|ʀDX'ʤOY_+"_|cO!Y>a:9Y:_|O.,Y͈ͧ5:_YʚO=)DMͧY+äO*_!Y*ʀD;OÀD!Y;9!ZY8^%7ʍPY7 P8>͕Y8[͂+PYP!D`6Y!D4ͫ.>'YP>&:GK:YP9͋-ڝ[Y_:D>98Z7^%7dP9Z^%77P!_4 Z8uP^%Z_57PÀD(> 2I2I> 2I!"I2I8E~I%7D98͓*HM(H"I9ÚDI%7DD9ÚDI%7DD9> 2I2I>2IÚDI%7H9͕'H>2IÚD*I|H:IH*+l6=)|;EGE xPERE>2I*I ~LH2I2I2ICƒE:I2I2I:I2I#~2I2I2I#}6~2I2I2Iͧl6"I:IG:IO!sI**"I"Im,&'2I%͂+'2It.!"I>2I2I%F2I:I'ͦ&&*I+t.#-͂+'2I>2I:I_*Il6"I|G:IG2I:IKF*I&:Iol6KF{2I2I2I=)DM!"I:I'_,:I'_,:IʏF,F yF*I#"IÕF,H*I*Ix6"I`i!I4:IrFH*"I!I"I*I"I:IF:I_*Il6|HʱG"I"IF:I2IHñG:I':IG+ڱGͧG*I#"I#G+H:I2I!I HG:I'H.*I͕HÞG:I'*I*l6=)DM9.*I͕Hͧ7*!:I=O7y!`6x6:IOH*"I*I"I:IF*I+"I|F:I'=)DM!"I:I*I}6"I*Il69.=G:IE%F:I'$:I'$>'*I1*:6DI>C:I:IOH H:I2I:IGyH==H!I"I!I"I!`6}6s6"I"I!I |H*Ix6*Ix6ÇH:IʇHÐHʐH=AHx:I"I:IʶH!I ʶH>2I!I >2I>,:WD>+:H>:H>N:H>D:H>$:H>2)DI>2)DI! ID;MAI~("x ʶ27xGF#:7ªF#*7*76 ª:7G*7"7:6ă"7 :7m#:6ĩ:8A::::::::AONASCENDINGDESCENDINGTO3>28G27*7J##3&& 07COPYRIGHT 771978 SCDP ^#V*C.W.RATLIFF27&&I 0&I*0$:AON#-͂+'2I>2I:I_*Il6"I|G:IG2I:IKF*I&:Iol6KF{2I2I2I=)DM!"I:I'_,:I'_,:IʏF,F yF*I#"IÕF,H*I*Ix6"I`i!I4:IrFH*"I!I"I*I"I:IF:I_*Il6|HʱG"I"IF:I2IHñG:I':IG+ڱGͧG*I#"I#G+H:I2I!I HG:I'H.*I͕HÞG:I'*I*l6=)DM9.*I͕Hͧ7*!:I=O7y!`6x6:IOH*"I*I"I:IF*I+"I|F:I'=)DM!"I:I*I}6"I*Il69.=G:IE%F:I'$:I'$>'*I1*:6DI>C:I:IOH H:I2I:IGyH==H!I"I!I"I!`6}6s6"I"I!I |H*Ix6*Ix6ÇH:I(͐%2uH2vH2tH87E͜%G87E:vHDpH%7D9͕'ڸG>2vHÐD:tHDfH%7D>2tH9"wH8͓*G98,D8D:uHGmH%7G>2uH98G"~H͓*G2{H8M(G"|H9ÐD:vHG͂+VE'2sH ,uE%͂+'2sHͮ 79.>'!0%!"H60:tHE*wH98͓*"wH8M(G! ~NE*H6"H8&G*H6f#6,#x660"H*wH98,IF8ÖE!"H*H~ IF ~N ͎6m,ͧ~*GX' G*uGFuG*HH !"HcG:uH3G*yHH ?G!H cG:sH'*DM9.>'*H#"H*HH *uGuGX'cGG*H":sH'*DM9.:sH'ͦ&- 9.$>'*HͿ55>#:G>$:G>N:G>:G>D:G>N:G>'>2)DG>'>2)DG!GD;MAIg}oɯO_yW{!z,"|,"|ͪ!">OFGÿ|"6 X"|"6 ?X"|"6 W_ |"q"FIELDSONTO6G!GD;M/(2H2H2H2 H8^E:H»DG%7»D98͕'2HÐD:HDG%7D98"H͓*DG2 H9>2HÐD:H#EG%7#E98wG"H8͓*DG9>2H8,D8E: HwGG%7wG98wG" H8͓*DG9>2 H8,D8?E:HLG:HTG͂+'2H ,!0%*HM(\G F#s6"H*H: HO&\G N#s6" HxdG2 H!"H"H:HGF*H"H*H98"HM(\G"H*H͓*"H*H&\G*H6f&#*Hx66#6,#*Hx6"H*H98~,>F8"HE*H60#"H: HʰF*H"H* H98" HM(\G"H* H͓*"H* H&\G*H6(#x6*Hx6"H*H98~,«F8" HTF*H60>'!W&:H'*DM,*H* H: HO6!GF G:HF*H : HG*H >'ͲH.:H'*DM,-GF>'*-GF:H'$>'G>$:lG>:wG>j:lG>P:lG>N:wG>k:lG>'>2)DG>2)DG!GD;MAI:8 ʣ!y Ī:8O*7"7*8{!z̘zB"|G|!|"!"|/G}/O!>! !7>{ADDFROMONREPLACED;MAI:8 ʣ!y Ī:8O*7"7*8{!z̘zB"|G|!|"!"|/G}/O!>! !7>{ADDFROMONREPLA !CATEGORY+FILENAME("ACCADPAFMALL AMM ARL'AT AUM BALBAR BETBQLBQR$BS (BV CAPCAYCJPCMD COA CUSDC DNA!DP DV ET FM %GL #IS &JR MAIMNUPAYPDSPW QL QR RVCSARUM $SAR2%ACCDAACCT ACCDACUST ACCDAPROM ACCDAVEND CUSDSAMPLE SYSDSPASS $BS (BV CAPCAYCJPCMD COA CUSDC DNA!DP DV ET FM %GL #IS &JR MAIMNUPAYPDSPW QL QR RVCSARUM $SAR2%SAR3&SAR4'SAR5(SAR6HCATEGORYFILENAMEACCDAACCT ACCDACUST ACCDAPROM ACCDAVEND CUSDSAMPLE SYSDSPASS $BS (BV CAPCAYCJPCMD COA CUSDC DNA!DP DV ET FM %GL #IS &JR MAIMNUPAYPDSPW QL QR RVCSARUM $SAR2%ACCACCACCCUSCUSCUSCUSCDAVEND CUSDSAMPLE SYSDSPASS $BS (BV CAPCAYCJPCMD COA CUSDC DNA!DP DV ET FM %GL #IS &JR MAIMNUPAYPDSPW QL QR RVCSARUM $SAR2%SAR3&SAR4'SAR5(SAR6 $NAMEORYFILENAMEACCACCACCACCACCCUSCUSCDAVEND CUSDSAMPLE SYSDSPASS $BS (BV CAPCAYCJPCMD COA CUSDC DNA!DP DV ET FM %GL #IS &JR MAIMNUPAYPDSPW QL QR RVCSARUM $SAR2%DEMO ACCACCACCCUSCUSCDAVEND CUSDSAMPLE SYSDSPASS $BS (BV CAPCAYCJPCMD COA CUSDC DNA!DP DV ET FM %GL #IS &JR MAIMNUPAYPDSPW QL QR RVCSARUM $SAR2%SAR3&SAR4'SAR5(SAR60?MENU+MENU:SEQ( ACC1ACC2ACC3ACC4ACC5ACC6ACC8 ACC9 ACCA AMM1 AMM3 AMMAAMMBAMMHAMMIAMMXAMMYAMMZCUS1CUS7CUS8DP 1DP 2DP 3DP 4DP 5DP 6DP 7DP 8DP 9 MAI1!MAI9"MAI9#SAR1$SAR2%SAR3&SAR4'SAR5(SAR6HMENU:CODESEQ( ACC1ACC2ACC3ACC4ACC5ACC6ACC8 ACC9 ACCA AMM1 AMM3 AMMAAMMBAMMHAMMIAMMXAMMYAMMZCUS1CUS7CUS8DP 1DP 2DP 3DP 4DP 5DP 6DP 7DP 8DP 9 MAI1!MAI9"MAI9#SAR1$SAR2%("ACCADPAFMALL AMM ARL'AT AUM BALBAR BETBQLBQR$BS (BV CAPCAYCJPCMD COA CUSDC DNA!DP DV ET FM %GL #IS &JR MAIMNUPAYPDSPW QL QR RVCSARUM $SAR2%SAR3&SAR4'SAR5(SAR6HCATEGORYFILENAMEACCACCACCCUSCUSCUSCUSCDAVEND CUSDSAMPLE SYSDSPASS $BS (BV CAPCAYCJPCMD COA CUSDC DNA!DP DV ET FM %GL #IS &JR MAIMNUPAYPDSPW QL QR RVCSARUM $SAR2%ACCACCACCACCACCCUSCUSCDAVEND CUSDSAMPLE SYSDSPASS $BS (BV CAPCAYCJPCMD COA CUSDC DNA!DP DV ET FM %GL #IS &JR MAIMNUPAYPDSPW QL QR RVCSARUM $SAR2%SAR3&SAR4'SAR5(SAR6FILENAMEClFILE:DESCClFLD:LISTC2lINDEXESC<mINDEX1C[mINDEX2CcmINDEX3CkmINDEX4CsmINDEX5C{mINDEX6CmINDEX7CmCATEGORYCm DSPASS System passwords NAME DSPASS1 DSPASS1 SYS DACUST Customer master ID:NUMB,NAME DACUST1,DACUST2 DACUST1 DACUST2 ACC DAACCT Chart of Accounts ACCT:NUMB,ACCT:NAME DAACCT1  DAACCT1 ACC DAPROM Accounting prompts PROM:DESC+" "+JOURNAL+" "+LEDGER+" "+LEDG:TYPE ACC DAVEND Vendor master ID:NUMB," ",NAME DAVEND1,DAVEND2 DAVEND1 DAVEND2 ACC DSAMPLE Sample membership NUMBER,NAME DSAMPLE1,DSAMPLE2 DSAMPLE1DSAMPLE2 CUSDSBTRAN Member transaction CUSDAACCT Chart of Accounts ACCT:NUMB,ACCT:NAME DAACCT1 DA1ACCT1 ACC DAPROM Accounting prompts PROM:DESC ACC*DATRAN Accounting trans. PDATE,ACCT:NUMB,REF:NO,AMOUNT DATRAN1,DATRAN2 DATRAN1 DATRAN2 ACC*DAJOUR Accounting Journal PDATE,ID:NUMB,ID:NAME,JOURNAL,TTOTAL DAJOUR1,DAJOUR2 DAJOUR1 DAJOUR2 ACC DAVEND Vendor master ID:NUMB," ",NAME DAVEND1,DAVEND2 DAVEND1 DAVEND2 ACCTEST6 test 6  SAM*TEST8 test8 NAME SAM*TEST9 test 9 NUMB TEST9A,TEST9B TEST9A TEST9B SAMTEST14 14 HANK TEST14 TEST14 SAM*TEST16 16 LAST TEST16A,TEST16B TEST16A TEST16B SAM7SR 9!SM BSM XSM Y2 | $ 5.00 | $20.00 | | | | | | | | | | CATEGORYClFILENAMEClLIST:DESCClNDXNAMEClSPEC:NDXCmSELECTIONC2mFLD:LISTC2HmOUTPUTCzm CUSDSAMPLE Full-time members by number DSAMPLE1 MEMB:TYPE = "FT" Number,Name,City S CUSDSAMPLE Full-time members by name DSAMPLE2 MEMB:TYPE = "FT" NUMBER,NAME,CITY S CUSDSAMPLE Members from La Jolla DSAMPLE2 City = "La Jolla" Name,address  S CUSDSAMPLE Out-of-staters DSAMPLE2 State <> "CA" Name,city,state,zip S ACCDAACCT List chart of accounts DAACCT1 Acct:numb,acct:name,acct:type S ACCDACUST Alphabetic list of customers DACUST2 Id:numb,name,phone S ACCDAVEND Alphabetic list of vendors DAVEND2 Id:numb,name,phone SACC CUS   LQACCT:NUMB+PDATECC C CCCCCCCCCC LLMM MMMRRSSSS SSPG1PG2PG3RCARM RPTSM SPC 4SM 5SM 6 SM 9TLE SET INTE ON S ACCDAVEND Alphabetic list of vendors DAVEND2 Id:numb,name,phone SACC CUS  NAMEC pCLEARANCECp DEMO 3John *Jim *Nancy *Amber *Mary  BOB HI 410011 BOB HI 410011 *JOHN LAMB 410021 *MARY ANN POPPY 420097  *KURT KURT 210362 *GERRY GERRY 110394 *PAT P PAT 310505 *PAT U PAT 110043 *LARRY LARRY 110032 *BRUCE BRUCE 110074 *TOM Z TOM 110274 *CHARLIE JAVER 110336 *CAROL CAROL 110347 2 *DAVE DAVE 110403 *ROBERT ROBERT110434 *KEN KEN 110485 *CHRIS CHRIS 110493 *RICK RICK 110515 *TOM O TOM 110535 *DORENE DORENE110557 *RODNEY RODNEY110525  FIND &PKEY REL(dMENUClMENU:SEQClMENU:CODEClCATEGORYClPROGRAMClTITLEC(lSECUR:CDC mFILENAMEC mFORMATCmNDXNUMBCmLENGTHCmKEYNAMECmPARMC3m MAIMNUMAI Main menu ACC1ET ACCDSACCT Enter accounting transactions ACC2SARMNU Standard accounting reports ACC3DC ACCDSSEAR Display/update customers (add new ones) DACUST DACUST 106ID:numb A ACC4RVCACCDSARLG Accounts receivable report ACC5DV ACCDSSEAR Display/update vendors (add new ones) DAVEND DAVEND 106ID:numb A ACC6PAYACCDSAPLG Accounts payable report ACC8ALLACCDSLIST Accounting list library ACC9ARLACCDSREPT Accounting report library ACCAAMMMNU Accounting maintenance menu AMM1COAACCDSSEAR Add a new account to COA (or change one) DAACCT DAACCT 110Acct:numb A AMM3BETACCDSSEAR Build a library of entry types DAPROM DAPROM A AMMABALACCDSLIST Build a library of accounting lists A AMMBBARACCDSREPT Build a library of accounting reports A AMMHAFMACCDSFILE Accounting file maintenance menu AMMIAUMACCDSUTIL Accounting utility menu AMMXCAPACCDSCAP Close an accounting period AMMYCAYACCDSCAY Close accounting year AMMZCJPACCDSCJP Close journal period CUS1DNACUSDSSEAR Display/update sample file by name DSAMPLE DSAMPLE 230Name A CUS7QL CUSDSLIST Library of quick lists CUS8QR CUSDSREPT Library of quick reports DP 1FM CUSDSFILE File maintenance menu (add new files) A DP 2UM CUSDSUTIL Utility menu (make global changes) DP 3PDSCUSDSPROG Program a display screen (or change one) S DP 4ADPCUSDSPROG Add/modify dBASE II programs  C DP 5BQLCUSDSLIST Build a library of quick lists A DP 6BQRCUSDSREPT Build a library of quick reports A DP 7CMDSYSDSPROG Change menu descriptions or placement G DP 8MNUSYSDSPROG Add a new menu (or delete one) M DP 9PW SYSDSSEAR Add a new password (or delete one) DSPASS DSPASS A MAI1CUSMNU Your custom application menu MAI9DP MNU dPROGRAMMER menu MAI9ACCMNU Accounting menu SAR1IS ACCDSINCS Income statement SAR2BS ACCDSBALS Balance sheet  SAR3GL ACCDSGENL General ledger report SAR4JR ACCDSJREG Journal register reports SAR5AT ACCDSDATR Accounting transaction reports SAR6BV ACCDSBUDV Budget variance report  Accounting maintenance menu (Sample) ASS DSPASS A MAI1CUSMNU Your custom application menu MAI9DP MNU dPROGRAMMER menu MAI9ACCMNU Accounting menu SAR1IS ACCDSINCS Income statement SAR2BS ACCDSBALS Balance sheet 3CATEGORYClFILENAMEClREPT:DESCClNDXNAMEClSPEC:NDXCmSELECTIONC2mREPT:FORMCHm ACCDAACCT Chart of accounts reports DAACCT1 DAACCT ACCDACUST Customer report by ID number DACUST1 DACUST ACCDACUST Customer report by name DACUST2 DACUST ACCDAVEND Vendor report by ID number DAVEND1  DAVEND ACCDAVEND Vendor report by name DAVEND2 DAVEND CUSDSAMPLE Membership type report DSAMPLE2 DSMEMTYP*CUSDSAMPLE Membership type (sorted) SPECIAL MEMB:TYPE+NAME DSMEMTYP*CUSDSAMPLE Membership name and address DSAMPLE2 DSMBADDRCUST N*ACCDAVEND Vendor report by ID number DAVEND1 DAVEND N*ACCDAVEND Vendor report by name DAVEND2 DAVEND NACCDMVEND Vendor report by ID number DMVEND1 DMVEND n ACCDMVEND Vendor report by name DMVEND2  DMVEND nFILENAMECREPT:DESCCINDEXCSPEC:NDXCSELECTIONC2FORMATCPLAINL DSMBADDRCUST N*ACCDAVEND Vendor report by ID number DAVEND1 DAVEND N*ACCDAVEND Vendor report by name DAVEND2 DAVEND NACCDMVEND Vendor report by ID number DMVEND1 DMVEND n ACCDMVEND Vendor report by name DMVEND2 SYSdCUSdACC dBELLONdCONFIRMONdUSEPASSdV24dCNAMEdLASTASSET 6dRETEARN BdYTDEARN NdFIRSTINC ZdLASTINC fdONErdTWOudTHREExdBLANKS{dTMARK d A:B:B: SIERRA COMPUTER SERVICES 1999 3050 3060 4011 4999 123  dPROGRAMMER[SYSTEMClCUSTOMClACCOUNTClBELLLlCONFIRMLlVERSION24LlPASSWORDLlCOMPANYClLAST:ASSETC lRET:EARNC mYTD:EARNC mFIRST:INCC mLAST:INCC !m 41 Px r@x b+P(S:\ Q @=2o!`(!G;((R V N _Wѷ(ÇP[ A870 02nUg( o n(:`!K"aON>2nU<(Ã!|2()"q*R0 %:`O¸2c2ego"p"i!"x"o:~(/G%O~("F%L2( >%R>%R*o"mF%F%>2(G%"k~2tGFOFL!2 !s7>Kg kb>*q"vC7RMDbk[m*kR[g,2 "i!2("r:eG(#~O##^:tGW*k:cw#s#q#:fw~O82nfV !c4!p4!e~w++ 4!p~  4~/N!~=Fv( w<#~FP(x 2t!"p"r2c2n:"v!"x͒2rf!p4~!c4 :`G(b[v=(~2fG!@)"g!S"anP2nU( <W=:cWdͮ ͮ z0Wxx0 [a  ͒D!e>F(͞> _ `_< 0H*o "o^~#G~#R>N2>ɯC:o_P N  $Not in Bank 0$Not attached to MASTER$Drive?$Incompatable drive$Non-priveleged user$Drive not ready$Can't lockout drive$Successful $Aborted$Error$Insufficient memory to $Track $ Side $FORMAT $VERIFY $Next$ 0. Kaypro 2 SSDD I. NEC PC-8001a SSDD 1. Kaypro 4/10 DSDD J. Ampro little board DSDD 2. IBM PC SSDD K. Gnat 10 96-tpi DSDD 3. IBM PC DSDD L. Wangwriter DSDD 4. Zenith 89 SSSD M. Epson QX-10 DSDD 5. Zenith 89 SSDD N. Olivetti M20 DSDD 6. Zenith 89 SSXD O. Osborne I SSSD 7. Zenith 89 DSDD P. Osborne II & Exec SSDD 8. Zenith 89 DSXD Q. Advanced Digital DSDD 9. Zenith 100 SSDD R. Xerox 820-I SSSD A. Zenith 100 DSDD S. Xerox 820-II SSDD B. TRS-80 model I SSSD T. DEC VT180 SSDD C. HP 87/125 DSDD U. DEC Rainbow SSDD D. Otrona DSDD V. Cromemco SSDD E. Morrow MD2 SSDD W. Altos DSDD F. Morrow MD3 DSDD X. Eagle SSDD G. Sanyo 1000/1100 DSDD Y. NCR decision mate DSDD H. Televideo 802/803 DSDD Z. User defined format ???? WHICH?$ (  P   w(  w(  3(   3(   B(  3(  B(  ~(  ~(  (  3( 7 (  k(  k(  3(  (  ( # (  7 P  3( 7 '(   3(   (   k(  B(  (  (  P(  :7 'P  7 '(   P(   k(  ~( BPk(  B(  (  (  6. Zenith 89 SSXD O. Osborne I SSSD 7. Zenith 89 DSDD P. Osborne II & Exec SSDD 8. Zenith 89 DSXD Q. Advanced Digital DSDD 9. Zenith 100 SSDD R. Xerox 820-I SSSD A. Zenith 100 DSDD S. Xerox 820-II SSDD B. TRS-80 model I SSSD T. DEC de5A12DRVTBL TE$dXM Q=JSECCNTTdD55H9a 9RRETSPQQdDՅ5]QMA"DMAPGMPPQdDT5I](SUdE4M-%MJDSKDR@JMA%@`\,.f` <PPVz?INIT?3k&Z! v,JK6#369Y( |i!4`mzp=nftp+[1`!̀` Y< (2;6Ձ0g`x6e@ eaC6+6DtD!mTP;*\1 fڰ70bO  n/aPCt n%s  3p@tk1aK6 33mXzlPŦ mfHn7@m`H-0[$C 6ρ̖3Y,>7K 'Kt nb-vb\`7gq;B2p/p+af`! pX/iݤ CONOUTd5D5dT8DELAYDdDE(PDMALENBdDtDMAPLLIdD%t8DMXSPH4TE$dXDRVTBLdE4E$DSKIN@E45(DSTBLS?dEuE5pINTCSTTE5(INTSTKdexNDXCNT8U$UE5RIDBUF5e%tU%%8PSECCNT4e4T5D(ϨSIGNALD44H TRKTBLtIDdDE(PDMALENBdDtDMAPLLIdD%t8DMXSPH4TEݙV@ٷ@f`63Eb-pVm7d3maz?Y~ P6H$WX60pl7K 'Kt nb-vb\`7gq;B2p/p+af`! pX/iݤ CONOUTd5D5dT8DELAYDdDE(PDMALENBdDtDMAPLLIdD%t8DMXSPH4TE$dXDRVTBLdE4E$DSKIN@E45(DSTBLS?dEuE5pINTCSTTE5(INTSTKdexNDXCNT8U$UE5RIDBUF5e%tU%%8PSECCNT4e4T5D(ϨSIGNALD44H TRKTBLtIDdDE(PDMALENBdDtDMAPLLIdD%t8DMXSPH4TEݙV@ٷ@f`63Eb-pVm7d3maz?Y~ P6H$WX60pl;O.,(2˔CHG@G3h3h rhP *fm CYPp*Jb(9 ͡ `qn1Yj {B&ͨ#OWO#i|vX-v+6h @d<  N

P;PPM    HM(y4M     ,MyM(xM    0M(y4M     ,MyM(xM    rox 820-II SSDD 4. Xerox 820-I SSSD 5. SD Systems SSDD 6. Altos SSDD WHICH?$ (" P (8(\ ( (( ( (((S#(( _( ( (   (((  ((( (. ( ( ( S(     ( (: P6Qe4%4UL% MjS1IBSZ cCM%=%9SIOSRATPS d4E$MI=AjP`5) 4 @ L X Cx>9@ Kfn՘3yxx7h$xo``Dl@˶,0 a`K2Z+[zoh 4@   0 l+JK,( L>D8X|i`6Y\Pe70!yiA ?*`<N?" ~V :l!@ q #0?jaydٵChG3ma#nͦ vG5B7Fqff#t ٴn@(3@ 'jݐ!Q* 8ݧ0b=XW+l `e{,(,L:"0`  0"B,7YPeYuN@W"0a@@<18Z"3Pٷ`].vEX?CX!€ms<! Y|#@p8`'0XP fА C ̵˔<f` ,#7K 'Kt nb-vb\`7gq;B2p/p+af`! pX789:;<=>?@ABCDEFGHIJKLM @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@