B pB@C@ !a@@K@D00050 3SCRNFORM$(24)*12,SCREEN$(24)*80,SF$(100)*25,SF2$(5)*255K@D00060 3FLDDESC$(180)*30,TYPE$(180)*2,LENGTH(180),DECIMAL(180))K@(00070 REMARK$(180)*25,REMARK$*600@)o@> o@   t@ ^@     t@^@P     t@ $B@@ !a@ S@ S@ S@ !$ A@o!ao@@"fo A@  o@   t@ ^@SI<  o@.##### o@^@IIQQI o@+o@@ S@ S@ !$ A@ oo@@@ [@" 'o@ ^@SI< P@ ^@  A@ !a@ S@@  #S@'"  , 1...1...v.o@@ #  A@lo@@ $ =o@%&' A@5(( & 6o(#)%( # A(6o@*#$$ A@*"a A@**#*#*#*#*#)S@'"  , =BQ`f;99v9o@ o  A@5o@ 4o@@#+o##  A@2o@@C@,o!a9o@   A@@--* .Jo@)-#-  # A-#-  # A@)-#-  # A-#-  # A@-#-  # A@ -Fo@@*#*#*#" A@*#*# A@lo@5o@@C@o!a9o@@--*  Xo@)-#-  # A-#-  # A@)-#-  # A-#-  # A@-#-  # A@ -To@@###" A@## A@   A@lo@5o@@C@# o.o@ ##  A@lo@4o@@C@#+o!a9o@ ##  A@lo@4o@@C@-- $ ro@%-&' A@5// & oo/#)%/ # A/oo@*#$$- A@**#*#*#*#*#)S@ -mo@@a@@C@ !a@ 10S@@o@2  A3 A@@  o@4"G5oo@"#o6 A62 A@0#6####4o@(^@IFZZZZIBFZZZZFZI22# A@ }o@4x4x4x@@+o@@C@ 33  A@3 o!4a@784a@ 4x@  4a@ 4x@9:;4a@<=!P4a@a@@C@ !a@   t@  o@8#####   4o@o@.##### o@ o@ P@"B"BB@B"B " A@o@@o@?a@o@ A!SAk@,H(\2<d_FPld(n( x (  D! X* ALHN[fHhq|, (>(p" ,(6"B@ DVJ RcTbj ^Hrl!hw"r#|,$%.&(j'()*+H,-2.HB/(`0G1HI2`S3 Z4&L\50H2s6: L7D8N9XH:b(8;lL/<v G=LN>[? ]@ " uA2 |B@B ~C, D E F G H^ I J 2K  ?L AM & `N* T wO4 z ~P> QH@ RR, S\ Tf & UpJ Vz W X .Y ;Z =[Z \\ s] ^ _ `@ a,>b`c d ef@g$,h.Bi8 bjB kLlV@m` njot (,p~fbqur stuv@.wxyz {|6} F~ ,b (B(4s2~< FPZ dn@x` ~  ) 6 @ dS f j @l p (}  4 (P   h "L , $ 62, @nC J [ Tb ^@d hHh Z0|rq |H u MAT SCRNFORM$Q "MAT SCREEN$Q PMAT SF$Qd*MAT SF2$QMAT FLDDESC$Q MAT TYPE$Q MAT LENGTH MAT DECIMAL  MAT REMARK$Q REMARK$P<X@?@NBRFLDSV@@ 10,13,C 54@6Enter the file name to enter, edit, or print (E=EXIT).@ 11,17,C 47@/The default extension is .LAY for layout files.@ 13,35,G 12,UFILENAME$@ E @E@.@.LAY@NAME=NBRRECSX@ 15,20,C 41@)File not found--create a new file (y/*n)?@ 15,62,C 1ANSW$@@Y@DSPLPAGE2@FLDNBR@@YMAT SF1$Q RECNBR$@f@X1Y1@ 13,20,C 41@Now printing file layout for POSITIONPAGENBRo@X@POSPRNT@ FILE LAYOUT@Q@@ DESCRIPTIONA@@POS TYPE LGTH DEC REMARKS@*T@@NAME=WBUTIL\LAYSCRN@File LAYSCRN not found. @,replace,RECL=63@FILELAY,wbutil\supphelp .Ki )1=I\hw(.4@IZgs %2Fbnz%1AM]i*00010! Workstation Basic Utilities00020REPLACE FILELAY00030NEWPAGE00040! E00080! A00090)#,SHELP800100#99: "NAME=WBUTIL\LAYSCRN",,,(1640000110#99,120,41:  MAT SCRNFORM$00120 X 20,24*C 12000130#99,140,41*2:  MAT SCREEN$0014024*C 80.00150#99,41*2+1: NBRFLDS,MAT SF$$00160 SF$(NBRFLDS)100170! (00180NEWPAGEV00190F"10,13,C 54": "Enter the file name to enter, edit, or print (E=EXIT).""N00200?"11,17,C 47": "The default extension is .LAY for layout files."(00210"13,35,G 12,U": FILENAME$(00220FILENAME$=UPRC$(FILENAME$)L400230( FILENAME$="E" ,NEWPAGE : ,163000240! NB00250(POS(FILENAME$,".")=0 ,FILENAME$=FILENAME$&".LAY"200260#1: "NAME="&FILENAME$,,,9350000270#1,280,41: NBRRECS,REMARK$00280 PD 3,C 6000290"X=1 )NBRRECSP00300#1,310: 0FLDDESC$(X),TYPE$(X),LENGTH(X),DECIMAL(X),REMARK$(X)"00310C 30,C 2,N 4,N 1,C 2500320#X00330,46000340! 0H003509"15,20,C 41": "File not found--create a new file (y/*n)?""00360"15,62,C 1": ANSW$$ 00370ANSW$=UPRC$(ANSW$)""00380( ANSW$<>"Y" ,,21000390! $<00400#'1: "NAME="&FILENAME$&",replace,RECL=63",,P 00410#1,420: 0,""00420 PD 3,C 6000430#1: ,00440#1: "NAME="&FILENAME$,,,A00450 NBRRECS=000460NEWPAGE*00470MAT SCRNFORM$: MAT SCREEN$$00480! I00490SF$(1): REMARK$\00500)CMDKEY+1 ,520,490,490,490,520,490,490,490,1210,1500,49000510! E00520 DSPLPAGE=1O&00530 1110 ! Print all fields00540! 000550"X=1 )1800560 FLDNBR=X*5-4n:00570"Y=1 )5 : SF1$(Y)=SF$(FLDNBR+Y) : #Y$00580RECNBR=DSPLPAGE*18-18+X(00590NBRRECS=MAX(NBRRECS,RECNBR)f00600SMAT SF1$: FLDDESC$(RECNBR),TYPE$(RECNBR),LENGTH(RECNBR),DECIMAL(RECNBR),REMARK$(RECNBR)\00610)CMDKEY+1 ,640,690,840,990,1050,620,600,600,1210,1500,600.00620(X>1 ,X=X-1 ! Line Up only100630,56000640#X00650! 200660( DSPLPAGE<10 ,DSPLPAGE=DSPLPAGE+100670,53000680! 0P00690C************************ InseRt a Line ****************************.00700( NBRRECS=180 ,BELL : ,60000710NBRRECS=NBRRECS+100720! R,00730" X1=NBRRECS )RECNBR+1 *-1D00740FLDDESC$(X1)=FLDDESC$(X1-1) : TYPE$(X1)=TYPE$(X1-1)D00750LENGTH(X1)=LENGTH(X1-1) : DECIMAL(X1)=DECIMAL(X1-1)&00760REMARK$(X1)=REMARK$(X1-1)00770#X100780! >007901FLDDESC$(RECNBR)=TYPE$(RECNBR)=REMARK$(RECNBR)="".00800 LENGTH(RECNBR)=DECIMAL(RECNBR)=0M&00810 1110 ! Print all fields00820,56000830! 0P00840C************************* DeLETe a Line ***************************,00850( NBRRECS=0 ,BELL : ,60000860! E$00870" X1=RECNBR ) NBRRECS-1D00880FLDDESC$(X1)=FLDDESC$(X1+1) : TYPE$(X1)=TYPE$(X1+1)D00890LENGTH(X1)=LENGTH(X1+1) : DECIMAL(X1)=DECIMAL(X1+1)&00900REMARK$(X1)=REMARK$(X1+1)00910#X100920! B009304FLDDESC$(NBRRECS)=TYPE$(NBRRECS)=REMARK$(NBRRECS)=""1000940"LENGTH(NBRRECS)=DECIMAL(NBRRECS)=0M00950NBRRECS=NBRRECS-1&00960 1110 ! Print all fields00970,56000980! 0P00990B**************************** Page Up ***************************** "01000( DSPLPAGE=1 ,,490 01010DSPLPAGE=DSPLPAGE-1&01020 1110 ! Print all fields01030,55001040! 0N01050A************************** Page Down ****************************.01060( DSPLPAGE=10 ,BELL : ,600 01070DSPLPAGE=DSPLPAGE+1&01080 1110 ! Print all fields01090,55001100! 0N01110@*********************** Print all Fields *********************** 01120"X1=1 )1801130 FLDNBR=X1*5-4>01140"Y1=1 )5 : SF1$(Y1)=SF$(FLDNBR+Y1) : #Y1&01150RECNBR=DSPLPAGE*18-18+X1Sf01160SMAT SF1$: FLDDESC$(RECNBR),TYPE$(RECNBR),LENGTH(RECNBR),DECIMAL(RECNBR),REMARK$(RECNBR)01170#X101180! 01190!001200! R01210D*********************** Print Layout *******************************M01220NEWPAGEF012307"13,20,C 41": "Now printing file layout for "&FILENAME$01240! I$01250 1390 ! Print heading(01260 POSITION=1 :  PAGENBR=0 01270! I01280"X=1 )NBRRECS801290( KREC(255)>555 , 1390 ! Print heading@01300( LENGTH(X)=0 , POSPRNT=0 -POSPRNT=POSITIONTZ01310#255,1320: 7FLDDESC$(X),POSPRNT,TYPE$(X),LENGTH(X),DECIMAL(X),REMARK$(X)J013201 ,# 255: NEWPAGE201420#255: "FILE LAYOUT";TAB(69);FILENAME$01430#255: 01440# 255: REMARK$01450#255: H01460#5255: "DESCRIPTION";TAB(34);"POS TYPE LGTH DEC REMARKS" 01470#255: RPT$("*",80)) 01480!001490! P01500C*********************** ENd of Program ****************************01510NEWPAGE001520#1,280,41: NBRRECS,REMARK$01530"X=1 )NBRRECS`01540#1,310,4X+1: 0FLDDESC$(X),TYPE$(X),LENGTH(X),DECIMAL(X),REMARK$(X) ;156001550,1570P01560#1,310: 0FLDDESC$(X),TYPE$(X),LENGTH(X),DECIMAL(X),REMARK$(X)01570#X01580#1: <01590FLDDESC$=("") :  TYPE$=("") :  LENGTH=(0)<01600 DECIMAL=(0) :  REMARK$=("") :  REMARK$=""01610,18001620! 0 01630/0(01640"File LAYSCRN not found. " 01650/0:01660SHELP:  HELP$("FILELAY,wbutil\supphelp"): +