Programmer 7500

home *** CD-ROM | disk | FTP | other *** search

/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / TM480.ZIP / TMISSUE.EXE / CONFIG.TSK < prev next >

Wrap

Text File | 1991-09-10 | 26.6 KB | 1,158 lines

GO 1INIT 1BEGIN MENU 1,'MAIN_MENU' OPTION 1,2 IF TEXTS = SPACES CURSOR 8 2 'No option texts yet exist' CLEAR BBDISP RETURN FI MOVE ESCAPE_MASK TO BBMASK MOVE SAVECH TO CHOICE MENU 2,'SERVICES',TEXTS OPTION 2,30 POPDOWN START MOVE 2 TO CHOICE MOVE HILITE TO SAVECH USERLINE RETURN 1 OPTION 2,1,10 CURSOR 16 20 CEL SUBTRACT 1 FROM CHOICE GIVING I MOVE CHOICE TO SAVECH FIELDFILL ENTRY I OF T1 ENTRY I OF T2 INSERT ENTRY I OF TEXTS PUT 'TIME_WINDOW' NOCLEAR IF FUNKEY = 10 GO 1ESC FI GET ENTRY I OF T1 ENTRY I OF T2 FIELDFILL ENTRY I OF CMDS ENTRY I OF PTY ENTRY I OF PATHS CURSOR 1 0 CEL 'PATH: ' $PATH INSERT ENTRY I OF TEXTS PUT 'GET_COMMAND' NOCLEAR UL CURSOR 1 0 CEL IF FUNKEY = 10 GO 1ESC FI GET ENTRY I OF CMDS ENTRY I OF PTY ENTRY I OF PATHS UPPER ENTRY I OF PTY SETSCAN ENTRY I OF CMDS CLEAR DELIM CMD PARAMS SCAN CMD IF CMD = ';' GO 1ESC FI MOVE ZERO TO DELIM è SCAN PARAMS IF PARAMS <> NULL MOVE I TO J MULTIPLY J BY 4 CLEAR K UNTIL K = 4 ADD 1 TO K GIVING L MOVE L TO CHAR IF PARAMS CT ENTRY K OF PCS INSERT ENTRY I OF CMDS CHAR FIELDFILL ENTRY J OF PQS PUT 'PROMPT_TYPE' NOCLEAR UL IF FUNKEY = 10 GO 1ESC FI GET REPLY MOVE REPLY TO ENTRY J OF PQS INSERT ENTRY I OF CMDS CHAR FIELDFILL ENTRY J OF PROMPTS ENTRY J OF PDEFS IF REPLY FIELDFILL ENTRY J OF P2DEFS PUT 'YESNO_VALUES' NOCLEAR UL ELSE PUT 'GET_PROMPT' NOCLEAR UL FI IF FUNKEY = 10 GO 1ESC FI GET ENTRY J OF PROMPTS ENTRY J OF PDEFS IF REPLY GET ENTRY J OF P2DEFS FI FI INCREMENT J FI K FI FIELDFILL ENTRY I OF DTS ENTRY I OF WST PUT 'GET_DATA' NOCLEAR UL IF FUNKEY = 10 GO 1ESC FI GET ENTRY I OF DTS ENTRY I OF WST FIELDFILL ENTRY I OF PAU PUT 'PAUSE_AFTER_RUN' NOCLEAR UL IF FUNKEY = 10 GO 1ESC FI GET ENTRY I OF PAU UPPER ENTRY I OF PAU MOVE ENTRY I OF RES TO CHOICE MOVE CHOICE TO LRES CURSOR 15 0 CEP MOVE 8020H TO BBMASK ;allow F10/ESC PUT 'RESULTS' NOCLEAR IF CHOICE >= 30 è GO 1ESC FI MOVE CHOICE TO ENTRY I OF RES IF CHOICE <> 1 IF CHOICE = LRES FIELDFILL ENTRY I OF RES1 ENTRY I OF RES2 FI MOVE CHOICE TO CHAR COMBINE 'CHECK' CHAR INTO FNAME PUT FNAME NOCLEAR UL IF FUNKEY = 10 GO 1ESC FI GET ENTRY I OF RES1 ENTRY I OF RES2 FIELDFILL ENTRY I OF AC ENTRY I OF APF ENTRY I OF APT ENTRY I OF AP INSERT ENTRY I OF TEXTS CURSOR 1 0 CEL 'PATH: ' $PATH PUT 'RUN_AFTER_CHECK' NOCLEAR UL CURSOR 1 0 CEL IF FUNKEY = 10 GO 1ESC ELSE GET ENTRY I OF AC ENTRY I OF APF ENTRY I OF APT ENTRY I OF AP UPPER ENTRY I OF APT IF ENTRY I OF AC <> SPACES MOVE 'N' TO ENTRY I OF PAU FI FI FI MOVE I TO J MULTIPLY J BY 4 ADD 4 TO J GIVING K UNTIL J = K FIELDFILL ENTRY J OF HLP FI J PUT 'USER_HELP' NOCLEAR UL IF FUNKEY = 10 1ESC POPDOWN START MOVE SAVECH TO CHOICE RETURN ELSE ADD I TO I GIVING J ADD J TO J UNTIL J = K GET ENTRY J OF HLP FI J FI USERLINE CURSOR 2 0 CEP ADD 1 TO SAVECH GIVING CHOICE RETURN OPTION 2,11,13 CURSOR 16 20 'Internal services cannot be modified' CLEAR BBDISP RETURN ENDM 2 OPTION 1,1 PUT 'KHELP' NOWAIT MOVE TEXTS TO UTEXTS FIELDFILL UTEXTS PUT 'TEXTS' NOCLEAR UL 'F10 Abandons any changes ...' IF FUNKEY <> 10 CLEAR I UNTIL I = 10 GET ENTRY I OF TEXTS FI I FI CURSOR 2 0 CEP INSERT TEXTS PUT 'SERVICES' NODATA NOCLEAR UL USERLINE CLEAR CHOICE RETURN OPTION 1,3 OPTION 1,30 SAVE CPATH CATLOC SITE TEXTS CMDS PTY PATHS DTS WST PAU RES RES1 RES2 IF RESP = 0 SAVE AC AP APT APF HLP T1 T2 SECURE PROMPTS PDEFS P2DEFS PQS FI IF RESP = 0 SAVE TIMEOUT BLACK SHELL SUG FI IF RESP = 0 SAVE FI IF RESP <> 0 DISPLAYLN 'Disc error when saving service file' FI STOP ENDM 1 1INIT DEFINE ESCAPE_MASK,8000H DEFINE OPTIONS,10 DEFINE SUG,99 HEXVAR ESC,1B VAR AC,60,OCCURS 10 VAR AP,68,OCCURS 10 VAR APF,1,OCCURS 10,'FFFFFFFFFF' VAR APT,1,OCCURS 10,'NNNNNNNNNN' VAR BLACK,1,'Y' VAR CATLOC,68,'\FMP' VAR CHAR,1,'N' VAR CPATH,68,'\FMP\CONFIG.TMS' VAR CSEC,1 VAR CURRENT_PATH,68 VAR CMD,14 VAR PARAMS,40 VAR CMDS,60,OCCURS 10 VAR DTS,64,OCCURS 10 VAR FILENAME,14,'CONFIG' VAR FMPDIR,68,$FMPDIR VAR FNAME,6 VAR HLP,72,OCCURS 56 VAR NULL,1 VAR PATHS,68,OCCURS 10 èVAR PAU,1,OCCURS 10,'NNNNNNNNNN' VAR PCS,2,OCCURS 4,'%1%2%3%4' VAR PQS,1,OCCURS 40 VAR PROMPTS,40,OCCURS 40 VAR PDEFS,40,OCCURS 40 VAR P2DEFS,40,OCCURS 40 VAR PTY,1,OCCURS 10,'NNNNNNNNNN' VAR RES,1,OCCURS 10,'1111111111' VAR RES1,40,OCCURS 10 VAR RES2,40,OCCURS 10 VAR RFILE,68 VAR SFILES,8,OCCURS 10 VAR SHELLUG,2 VAR SITE,24,'Site details' VAR SYSMESS,72,OCCURS 16, 'When security is high, you can change your password at any time with' 'immediate effect. Passwords are normally set by the System' 'Administrator when the EUC catalogue is created. The EUC program will' 'be supplied when you register. ' 'This option causes Taskmaster to mark you offline in the catalogue. In' 'order to access services again, you will have to supply a valid username' 'and password. ' ' ' 'This option is for use on a NETWORK and enables you to send a message to' 'the System Administrator who will be able to reply back if necessary. ' ' ' 'The facility is only operational on a Novell NETWARE system. ' 'This option displays a variety of session information. ' ' WCN is your workstation connection number. ' ' ERRORLEVEL is the last response from the last program executed. ' VAR T1,5,OCCURS 10 VAR T2,5,OCCURS 10 VAR TEXTS,16,OCCURS 13 VAR TIMEOUT,2,'10' VAR UTEXTS,16,OCCURS 10 VAR WST,2,OCCURS 10 LOGICAL CREATE LOGICAL EXPERT LOGICAL EUSR LOGICAL FILE_SELECTED LOGICAL FOREVER LOGICAL INCMD LOGICAL PATHEX LOGICAL REPLY LOGICAL SECURE LOGICAL SHELL VCONST CLS,11 ;clear screen VCONST CEL,55 ;clear to end of line VCONST CEP,56 ;clear to end of page INT I,J,K,L INT INTRO INT LRES INT MINS INT SAVECH INT START END èIF FMPDIR = NULL MOVE 'C:\FMP' TO FMPDIR FI MOVE FMPDIR TO CATLOC USER CURRENT_PATH MOVE TRUE TO HIDE LOOKFOR CONFIG.OVR IF NOT FOUND INSERT FILENAME FILENAME PUT "NO_FORMS" STOP FI FORMS CONFIG.OVR CLEAR I UNTIL I = OPTIONS MOVE ';' TO ENTRY I OF CMDS MOVE ';' TO ENTRY I OF AC MOVE ' 0' TO ENTRY I OF WST MOVE '00:00' TO ENTRY I OF T1 MOVE '23:59' TO ENTRY I OF T2 FI I IF DEMO PUT 'INTRO' NODATA NOCLEAR POPSCREEN INTRO UNTIL CHOICE = 3 CLEAR BBDISP PUT 'INTRO' IF CHOICE = 1 FORMS LOGON.OVR PUT 'BOUNCE_BAR' FORMS CONFIG.OVR POPDOWN INTRO FI IF CHOICE = 2 PUT 'KHELP' POPDOWN INTRO FI FI FI CLEAR SFILES I MOVE '.' TO DELIM DIR *.TMS UNTIL NOT FOUND OR I = 10 SETSCAN DISPLAY 30 SCAN ENTRY I OF SFILES DIR FI I IF NOT DEMO PUT 'CONFIG1' UL IF CHOICE = 1 MOVE TRUE TO EXPERT FI ELSE POPFREE INTRO PUT 'CONFIG2' NOWAIT UL FI IF I <> 0 MOVE 4020H TO BBMASK INSERT SFILES PUT 'SERVCATS' NOCLEAR UL IF CHOICE = 40 STOP FI IF CHOICE < 10 COMBINE CURRENT_PATH '\' DISPLAY INTO CPATH TRIM CPATH REPLACE ALL '\\' OF CPATH WITH '\' APPEND '.TMS' TO CPATH MOVE TRUE TO FILE_SELECTED MOVE CPATH TO RFILE FI FI IF NOT FILE_SELECTED PUT 'SERVICE_FILE' NOCLEAR UL IF FUNKEY = 10 STOP FI GET CPATH TRIM CPATH COMBINE CURRENT_PATH '\' CPATH INTO CPATH REPLACE ALL '\\' OF CPATH WITH '\' APPEND '.TMS' TO CPATH MOVE CPATH TO RFILE LOOKFOR CPATH IF RESP <> 0 INSERT CPATH PUT 'CREATE_OPTIONS' NOCLEAR UL IF FUNKEY = 10 STOP FI GET CREATE IF CREATE CLEAR RFILE FI FI FI IF RFILE <> SPACES RESTORE RFILE CATLOC SITE TEXTS CMDS PTY PATHS DTS WST PAU RES RES1 RES2 IF RESP = 0 RESTORE AC AP APT APF HLP T1 T2 SECURE PROMPTS PDEFS P2DEFS PQS FI IF RESP = 0 RESTORE TIMEOUT BLACK SHELL SUG FI IF RESP = 0 RESTORE ELSE DISPLAYLN 'Fatal Error:' IF RESP = 99 DISPLAYLN 'Service file ' CFP ' is corrupt' ELSE DISPLAYLN 'Service file ' CFP ' could not be opened' FI STOP 2 FI FI IF EXPERT AND NOT DEMO MOVE SUG TO SHELLUG MOVE SHELL TO CHAR MOVE SECURE TO CSEC APPEND 68 TO CATLOC FIELDFILL CATLOC SITE CSEC TIMEOUT BLACK CHAR SHELLUG PUT 'EXPERT' NOCLEAR UL IF FUNKEY = 10 STOP FI GET CATLOC SITE CSEC TIMEOUT BLACK SHELL SHELLUG MOVE CSEC TO SECURE ELSE FIELDFILL SITE PUT 'SITE_DETAIL' NOCLEAR UL IF FUNKEY = 10 STOP FI è GET SITE IF NOT DEMO FIELDFILL CATLOC PUT 'EUC_PATH' NOCLEAR UL IF FUNKEY = 10 STOP FI GET CATLOC FI IF DEMO CLEAR SECURE ELSE CLEAR CHOICE IF SECURE MOVE 2 TO CHOICE FI MOVE 0020H TO BBMASK PUT 'SECURITY_LEVEL' NOCLEAR UL IF CHOICE = 40 STOP FI IF CHOICE = 1 CLEAR SECURE ELSE MOVE TRUE TO SECURE FI FI FIELDFILL TIMEOUT PUT 'AUTO_LOGOUT' NOCLEAR UL IF FUNKEY = 10 STOP FI GET TIMEOUT MOVE TIMEOUT TO MINS IF MINS <> 0 FIELDFILL BLACK PUT 'BLACK_OUT' NOCLEAR UL IF FUNKEY = 10 STOP FI GET BLACK FI MOVE SUG TO SHELLUG MOVE SHELL TO CHAR FIELDFILL CHAR SHELLUG PUT 'SHELL_OUT' NOCLEAR UL IF FUNKEY = 10 STOP FI GET SHELL SHELLUG FI MOVE SHELLUG TO SUG TRIM CPATH CATLOC IF CATLOC <> NULL MOVE TRUE TO EUSR MOVE 'Change Password ' TO ENTRY 10 OF TEXTS MOVE 'Logout ' TO ENTRY 11 OF TEXTS è MOVE 'Send Message ' TO ENTRY 12 OF TEXTS ELSE CLEAR ENTRY 10 OF TEXTS CLEAR ENTRY 11 OF TEXTS CLEAR ENTRY 12 OF TEXTS FI MOVE 40 TO J CLEAR I UNTIL I = 16 MOVE ENTRY I OF SYSMESS TO ENTRY J OF HLP INCREMENT J FI I PUT 'START' NOWAIT POPSCREEN START INSERT TEXTS PUT 'SERVICES' NODATA NOCLEAR UL USERLINE MOVE ESCAPE_MASK TO BBMASK CLEAR CHOICE GOBACK 1BEGIN ENDTASK ; Title : CONFIG.TSK Last Updated : March 1991 ; Author : Mike Eastham.- FmP. Version : 1.02 ; Purpose : Standard Services Selection configuration. Supports Networking. ; Notes : Configuration is used by STANDARD.TSK @VID @macro s40,' ' @macro cmd,' ' @macro main_win @acceptfk f10 @col char,white,black @win line7,column5,depth15,width74 @endm @macro end_main @col char,white,black @win line22,column48,depth1,width30 Press F10 to ABANDON CONFIG ... @endm @HEAD LEFT,'Taskmaster Utility' @HEAD RIGHT,'Copyright (C) FmP 1991' @nf INTRO @dim @col page,white,blue @head centre,INTRODUCTION @banner @border Thσ áTaskmaste≥ átask≤ áCONFI╟ áanΣ áSTANDAR─ áarσ ásupplieΣ áa≤ ááaεì áááááalternativσ át∩ ádevelopinτ you≥ owε task(s⌐ iε orde≥ át∩ ásuppor⌠ áß ì ááááásophisticateΣ Interactivσ use≥-friendl∙ shell. áááááCONFI╟ áenable≤ áyo⌡ o≥ you≥ systeφ administrato≥ át∩ ácustomisσ áthσ ì ááááásysteφ interactivel∙ t∩ matcΦ you≥ requirements« I⌠ i≤ supplieΣ prσ-ì áááááconfigureΣ át∩ ruε ß handfu∞ oµ standarΣ utilitie≤ fo≥ ádemonstratioε ì ááááápurpose≤ anΣ t∩ givσ yo⌡ aε ideß oµ ho≈ t∩ configurσ it. áááááWheε yo⌡ havσ configureΣ thσ system¼ typσ T═ STANDAR─ ü t∩ ruε it. áááááIµ áyo⌡ arσ ß Systeφ Administrator¼ yo⌡ ma∙ neeΣ t∩ develo≡ you≥ áowε ì ááááátask≤ áiµ áyo⌡ áwisΦ át∩ adΣ feature(s⌐ no⌠ áfounΣ áiε áthσ ástandarΣ ì áááááofferinτ .« bu⌠ that'≤ thσ beaut∙ oµ Taskmaster╗ providinτ aε endles≤ ì ááááávariet∙ oµ processinτ option≤ anΣ screeε displays. @bbmenu white,blue {Help on bounce-bar menus } Press {Help about editing } {Begin the Configuration } @bright @end @HEAD CENTRE,'SET/CHANGE SYSTEM DETAILS' @NF CONFIG1 @col char,cyan,blue @dim @banner @col char,yellow,black @border Thi≤ á prograφ ácreate≤ áß servicσ filσ ácalleΣ áname.T═Sá containinτ ìèááááádetail≤ oµ standarΣ anΣ custome≥-defineΣ service≤ t∩ bσ provideΣ t∩ ì áááááTaskmaste≥ user≤ viß thσ optiona∞ tasδ STANDARD.TS╦ @border @dim @bbmenu green,black Are you an {Experienced user } or {Novice } ? @bright @END @NF CONFIG2 @col char,cyan,blue @dim @banner @col char,yellow,black @border Thi≤ á prograφ ácreate≤ áß servicσ filσ ácalleΣ áname.T═Sá containinτ ì ááááádetail≤ oµ standarΣ anΣ custome≥-defineΣ service≤ t∩ bσ provideΣ t∩ ì áááááTaskmaste≥ user≤ viß thσ optiona∞ tasδ STANDARD.TS╦ @border @bright @end @NF SERVICE_FILE @file $main_win$ Name of Service file ? (Mandatory) [CONFIG ] @col char,yellow,black Thi≤ i≤ thσ namσ oµ thσ Servicσ filσ yo⌡ wisΦ t∩ creatσ o≥ update in the working directory« When runninτ CONFI╟ fo≥ thσ firs⌠ time¼ thσ defaul⌠ filenamσ showε wil∞ bσ thσ onσ installed when you raε GO.BA╘ ¡ pres≤ Alternatively¼ iµ yo⌡ wisΦ t∩ creatσ severa∞ servicσ files¼ pleasσ ente≥ thσ requireΣ filenamσ. An extension of .TMS will be automatically appended. $end_main$ @end @NF SERVCATS @dim @bbmenu green,black @win line7,column3,depth15,width74 @bright { } Please select required service catalogue { } or press F1 to create a new one. @repeat x8 { } $end_main$ @END @NF CREATE_OPTIONS @log $main_win$ { } Abovσ áfilσ no⌠ found« Do yo⌡ wisΦ t∩ creatσ ß ne≈ servicσ filσ áwitΦ ì thi≤ name ? @col char,yellow,black Create ? [Y] Y=yes, N=noì $end_main$ @end @nf SITE_DETAIL @str min1 $main_win$ Name of user or Company name etc. [ ] @col char,yellow,black The information you supply here will appear in screen headings, when running STANDARD.TSK. è$end_main$ @end @nf EUC_PATH @path optional $main_win$ Please supply an optional path for file CATALOG.EUC Please enter the name of a Directory where the above flie resides. If you don't wish to use the EUC option, clear the box and press [. ] @col char,yellow,black Onσ functioε oµ thσ EU├ prograφ i≤ t∩ maintaiε ß securσ cataloguσ áoµ ì valiΣ ááusername≤ áanΣ ápasswords« áIt≤ áusσ áalthougΦ áoptiona∞ áái≤ ì recommended¼ ááespeciall∙ áiµ áyo⌡ áusσ áthσ áNetworkeΣ áversioε ááoµ ì Taskmaster« EU├ wil∞ bσ supplieΣ wheε yo⌡ register. Pleasσ notσ tha⌠ thσ sharewarσ versioε i≤ issueΣ witΦ aε examplσ file CATALOG.EU├ anΣ wil∞ thereforσ normall∙ residσ iε director∙ \FMP. $end_main$ @end @nf SECURITY_LEVEL @dim @col char,white,black @win line7,column5,depth15,width74 Please select security level - current level highlighted @bbmenu white,black @gon 7---------------8------------8-----------------------------------9 0Security level 0 EUC usage 0 Exit from STANDARD.TSK 0 4---------------5------------5-----------------------------------6 0 {LOW } 0 optional 0 Always possible at login via F10 0 4---------------5------------5-----------------------------------6 0 {HIGH } 0 no 0 NOT ALLOWED 0 0 0 yes 0 Only users in EUC user-group 99 0 1---------------2------------2-----------------------------------3 @goff @bright @col char,yellow,black For demonstration purposes, it is undesirable to set this feature, so highlight LOW and press $end_main$ @end @nf AUTO_LOGOUT @num $main_win$ Auto-Logout ┐ (Minutes) [10▌ Ente≥ ░ iµ facilit∙ no⌠ required è @col char,yellow,black Iµ áyo⌡ leavσ you≥ P├ unnattendeΣ fo≥ ß specifieΣ period¼ áTaskmaste≥ ì wil∞ ánormall∙ loτ yo⌡ ou⌠ (fo≥ securit∙ reasons)¼ forcinτ áthσ ánex⌠ ì use≥ t∩ suppl∙ ß valiΣ usernamσ anΣ password. $end_main$ @END @nf BLACK_OUT @log $main_win$ Black-out ? [Y] Y=Yes, N=No @col char,yellow,black Auto-Logout has been requested. Do you want the screen to be blacked-out to prevent burn-in ? $end_main$ @END @nf SHELL_OUT @log @num $main_win$ Allow SHELLS ? [N] Y=Yes, N=No User-grou≡ ? [99] EUC user-group number (0 = ALL users) @col char,yellow,black D∩ áyo⌡ wisΦ t∩ allo≈ user≤ acces≤ t∩ thσ DO╙ promp⌠ anΣ hencσ áothe≥ ì service≤ ┐ Iµ yo⌡ answe≥ 'Y'¼ thσ use≥ wil∞ bσ ablσ t∩ loaΣ furthe≥ ì shell≤ viß Functioε ke∙s ╕/9 anΣ returε b∙ typinτ 'EXIT'. Obviously¼ áthi≤ coulΣ bσ ß breacΦ oµ an∙ securit∙ measure≤ áyo⌡ áma∙ ì havσ áadopted« áIµ áusinτ EUC¼ yo⌡ caε restric⌠ áthσ áfacilit∙ át∩ áß ì specifiπ use≥-group. If you respond 'N', not only will this suppress the use of F8/F9 but it will ALSO prevent most applications from shelling-out. $end_main$ @END @NF START @dim @col page,cyan,blue @col char,blue,cyan @win line0,column0,depth1,width0 CONFIG V1.02 Copyright (c) FmP 1991 Proposed service menu @bright @col char,white,blue @end @NF MAIN_MENU @dim è@win line2,column2,depth3,width28 @bbimenu red,white {Edit menu option texts } {Define/edit option details } {Quit CONFIG } @bright @col char,white,blue @END @NF SERVICES @dim @BBMENU red,white @WINDOW line2,column50,depth13,width17 @repeat x13 { } @bright @col char,white,blue @USE 'Press <ESC> to return to the MAIN menu ...' @END @NF TEXTS @dim @acceptfk F10 @col char,cyan,blue @repeat x10 @str @window line2,column50,depth13,width18 @repeat x10 [ ] @bright @col char,white,blue @END @macro wconf @acceptfk f10 @col char,white,blue @window line15,column0,depth9,width0 @border @endm @macro help_window @dim @co∞ char,cyan,blue @window line3,column2,depth11,width44 @endm @NF TIME_WINDOW @TIME @TIME $wconf$ "{ }" service availability ? From : [00:00] To : [23:59] Press to use the defaults or enter required times @dim @co∞ char,cyan,blue @window line2,column0,depth13,width48 @out cyan,double Taskmaste≥ caε le⌠ yo⌡ specif∙ ß timσ windo≈ ì fo≥ áeacΦ áapplication¼ i.e« áhour≤ ádurinτ ì whicΦ tha⌠ servicσ i≤ available. ┴ ácommoε usσ i≤ t∩ preven⌠ thσ usσ oµ ánoε-ì productivσ ásoftware¼ áe.g« á games¼ ádurinτ ì workinτ hours. @bright @co∞ char,white,blue @use 'F10 = Quit, any previous changes will be saved' @END @NF GET_COMMAND @STR MIN1 @LOG @PATH OPTIONAL $wconf$ Run-time information for "{ }" DOS command [$cmd$] Command needs all available memory ? [N] Y=YES,N=NO è The Directory you are in when you run it ? (Optional) [ ] $help_window$ Pleasσ ente≥ thσ commanΣ yo⌡ woulΣ ánormall∙ ì typσ áa⌠ áthσ DO╙ promp⌠ ábu⌠ á excludinτ áß ì path¼ whicΦ shoulΣ bσ entereΣ separatel∙ iµ ì required« Iµ ávariablσ áinformatioε i≤ needed¼ áusσ áß ì notatioε %1,%2,%│ o≥ %4« An∙ numbe≥ caε ábσ ì repeated« Yo⌡ wil∞ late≥ bσ askeΣ t∩ suppl∙ ì prompts« EXAMPLE║ COP┘ A:%▒ C:%▓ /V @bright @co∞ char,white,blue @END @NF GET_PROMPT @STR MIN1 @STR $wconf$ Command : {$cmd$} Parameter %{ } ? Prompt [$s40$] (No question-mark needed) Default [$s40$] (Optional) $help_window$ A⌠ áruε-time¼ eacΦ paramete≥ áyo⌡ áspecifieΣ ì (%1¼ %▓ ...⌐ wil∞ bσ requesteΣ b∙ ß prompt« ì Thσ ápromp⌠ á caε ábσ u≡ át∩ á4░ ácharacter≤ ì maximum. Iµ áyo⌡ áhavσ specifieΣ thσ ásamσ áparamete≥ ì morσ áthaε once¼ i⌠ wil∞ onl∙ bσ árequesteΣ ì once. @bright @co∞ char,white,blue @END @NF GET_DATA @STR @NUM $wconf$ Yo⌡ caε optionall∙ pas≤ upt∩ 6┤ character≤ oµ datß t∩ man∙ program≤ ì anΣ use ^ to represent control characters, e.g. ^A = CTRL/A [ ] Wait states for programs that don't normally allow type-ahead, i.e. programs that flush keyboard input [ 0] 0-99 è$help_window$ Iµ thσ prograφ need≤ keyboarΣ data¼ yo⌡ áma∙ ì bσ áablσ át∩ automatσ it≤ á entry¼ áprovideΣ ì tha⌠ ái⌠ read≤ i⌠ usinτ thσ BIO╙ áinterface« ì (Obtain technica∞ suppor⌠ iµ iε doubt.) Alternatively¼ áyo⌡ áma∙ ábσ áablσ át∩ ááusσ ì standarΣ command-linσ redirection. Somσ áprogram≤ áflusΦ typσ-aheaΣ ádatß áwheε ì the∙ áload« Thi≤ ma∙ bσ avoidablσ b∙ átryinτ ì various wait-state values. Initially try 1. ì @bright @co∞ char,white,blue @END @NF PAUSE_AFTER_RUN @LOG $wconf$ Do you want Taskmaster to pause after program has ended to allow viewing of results ? [N] Y=YES, N=NO $help_window$ Answe≥ á┘ iµ yo⌡ typicall∙ wisΦ t∩ vie≈ áthσ ì screeε áoutpu⌠ áfroφ you≥ á applicatioε áanΣ ì especiall∙ áiµ therσ i≤ an∙ possibilit∙ áoµ ì otherwisσ missinτ aε importan⌠ message. Iµ yo⌡ answe≥ N¼ contro∞ wil∞ alway≤ áreturε ì immediatel∙ át∩ thσ servicσ selectioε ámen⌡ ì afte≥ clearinτ thσ screen. @bright @co∞ char,white,blue @END @NF RESULTS $help_window$ Wheε áthσ applicatioε ha≤ finisheΣ árunning¼ ì yo⌡ ma∙ optionall∙ reques⌠ tha⌠ áTaskmaste≥ ì make≤ áonσ oµ thσ check≤ showε iε thσ ámen⌡ ì below. Iµ yo⌡ reques⌠ an∙ oµ thesσ checks¼ yo⌡ ácaε ì als∩ áoptionall∙ áreques⌠ átha⌠ á ß áfurthe≥ ì applicatioε bσ ruε dependinτ oε thσ áresul⌠ ì oµ tha⌠ check. @dim $wconf$ @bbimenu red,white RESULT CHECKING {No check required } {Examine message on screen } {Look for a named file } {Check ERRORLEVEL value } @END @NF CHECK2 è@STR MIN1 @NUM MAX 25 @COL CHAR,YELLOW,blue @WINDOW LINE 16,COLUMN 30,DEPTH 7,WIDTH 48 @border What is the text string to search for ? [ ] Do you know its line number 0-24 ? [25] Put 25 in box if not known. $help_window$ Taskmaste≥ wil∞ looδ a⌠ thσ screeε wheε áthσ ì applicatioε áha≤ áfinisheΣ át∩ á seσ áiµ ááß ì specifieΣ characte≥ strinτ exists¼ e.g« áaε ì erro≥ message. I⌠ ácaε perforφ thi≤ morσ reliably¼ áiµ áyo⌡ ì caε átel∞ i⌠ thσ precisσ linσ numbe≥ áwherσ ì thσ ácharacter≤ arσ t∩ bσ áfounΣ á(assuminτ ì it'≤ alway≤ thσ samσ !) @bright @co∞ char,white,blue @END @NF CHECK3 @DRAW @PATH @FILE @COL CHAR,YELLOW,blue @WINDOW LINE 16,COLUMN 30,DEPTH 7,WIDTH 48 What is the path ? [ ] and the filename ? [ ] $help_window$ Thσ áásucces≤ áoµ áaε áapplicatioε áma∙ áábσ ì measureΣ áb∙ thσ existencσ oµ ß á particula≥ ì filσ áafte≥ áuse¼ e.g« downloadinτ áfroφ áß ì Mainframσ viß filσ transfer. Taskmaste≥ áwil∞ átr∙ t∩ finΣ thσ áfilσ áyo⌡ ì specify. @bright @co∞ char,white,blue @END @NF CHECK4 @DRAW @LIST SF @NUM MIN0,MAX255 è@COL CHAR,YELLOW,blue @WINDOW LINE 16,COLUMN 30,DEPTH 7,WIDTH 48 Values of MS-DOS ERRORLEVEL parameter to check for ? S=value for success, F=value for failure [S] ERRORLEVEL value [ 0] 0-255 $help_window$ Man∙ program≤ returε aε ERRORLEVE╠ value. This is a code in the range 0-255 which is mormally used to indicate success or failure of a program. Yo⌡ neeΣ t∩ sa∙ iµ thσ valuσ yo⌡ specif∙ ái≤ ì ß á"successó ácodσ o≥ ß "failureó ácodσ áb∙ ì answerinτ "Só o≥ "Fó respectively. @bright @co∞ char,white,blue @END @NF RUN_AFTER_CHECK @STR MIN1 @LIST FS @LOG @path optional $wconf$ MS-DOS command to obey after "{ }" finished ? [ ] F=run on fail, S=run on success ? [F] Command needs all available memory ? [N] Y=YES,N=NO Path to use when invoking the command ? [ ] $help_window$ Yo⌡ ma∙ wan⌠ t∩ ente≥ ß furthe≥ áapplicatioε ì iε áthσ áeven⌠ tha⌠ áthσ á maiε áapplicatioε ì give≤ áß specifiπ result¼ accordinτ t∩ áthσ ì check≤ yo⌡ havσ specified. Answerinτ áá"Fó áámean≤ átha⌠ ááthσ ááseconΣ ì applicatioε áwil∞ ruε iµ thσ áfirs⌠ á fails« ì "Só mean≤ thσ converse. @bright @co∞ char,white,blue @END @SPACES LEN72 @NF USER_HELP @repeat x4 @STR è$wconf$ @COL CHAR,WHITE,blue End User HELP text for this option : @COL CHAR,YELLOW,blue @repeat x4 [_] $help_window$ Wheε áááthσ áááservicσ áááselectioε ááátask║ ì STANDARD.TS╦ ái≤ árunning¼ áthσ áuse≥ áá caε ì reques⌠ ádetail≤ áoµ an∙ áoµ áthσ á service≤ ì availablσ oε it≤ menu. Yo⌡ caε suppl∙ upt∩ fou≥ line≤ oµ tex⌠ t∩ bσ ì displayed. @bright @co∞ char,white,blue @END @NF KHELP @dim @col char,cyan,blue @win line17,column1,depth6,width78 Cursor: First field: Home Action: Editing: Delete from cursor to end of field = ctrl/T Character insert: ins Character delete: del or ctrl/G @bright @col char,white,blue @END @NF PROMPT_TYPE @LOG $wconf$ Command : {$cmd$} Parameter %{ } ? Is its value determined by a Y/N answer ? [N] $help_window$ Iµ thσ valuσ oµ thi≤ paramete≥ i≤ se⌠ b∙ thσ ì answe≥ át∩ ß Y/╬ question¼ yo⌡ caε áspecif∙ ì thσ átw∩ á values¼ onσ oµ whicΦ i≤ áuseΣ áa⌠ ì ruε-time. E.g« áCOP┘ %▒ A:%▓ Supposσ tha⌠ yo⌡ áwanteΣ ì verificatioε át∩ ábσ áoptional¼ á yo⌡ ácoulΣ ì specif∙ á%▓ a≤ /╓ o≥ nul∞ dependinτ oε áthσ ì answe≥ t∩ you≥ prompt. @bright @co∞ char,white,blue @END @NF YESNO_VALUES @STR MIN1 @STR @STR $wconf$ Command : {$cmd$} Parameter %{ } ? User responds Y/N to prompt. Prompt [$s40$] (No question-mark needed) Value when 'Y' [$s40$] Value when 'N' [$s40$] $help_window$ Pleasσ suppl∙ thσ promp⌠ (question⌐ anΣ áthσ ì tw∩ possiblσ value≤ yo⌡ wisΦ thσ áparamete≥ ì t∩ take. Fo≥ ß nul∞ value¼ leavσ thσ fielΣ empty. @bright @co∞ char,white,blue @END è @nf EXPERT @path optional @str min1 @log @num @log @log @num $main_win$ Optional path for file CATALOG.EUC: [ ] Name of user or Company name etc. [ ] High Security ? [ ] Y=yes, N=No Auto-Logout ┐ [10▌ Ente≥ ░ iµ facilit∙ no⌠ required Black-out ? [Y] Y=Yes, N=No Allow SHELLS ? [N] Y=Yes, N=No User-grou≡ ? [99] EUC user-group number (0 = ALL users) Press to leave unchanged. $end_main$ @end @EOF