!S -GFL,RSW                                                                     !    100      !O GFL,RSW                                                                      !    200      !L T01,E                                                                        !    300      !R CED                                                                          !    400      !                                                                               !    500      !                                                                               !    600      LENGTH   2     &  COMMON MULTPLX$                                               !    700      LENGTH   1     &  COMMON SEL$                                                   !    800      LENGTH   3     &  COMMON BEGIN$                                                 !    900      LENGTH   3     &  COMMON END$                                                   !   1000      LENGTH   1     &  COMMON ZPT$                                                   !   1100      LENGTH   3     &  COMMON ZLP$                                                   !   1200      LENGTH   3     &  COMMON DSK1$                                                  !   1300      LENGTH   3     &  COMMON DSK2$                                                  !   1400      LENGTH   8     &  COMMON ZDATE$                                                 !   1500      LENGTH  25     &  COMMON ZNAME$                                                 !   1600      LENGTH  27     &  COMMON ZEXDATE$                                               !   1700      !                                                                               !   1800      LENGTH  12     &  LOCAL  FILENAME$                                              !   1900      LENGTH   1     &  LOCAL  OPTION$                                                !   2000      LENGTH   2.0   &  LOCAL  LOOP                                                   !   2100      LENGTH   2.0   &  LOCAL  I                                                      !   2200      LENGTH   2.0   &  LOCAL  ERR                                                    !   2300      LENGTH   3.0   &  LOCAL  WORK                                                   !   2400      LENGTH   3     &  LOCAL  PART$                                                  !   2500      LENGTH   3     &  LOCAL  ZPART$(10)                                             !   2600      LENGTH   3     &  LOCAL  ZSTATE$                                                !   2700      LENGTH   5     &  LOCAL  ZJULIAN$                                               !   2800      LENGTH   5     &  LOCAL  ZZIP$                                                  !   2900      LENGTH   6     &  LOCAL  ZAGED$                                                 !   3000      LENGTH  11     &  LOCAL  ZPCODE$                                                !   3100      LENGTH  12     &  LOCAL  ZPHONE$                                                !   3200      LENGTH  15     &  LOCAL  ZCITY$                                                 !   3300      LENGTH  25     &  LOCAL  ZADR1$                                                 !   3400      LENGTH  25     &  LOCAL  ZADR2$                                                 !   3500      LENGTH  25     &  LOCAL  ZADR3$                                                 !   3600      LENGTH   2.0   &  LOCAL  TNOFL                                                  !   3700      LENGTH   1     &  LOCAL  TPT$                                                   !   3800      LENGTH   3     &  LOCAL  TLP$                                                   !   3900      LENGTH   3     &  LOCAL  TLPI$                                                  !   4000      LENGTH   4     &  LOCAL  TKEY$                                                  !   4100      LENGTH   8     &  LOCAL  TDT$                                                   !   4200      LENGTH  27     &  LOCAL  TEXDATE$                                               !   4300      !                                                                               !   4400      !                                                                               !   4500      !  DECLARE STRING ACCUMULATOR VARIABLE                                          !   4600      !                                                                               !   4700      LENGTH 254   &   LOCAL STRACC$                                                  !   4800      !                                                                               !   4900      !                                                                               !   5000      ! DECLARE ACCUMULATOR REFERENCES                                                !   5100      !                                                                               !   5200      LENGTH  16.0   &  LOCAL  XACC000F                                               !   5300      !                                                                               !   5400      !                                                                               !   5500      ! DECLARE ARRAY REFERENCES                                                      !   5600      !                                                                               !   5700      LENGTH  16.0   &  LOCAL  XARRAY00                                               !   5800      LENGTH  16.0   &  LOCAL  XARRAY01                                               !   5900      !                                                                               !   6000      !                                                                               !   6100      ! DECLARE NUM FUNCTION REFERENCES                                               !   6200      !                                                                               !   6300      LENGTH 16.8 &  LOCAL XACCNUM0                                                   !   6400      LENGTH 16.0 &  LOCAL XACCNUM1                                                   !   6500      !                                                                               !   6600      0000 FORMAT _                                                                   !   6700         "*    ";ZDATE$;ZEXDATE$;ZLP$;ZPT$;ZNAME$;ZADR1$;ZADR2$;ZCITY$;Z_             !   6800      STATE$;ZZIP$;ZADR3$;ZPHONE$;ZAGED$;ZJULIAN$;ZPCODE$;ZPART$(0001_                !   6900      ),010*003;DSK1$;DSK2$                                                           !   7000      0001 FORMAT _                                                                   !   7100         TKEY$;TLP$;TPT$;TDT$;TNOFL;TEXDATE$;TLPI$                                    !   7200      0002 FORMAT _                                                                   !   7300         (CS)                                                                         !   7400      0003 FORMAT _                                                                   !   7500         (CS);@(015,005);"G/L DRIVER FORMAT LISTING TO BEGIN."                        !   7600      0004 FORMAT _                                                                   !   7700         @(000,007);(BF);(BF);(BF);(BF);(BF);(BF);(BF)                                !   7800      0005 FORMAT _                                                                   !   7900         @(000,007);(BF);@(021,007);"FOR ALL FORMATS? (Y/N)";(TP);"Y";(T_             !   8000      M);@(044,007)                                                                   !   8100      0006 FORMAT _                                                                   !   8200         @(000,007);(BF);@(021,007);"ENTER FORMAT NUMBER RANGE:";@(021,0_             !   8300      09);(SB);"STARTING";(SF);(TP);"   ";(TP);"  ";(SB);"ENDING";(SF_                !   8400      );(TP);"   ";(TP);@(030,009)                                                    !   8500      0007 FORMAT _                                                                   !   8600         @(030,009);BEGIN$;@(043,009)                                                 !   8700      0008 FORMAT _                                                                   !   8800         @(043,009);END$                                                              !   8900      !!!0009 FORMAT _                                                                !   9000      !!!@(017,007);"PARTITION ";PART$;" IS INOPERATIVE.";@(017,008);"RU_             !   9100      !!!N *CONSOLE TO FIND OUT WHY."                                                 !   9200      !!!0010 FORMAT _                                                                !   9300      !!!@(008,025);"PRINTING IN PROGRESS IN BACKGROUND PARTITION ";PART_             !   9400      !!!$                                                                            !   9500      0011 FORMAT _                                                                   !   9600         @(017,024);"FILE ";FILENAME$;" REQUIRED FOR";@(012,025);"G/L DR_             !   9700      IVER FORMAT LISTING CANNOT BE FOUND"                                            !   9800      0012 FORMAT _                                                                   !   9900         @(007,007);"PRINTER IS UNAVAILABLE - (W)AIT, (E)ND, (C)HANGE ?"_             !  10000      ;(TP);"W";(TP);@(058,007)                                                       !  10100      0013 FORMAT _                                                                   !  10200         @(000,007);(BF);@(027,007);"PRINTER";(TP);"   ";(TP);@(035,007)              !  10300      !                                                                               !  10400         FILENAME$ = MULTPLX$                                                         !  10500         CLEARCOMMON                                                                  !  10600         MULTPLX$ = FILENAME$                                                         !  10700         CLEARLOCAL                                                                   !  10800         ERRORTO 1185                                                                 !  10900         ESCAPETO 1195                                                                !  11000         FILENAME$ = "GLDF"                                                           !  11100         OPEN (02) FILENAME$,EXCP=1085                                                !  11200         PRINT (00,0003)                                                              !  11300         STRACC$ = MULTPLX$ + "Z1"                                                    !  11400         FILENAME$ = STRACC$                                                          !  11500         OPEN (07) FILENAME$,EXCP=1085                                                !  11600         INQUIRE (07,0000) KEY ="*"                                                   !  11700         STRACC$ = "*" + TERM$                                                        !  11800         TKEY$ = STRACC$                                                              !  11900         INQUIRE (07,0001) KEY =TKEY$,EXCP=1000                                       !  12000         ZDATE$ = TDT$                                                                !  12100         ZLP$ = TLP$                                                                  !  12200         ZEXDATE$ = TEXDATE$                                                          !  12300      1000                                                                            !  12400         CLOSE (07)                                                                   !  12500         OPEN (01) ZLP$,EXCP=1095                                                     !  12600      1005                                                                            !  12700         PRINT (00,0004)                                                              !  12800      1010                                                                            !  12900         PRINT (00,0005)                                                              !  13000         INPUT (00) OPTION$                                                           !  13100         IF OPTION$ NE "Y" GOTO 1015                                                  !  13200         GOTO 1065                                                                    !  13300      1015                                                                            !  13400         IF OPTION$ EQ "N" GOTO 1020                                                  !  13500         GOTO 1010                                                                    !  13600      1020                                                                            !  13700         PRINT (00,0006)                                                              !  13800         INPUT (00) BEGIN$                                                            !  13900         IF BEGIN$ NE "" GOTO 1025                                                    !  14000         BEGIN$ = "  "                                                                !  14100         GOTO 1035                                                                    !  14200      1025                                                                            !  14300         XACCNUM0 = NUM(BEGIN$,ERR)                                                   !  14400         XACC000F = INT(XACCNUM0) * 100000000                                         !  14500         XACCNUM1 = XACCNUM0 * 100000000                                              !  14600         XACC000F = XACC000F + XACCNUM1                                               !  14700         XACC000F = XACC000F * .00000001                                              !  14800         WORK = XACC000F                                                              !  14900         XACC000F = ERR                                                               !  15000         XACC000F = (XACC000F - 1)                                                    !  15100         IF XACC000F NE 0 GOTO 1030                                                   !  15200         GOTO 1020                                                                    !  15300      1030                                                                            !  15400         STRACC$ = STR(WORK)                                                          !  15500         BEGIN$ = STRACC$                                                             !  15600      1035                                                                            !  15700         PRINT (00,0007)                                                              !  15800         INPUT (00) END$                                                              !  15900         IF END$ NE "" GOTO 1040                                                      !  16000         GOTO 1060                                                                    !  16100      1040                                                                            !  16200         XACCNUM0 = NUM(END$,ERR)                                                     !  16300         XACC000F = INT(XACCNUM0) * 100000000                                         !  16400         XACCNUM1 = XACCNUM0 * 100000000                                              !  16500         XACC000F = XACC000F + XACCNUM1                                               !  16600         XACC000F = XACC000F * .00000001                                              !  16700         WORK = XACC000F                                                              !  16800         XACC000F = WORK                                                              !  16900         XACC000F = (XACC000F - 1)                                                    !  17000         IF XACC000F EQ 0 GOTO 1045                                                   !  17100         IF XACC000F LT 0 GOTO 1050                                                   !  17200      1045                                                                            !  17300         XACC000F = WORK                                                              !  17400         XACC000F = (XACC000F - 999)                                                  !  17500         IF XACC000F LT 0 GOTO 1055                                                   !  17600         IF XACC000F EQ 0 GOTO 1055                                                   !  17700      1050                                                                            !  17800         GOTO 1035                                                                    !  17900      1055                                                                            !  18000         STRACC$ = STR(WORK)                                                          !  18100         END$ = STRACC$                                                               !  18200      1060                                                                            !  18300         PRINT (00,0008)                                                              !  18400      1065                                                                            !  18500         PRINT (00,0004)                                                              !  18600         XACC000F = 1                                                                 !  18700         I = XACC000F                                                                 !  18800      1070                                                                            !  18900      !!!XACC000F = I                                                                 !  19000      !!!XARRAY00 = XACC000F                                                          !  19100      !!!IF ZPART$(XARRAY00) NE "   " GOTO 1075                                       !  19200      !!!GOTO 1080                                                                    !  19300      !!!1075                                                                         !  19400      !!!XACC000F = I                                                                 !  19500      !!!XARRAY01 = XACC000F                                                          !  19600      !!!PART$ = ZPART$(XARRAY01)                                                     !  19700      !!!ACTIVATE PART$,"GFL1",EXCP=1145                                              !  19800      !!!CLOSE (01)                                                                   !  19900      !!!PRINT (00,0002)                                                              !  20000      !!!SEL$ = "B"                                                                   !  20100      !!!PRINT (00,0010)                                                              !  20200      !!!GOTO 1195                                                                    !  20300      !!!1080                                                                         !  20400         RUN "GFL1"                                                                   !  20500      1085                                                                            !  20600         XACC000F = EXCP                                                              !  20700         XACC000F = (XACC000F - 11)                                                   !  20800         IF XACC000F EQ 0 GOTO 1090                                                   !  20900         ERROR                                                                        !  21000      1090                                                                            !  21100         PRINT (00,0002)                                                              !  21200         SEL$ = "B"                                                                   !  21300         PRINT (00,0011)                                                              !  21400         GOTO 1195                                                                    !  21500      1095                                                                            !  21600         XACC000F = EXCP                                                              !  21700         XACC000F = (XACC000F - 31)                                                   !  21800         IF XACC000F EQ 0 GOTO 1100                                                   !  21900         XACC000F = EXCP                                                              !  22000         XACC000F = (XACC000F - 11)                                                   !  22100         IF XACC000F NE 0 GOTO 1105                                                   !  22200      1100                                                                            !  22300         GOTO 1110                                                                    !  22400      1105                                                                            !  22500         XACC000F = EXCP                                                              !  22600         XACC000F = (XACC000F - 30)                                                   !  22700         IF XACC000F EQ 0 GOTO 1110                                                   !  22800         ERROR                                                                        !  22900      1110                                                                            !  23000         IF OPTION$ NE "W" GOTO 1115                                                  !  23100         AGAIN                                                                        !  23200      1115                                                                            !  23300         PRINT (00,0012)                                                              !  23400         INPUT (00) OPTION$                                                           !  23500         XACC000F = POS(OPTION$,"WEC")                                                !  23600         XACC000F = (XACC000F - 0)                                                    !  23700         IF XACC000F NE 0 GOTO 1120                                                   !  23800         GOTO 1095                                                                    !  23900      1120                                                                            !  24000         IF OPTION$ NE "W" GOTO 1125                                                  !  24100         GOTO 1005                                                                    !  24200      1125                                                                            !  24300         IF OPTION$ NE "E" GOTO 1130                                                  !  24400         GOTO 1195                                                                    !  24500      1130                                                                            !  24600         PRINT (00,0013)                                                              !  24700         INPUT (00) ZLP$                                                              !  24800         XACC000F = LEN(ZLP$)                                                         !  24900         XACC000F = (XACC000F - 3)                                                    !  25000         IF XACC000F EQ 0 GOTO 1135                                                   !  25100         GOTO 1130                                                                    !  25200      1135                                                                            !  25300         STRACC$ = SUB(ZLP$,1,2)                                                      !  25400         IF STRACC$ EQ "LP" GOTO 1140                                                 !  25500         GOTO 1130                                                                    !  25600      1140                                                                            !  25700         AGAIN                                                                        !  25800      !!!1145                                                                         !  25900      !!!XACC000F = EXCP                                                              !  26000      !!!XACC000F = (XACC000F - 64)                                                   !  26100      !!!IF XACC000F EQ 0 GOTO 1150                                                   !  26200      !!!XACC000F = EXCP                                                              !  26300      !!!XACC000F = (XACC000F - 65)                                                   !  26400      !!!IF XACC000F EQ 0 GOTO 1150                                                   !  26500      !!!XACC000F = EXCP                                                              !  26600      !!!XACC000F = (XACC000F - 66)                                                   !  26700      !!!IF XACC000F NE 0 GOTO 1155                                                   !  26800      !!!1150                                                                         !  26900      !!!GOTO 1175                                                                    !  27000      !!!1155                                                                         !  27100      !!!XACC000F = EXCP                                                              !  27200      !!!XACC000F = (XACC000F - 67)                                                   !  27300      !!!IF XACC000F EQ 0 GOTO 1160                                                   !  27400      !!!XACC000F = EXCP                                                              !  27500      !!!XACC000F = (XACC000F - 69)                                                   !  27600      !!!IF XACC000F NE 0 GOTO 1165                                                   !  27700      !!!1160                                                                         !  27800      !!!GOTO 1170                                                                    !  27900      !!!1165                                                                         !  28000      !!!ERROR                                                                        !  28100      !!!1170                                                                         !  28200      !!!FOR LOOP = 1 TO 30                                                           !  28300      !!!PRINT (00,0009)                                                              !  28400      !!!NEXT LOOP                                                                    !  28500      !!!1175                                                                         !  28600      !!!XACC000F = I                                                                 !  28700      !!!XACC000F = (XACC000F - 10)                                                   !  28800      !!!IF XACC000F NE 0 GOTO 1180                                                   !  28900      !!!GOTO 1080                                                                    !  29000      !!!1180                                                                         !  29100      !!!XACC000F = I                                                                 !  29200      !!!XACC000F = (XACC000F + 1)                                                    !  29300      !!!I = XACC000F                                                                 !  29400      !!!GOTO 1070                                                                    !  29500      1185                                                                            !  29600         ERRORTO 1185                                                                 !  29700         XACC000F = EXCP                                                              !  29800         XACC000F = (XACC000F - 33)                                                   !  29900         IF XACC000F NE 0 GOTO 1190                                                   !  30000         AGAIN                                                                        !  30100      1190                                                                            !  30200         ERROR                                                                        !  30300      1195                                                                            !  30400         RUN "GLD"                                                                    !  30500         END                                                                          !  30600      !                                                                               !  30700      !~~~~TRACE OFF                                                                  !  20410      !~~~~trace on                                                                   !  10410      !~~~~trace PRINT BEGIN$                                                         !  13910      !~~~~trace PRINT MBMSG$                                                         !  14920           LET MBMSG$ = STR(XACCNUM0) + STR(XACC000F) + STR(XACCNUM1) + STR(WORK)     !  14910           INCLUDE '^MSGBOX.INC'                                                      !   4410           MSGBOX(MBMSG$)                                                             !  14930