----------------------------------------------------------- IB Compile of -UOPT, CHI to ~UOPT, CHI Version: 0 on 10/26/10 at 12:45:34 1000 -UOPT 0000 !S -UOPT,CHI !! 2000 -UOPT 0000 !O ~UOPT,CHI !! 3000 -UOPT 0000 !L LPX,S !! 4000 -UOPT 0000 !R CED !! 4020 -UOPT 0000 !* !! 4040 -UOPT 0000 !* This source code, documentation, and generated object code has been !! 4060 -UOPT 0000 !* designed by, developed by, and is a software product of MANAGEMENT !! 4080 -UOPT 0000 !* SOFTWARE SOLUTIONS, INC. The exclusive right to display, modify, !! 4100 -UOPT 0000 !* or distribute any part of this product is maintained solely by !! 4120 -UOPT 0000 !* MANAGEMENT SOFTWARE SOLUTIONS, INC. and/or its successors. !! 4140 -UOPT 0000 !* !! 4160 -UOPT 0000 !* This software product is protected by United States copyright laws. !! 4180 -UOPT 0000 !* It is unlawful to use, reproduce, modify, disclose, distribute, !! 4200 -UOPT 0000 !* reverse engineer, decompile or disassemble any part of this !! 4220 -UOPT 0000 !* software product without legal consent and authorization from !! 4240 -UOPT 0000 !* MANAGEMENT SOFTWARE SOLUTIONS, INC. Any such action will be !! 4260 -UOPT 0000 !* considered theft and a violation of copyright. Such activity will !! 4280 -UOPT 0000 !* be agressively pursued and punishable by Federal law. !! 4300 -UOPT 0000 !* !! 4320 -UOPT 0000 !====================================================================! !! 4340 -UOPT 0000 ! TITLE: PROMPT OPTION BLOCK MAINTENANCE ! !! 4360 -UOPT 0000 ! SOURCE: -UOPT ! !! 4380 -UOPT 0000 ! OBJECT: ~UOPT ! !! 4400 -UOPT 0000 ! REVISED: JUN 29/00 RHN ! !! 4420 -UOPT 0000 !====================================================================! !! 4440 -UOPT 0000 ! !! 4460 -UOPT 0000 !====================================================================! !! 4480 -UOPT 0000 ! VARIABLE DEFINITIONS ! !! 4500 -UOPT 0000 !====================================================================! !! 4520 -UOPT 0000 ! !! 34000 -UOPT 0000 LENGTH 2.0 & LOCAL CURR !! 35000 -UOPT 0000 LENGTH 1 & LOCAL AFLAG$ !! 36000 -UOPT 0000 LENGTH 16 & LOCAL WDESC$ !! 37000 -UOPT 0000 ! !! 38000 -UOPT 0000 USE "(STD ",," 10000" !! 10000 (STD 0000 !====================================================================! !! 10020 (STD 0000 ! VARIABLE DEFINITIONS ! !! 10040 (STD 0000 !====================================================================! !! 10060 (STD 0000 ! !! 10080 (STD 0000 LENGTH 1 & LOCAL BTROW$, BLCOL$, BBROW$, BRCOL$, BSTAT$ !! 10100 (STD 0000 LENGTH 2 & LOCAL F4$, F5$, F6$, F7$, F8$ !! 10120 (STD 0000 LENGTH 2 & LOCAL PGUP$, PGDN$ !! 10140 (STD 0000 LENGTH 3 & LOCAL BC$, ZBRANCH$ !! 10160 (STD 0000 LENGTH 8 & LOCAL EXIT$ !! 10180 (STD 0000 LENGTH 10 & LOCAL AN$, OPT$ !! 10185 (STD 0000 LENGTH 16 & LOCAL ZUSERID$ !! 10200 (STD 0000 LENGTH 28 & LOCAL PROG$ !! 10220 (STD 0000 LENGTH 30 & LOCAL PAD$ !! 10240 (STD 0000 LENGTH 40 & LOCAL WCMSG$ !! 10260 (STD 0000 LENGTH 52 & LOCAL BP$ !! 10280 (STD 0000 LENGTH 80 & LOCAL TLINE$, FLINE$ !! 10300 (STD 0000 LENGTH 132 & LOCAL ELINE$, DLINE$ !! 10320 (STD 0000 LENGTH 1.0 & LOCAL ERR, WIN, CALLED, EOJ !! 10340 (STD 0000 LENGTH 1.0 & LOCAL BEF2, BEF3, BEF3W, BWERR !! 10360 (STD 0000 LENGTH 2.0 & LOCAL BTROW, BBROW, BLCOL, BRCOL, BSIZE, BWIDTH !! 10380 (STD 0000 LENGTH 2.0 & LOCAL X, Y, Y1, Y2, L1, L2, L3, L4, MAXL !! 10400 (STD 0000 LENGTH 2.0 & LOCAL PNL, CNTR, FLDFR, FLDTH !! 10420 (STD 0000 LENGTH 2.0 & LOCAL LINE, LINES !! 10440 (STD 0000 LENGTH 3.0 & LOCAL PAGE, BLOOP, COMMA !! 10460 (STD 0000 ! !! ----------------------------------------------------------- 10480 (STD 0000 USE "(DTTM ",," 1000" !! SYSTEM DATE & TIME FORMATTING !! 1000 (DTTM 0000 !====================================================================! !! 1020 (DTTM 0000 ! VARIABLE DEFINITIONS ! !! 1040 (DTTM 0000 !====================================================================! !! 1060 (DTTM 0000 ! !! 1080 (DTTM 0000 LENGTH 2 & LOCAL CE$, YR$, MO$, DY$, HOUR$, AMPM$ !! 1100 (DTTM 0000 LENGTH 3 & LOCAL CLOCK$, MINUTE$ !! 1120 (DTTM 0000 LENGTH 5 & LOCAL SYSMIL$ !! 1140 (DTTM 0000 LENGTH 6 & LOCAL SYSDTN$ !! 1160 (DTTM 0000 LENGTH 7 & LOCAL SYSTM$ !! 1180 (DTTM 0000 LENGTH 8 & LOCAL SYSDT$, SYSDCN$ !! 1200 (DTTM 0000 LENGTH 10 & LOCAL SYSDC$ !! 1220 (DTTM 0000 LENGTH 2.0 & LOCAL HOUR !! 1225 (DTTM 0000 LENGTH 3.0 & LOCAL DY, MO, YR !! 1240 (DTTM 0000 ! !! 1260 (DTTM 0000 ENDUSE !! 10500 (STD 0000 ! !! 10520 (STD 0000 NUL: !! NULL RECORD FORMAT !! 10540 (STD 0000 FORMAT "" !! 10560 (STD 0005 ! !! 10580 (STD 0005 ENDUSE !! 38100 -UOPT 0005 USE "(XTERM ",," 1000" !! 1000 (XTERM 0005 !====================================================================! !! 1020 (XTERM 0005 ! TITLE: (XTERM ! !! 1040 (XTERM 0005 ! CALL TAG: NONE ! !! 1060 (XTERM 0005 ! DESCRIPTION: DETERMINE MASTER TERM RECORD FROM PARTITION ! !! 1080 (XTERM 0005 ! REVISED: JUN 16/00 RHN ! !! 1280 (XTERM 0005 !====================================================================! !! 1300 (XTERM 0005 ! !! 1320 (XTERM 0005 !====================================================================! !! 1340 (XTERM 0005 ! VARIABLE DEFINITIONS ! !! 1360 (XTERM 0005 !====================================================================! !! 1380 (XTERM 0005 ! !! 1400 (XTERM 0005 LENGTH 3 & LOCAL XPART$, ZTERM$ !! 1420 (XTERM 0005 LENGTH 1.0 & LOCAL X10 !! 1425 (XTERM 0005 LENGTH 4.0 & LOCAL XPART, XPBEG, XPMAX !! 1440 (XTERM 0005 ! !! 1445 (XTERM 0005 USE "(NODE ",," 10000" ! ZNN NETWORK NODE TABLE !! 10000 (NODE 0005 !====================================================================! !! 10020 (NODE 0005 ! NETWORK NODE TABLE DEFINITIONS ! !! 10040 (NODE 0005 !====================================================================! !! 10060 (NODE 0005 ! FILE: NNPARTF JUN 16/00 RHN ! !! 10080 (NODE 0005 ! TYPE: NI ! !! 10100 (NODE 0005 ! RECL: 300 ! !! 10120 (NODE 0005 ! KEYL: 16 ! !! 10140 (NODE 0005 ! KEY: ZNODE$ ! !! 10160 (NODE 0005 !--------------------------------------------------------------------! !! 10180 (NODE 0005 ! !! 10200 (NODE 0005 !--------------------------------------------------------------------! !! 10220 (NODE 0005 ! VARIABLE DEFINITIONS ! !! 10240 (NODE 0005 !--------------------------------------------------------------------! !! 10260 (NODE 0005 LENGTH 1 & LOCAL ZNCTYP$ !! 10280 (NODE 0005 LENGTH 16 & LOCAL ZNODE$ !! 10300 (NODE 0005 LENGTH 3.0 & LOCAL ZNT1ST, ZNTTOT !! 10320 (NODE 0005 LENGTH 4.0 & LOCAL ZNP1ST, ZNPTOT !! 10340 (NODE 0005 !--------------------------------------------------------------------! !! 10360 (NODE 0005 ! FIELD DEFINTIONS ! !! 10380 (NODE 0005 !--------------------------------------------------------------------! !! 10400 (NODE 0005 ! !! 10420 (NODE 0005 ZNN: !! 10440 (NODE 0005 FORMAT _ ! FIELD DESCRIPTION LEN POS !! ----------------------------------------------------------- 10460 (NODE 0005 _!============================================! !! 10480 (NODE 0005 ZNODE$;_ !*NODE NAME 16 0 !! 10500 (NODE 0009 _! .. SUB(DSTAT("X00"),33,16) !! 10520 (NODE 0009 ZNP1ST;_ ! 1ST PARTITION # 4.0 16 !! 10540 (NODE 000E ZNPTOT;_ ! # OF PARTITIONS 4.0 22 !! 10560 (NODE 0013 ZNT1ST;_ ! 1ST TERMINAL # 3.0 28 !! 10580 (NODE 0018 ZNTTOT;_ ! # OF TERMINALS 3.0 33 !! 10600 (NODE 001D ZNCTYP$ ! CONSOLE TYPE 1 38 !! 10620 (NODE 0022 !--------------------------------------------------------------------! !! 10640 (NODE 0022 ENDUSE !! 1447 (XTERM 0022 ! !! 1460 (XTERM 0022 ENDUSE !! 39000 -UOPT 0022 ! !! 40000 -UOPT 0022 !====================================================================! !! 41000 -UOPT 0022 ! FILE DEFINITIONS ! !! 42000 -UOPT 0022 !====================================================================! !! 43000 -UOPT 0022 ! !! 43020 -UOPT 0022 SET Z1 = 49 !! 43040 -UOPT 0022 ! !! 44000 -UOPT 0022 USE "(Z1" !! 1000 (Z1 0022 !* !! 1100 (Z1 0022 !* This source code, documentation, and generated object code has been !! 1200 (Z1 0022 !* designed by, developed by, and is a software product of MANAGEMENT !! 1300 (Z1 0022 !* SOFTWARE SOLUTIONS, INC. The exclusive right to display, modify, !! 1400 (Z1 0022 !* or distribute any part of this product is maintained solely by !! 1500 (Z1 0022 !* MANAGEMENT SOFTWARE SOLUTIONS, INC. and/or its successors. !! 1600 (Z1 0022 !* !! 1700 (Z1 0022 !* This software product is protected by United States copyright laws. !! 1800 (Z1 0022 !* It is unlawful to use, reproduce, modify, disclose, distribute, !! 1900 (Z1 0022 !* reverse engineer, decompile or disassemble any part of this !! 2000 (Z1 0022 !* software product without legal consent and authorization from !! 2100 (Z1 0022 !* MANAGEMENT SOFTWARE SOLUTIONS, INC. Any such action will be !! 2200 (Z1 0022 !* considered theft and a violation of copyright. Such activity will !! 2300 (Z1 0022 !* be agressively pursued and punishable by Federal law. !! 2400 (Z1 0022 !* !! 2500 (Z1 0022 !====================================================================! !! 2600 (Z1 0022 ! START DATAFILE TYPE LEN KEY FORMAT DESCRIPTION ! !! 2700 (Z1 0022 !====================================================================! !! 2800 (Z1 0022 ! 10000 &Z1 NI 128 16 ZTRM TERMINAL/PARTITION CONTROLS !! 2900 (Z1 0022 ! 30000 &Z1 NI 128 16 ZINV INVENTORY CONTROLS !! 3000 (Z1 0022 ! 35000 &Z1 NI 128 16 ZWO W.O. CONTROLS !! 10000 (Z1 0022 !====================================================================! !! 10020 (Z1 0022 ! TERMINAL/PARTITION CONTROLS ! !! 10040 (Z1 0022 !====================================================================! !! 10060 (Z1 0022 ! FILE: &Z1 JUL 23/00 RHN ! !! 10080 (Z1 0022 ! TYPE: NI ! !! 10100 (Z1 0022 ! RECL: 128 ! !! 10120 (Z1 0022 ! KEYL: 16 ! !! 10140 (Z1 0022 ! KEY: Z1K$ ! !! 10145 (Z1 0022 ! "~" + TERM$ ! !! 10160 (Z1 0022 !--------------------------------------------------------------------! !! 10180 (Z1 0022 ! !! 10200 (Z1 0022 !--------------------------------------------------------------------! !! 10220 (Z1 0022 ! VARIABLE DEFINITIONS ! !! 10240 (Z1 0022 !--------------------------------------------------------------------! !! 10280 (Z1 0022 LENGTH 1 & LOCAL ZTCONS$, ZEDIT$, ZEMOD$, ZGRFX$ !! 10300 (Z1 0022 LENGTH 1 & LOCAL ZTRACK$, ZC$(10), ZCW$(10), ZSKT$ !! 10320 (Z1 0022 LENGTH 3 & LOCAL ZTERM$, ZLP$, ZEMP$, ZUSER$, ZPART$(10) !! 10320 (Z1 ***** VARIABLE 'ZTERM$ ' HAS BEEN PREVIOUSLY DECLARED ***** !! 10340 (Z1 0022 LENGTH 3 & LOCAL ZDSKW$, ZDSKS$, ZDSKL$ !! 10360 (Z1 0022 LENGTH 16 & LOCAL ZBGSLV$ !! ----------------------------------------------------------- 10380 (Z1 0022 LENGTH 25 & LOCAL ZNAME$ !! 10390 (Z1 0022 LENGTH 2.0 & LOCAL ZPAUSE !! 10400 (Z1 0022 !--------------------------------------------------------------------! !! 10420 (Z1 0022 ! WORKING VARIABLES ! !! 10440 (Z1 0022 !--------------------------------------------------------------------! !! 10460 (Z1 0022 LENGTH 16 & LOCAL Z1K$ !! 10480 (Z1 0022 !--------------------------------------------------------------------! !! 10500 (Z1 0022 ! FIELD DEFINTIONS ! !! 10520 (Z1 0022 !--------------------------------------------------------------------! !! 10540 (Z1 0022 ! !! 10560 (Z1 0022 ZTRM: !! 10580 (Z1 0022 FORMAT _ ! FIELD DESCRIPTION LEN POS !! 10600 (Z1 0022 _!============================================! !! 10620 (Z1 0022 ZTCONS$;_ !*RECORD CONSTANT "~" 1 0 !! 10640 (Z1 0026 ZTERM$;_ !*TERMINAL # 3 1 !! 10660 (Z1 002A ZNAME$;_ ! COMPANY NAME 25 4 !! 10680 (Z1 002E ZLP$;_ ! DEFAULT PRINTER 3 29 !! 10700 (Z1 0032 ZDSKW$;_ ! WORK DIRECTORY 3 32 !! 10720 (Z1 0036 ZDSKS$;_ ! SMALL FILE DIRECTORY 3 35 !! 10740 (Z1 003A ZDSKL$;_ ! LARGE FILE DIRECTORY 3 38 !! 10760 (Z1 003E _!--------------------------------------------! !! 10780 (Z1 003E _! SCREEN COLOR SETTINGS (ASCII) ! !! 10800 (Z1 003E _!--------------------------------------------! !! 10820 (Z1 003E _! (1) ... FOREGROUND !! 10840 (Z1 003E _! (2) ... BACKGROUND !! 10860 (Z1 003E _! (3) ... SPECIAL (HIDDEN) !! 10880 (Z1 003E _! (4) ... WINDOW BORDER !! 10900 (Z1 003E _! (5) ... FIELD ENTRY !! 10920 (Z1 003E _! (6) ... TITLES - FOREGROUND !! 10940 (Z1 003E _! (7) ... ERROR MESSAGES - FOREGROUND !! 10960 (Z1 003E _! (8) ... SYSTEM MESSAGES - FOREGROUND !! 10980 (Z1 003E _! (9) ... HIGHLIGHT TEXT #1 - FOREGROUND !! 11000 (Z1 003E _! (10) ... HIGHLIGHT TEXT #2 - FOREGROUND !! 11020 (Z1 003E _!--------------------------------------------! !! 11040 (Z1 003E ZC$(1),10*1;_ ! STANDARD SCREEN COLORS 1 41 !! 11060 (Z1 0048 ZCW$(1),10*1;_ ! WINDOW SCREEN COLORS 1 51 !! 11080 (Z1 0052 _!--------------------------------------------! !! 11100 (Z1 0052 _! USER/SECURITY INFORMATION ! !! 11120 (Z1 0052 _!--------------------------------------------! !! 11140 (Z1 0052 ZUSER$;_ ! PRIMARY USER - Z2 "EMP" 3 61 !! 11160 (Z1 0056 _! .. &Z2 - "EMP" !! 11180 (Z1 0056 ZEMP$;_ ! CURRENT USER - Z2 "EMP" 3 64 !! 11200 (Z1 005A _! .. &Z2 - "EMP" !! 11220 (Z1 005A ZSKT$;_ ! SINGLE KEYSTROKE TRANSMIT? (Y/N) 1 67 !! 11240 (Z1 005E ZTRACK$;_ ! SECURITY TRACKING? (Y/N) 1 68 !! 11260 (Z1 0062 ZEDIT$;_ ! EDIT CAPABILITY? (Y/N) 1 69 !! 11280 (Z1 0066 ZEMOD$;_ ! MODIFY EMP INITIALS? (Y/N) 1 70 !! 11300 (Z1 006A ZPART$(1),10*3;_ ! BACKGROUND PARTITIONS 3 71 !! 11320 (Z1 0074 ZPAUSE;_ ! SCROLL PAUSE LENGTH (0-18) 2.0 101 !! 11340 (Z1 0079 ZBGSLV$;_ ! BACKGROUND SLAVE NODE NAME 16 105 !! 11360 (Z1 007D ZGRFX$ ! GRAPHICS MODULE? (Y/ ) 1 121 !! 11380 (Z1 0082 !--------------------------------------------------------------------! !! 11400 (Z1 0082 ENDUSE !! 45000 -UOPT 0082 USE "(ZOPT ",," 1000" !! 1000 (ZOPT 0082 !====================================================================! !! 1005 (ZOPT 0082 ! PROGRAM PROMPT OPTIONS ! !! 1010 (ZOPT 0082 !====================================================================! !! 1015 (ZOPT 0082 ! FILE: &ZOPT JUN 18/00 RHN ! !! 1020 (ZOPT 0082 ! TYPE: NI ! !! 1025 (ZOPT 0082 ! RECL: 320 ! !! 1030 (ZOPT 0082 ! KEYL: 9 ! !! ----------------------------------------------------------- 1035 (ZOPT 0082 ! KEY: ZOPTK$ ! !! 1036 (ZOPT 0082 ! ZPRG$ + ZPRGSUB$ ! !! 1040 (ZOPT 0082 !--------------------------------------------------------------------! !! 1045 (ZOPT 0082 ! !! 1050 (ZOPT 0082 !--------------------------------------------------------------------! !! 1055 (ZOPT 0082 ! VARIABLE DEFINITIONS ! !! 1060 (ZOPT 0082 !--------------------------------------------------------------------! !! 1300 (ZOPT 0082 LENGTH 1 & LOCAL ZPRGSUB$ !! 1320 (ZOPT 0082 LENGTH 2 & LOCAL ZOPT$(16) !! 1340 (ZOPT 0082 LENGTH 8 & LOCAL ZPRG$ !! 1380 (ZOPT 0082 LENGTH 16 & LOCAL ZOPTDSC$(16) !! 1465 (ZOPT 0082 !--------------------------------------------------------------------! !! 1470 (ZOPT 0082 ! WORKING VARIABLES ! !! 1475 (ZOPT 0082 !--------------------------------------------------------------------! !! 1479 (ZOPT 0082 LENGTH 9 & LOCAL ZOPTK$ !! 1484 (ZOPT 0082 LENGTH 22 & LOCAL ZSEL$ !! 1489 (ZOPT 0082 LENGTH 1.0 & LOCAL OPTLEN !! 1494 (ZOPT 0082 LENGTH 2.0 & LOCAL OPTNUM, HY, HBWIDTH !! 1499 (ZOPT 0082 LENGTH 2.0 & LOCAL HBLCOL, HBRCOL, HBTROW, HBBROW !! 1520 (ZOPT 0082 ! !! 1524 (ZOPT 0082 !--------------------------------------------------------------------! !! 1528 (ZOPT 0082 ! FIELD DEFINTIONS ! !! 1532 (ZOPT 0082 !--------------------------------------------------------------------! !! 1536 (ZOPT 0082 ! !! 1540 (ZOPT 0082 ZOPT: !! 1544 (ZOPT 0082 FORMAT _ ! FIELD DESCRIPTION LEN POS !! 1548 (ZOPT 0082 _!============================================! !! 1560 (ZOPT 0082 ZPRG$;_ !*PROGRAM ID 8 0 !! 1580 (ZOPT 0086 ZPRGSUB$;_ !*PROGRAM SUB-SECTION ID 1 8 !! 1600 (ZOPT 008A ZOPT$(1),16*2;_ ! OPTION CHOICE 2 9 !! 1620 (ZOPT 0094 ZOPTDSC$(1),16*16 ! OPTION DESCRIPTION 16 41 !! 1640 (ZOPT 009F !--------------------------------------------------------------------! !! 1680 (ZOPT 009F ENDUSE !! 47000 -UOPT 009F ! !! 48000 -UOPT 009F !====================================================================! !! 49000 -UOPT 009F ! DISPLAY FORMATS ! !! 50000 -UOPT 009F !====================================================================! !! 51000 -UOPT 009F ! !! 52000 -UOPT 009F USE "(STD ",," 20000" !! 20000 (STD 009F !====================================================================! !! 20020 (STD 009F ! DISPLAY FORMATS ! !! 20040 (STD 009F !====================================================================! !! 20060 (STD 009F ! !! 20080 (STD 009F C: !! SET SCREEN COLORS (STANDARD PANE) !! 20100 (STD 009F FORMAT _ !! 20120 (STD 009F "@0E0E0E@";ZC$(1);ZC$(2);ZC$(3);ZC$(4);ZC$(5) !! 20140 (STD 00B8 ! !! 20160 (STD 00B8 CW: !! SET SCREEN COLORS (WINDOWED PANE) !! 20180 (STD 00B8 FORMAT _ !! 20200 (STD 00B8 "@0E0E0E@";ZCW$(1);ZCW$(2);ZCW$(3);ZCW$(4);ZCW$(5) !! 20220 (STD 00D1 ! !! 20240 (STD 00D1 HDR: !! CREATE TOP OF SCREEN TEMPLATE !! 20260 (STD 00D1 FORMAT _ !! 20280 (STD 00D1 (CS);(CPL80);_ !! 20300 (STD 00D7 @(00,00);(SB);ZNAME$;(SF);"@B3@";BC$;ZC$(6);PROG$;(SF);"@B3@";_ !! 20320 (STD 00FD @(55,00);(SB);" ";SYSDT$;"@B3@";SYSTM$,6;"@B3@";_ !! 20340 (STD 011B TERM$;"@B3@";PARTITION$;" ";_ !! 20360 (STD 012B @(00,01);(SF);FLINE$;_ !! 20380 (STD 0137 @(25,01);"@CF@";_ !! 20400 (STD 0140 @(54,01);"@CF@" !! 20420 (STD 014A ! !! ----------------------------------------------------------- 20440 (STD 014A WE07: !! OPEN WINDOW - ERROR 07 !! 20460 (STD 014A FORMAT _ !! 20480 (STD 014A "@0E0D0009100C42@" !! 20500 (STD 014F ! !! 20520 (STD 014F ME07: !! WINDOW MESSAGE - ERROR 07 !! 20540 (STD 014F FORMAT _ !! 20560 (STD 014F (CS);(CPL80);(RB);BC$;ZC$(7);_ !! 20580 (STD 0160 @(01,00);"Data file unavailable for lock or unlock.";_ !! 20600 (STD 0169 @(01,01);"Check other active users for conflict. TAB:";_ !! 20620 (STD 0172 (TP);(SF);(MC);" ";(TP);(RC) !! 20640 (STD 0186 ! !! 20660 (STD 0186 WE11: !! OPEN WINDOW - ERROR 11 !! 20680 (STD 0186 FORMAT _ !! 20700 (STD 0186 "@0E0D00090F0C37@" !! 20720 (STD 018B ! !! 20740 (STD 018B ME11: !! WINDOW MESSAGE - ERROR 11 !! 20760 (STD 018B FORMAT _ !! 20780 (STD 018B (CS);(CPL80);(RB);BC$;ZC$(7);_ !! 20800 (STD 019C @(01,00);"Required files cannot be found.";_ !! 20820 (STD 01A5 @(01,01);"Contact programming support. TAB:";_ !! 20840 (STD 01AE (TP);(SF);(MC);" ";(TP);(RC) !! 20860 (STD 01C2 ! !! 20880 (STD 01C2 WE50: !! OPEN WINDOW - ERROR 50 !! 20900 (STD 01C2 FORMAT _ !! 20920 (STD 01C2 "@0E0D00090F0C3E@" !! 20940 (STD 01C7 ! !! 20960 (STD 01C7 ME50: !! WINDOW MESSAGE - ERROR 50 !! 20980 (STD 01C7 FORMAT _ !! 21000 (STD 01C7 (CS);(CPL80);(RB);BC$;ZC$(7);_ !! 21020 (STD 01D8 @(01,00);"The number of data elements has exceeded";_ !! 21040 (STD 01E1 @(01,01);"the limit of an internal data array. TAB:";_ !! 21060 (STD 01EA (TP);(SF);(MC);" ";(TP);(RC) !! 21080 (STD 01FE ! !! 21100 (STD 01FE WEF3: !! OPEN WINDOW - F3 ABORT !! 21120 (STD 01FE FORMAT _ !! 21140 (STD 01FE "@0E0D0009190B36@" !! 21160 (STD 0203 ! !! 21180 (STD 0203 MEF3: !! WINDOW MESSAGE - F3 ABORT !! 21200 (STD 0203 FORMAT _ !! 21220 (STD 0203 (CS);(CPL80);(RB);BC$;ZC$(7);_ !! 21240 (STD 0214 @(01,00);"Abort program? (Y/N):";_ !! 21260 (STD 021D (TP);(SF);(MC);" ";(TP);(RC) !! 21280 (STD 0231 ! !! 21300 (STD 0231 L1: !! CLEAR LAST DISPLAY LINE !! 21320 (STD 0231 FORMAT _ !! 21340 (STD 0231 @(00,L1);(SF);(BF) !! 21360 (STD 023E ! !! 21380 (STD 023E L2: !! CLEAR LAST (2) DISPLAY LINES !! 21400 (STD 023E FORMAT _ !! 21420 (STD 023E @(00,L2);(SF);(BF);(BF) !! 21440 (STD 024E ! !! 21460 (STD 024E MWC: !! WRITE CONTROL LINE MESSAGE !! 21480 (STD 024E FORMAT _ !! 21500 (STD 024E BC$;ZC$(1);(WC);(BF);BC$;ZC$(8);(WC);" ";WCMSG$;(SF) !! 21520 (STD 0273 ! !! 21540 (STD 0273 WOP: !! OPEN WINDOW - VARIABLE SIZE !! 21560 (STD 0273 FORMAT _ !! 21580 (STD 0273 "@0E0D00@";BTROW$;BLCOL$;BBROW$;BRCOL$ !! 21600 (STD 0288 ! !! 21620 (STD 0288 WCL: !! CLOSE WINDOW !! 21640 (STD 0288 FORMAT _ !! ----------------------------------------------------------- 21660 (STD 0288 "@0E0D01@" !! 21680 (STD 028D ! !! 21700 (STD 028D XY: !! CURSOR POSITIONING !! 21720 (STD 028D FORMAT _ !! 21740 (STD 028D @(X,Y) !! 21760 (STD 0295 ! !! 21780 (STD 0295 PROMPT: !! PROGRAM OPTION PROMPT !! 21800 (STD 0295 FORMAT _ !! 21820 (STD 0295 @(00,L2);TLINE$,BWIDTH;_ !! 21840 (STD 02A2 @(01,L1);"Command:";(TP);(MC);"",10;(TP);BP$;(RC) !! 21860 (STD 02C3 ! !! 21880 (STD 02C3 CLR02: !! CLEAR SCREEN DISPLAY FROM LINE 2 !! 21900 (STD 02C3 FORMAT _ !! 21920 (STD 02C3 @(00,02);(BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);_ !! 21940 (STD 02E9 (BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF);(BF) !! 21960 (STD 030B ! !! 21965 (STD 030B CLRY: !! 21967 (STD 030B FORMAT _ !! 21969 (STD 030B @(00,Y);(BF) !! 21971 (STD 0315 ! !! 21980 (STD 0315 SKT: !! SINGLE KEY TRANSMIT (ON) !! 22000 (STD 0315 FORMAT _ !! 22020 (STD 0315 "@040002@" !! 22040 (STD 031A ! !! 22060 (STD 031A SCP: !! PARTIAL KEY SCAN CODES (ON) !! 22080 (STD 031A FORMAT _ !! 22100 (STD 031A "@0E0007@" !! 22120 (STD 031F ! !! 22140 (STD 031F SCO: !! PARTIAL KEY SCAN CODES (OFF) !! 22160 (STD 031F FORMAT _ !! 22180 (STD 031F "@0E0008@" !! 22200 (STD 0324 ! !! 22220 (STD 0324 ENDUSE !! 53000 -UOPT 0324 ! !! 54000 -UOPT 0324 3010 FORMAT _ !! 55000 -UOPT 0324 @(0,2);(SB);" PROGRAM ";(SF);(TP);"",8;(TP);_ !! 56000 -UOPT 033F @(19,2);(SB);" SECTION ";(SF);(TP);" ";(TP);_ !! 57000 -UOPT 0358 @(0,3);FLINE$;_ !! 58000 -UOPT 0361 @(0,4);(SB);" FIELD OPTION DESCRIPTION ";_ !! 59000 -UOPT 036D @(0,5);" 1 ";(SF);_ !! 60000 -UOPT 0379 @(9,5);(TP);" ",2;(TP);_ !! 61000 -UOPT 038A @(15,5);(TP);" ",16;(TP);(SB);_ !! 62000 -UOPT 039E @(0,6);" 2 ";(SF);_ !! 63000 -UOPT 03AA @(9,6);(TP);" ",2;(TP);_ !! 64000 -UOPT 03BB @(15,6);(TP);" ",16;(TP);(SB);_ !! 65000 -UOPT 03CF @(0,7);" 3 ";(SF);_ !! 66000 -UOPT 03DB @(9,7);(TP);" ",2;(TP);_ !! 67000 -UOPT 03EC @(15,7);(TP);" ",16;(TP);(SB);_ !! 68000 -UOPT 0400 @(0,8);" 4 ";(SF);_ !! 69000 -UOPT 040C @(9,8);(TP);" ",2;(TP);_ !! 70000 -UOPT 041D @(15,8);(TP);" ",16;(TP);(SB);_ !! 71000 -UOPT 0431 @(0,9);" 5 ";(SF);_ !! 72000 -UOPT 043D @(9,9);(TP);" ",2;(TP);_ !! 73000 -UOPT 044E @(15,9);(TP);" ",16;(TP);(SB);_ !! 74000 -UOPT 0462 @(0,10);" 6 ";(SF);_ !! 75000 -UOPT 046E @(9,10);(TP);" ",2;(TP);_ !! 76000 -UOPT 047F @(15,10);(TP);" ",16;(TP);(SB);_ !! 77000 -UOPT 0493 @(0,11);" 7 ";(SF);_ !! 78000 -UOPT 049F @(9,11);(TP);" ",2;(TP);_ !! 79000 -UOPT 04B0 @(15,11);(TP);" ",16;(TP);(SB);_ !! 80000 -UOPT 04C4 @(0,12);" 8 ";(SF);_ !! ----------------------------------------------------------- 81000 -UOPT 04D0 @(9,12);(TP);" ",2;(TP);_ !! 82000 -UOPT 04E1 @(15,12);(TP);" ",16;(TP);(SB);_ !! 83000 -UOPT 04F5 @(0,13);" 9 ";(SF);_ !! 84000 -UOPT 0501 @(9,13);(TP);" ",2;(TP);_ !! 85000 -UOPT 0512 @(15,13);(TP);" ",16;(TP);(SB);_ !! 86000 -UOPT 0526 @(0,14);" 10 ";(SF);_ !! 87000 -UOPT 0532 @(9,14);(TP);" ",2;(TP);_ !! 88000 -UOPT 0543 @(15,14);(TP);" ",16;(TP);(SB);_ !! 89000 -UOPT 0557 @(0,15);" 11 ";(SF);_ !! 90000 -UOPT 0563 @(9,15);(TP);" ",2;(TP);_ !! 91000 -UOPT 0574 @(15,15);(TP);" ",16;(TP);(SB);_ !! 92000 -UOPT 0588 @(0,16);" 12 ";(SF);_ !! 93000 -UOPT 0594 @(9,16);(TP);" ",2;(TP);_ !! 94000 -UOPT 05A5 @(15,16);(TP);" ",16;(TP);(SB);_ !! 95000 -UOPT 05B9 @(0,17);" 13 ";(SF);_ !! 96000 -UOPT 05C5 @(9,17);(TP);" ",2;(TP);_ !! 97000 -UOPT 05D6 @(15,17);(TP);" ",16;(TP);(SB);_ !! 98000 -UOPT 05EA @(0,18);" 14 ";(SF);_ !! 99000 -UOPT 05F6 @(9,18);(TP);" ",2;(TP);_ !! 100000 -UOPT 0607 @(15,18);(TP);" ",16;(TP);(SB);_ !! 101000 -UOPT 061B @(0,19);" 15 ";(SF);_ !! 102000 -UOPT 0627 @(9,19);(TP);" ",2;(TP);_ !! 103000 -UOPT 0638 @(15,19);(TP);" ",16;(TP);(SB);_ !! 104000 -UOPT 064C @(0,20);" 16 ";(SF);_ !! 105000 -UOPT 0658 @(9,20);(TP);" ",2;(TP);_ !! 106000 -UOPT 0669 @(15,20);(TP);" ",16;(TP) !! 107000 -UOPT 067B ! !! 108000 -UOPT 067B 3020 FORMAT _ !! 109000 -UOPT 067B @(10,2);ZPRG$;_ !! 110000 -UOPT 0684 @(29,2);ZPRGSUB$;_ !! 111000 -UOPT 068D @(10,5);ZOPT$(1);_ !! 112000 -UOPT 0696 @(16,5);ZOPTDSC$(1);_ !! 113000 -UOPT 069F @(10,6);ZOPT$(2);_ !! 114000 -UOPT 06A8 @(16,6);ZOPTDSC$(2);_ !! 115000 -UOPT 06B1 @(10,7);ZOPT$(3);_ !! 116000 -UOPT 06BA @(16,7);ZOPTDSC$(3);_ !! 117000 -UOPT 06C3 @(10,8);ZOPT$(4);_ !! 118000 -UOPT 06CC @(16,8);ZOPTDSC$(4);_ !! 119000 -UOPT 06D5 @(10,9);ZOPT$(5);_ !! 120000 -UOPT 06DE @(16,9);ZOPTDSC$(5);_ !! 121000 -UOPT 06E7 @(10,10);ZOPT$(6);_ !! 122000 -UOPT 06F0 @(16,10);ZOPTDSC$(6);_ !! 123000 -UOPT 06F9 @(10,11);ZOPT$(7);_ !! 124000 -UOPT 0702 @(16,11);ZOPTDSC$(7);_ !! 125000 -UOPT 070B @(10,12);ZOPT$(8);_ !! 126000 -UOPT 0714 @(16,12);ZOPTDSC$(8);_ !! 127000 -UOPT 071D @(10,13);ZOPT$(9);_ !! 128000 -UOPT 0726 @(16,13);ZOPTDSC$(9);_ !! 129000 -UOPT 072F @(10,14);ZOPT$(10);_ !! 130000 -UOPT 0738 @(16,14);ZOPTDSC$(10);_ !! 131000 -UOPT 0741 @(10,15);ZOPT$(11);_ !! 132000 -UOPT 074A @(16,15);ZOPTDSC$(11);_ !! 133000 -UOPT 0753 @(10,16);ZOPT$(12);_ !! 134000 -UOPT 075C @(16,16);ZOPTDSC$(12);_ !! 135000 -UOPT 0765 @(10,17);ZOPT$(13);_ !! 136000 -UOPT 076E @(16,17);ZOPTDSC$(13);_ !! 137000 -UOPT 0777 @(10,18);ZOPT$(14);_ !! 138000 -UOPT 0780 @(16,18);ZOPTDSC$(14);_ !! 139000 -UOPT 0789 @(10,19);ZOPT$(15);_ !! 140000 -UOPT 0792 @(16,19);ZOPTDSC$(15);_ !! 141000 -UOPT 079B @(10,20);ZOPT$(16);_ !! ----------------------------------------------------------- 142000 -UOPT 07A4 @(16,20);ZOPTDSC$(16);(TP) !! 143000 -UOPT 07B1 ! !! 144000 -UOPT 07B1 3110 FORMAT _ !! 145000 -UOPT 07B1 @(0,22);TLINE$;(BF);_ !! 146000 -UOPT 07BD @(1,23);"Is the above correct? (Yes/N):";_ !! 147000 -UOPT 07C6 (TP);" ";(TP);@(32,23) !! 148000 -UOPT 07D6 ! !! 149000 -UOPT 07D6 3120 FORMAT _ !! 150000 -UOPT 07D6 @(0,22);TLINE$;(BF);_ !! 151000 -UOPT 07E2 @(1,23);"Confirm delete? (Yes/N):";_ !! 152000 -UOPT 07EB (TP);" ";(TP);@(26,23) !! 153000 -UOPT 07FB ! !! 154000 -UOPT 07FB 3130 FORMAT _ !! 155000 -UOPT 07FB @(0,22);TLINE$;(BF);_ !! 156000 -UOPT 0807 @(1,23);"Delete this section? (Yes/N):";_ !! 157000 -UOPT 0810 (TP);" ";(TP);@(31,23) !! 158000 -UOPT 0820 ! !! 160000 -UOPT 0820 !====================================================================! !! 161000 -UOPT 0820 ! EXECUTABLE STATEMENTS ! !! 162000 -UOPT 0820 !====================================================================! !! 163000 -UOPT 0820 ! !! 164000 -UOPT 0820 BEG: CLEAR !! 165000 -UOPT 000A CALLED = 1 !! 166000 -UOPT 0012 EXIT$ = "QMONITOR" !! 167000 -UOPT 0018 ERRORTO ERRX !! 168000 -UOPT 001B ESCAPESUB ERRF3 !! 169000 -UOPT 001E CLOSE !! 170000 -UOPT 001F BEF2 = 1 !! 171000 -UOPT 0027 BEF3 = 1 !! 172000 -UOPT 002F OPEN (0) TERM$ !! 173000 -UOPT 0034 OPEN (Z1) "Z1", EXCP=ERR11 !! 173100 -UOPT 003B USE "(XTERM ",," 2000" !! 2000 (XTERM 003B !====================================================================! !! 2020 (XTERM 003B ! EXECUTABLE STATEMENTS ! !! 2040 (XTERM 003B !====================================================================! !! 2100 (XTERM 003B ! !! 2120 (XTERM 003B OPEN (47) "NNPARTF", EXCP=ERR11 !! 2140 (XTERM 0042 ZNODE$ = SUB(DSTAT("X00"),33,16) !! 2145 (XTERM 0057 ! ZNODE$ = "NODE 1" !! 2160 (XTERM 0057 READ (47,ZNN) KEY=ZNODE$ !! 2165 (XTERM 005F CLOSE (47) !! 2180 (XTERM 0062 XPBEG = ZNP1ST !! 2200 (XTERM 006A XPMAX = XPBEG + ZNTTOT - 1 !! 2220 (XTERM 007A FOR BLOOP = XPBEG TO XPMAX !! 2220 (XTERM *****CONTROL VARIABLE NOT LARGE ENOUGH FOR LIMIT VALUE******************** !! 2240 (XTERM 008D XPART = 1000 + BLOOP !! 2260 (XTERM 0099 XPART$ = SUB(STR(XPART),2,3) !! 2280 (XTERM 00AF IF SUB(XPART$,1,1) = "0" XPART$ = "P" + SUB(XPART$,2,2) !! 2320 (XTERM 00D8 IF XPART$ = PARTITION$ BREAK !! 2330 (XTERM 00E3 X10 = X10 + 1 !! 2340 (XTERM 00EF NEXT BLOOP !! 2360 (XTERM 00FE ZTERM$ = "T0" + STRIP(STR(X10)) !! 173200 -UOPT 0111 Z1K$ = "~" + ZTERM$ !! 174000 -UOPT 011C READ (Z1,ZTRM) KEY=Z1K$ !! 175000 -UOPT 0124 PRINT (0,C) !! 176000 -UOPT 0129 PROG$ = "OPTION BLOCK MAINTENANCE" !! 177000 -UOPT 012F USE "(STD ",," 30000" !! 30000 (STD 012F !====================================================================! !! 30020 (STD 012F ! EXECUTABLE STATEMENTS ! !! 30040 (STD 012F !====================================================================! !! 30060 (STD 012F GOSUB DTTM !! ----------------------------------------------------------- 30080 (STD 0132 PROG$ = STRING(" ",((28-LEN(STRIP(PROG$)))/2)) + STRIP(PROG$) !! 30100 (STD 0162 TLINE$ = STRING("@C4@",80) !! 30120 (STD 016F FLINE$ = STRING("@CD@",80) !! 30140 (STD 017C ELINE$ = STRING("=",132) !! 30160 (STD 0189 DLINE$ = STRING("-",132) !! 30180 (STD 0196 PAD$ = STRING("@20@",30) !! 30200 (STD 01A3 L4 = 20 !! 30220 (STD 01AB L3 = 21 !! 30240 (STD 01B3 L2 = 22 !! 30260 (STD 01BB L1 = 23 !! 30280 (STD 01C3 IF BWIDTH = 0 BWIDTH = 80 !! 30300 (STD 01D6 F4$ = "@003E@" !! 30320 (STD 01DC F5$ = "@003F@" !! 30340 (STD 01E2 F6$ = "@0040@" !! 30360 (STD 01E8 F7$ = "@0041@" !! 30380 (STD 01EE F8$ = "@0042@" !! 30400 (STD 01F4 PGUP$ = "@0049@" !! 30420 (STD 01FA PGDN$ = "@0051@" !! 30440 (STD 0200 BC$ = "@0E0E0B@" !! 30445 (STD 0206 ZUSERID$ = SUB(DSTAT("X00"),33,16) !! 30447 (STD 021B ZBRANCH$ = SUB(ZUSERID$,1,3) !! 30460 (STD 022C CLOSE (44) !! 30480 (STD 022F OPEN (44) "&ZOPT", EXCP=ERR11 !! 30500 (STD 0236 ! !! 30520 (STD 0236 ENDUSE !! 178000 -UOPT 0236 PRINT (0,HDR) !! 179000 -UOPT 023B PRINT (0,3010) !! 180000 -UOPT 0240 ! !! 181000 -UOPT 0240 5010 X = 9 & Y = 2 !! 182000 -UOPT 0250 PRINT (0,XY) !! 183000 -UOPT 0255 INPUT (0) AN$ !! 184000 -UOPT 025D IF STRIP(AN$) = "" GOTO DONE !! 185000 -UOPT 026B ZPRG$ = AN$ + STRING(" ",8) !! 186000 -UOPT 027D ! !! 187000 -UOPT 027D 5020 X = 29 & Y = 2 !! 188000 -UOPT 028D PRINT (0,XY) !! 189000 -UOPT 0292 INPUT (0) AN$ !! 190000 -UOPT 029A IF STRIP(AN$) = "" !! 191000 -UOPT 02A5 ZPRGSUB$ = "" !! 192000 -UOPT 02AB GOSUB CLRVAR !! 193000 -UOPT 02AE PRINT (0,3020) !! 194000 -UOPT 02B3 GOTO 5010 !! 195000 -UOPT 02B6 ENDIF !! 196000 -UOPT 02B6 ZPRGSUB$ = AN$ !! 197000 -UOPT 02BC ZOPTK$ = ZPRG$ + ZPRGSUB$ !! 198000 -UOPT 02C7 READ (44,ZOPT) KEY=ZOPTK$, EXCP=9010 !! 199000 -UOPT 02D1 PRINT (0,3020) !! 200000 -UOPT 02D6 ! !! 201000 -UOPT 02D6 5030 BP$ = "(FIELD #, Delete, Delete #, Insert #, Section, End)" !! 202000 -UOPT 02DC AFLAG$ = "" !! 203000 -UOPT 02E2 PRINT (0,PROMPT) !! 204000 -UOPT 02E7 INPUT (0) AN$ !! 205000 -UOPT 02EF PRINT (0,L1) !! 206000 -UOPT 02F4 AN$ = STRIP(UCASE(AN$)) !! 207000 -UOPT 0300 IF AN$ = "" !! 208000 -UOPT 0308 ZPRG$ = "" !! 209000 -UOPT 030E ZPRGSUB$ = "" !! 210000 -UOPT 0314 GOSUB CLRVAR !! 211000 -UOPT 0317 PRINT (0,3020) !! 212000 -UOPT 031C GOTO 5010 !! 213000 -UOPT 031F ENDIF !! ----------------------------------------------------------- 214000 -UOPT 031F IF AN$ = "E" GOTO DONE !! 215000 -UOPT 032A IF AN$ = "D" !! DELETE SECTION !! 216000 -UOPT 0332 ! !! 217000 -UOPT 0332 5040 PRINT (0,3130) !! 218000 -UOPT 0337 INPUT (0) AN$ !! 219000 -UOPT 033F PRINT (0,L1) !! 220000 -UOPT 0344 AN$ = STRIP(UCASE(AN$)) !! 221000 -UOPT 0350 IF AN$ = "" AN$ = "Y" !! 222000 -UOPT 035E IF AN$ = "Y" !! 223000 -UOPT 0366 DELETE (44) KEY=ZOPTK$ !! 224000 -UOPT 036C ZPRGSUB$ = "" !! 225000 -UOPT 0372 GOSUB CLRVAR !! 226000 -UOPT 0375 PRINT (0,3020) !! 227000 -UOPT 037A GOTO 5020 !! 228000 -UOPT 037D ENDIF !! 229000 -UOPT 037D IF AN$ NE "N" GOTO 5040 !! 230000 -UOPT 0388 ENDIF !! 231000 -UOPT 0388 IF AN$ = "S" GOTO 5020 !! CHANGE SECTIONS !! 232000 -UOPT 0393 IF SUB(AN$,1,1) = "D" !! DELETE LINE NUMBER !! 233000 -UOPT 03A6 FLDFR = NUM(SUB(AN$,2,2),ERR) !! 234000 -UOPT 03BE IF FLDFR < 1 OR _ !! 235000 -UOPT 03C9 FLDFR > 16 _ !! 236000 -UOPT 03C9 GOTO 5030 !! 237000 -UOPT 03D7 ! !! 238000 -UOPT 03D7 5050 PRINT (0,3120) !! 239000 -UOPT 03DC INPUT (0) AN$ !! 240000 -UOPT 03E4 PRINT (0,L1) !! 241000 -UOPT 03E9 AN$ = STRIP(UCASE(AN$)) !! 242000 -UOPT 03F5 IF AN$ = "" AN$ = "Y" !! 243000 -UOPT 0403 IF AN$ = "Y" !! 244000 -UOPT 040B FOR BLOOP = FLDFR TO 15 !! 245000 -UOPT 041E ZOPT$(BLOOP) = ZOPT$(BLOOP+1) !! 246000 -UOPT 0444 ZOPTDSC$(BLOOP) = ZOPTDSC$(BLOOP+1) !! 247000 -UOPT 046A NEXT BLOOP !! 248000 -UOPT 0479 ZOPT$(16) = "" !! 249000 -UOPT 047F ZOPTDSC$(16) = "" !! 250000 -UOPT 0485 PRINT (0,3020) !! 250100 -UOPT 048A WRITE (44,ZOPT) KEY=ZOPTK$ !! 251000 -UOPT 0492 GOTO 5030 !! 252000 -UOPT 0495 ENDIF !! 253000 -UOPT 0495 IF AN$ NE "N" GOTO 5050 !! 254000 -UOPT 04A0 ENDIF !! 255000 -UOPT 04A0 IF SUB(AN$,1,1) = "I" !! INSERT AT LINE !! 256000 -UOPT 04B3 FLDFR = NUM(SUB(AN$,2,2),ERR) !! 257000 -UOPT 04CB IF FLDFR < 1 OR _ !! 258000 -UOPT 04D6 FLDFR > 16 _ !! 259000 -UOPT 04D6 GOTO 5030 !! 260000 -UOPT 04E4 CURR = FLDFR !! 261000 -UOPT 04EC BLOOP = 16 !! 262000 -UOPT 04F4 ! !! 263000 -UOPT 04F4 5060 IF BLOOP = FLDFR !! 264000 -UOPT 04FF ZOPT$(FLDFR) = "" !! 265000 -UOPT 0511 ZOPTDSC$(FLDFR) = "" !! 266000 -UOPT 0523 PRINT (0,3020) !! 267000 -UOPT 0528 Y = CURR + 4 !! 268000 -UOPT 0534 GOTO 6010 !! 269000 -UOPT 0537 ENDIF !! 270000 -UOPT 0537 ZOPT$(BLOOP) = ZOPT$(BLOOP-1) !! 271000 -UOPT 055D ZOPTDSC$(BLOOP) = ZOPTDSC$(BLOOP-1) !! 272000 -UOPT 0583 BLOOP = BLOOP - 1 !! 273000 -UOPT 058F GOTO 5060 !! ----------------------------------------------------------- 274000 -UOPT 0592 ENDIF !! 275000 -UOPT 0592 FLDFR = NUM(AN$,ERR) !! ADD AT FIELD NUMBER !! 276000 -UOPT 059F IF ERR NE 0 OR _ !! 277000 -UOPT 05AA FLDFR < 1 OR _ !! 278000 -UOPT 05B5 FLDFR > 16 _ !! 279000 -UOPT 05B5 GOTO 5030 !! 280000 -UOPT 05C3 CURR = FLDFR !! 281000 -UOPT 05CB Y = FLDFR + 4 !! 282000 -UOPT 05D7 ! !! 283000 -UOPT 05D7 6010 X = 10 !! 284000 -UOPT 05DF PRINT (0,XY) !! 285000 -UOPT 05E4 INPUT (0) AN$ !! 286000 -UOPT 05EC IF AN$ = "" !! 287000 -UOPT 05F4 IF AFLAG$ = "*" !! 288000 -UOPT 05FC IF Y = 5 GOTO 5020 !! 289000 -UOPT 060A FOR BLOOP = CURR TO 16 !! 290000 -UOPT 061D ZOPT$(BLOOP) = "" !! 291000 -UOPT 062F ZOPTDSC$(BLOOP) = "" !! 292000 -UOPT 0641 NEXT BLOOP !! 293000 -UOPT 0650 PRINT (0,3020) !! 294000 -UOPT 0655 GOTO 6020 !! 295000 -UOPT 0658 ENDIF !! 296000 -UOPT 0658 PRINT (0,3020) !! 297000 -UOPT 065D GOTO 5030 !! 298000 -UOPT 0660 ENDIF !! 299000 -UOPT 0660 X = 16 !! 300000 -UOPT 0668 PRINT (0,XY) !! 301000 -UOPT 066D INPUT (0) WDESC$ !! 302000 -UOPT 0675 IF WDESC$ = "" GOTO 6010 !! 303000 -UOPT 0680 ZOPT$(CURR) = AN$ !! 304000 -UOPT 0692 ZOPTDSC$(CURR) = WDESC$ !! 305000 -UOPT 06A4 IF AFLAG$ = "*" !! 306000 -UOPT 06AC IF CURR = 16 GOTO 6020 !! 307000 -UOPT 06BA Y = Y + 1 !! 308000 -UOPT 06C6 CURR = CURR + 1 !! 309000 -UOPT 06D2 GOTO 6010 !! 310000 -UOPT 06D5 ENDIF !! 311000 -UOPT 06D5 ! !! 312000 -UOPT 06D5 6020 PRINT (0,3110) !! 313000 -UOPT 06DA INPUT (0) AN$ !! 314000 -UOPT 06E2 PRINT (0,L1) !! 315000 -UOPT 06E7 AN$ = STRIP(UCASE(AN$)) !! 316000 -UOPT 06F3 IF AN$ = "" AN$ = "Y" !! 317000 -UOPT 0701 IF AN$ = "Y" !! 318000 -UOPT 0709 WRITE (44,ZOPT) KEY=ZOPTK$ !! 319000 -UOPT 0711 GOTO 5030 !! 320000 -UOPT 0714 ENDIF !! 321000 -UOPT 0714 IF AN$ NE "N" GOTO 6020 !! 322000 -UOPT 071F IF AFLAG$ = "*" !! 323000 -UOPT 0727 CURR = 1 !! 324000 -UOPT 072F Y = 5 !! 325000 -UOPT 0737 ENDIF !! 326000 -UOPT 0737 GOTO 6010 !! 327000 -UOPT 073A ! !! 328000 -UOPT 073A CLRVAR: !! 329000 -UOPT 073A FOR BLOOP = 1 TO 16 !! 330000 -UOPT 074D ZOPT$(BLOOP) = "" !! 331000 -UOPT 075F ZOPTDSC$(BLOOP) = "" !! 332000 -UOPT 0771 NEXT BLOOP !! 333000 -UOPT 0780 RETURN !! 334000 -UOPT 0781 ! !! ----------------------------------------------------------- 335000 -UOPT 0781 !====================================================================! !! 336000 -UOPT 0781 ! EXCEPTION STATEMENTS ! !! 337000 -UOPT 0781 !====================================================================! !! 338000 -UOPT 0781 ! !! 339000 -UOPT 0781 9010 IF EXCP NE 32 GOTO ERRX !! NEW PROGRAM or SECTION !! 340000 -UOPT 078F FOR BLOOP = 1 TO 16 !! 341000 -UOPT 07A2 ZOPT$(BLOOP) = "" !! 342000 -UOPT 07B4 ZOPTDSC$(BLOOP) = "" !! 343000 -UOPT 07C6 NEXT BLOOP !! 344000 -UOPT 07D5 PRINT (0,3020) !! 345000 -UOPT 07DA CURR = 1 !! 346000 -UOPT 07E2 Y = 5 !! 347000 -UOPT 07EA AFLAG$ = "*" !! 348000 -UOPT 07F0 GOTO 6010 !! 349000 -UOPT 07F3 ! !! 350000 -UOPT 07F3 USE "(STD ",," 40000" !! 40000 (STD 07F3 !====================================================================! !! 40020 (STD 07F3 ! EXCEPTION STATEMENTS ! !! 40040 (STD 07F3 !====================================================================! !! 40060 (STD 07F3 ! !! 40080 (STD 07F3 USE "(DTTM ",," 2000" !! 2000 (DTTM 07F3 !====================================================================! !! 2020 (DTTM 07F3 ! EXECUTABLE STATEMENTS ! !! 2040 (DTTM 07F3 !====================================================================! !! 2060 (DTTM 07F3 ! !! 2080 (DTTM 07F3 DTTM: !! 2100 (DTTM 07F3 CE$ = SUB(LONGYEAR$,1,2) !! 2120 (DTTM 0804 YR$ = SUB(DATE$,5,2) !! 2140 (DTTM 0815 MO$ = SUB(DATE$,1,2) !! 2160 (DTTM 0826 DY$ = SUB(DATE$,3,2) !! 2180 (DTTM 0837 SYSDT$ = MO$ + "/" + DY$ + "/" + YR$ !! 2200 (DTTM 0851 SYSDTN$ = YR$ + MO$ + DY$ !! 2220 (DTTM 0861 SYSDC$ = SUB(SYSDT$,1,6) !! 2240 (DTTM 0872 SYSDC$ = SYSDC$ + CE$ + YR$ !! 2260 (DTTM 0882 SYSDCN$ = CE$ + SYSDTN$ !! 2280 (DTTM 088D CLOCK$ = DSTAT("CL1") !! 2300 (DTTM 0897 CLOSE (43) !! 2320 (DTTM 089A OPEN (43) CLOCK$ !! 2340 (DTTM 089F INPUT (43) "" !! 2360 (DTTM 08A7 CLOSE (43) !! 2380 (DTTM 08AA IF STRIP(TIME$) = "" !! 2400 (DTTM 08B5 SYSTM$ = "" !! 2420 (DTTM 08BB RETURN !! 2440 (DTTM 08BC ENDIF !! 2460 (DTTM 08BC SYSMIL$ = SUB(TIME$,1,5) !! 2480 (DTTM 08CD HOUR = NUM(SUB(TIME$,1,2),ERR) !! 2500 (DTTM 08E5 MINUTE$ = SUB(TIME$,3,3) !! 2520 (DTTM 08F6 AMPM$ = "pm" !! 2540 (DTTM 08FC IF HOUR <= 11 AMPM$ = "am" !! 2560 (DTTM 090D IF HOUR = 0 HOUR = 12 !! 2580 (DTTM 0920 IF HOUR > 12 HOUR = HOUR - 12 !! 2600 (DTTM 0937 HOUR$ = STR(HOUR) !! 2620 (DTTM 0942 SYSTM$ = HOUR$ + MINUTE$ + AMPM$ !! 2660 (DTTM 0952 YR = NUM(YR$,ERR) !! 2680 (DTTM 095F MO = NUM(MO$,ERR) !! 2700 (DTTM 096C DY = NUM(DY$,ERR) !! 2780 (DTTM 0979 RETURN !! 2800 (DTTM 097A ! !! 2820 (DTTM 097A ENDUSE !! 40100 (STD 097A ! !! 40120 (STD 097A ERR11: !! MISSING FILE !! ----------------------------------------------------------- 40140 (STD 097A IF EXCP NE 11 GOTO ERRX !! 40160 (STD 0988 IF STRIP(TERM$) NE "" !! 40180 (STD 0993 PRINT (0,WE11) !! 40200 (STD 0998 PRINT (0,ME11) !! 40220 (STD 099D INPUT (0) "" !! 40240 (STD 09A5 PRINT (0,WCL) !! 40260 (STD 09AA ENDIF !! 40280 (STD 09AA IF WIN = 1 BWERR = 1 !! 40300 (STD 09BD GOTO DONE !! 40320 (STD 09C0 ! !! 40340 (STD 09C0 ERRF3: !! F3 ABORT !! 40360 (STD 09C0 ESCAPESUB ERRF3 !! 40380 (STD 09C3 IF BEF3W = 1 OR _ !! 40400 (STD 09CE BEF3 = 0 OR _ !! 40420 (STD 09D9 STRIP(TERM$) = "" !! 40440 (STD 09E4 RETURN !! 40460 (STD 09E5 ENDIF !! 40480 (STD 09E5 BEF3W = 1 !! 40500 (STD 09ED PRINT (0,WEF3) !! 40520 (STD 09F2 ! !! 40540 (STD 09F2 ERRF3Q: !! 40560 (STD 09F2 PRINT (0,MEF3) !! 40580 (STD 09F7 INPUT (0) AN$ !! 40600 (STD 09FF AN$ = STRIP(UCASE(AN$)) !! 40620 (STD 0A0B IF POS(AN$,"YN") = 0 GOTO ERRF3Q !! 40640 (STD 0A1A PRINT (0,WCL) !! 40660 (STD 0A1F IF AN$ = "Y" !! 40680 (STD 0A27 IF WIN = 1 BWERR = 1 !! 40700 (STD 0A3A GOTO DONE !! 40720 (STD 0A3D ENDIF !! 40740 (STD 0A3D BEF3W = 0 !! 40760 (STD 0A45 RETURN !! 40780 (STD 0A46 ! !! 40800 (STD 0A46 ERRX: !! DEFAULT ERROR HANDLING !! 40820 (STD 0A46 ERRORTO ERRX !! 40840 (STD 0A49 IF EXCP = 33 !! EXTRACTED RECORD !! 40860 (STD 0A54 IF STRIP(TERM$) = "" AGAIN !! 40880 (STD 0A60 IF BEF2 = 0 !! 40900 (STD 0A6B WCMSG$ = "Busy record ... please wait" !! 40920 (STD 0A71 ELSE !! 40940 (STD 0A74 WCMSG$ = "Busy record ... wait or press [F2]" !! 40960 (STD 0A7A ENDIF !! 40980 (STD 0A7A PRINT (0,MWC) !! 41000 (STD 0A7F PAUSE (72) !! 41020 (STD 0A83 WCMSG$ = "" !! 41040 (STD 0A89 PRINT (0,MWC) !! 41060 (STD 0A8E IF BEF2 = 0 AGAIN !! 41080 (STD 0A9A IF SUB(STS(0),4,1) = "1" !! 41100 (STD 0AB0 IF WIN = 1 BWERR = 1 !! 41120 (STD 0AC3 GOTO DONE !! 41140 (STD 0AC6 ENDIF !! 41160 (STD 0AC6 AGAIN !! 41180 (STD 0AC7 ENDIF !! 41200 (STD 0AC7 ! !! 41220 (STD 0AC7 IF EXCP = 07 !! LOCKED FILES !! 41240 (STD 0AD2 IF STRIP(TERM$) = "" AGAIN !! 41260 (STD 0ADE PRINT (0,WE07) !! 41280 (STD 0AE3 PRINT (0,ME07) !! 41300 (STD 0AE8 INPUT (0) "" !! 41320 (STD 0AF0 PRINT (0,WCL) !! 41340 (STD 0AF5 IF WIN = 1 BWERR = 1 !! ----------------------------------------------------------- 41360 (STD 0B08 GOTO DONE !! 41380 (STD 0B0B ENDIF !! 41400 (STD 0B0B ! !! 41420 (STD 0B0B IF EXCP = 50 !! ARRAY OUT OF SUBSCRIPT RANGE !! 41440 (STD 0B16 IF STRIP(TERM$) NE "" !! 41460 (STD 0B21 PRINT (0,WE50) !! 41480 (STD 0B26 PRINT (0,ME50) !! 41500 (STD 0B2B INPUT (0) "" !! 41520 (STD 0B33 PRINT (0,WCL) !! 41525 (STD 0B38 ENDIF !! 41527 (STD 0B38 GOTO BEG !! 41540 (STD 0B3B !! IF WIN = 1 BWERR = 1 !! 41560 (STD 0B3B !! GOTO DONE !! 41580 (STD 0B3B ENDIF !! 41600 (STD 0B3B ! !! 41620 (STD 0B3B IF EXCP = 30 AGAIN !! DEVICE INOPERATIVE !! 41640 (STD 0B47 ! !! 41660 (STD 0B47 ERROR !! 41680 (STD 0B48 ! !! 41700 (STD 0B48 DONE: !! PROGRAM EXIT !! 41720 (STD 0B48 IF WIN = 1 OR _ !! 41740 (STD 0B53 BWERR = 1 !! 41760 (STD 0B5E PRINT (0,WCL) !! 41780 (STD 0B63 PRINT (#) "" !! 41800 (STD 0B6B ENDIF !! 41820 (STD 0B6B IF STRIP(TERM$) = "" KILL PARTITION$ !! 41840 (STD 0B7A CLOSE !! 41860 (STD 0B7B IF CALLED = 0 EXIT !! 41880 (STD 0B88 RUN EXIT$ !! 41900 (STD 0B8C END !! ZZZZZZZ -UOPT 0B8C END WARNING: Format CW Defined At 00B8, Has no Reference WARNING: Format L2 Defined At 023E, Has no Reference WARNING: Format NUL Defined At 0000, Has no Reference WARNING: Format SCO Defined At 031F, Has no Reference WARNING: Format SCP Defined At 031A, Has no Reference WARNING: Format SKT Defined At 0315, Has no Reference WARNING: Format WOP Defined At 0273, Has no Reference WARNING: Format CLRY Defined At 030B, Has no Reference WARNING: Format CLR02 Defined At 02C3, Has no Reference TOTAL ERRORS 00000 Program Memory Requirements Common 00000000 Local 00001526 Constants 00001380 Formats 00002081 Code 00002958 -------- Total 00007945 Compilation Memory Usage Available 00065057 Symbol Table 00005302 Compile Completed