/**********************************************************************/ /* 08-NOV-2004 Robert - Added new variable $24 to support custom */ /* custom monitor functions. */ /* 19-SEP-2002 Robert - Copied from Fire and modified for law use */ /* 10-SEP-2002 Robert - Updated the GETMAP table automatically load */ /* Adobe the Reader or Acrobat depending upon which is found. */ /* 08-SEP-2002 Robert - Completed most of the work to convert the */ /* script to be used. Added mouse support. */ /* 03-AUG-2002 Robert Bustichi - New generic script that will be used */ /* by all fire agencies. It was too difficult to add custom */ /* features by agency. Now a single configuration file will be */ /* used. /**********************************************************************/ /**********************************************************************/ /* Variable useage */ /**********************************************************************/ /* $0 - Scratch variable */ /* $1 - Used by EXECUTETO */ /* $2 - Used by EXECUTETO */ /* $3 - Scratch variable */ /* $4 - Scratch variable */ /* */ /* $11 - Current window height (global) */ /* $12 - Font height (global) */ /* $13 - Font (global) */ /* $14 - Insert/Replace toggle (global) */ /* $15 - Screen number (global) */ /* $16 - Title bar text (global) */ /* */ /* $24 - Monitor group(s) */ /* $25 - Unit */ /* $26 - Dispatch terminal */ /* $27 - Dispatch zone */ /* $28 - Agehcy jurisdiction CAD code */ /* $29 - Abbreviated agency name */ /**********************************************************************/ /* Create the version script table. /**********************************************************************/ table ( "VERSION" ) tablerow ( "assign $0 local version" ) tablerow ( "show $0 ' script November 8, 2004 (generic law build) beta 3'" ) /**********************************************************************/ /* Create the initial script table. */ /**********************************************************************/ table ( "INIT" ) /* This is the new and improved way to determine is PCMSS is already running */ tablerow ( "assign $0 exec 'local vapi find win top \"MSS\" \"Monitor Window\"' " ) tablerow ( "if $0 != '00000000'" ) tablerow ( " exec 'local vapi windows foreground set ' $0 " ) tablerow ( " local exit" ) tablerow ( " return" ) tablerow ( "endif" ) /* Initialize window titles */ tablerow ( "local video top 6 show x" ) tablerow ( "local video win 1 title Waiting foir connection to the CAD system, please stand-by..." ) tablerow ( "local video win 2 title Monitor Window" ) /* Setup video font & default height */ tablerow ( "local video win 1 font Courier New" ) tablerow ( "local video win 2 font Courier New" ) tablerow ( "local video win 1 height 19" ) tablerow ( "local video win 2 height 19" ) /* win95 patch */ tablerow ( "local video cursor redraw on" ) /* SET BLINK SPEED */ tablerow ( "local video BLINK 0.5" ) /* these lines are for tcp/ip use */ tablerow ( "local line connect switch 1 tcpfmt 1" ) tablerow ( "local line connect switch 2 kbd 1" ) /* these lines are for tcp/ip printing */ tablerow ( "local line connect tcpfmt 3 zprt 2" ) /* Set default window height */ tablerow ( "assign $11 '2'" ) /* Load agency specific variables */ tablerow ( "local script file AgencySpecificLaw.mss" ) /**********************************************************************/ /* Create the dropdown menus */ /**********************************************************************/ /* Map */ /* Are the Lynx map pages installed ? */ tablerow ( "assign $1 exec 'file dir c:\\\\mappages\\\\'" ) tablerow ( "if substring 0 8 $1 != 'FileDir:' " ) tablerow ( " local main menu 9 append alt control lo &North Zone Index" ) tablerow ( " local main menu 9 append alt control ln &Central Zone Index" ) tablerow ( " local main menu 9 append alt control lm &South Zone Index" ) tablerow ( "endif" ) /* F-Keys */ tablerow ( "exec 'local main menu 8 append F1 F1 Clear Command Line' " ) tablerow ( "exec 'local main menu 8 append F2 F2 Todays ' $29 ' Calls' " ) tablerow ( "exec 'local main menu 8 append F3 F3 Search for an Incident' " ) tablerow ( "exec 'local main menu 8 append F4 F4 Send Message to Dispatcher' " ) tablerow ( "exec 'local main menu 8 append F5 F5 Paging Form' " ) tablerow ( "exec 'local main menu 8 append F6 F6 Active/Last ' $25 ' Incident" ) tablerow ( "exec 'local main menu 8 append F7 F7 ' $29 ' Staffing' " ) tablerow ( "exec 'local main menu 8 append F8 F8 Monitor ' $29 ' Only' " ) /* Are the Lynx map pages installed ? */ tablerow ( "assign $1 exec 'file dir c:\\\\mappages\\\\'" ) tablerow ( "if substring 0 8 $1 != 'FileDir:' " ) tablerow ( " exec 'local main menu 8 append F9 F9 Map current incident' " ) tablerow ( "endif" ) tablerow ( "exec 'local main menu 8 append F10 F10 Print' " ) tablerow ( "exec 'local main menu 8 append F11 F11 Exit' " ) tablerow ( "exec 'local main menu 8 append F12 F12 Login' " ) /* Font */ tablerow ( "local main menu 7 append shift control n6 &Larger" ) tablerow ( "local main menu 7 append shift control n7 &Smaller" ) /* Page */ tablerow ( "local main menu 6 append F5 &Fill-in Form F5" ) tablerow ( "local main menu 6 append shift control ll Page Unit" ) tablerow ( "local main menu 6 append shift control lp Page Individual" ) tablerow ( "exec 'local main menu 6 append shift control lq Page All ' $29 ' Apparatus' " ) /* Dispatcher */ tablerow ( "local main menu 5 append F4 Send &Message F4" ) /* Monitor */ tablerow ( "exec 'local main menu 4 append F8 ' $29 ' &Only F8' " ) tablerow ( "local main menu 4 append shift control n5 &Unit Status" ) /* Staffing */ tablerow ( "exec 'local main menu 3 append F7 ' $29 ' &Staffing F7' " ) /* Incidents */ tablerow ( "exec 'local main menu 2 append F2 ' $29 ' Today F2' " ) tablerow ( "exec 'local main menu 2 append F3 S&earch F3' " ) /* File */ tablerow ( "local main menu 1 append F12 &Login F12" ) tablerow ( "local main menu 1 append shift control ls Log&out" ) tablerow ( "local main menu 1 append control f1 &Clear All" ) tablerow ( "local main menu 1 append F10 &Print F10" ) tablerow ( "local main menu 1 append shift control ly &Version" ) tablerow ( "local main menu 1 append F11 &Exit F11" ) /* Menu Titles */ tablerow ( "local main menu 0 append 1 \\x20&File\\x20" ) tablerow ( "local main menu 0 append 2 \\x20&Incidents\\x20" ) tablerow ( "local main menu 0 append 3 \\x20&Staffing\\x20" ) tablerow ( "local main menu 0 append 4 \\x20&Monitor\\x20" ) tablerow ( "local main menu 0 append 5 \\x20&Dispatcher\\x20" ) tablerow ( "local main menu 0 append shift control ld \\x20M&essage\\x20" ) tablerow ( "local main menu 0 append 6 \\x20&Paging\\x20" ) tablerow ( "local main menu 0 append 7 \\x20F&ont\\x20" ) tablerow ( "local main menu 0 append 8 \\x20F-&Keys\\x20" ) /* Are the Lynx map pages installed ? */ tablerow ( "assign $1 exec 'file dir c:\\\\mappages\\\\'" ) tablerow ( "if substring 0 8 $1 != 'FileDir:' " ) tablerow ( " local main menu 0 append 9 \\x20&MAP\\x20" ) tablerow ( "endif" ) /* Force redraw of dropdown menus */ tablerow ( "local main menu draw" ) /**********************************************************************/ /* Standard keyboard configuration section follows */ /**********************************************************************/ /* Copy current window the cursor is in to the Windows clipboard - Control C */ tablerow ( "local key alter control lc local local script UCOPY1" ) /* Copy message window to Windows clipboard - Alt C */ /* This feature does not seem to work */ /* tablerow ( "local key alter alt lc local local clip send line" ) */ /* Paste from Windows clipboard to current default window - Control V */ tablerow ( "local key alter control lv local local clip get buf" ) /* Past from Windows clipboard to message window - Alt V */ tablerow ( "local key alter alt lv local local clip get line" ) tablerow ( "local key alter bs backspc \\x20local script ULEFTWRAP" ) tablerow ( "local key alter shift enter xkey xmit" ) tablerow ( "local key alter control enter xkey xmit" ) tablerow ( "local key alter shift home lnhome" ) tablerow ( "local key alter pgdn local local script UPGDN" ) tablerow ( "local key alter pgup local local script UPGUP" ) tablerow ( "local key alter shift pgup local lpage u" ) /* tablerow ( "local key alter pgdn local local script UTEXTLOW" ) */ tablerow ( "local key alter shift pgdn local lpage d" ) tablerow ( "local key alter left local local script UMOVELEFT" ) tablerow ( "local key alter shift left local local script UTEXTLOW" ) tablerow ( "local key alter right local local script UMOVERIGHT" ) tablerow ( "local key alter shift right local local script UTEXTHIGH" ) tablerow ( "local key alter up local local script UMOVEUP" ) /* */ tablerow ( "local key alter down local local script UMOVEDOWN" ) /* */ /* convert number pad to only numbers */ tablerow ( "local key alter pend prtchr 1") tablerow ( "local key alter pdown prtchr 2" ) tablerow ( "local key alter ppgdn prtchr 3" ) tablerow ( "local key alter pleft prtchr 4" ) tablerow ( "local key alter pclr prtchr 5" ) tablerow ( "local key alter pright prtchr 6" ) tablerow ( "local key alter phome prtchr 7" ) tablerow ( "local key alter pup prtchr 8" ) tablerow ( "local key alter ppgup prtchr 9" ) tablerow ( "local key alter pins prtchr 0" ) tablerow ( "local key alter pdel prtchr ." ) /* back slash */ tablerow ( "local key alter backs prtchr \\B" ) tablerow ( "local key alter shift backs prtchr \\B" ) tablerow ( "local key alter control backs local local script UEXIT" ) /* pad '/' */ tablerow ( "local key alter pslash local lpage d" ) /* page forward */ /* number lock */ tablerow ( "local key alter nl xkey NM" ) /* pad '-' */ tablerow ( "local key alter pdash pghome" )/* first page */ /* pad '*' */ tablerow ( "local key alter pstar local lpage u" )/* page forward */ /* pad '+' */ tablerow ( "local key alter pplus xmit -c" ) tablerow ( "local key alter shift pplus local local script UTEXTLOW" ) tablerow ( "local key alter control pplus local local script UTEXTLOW" ) /* pad 'Enter' */ tablerow ( "local key alter enter xmit" ) tablerow ( "local key alter penter xmit" ) tablerow ( "local key alter shift penter xmit" ) tablerow ( "local key alter alt penter xmit" ) tablerow ( "local key alter control penter xmit" ) /**********************************************************************/ /* Function key layout */ /**********************************************************************/ /* F1 */ tablerow ( "local key alter F1 local local script UCLEARCMD" ) tablerow ( "local key alter shift F1 local local nop" ) tablerow ( "local key alter control F1 local local script UCLEARDEF" ) /* F2 */ tablerow ( "local key alter F2 local local script UIQTODAY" ) /* F3 */ tablerow ( "local key alter F3 local local script UCNSSEARCH" ) /* F4 */ tablerow ( "local key alter F4 local local script UTOFIRX" ) /* F5 */ tablerow ( "local key alter F5 local local script UPFORM" ) /* F6 */ tablerow ( "local key alter F6 local local script UIQS" ) /* F7 */ tablerow ( "local key alter F7 local local script UURJUR" ) /* F8 */ tablerow ( "local key alter F8 local local script UMONJUR" ) /* F9 */ tablerow ( "assign $1 exec 'file dir c:\\\\mappages\\\\'" ) /* Are the Lynx map pages installed ? */ tablerow ( "if substring 0 8 $1 != 'FileDir:' " ) tablerow ( " exec 'local key alter F9 xkey LOADMAP U/' $25 " ) tablerow ( "else" ) tablerow ( " local key alter F9 local beep" ) tablerow ( "endif" ) /* F10 */ tablerow ( "local key alter F10 local local PRINT" ) /* F11 */ tablerow ( "local key alter F11 local local script UEXIT" ) /* F12 */ tablerow ( "local key alter F12 local local script ULOGIN" ) /**********************************************************************/ /* Special purpose key definitions */ /**********************************************************************/ tablerow ( "local key alter mouser local local script table USCREEN" ) tablerow ( "local key alter mousel local local script table ULMOUSEDOWN" ) tablerow ( "local key alter mouselup local local script table ULMOUSEUP" ) /* tilde */ tablerow ( "local key alter tilde local local script USCREEN" ) tablerow ( "local key alter shift control colon local local nop" ) /* Dummy key */ tablerow ( "local key alter shift control n1 local beep" ) tablerow ( "local key alter shift control n2 local beep" ) tablerow ( "local key alter shift control n3 local beep" ) tablerow ( "local key alter shift control n4 local beep" ) tablerow ( "local key alter shift control n5 local local script UUSJUR" ) tablerow ( "local key alter shift control n6 local local script UFONTBIG" ) tablerow ( "local key alter shift control n7 local local script UFONTSMALL" ) tablerow ( "local key alter shift control lb local beep" ) tablerow ( "local key alter shift control ld local local script UNM" ) tablerow ( "local key alter shift control lf local beep" ) tablerow ( "local key alter shift control lg local beep" ) tablerow ( "local key alter shift control li local beep" ) tablerow ( "local key alter shift control lj local beep" ) tablerow ( "local key alter shift control lk local beep" ) tablerow ( "local key alter shift control ll local local script UPUNIT" ) tablerow ( "local key alter shift control lm local beep" ) tablerow ( "local key alter shift control ln local beep" ) tablerow ( "local key alter shift control lo local beep" ) tablerow ( "local key alter shift control lp local local script UPIND" ) tablerow ( "local key alter shift control lq local local script UPALLUNITS" ) tablerow ( "local key alter shift control ls local local script ULOGOUT" ) tablerow ( "local key alter shift control lw local beep" ) tablerow ( "local key alter shift control ly local local script UVERSION" ) tablerow ( "local key alter shift control lz local local script UNOP" ) tablerow ( "assign $1 exec 'file dir c:\\\\mappages\\\\'" ) /* Are the Lynx map pages installed ? */ tablerow ( "if substring 0 8 $1 != 'FileDir:' " ) tablerow ( " local key alter alt control lm local local script UMAPINDEXSOUTH" ) tablerow ( " local key alter alt control ln local local script UMAPINDEXCENTRA" ) tablerow ( " local key alter alt control lo local local script UMAPINDEXNORTH" ) tablerow ( "endif" ) /**********************************************************************/ /* Complete the INIT table w/some misc items */ /**********************************************************************/ /* this line calls the terminal specific script */ tablerow ( "local script file dispterm.mss" ) tablerow ( "local script ULINES" ) /* define the screen # */ tablerow ( "assign $15 '2'" ) tablerow ( "local video win 2 show n" ) /* Maximize screen 2 */ tablerow ( "local video win 2 show x" ) /* Set focus to screen 2 */ /**********************************************************************/ /* Create the local lines command script table */ /**********************************************************************/ table ( "LINES" ) tablerow ( "local init l" ) tablerow ( "local key do xkey LINES" ) tablerow ( "local key do xkey RC" ) /**********************************************************************/ /* create various script tables */ /**********************************************************************/ table ( "EXIT" ) tablerow ( " local key do xkey OP OFF" ) tablerow ( " local exit" ) table ( "PGDN" ) tablerow ( "local script UGETWIN" ) /* Get working window number */ tablerow ( "if $0 == '1'" ) tablerow ( " lpage d" ) /* Page current window */ tablerow ( "else" ) tablerow ( " lpage w120" ) /* Page monitor */ tablerow ( "endif" ) table ( "PGUP" ) tablerow ( "local script UGETWIN" ) /* Get working window number */ tablerow ( "if $0 == '1'" ) tablerow ( " lpage u" ) /* Page current window */ tablerow ( "else" ) tablerow ( " lpage u120" ) /* Page monitor */ tablerow ( "endif" ) /* This script will return in $0 if we are on the Working screen (1) or Monitor screen (2) */ table ( "GETWIN" ) tablerow ( "assign $1 exec 'local vapi find win top \"MSS\" \"Monitor Window\"' " ) /* Monitor window hwnd */ tablerow ( "assign $2 exec 'local vapi windows active get' " ) /* Current window hwnd */ tablerow ( "if $1 == $2 " ) tablerow ( " assign $0 '2' " ) tablerow ( "else" ) tablerow ( " assign $0 '1' " ) tablerow ( "endif" ) /* This script will copy the contents of the window where the cursor is placed */ /* to the Windows clipboard. */ table ( "COPY1" ) tablerow ( "input current" ) tablerow ( "local clip send buf" ) /* This script is not currently in use */ table ( "INPUTXX" ) tablerow ( "debug display z \\zwn\\wdefINPUT\\zst\\zic\\zup" ) /* */ table ( "LEFTWRAP" ) tablerow ( "local key do uparrow" ) tablerow ( "local key do lnend" ) table ( "RIGHTWRAP" ) tablerow ( "local key do dnarrow" ) tablerow ( "local key do lnhome" ) table ( "TEXTLOW" ) tablerow ( "assign $11 plus $11 '-1'" ) tablerow ( "if $11 < '2' assign $11 '10' endif" ) tablerow ( "exec 'local text ' $11" ) tablerow ( "if $11 < '3' flip 7" ) tablerow ( "else flip 6" ) tablerow ( "endif" ) table ( "TEXTHIGH" ) tablerow ( "assign $11 plus $11 '1'" ) tablerow ( "if $11 > '10' assign $11 '2' endif" ) tablerow ( "exec 'local text ' $11" ) tablerow ( "if $11 < '3' flip 7" ) tablerow ( "else flip 6" ) tablerow ( "endif" ) table ( "CLEARDEF" ) tablerow ( "local script USCREEN1" ) tablerow ( "flip 2" ) tablerow ( "local key do clrall" ) tablerow ( "flip m" ) tablerow ( "local key do clrall" ) table ( "CLEARCMD" ) tablerow ( "local script USCREEN1" ) tablerow ( "flip m" ) table ( "MOVERIGHT" ) tablerow ( "local key do rtarrow" ) tablerow ( "local key do slide" ) table ( "MOVELEFT" ) tablerow ( "local key do lfarrow" ) tablerow ( "local key do lfslide" ) table ( "MOVEUP" ) tablerow ( "local key do uparrow Aflip 4" ) tablerow ( "local key do slide" ) table ( "MOVEDOWN" ) tablerow ( "local key do dnarrow Aflip 3" ) tablerow ( "local key do slide" ) table ( "XFERFOCUS" ) tablerow ( "local spawn focus get" ) tablerow ( "local video show t" ) table ( "RP" ) tablerow ( "lpage w014" ) /* toggle between the working screen and the monitor screen */ table ( "SCREEN" ) tablerow ( "if $15 == '1' assign $15 '2'" ) tablerow ( "local video win 2 show n" ) /* Maximize screen 2 */ tablerow ( "local video win 2 show x" ) /* Set focus to screen 2 */ tablerow ( "else assign $15 '1'" ) tablerow ( "local video win 1 show n" ) /* Maximize screen 1 */ tablerow ( "local video win 1 show x" ) /* Set focus to screen 1 */ tablerow ( "endif" ) /* toggle between the working screen and the monitor screen */ table ( "SCREEN1" ) tablerow ( "if $15 != '1' assign $15 '1'" ) tablerow ( "local video win 1 show n" ) /* Maximize screen 1 */ tablerow ( "local video win 1 show x" ) /* Set focus to screen 1 */ tablerow ( "endif" ) /* toggle between the working screen and the monitor screen */ table ( "SCREEN2" ) tablerow ( "if $15 != '2' assign $15 '2'" ) tablerow ( "local video win 2 show n" ) /* Maximize screen 2 */ tablerow ( "local video win 2 show x" ) /* Set focus to screen 2 */ tablerow ( "endif" ) table ( "IQTODAY" ) tablerow ( "local script USCREEN1" ) tablerow ( "flip 6" ) tablerow ( "exec 'local key do xkey IQ J/' $28 " ) table ( "CNSSEARCH" ) tablerow ( "local script USCREEN1" ) tablerow ( "flip 6" ) tablerow ( "local key do xkey CNS" ) table ( "LOGIN" ) tablerow ( "local script USCREEN1" ) tablerow ( "local key do xkey OP" ) table ( "LOGOUT" ) tablerow ( "local script USCREEN1" ) tablerow ( "local key do xkey OP OFF" ) table ( "USJUR" ) tablerow ( "local script USCREEN1" ) tablerow ( "flip 6" ) tablerow ( "exec 'local key do xkey US ' $28 " ) table ( "URJUR" ) tablerow ( "local script USCREEN1" ) tablerow ( "flip 6" ) tablerow ( "exec 'local key do xkey UR ' $28 " ) table ( "MONJUR" ) tablerow ( "exec 'local key do xkey MON/AWIUS ' $24 " ) tablerow ( "local script USCREEN2" ) table ( "TOFIRX" ) tablerow ( "local script USCREEN1" ) tablerow ( "flip m" ) tablerow ( "exec 'debug display z \\\\zwn\\\\x05TO/' $26 '/\\\\zic'" ) table ( "NM" ) tablerow ( "local script USCREEN1" ) tablerow ( "local key do xkey NM" ) table ( "IQS" ) tablerow ( "local script USCREEN1" ) tablerow ( "flip 6" ) tablerow ( "exec 'local key do xkey IQRS ' $25 " ) table ( "PFORM" ) tablerow ( "local script USCREEN1" ) tablerow ( "local key do xkey PMSG" ) table ( "PUNIT" ) tablerow ( "local script USCREEN1" ) tablerow ( "flip m" ) tablerow ( "debug display z \\zwn\\x05PAGE \\zicunit, text..." ) table ( "PIND" ) tablerow ( "local script USCREEN1" ) tablerow ( "flip m" ) tablerow ( "debug display z \\zwn\\x05PAGE #\\zicopid, text..." ) table ( "PALLUNITS" ) tablerow ( "local script USCREEN1" ) tablerow ( "flip m" ) tablerow ( "exec 'debug display z \\\\zwn\\\\x05PAGE G/' $28 ',\\\\zictext..." ) /* Yes, do nothing */ table ( "NOP" ) tablerow ( "local nop" ) table ( "PCTITLE" ) tablerow ( "exec 'local video win 1 title ' input param 0" ) table ( "FONTBIG" ) tablerow ( "assign $12 plus $12 '1'" ) tablerow ( "if $12 > '60' assign $12 '60' endif" ) tablerow ( "local video win 1 font Courier New" ) tablerow ( "local video win 2 font Courier New" ) tablerow ( "local video win 3 font Courier New" ) tablerow ( "exec 'local video win 1 height ' $12" ) tablerow ( "exec 'local video win 2 height ' $12" ) tablerow ( "exec 'local video win 3 height ' $12" ) table ( "FONTSMALL" ) tablerow ( "assign $12 plus $12 '-2'" ) tablerow ( "if $12 < '4' assign $12 '4' endif" ) tablerow ( "local video win 1 font Courier New" ) tablerow ( "local video win 2 font Courier New" ) tablerow ( "local video win 3 font Courier New" ) tablerow ( "exec 'local video win 1 height ' $12" ) tablerow ( "exec 'local video win 2 height ' $12" ) tablerow ( "exec 'local video win 3 height ' $12" ) table ( "EXECUTETO" ) tablerow ( "assign $1 input param 1" ) /* first parameter */ tablerow ( "if $1 == '' return endif" ) /* if blank, all done */ tablerow ( "assign $0 input param 0" ) /* whole input string */ tablerow ( "assign $2 plus '1' find ' ' $0" ) /* skip over first parameter */ tablerow ( "assign $2 trim substring $2 400 $0" ) /* command to execute */ tablerow ( "open 1 temp" ) /* put output into table */ tablerow ( "write 1 'TO/' $1 '/\x80'" ) tablerow ( "assign $0 exec output 1 $2" ) /* execute command */ tablerow ( "if $0 != '' write 1 $0 endif" ) tablerow ( "if convert upper $1 == 'PC'" ) tablerow ( " display clear 1" ) tablerow ( "else" ) tablerow ( " send 1" ) tablerow ( "endif" ) tablerow ( "close 1" ) /**********************************************************************/ /* Create the Map / PDF viewing scripts. */ /**********************************************************************/ table ( "MAPINDEXSOUTH" ) tablerow ( "assign $1 exec 'file dir C:\\\\MapPagesSouth\\\\'" ) tablerow ( "if substring 0 8 $1 != 'FileDir:' " ) tablerow ( " assign $0 'C:\\\\MapPagesSouth\\\\Southern Zone Fire Map Index'" ) tablerow ( " local script UGETMAP" ) tablerow ( "else" ) tablerow ( " local beep" ) tablerow ( " show 'No map pages found for the South Zone' ") tablerow ( " endif" ) table ( "MAPINDEXCENTRA" ) tablerow ( "assign $1 exec 'file dir C:\\\\MapPagesCentral\\\\'" ) tablerow ( "if substring 0 8 $1 != 'FileDir:' " ) tablerow ( " assign $0 'C:\\\\MapPagesCentral\\\\SMCOCITIESINDEX'" ) tablerow ( " local script UGETMAP" ) tablerow ( "else" ) tablerow ( " local beep" ) tablerow ( " show 'No map pages found for the Central Zone' ") tablerow ( " endif" ) table ( "MAPINDEXNORTH" ) tablerow ( "assign $1 exec 'file dir C:\\\\MapPagesNorth\\\\'" ) tablerow ( "if substring 0 8 $1 != 'FileDir:' " ) tablerow ( " assign $0 'C:\\\\MapPagesCentral\\\\Northern Zone Fire Map Index'" ) tablerow ( " local script UGETMAP" ) tablerow ( "else" ) tablerow ( " local beep" ) tablerow ( " show 'No map pages found for the North Zone' ") tablerow ( " endif" ) /* This script will load the PDF map page passed as parameter 0 */ table ( "LOADMAP" ) tablerow ( "assign $0 input param 1" ) /* Get map page number */ tablerow ( "if '' == $0 " ) /* Make sure a page was entered */ tablerow ( " show 'No map page specified' ") /* Send error to user */ tablerow ( " return" ) /* Exit script */ tablerow ( "endif" ) tablerow ( "local script UGETMAP" ) /* Call the script that activates Adobe */ /* This script will load the PDF map page specified in $0 */ table ( "GETMAP" ) tablerow ( "show 'Loading map'" ) /* Inform user we are loading the map */ tablerow ( "assign $1 'local spawn run' " ) /* Build the command in less complex parts */ tablerow ( "assign $2 'C:\\\\Program Files\\\\Adobe\\\\Acrobat 5.0\\\\Acrobat\\\\AcroRD32.exe' " ) tablerow ( "if substring 1 1 $0 != ':' " ) /* Was complete path passed */ tablerow ( " assign $3 'C:\\\\MapPages\\\\' " ) tablerow ( "else" ) tablerow ( " assign $3 '' " ) tablerow ( "endif" ) tablerow ( "assign $4 '.pdf' " ) tablerow ( "assign $5 exec $1 ' ' $2 ' ' $3 $0 $4 " ) /* Execute command */ tablerow ( "if substring 0 12 $5 == 'Spawn failed' " ) /* If execute failes, try loading Acrobat */ tablerow ( " assign $2 'C:\\\\Program Files\\\\Adobe\\\\Acrobat 5.0\\\\Acrobat\\\\Acrobat.exe' " ) tablerow ( " assign $5 exec $1 ' ' $2 ' ' $3 $0 $4 " ) tablerow ( "endif" ) tablerow ( "if substring 0 12 $5 == 'Spawn failed' " ) /* If we still can't load Adobe, let user know we have a problem */ tablerow ( " show 'Unable to start Adobe Reader or Acrobat' " ) tablerow ( "endif" ) /**********************************************************************/ /* Create the left mouse key script tables. */ /**********************************************************************/ /* Here is what the mouse functions do */ /* Mouse Down Mouse UP Command Function */ /* ---------- --------- ------- ---------------------------------------------- */ /* Unit1 Unit2 UQR unit1 If same unit, UQR is performed */ /* Unit1 Unit2 A unit2 unit1 If different units, an A (assist) is performed */ /* Unit Incident D #inc unit Unit is dispatched to incident */ /* Unit wdf UQR unit Unit history */ /* Unit wcc S unit */ /* Unit wrc R unit Recall units incident to recall window */ /* Unit wcm Displays unit on command line */ /* Unit Station MOV unit station Unit is moved to station */ /* Unit "QUARTERS" AIQ unit AIQ unit */ /* Incident wcm Displays incident on command line */ /* Incident Unit D #inc unit Unit is dispatched to incident */ /* Incident Incident IQR #inc IQR of incident is performed */ /* Blank Cursor is moved to mouse location */ /* Variables used */ /* $0, $1 = Scratch */ /* $8 = param from mouse down */ /* $9 = "call" or "unit" from mouse down */ /* $2 = "none", "call", "unit", or "station" from mouse up */ table ( "LMOUSEDOWN" ) tablerow ( "assign $29 substring 0 3 local mouse find" ) /* Get window name mouse is over */ tablerow ( "if 'wnp' == $29" ) /* Scroll forward request */ tablerow ( " lpage d" ) /* page forward */ tablerow ( " return" ) tablerow ( "elseif 'wpa' == $29" ) tablerow ( " lpage d" ) /* page forward */ tablerow ( " return" ) tablerow ( "endif" ) tablerow ( "assign $1 local mouse get" ) /* Get text under mouse pointer */ tablerow ( "assign $0 substring 0 1 $1" ) /* Extract 1st character of $1 */ tablerow ( "if 'a' <= $0" ) /* Remove leading lower case alpha */ tablerow ( " if 'z' >= $0" ) tablerow ( " assign $1 substring 1 100 $1" ) tablerow ( " endif" ) tablerow ( "endif" ) tablerow ( "assign $8 trim punct $1" ) /* Trim leading/ending non-alphanumeric characters */ tablerow ( "if '' == $8" ) /* Nothing left after trim? */ tablerow ( " assign $9 'none'" ) tablerow ( " local mouse move" ) /* Move cursor */ tablerow ( " return" ) /* Exit */ tablerow ( "endif" ) tablerow ( "local video cursor icon" ) /* Change mouse pointer */ tablerow ( "if '#' == $0" ) /* Is string equal to # */ tablerow ( " assign $9 'call'" ) /* Assume incident number */ tablerow ( "else" ) tablerow ( " assign $9 'unit'" ) /* Default to unit id */ tablerow ( "endif" ) table ( "LMOUSEUP" ) tablerow ( "assign $29 substring 0 3 local mouse find" ) /* Get window name mouse is over */ tablerow ( "if 'wnp' == $29" ) /* Scroll forward request */ tablerow ( " return" ) tablerow ( "elseif 'wpa' == $29" ) tablerow ( " return" ) tablerow ( "endif" ) tablerow ( "local video cursor default" ) /* Change mouse point to default */ tablerow ( "assign $1 local mouse get" ) /* Get text under mouse pointer */ tablerow ( "assign $0 substring 0 1 $1" ) /* Extract 1st character of $1 */ tablerow ( "if 'a' <= $0" ) /* Remove leading lower case alpha */ tablerow ( " if 'z' >= $0" ) tablerow ( " assign $1 substring 1 100 $1" ) tablerow ( " endif" ) tablerow ( "endif" ) tablerow ( "assign $1 trim punct $1" ) /* Trim leading/ending non-alphanumeric characters */ tablerow ( "if '' == $1 assign $2 'none'" ) tablerow ( "elseif '#' == $0" ) tablerow ( " assign $2 'call'" ) tablerow ( "elseif 'FS' == substring 0 2 $1" ) /* FS from status monitor */ tablerow ( " assign $2 'station'" ) tablerow ( "elseif 'QUARTERS' == substring 0 8 $1" ) /* QUARTERS from status monitor */ tablerow ( " assign $2 'qtrs'" ) tablerow ( "elseif 'AVAILABLE' == substring 6 9 $1" ) /* AVAILALBE from status monitor */ tablerow ( " assign $2 'avail'" ) tablerow ( "else" ) tablerow ( " assign $2 'unit'" ) tablerow ( "endif" ) tablerow ( "assign $0 substring 0 3 local mouse find" ) /* Get window name mouse is over */ tablerow ( "if 'unit' == $9" ) /* If mouse down was a unit */ tablerow ( " if 'unit' == $2" ) /* If mouse up was a unit */ tablerow ( " if $8 == $1" ) /* If same unit, UQR unit */ tablerow ( " if $15 != '1' assign $15 '1'" ) tablerow ( " local video win 1 show n" ) tablerow ( " local video win 1 show x" ) tablerow ( " endif" ) tablerow ( " exec 'flip 6'" ) tablerow ( " exec 'remote UQR ' $8" ) tablerow ( " else" ) tablerow ( " exec 'remote A ' $1 ' ' $8" ) /* If not same unit, assist unit */ tablerow ( " endif" ) tablerow ( " elseif 'call' == $2 exec 'remote D #' $1 ' ' $8" ) /* If mouse up is call, dispatch unit */ tablerow ( " elseif 'wdf' == $0 exec 'remote UQR ' $8" ) /* Unit in default window, UQR unit */ tablerow ( " elseif 'wwc' == $0 exec 'remote S ' $8" ) /* Unit in waiting call win, S unit */ tablerow ( " elseif 'wrc' == $0 exec 'remote R ' $8" ) /* Unit in recalled call win, R unit */ tablerow ( " elseif 'wcm' == $0 exec 'debug display z \\\\zwn\\\\x05' $8 ' \\\\zic" ) /* Copy unit to command line */ tablerow ( " elseif 'station' == $2 exec 'remote MOV ' $8 ' ' $1") /* Station move up */ tablerow ( " elseif 'qtrs' == $2 exec 'remote AIQ ' $8" ) /* AIQ */ tablerow ( " elseif 'avail' == $2 exec 'remote AOR ' $8" ) /* AOR */ tablerow ( " else local beep" ) /* Something else, alert user */ tablerow ( " endif" ) tablerow ( "elseif 'call' == $9" ) /* If mouse down as an incident */ tablerow ( " if 'call' == $2" ) /* If mouse up was an incident */ tablerow ( " if $8 == $1" ) /* If same incident, IQR */ tablerow ( " if $15 != '1' assign $15 '1'" ) tablerow ( " local video win 1 show n" ) tablerow ( " local video win 1 show x" ) tablerow ( " endif" ) tablerow ( " exec 'flip 6'" ) tablerow ( " if length $8 < 10" ) /* Partial incident number provided */ tablerow ( " assign $8 $28 $8" ) /* Prefix with jurisdiction */ tablerow ( " endif" ) tablerow ( " exec 'remote IQR #' $8" ) /* Send command */ tablerow ( " else" ) tablerow ( " local beep" ) /* Can't have different incident numbers */ tablerow ( " endif" ) tablerow ( " elseif 'unit' == $2 exec 'remote D #' $8 ' ' $1" ) /* If mouse up was unit, dispatch it */ tablerow ( " elseif 'wdf' == $0 exec 'remote IQR #' $8" ) /* Incident in default window */ tablerow ( " elseif 'wwc' == $0 exec 'remote S #' $8" ) /* Incident in waiting call win */ tablerow ( " elseif 'wrc' == $0 exec 'remote R #' $8" ) /* Incident in recalled call win */ tablerow ( " elseif 'wcm' == $0 exec 'debug display z \\\\zwn\\\\x05' $8 ' \\\\zic" ) /* Copy incident to command line */ tablerow ( " else local beep" ) tablerow ( " endif" ) tablerow ( "endif" ) /**********************************************************************/ /* Create a table for the help function key display (not used) */ /**********************************************************************/ table ( "FNHELP" ) tablerow ( "ctrl | STX | ETX |CLR WIN|FUL SCN|IHQ MSK|CLR EOL" ) tablerow ( "shift | HELP |DISP 3 |HLD ALL|IS ALL | LINES |LAST 12|\x80" ) tablerow ( "plain |DISP 1 |DISP 2 | HOLD |SELECT |PG DISP|PG RCL |\x80" ) tablerow ( "key +---F1--+---F2--+---F3--+---F4--+---F5--+---F6--+\x80" ) tablerow ( "\x80" ) tablerow ( "ctrl | - | - | - | - | - | - |\x80" ) tablerow ( "shift |CLR RCL|PRM INF|PG BACK|FRST PG| PRINT | ALI 1 |\x80" ) tablerow ( "plain |CLR CMD|INC HST|PG FORW|NXT MSG| INPUT | ALI 2 |\x80" ) tablerow ( "key +---F7--+---F8--+---F9--+--F10--+--F11--+--F12--+\x80" ) tablerow ( "\x80" ) tablerow ( " +-------+-------+-------+-------+-------+\x80" ) tablerow ( "shift | - | - | - | - | - |\x80" ) tablerow ( "plain |INC MSK|PG MON1|PG MON2| SAVE | UNSAVE|\x80" ) tablerow ( "key +PRT SCN+NUM LCK+---/---+-- * --+-- - --+\x80" ) tablerow ( "\x80" ) tablerow ( " Use shift up/down arrows to move between windows\x80" ) tablerow ( " Use Keypad Enter, Keypad +, or ESC Key to Transmit\x80" ) /**********************************************************************/ /* Define various symbol names */ /**********************************************************************/ name ( "Owner" "San Mateo County Public Safety Communications" ) name ( "Dongle/0" "a4 f4 9b b7 be f0 85 f6 b8 b8 96 f5 a6 f2 a5 e7 d7 b5 80 85 9f 88 92 c3 0c 58 3b 5e 2f 44 79 7c 68 05 68 1f 6d 05 62 0f 5f a9 46 ac 5c c4 2d c6" ) name ( "Dongle/1" "a5eb7d36" ) name ( "Zprt/Page/Length" 60 ) /* printer page length */ name ( "Zprt/Page/Width" 80 ) /* printer page width */ name ( "Zprt/Page/Wrap" "FALSE" ) /* printer page wrap flag */ name ( "Local/Inithelp" "FALSE" ) name ( "Ztrn/Debug" 50 ) name ( "Cmd/IN" "local script ULINES" ) name ( "Cmd/APPEND" "local route XAPND" ) /* Use the new append feature */ name ( "Cmd/ROUTE" "local route TO" ) name ( "Cmd/AC" "local route ACM" ) name ( "Cmd/XFERFOCUS" "local script UXFERFOCUS" ) name ( "Cmd/RP" "local script URP" ) name ( "Cmd/VERSION" "local script UVERSION" ) name ( "Cmd/EXECUTETO" "local script UEXECUTETO" ) name ( "Cmd/PCTITLE" "local script UPCTITLE" ) name ( "Cmd/FONTBIG" "local script UFONTBIG" ) name ( "Cmd/FONTSMALL" "local script UFONTSMALL" ) name ( "Cmd/PRINT" "local print" ) name ( "Cmd/EXIT" "local exit" ) name ( "Cmd/CL" "local key do xkey M_CL" ) name ( "Cmd/CLO" "local key do xkey M_CLO" ) name ( "Cmd/CLX" "local key do xkey M_CLX" ) name ( "Cmd/M" "local key do xkey M_M" ) name ( "Cmd/SUP" "local key do xkey M_SUP" ) name ( "Cmd/ESUP" "local key do xkey M_ESUP" ) /**********************************************************************/ /* The first and only screen is both the main working screen */ /* and the monitor screen. */ /**********************************************************************/ screen ( 0 ) color ( 7 3 ) /* Default Colors */ driver ( 1 ) /* MS Windows driver */ /* predefine default text windows */ map ( 8 8 "df1" ) map ( 9 9 "df2" ) map ( 10 10 "df3" ) map ( 11 11 "df4" ) map ( 35 35 "df5" ) map ( 36 36 "df6" ) map ( 37 37 "df7" ) map ( 38 38 "df8" ) map ( 39 39 "df9" ) map ( 40 40 "df10" ) /* default text goes to this window initially */ map ( 9 7 ) /* define background window */ window ( 0 ) /* background window */ box ( 0 11 0 3 80 ) coord ( 1 -2 0 49 100 ) coord ( 4 1 0 1 1 ) box ( 1 23 0 2 80 ) coord ( 1 -2 0 1 1 ) coord ( 4 0 0 1 1 ) color ( 17 17 ) /* define place holder windows */ window ( 24 ) /* working screen area */ window ( 25 24 ) /* full working screen */ box ( 0 24 0 2 80 ) coord ( 1 -2 0 1 1 ) coord ( 4 0 0 1 1 ) box ( 1 24 79 2 1 ) coord ( 1 -2 0 1 1 ) coord ( 2 -1 0 1 1 ) color ( 17 17 ) hide ( ) /* start off invisible */ window ( 26 24 ) /* split working screen */ box ( 0 11 0 2 80 ) coord ( 1 -2 0 49 100 ) coord ( 4 0 0 1 1 ) box ( 1 24 79 2 1 ) coord ( 1 -2 0 1 1 ) coord ( 2 -1 0 1 1 ) box ( 2 12 0 1 80 ) coord ( 1 -1 0 49 100 ) coord ( 4 0 0 1 1 ) box ( 3 12 79 1 1 ) coord ( 1 -1 0 49 100 ) coord ( 2 -1 0 1 1 ) color ( 17 17 ) window ( 27 26 ) /* dispatch/default area */ window ( 32 27 ) /* dispatch area */ window ( 30 32 ) /* waiting/recalled area */ window ( 34 26 ) /* monitor/default area */ window ( 35 34 ) /* lower default area */ window ( 36 ) /* lower default area paging */ /* define text type windows */ window ( 1 26 ) /* status window */ box ( 0 11 61 2 17 ) coord ( 1 -1 0 49 100 ) coord ( 2 1 0 3 4 ) coord ( 4 -3 0 1 4 ) map ( 1 1 "sta" ) flipdisp ( 26 ) /* turn on split screen*/ color ( 6 6 ) window ( 2 ) /* define group window */ map ( 2 0 "grp" ) window ( 4 35 ) /* second command window */ box ( 0 11 0 2 60 ) coord ( 1 -1 0 49 100 ) coord ( 4 0 0 3 4 ) max ( 2 200 ) map ( 4 2 "cm2" ) /* command msgs go here initially */ map ( 4 4 ) flipreq ( 26 ) /* turn on split screen */ flipreq ( 35 ) /* turn on default area */ flipto ( 1 4 ) /* the matching command window */ flipto ( 2 9 ) /* the matching default window */ flipto ( 3 9 ) /* the skip down function */ flipto ( 4 9 ) /* the skip up function */ flipto ( 5 9 ) /* skip to opposite default window */ flipto ( 6 11 ) /* go to full screen */ flipto ( 7 4 ) /* go to bottom cmd window */ flipto ( 8 11 ) /* go to full screen */ color ( 23 1 ) window ( 9 35 ) /* second default window */ box ( 0 13 0 11 80 ) coord ( 1 1 0 49 100 ) coord ( 3 -2 0 51 100 ) coord ( 4 1 0 1 1 ) map ( 9 9 ) flipreq ( 26 ) /* turn on split screen */ flipreq ( 35 ) /* turn on default area */ fliptext ( 2 10 ) /* restrict allowed text windows */ flipto ( 1 4 ) /* the matching command window */ flipto ( 2 9 ) /* the matching default window */ flipto ( 3 4 ) /* the skip down function */ flipto ( 4 4 ) /* the skip up function */ flipto ( 5 4 ) /* skip to opposite default window */ flipto ( 6 11 ) /* go to full screen */ flipto ( 7 4 ) /* go to bottom cmd window */ flipto ( 8 11 ) /* go to full screen */ page ( 21 1 1 ) textnum ( 41 ) window ( 11 25 9 ) /* fourth default window */ box ( 0 0 0 24 80 ) coord ( 3 -1 0 1 1 ) coord ( 4 1 0 1 1 ) map ( 9 ) flipreq ( 25 ) /* turn on full screen */ flipreq ( 11 ) /* this full screen */ fliptext ( 2 10 ) /* restrict allowed text windows */ flipto ( 1 0 ) /* no matching command window */ flipto ( 2 11 ) /* the matching default window */ flipto ( 3 4 ) /* the skip down function */ flipto ( 4 4 ) /* the skip up function */ flipto ( 5 4 ) /* skip to opposite default window */ flipto ( 6 11 ) /* go to top full screen window */ flipto ( 7 4 ) /* go to bottom full screen window */ flipto ( 8 4 ) /* go to split screen */ page ( 21 ) textnum ( 41 ) hide ( ) /* start off invisible */ window ( 12 ) /* error window */ box ( 0 24 9 1 70 ) coord ( 1 -1 0 1 1 ) coord ( 4 -12 0 96 100 ) map ( 12 "err" ) /* error msgs go here initially */ color ( 23 7 ) window ( 13 ) /* message waiting window */ box ( 0 24 0 1 8 ) coord ( 1 -1 0 1 1 ) map ( 13 "msg" ) /* msg waiting goes here */ color ( 1 116 ) window ( 14 30 ) /* recalled complaint window */ box ( 0 0 40 11 40 ) /* See note 1 if you change the width */ coord ( 2 0 0 1 2 ) coord ( 3 -1 0 49 100 ) coord ( 4 0 0 1 2 ) map ( 14 14 "rcm" ) flipdisp ( 30 ) /* turn on waiting/recalled */ flipdisp ( 26 ) /* turn on split screen*/ page ( 7 1 1 1 ) /* use 1 to 1 scrolling ratio */ /* page ( 7 3 4 1 ) */ window ( 15 30 ) /* waiting complaint window */ box ( 0 0 0 11 40 ) /* See note 1 if you change the width */ coord ( 3 -1 0 49 100 ) coord ( 4 0 0 1 2 ) map ( 15 15 "wcm" ) flipdisp ( 30 ) /* turn on waiting/recalled */ flipdisp ( 26 ) /* turn on split screen*/ /* The 3 and 4 are the scrolling ratio when the window is paged. If a ratio of */ /* 1 to 1 is used, the END/MORE indicator will display END, but will still scroll */ /* a more because of the greater than 1 to 1 ratio. */ /* page ( 6 3 4 1 ) */ page ( 6 1 1 1 ) /* Use a 1 to 1 scrolling ratio */ window ( 16 32 ) /* wide waiting complaint window */ box ( 0 0 0 11 80 ) coord ( 3 -1 0 49 100 ) coord ( 4 1 0 1 1 ) map ( 16 16 "top" ) flipdisp ( 16 ) /* turn ourselves on */ flipdisp ( 26 ) /* turn on split screen*/ page ( 31 1 1 1 ) /* Use a 1 to 1 scrolling ratio */ /* page ( 31 3 4 1 ) */ hide ( ) /* start off invisible */ window ( 6 30 ) /* paging for waiting call window */ box ( 0 0 39 11 1 ) coord ( 2 -1 0 1 2 ) coord ( 3 -1 0 49 100 ) map ( 46 "rpg" ) window ( 7 30 ) /* paging for recalled call window */ box ( 0 0 79 11 1 ) coord ( 2 -1 0 1 1 ) coord ( 3 -1 0 49 100 ) map ( 47 "wpg" ) /* define paging windows */ window ( 31 26 ) /* paging for top default window */ box ( 0 12 79 1 1 ) coord ( 1 0 0 49 100 ) coord ( 2 -1 0 1 1 ) map ( 48 "tpg" ) window ( 21 36 ) /* paging for bottom default window */ box ( 0 24 79 1 1 ) coord ( 1 -1 0 1 1 ) coord ( 2 -1 0 1 1 ) flipreq ( 21 ) /* turn us on */ window ( 22 ) /* more pages window */ map ( 22 22 "pag" ) window ( 23 ) /* no more pages window */ map ( 23 23 "npg" ) window ( 28 ) /* help window */ box ( 0 4 11 16 58 ) coord ( 1 1 0 1 6 ) coord ( 2 1 0 1 6 ) coord ( 3 -1 0 2 3 ) coord ( 4 -1 0 2 3 ) map ( 28 28 "hlp" ) /* help messages go here */ hide ( ) /* start off invisible */ page ( 29 ) color ( 19 1 ) window ( 29 28 ) /* help window border */ box ( 0 3 10 1 60 ) coord ( 1 0 0 1 6 ) coord ( 2 0 0 1 6 ) coord ( 4 0 0 2 3 ) box ( 1 4 10 17 1 ) coord ( 1 1 0 1 6 ) coord ( 2 0 0 1 6 ) coord ( 3 -1 0 2 3 ) box ( 2 3 69 18 1 ) coord ( 1 0 0 1 6 ) coord ( 2 -1 0 5 6 ) coord ( 3 0 0 2 3 ) box ( 3 20 10 1 60 ) coord ( 1 -1 0 7 12 ) coord ( 2 0 0 1 6 ) coord ( 4 0 0 2 3 ) window ( 33 ) /* define remote proc call window */ map ( 24 24 "rpc" ) /* define text number windows */ window ( 46 ) /* text number for bottom default win */ box ( 0 24 77 1 2 ) coord ( 1 -1 0 1 1 ) coord ( 2 -3 0 1 1 ) map ( 41 41 "tn1" ) window ( 5 26 ) /* text number for top default win */ box ( 0 11 78 1 2 ) coord ( 1 -1 0 49 100 ) coord ( 2 -2 0 1 1 ) map ( 45 45 "tn5" ) /* define insert mode indicator window */ window ( 45 ) box ( 0 24 74 1 3 ) coord ( 1 -1 0 1 1 ) coord ( 2 -6 0 1 1 ) map ( 49 "ins" ) /***************************************************************************/ /* Create a second screen for the monitor. /***************************************************************************/ screen ( 1 ) color ( 7 3 ) /* Default Colors */ driver ( 1 ) /* MS Windows driver */ /* define background window */ window ( 0 ) /* background window */ box ( 0 23 0 2 80 ) coord ( 1 -2 0 1 1 ) coord ( 4 0 0 1 1 ) box ( 1 2 0 24 1 ) coord ( 3 -2 0 1 1 ) color ( 17 17 ) window ( 17 ) /* marquee window */ box ( 0 0 0 1 80 ) coord ( 4 0 0 1 1 ) map ( 17 17 "mrq" ) /* color ( 34 34 ) */ window ( 20 ) /* vax monitor window */ box ( 0 2 1 24 39 ) coord ( 3 -2 0 1 1 ) coord ( 4 0 0 1 2 ) box ( 1 2 41 24 39 ) coord ( 2 1 0 1 2 ) coord ( 3 -2 0 1 1 ) coord ( 4 0 0 1 2 ) map ( 20 20 "monv" ) /* page ( 19 1 2 1 ) */ /* */ page ( 19 1 1 1 ) /* */ window ( 19 ) /* paging for monitor window */ box ( 0 2 40 24 1 ) coord ( 2 0 0 1 2 ) coord ( 3 -2 0 1 1 ) box ( 1 1 0 1 80 ) coord ( 4 0 0 1 1 )