'=========================================================================== ' Subject: DOSFS FILESYSTEM BROWSER V1.0 Date: 12-01-96 (18:01) ' Author: Aaron Finley Code: QB, QBasic, PDS ' Origin: aaronx86@geocities.com Packet: DEMOS.ABC '=========================================================================== DECLARE SUB license () DECLARE SUB dialog (A!, b!, c!, d!, shd!) DECLARE SUB ANXStringHandle (prompt$, max%, winsiz%, S$, sequins%) DECLARE FUNCTION GetString$ (prompt$, max%, winsiz%, S$, sequins%) 'DOSFS Filesystem Installer V1.0 'Copyright (C) Aaron Finley 1996 'All Rights Reserved CLS COLOR 0, 15 PRINT STRING$(80, " ") '------------License------------------- LOCATE 1, 1: PRINT "DOSFS Filesystem Installer V1.0": CALL license CALL dialog(17, 8, 30, 10, 1) '-------------------------------------- COLOR 15, 3 LOCATE 8, 32: PRINT "DOSFS Installer": COLOR 0, 15 LOCATE 11, 26: PRINT "DOSFS Filesystem Version 1.0" LOCATE 12, 24: PRINT " Copyright (c) Aaron Finley 1996" LOCATE 13, 19: PRINT " All Rights Reserved" COLOR 15, 1 LOCATE 15, 25: PRINT STRING$(32, " ") OPEN "dosfs.bas" FOR INPUT AS #1 DO UNTIL EOF(1) LINE INPUT #1, A$ IF A$ = "'[FS_APP.ANX]" THEN GOTO gotit1: LOOP CALL dialog(17, 8, 30, 10, 1) COLOR 15, 3 LOCATE 8, 32: PRINT "DOSFS Installer" COLOR 0, 15 LOCATE 12, 23: PRINT " Installer Object Incomplete" LOCATE 13, 23: PRINT " Unexcepted End-Of-File" SYSTEM gotit1: Fsb = 1 qat = 1 dfc = 1 OPEN "FS_app.anx" FOR OUTPUT AS #2 cc = 0 DO UNTIL EOF(1) LINE INPUT #1, A$ FOR i% = 2 TO LEN(A$) b$ = MID$(A$, i%, 1) IF A$ = "'[FS_APP.ANX]" THEN GOTO find2: b = ASC(b$) IF b = 254 THEN GOTO 4 cc = cc + 1 IF cc = 128 THEN cc = 1 b = b - cc PRINT #2, CHR$(b); '----Percent Formula V1---- done = done + 1 outof = LOF(1) length = 40 numprint1 = done / outof * length + 1 COLOR 15, 3 LOCATE 15, 25: PRINT STRING$(numprint1, " ") '---Done That--- 4 NEXT cc = 0 PRINT #2, LOOP find2: CLOSE #1 OPEN "dosfs.bas" FOR INPUT AS #1 DO UNTIL EOF(1) LINE INPUT #1, A$ IF A$ = "'[FS_VIEW.BAS]" THEN GOTO gotit2: LOOP CALL dialog(17, 8, 30, 10, 1) COLOR 15, 3 LOCATE 8, 32: PRINT "DOSFS Installer" COLOR 0, 15 LOCATE 12, 23: PRINT " Installer Object Incomplete" LOCATE 13, 23: PRINT " Unexcepted End-Of-File" SYSTEM gotit2: CLOSE #2 OPEN "FS_VIEW.BAS" FOR OUTPUT AS #2 cc = 0 DO UNTIL EOF(1) LINE INPUT #1, A$ FOR i% = 2 TO LEN(A$) b$ = MID$(A$, i%, 1) IF A$ = "'[FS_VIEW.BAS]" THEN GOTO endthat: b = ASC(b$) IF b = 254 THEN GOTO 6 cc = cc + 1 IF cc = 128 THEN cc = 1 b = b - cc IF b = -4 THEN GOTO 889: PRINT #2, CHR$(b); '----Percent Formula V1---- done = done + 1 outof = LOF(1) length = 54 numprint1 = done / outof * length + 1 COLOR 15, 3 LOCATE 15, 25: PRINT STRING$(numprint1, " ") '---Done That--- 6 NEXT cc = 0 PRINT #2, LOOP endthat: CLOSE #2 OPEN "DOC.TXT" FOR OUTPUT AS #2 cc = 0 DO UNTIL EOF(1) LINE INPUT #1, A$ FOR i% = 2 TO LEN(A$) b$ = MID$(A$, i%, 1) IF A$ = "'[EMANUAL.TXT]" THEN GOTO endthat2: b = ASC(b$) IF b = 254 THEN GOTO 889 cc = cc + 1 IF cc = 128 THEN cc = 1 b = b - cc IF b = -4 THEN GOTO 889: PRINT #2, CHR$(b); '----Percent Formula V1---- done = done + 1 outof = LOF(1) length = 64 numprint1 = done / outof * length + 1 COLOR 15, 3 LOCATE 15, 25: PRINT STRING$(numprint1, " ") '---Done That--- 889 NEXT cc = 0 PRINT #2, LOOP endthat2: 100 VIEW PRINT 3 TO 24 CLOSE COLOR 0, 0 CALL dialog(20, 10, 20, 6, 1) COLOR 15, 3 LOCATE 10, 32: PRINT "DOSFS Installer" COLOR 0, 15 LOCATE 12, 24: PRINT " Enter installation path" PRINT path$ = "C:\DOSFS" COLOR 15, 1 LOCATE 13, 27: Tmp$ = GetString$(Out$, 256, 24, path$, 0) ON ERROR GOTO DirAExt: MKDIR path$ DirAExt: COLOR 0, 0 CLS CALL dialog(20, 8, 21, 10, 1) COLOR 15, 3 LOCATE 8, 32: PRINT "DOSFS Installer" COLOR 0, 15 LOCATE 10, 24: PRINT " Chose components to install." LOCATE 12, 24: PRINT " [ ] 1. Filesystem Browser (REQ)" LOCATE 13, 24: PRINT " [ ] 2. APP Loader C:\I...ANX (REQ)" LOCATE 14, 24: PRINT " [ ] 3. FS Files and Manual (REQ)" LOCATE 16, 21: PRINT "Press number to select, Enter to cont." '------------Really Sloppy Code--------------------- 'Excuse this crappy code. I almost ran out of time! DO Rerr: IF Fsb = 1 THEN LOCATE 12, 27: PRINT "X" IF Fsb = 0 THEN LOCATE 12, 27: PRINT " " IF qat = 1 THEN LOCATE 13, 27: PRINT "X" IF qat = 0 THEN LOCATE 13, 27: PRINT " " IF dfc = 0 THEN LOCATE 14, 27: PRINT " " IF dfc = 1 THEN LOCATE 14, 27: PRINT "X" A$ = INKEY$: IF A$ = "" THEN GOTO Rerr: IF A$ = CHR$(13) THEN GOTO donsel: IF Fsb = 1 THEN IF A$ = "1" THEN Fsb = 0: GOTO Rerr IF qat = 1 THEN IF A$ = "2" THEN qat = 0: GOTO Rerr IF dfc = 1 THEN IF A$ = "3" THEN dfc = 0: GOTO Rerr IF A$ = "1" THEN Fsb = 1 IF A$ = "2" THEN qat = 1 IF A$ = "3" THEN dfc = 1 LOOP donsel: COLOR 0, 0 CLS CALL dialog(20, 10, 20, 6, 1) COLOR 15, 3 LOCATE 10, 32: PRINT "DOSFS Installer" COLOR 0, 15 LOCATE 13, 30: PRINT " Please Wait..." IF Fsb = 1 THEN cmd$ = "copy fs_app.anx " + path$ + "\fs_app.anx > tmp.tmp": cmd2$ = "copy fs_view.bas " + path$ + "\fs_view.anx > tmp.tmp": SHELL cmd$: SHELL cmd2$: file = file + 2 IF qat = 1 THEN OPEN "c:\ifloader.anx" FOR OUTPUT AS #1: PRINT #1, "chdir " + path$: PRINT #1, "qbasic /run " + path$ + "\fs_app.anx": CLOSE #1: file = file + 1 IF Fsb = 1 OR qat = 1 OR dfc = 1 THEN dd$ = "copy doc.txt " + path$ + "\MANUAL.TXT" SHELL dd$ END IF IF dfc = 1 THEN OPEN path$ + "\dosfs.bat" FOR OUTPUT AS #1 PRINT #1, "@echo off" PRINT #1, "chdir " + path$ PRINT #1, "qbasic /run fs_view.anx" CLOSE #1 file = file + 1 OPEN path$ + "\odc.anx" FOR OUTPUT AS #1 CLOSE #1 file = file + 1 OPEN path$ + "\odn.anx" FOR OUTPUT AS #1 PRINT #1, "0" CLOSE #1 file = file + 1 OPEN path$ + "\odr.anx" FOR OUTPUT AS #1 PRINT #1, "2" PRINT #1, "Aunix" CLOSE #1 file = file + 1 ELSE END IF CALL dialog(20, 10, 20, 6, 1) COLOR 15, 3 LOCATE 10, 32: PRINT "DOSFS Installer" COLOR 0, 15 LOCATE 13, 24: PRINT "Installation Complete (" + RIGHT$(STR$(file + 1), LEN(STR$(file + 1)) - 1) + " files)" KILL "fs_app.anx" KILL "Fs_view.bas" KILL "Doc.txt" IF Fsb = 1 OR dfc = 1 OR qat = 1 THEN KILL "tmp.tmp" ELSE END IF ON ERROR GOTO errhndl: END errhndl: SYSTEM SUB ANXStringHandle (prompt$, max%, winsiz%, S$, sequins%) S$ = LTRIM$(RTRIM$(S$)): Cursor% = LEN(S$) - (Cursor% < max%) F$ = " ": IF sequins% <> 0 THEN F$ = " " Fill$ = STRING$(max%, F$) S$ = LEFT$(S$ + Fill$, max%): INS% = -1: PRINT prompt$; " "; Ybase% = POS(0) WHILE done$ <> "DONE" Sbase% = Cursor% - winsiz% + 1: IF Sbase% < 1 THEN Sbase% = 1 LOCATE , Ybase%, 0: Hid$ = STRING$(LEN(RTRIM$(S$)), "*") IF sequins% = 0 THEN PRINT MID$(S$ + Fill$, Sbase%, winsiz%); " "; ELSE PRINT MID$(Hid$ + Fill$, Sbase%, winsiz%); " "; END IF LOCATE , Ybase% + Cursor% - Sbase%, 1 k$ = "": WHILE k$ = "": k$ = INKEY$: WEND k% = ASC(k$): IF k% = 0 THEN k% = -ASC(MID$(k$, 2)) SELECT CASE k% CASE 32 TO 127 IF INS% AND Cursor% < max% THEN MID$(S$, Cursor% + 1) = MID$(S$, Cursor%) S$ = LEFT$(S$, max%) END IF MID$(S$, Cursor%, 1) = k$ IF Cursor% = max% THEN SOUND 999, 1 Cursor% = Cursor% - (Cursor% < max%) CASE 13: IF S$ = Fill$ THEN S$ = "" IF INSTR(S$, F$) > 0 THEN S$ = LEFT$(S$, INSTR(S$, F$) - 1) EXIT SUB CASE 8 IF Cursor% > 1 THEN Cursor% = Cursor% - 1 MID$(S$, Cursor%) = MID$(S$, Cursor% + 1) MID$(S$, max%) = F$ ELSE BEEP END IF CASE 27: S$ = "": EXIT SUB CASE -71: Cursor% = 1 CASE -79: Cursor% = INSTR(S$, F$) IF Cursor% = 0 THEN Cursor% = max% CASE -82: INS% = -(INS% + 1): SOUND 1500 + 800 * INS%, .5 CASE -83 IF Cursor% < max% THEN MID$(S$, Cursor%) = MID$(S$, Cursor% + 1) MID$(S$, max%) = F$ ELSE BEEP END IF CASE -75: Cursor% = Cursor% - 1 lim% = INSTR(S$, F$): lim% = lim% - max% * (lim% = 0) IF Cursor% < 1 THEN Cursor% = lim% CASE -77: Cursor% = Cursor% + 1 lim% = INSTR(S$, F$): lim% = lim% - max% * (lim% = 0) IF Cursor% > lim% THEN Cursor% = 1 END SELECT WEND END SUB SUB dialog (A, b, c, d, shd) COLOR 15, 3 LOCATE b, A: PRINT STRING$(A + c, " ") COLOR 0, 15 FOR i% = b + 1 TO b + d - 1 LOCATE i%, A: PRINT STRING$(A + c, " "); : IF shd = 1 THEN COLOR 8, 0: PRINT "": COLOR 0, 15 NEXT i% COLOR 8, 0 IF shd = 1 THEN LOCATE b + d, A + 1: PRINT STRING$(A + c, "") END SUB SUB formula CLS DO done = 25 IF done = outof THEN END outof = 100 length = 80 LOCATE 1, 1 COLOR 15, 1 PRINT STRING$(length, " ") numprint1 = done / outof * length + 1 LOCATE 1, 1: COLOR 0, 15 PRINT STRING$(numprint1, " ") LOOP END SUB FUNCTION GetString$ (prompt$, max%, winsiz%, S$, sequins%) ANXStringHandle prompt$, max%, winsiz%, S$, sequins%: Elvis$ = S$ END FUNCTION SUB license CALL dialog(11, 3, 50, 20, 1) COLOR 15, 3 LOCATE 3, 35: PRINT "License" COLOR 0, 15 LOCATE 5, 1: LOCATE 5, 20: PRINT "DOSFS Installation v1.0" LOCATE 6, 20: PRINT "Copyright (C) Aaron Finley 1996" LOCATE 7, 20: PRINT "All Rights Reserved" LOCATE 8, 20: PRINT LOCATE 9, 20: PRINT "By pressing `A', you agree to the following:" LOCATE 10, 20: PRINT "---------------------------------------------" LOCATE 11, 20: PRINT " 1. You will not use any of the package's" LOCATE 12, 20: PRINT " (which includes FS_APP.ANX, FS_VIEW.BAS)" LOCATE 13, 20: PRINT " code from this version. In order to use" LOCATE 14, 20: PRINT " the code, you must register." LOCATE 15, 20: PRINT LOCATE 16, 20: PRINT " 2. You will not modify or copy in any way" LOCATE 17, 20: PRINT " the code in this package, and will read" LOCATE 18, 20: PRINT " Manual.txt once installed. " LOCATE 19, 20: PRINT LOCATE 20, 20: PRINT "---------------------------------------------" COLOR 15, 1 LOCATE 21, 20: PRINT "Press `A' to agree, `D' to disagree. " DO 999 A$ = INKEY$: IF A$ = "" THEN GOTO 999: IF UCASE$(A$) = "A" THEN GOTO 989 IF UCASE$(A$) = "D" THEN SYSTEM LOOP 989 END SUB SUB package 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 'X X 'X File Area X 'X X 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX '---------------------------------------------------------------------------- '"What the HELL is that?" Version 1.0 'Copyright (C) Aaron Finley 1996 'All Rights Reserved '---------------------------------------------------------------------------- '[FS_APP.ANX] 'EGFPFXL(\_M,\<\UcYX4=z{G|BH 'EGFPFXL(\_M,\<\[Taa4=YffGh|BH 'EGFPFXL(\_M,\ZggHdAJ?aqrQi}zKQ 'EGFPFXL(\_M,swsu{4=:C 'EGFPFXL(\_M,\PI 'DQOSW&>4): 'EQ '32#> 'JH#Qfioqwo/,J.121f[Yc6^gmi;ST 'QTLRY&Tilrtzr2/;14B65A7{}@=I?BDD^ 'JPSYY&)*5*nyq2 'JH#MSY[Z1;7,p{s4=2547?7la_i '!"#$%&'()*+,-./0Wae46T8J:ok=jdnIIO '!"#$%&'()*+,-./0E96T8fc_@EENCQFXQ '!"#$%&'()*+,-./0T2P4 '!"#$%&'()*+,-./0ZX3H<9W;>=@?tigqDlu{wI] '!"#$%&'()*+,-./0 '!"#$%&'()*+,-./0F96T8NA>J@UI '!"#$%&'()*+,-./0 '!"#$%&'()*+,-./0_Wkh '4 '!"#$%&'()*+,-./0Wae4w6T8\:ok=jdnIIO '!"#$%&'()*+,-./0E96T8fc_@EENCQFXQ '!"#$%&'()*+,-./0 '!"#$%&'()*+,-./0G96T8OA>J@UI '!"#$%&'()*+,-./0_Wkh '5 '!"#$%&'( '!"#$%&'(}w{>1.L0fUTgZ:?M@F '!"#$%&'()*+,-./0 '!"#$%&'()*+,-./08dXjO67Y}~=entpBUTFJV] '!"#$%&'()*+,-./0dW_YXj7[Zm`?@dcopEuUkqnt~UxwyW\k]f[gvhnfthzst '!"#$%&'()*+,-./01234567[Zm`? '!"#$%&'()*+,-./0123456789:;<=>?cbnoDtTjpms}TwvxV[j\eZfugmesgyrs '!"#$%&'()*+,-./01234567[Zm`?@dcopEuUutmzzUdV\ '!"#$%&'()*+,-./01234567[Zm`?@dcopEuUutmzzUdV\ '!"#$%&'()*+,-./01234567[Zm`?@dcopEuU~roTwvxV[j\eZfugmesgyrs '!"#$%&'()*+,-./01234567[Zm`?@dcopEuU{sqUdV\nU}Zml '!"#$%&'()*+,-./01234567[Zm`?@dcopEuUzvmzzUxwyW\k]f[gvhnfthzst '!"#$%&'()*+,-./01234567[Zm`?@dcopEuUzvmzzUxwyW\k]f[gvhnfthzst '!"#$%&'()*+,-./01234567[Zm`? '!"#$%&'()*+,-./0123456789:;<=>?@dcopEuUun|rqUxwyW\k]f[gvhnfthzst '!"#$%&'()*+,-./012345678 '!"#$%&'()*+,-./0V`W4h[c]\n '!"#$%&'()*+,-./0TS_`5eE{|FTGPExpoq~OTcU^Sz_n`f^l`rkl '!"#$%&'(}w{>1.L034M4K=:X?@ABCDg]lI]kv?hbpgpjxTUVWXYZ[\]^_`abcd '89 '!"#$%&'(XZPZ-0~t@t87^hl;]mndneBdwEI\ '!"#$%&'(Y\TZa.2E=25D7 '!"#$%&'(LVZ_R.2E '!"#$%&'(XZPZ-0~t@t87^hl;eknttAcvDH[ '!"#$%&'(RX[aa.2E=2 '!"#$%&'(RP+z{/M1D3h][e8bhkqq>BUMBpN '!"#$%&'(LVZ_R.2E 'JH#rzs'E);+`US]0tv|96T8;?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcd '3 '!"FPTYL(,? 'QTLRY 'MQRT ' '99 'HQWS%=> ' 'TWE$koiyz ' ' 'FPG$X[I ' 'TWE$kokms},5|}: ' '!"#$%&'(Y\TZa.1VZjVX^h7:CFQdW`|~^qorcxqk 'FPG$X[I ' 'TWE$T4JPMS],5Q^^?`tz:@ '!"#$%&'(Y\TZa.1SYUbb58}}ADObU^z|\ompavoi 'FPG$X[I ' 'TWE$T4jptk{|-6R__@au{;D9[klKcwtEK ' '!)Fss4uivo/G-0;2L2Q7:E=rgeoBljEivvWxROmQuc\Y^cu ' '!"#$%&'(WOc` ' '!"#$%&'()*+,-./0T^bgZ6:I '!"#$%&'( '!"#$%&'(NbT`-adR 'djn2j~{B '!"#$%&'(XZPZ-`XWYf7WPQNCU '!"#$%&'()*+,-./012345678\fjob>BV[BflfouH{srtRWW\jbf[gglzrskymxp|ruw '!"#$%&'()*+,-./0V^fY '!"#$%&'()*+,-./0V`W4^\ '!"#$%&'(UYZ\ '!"#$%&'(Y\TZa.1U58zDMiosjz{L_]`QwUg`Z '!"#$%&'(Y\TZa.1UibM4bVLAR '!"#$%&'()*+,-./012345678ildjq>booPlI '!"#$%&'()*+,-./012345678\[na=@nNF '!"#$%&'()*+,-./012345678\igko>RLAR '!"#$%&'()*+,-./012345678ildjq>booPlIFRHKjM '!"#$%&'()*+,-./012345678\[na=@nNF '!"#$%&'()*+,-./012345678\igko>QLAR '!"#$%&'()*+,-./012345678ildjq>booPlIFRHKTM '!"#$%&'()*+,-./U_V3gZb\[m '!"#$%&'(WOc` '!"#$%&'(LVZ_R.2A '!"#$%&'(LYW[_.F<1B '!"#$%&'( ' 'FPG$X[I ' 'TWE$T4TM[QP,5r~s?tz:@ '!"RR%KYZX\+S\b^0II '!"RTJT'lxm9zn{t41Xbf5_ehnn;]p>erfgimqk '!"#$%&'(LVZ_R.UbVWY]a[ '!"#$%&'(RP+p|q=~rx85S7:GH=J@RMJVLONQP\R}|~\aafkodppuĽz{suxz}|~ѐՈ '!"#$%&'( '!"#$%&'()*+,-./0dZX`a6= '!"#$%&'()*+,-./0\[_`58kH@ '!"#$%&'()*+,-./0T^bgZ6:JNN ' '!"#$%&'()*+,-./0123456 ' 'FPG$X[I ' 'TWE$T4TSLYY,5Q^^?`tz:@ ' '!"#$%&'(Y\TZa.1]\Ubb58}}ADObU^|\ompavoi 'FPG$X[I ' 'TWE$T4YULYY,5Q^^?`tz:@ 'QTLRY&)ZVMZZ-w0u{uw||9sy9? ' '!"#$%&'(RP+p|q=~rx85S7:GH==rgeoBljEivvWsPMkOa\Y^c| ' '!"#$%&'(WOc` '!"#$%&'()*+,-./0T^bgZ6:I '!"#$%&'(Y\TZa.1Tuz8{=RSvMRV[_hùs|y~° '9 '!"#$%&'(LVZ_R.2C '!"#$%&'(XZPZ-`XWYf7bmeBAvkisFwzrxLPa[PtzX]hmasZ~`du}di '!"#$%&'()*+,-./0ad\bi6:KE:RC '!"#$%&'()*+,-./0]abd ' 'FPG$X[I ' '[FS_APP.ANX] '[FS_VIEW.BAS] 'EGFPFXL(\_M,\ZggHAJ?aqrQi}zKQ ' 'EGFPFXL(\_M,swsu{4=:C ' 'EGFPFXL(\_M,\?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ 'EGFPFXL(\_M,\<\[Taa4=YffGh|BH 'EGFPFXL(\_M,\PI ' ' 'DNV 'DQOSW&74);@ 'QTLRY&Z\[SYS16G@=2547? 'MQFEYK'95*4): 'WKH[%VYQW^+>-b^0CG 'QTLRY 'QTLRY&)LX]Q_?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxy ' '!Yhphutm)~z,vt0y6~9^jocqM@AcCuJUZ^a '!kq$~u|z)k{|ywrq{58>CH^QRUZ '!QSIS&hvm*NX\aT>12]7}|=ARVQU`q '!kq$~u|z)z}{tp}=23uz7;NABrGIMSV[_ '!vr$xk{(r~+}8;,|/|rx ' '20#Gtstiwn~ './0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxy ' '!"#$%&'( '!"#$%&'(i\X,h}qzvusw}vA ' '!"#$%&'()7+^r{~v3u6z~ ' '!"#$%&'(iWVPV`/kt}yxvzyD>AphEZ ' '!"#$%&'()7+Ospv3u5y{?HPRFmV '!"#$%&'()7+[oxts2u{8{<?BEX\]I`U '!"#$%&'()*+ouoqtx6||=G[ '!"#$%&'( '!"#$%&'(iMSPV`/kt}yxvzyD>?BgiF[ ' '!"#$%&'()7+Ouo}wv3}{7{?IRZ\Pw` ' '!"#$%&'(ia]UaS/kt}yxvzC ' '!"#$%&'()7+Ospv3u5z{ '!"#$%&'()7+[oxts2u{8{<?BEX\]I`UV '!"#$%&'()*+ouoqtx6||=G[ ' '!"#$%&'(iML`-i~r{wvtx~wB ' '!"#$%&'()7+bvs0r2v{z9 '!"#$%&'()7+O|rt0z3z~E:;>BINR[ '!"#$%&'()*+m{.~r{wvA67;}OBC ' '!"#$%&'(iWP^TS/kUd\jZPshZncxN ' '!"#$%&'()7+O|~0r2Wch6};@Diuzn|J '!"#$%&'()7+`us/~rx48=@CGLPTW[q '!"#$%&'()7+Rvzt1u{9JObUVY '!"#$%&'()*+r|/y{47H=AFNR '!"#$%&'()*+|nqzqxw3{6~:BXKLvOSX\ '!"#$%&'()*+uw09BAGxC89ADh`^]aV] '!"#$%&'()*+u.}@ ' '!"#$%&'()7+Z|.p~|wv;@EJ^STWZ^ '!"#$%&'()*+|.rvsy5}E:;>DH`STW '!"#$%&'()*+m{.~r{wv58z;}SHIMR[W '!"#$%&'()*+ny}r{1y4v6z~=ILPWe]^a '!"#$%&'()*+m}~{yts}7:jJ~NABuKNRwY\~vtlr '!"#$%&'()*+|.xv2y}{7y:|>dneNCDxz|nwWLMPUm ' '30#$Qotq}ku||0rw4g{~} './0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxy ' '!"#$%&'(iWVPV`6<1rV\Y_i?E:|>rnICFJPSX]s '!"#$%&'(Wy+o|rt0z3}8=ADNQh ' '!"#$%&'(]rp,s{|1xE:;AGLZZWLMSV\b ' '!"#$%&'()*+,>CHOTna '!"#$%&'()*+,AFOKqZ[ '!"#$%&'()*+,Bt}6}{>DH_ ' '!"#$%&'(]y+r|s0wz}yI>?FKOTs '!"#$%&'(J}+|/}r{4~E:;BEIXP '!"#$%&'(JPj^r~{Q|Dz ' '!"#$%&'(6789:;<=>?@ABCDEFGHIJKLMpFmXYZ[\]^_`abcdefghijklmnopqrs ' '!"#$%&'(WkxqG.nopqrstuvwxyz{|}~ghijklmnopqrstuvwxyz{ '!"#$%&'(JqpF-mno '!"#$%&'(X|tsv|/w2wz~U<|}~\RS '!"#$%&'(hijklmnopqrstuvwxyz{|}~ ' '!"#$%&'(]{q-}u0szR9u;y=aBCEGuM} '!"#$%&'()*89-[p{v2v|zy8;AGKNqU|c]afttsfg ' '!"#$%&'(Jno~rJ1qrstuvwxyz{|}~ '!"#$%&'(Jno~r0CL3stuvwxyz{|}~ '!"#$%&'(LsG.nopqrstuvwxyz{|}~ '!"#$%&'(\~lrH/o?qA47wxyz{|}~ '!"#$%&'(LyzJ1qrstuvwxyz{|}~ '!"#$%&'(YrzzrH/8pqr=5uvwFyz{|>A ' '!"#$%&'(6789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrs ' '!"#$%&'(Y,v|/ry7y~;@FKNQZ^f ' '!"#$%&'(Jyu.]u '!"#$%&'(@?C,Yo3U{E '!"#$%&'(Qkq~>3dvD7IRJSO ' '!"#$%&' ' '!"#$%&'( ' ' '!"#$%&'()*+,-./0 '[EMANUAL.TXT] END SUB