Programmer 7500

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

/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / TM480.ZIP / TMISSUE.EXE / STANDARD.TSK < prev

Wrap

Text File | 1991-09-10 | 36.8 KB | 1,864 lines

go 1INIT ;see notes there 1BEGIN until forever go 1LOGIN 1ENDLOG trim uname move 0ffcfh to bbmask move autolog to timer MENU 1,serv,texts OPTION 1,42 move hilite to choice clear bbdisp subtract 1 from hilite giving i if hilite = lasthelp return fi move i to j multiply j by 4 add 4 to j giving k insert entry i of texts if entry j of hlp = spaces move 'SORRY' to form else move 'INFO' to form until j = k insert entry j of hlp fi j fi put form nowait move hilite to lasthelp return OPTION 1,44 if m2id = 0 put features nowait nodata popget m2id put clearkeys nowait popget ckid else popdown ckid popdown m2id fi move 0ffe1h to bbmask move hilite to topic1 popdown bclr move autolog to timer clear bbdisp lasthelp MENU 2,features OPTION 2,30 option 2,45 option 2,99 clear bbdisp move topic1 to choice popdown p1 return 1 OPTION 2,2 fieldfill fn1 popdown khelp put dpfile popdown bclr if funkey = 10 move hilite to choice clear bbdisp return fi get fn1 trim fn1 run fmpdir '\LIST ' fn1 popfree p0 popscreen p0 popdown p1 move hilite to choice popdown ckid popdown m2id clear bbdisp return OPTION 2,3 popdown p0 go 1CAPTURE OPTION 2,4 go 1JOTTER OPTION 2,5 move hilite to i if sfiles = spaces insert current_path put nocats return fi insert sfiles move 8020h to bbmask put servcats clear bbdisp if choice > 10 move i to choice return fi move servcat to lastcat move display to servcat trim servcat if servcat = lastcat move i to choice return fi move true to newcat move true to bbdisp exitm OPTION 2,6 go 1ST OPTION 2,7 fieldfill current_path popdown khelp put newpath popdown bclr if funkey <> 10 if funkey = 2 move initial_path to cpath else get cpath trim cpath fi if cpath <> current_path user cpath move cpath to current_path fi if cpath sw '~:' move cpath to drv select drv else move ddrive to drv fi dspace if resp = 0ffffh insert drv put nodrive else insert sysfree display ddrive put freebytes nowait fi fi clear bbdisp move hilite to choice return OPTION 2,8,9 if shellout go 1shell fi put noshells move hilite to choice clear bbdisp return OPTION 2,1 forms LOGON.OVR put bounce_bar ul wt forms stforms popdown p1 move hilite to choice popdown ckid popdown m2id clear bbdisp return OPTION 1,1,10 popdown bclr subtract 1 from choice giving i move entry i of paths to cpath replace all '\FMP' of cpath with fmpdir move entry i of cmds to cmd trim cpath cmd move time to timenow move entry i of t1 to tim1 move entry i of t2 to tim2 clear na replies if timenow >= tim1 and timenow <= tim2 elseè move true to na fi if cmd = ';' or entry i of texts = spaces or na insert entry i of texts if na insert tim1 tim2 move 'NOAVAIL' to form else move 'NOSERV' to form fi put form nowait clear bbdisp else move '1RTN' to label go 1PARSUB 1RTN move entry i of dts to dta trim dta if dta <> null data dta move entry i of wst to j if j = 0 behave 2 else behave 2 wait j fi fi fore 7 back 0 display CLS user cpath if entry i of pty = 'N' run cmd else large cmd fi if resp <> 0 go 1BADRUN fi move entry i of res to j move true to run1 if j <> 1 go 1CHECK 1ENDCHK fi if entry i of pau = 'Y' and run1 userline 'Paused as requested - ' wt inkey char fi user current_path popfree p0 popup p0 from p1 clear bbdisp fi dspace insert sysfree display ddrive put freebytes nowait move hilite to choice return OPTION 1,11 clear reason if demo increment reason else if not secure move 2 to reason fi fi if uname = guest move 4 to reason else popdown khelp put 'NEWPASS' popdown bclr if anyfk clear bbdisp return fi get oldpass newpass if oldpass = pass move 10 to resp password newpass move newpass to pass else move 3 to reason fi fi if reason <> 0 decrement reason insert entry reason of reasons put passfail fi clear bbdisp return OPTION 1,12 logout exitm OPTION 1,13 if nstat = 0 put noipx nowait clear bbdisp return fi go 1MSG option 1,43 combine catloc '\CATALOG.EUC' into sline insert version stype ldspec cfp sline put about clear bbdisp move hilite to choice return OPTION 1,30 OPTION 1,45 put logoff get yesno if not yesno clear bbdisp move hilite to choice return fi logout exitm OPTION 1,99 logout ENDM 2 exitm ENDM 1 if newcat move '1RESTART' to loaded put loading nowait go 1RESTORE 1RESTART fi fiè 1CHECK clear sline found k move entry i of res1 to stext move entry i of res2 to l trim stext MENU 3,J OPTION 3,2 if l < 25 scanvid l giving sline if sline ct stext move true to found fi else until k = 25 or found scanvid k giving sline if sline ct stext move true to found fi fi k fi exitm OPTION 3,3 combine stext '\' entry i of res2 into sline trim sline lookfor sline exitm OPTION 3,4 move stext to char upper char move true to found if char = 'S' and l = elevel else if char = 'F' and l <> elevel else clear found fi fi exitm ENDM 3 move entry i of apt to char upper char if not found userline 'Service response not as expected - ' wt if char = 'S' move true to found fi inkey char else if char = 'S' clear found fi fi if not found move entry i of ap to cpathè move entry i of ac to cmd trim cpath cmd move '2RTN' to label go 1PARSUB 2RTN user cpath display cls if entry i of apt = 'N' run cmd else large cmd fi clear run1 fi if resp <> 0 go 1BADRUN fi goback 1ENDCHK 1PARSUB setscan cmd move hilite to choice clear j delim prog scan prog add i to i giving k add k to k until j = 4 if cmd ct entry j of pcs move entry j of replies to param if param = spaces move entry k of prompts to prompt trim prompt combine prompt ' ?' into sline move entry k of pqs to yesno insert prog sline if yesno put query get reply else fieldfill entry k of pdefs put getparam get param fi if funkey = 10 if label = '1RTN' popdown bclr else user current_path popfree p0 popup p0 from p1 fiè clear bbdisp return fi if yesno if reply move entry k of pdefs to param else move entry k of p2defs to param fi fi trim param fi replace all entry j of pcs of cmd with param move param to entry j of replies fi increment j fi k replace all '%M' of cmd with mflag replace all '%F' of cmd with fmpdir goback LABEL 1SHELL popdown p0 fore 7 back 0 display cls if choice = 8 run else large fi user cpath select ddrive popdown p1 popdown ckid popdown m2id dspace insert sysfree display ddrive put freebytes nowait move hilite to choice clear bbdisp return 1MSG if eucn = 0 put nosysadm else popdown khelp put whatmsg popdown bclr if not anyfk get msg trim msg if msg <> null ms eucn uname ':' msg if resp <> 0 put msgnotrx else move time to mst move cn to vwcn move eucn to veucn insert msg mst vwcn veucn put rxdetails fi fi fi fi clear bbdisp return 1LOGIN if not eusr or skip_login go 2LOGIN fi move 1 to respèclear try until resp = 0 or try = 3 insert site if try > 0 insert logfail fi move 120 to timer if not secure fieldfill guest fi put log noclear ul if funkey = 10 stop fi if resp = 1 if blackout fore 0 back 0 display cls inkey char fi clear try else get uname pass if build@ <> 1 or uname sw guest move 999 to resp fi login uname pass ug if resp <> 0 if resp <> 3 increment try else move 1 to try ms server 'User ' uname ': login failure ' resp put dupeuser fi if try = 3 clear I put hack wait 1 noclear move 9 to delay ;half a sec if demo move 5 to bells fi until i = bells wait 1 display bell fi i move 18 to delay clear try if demo insert site put 'ALERT' nowait stop fi fi move 1 to resp fi fi fi if ug = 99 move 'LOG3' to log 2LOGIN fi move shell to shellout if shell if eusr and sug = 0 or ug = sug else clear shellout fi fi if not newcat and not shellout disable shelling fi popdown p1 clear bbdisp choice skip_login goback 1ENDLOG 1ST if colour move 'CGA' to vtype fi if graphics move 'EGA' to vtype fi put 'STATS' nowait cursor 17 22 servcat if secure cursor 17 47 'High' else cursor 17 48 'Low' fi if mins = 0 cursor 17 70 'Off' else cursor 17 68 mins ' mins.' fi cursor 18 22 ms1 '.' ms2 cursor 18 43 date cursor 18 70 vtype cursor 19 19 sysmax 'K' cursor 19 47 version cursor 19 72 ddrive cursor 20 21 sysfree cursor 20 46 residency cursor 20 68 elevel if nstat <> 0 cursor 21 19 'loaded' fi cursor 21 46 cn cursor 21 68 eucn cursor 22 13 current_path clear bbdisp move hilite to choice return 1BADRUN move resp to char if responses ct char move entry fcol of rforms to form else move resp to cresp with lead_zeroes insert cresp move 'BRX' to form fièpopfree p0 popup p0 from p1 clear bbdisp put form nowait user current_path return 1CAPTURE fore 1 back 7 move hilite to choice userline 'STANDARD: C = Capture screen to disc, any other key for main screen' cursor 0 0 inkey char clear bbdisp if char = 'C' popdown khelp put capture popdown bclr if funkey <> 10 get sline char trim sline dir sline if found insert sline put exists get create if not create popdown p1 popdown ckid popdown m2id return fi fi popdown p0 behave 3 sline clear i until i = 25 clear sline scanvid i giving sline if char = 'T' move sline to sline2 trim sline data sline if sline <> sline2 data crlf fi else data sline fi if resp <> 0 put sferr move 24 to i fi fi i if char = 'T' data ef fi behave 0 fi fi popdown p1 popdown ckid popdown m2id return 1JOTTER move hilite to j clear create if nopads = 0 move '--------' to pads fi insert pads move 0a020h to bbmask put notepads clear bbdisp if choice = 30 or choice = 40 move j to choice return fi move display to jotter popdown khelp if choice = 32 or jotter = dashes put memname if funkey <> 10 get jotter clear jot move true to create else move j to choice return fi fi move j to choice trim jotter combine initial_path '\' jotter '.TMJ' into jotname replace '\\' of cfp with '\' if not create restore jotname jot if resp <> 0 go 1J fi restore else dir jotname if found insert jotname put exists get create if not create popdown bclr return fi fi fi fieldfill jot insert jotter put mem popdown bclr clear i if funkey <> 10 until i = 10 get entry i of jot fi i save jotname jot if resp <> 0 go 1J fi save if create and nopads < 10 move jotter to entry nopads of pads increment nopads fi fi go 2J 1J insert jotname if not create if resp = 99 insert garbage else insert badread fi restore else insert badmake save fi put badnotes 2J if create dspace insert sysfree display ddrive put freebytes nowait fi return 1INIT vconst cyan_on_blue,68 cursor 0 0 display cyan_on_blue draw 10 20 14 60 cursor 12 22 'Initialising ... please wait' ;DATA commands placed here to make more room for code avoiding overlays DEFINE BELLS,60 INT AUTOLOG INT BCLR INT CKID INT I,J,K,L INT KHELP INT LASTHELP INT M2ID INT MINS INT NOPADS INT P0,P1 INT REASON INT RESIDENCY INT SUG INT TOPIC1 INT TRY INT UG INT WID var garbage,20,'contains garbage ' var badread,20,'could not be read ' var badmake,20,'could not be created' VAR AC,60,OCCURS 10 VAR AP,68,OCCURS 10 VAR APT,1,OCCURS 10 VAR APF,1,OCCURS 10 VAR BLACK,1 VAR CATLOC,68 VAR CFP,68 VAR CHAR,1 VAR CMD,80 VAR CMDS,60,OCCURS 10 VAR CPATH,68 VAR CRESP,5,'00000' VAR CURRENT_PATH,68 VAR DATE11,11 VAR DRV,1 VAR DTA,64 VAR DTS,64,OCCURS 10 VAR FILENAME,14,'STANDARD' VAR FMPDIR,68,$FMPDIR VAR FN1,60 VAR FORM,8 VAR GUEST,16,'guest' VAR HLP,72,OCCURS 56 VAR INITIAL_PATH,68 VAR LABEL,4 VAR LASTCAT,8 VAR LOADED,12,'1BEGIN' VAR LOG,4,'LOG1' VAR LOGFAIL,23,'Invalid login ... retry' VAR JOTTER,8 VAR JOTNAME,68 VAR JOT,40,OCCURS 10 VAR MFLAG,2 VAR MSG,38 VAR MST,8 VAR MSVER,3,'X.X' VAR MS1,1,' 'èVAR MS2,1,' ' VAR NEWPASS,16 VAR NOSERVCAT,11,'Unavailable' VAR NULL,1 VAR OLDPASS,16 VAR PADS,8,OCCURS 10 VAR PARAM,40 VAR PASS,16 VAR PATHS,68,OCCURS 10 VAR PAU,1,OCCURS 10 VAR PCS,2,OCCURS 4,'%1%2%3%4' VAR PROG,8 VAR PROMPT,40 VAR PROMPTS,40,OCCURS 40 VAR REPLIES,40,OCCURS 4 VAR PDEFS,40,OCCURS 40 VAR P2DEFS,40,OCCURS 40 VAR PQS,1,OCCURS 40 VAR PTY,1,OCCURS 10 VAR REASONS,29,OCCURS 4, 'Running in Demonstration mode' 'Not allowed when Security low' 'Incorrect old password given ' 'Change not allowed for guests' VAR RES,1,OCCURS 10 VAR RES1,40,OCCURS 10 VAR RES2,40,OCCURS 10 VAR RESPONSES,5,'25678' VAR RFORMS,3,OCCURS 5, 'BR2' 'BR2' 'BR6' 'BR7' 'BR8' VAR SLINE,80 VAR SLINE2,80 VAR SERVCAT,8,'CONFIG' VAR SFILES,8,OCCURS 10 VAR SITE,24 VAR STEXT,40 VAR STFORMS,68 VAR STYPE,28,'Unregistered Shareware V4.80' VAR T1,5,OCCURS 10 VAR T2,5,OCCURS 10 VAR TEXTS,16,OCCURS 13 VAR TIM1,5 VAR TIM2,5 VAR TIMENOW,5 VAR TIMEOUT,2 VAR UNAME,16 VAR VERSION,5,'V1.04' VAR VTYPE,3,'MDA' VAR VEUCN,3 VAR VWCN,3 VAR WST,2,OCCURS 10 VAR WT,17,'press any key ...' HEXVAR BELL,07 HEXVAR CRLF,0D0A HEXVAR EF,1A LOGICAL BLACKOUT LOGICAL CREATE LOGICAL EUSR LOGICAL FIRST LOGICAL FOREVER LOGICAL NA LOGICAL NEWCAT LOGICAL PREV_EUSR LOGICAL REPLY LOGICAL RUN1 LOGICAL SECURE LOGICAL SKIP_LOGIN LOGICAL SHELL LOGICAL SHELLOUT LOGICAL YESNOè vconst cls,11 END if build@ = 1 move 'Professional V4.80' to stype fi if build@ = 2 move 'Registered Shareware V4.80' to stype fi if fmpdir = null move 'C:\FMP' to fmpdir fi move resp to msver ;e.g. returns ' 33' move zero to delim move fcol to residency combine fmpdir '\STANDARD.OVR' into stforms replace all '\\' of stforms with '\' if not colour move '/M' to mflag fi setscan msver 1 scan ms1 ms2 ;need each digit user current_path user initial_path move true to hide lookfor stforms if not found insert filename stforms display cls put no_fmpdir_forms nowait stop 1 fi popscreen p0 screen 1 forms stforms 1RESTORE combine initial_path '\' servcat '.TMS' into cfp replace '\\' of cfp with '\' restore cfp 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 back 1 cyrsor 17 2 'Fatal Error:' if resp = 99 cursor 18 2 'Service file ' cfp ' is corrupt' else cursor 18 2 'Service file ' cfp ' could not be opened' fi stop 2 fi move black to blackout if catloc <> null move true to eusr fi if newcat and eusr and prev_eusr move true to skip_login fi move eusr to prev_eusr if secure move 'LOG1' to log else move 'LOG2' to log fi if eusr and not newcat catalog catloc if resp <> 0 displayln 'Catalogue open failure ' resp displayln catloc '\CATALOG.EUC not found' displayln 'Failure to open EUC Catalogue file' stop 3 fi fi screen 1 dspace insert site sysfree display ddrive ldate put start nowait insert texts put serv nodata noclear fore 15 back 1 popfree p1 popscreen p1 if khelp = 0 put 'khelp' nowait popget khelp put 'bclr' nowait popget bclr fi popdown p1 screen 0 move timeout to autolog move autolog to mins multiply autolog by 60 if not newcat 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 clear pads dir *.TMJ until not found or nopads = 10 setscan display 30 scan entry nopads of pads dir fi nopads fi clear newcat goback LOADED ENDTASK ; Title : STANDARD.TSK Last Updated : see 'about' ; Author : Mike Eastham.- FmP. Version : see 'version' ; Purpose : Standard Services Selection using Workload configuration. ; Notes : Configuration performed using CONFIG.TSK ;Following are the form, menu, popup and dropdowns to be processed by SCR ;into an .OVR file. ;Some personalisation of colours can be achieved by amending the following ;macros: @VIDEO @macro form @dim @col char,black,cyan @acceptfk esc,f10 @endm @macro form_fore,'black' @macro form_back,'cyan' @macro alert @dim @col char,white,red @endm @macro alert_fore,'cyan' @macro cancel @line @col char,blue,cyan @endm @macro info_box @dim @col char,black,green @win line17,column1,depth6,width78 @endm @macro alert_box @dim @col char,white,red @win line17,column1,depth6,width78 @endm @macro normal_text @bright @col char,white,blue @endm @default≤ dim,cyan,blue @head left,' SERVICE SELECTION' @head right,'Copyright (C) FmP 1991' @head centre,'{ }' @macro noserv @bright @col char,white,green @win line17,column1,depth6,width78 { } @endm @macro bwin,'@win line17,column1,depth6,width78' @markers [] @nf start @col char,cyan,blue @banner @col char,white,blue @win line1,column0,depth23,width80 @out white,double @dim @col char,black,white @win line4,column28,width48,depth9 @out black Help about the highlighted service ... @line Other facilities ... PgDown @line About ... PgUp @line Exit ... Esc / End @bright @col char,white,blue { } Memory{ } bytes free on drive{ } @dim @col char,black,white @use '{ } Taskmaster STANDARD task' @end @nf freebytes @bright @col char,white,blue @window line16,column28,width50,depth1 { } Memory{ } bytes free on drive{ } @end @nf about $form$ @win line3,column4,width72,depth18 @drop @outline $form_fore$,double ABOUT ... @line This is the STANDARD end-user service task{V1.04} dated 28/08/91 interpreted by Taskmaster{Unregistered Shareware V4.80} @line Optional interface to the End User Computing (EUC) facility. @line Copyright (C) FmP 1991. All rights reserved worldwide. @line Loaded { } Service file { } EUC catalogue { } $cancel$ Acknowledge ... any key @end @nf serv @dim @col char,black,white @win line2,column2,depth15,width24 @out red F1 F2 F3 F4 F5 F6 F7 F8 F9 @win line2,column2,depth15,width19 @dim @bbmenu red,white @fkmap @out red 8 @repeat x13 { } 2 @END @nf clearkeys @col char,black,white @win line3,column22,depth9,width2 @end @nf features @dim @col char,blue,cyan @win line 2,column 28,depth14,width 50 @bbmenu blue,cyan @fkmap @out black @key bright,white,cyan {Help on the use of Bounce-bar menus ... F1 } {Display the contents of a File ... F2 } {View/save output from last Application ... F3 } {Provides a simple Notepad facility ... F4 } {Loads alternative service catalogues ... F5 } {Give information about PC environment ... F6 } {Change working drive and/or directory ... F7 } @line {SHELL OUT - i.e. begin new DOS shell ... F8 } {SHELL OUT - make all memory available ... F9 } @line Service selection ... Esc / End @end @nf noshells $alert$ @window line 8,column16,width48,depth8 @outline $alert_fore$ @drop SECURITY @line The system administrator has not granted you a SHELL facility. @line @bright Acknowledge ... any key @end @head left,'STANDARD: SESSION LOGIN' @macro log @banner @border @str min1 @str USERNAME ? [. ] Enter your name and optional password, press PASSWORD ? [! ] { } @border @endm ; TEMPLATES FOR SESSION LOGIN @nf log1 @acceptfk none $log$ @bright @END @nf log2 @acceptfk f10è$log$ Thi≤ átasδ i≤ runninτ with certain security features switched off and you can optionally quit now by pressing F10. áááááSimilarly¼ áusernamσ á'guestº i≤ onl∙ availablσ iε áthi≤ ámode« áUser≤ ì áááááare normall∙ requireΣ t∩ ente≥ ß valiΣ usernamσ anΣ passworΣ áa≤ setu≡ b∙ thσ Systeφ Administrato≥ o≥ yourself. When using EUC, security is always high and users are catalogued into a user-group. Users in group 99, once logged-in are also permitted to escape from the task. @bright @END @nf log3 @acceptfk f10 $log$ To exit, press F10. @bright @end @nf dupeuser $alert$ @window line4,column4,width72,depth17 @drop @out $alert_fore$ Problem: A user with this name is already logged-on. @line Possible reasons: @line 1. You are working on a network and somebody else has already logged on using the same name. This may be a breach of security. @line 2. The system crashed on a previous occasion giving Taskmaster no opportunity to mark the user off-line in the EUC catalogue @line Action: I have sent a message to the System Administrator informing him of the problem but I cannot guarantee its receipt. @line @bright Acknowledge ... any key @end @nf hack $alert_box$ $bwin$ U N A U T H O R I S E D A C C E S S A T T E M P T E D @END @nf alert @head left,STANDARD: SECURITY @dim @col page,cyan,red @banner @border You have failed three times to give a valid username and password. Becausσ áthi≤ átasδ ái≤ runninτ iε demonstratioε ámode¼ áthσ áaler⌠ áha≤ ì áááceased« áNormally¼ ái⌠ woulΣ havσ gonσ oε fo≥ mucΦ longe≥ áiε áorde≥ át∩ ì áááaler⌠ other≤ t∩ ß possiblσ unauthoriseΣ attemp⌠ t∩ acces≤ you≥ system. Afte≥ áß ásuitablσ áperiod¼ ß logiε woulΣ theε ábσ árequireΣ áagain« áIε ì ááápractice¼ iµ yo⌡ neeΣ ß higΦ leve∞ oµ security¼ yo⌡ shoulΣ amenΣ áyou≥ ì áááAUTOEXEC.BATê filσ t∩ loaΣ T═ STANDARDê oε ß dail∙ basis. If you are developing your own secure task, you should make sure that you disable Breakin via the CTRL/C and CTRL/Break keys by using Taskmaster's DISABLE command. When you combine these features with a login procedure that requires password entry, and the passwords are encrypted, you have the basis of a secure system. $normal_text$ @end @nf logoff @acceptfk none @log $alert$ @win line7,column18,depth11,width44 @drop @out $alert_fore$ End session ? [Y] Y=Yes, N=No @line No ... Cancel the request @line Yes ... Return to the logon screen @line @bright Action ... @end ; TEMPLATES FOR PASSWORD UPDATE @nf newpass $form$ @str @str @win line2,column26,depth12,width46 @drop @out $form_fore$ OLD PASSWORD ? [! ] NEW PASSWORD ? [. ] @line The password can't be changed when running in demonstration mode or when security is set low. The 'guest' password can never be changed. $cancel$ Cancel ... Esc / F10 @end @nf passfail $alert$ @win line8,column19,depth7,width42 @drop under @out $alert_fore$ Password unchanged .. @line Reason: { } @line @bright Acknowledge ... any key @end @nf stats @dim @col char,cyan,blue $bwin$ Service file Security Auto logout Dos version Date Video mode Maximum memory STANDARD vers. Default drive Available memory Resident code ERRORLEVEL NETWARE IPX - WCN. - EUC WCN. - Directory @end @nf infoè$info_box$ { } @repeat x4 { } @END @nf bclr @col char,cyan,blue $bwin$ @end @nf sorry $noserv$ SORRY : No information about this service has been provided by the System Administrator. @end @nf noserv $noserv$ This service has not yet been fully installed. Contact your System Administrator or complete installation using CONFIG.TSK @END @nf noavail $noserv$ This service is only available between the hours of{ } and{ } Please try again as appropriate. @END @nf noipx $alert_box$ è Messages can only be sent to the System Administrator when running on a NOVELL NETWORK. There was no active networking software on your m/c at the time this task was loaded. @end @nf khelp @dim @col char,cyan,blue $bwin$ Cursor: First field: Home Action: Editing: Delete from cursor to end of field = ctrl/T Character insert: ins Character delete: del or ctrl/Gè@END ; TEMPLATES FOR SERVICE CATALOGUE SELECTION @nf servcats $form$ @acceptfk f1 @win line2,column17,depth17,width46 @bbmenu $form_fore$,$form_back$ @drop @out $form_fore$ SELECT SERVICE MENU @line @repeat x5 { } { } @line If the new services are available only to specific users or have a higher security, you may be required to login again. $cancel$ Select ... Action ... Cancel ... Esc / F10 @end @nf nocats $alert$ @win line8,column4,depth9,width72 @drop @out $alert_fore$ No service catalogues found in the current working directory: { } @line The master service file is called CONFIG.TMS and normally resides in C:\FMP or as defined by the environment variable FMPDIR. @line @bright Acknowledge ... any key @end @nf loading $alert$ @win line7,column20,depth10,width40 @outline $alert_fore$,double @bright @draw LOADING NEW SERVICE CATALOGUE @draw Please Wait ... @end @nf nodrive $alert$ @win line9,column14,depth7,width52 @drop @out $alert_fore$ Drive{ } is not responding. @line If it is a floppy, check that the door is closed. @line @bright Acknowledge ... any key @end @nf br2 $alert_box$ Invalid COMSPEC or COMMAND.COM not found áááTaskmaste≥ ácoulΣ no⌠ finΣ COMMAND.CO═ o≥ thσ prograφ specifieΣ b∙ áthσ ì áááCOMSPE├ environmen⌠ variable« Non-hard disc users : pleasσ check that that your BOOT (system) disc is in the drive. @end @nf br6 $alert_box$ Unable to create swap file áááTaskmaste≥ áha≤ ábeeε áunablσ t∩ loaΣ thσ árequireΣ áapplicatioε áwhicΦ ì áááneedeΣ mos⌠ oµ thσ basiπ memory« Normall∙ Taskmaste≥ copie≤ itselµ ou⌠ ì ááát∩ ádisπ áiε orde≥ t∩ makσ rooφ bu⌠ i⌠ couldn'⌠ creatσ ß á'SWAPº áfile« ìèáááPleasσ checδ tha⌠ you≥ disπ ha≤ rooφ anΣ thσ TM╨ environmen⌠ variable« @end @nf br7 $alert_box$ Disc write error on swap file áááTaskmaste≥ áha≤ ábeeε áunablσ t∩ loaΣ thσ árequireΣ áapplicatioε áwhicΦ ì áááneedeΣ mos⌠ oµ thσ basiπ memory« Normall∙ Taskmaste≥ copie≤ itselµ ou⌠ ì ááát∩ disπ iε orde≥ t∩ makσ rooφ bu⌠ i⌠ couldn'⌠ writσ t∩ thσ 'SWAPº file¼ ì ááái.e« thσ filσ t∩ whicΦ i⌠ copie≤ itself« Perhap≤ thσ disπ i≤ full. @end @nf br8 $alert_box$ Insufficient memory available áááTaskmaste≥ áha≤ ábeeε unablσ t∩ loaΣ thσ requireΣ áapplicatioε ábecausσ ì ááátherσ ái≤ no⌠ enougΦ memory« Yo⌡ caε finΣ ou⌠ ho≈ mucΦ memor∙ áremain≤ ì áááb∙ áusinτ áFunctioε ke∙ 6« I⌠ ma∙ bσ tha⌠ thσ prograφ ái≤ ásimpl∙ áto∩ ì ááálarge« Pleasσ contac⌠ you≥ systeφ administrator. @end @nf brx $alert_box$ Unexpected response ({ }) loading application áááTaskmaste≥ áha≤ attempteΣ anΣ faileΣ t∩ loaΣ you≥ applicatioε ábu⌠ áthσ ì áááreasoε áfo≥ failurσ i≤ unknown« Pleasσ tr∙ again« Iµ thσ áprobleφ ái≤ ì ááápermanent¼ áthσ ácomputer'≤ memor∙ ma∙ bσ corrupt« áPleasσ áreboo⌠ áanΣ ì áááretry.è@end ; TEMPLATES FOR SCREEN DATA CAPTURE @nf capture $form$ @str @list IT @win line1,column4,depth15,width74 @drop @outline $form_fore$ File to receive captured screen data ? [. ] [T] I=store as image file, T=store as text file @line Image file: an exact copy of the screen (i.e. 2000 characters). @line Text file : has trailing spaces removed from each line and a carriage- return, linefeed sequence appended to each unless the line is 80 characters long. $cancel$ Cancel ... Esc / F10 @end @nf sferr $alert$ @win line8,column13,depth8,width54 @drop @outline $alert_fore$ DISC ERROR @line Attempting to create or write to screen image file @line @bright Continue ... any key @end @nf exists $alert$ @log @win line8,column3,depth8,width74 @drop @outline $alert_fore$ File{ } already exists. @line Do you want to overwrite it ? [Y] Y=Yes, N=No @line @bright Action ... @end @nf newpath $form$ @acceptfk f2 @path @win line3,column4,depth14,width70 @drop @out $form_fore$ CHANGE WORKING DRIVE AND/OR DIRECTORY @line New working directory ? [. ] @line Enter pathname. A drive specifier (a-z) is optional. @line If the field marker flashes, then either the drive specifier or path is invalid. $cancel$ Restore initial drive and directory ... F2 Cancel ... Esc / F10 @end @nf dpfile @file exists $form$ @win line6,column4,depth12,width72 @drop under @outline $form_fore$ DISPLAY FILE @line Filename ? [. ] @line A path may be included. The opening field marker will flash if the file does not exist. Press CTRL/T if you wish to clear the field. $cancel$ Cancel ... Esc / F10 @end ; TEMPLATES FOR PROGRAM DATA CAPTURE @nf query @log $form$ @window line7,column20,depth10,width48 @drop @outline $form_fore$ Program / DOS command ... { } @line { } @line Answer ... [Y] Y=Yes, N=No $cancel$ Action ... Cancel ... Esc / F10 @end @nf getparam @str $form$ @window line7,column20,depth10,width48 @drop @outline $form_fore$ Program / DOS command ... { } @line { } @line [. ] $cancel$ Default ... Cancel ... Esc / F10 @end ; TEMPLATES FOR THE NETWORK MESSAGING FEATURE @nf nosysadm $alert$ @win line9,column12,depth6,width56 @drop @out $alert_fore$ You can't send a message to the system administrator because he/she is not online at the moment ... @line @bright Acknowledge ... any key @end @nf whatmsg @str min1 $form$ @window line8,column16,depth8,width48 @drop @outline $form_fore$ Enter a message for the System administrator. 38 characters maximum. @line [. ] $cancel$ Cancel ... Esc / F10 @end @nf msgnotrx $alert$ @win line6,column16,depth11,width48 @drop @out $alert_fore$ Your message was not received. Perhaps the System administrator has gone 'off-line'. Alternatively, there may be too many messages pending already. Please try again later ... @line @bright Acknowledge ... any key @end @nf rxdetails @dim @col char,white,magenta @window line7,column14,depth9,width52 @drop @outline white Message:{ } sent at:{ } from workstation:{ } @line The System administrator's workstation connection number is:{ } @line @bright Acknowledge ... any key @end ; TEMPLATES FOR THE NOTEPAD FEATURE @nf notepads $form$ @win line2,column26,depth16,width46 @bbmenu $form_fore$,$form_back$ @drop under @out $form_fore$ SELECT NOTEPAD @line @repeat x5 { } { } @line Begin new notepad ... F2 $cancel$ Select ... Action ... Cancel ... Esc / F10 @end @nf memname $form$ @alpha min1,convert @win line2,column26,depth14,width46 @out $form_fore$ @drop CREATE NOTEPAD @line Name for new Notepad [. ] Use alphabetic characters only. @line A file called 'name.tmj' will be created in the default directory. $cancel$ Cancel ... Esc / F10 @end @nf mem $form$ @win line2,column26,depth15,width46 @drop @out $form_fore$ @repeat x10 @str @repeat x10 [ ] Editing{ } $cancel$ Cancel ... Esc / F10 @end @nf badnotes $alert$ @window line 5,column5,width70,depth18 @outline $alert_fore$ @drop Problem with Notepad: { } @line The file{ } @line Possible reasons: @line If reading the notepad, its file may be corrupt or someone has attempted to edit or overwrite it. @line If creating a new notepad, a most likely cause is insufficient disc space. @line Action: Exit and rectify @line @bright Acknowledge ... any key @end @eof