home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / TM480.ZIP / TMISSUE.EXE / STANDARD.TSK < prev   
Encoding:
Text File  |  1991-09-10  |  36.8 KB  |  1,864 lines

  1. go 1INIT        ;see notes there
  2. 1BEGIN
  3. until forever
  4.   go 1LOGIN
  5. 1ENDLOG
  6.   trim uname
  7.   move 0ffcfh to bbmask
  8.   move autolog to timer
  9.   MENU 1,serv,texts
  10.   OPTION 1,42
  11.     move hilite to choice
  12.     clear bbdisp
  13.     subtract 1 from hilite giving i
  14.     if hilite = lasthelp
  15.       return
  16.     fi
  17.     move i to j
  18.     multiply j by 4
  19.     add 4 to j giving k
  20.     insert entry i of texts
  21.     if entry j of hlp = spaces
  22.       move 'SORRY' to form
  23.     else
  24.       move 'INFO' to form
  25.       until j = k
  26.         insert entry j of hlp
  27.       fi j
  28.     fi
  29.     put form nowait
  30.     move hilite to lasthelp
  31.     return
  32.   OPTION 1,44
  33.     if m2id = 0
  34.       put features nowait nodata
  35.       popget m2id
  36.       put clearkeys nowait
  37.       popget ckid
  38.     else
  39.       popdown ckid
  40.       popdown m2id
  41.     fi
  42.     move 0ffe1h to bbmask
  43.     move hilite to topic1
  44.     popdown bclr
  45.     move autolog to timer
  46.     clear bbdisp lasthelp
  47.     MENU 2,features
  48.     OPTION 2,30
  49.     option 2,45
  50.     option 2,99
  51.       clear bbdisp
  52.       move topic1 to choice
  53.       popdown p1
  54.       return 1
  55.     OPTION 2,2
  56.       fieldfill fn1
  57.       popdown khelp
  58.       put dpfile
  59.       popdown bclr
  60.       if funkey = 10
  61.         move hilite to choice
  62.         clear bbdisp
  63.         return
  64.       fi
  65.       get fn1
  66.       trim fn1
  67.       run fmpdir '\LIST ' fn1
  68.       popfree p0
  69.       popscreen p0
  70.       popdown p1
  71.       move hilite to choice
  72.       popdown ckid
  73.       popdown m2id
  74.       clear bbdisp
  75.       return
  76.     OPTION 2,3
  77.       popdown p0
  78.       go 1CAPTURE
  79.     OPTION 2,4
  80.       go 1JOTTER
  81.     OPTION 2,5
  82.       move hilite to i
  83.       if sfiles = spaces
  84.         insert current_path
  85.         put nocats
  86.         return
  87.       fi
  88.       insert sfiles
  89.       move 8020h to bbmask
  90.       put servcats
  91.       clear bbdisp
  92.       if choice > 10
  93.         move i to choice
  94.         return
  95.       fi
  96.       move servcat to lastcat
  97.       move display to servcat
  98.       trim servcat
  99.       if servcat = lastcat
  100.         move i to choice
  101.         return
  102.       fi
  103.       move true to newcat
  104.       move true to bbdisp
  105.       exitm 
  106.     OPTION 2,6
  107.       go 1ST
  108.     OPTION 2,7
  109.       fieldfill current_path
  110.       popdown khelp
  111.       put newpath
  112.       popdown bclr
  113.       if funkey <> 10
  114.         if funkey = 2
  115.           move initial_path to cpath
  116.         else
  117.           get cpath
  118.           trim cpath
  119.         fi
  120.         if cpath <> current_path
  121.           user cpath
  122.           move cpath to current_path
  123.         fi
  124.         if cpath sw '~:'
  125.           move cpath to drv
  126.           select drv
  127.         else
  128.           move ddrive to drv
  129.         fi
  130.         dspace
  131.         if resp = 0ffffh 
  132.           insert drv
  133.           put nodrive
  134.         else
  135.           insert sysfree display ddrive
  136.           put freebytes nowait
  137.         fi
  138.       fi
  139.       clear bbdisp
  140.       move hilite to choice
  141.       return
  142.     OPTION 2,8,9
  143.       if shellout
  144.         go 1shell
  145.       fi
  146.       put noshells
  147.       move hilite to choice
  148.       clear bbdisp
  149.       return
  150.     OPTION 2,1
  151.       forms LOGON.OVR
  152.       put bounce_bar ul wt
  153.       forms stforms
  154.       popdown p1
  155.       move hilite to choice
  156.       popdown ckid
  157.       popdown m2id
  158.       clear bbdisp
  159.       return
  160.   OPTION 1,1,10
  161.     popdown bclr
  162.     subtract 1 from choice giving i
  163.     move entry i of paths to cpath
  164.     replace all '\FMP' of cpath with fmpdir
  165.     move entry i of cmds to cmd
  166.     trim cpath cmd 
  167.     move time to timenow
  168.     move entry i of t1 to tim1
  169.     move entry i of t2 to tim2
  170.     clear na replies
  171.     if timenow >= tim1 and timenow <= tim2
  172.     else
  173. è      move true to na
  174.     fi
  175.     if cmd = ';' or entry i of texts = spaces or na
  176.       insert entry i of texts
  177.       if na
  178.         insert tim1 tim2
  179.         move 'NOAVAIL' to form
  180.       else
  181.         move 'NOSERV' to form
  182.       fi
  183.       put form nowait
  184.       clear bbdisp
  185.     else  
  186.       move '1RTN' to label
  187.       go 1PARSUB
  188. 1RTN
  189.       move entry i of dts to dta
  190.       trim dta
  191.       if dta <> null
  192.         data dta
  193.         move entry i of wst to j
  194.         if j = 0
  195.           behave 2
  196.         else
  197.           behave 2 wait j
  198.         fi
  199.       fi
  200.       fore 7
  201.       back 0
  202.       display CLS
  203.       user cpath
  204.       if entry i of pty = 'N'
  205.         run cmd
  206.       else
  207.         large cmd
  208.       fi
  209.       if resp <> 0
  210.         go 1BADRUN
  211.       fi
  212.       move entry i of res to j
  213.       move true to run1
  214.       if j <> 1
  215.         go 1CHECK
  216. 1ENDCHK
  217.       fi      
  218.       if entry i of pau = 'Y' and run1
  219.         userline 'Paused as requested - ' wt
  220.         inkey char
  221.       fi
  222.       user current_path
  223.       popfree p0
  224.       popup p0 from p1
  225.       clear bbdisp
  226.     fi
  227.     dspace
  228.     insert sysfree display ddrive
  229.     put freebytes nowait
  230.     move hilite to choice
  231.     return
  232.   OPTION 1,11
  233.     clear reason
  234.     if demo
  235.       increment reason
  236.     else
  237.       if not secure
  238.         move 2 to reason
  239.       fi
  240.     fi
  241.     if uname = guest
  242.       move 4 to reason
  243.     else
  244.       popdown khelp
  245.       put 'NEWPASS'
  246.       popdown bclr
  247.       if anyfk
  248.         clear bbdisp
  249.         return
  250.       fi
  251.       get oldpass newpass
  252.       if oldpass = pass
  253.         move 10 to resp
  254.         password newpass
  255.         move newpass to pass
  256.       else
  257.         move 3 to reason
  258.       fi
  259.     fi
  260.     if reason <> 0
  261.       decrement reason
  262.       insert entry reason of reasons
  263.       put passfail
  264.     fi 
  265.     clear bbdisp
  266.     return
  267.   OPTION 1,12
  268.     logout
  269.     exitm
  270.   OPTION 1,13
  271.     if nstat = 0
  272.       put noipx nowait
  273.       clear bbdisp
  274.       return
  275.     fi
  276.     go 1MSG
  277.   option 1,43
  278.     combine catloc '\CATALOG.EUC' into sline
  279.     insert version stype ldspec cfp sline
  280.     put about
  281.     clear bbdisp
  282.     move hilite to choice
  283.     return
  284.   OPTION 1,30
  285.   OPTION 1,45
  286.     put logoff
  287.     get yesno
  288.     if not yesno 
  289.       clear bbdisp
  290.       move hilite to choice
  291.       return
  292.     fi
  293.     logout
  294.     exitm
  295.   OPTION 1,99
  296.     logout
  297.   ENDM 2
  298.     exitm
  299.   ENDM 1
  300.   if newcat
  301.     move '1RESTART' to loaded
  302.     put loading nowait
  303.     go 1RESTORE
  304. 1RESTART
  305.   fi
  306. fi
  307. è
  308. 1CHECK
  309.  
  310. clear sline found k
  311. move entry i of res1 to stext
  312. move entry i of res2 to l
  313. trim stext
  314. MENU 3,J
  315. OPTION 3,2
  316.   if l < 25
  317.     scanvid l giving sline
  318.     if sline ct stext
  319.       move true to found
  320.     fi
  321.   else
  322.     until k = 25 or found
  323.       scanvid k giving sline
  324.       if sline ct stext
  325.         move true to found
  326.       fi
  327.     fi k
  328.   fi
  329.   exitm
  330. OPTION 3,3
  331.   combine stext '\' entry i of res2 into sline
  332.   trim sline
  333.   lookfor sline
  334.   exitm
  335. OPTION 3,4
  336.   move stext to char
  337.   upper char
  338.   move true to found
  339.   if char = 'S' and l = elevel
  340.   else
  341.     if char = 'F' and l <> elevel
  342.     else
  343.       clear found
  344.     fi
  345.   fi
  346.   exitm
  347. ENDM 3
  348. move entry i of apt to char
  349. upper char
  350. if not found
  351.   userline 'Service response not as expected - ' wt
  352.   if char = 'S'
  353.     move true to found
  354.   fi
  355.   inkey char
  356. else
  357.   if char = 'S'
  358.     clear found
  359.   fi
  360. fi
  361. if not found  
  362.   move entry i of ap to cpath
  363. è  move entry i of ac to cmd
  364.   trim cpath cmd 
  365.   move '2RTN' to label
  366.   go 1PARSUB
  367. 2RTN
  368.   user cpath
  369.   display cls
  370.   if entry i of apt = 'N'
  371.     run cmd
  372.   else
  373.     large cmd
  374.   fi
  375.   clear run1
  376. fi
  377. if resp <> 0
  378.   go 1BADRUN
  379. fi
  380. goback 1ENDCHK
  381.  
  382. 1PARSUB
  383.  
  384. setscan cmd
  385. move hilite to choice
  386. clear j delim prog
  387. scan prog
  388. add i to i giving k
  389. add k to k
  390. until j = 4
  391.   if cmd ct entry j of pcs
  392.     move entry j of replies to param
  393.     if param = spaces
  394.       move entry k of prompts to prompt
  395.       trim prompt
  396.       combine prompt ' ?' into sline
  397.       move entry k of pqs to yesno
  398.       insert prog sline
  399.       if yesno
  400.         put query
  401.         get reply
  402.       else
  403.         fieldfill entry k of pdefs
  404.         put getparam
  405.         get param
  406.       fi
  407.       if funkey = 10
  408.         if label = '1RTN'
  409.           popdown bclr
  410.         else
  411.           user current_path
  412.           popfree p0
  413.           popup p0 from p1
  414.         fi
  415. è        clear bbdisp
  416.         return
  417.       fi
  418.       if yesno
  419.         if reply
  420.           move entry k of pdefs to param
  421.         else
  422.           move entry k of p2defs to param
  423.         fi
  424.       fi
  425.       trim param
  426.     fi
  427.     replace all entry j of pcs of cmd with param
  428.     move param to entry j of replies
  429.   fi
  430.   increment j
  431. fi k
  432. replace all '%M' of cmd with mflag
  433. replace all '%F' of cmd with fmpdir
  434. goback LABEL
  435.  
  436. 1SHELL
  437.  
  438. popdown p0
  439. fore 7
  440. back 0
  441. display cls
  442. if choice = 8
  443.   run
  444. else
  445.   large
  446. fi
  447. user cpath
  448. select ddrive
  449. popdown p1
  450. popdown ckid
  451. popdown m2id
  452. dspace
  453. insert sysfree display ddrive
  454. put freebytes nowait
  455. move hilite to choice
  456. clear bbdisp
  457. return
  458.  
  459. 1MSG
  460.  
  461. if eucn = 0
  462.   put nosysadm
  463. else
  464.   popdown khelp
  465.   put whatmsg
  466.   popdown bclr
  467.   if not anyfk
  468.     get msg
  469.     trim msg
  470.     if msg <> null
  471.       ms eucn uname ':' msg
  472.       if resp <> 0
  473.         put msgnotrx
  474.       else
  475.         move time to mst
  476.         move cn to vwcn
  477.         move eucn to veucn
  478.         insert msg mst vwcn veucn 
  479.         put rxdetails
  480.       fi
  481.     fi
  482.   fi
  483. fi
  484. clear bbdisp
  485. return
  486.  
  487. 1LOGIN
  488.  
  489. if not eusr or skip_login
  490.   go 2LOGIN
  491. fi
  492. move 1 to resp
  493. èclear try
  494. until resp = 0 or try = 3
  495.   insert site
  496.   if try > 0
  497.     insert logfail
  498.   fi
  499.   move 120 to timer
  500.   if not secure
  501.     fieldfill guest
  502.   fi
  503.   put log noclear ul
  504.   if funkey = 10
  505.     stop
  506.   fi
  507.   if resp = 1
  508.     if blackout
  509.       fore 0
  510.       back 0
  511.       display cls
  512.       inkey char
  513.     fi
  514.     clear try
  515.   else
  516.     get uname pass
  517.     if build@ <> 1 or uname sw guest
  518.       move 999 to resp
  519.     fi
  520.     login uname pass ug
  521.     if resp <> 0
  522.       if resp <> 3
  523.         increment try
  524.       else
  525.         move 1 to try
  526.         ms server 'User ' uname ': login failure ' resp
  527.         put dupeuser 
  528.       fi
  529.       if try = 3
  530.         clear I
  531.         put hack wait 1 noclear
  532.         move 9 to delay        ;half a sec
  533.         if demo
  534.           move 5 to bells
  535.         fi
  536.         until i = bells 
  537.           wait 1
  538.           display bell
  539.         fi i
  540.         move 18 to delay
  541.         clear try
  542.         if demo
  543.           insert site
  544.           put 'ALERT' nowait
  545.           stop
  546.         fi
  547.       fi
  548.       move 1 to resp
  549.     fi
  550.   fi
  551. fi        
  552. if ug = 99
  553.   move 'LOG3' to log
  554. 2LOGIN
  555. fi
  556. move shell to shellout
  557. if shell
  558.   if eusr and sug = 0 or ug = sug
  559.   else
  560.     clear shellout
  561.   fi
  562. fi
  563. if not newcat and not shellout
  564.   disable shelling
  565. fi
  566. popdown p1
  567. clear bbdisp choice skip_login
  568. goback 1ENDLOG
  569.  
  570. 1ST
  571.  
  572. if colour
  573.   move 'CGA' to vtype
  574. fi
  575. if graphics
  576.   move 'EGA' to vtype
  577. fi
  578. put 'STATS' nowait
  579. cursor 17 22 servcat
  580. if secure
  581.   cursor 17 47 'High'
  582. else
  583.   cursor 17 48 'Low'
  584. fi
  585. if mins = 0
  586.   cursor 17 70 'Off'
  587. else
  588.   cursor 17 68 mins ' mins.'
  589. fi
  590. cursor 18 22 ms1 '.' ms2
  591. cursor 18 43 date
  592. cursor 18 70 vtype
  593. cursor 19 19 sysmax 'K'
  594. cursor 19 47 version
  595. cursor 19 72 ddrive
  596. cursor 20 21 sysfree
  597. cursor 20 46 residency
  598. cursor 20 68 elevel
  599. if nstat <> 0
  600.   cursor 21 19 'loaded' 
  601. fi
  602. cursor 21 46 cn
  603. cursor 21 68 eucn
  604. cursor 22 13 current_path
  605. clear bbdisp
  606. move hilite to choice
  607. return
  608.  
  609. 1BADRUN
  610.  
  611. move resp to char
  612. if responses ct char
  613.   move entry fcol of rforms to form
  614. else
  615.   move resp to cresp with lead_zeroes
  616.   insert cresp
  617.   move 'BRX' to form
  618. fi
  619. èpopfree p0
  620. popup p0 from p1
  621. clear bbdisp
  622. put form nowait
  623. user current_path
  624. return
  625.  
  626. 1CAPTURE
  627.  
  628. fore 1
  629. back 7
  630. move hilite to choice
  631. userline 'STANDARD: C = Capture screen to disc, any other key for main screen'
  632. cursor 0 0
  633. inkey char
  634. clear bbdisp
  635. if char = 'C'
  636.   popdown khelp
  637.   put capture
  638.   popdown bclr
  639.   if funkey <> 10
  640.     get sline char
  641.     trim sline
  642.     dir sline
  643.     if found
  644.       insert sline
  645.       put exists
  646.       get create
  647.       if not create
  648.         popdown p1
  649.         popdown ckid
  650.         popdown m2id
  651.         return
  652.       fi              
  653.     fi
  654.     popdown p0
  655.     behave 3 sline
  656.     clear i
  657.     until i = 25
  658.       clear sline
  659.       scanvid i giving sline
  660.       if char = 'T'
  661.         move sline to sline2
  662.         trim sline
  663.         data sline
  664.         if sline <> sline2
  665.           data crlf
  666.         fi
  667.       else
  668.         data sline
  669.       fi
  670.       if resp <> 0
  671.         put sferr
  672.         move 24 to i
  673.       fi 
  674.     fi i
  675.     if char = 'T'
  676.       data ef
  677.     fi
  678.     behave 0
  679.   fi
  680. fi
  681. popdown p1
  682. popdown ckid
  683. popdown m2id
  684. return
  685.  
  686. 1JOTTER
  687.  
  688. move hilite to j
  689. clear create
  690. if nopads = 0
  691.   move '--------' to pads
  692. fi
  693. insert pads
  694. move 0a020h to bbmask
  695. put notepads
  696. clear bbdisp
  697. if choice = 30 or choice = 40
  698.   move j to choice
  699.   return
  700. fi
  701. move display to jotter
  702. popdown khelp
  703. if choice = 32 or jotter = dashes
  704.   put memname
  705.   if funkey <> 10
  706.     get jotter
  707.     clear jot
  708.     move true to create
  709.   else
  710.     move j to choice
  711.     return
  712.   fi
  713. fi
  714. move j to choice
  715. trim jotter
  716. combine initial_path '\' jotter '.TMJ' into jotname
  717. replace '\\' of cfp with '\'
  718. if not create
  719.   restore jotname jot
  720.   if resp <> 0
  721.     go 1J
  722.   fi
  723.   restore
  724. else
  725.   dir jotname
  726.   if found
  727.     insert jotname
  728.     put exists
  729.     get create
  730.     if not create
  731.       popdown bclr
  732.       return
  733.     fi
  734.   fi
  735. fi      
  736. fieldfill jot
  737. insert jotter
  738. put mem
  739. popdown bclr
  740. clear i
  741. if funkey <> 10
  742.   until i = 10
  743.     get entry i of jot
  744.   fi i
  745.   save jotname jot
  746.   if resp <> 0
  747.     go 1J
  748.   fi
  749.   save
  750.   if create and nopads < 10
  751.     move jotter to entry nopads of pads
  752.     increment nopads
  753.   fi
  754. fi
  755. go 2J
  756.  
  757. 1J
  758. insert jotname
  759. if not create
  760.   if resp = 99
  761.     insert garbage
  762.   else
  763.     insert badread
  764.   fi
  765.   restore
  766. else
  767.   insert badmake
  768.   save
  769. fi
  770. put badnotes
  771.  
  772. 2J
  773.  
  774. if create
  775.   dspace
  776.   insert sysfree display ddrive
  777.   put freebytes nowait
  778. fi
  779. return
  780.  
  781. 1INIT
  782.  
  783. vconst cyan_on_blue,68
  784.  
  785. cursor 0 0
  786. display cyan_on_blue
  787. draw 10 20 14 60
  788. cursor 12 22 'Initialising ... please wait'
  789.  
  790. ;DATA commands placed here to make more room for code avoiding overlays
  791.  
  792. DEFINE BELLS,60
  793. INT AUTOLOG
  794. INT BCLR
  795. INT CKID
  796. INT I,J,K,L
  797. INT KHELP
  798. INT LASTHELP
  799. INT M2ID
  800. INT MINS
  801. INT NOPADS
  802. INT P0,P1
  803. INT REASON
  804. INT RESIDENCY
  805. INT SUG
  806. INT TOPIC1
  807. INT TRY
  808. INT UG
  809. INT WID
  810.  
  811. var garbage,20,'contains garbage    '
  812. var badread,20,'could not be read   '
  813. var badmake,20,'could not be created'
  814.  
  815. VAR AC,60,OCCURS 10
  816. VAR AP,68,OCCURS 10
  817. VAR APT,1,OCCURS 10
  818. VAR APF,1,OCCURS 10
  819. VAR BLACK,1
  820. VAR CATLOC,68
  821. VAR CFP,68
  822. VAR CHAR,1
  823. VAR CMD,80
  824. VAR CMDS,60,OCCURS 10
  825. VAR CPATH,68
  826. VAR CRESP,5,'00000'
  827. VAR CURRENT_PATH,68
  828. VAR DATE11,11
  829. VAR DRV,1
  830. VAR DTA,64
  831. VAR DTS,64,OCCURS 10
  832. VAR FILENAME,14,'STANDARD'
  833. VAR FMPDIR,68,$FMPDIR
  834. VAR FN1,60
  835. VAR FORM,8
  836. VAR GUEST,16,'guest'
  837. VAR HLP,72,OCCURS 56
  838. VAR INITIAL_PATH,68
  839. VAR LABEL,4
  840. VAR LASTCAT,8
  841. VAR LOADED,12,'1BEGIN'
  842. VAR LOG,4,'LOG1'
  843. VAR LOGFAIL,23,'Invalid login ... retry'
  844. VAR JOTTER,8
  845. VAR JOTNAME,68
  846. VAR JOT,40,OCCURS 10
  847. VAR MFLAG,2
  848. VAR MSG,38
  849. VAR MST,8
  850. VAR MSVER,3,'X.X'
  851. VAR MS1,1,' '
  852. èVAR MS2,1,' '
  853. VAR NEWPASS,16
  854. VAR NOSERVCAT,11,'Unavailable'
  855. VAR NULL,1
  856. VAR OLDPASS,16
  857. VAR PADS,8,OCCURS 10
  858. VAR PARAM,40
  859. VAR PASS,16
  860. VAR PATHS,68,OCCURS 10
  861. VAR PAU,1,OCCURS 10
  862. VAR PCS,2,OCCURS 4,'%1%2%3%4'
  863. VAR PROG,8
  864. VAR PROMPT,40
  865. VAR PROMPTS,40,OCCURS 40
  866. VAR REPLIES,40,OCCURS 4
  867. VAR PDEFS,40,OCCURS 40
  868. VAR P2DEFS,40,OCCURS 40
  869. VAR PQS,1,OCCURS 40
  870. VAR PTY,1,OCCURS 10
  871.  
  872. VAR REASONS,29,OCCURS 4,
  873. 'Running in Demonstration mode'
  874. 'Not allowed when Security low'
  875. 'Incorrect old password given '
  876. 'Change not allowed for guests'
  877.  
  878. VAR RES,1,OCCURS 10
  879. VAR RES1,40,OCCURS 10
  880. VAR RES2,40,OCCURS 10
  881. VAR RESPONSES,5,'25678'
  882. VAR RFORMS,3,OCCURS 5,
  883. 'BR2'
  884. 'BR2'
  885. 'BR6'
  886. 'BR7'
  887. 'BR8'
  888.  
  889. VAR SLINE,80
  890. VAR SLINE2,80
  891. VAR SERVCAT,8,'CONFIG'
  892. VAR SFILES,8,OCCURS 10
  893. VAR SITE,24
  894. VAR STEXT,40
  895. VAR STFORMS,68
  896. VAR STYPE,28,'Unregistered Shareware V4.80'
  897. VAR T1,5,OCCURS 10
  898. VAR T2,5,OCCURS 10
  899. VAR TEXTS,16,OCCURS 13
  900. VAR TIM1,5
  901. VAR TIM2,5
  902. VAR TIMENOW,5
  903. VAR TIMEOUT,2
  904. VAR UNAME,16
  905. VAR VERSION,5,'V1.04'
  906. VAR VTYPE,3,'MDA'
  907. VAR VEUCN,3
  908. VAR VWCN,3
  909. VAR WST,2,OCCURS 10
  910. VAR WT,17,'press any key ...'
  911.  
  912. HEXVAR BELL,07
  913. HEXVAR CRLF,0D0A
  914. HEXVAR EF,1A
  915.  
  916. LOGICAL BLACKOUT
  917. LOGICAL CREATE
  918. LOGICAL EUSR
  919. LOGICAL FIRST
  920. LOGICAL FOREVER
  921. LOGICAL NA
  922. LOGICAL NEWCAT
  923. LOGICAL PREV_EUSR
  924. LOGICAL REPLY
  925. LOGICAL RUN1
  926. LOGICAL SECURE
  927. LOGICAL SKIP_LOGIN
  928. LOGICAL SHELL
  929. LOGICAL SHELLOUT
  930. LOGICAL YESNO
  931. è
  932. vconst cls,11
  933. END
  934.  
  935. if build@ = 1
  936.   move 'Professional V4.80' to stype
  937. fi
  938. if build@ = 2
  939.   move 'Registered Shareware V4.80' to stype
  940. fi
  941. if fmpdir = null
  942.   move 'C:\FMP' to fmpdir
  943. fi
  944. move resp to msver        ;e.g. returns ' 33'
  945. move zero to delim
  946. move fcol to residency
  947. combine fmpdir '\STANDARD.OVR' into stforms
  948. replace all '\\' of stforms with '\'
  949. if not colour
  950.   move '/M' to mflag
  951. fi
  952. setscan msver 1
  953. scan ms1 ms2            ;need each digit
  954. user current_path
  955. user initial_path
  956. move true to hide
  957. lookfor stforms
  958. if not found
  959.   insert filename stforms
  960.   display cls
  961.   put no_fmpdir_forms nowait
  962.   stop 1
  963. fi
  964. popscreen p0
  965. screen 1
  966. forms stforms
  967.  
  968. 1RESTORE
  969.  
  970. combine initial_path '\' servcat '.TMS' into cfp
  971. replace '\\' of cfp with '\'
  972. restore cfp catloc site texts cmds pty paths dts wst pau res res1 res2
  973. if resp = 0
  974.   restore ac ap apt apf hlp t1 t2 secure prompts pdefs p2defs pqs
  975. fi
  976. if resp = 0
  977.   restore timeout black shell sug
  978. fi
  979. if resp = 0
  980.   restore
  981. else
  982.   back 1
  983.   cyrsor 17 2 'Fatal Error:'
  984.   if resp = 99
  985.     cursor 18 2 'Service file ' cfp ' is corrupt'
  986.   else
  987.     cursor 18 2 'Service file ' cfp ' could not be opened'
  988.   fi
  989.   stop 2
  990. fi
  991. move black to blackout
  992. if catloc <> null
  993.   move true to eusr
  994. fi
  995. if newcat and eusr and prev_eusr
  996.   move true to skip_login
  997. fi
  998. move eusr to prev_eusr
  999. if secure
  1000.   move 'LOG1' to log
  1001. else
  1002.   move 'LOG2' to log
  1003. fi
  1004. if eusr and not newcat
  1005.   catalog catloc
  1006.   if resp <> 0
  1007.     displayln 'Catalogue open failure ' resp
  1008.     displayln catloc '\CATALOG.EUC not found'
  1009.     displayln 'Failure to open EUC Catalogue file'
  1010.     stop 3
  1011.   fi
  1012. fi
  1013. screen 1
  1014. dspace
  1015. insert site sysfree display ddrive ldate
  1016. put start nowait
  1017. insert texts
  1018. put serv nodata noclear
  1019. fore 15
  1020. back 1
  1021. popfree p1
  1022. popscreen p1
  1023. if khelp = 0
  1024.   put 'khelp' nowait
  1025.   popget khelp
  1026.   put 'bclr' nowait
  1027.   popget bclr
  1028. fi
  1029. popdown p1
  1030. screen 0
  1031. move timeout to autolog
  1032. move autolog to mins
  1033. multiply autolog by 60
  1034. if not newcat
  1035.   clear sfiles i
  1036.   move '.' to delim
  1037.   dir *.TMS
  1038.   until not found or i = 10
  1039.     setscan display 30
  1040.     scan entry i of sfiles
  1041.     dir
  1042.   fi i
  1043.   clear pads
  1044.   dir *.TMJ
  1045.   until not found or nopads = 10
  1046.     setscan display 30
  1047.     scan entry nopads of pads
  1048.     dir
  1049.   fi nopads
  1050. fi
  1051. clear newcat
  1052. goback LOADED
  1053. ENDTASK
  1054.  
  1055. ; Title   : STANDARD.TSK         Last Updated : see 'about'
  1056. ; Author  : Mike Eastham.- FmP.        Version      : see 'version'
  1057. ; Purpose : Standard Services Selection using Workload configuration.
  1058. ; Notes   : Configuration performed using CONFIG.TSK
  1059.  
  1060. ;Following are the form, menu, popup and dropdowns to be processed by SCR
  1061. ;into an .OVR file.
  1062.  
  1063. ;Some personalisation of colours can be achieved by amending the following
  1064. ;macros:
  1065.  
  1066. @VIDEO
  1067.  
  1068. @macro form
  1069. @dim
  1070. @col char,black,cyan
  1071. @acceptfk esc,f10
  1072. @endm
  1073. @macro form_fore,'black'
  1074. @macro form_back,'cyan'
  1075.  
  1076. @macro alert
  1077. @dim
  1078. @col char,white,red
  1079. @endm
  1080.  
  1081. @macro alert_fore,'cyan'
  1082.  
  1083. @macro cancel
  1084. @line
  1085. @col char,blue,cyan
  1086. @endm
  1087.  
  1088. @macro info_box
  1089. @dim
  1090. @col char,black,green
  1091. @win line17,column1,depth6,width78
  1092. @endm
  1093.  
  1094. @macro alert_box
  1095. @dim
  1096. @col char,white,red
  1097. @win line17,column1,depth6,width78
  1098. @endm
  1099.  
  1100. @macro normal_text
  1101. @bright
  1102. @col char,white,blue
  1103. @endm
  1104.  
  1105. @default≤ dim,cyan,blue
  1106. @head left,'  SERVICE SELECTION'
  1107. @head right,'Copyright (C) FmP 1991'
  1108. @head centre,'{                        }'
  1109.  
  1110. @macro noserv
  1111. @bright
  1112. @col char,white,green
  1113. @win line17,column1,depth6,width78
  1114.             {                }
  1115.  
  1116. @endm
  1117.  
  1118. @macro bwin,'@win line17,column1,depth6,width78'
  1119.  
  1120. @markers []
  1121. @nf start
  1122. @col char,cyan,blue
  1123. @banner
  1124. @col char,white,blue
  1125. @win line1,column0,depth23,width80
  1126. @out white,double
  1127. @dim
  1128. @col char,black,white
  1129. @win line4,column28,width48,depth9
  1130. @out black
  1131.  
  1132.   Help about the highlighted service ...   
  1133. @line
  1134.   Other facilities ...                  PgDown
  1135. @line
  1136.   About ...                               PgUp
  1137. @line
  1138.   Exit ...                           Esc / End
  1139.  
  1140.  
  1141.  
  1142. @bright
  1143. @col char,white,blue
  1144.  
  1145. {    } Memory{            } bytes free on drive{ }
  1146. @dim
  1147. @col char,black,white
  1148. @use '{           }            Taskmaster STANDARD task'
  1149. @end
  1150.  
  1151. @nf freebytes
  1152. @bright
  1153. @col char,white,blue
  1154. @window line16,column28,width50,depth1
  1155. {    } Memory{            } bytes free on drive{ }
  1156. @end
  1157.  
  1158. @nf about
  1159. $form$
  1160. @win line3,column4,width72,depth18
  1161. @drop
  1162. @outline $form_fore$,double
  1163.  
  1164.   ABOUT ...
  1165. @line
  1166.   This is the STANDARD end-user service task{V1.04} dated 28/08/91
  1167.   interpreted by Taskmaster{Unregistered Shareware V4.80}
  1168. @line
  1169.   Optional interface to the End User Computing (EUC) facility.
  1170. @line
  1171.   Copyright (C) FmP 1991.  All rights reserved worldwide.
  1172. @line
  1173.  
  1174.   Loaded        {                                                      }
  1175.   Service file  {                                                      }
  1176.   EUC catalogue {                                                      }
  1177.  
  1178. $cancel$
  1179.   Acknowledge ...                                              any key
  1180. @end
  1181. @nf serv
  1182. @dim
  1183. @col char,black,white
  1184. @win line2,column2,depth15,width24
  1185. @out red
  1186.  
  1187.                     F1
  1188.                     F2
  1189.                     F3
  1190.                     F4
  1191.                     F5
  1192.                     F6
  1193.                     F7
  1194.                     F8
  1195.                     F9
  1196. @win line2,column2,depth15,width19
  1197. @dim
  1198. @bbmenu red,white
  1199. @fkmap
  1200. @out red
  1201.                   8
  1202. @repeat x13
  1203.  {                }
  1204.                   2 
  1205. @END
  1206.  
  1207. @nf clearkeys
  1208. @col char,black,white
  1209. @win line3,column22,depth9,width2
  1210. @end
  1211.  
  1212. @nf features
  1213. @dim
  1214. @col char,blue,cyan
  1215. @win line 2,column 28,depth14,width 50
  1216. @bbmenu blue,cyan
  1217. @fkmap
  1218. @out black
  1219. @key bright,white,cyan
  1220.  
  1221.  {Help on the use of  Bounce-bar menus ...     F1 }
  1222.  {Display the contents of a  File ...          F2 }
  1223.  {View/save output from last  Application ...  F3 }
  1224.  {Provides a simple  Notepad facility ...      F4 }
  1225.  {Loads alternative service  catalogues ...    F5 }
  1226.  {Give information about PC  environment ...   F6 }
  1227.  {Change  working drive and/or directory ...   F7 }
  1228. @line
  1229.  {SHELL OUT - i.e. begin new  DOS shell ...    F8 }
  1230.  {SHELL OUT -  make all memory available ...   F9 }
  1231. @line
  1232.   Service selection ...                Esc / End
  1233. @end
  1234.  
  1235. @nf noshells
  1236. $alert$
  1237. @window line 8,column16,width48,depth8
  1238. @outline $alert_fore$
  1239. @drop
  1240.  
  1241.   SECURITY
  1242. @line
  1243.   The system administrator has not granted you
  1244.   a SHELL facility.
  1245. @line
  1246. @bright
  1247.   Acknowledge ...                      any key
  1248. @end
  1249.  
  1250. @head left,'STANDARD: SESSION LOGIN'
  1251.  
  1252. @macro log
  1253. @banner
  1254. @border
  1255.  
  1256. @str min1
  1257. @str
  1258.     USERNAME ?    [.               ]    Enter your name and optional
  1259.                         password, press 
  1260.     PASSWORD ?    [!               ]
  1261.                                                {                       }
  1262. @border
  1263. @endm
  1264.  
  1265. ;        TEMPLATES FOR SESSION LOGIN
  1266.  
  1267. @nf log1
  1268. @acceptfk none
  1269. $log$
  1270. @bright
  1271. @END
  1272.  
  1273. @nf log2
  1274. @acceptfk f10
  1275. è$log$
  1276.  
  1277.      Thi≤ átasδ  i≤ runninτ with certain security features switched off and
  1278.      you can optionally quit now by pressing F10.
  1279.  
  1280. áááááSimilarly¼ áusernamσ á'guestº i≤ onl∙ availablσ iε áthi≤ ámode« áUser≤ ì
  1281. áááááare normall∙ requireΣ t∩ ente≥ ß valiΣ usernamσ anΣ passworΣ áa≤ setu≡
  1282.      b∙ thσ Systeφ Administrato≥ o≥ yourself.
  1283.  
  1284.      When using EUC, security is always high and users are catalogued  into
  1285.      a user-group. Users in group 99, once logged-in  are also permitted to
  1286.      escape from the task.
  1287.  
  1288. @bright
  1289. @END
  1290.  
  1291. @nf log3
  1292. @acceptfk f10
  1293. $log$
  1294.  
  1295.      To exit, press F10.
  1296. @bright
  1297. @end
  1298.  
  1299. @nf dupeuser
  1300. $alert$
  1301. @window line4,column4,width72,depth17
  1302. @drop
  1303. @out $alert_fore$
  1304.  
  1305.   Problem: A user with this name is already logged-on.
  1306. @line
  1307.   Possible reasons:
  1308. @line
  1309.     1. You are working on a network and somebody else has already
  1310.        logged on using the same name.  This may be a breach of
  1311.        security.
  1312. @line
  1313.     2. The system crashed on a previous occasion giving Taskmaster
  1314.        no opportunity to mark the user off-line in the EUC catalogue
  1315. @line
  1316.   Action: I have sent a message to the System Administrator informing
  1317.   him of the problem but I cannot guarantee its receipt.
  1318. @line
  1319. @bright
  1320.   Acknowledge ...                                              any key
  1321. @end
  1322.  
  1323. @nf hack
  1324. $alert_box$
  1325. $bwin$
  1326.  
  1327.  
  1328.          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
  1329. @END
  1330.  
  1331. @nf alert
  1332. @head left,STANDARD: SECURITY
  1333. @dim
  1334. @col page,cyan,red
  1335. @banner
  1336. @border
  1337.  
  1338.    You have failed three times to give a valid username and password.
  1339.  
  1340.    Becausσ áthi≤ átasδ ái≤ runninτ iε demonstratioε ámode¼ áthσ áaler⌠ áha≤ ì
  1341. áááceased« áNormally¼ ái⌠ woulΣ havσ gonσ oε fo≥ mucΦ longe≥ áiε áorde≥ át∩ ì
  1342. áááaler⌠ other≤ t∩ ß possiblσ unauthoriseΣ attemp⌠ t∩ acces≤ you≥ system.
  1343.  
  1344.    Afte≥ áß ásuitablσ áperiod¼ ß logiε woulΣ theε ábσ árequireΣ áagain« áIε ì
  1345. ááápractice¼  iµ  yo⌡ neeΣ ß higΦ leve∞ oµ security¼ yo⌡ shoulΣ amenΣ áyou≥  ì
  1346. áááAUTOEXEC.BATê filσ t∩ loaΣ T═ STANDARDê oε ß dail∙ basis.
  1347.  
  1348.    If  you are developing your own secure task, you should make  sure  that 
  1349.    you  disable  Breakin  via  the CTRL/C  and  CTRL/Break  keys  by  using 
  1350.    Taskmaster's DISABLE command.
  1351.  
  1352.    When  you  combine these features with a login procedure  that  requires 
  1353.    password entry, and the passwords are encrypted, you have the basis of a 
  1354.    secure system.
  1355. $normal_text$
  1356. @end
  1357.  
  1358. @nf logoff
  1359. @acceptfk none
  1360. @log
  1361. $alert$
  1362. @win line7,column18,depth11,width44
  1363. @drop
  1364. @out $alert_fore$
  1365.  
  1366.  
  1367.   End session ? [Y]    Y=Yes, N=No
  1368.  
  1369. @line
  1370.   No ...        Cancel the request
  1371. @line
  1372.   Yes ...    Return to the logon screen
  1373. @line
  1374. @bright
  1375.   Action ...                          
  1376. @end
  1377.  
  1378. ;        TEMPLATES FOR PASSWORD UPDATE
  1379.  
  1380. @nf newpass
  1381. $form$
  1382. @str
  1383. @str
  1384. @win line2,column26,depth12,width46
  1385. @drop
  1386. @out $form_fore$
  1387.  
  1388.   OLD PASSWORD ?  [!               ]
  1389.   NEW PASSWORD ?  [.               ]
  1390.  
  1391. @line
  1392.   The password can't be changed when running
  1393.   in demonstration mode or when security is
  1394.   set low.  The 'guest' password can never be
  1395.   changed.
  1396. $cancel$
  1397.   Cancel ...                       Esc / F10
  1398. @end
  1399.  
  1400. @nf passfail
  1401. $alert$
  1402. @win line8,column19,depth7,width42
  1403. @drop under
  1404. @out $alert_fore$
  1405.  
  1406.   Password unchanged ..
  1407. @line
  1408.   Reason: {                             }
  1409. @line
  1410. @bright
  1411.   Acknowledge ...                any key
  1412. @end
  1413.  
  1414.  
  1415. @nf stats
  1416. @dim
  1417. @col char,cyan,blue
  1418. $bwin$
  1419.   Service file                 Security                Auto logout
  1420.   Dos version                  Date                    Video mode
  1421.   Maximum memory               STANDARD vers.          Default drive
  1422.   Available memory             Resident code           ERRORLEVEL
  1423.   NETWARE IPX          -       WCN.              -     EUC WCN.        -
  1424.   Directory
  1425. @end
  1426.  
  1427. @nf info
  1428. è$info_box$
  1429.             {                }
  1430.  
  1431. @repeat x4
  1432.    {                                                                        }
  1433. @END
  1434.  
  1435. @nf bclr
  1436. @col char,cyan,blue
  1437. $bwin$
  1438. @end
  1439.  
  1440. @nf sorry
  1441. $noserv$
  1442.   SORRY : No information about this service has been provided by the System
  1443.           Administrator.
  1444. @end
  1445.  
  1446. @nf noserv
  1447. $noserv$
  1448.    This service has not yet been fully installed.   Contact your System
  1449.    Administrator or complete installation using CONFIG.TSK
  1450. @END
  1451.  
  1452. @nf noavail
  1453. $noserv$
  1454.    This service is only available between the hours of{     } and{     }
  1455.    Please try again as appropriate.
  1456. @END
  1457.  
  1458. @nf noipx
  1459. $alert_box$
  1460.  
  1461. è   Messages can only be sent to the System Administrator when running on a
  1462.    NOVELL NETWORK.  There was no active networking software on your m/c at
  1463.    the time this task was loaded.
  1464. @end
  1465.  
  1466.  
  1467. @nf khelp
  1468. @dim
  1469. @col char,cyan,blue
  1470. $bwin$
  1471.  
  1472.    Cursor:      First field:  Home        Action: 
  1473.  
  1474.    Editing: Delete from cursor to end of field = ctrl/T
  1475.             Character insert: ins  Character delete: del or ctrl/G
  1476. è@END
  1477.  
  1478. ;        TEMPLATES FOR SERVICE CATALOGUE SELECTION
  1479.  
  1480. @nf servcats
  1481. $form$
  1482. @acceptfk f1
  1483. @win line2,column17,depth17,width46
  1484. @bbmenu $form_fore$,$form_back$
  1485. @drop
  1486. @out $form_fore$
  1487.  
  1488.   SELECT SERVICE MENU
  1489. @line
  1490. @repeat x5
  1491.    {        }    {        }
  1492. @line
  1493.   If the new services are available only to
  1494.   specific users or have a higher security,
  1495.   you may be required to login again.
  1496. $cancel$
  1497.   Select ...                             
  1498.   Action ...                           
  1499.   Cancel ...                      Esc / F10
  1500. @end
  1501.  
  1502. @nf nocats
  1503. $alert$
  1504. @win line8,column4,depth9,width72
  1505. @drop
  1506. @out $alert_fore$
  1507.  
  1508.   No service catalogues found in the current working directory:
  1509.   {                                                                }
  1510. @line
  1511.   The master service file is called CONFIG.TMS and normally resides in
  1512.   C:\FMP or as defined by the environment variable FMPDIR.
  1513. @line
  1514. @bright
  1515.   Acknowledge ...                                             any key   
  1516. @end
  1517.  
  1518. @nf loading
  1519. $alert$
  1520. @win line7,column20,depth10,width40
  1521. @outline $alert_fore$,double
  1522. @bright
  1523.  
  1524. @draw
  1525.      LOADING NEW SERVICE CATALOGUE
  1526. @draw
  1527.  
  1528.             Please Wait ...
  1529. @end
  1530.  
  1531. @nf nodrive
  1532. $alert$
  1533. @win line9,column14,depth7,width52
  1534. @drop
  1535. @out $alert_fore$
  1536.  
  1537.   Drive{ } is not responding.
  1538. @line
  1539.   If it is a floppy, check that the door is closed.
  1540. @line
  1541. @bright
  1542.   Acknowledge ...                          any key   
  1543. @end
  1544.  
  1545.  
  1546. @nf br2
  1547. $alert_box$
  1548.              Invalid COMSPEC or COMMAND.COM not found
  1549.  
  1550. áááTaskmaste≥ ácoulΣ no⌠ finΣ COMMAND.CO═ o≥ thσ prograφ specifieΣ b∙ áthσ ì
  1551. áááCOMSPE├ environmen⌠ variable«  Non-hard disc users :  pleasσ check that
  1552.    that your BOOT (system) disc is in the drive.
  1553. @end
  1554.  
  1555. @nf br6
  1556. $alert_box$
  1557.             Unable to create swap file
  1558.  
  1559. áááTaskmaste≥ áha≤ ábeeε áunablσ t∩ loaΣ thσ árequireΣ áapplicatioε áwhicΦ ì
  1560. áááneedeΣ mos⌠ oµ thσ basiπ memory«  Normall∙ Taskmaste≥ copie≤ itselµ ou⌠ ì
  1561. ááá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« 
  1562. @end
  1563.  
  1564. @nf br7
  1565. $alert_box$
  1566.             Disc write error on swap file
  1567.  
  1568. áááTaskmaste≥ áha≤ ábeeε áunablσ t∩ loaΣ thσ árequireΣ áapplicatioε áwhicΦ ì
  1569. áááneedeΣ mos⌠ oµ thσ basiπ memory«  Normall∙ Taskmaste≥ copie≤ itselµ ou⌠ ì
  1570. ááát∩ disπ iε orde≥ t∩ makσ rooφ bu⌠ i⌠ couldn'⌠ writσ t∩ thσ 'SWAPº file¼ ì
  1571. ááái.e« thσ filσ t∩ whicΦ i⌠ copie≤ itself«  Perhap≤ thσ disπ i≤ full.
  1572. @end
  1573.  
  1574. @nf br8
  1575. $alert_box$
  1576.             Insufficient memory available
  1577.  
  1578. áááTaskmaste≥ áha≤ ábeeε unablσ t∩ loaΣ thσ requireΣ áapplicatioε ábecausσ ì
  1579. ááátherσ ái≤ no⌠ enougΦ memory«  Yo⌡ caε finΣ ou⌠ ho≈ mucΦ memor∙ áremain≤ ì
  1580. áááb∙ áusinτ áFunctioε ke∙ 6«  I⌠ ma∙ bσ tha⌠ thσ prograφ ái≤ ásimpl∙ áto∩ ì
  1581. ááálarge« Pleasσ contac⌠ you≥ systeφ administrator.
  1582. @end
  1583.  
  1584.  
  1585. @nf brx
  1586. $alert_box$
  1587.         Unexpected response ({     }) loading application
  1588.  
  1589. áááTaskmaste≥ áha≤ attempteΣ anΣ faileΣ t∩ loaΣ you≥ applicatioε ábu⌠ áthσ ì
  1590. áááreasoε áfo≥ failurσ i≤ unknown«  Pleasσ tr∙ again«  Iµ thσ áprobleφ ái≤ ì
  1591. ááápermanent¼ áthσ ácomputer'≤ memor∙ ma∙ bσ corrupt« áPleasσ áreboo⌠ áanΣ ì
  1592. áááretry.
  1593. è@end
  1594.  
  1595. ;        TEMPLATES FOR SCREEN DATA CAPTURE
  1596.  
  1597. @nf capture
  1598. $form$
  1599. @str
  1600. @list IT
  1601. @win line1,column4,depth15,width74
  1602. @drop
  1603. @outline $form_fore$
  1604.  
  1605.   File to receive captured screen data ?
  1606.  
  1607.   [.                                                               ]
  1608.  
  1609.   [T]  I=store as image file, T=store as text file
  1610. @line
  1611.   Image file: an exact copy of the screen (i.e. 2000 characters).
  1612. @line
  1613.   Text file : has trailing spaces removed from each line and a carriage-
  1614.               return, linefeed sequence appended to each unless the line
  1615.               is 80 characters long.
  1616. $cancel$
  1617.   Cancel ...                                                  Esc / F10
  1618. @end
  1619.  
  1620. @nf sferr
  1621. $alert$
  1622. @win line8,column13,depth8,width54
  1623. @drop
  1624. @outline $alert_fore$
  1625.  
  1626.   DISC ERROR
  1627.  
  1628. @line
  1629.   Attempting to create or write to screen image file
  1630. @line
  1631. @bright
  1632.   Continue ...                              any key
  1633. @end
  1634.  
  1635. @nf exists
  1636. $alert$
  1637. @log
  1638. @win line8,column3,depth8,width74
  1639. @drop
  1640. @outline $alert_fore$
  1641.  
  1642.   File{                                                                }
  1643.   already exists.
  1644. @line
  1645.   Do you want to overwrite it ?        [Y]    Y=Yes, N=No
  1646. @line
  1647. @bright
  1648.   Action ...                                                       
  1649. @end
  1650.  
  1651.  
  1652. @nf newpath
  1653. $form$
  1654. @acceptfk f2
  1655. @path
  1656. @win line3,column4,depth14,width70
  1657. @drop
  1658. @out $form_fore$
  1659.  
  1660.   CHANGE WORKING DRIVE AND/OR DIRECTORY
  1661. @line
  1662.   New working directory ?
  1663.   [.                                                               ]
  1664. @line
  1665.   Enter pathname.  A drive specifier (a-z) is optional.
  1666. @line
  1667.   If the field marker flashes, then either the drive specifier or
  1668.   path is invalid.
  1669. $cancel$
  1670.   Restore initial drive and directory ...                        F2
  1671.   Cancel  ...                                             Esc / F10
  1672. @end
  1673.  
  1674.  
  1675. @nf dpfile
  1676. @file exists
  1677. $form$
  1678. @win line6,column4,depth12,width72
  1679. @drop under
  1680. @outline $form_fore$
  1681.  
  1682.   DISPLAY FILE
  1683. @line
  1684.   Filename ?
  1685.  
  1686.   [.                                                           ]
  1687. @line
  1688.   A path may be included.  The opening field marker will flash if the
  1689.   file does not exist. Press CTRL/T if you wish to clear the field.
  1690. $cancel$
  1691.   Cancel ...                                                Esc / F10
  1692. @end
  1693.  
  1694. ;        TEMPLATES FOR PROGRAM DATA CAPTURE
  1695.  
  1696. @nf query
  1697. @log
  1698. $form$
  1699. @window line7,column20,depth10,width48
  1700. @drop
  1701. @outline $form_fore$
  1702.  
  1703.   Program / DOS command ...        {        }
  1704. @line
  1705.  {                                          }
  1706. @line
  1707.   Answer ...    [Y]               Y=Yes, N=No
  1708. $cancel$
  1709.   Action ...                             
  1710.   Cancel ...                        Esc / F10
  1711. @end
  1712.  
  1713. @nf getparam
  1714. @str
  1715. $form$
  1716. @window line7,column20,depth10,width48
  1717. @drop
  1718. @outline $form_fore$
  1719.  
  1720.   Program / DOS command ...        {        }
  1721. @line
  1722.  {                                          }
  1723. @line
  1724.   [.                                       ]
  1725. $cancel$
  1726.   Default ...                            
  1727.   Cancel ...                        Esc / F10
  1728. @end
  1729.  
  1730. ;        TEMPLATES FOR THE NETWORK MESSAGING FEATURE
  1731.  
  1732. @nf nosysadm
  1733. $alert$
  1734. @win line9,column12,depth6,width56
  1735. @drop
  1736. @out $alert_fore$
  1737.  
  1738.   You can't send a message to the system administrator
  1739.   because he/she is not online at the moment ...
  1740. @line
  1741. @bright
  1742.   Acknowledge ...                              any key
  1743. @end
  1744.  
  1745. @nf whatmsg
  1746. @str min1
  1747. $form$
  1748. @window line8,column16,depth8,width48
  1749. @drop
  1750. @outline $form_fore$
  1751.  
  1752.   Enter a message for the System administrator.
  1753.   38 characters maximum.
  1754. @line
  1755.   [.                                     ]
  1756. $cancel$
  1757.   Cancel ...                         Esc / F10
  1758. @end
  1759.  
  1760. @nf msgnotrx
  1761. $alert$
  1762. @win line6,column16,depth11,width48
  1763. @drop
  1764. @out $alert_fore$
  1765.  
  1766.   Your message was not received.  Perhaps the
  1767.   System administrator has gone 'off-line'.
  1768.  
  1769.   Alternatively, there may be too many messages
  1770.   pending already.
  1771.  
  1772.   Please try again later ...
  1773. @line
  1774. @bright
  1775.   Acknowledge ...                       any key
  1776. @end
  1777.  
  1778. @nf rxdetails
  1779. @dim
  1780. @col char,white,magenta
  1781. @window line7,column14,depth9,width52
  1782. @drop
  1783. @outline white
  1784.  
  1785.   Message:{                                      }
  1786.   sent at:{        } from workstation:{   }
  1787. @line
  1788.   The System administrator's workstation connection
  1789.   number is:{   }
  1790. @line
  1791. @bright
  1792.   Acknowledge ...                          any key
  1793. @end
  1794.  
  1795. ;        TEMPLATES FOR THE NOTEPAD FEATURE
  1796.  
  1797. @nf notepads
  1798. $form$
  1799. @win line2,column26,depth16,width46
  1800. @bbmenu $form_fore$,$form_back$
  1801. @drop under
  1802. @out $form_fore$
  1803.  
  1804.   SELECT NOTEPAD
  1805. @line
  1806. @repeat x5
  1807.    {        }    {        }
  1808. @line
  1809.   Begin new notepad ...                  F2
  1810. $cancel$
  1811.   Select ...                             
  1812.   Action ...                           
  1813.   Cancel ...                      Esc / F10
  1814. @end
  1815.  
  1816. @nf memname
  1817. $form$
  1818. @alpha min1,convert
  1819. @win line2,column26,depth14,width46
  1820. @out $form_fore$
  1821. @drop
  1822.  
  1823.   CREATE NOTEPAD
  1824. @line
  1825.  
  1826.   Name for new Notepad [.       ]
  1827.  
  1828.   Use alphabetic characters only.
  1829. @line
  1830.   A file called 'name.tmj' will be created in
  1831.   the default directory.
  1832. $cancel$
  1833.   Cancel ...                       Esc / F10
  1834. @end
  1835.  
  1836. @nf mem
  1837. $form$
  1838. @win line2,column26,depth15,width46
  1839. @drop
  1840. @out $form_fore$
  1841. @repeat x10
  1842. @str
  1843.  
  1844. @repeat x10
  1845.   [                                        ]
  1846.   Editing{        }
  1847. $cancel$
  1848.   Cancel ...                       Esc / F10
  1849. @end
  1850.  
  1851. @nf badnotes
  1852. $alert$
  1853. @window line 5,column5,width70,depth18
  1854. @outline $alert_fore$
  1855. @drop
  1856.  
  1857.   Problem with Notepad:
  1858.   {                                                                }
  1859. @line
  1860.   The file{                    }
  1861. @line
  1862.   Possible reasons: 
  1863. @line
  1864.   If reading the notepad, its file may be corrupt or someone has
  1865.   attempted to edit or overwrite it.
  1866. @line
  1867.   If creating a new notepad, a most likely cause is insufficient
  1868.   disc space.
  1869. @line
  1870.   Action:  Exit and rectify
  1871. @line
  1872. @bright
  1873.   Acknowledge ...                                        any key
  1874. @end
  1875.  
  1876. @eof
  1877.