=H@@ !A@@)?o@@K@<00070 +SCREEN$*1920,PROGRAM$(40)*30,PASS$(40)*4,X$*400 <^@!"!  A@  W@ ^@Q  o  A@   4W@^@I W@@! oo@ !a@ S@!S@ S@o@@ :;o,o@"oo oo@@ !a@ !A@@o@@@ !a@ S@ S@ S@  g"g A@ S@   S@ "h o&o@ "h!! A@ "v@o@@@  A@# oo@<#!d#o # $!d"! o o@@3%o&' A ( A& A   A@ !0)&!0*S@  t@ # A@!$+"fo8o@( ,"f A o  +A8o@ + A@@$"$:+/!`"$;o=o@@120S@3So@#!! oDo@ 7;S@ 9:S@#9oo@ #4q@@@)o@ 5!SA@)?o@k@ .(b2 r<F"P]Zk d(0 nV xLl (  lHLH`"h-<,*>,RY|~",H6l@@| J!T"^#h4$rf%|z&H',( )>* V(+f/,@v1-3.,@/,W0F1 V23(45,6&,B"70K8:@X9D,Z:N& ;XF <b( =ll Ev~ ?@ @ A B C tH` >n Fp Gr,6 D@*M/D/YSCREEN$PMAT PROGRAM$Q (MAT PASS$Q (.X$P(?PPs@@LASTMENUX@@ 1,1,C 1920,N@1,70,C 8@ 23,21,C 50@(Enter Selection: Enter to end@ 23,38,N 2,H,NSELD@X@@*Y/M/D@ 10,1,CC 78@8This set of programs has been (c) Copyrighted in 1987 by@ 12,1,CC 78@your company name@ 14,1,CC 78@All Rights Reserved@ 20,29,C 15@ System Date:@20,43,PIC(##/##/##),N@M/D/Y@DATE @*@4@YD@2@@,@,C 36,RG@.WB@/@.wbo@ 24,10,CC 60,H@PROGRAM @ NOT FOUND. PRESS RETURN@ 24,75,C 1AR$@@MENU,HELP.WBH/AR@Enter PasswordPASSWD$@@ 24,16,C 4,I@ 24,2,C 15,N@NAME=SCREENS/WBUTIL,SHR&E]er~"7CO[fu 8BLR^kw4Ngw00010! REPLACE MENU"00020! C400030DATE$("*M/D/Y") ! set system defaultP00040! E00050)#,640"00060! **** INIT VARIABLES400080#1: "NAME=SCREENS/WBUTIL,SHR",,,AT00090P=309+VAL(WSID$)*2 1! position of last menu used for this workstationE&00100#1,110,: LASTMENU00110 POS P,N 2(00120( LASTMENU=0 , LASTMENU=1400130#1,140,4 LASTMENU*2,: SCREEN$00140C 1920.00150#1,: X,MAT PROGRAM$,MAT PASS$00160! ,200170( KSTAT$<>"" ,,170 ! clear buffer00180NEWPAGE&00190"1,1,C 1920,N": SCREEN$ 00200"1,70,C 8": DATE$H002108"23,21,C 50": "Enter Selection: Enter to end"",00220"23,38,N 2,H,N": SEL !220O00230! I(00240(SEL>0 AND SEL<40 ,,4505400250(SEL=99 ,,320 -(SEL<>0 ,,220 00260! * END PROCESSING 00270NEWPAGE400280DATE$("*Y/M/D") ! set system default Z00290L! IF EXISTS("MENU.WB") OR EXISTS("MENU.WBO") THEN CHAIN "MENU" ! system menu.$00300/ ! or EXECUTE "SYSTEM" 00310! 00320! * CHANGE DATE00330NEWPAGEX00340H"10,1,CC 78": "This set of programs has been (c) Copyrighted in 1987 by""000350!"12,1,CC 78": "your company name"200360#"14,1,CC 78": "All Rights Reserved"00370X=DATES,00380"20,29,C 15": "System Date:""*00390"20,43,PIC(##/##/##),N": XX 00400( DAYS(X)=0 ,,390N00410X$=DATE$(DAYS(X),"M/D/Y") $! date command always requires M/D/Yh004206 "DATE "&X$&00430,18000440! 0$00450! **** NORMAL SELECTION00460 SEL=SEL+1(00470(PROGRAM$(SEL)="" ,,2202n00480(PROGRAM$(SEL)(1:1)="*" , LASTMENU=VAL(PROGRAM$(SEL)(2:3)) !220 : ,120 ! another menuu00490! RF00500(SEL>20 ,Y=41 :  X=SEL-18 -Y=1 : X=SEL+2E200510"STR$(X)&","&STR$(Y)&",C 36,RG": X$$*00520#1,110,41: LASTMENUE00530X$=PROGRAM$(SEL)R,00540(POS(UPRC$(X$),".WB") ,,5707@00550X=POS(X$,"/") : (X ,X$(X:0)=".WB" : ,57000560 X$=X$&".WB"H00570:! LET PROGRAM$(SEL)=SREP$(PROGRAM$(SEL),"/AR","/ARPROG/1") D00580(,EXISTS(X$) OR EXISTS(SREP$(X$,".WB",".wbo")) ,,6202 00590! program not foundH006009"24,10,CC 60,H": "PROGRAM "&X$&" NOT FOUND. PRESS RETURN"(00610"24,75,C 1": X$ : ,190,00620(RTRM$(PASS$(SEL))="" ,,628 .00622"24,2,C 15,N": "Enter Password"&00624"24,16,C 4,I": PASSWD$$*00626(PASS$(SEL)<>PASSWD$ ,,190006281PROGRAM$(SEL),AR$00630! R00640! helpA00650)#8O&00660HELP$("MENU,HELP.WBH/AR")00670)#,640 00680+8