'===========================================================================
' 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,\<RXU[e4=YffGh|BH
'EGFPFXL(\_M,\<[c1:<
'EGFPFXL(\_M,\<eYVi3<yzF{AG
'EGFPFXL(\_M,\<fbZfX4=z{G|BH
'EGFPFXL(\_M,\<rx|s5>ZggHdAJ?aqrQi}zKQ
'EGFPFXL(\_M,swsu{4=:C
'EGFPFXL(\_M,\<a]Taa4=YffGh|BH
'(FRWKY6[bXN,Sw{uz7Z
'(Ert~xpoq~+4P7/Qr5\<NWXV
'(Cop%Xpoq~~,_suxx
'DQPQTT'[QK]QQ.rtz7@5YffGc@I>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
'!"#$%&'()*+,-./0E96T8fc_@EENCQFXQ
'!"#$%&'()*+,-./0T2P4
'!"#$%&'()*+,-./0ZX3H<9W;>=@?tigqDlu{wI]
'!"#$%&'()*+,-./0
'!"#$%&'()*+,-./0F96T8NA>J@UI
'!"#$%&'()*+,-./0
'!"#$%&'()*+,-./0_Wkh
'4
'!"#$%&'()*+,-./0Wae4w6T8\:ok=jdnIIO
'!"#$%&'()*+,-./0E96T8fc_@EENCQFXQ
'!"#$%&'()*+,-./0
'!"#$%&'()*+,-./0G96T8OA>J@UI
'!"#$%&'()*+,-./0_Wkh
'5
'!"#$%&'(
'!"#$%&'(}w{>1.L0fUTgZ:?M@F
'!"#$%&'()*+,-./0
'!"#$%&'()*+,-./08dXjO67Y}~=entpBUTFJV]
'!"#$%&'()*+,-./0dW_YXj7[Zm`<RE
'!"#$%&'()*+,-./01234567[Zm`<?acB
'!"#$%&'()*+,-./0123456789:;<=>?@dcopEuUkqnt~UxwyW\k]f[gvhnfthzst
'!"#$%&'()*+,-./01234567[Zm`<?agdjtE
'!"#$%&'()*+,-./0123456789:;<=>?
'!"#$%&'()*+,-./0123456789:;<=>?cbnoDtTjpms}TwvxV[j\eZfugmesgyrs
'!"#$%&'()*+,-./01234567[Zm`<?kjdjtE
'!"#$%&'()*+,-./0123456789:;<=>?@dcopEuUutmzzUdV\
'!"#$%&'()*+,-./01234567[Zm`<?kcB
'!"#$%&'()*+,-./0123456789:;<=>?@dcopEuUutmzzUdV\
'!"#$%&'()*+,-./01234567[Zm`<?a`tC
'!"#$%&'()*+,-./0123456789:;<=>?@dcopEuU~roTwvxV[j\eZfugmesgyrs
'!"#$%&'()*+,-./01234567[Zm`<?uqiugE
'!"#$%&'()*+,-./0123456789:;<=>?@dcopEuU{sqUdV\nU}Zml
'!"#$%&'()*+,-./01234567[Zm`<?plB
'!"#$%&'()*+,-./0123456789:;<=>?@dcopEuUzvmzzUxwyW\k]f[gvhnfthzst
'!"#$%&'()*+,-./01234567[Zm`<?pldjtE
'!"#$%&'()*+,-./0123456789:;<=>?@dcopEuUzvmzzUxwyW\k]f[gvhnfthzst
'!"#$%&'()*+,-./01234567[Zm`<?kdrhgE
'!"#$%&'()*+,-./0123456789:;<=>?
'!"#$%&'()*+,-./0123456789:;<=>?@dcopEuUun|rqUxwyW\k]f[gvhnfthzst
'!"#$%&'()*+,-./012345678
'!"#$%&'()*+,-./0V`W4h[c]\n
'!"#$%&'()*+,-./0TS_`5eE{|FTGPExpoq~OTcU^Sz_n`f^l`rkl
'!"#$%&'(}w{>1.L034M4K=:X<?@
'!"#$%&'(NV^Q
'!"#$%&'()*+,-./0ZX3wz;8V:=@?tigqDtTs{
'!"#$%&'()*+,-./0TS_`5eE{|FFODMS
'!"#$%&'(
'!"#$%&'(NXO,VT
'!"#$%&'
'!"#$%&'()*+,-./0
'!"#$%&'(0789:;<=>?@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;<U<lndnADTLKr|OVxY]pv]cgzrgjzllrvv݌
'JH#rzs'E)<+`US]0tv|96T8;<U<lndnADTLKr|OVxY]pv]cgzrgj{llrvv
'JH#rzs'E):+`US]0\[_`58|H|@Y@jhCLIgKNONxvS\Yw[^]`y`liknƾv
'!"#$%&'(0789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcd
'3
'!"FPTYL(,?
'QTLRY
'MQRT
'
'99
'HQWS%=>
'
'TWE$koiyz
'
'
'FPG$X[I
'
'TWE$kokms},5|}:
'
'!"#$%&'(Y\TZa.1VZjVX^h7:CFQdW`|~^qorcxqk
'FPG$X[I
'
'TWE$T4JPMS],5Q^^?`tz:@
'!"#$%&'(Y\TZa.1SYUbb58}}ADObU^z|\ompavoi
'FPG$X[I
'
'TWE$T4jptk{|-6R__@au{;D9[klKcwtEK
'
'!)Fss4uivo/G-0;2L2Q7:E<V<?pvsyF`FITKeKN|\T
'!"#$%&'
'!"#$%&
'!"#$%&'(RP+oqw41NQ4787la_i<fd?cppQrLIgKN[\QPzxUy|[^klazafvyrw
'!"#$%&'()*+,-.
'!"#$%&'(LVZ_R.2A
'!"#$%&'(LVZ_R.2B
'!"#$%&'(XZPZ-0~tt@t87^hl;eknttAcvDHW
'!"#$%&'
'!"#$%&'(XZPZ-0~t@t87^hl;eknttAcvDHX
'!"#$%&'(RX[aa.2B=2
'!"#$%&'(LVZ_R.2B
'!"#$%&'(OY],V3/M1C3hd6
'!"#$%&'(RX[aa.2A=2VccD`=F;QLAcfgjyzLUJzZU
'!"#$%&
'!"#$%&'(RP+[;v63Q58fFz>=rgeoBljEivvWxROmQuc\Y^cu
'
'!"#$%&'(WOc`
'
'!"#$%&'()*+,-./0T^bgZ6:I
'!"#$%&'(
'!"#$%&'(NbT`-adR
'djn2j~{B
'!"#$%&'(XZPZ-`XWYf7<hji<AOGK@mgqLxzyLQ_WXP^Rd]U|Y_bfz
'!"#$%&'(MY+a[bX\1WbZ=L@
'!"#$%&'()*+,-./0][aY5_ehnn;?SJ?I
'!"#$%&'()*+,-./0ZX3]cikjAKG<ra`sfFKMSWLO~QTS_Uy]bnpf^j`cqyqp|rz|
'!"#$%&'()*+,-./012345678lipja>WPQNCU
'!"#$%&'()*+,-./012345678\fjob>BV[BflfouH{srtRWW\jbf[gglzrskymxp|ruw
'!"#$%&'()*+,-./0V^fY
'!"#$%&'()*+,-./0V`W4^\
'!"#$%&'(UYZ\
'!"#$%&'(Y\TZa.1U58zDMiosjz{L_]`QwUg`Z
'!"#$%&'(Y\TZa.1UibM4b<ADKNSmb
'FPG$X[I
'
'TWE$T4S[
'!"#$%&'(LYW[_.F<1BM4eh`fm:=JK@
'!"#$%&'(LVZ_R.2A
'!"#$%&'(LVZ_R.2B
'!"#$%&'(XZPZ-0~tt@t87^hl;eknttAcvDHW
'!"#$%&'(XZPZ-0~t@t87^hl;eknttAcvDHX
'!"#$%&'(RX[aa.2B=2
'!"#$%&'(LVZ_R.2B
'!"#$%&'(OY],V3/M1C3hd6
'!"#$%&'(RX[aa.2A=2VccD`=F;K@befixyKTIyYT
'
'!"#$%&'()*+,-./0dW_YXj7[Zm`<lLG
'!"#$%&'()*+,-./012345678\[na=@nNF
'!"#$%&'()*+,-./012345678\igko>VLAR
'!"#$%&'()*+,-./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=~rx85S7:GH=<qfdnArumszGJlRWZbki|z}nr}ww|
'!"#$%&'(LVZ_R.2A
'!"#$%&'(LVZ_R.2B
'!"#$%&'(XZPZ-0^TT@Tbm87^hl;]mndneBdwEIX
'!"#$%&'(XZPZ-0^T_@Tbm87^hl;eknttAcvDHX
'!"#$%&'()*+,-./0
'!"#$%&'()*+,-./0Z`cii6:JE:X?CaEIUK]gNr|xTXhqX]`phgkruyy
'!"#$%&'()*+,-./0ad\bi6:IE:LG_EHSJdJiOR]TnTW^x^alc}cftl
'!"#$%&'()*+,-./0T^bgZ6:K
'!"#$%&'()*+,-./074R69{<?>J@RMJVLONQP\R}|~\aafkodppuĽz{suxz}|~ѐՈ
'!"#$%&'(
'!"#$%&'()*+,-./0dZX`a6=
'!"#$%&'()*+,-./0\[_`58kH@
'!"#$%&'()*+,-./0T^bgZ6:JNN
'
'!"#$%&'()*+,-./0123456
'
'FPG$X[I
'
'TWE$T4TSLYY,5Q^^?`tz:@
'
'!"#$%&'(Y\TZa.1]\Ubb58}}ADObU^|\ompavoi
'FPG$X[I
'
'TWE$T4YULYY,5Q^^?`tz:@
'QTLRY&)ZVMZZ-w0u{uw||9<GZMV}tTgehYnga
'
'FPG$X[I
'
'TWE$T4]QNa+4q}r>sy9?
'
'!"#$%&'(RP+p|q=~rx85S7:GH=<qfdnArumszGJmQVYajgzx{lzt
'!"#$%&'(XZPZ-0~tt@t87^hl;eknttAcvDHW
'!"#$%&'(XZPZ-0~t@t87^hl;eknttAcvDHX
'!"#$%&'(RX[aa.2B=2
'!"#$%&'(LVZ_R.2B
'!"#$%&'(OY],V3/M1C3hd6
'!"#$%&'(RX[aa.2A=2VccD`=F;QLAcfgjyzLUJzZU
'!"#$%&'(RP+[;v63Q58fF}~>=rgeoBljEivvWsPMkOa\Y^c|
'
'!"#$%&'(WOc`
'!"#$%&'()*+,-./0T^bgZ6:I
'!"#$%&'(Y\TZa.1Tuz8{=RSvMRV[_hùs|y~°
'9
'!"#$%&'(LVZ_R.2C
'!"#$%&'(XZPZ-`XWYf7<hji<AOGK@mgqLxzyLQ_WXP^Rd]U|Y_bfw
'!"#$%&'(
'!"#$%&'(MY+a[bX\1WbZ=I@
'!"#$%&'()*+,-./0][aY5_ehnn;?PJ?WH
'!"#$%&'()*+,-./0ad\bi6N?
'!"#$%&'(UYZ\
'FPG$X[I
'
'TWE$T4^ZR^P,5r~s?tz:@
'
'!"#$%&'(RP+p|q=~rx85S7:GH=<qfdnArumszGJlRWZbki|z}nr}ww|
'!"#$%&'(LVZ_R.2A
'!"#$%&'(LVZ_R.2B
'!"#$%&'(XZPZ-0^TT@Tbm87^hl;]mndneBdwEIX
'!"#$%&'(XZPZ-0^T_@Tbm87^hl;eknttAcvDHX
'!"#$%&'()*+,-./0Z`cii6:JE:X?CaEIUK]gNr|xTXhqX]`phgkruyy
'!"#$%&'()*+,-./0ad\bi6:IE:LG_EHSJdJiOR]TnTW^x^alc}cftl
'!"#$%&'()*+,-./0T^bgZ6:K
'!"#$%&'()*+,-./0`bXb5h`_an?DprqDINRGtnxSSX]^VdXjc[_fim~
'!"#$%&'()*+,-./
'!"#$%&'()*+,-./0Ua
'!"#$%&'()*+,-./0][aY5_ehnn;SD
'!"#$%&'()*+,-./0ZX3K<9W;>bmeBAvkisFwzrxLPa[PtzX]hmasZ~`du}di
'!"#$%&'()*+,-./0ad\bi6:KE:RC
'!"#$%&'()*+,-./0]abd
'
'FPG$X[I
'
'[FS_APP.ANX]
'[FS_VIEW.BAS]
'EGFPFXL(\_M,\<rx|s5>ZggHAJ?aqrQi}zKQ
'
'EGFPFXL(\_M,swsu{4=:C
'
'EGFPFXL(\_M,\<a]Taa4=YffGh|BH
'(FRWKY6[bXN,Sw{uz7Z
'(Ert~xpoq~+4P7/Qr5\<NWXV
'(Cop%Xpoq~~,_suxx
'
'(Vki%uyqpsymy.yw3z7<DH`abThOPrW\bej
'(56789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~
'EGFPFXL(\_M,\<\[Taa4=YffGh|BH
'EGFPFXL(\_M,\<RXU[e4=YffGh|BH
'EGFPFXL(\_M,\<[c1:<
'EGFPFXL(\_M,\<eYVi3<YeZF{AG
'EGFPFXL(\_M,\<fbZfX4=Zf[G|BH
'DQPQTT'[QK]QQ.rtz7@5YffG@I>PI
'
'
'DNV
'DQOSW&74);@
'QTLRY&Z\[SYS16G@=2547?
'MQFEYK'95*<F-^aY_f36Yej^lInuka?fJmT
'DQOSW&>4):
'WKH[%VYQW^+>-b^0CG
'QTLRY
'QTLRY&)LX]Q_<ah^T2Y}{=`G
'QTLRY&)Kxz~vuw1:V=5Wx;bBT]^\I
'QTLRY&)Iuv+^vuw2ey{~~=
'QTLRY
'DJDMS&)n|il|}<p~4
'
'[FS_VIEW.BAS]
'[MANUAL.TXT]
'EQVJX&Mquo~t}1T|9pLJM
'Dqs}wonp}*3O6.Pq4[~;MVWU
'Bno$Wonp}}+^rtww
'
'10#[jrjwvo
'./0123456789:;<=>?@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~+}</0dwx4{z<}PF@DZ
'
'!"0$Wkx}r|p-_QQd[V4GEI
'!"0$F&oi{n+pwu14}:MF
'!"0$:6rj)P}qr
'!"0$IUZ(>8;,|/|rx
'
'20#Gtstiwn~
'./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxy
'
'!"#$%&'(
'!"#$%&'(i\X,h}qzvusw}vA
'
'!"#$%&'()7+^r{~v3u6z~
'
'!"#$%&'(iWVPV`/kt}yxvzyD>AphEZ
'
'!"#$%&'()7+Ospv3u5y{?HPRFmV
'!"#$%&'()7+[oxts2u{8{<?BEX\]I`U
'!"#$%&'()*+ouoqtx6||=G[
'!"#$%&'(
'!"#$%&'(iMSPV`/kt}yxvzyD>?BgiF[
'
'!"#$%&'()7+Ouo}wv3}{7{?IRZ\Pw`
'
'!"#$%&'(ia]UaS/kt}yxvzC
'
'!"#$%&'()7+Ospv3u5z{
'!"#$%&'()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/~rx48=@CGLPTW[q
'!"#$%&'()7+Rvzt1u{9<E]
'
'!"#$%&'(iV^3
'
'!"#$%&'()7+bvs0zx4x~=@DL
'!"#$%&'()7+O|z~zxx5|9}
'
'!"#$%&'(iel|}zxsr|uyxC
'
'!"#$%&'()7+Us.2{7;~@CFRUY
'!"#$%&'()*+u{~1D9:>JObUVY
'!"#$%&'()*+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:|>dneNCDxz|nwWLMPUm
'
'30#$Qotq}ku||0rw4g{~}
'./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxy
'
'!"#$%&'(iWVPV`6<1rV\Y_i?E:|>rnICFJPSX]s
'!"#$%&'(Wy+o|rt0z3}8=ADNQh
'
'!"#$%&'(]rp,s{|1xE:;AGLZZWLMSV\b
'
'!"#$%&'()*+,></V~4Xz<p
'!"#$%&'()*+,?</Vz6|?fsghDMOQy}^
'!"#$%&'()*+,@</dyw3uw;>CHOTna
'!"#$%&'()*+,A</Vwx4{z~}>FOKqZ[
'!"#$%&'()*+,B</U>t}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=aBCEGuM}
'!"#$%&'()*89-[p{v2v|zy8;AGKNqU|c]afttsfg
'
'!"#$%&'(Jno~rJ1qrstuvwxyz{|}~
'!"#$%&'(Jno~r0CL3stuvwxyz{|}~
'!"#$%&'(LsG.nopqrstuvwxyz{|}~
'!"#$%&'(\~lrH/o?qA47wxyz{|}~
'!"#$%&'(LyzJ1qrstuvwxyz{|}~
'!"#$%&'(YrzzrH/8pqr=5uvwFyz{|>A
'
'!"#$%&'(6789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrs
'
'!"#$%&'(Y,v|/ry7y~;@FKNQZ^f
'
'!"#$%&'(Jyu.]u
'!"#$%&'(@?C,Yo3U{E
'!"#$%&'(Qkq~>3dvD7IRJSO
'
'!"#$%&'
'
'!"#$%&'(
'
'
'!"#$%&'()*+,-./0
'[EMANUAL.TXT]
END SUB
