! ********************************************************************** ! Standard Initializer File CARL'S GROCERY CO., INC. ! ********************************************************************** ! ! X00.00 03 February 1983 ! ! COPYRIGHT (C) 1983 BY CARL'S GROCERY CO., INC. ! ! This software is the sole property of Carl's Grocery Company, Inc., ! and is intended soley for its use. ! ! ###################################################################### !+ ! Insert Buffers !- ! ###################################################################### ! ! Header Block Comment I=HEADER !+ ! HHHHH !- ^Z ! ! Insert Open Statement ! I=OPEN_STATEMENT OPEN "" [FOR INPUT][FOR OUTPUT] AS FILE #, & ORGANIZATION , & ALLOW , & ACCESS , & MAP , & DEFAULTNAME "SYS$SYSDEVICE:", & PRIMARY [DUPLICATES], & ALTERNATE [DUPLICATES] [CHANGES], & ALTERNATE [DUPLICATES] [CHANGES] & ^Z ! ! Declare Constant Statement ! I=DECLARE_CONSTANT ! DECLARE CONSTANT & = , ! & = ! ^Z ! ! Declare Variable Statement ! I=DECLARE_VARIABLE ! DECLARE & & , ! & , ! & & , ! & ! ^Z ! ! Common Statement ! I=COMMON ! COMMON () ! & & , ! & , ! & & , ! & ! ^Z ! ! Map Statement ! I=MAP ! MAP () ! & & , ! & , ! & & , ! & ! ^Z ! ! External Constant Statement ! I=EXTERNAL_CONSTANT EXTERNAL CONSTANT & ! ^Z ! ! External Variable Statement ! I=EXTERNAL_VARIABLE ! EXTERNAL & ! ^Z ! ! External Function Statement ! I=EXTERNAL_FUNCTION ! EXTERNAL FUNCTION & ! & ( BY , ! & BY ! ^Z ! ! External Subprogram Statement ! I=EXTERNAL_SUB ! EXTERNAL SUB & ! & ( BY , ! & BY ) ! ^Z ! ! Internal Function Statement ! I=INTERNAL_FUNCTION ! DECLARE FUNCTION & ! & (, ! & ) ! ^Z ! ! Internal Subroutine Plate ! I=SUB_PLATE 9XXX %PAGE %SBTTL "Internal subroutine: " : !++ ! ! FUNCTIONAL DESCRIPTION: ! ! <> ! ! IMPLICIT INPUTS: ! ! <> ! ! IMPLICIT OUTPUTS: ! ! <> ! ! SIDE EFFECTS: ! ! <> ! !-- ! Set up error handler ON ERROR GOTO _error_handler @ [Subroutine code goes here] !+ ! End of process !- End_: ! Reset error trap ON ERROR GOTO Master_error_handler ! Exit subroutine GOTO _exit _error_handler: SELECT ERR CASE ELSE ! Return control to system error handler ON ERROR GO BACK END SELECT _exit: ! End of routine RETURN ^Z ! ! Internal Function Plate ! I=FUN_PLATE 2XXX %PAGE %SBTTL "Internal function: " DEF & & ( , ! & ) ! !++ ! ! FUNCTIONAL DESCRIPTION: ! ! <> ! ! FORMAL PARAMETERS: ! ! <> ! ! IMPLICIT INPUTS: ! ! <> ! ! IMPLICIT OUTPUTS: ! ! <> ! ! FUNCTION VALUE: ! ! <> ! ! SIDE EFFECTS: ! ! <> ! !-- ! Set up error handler ON ERROR GOTO _error_handler @ [Function code goes here] ! End of process EXIT DEF _error_handler: SELECT ERR CASE ELSE ! Return control to system error handler ON ERROR GO BACK END SELECT ! End of function END DEF ^Z ! ! If-Then-Else Statement Block ! I=IF_THEN_ELSE IF THEN


	ELSE	
	END IF

^Z
!
!	Select_Case Statement Block
!
I=SELECT_CASE

	SELECT 
	   CASE 
		
	   CASE 
		
	   CASE ELSE
		
	END SELECT

^Z
!
!	Call to TDMS Request
!
I=TDMS_REQUEST
	!

	Ret_status = TSS$REQUEST(Channel_no,                                  &
				 Library_ID,                                  &
				 "", &
				 , &
				 )
	GOSUB TDMS_return_status_check

^Z
!	######################################################################
!+
!	Toggle Macros
!-
!	######################################################################
!
!	Screen Width Macros
!
DEFINE MACRO WIDTH_132
INSERT=WIDTH_132
DEFINE KEY 94 AS "EXT WIDTH_80."
SET SCREEN 132
^Z
!
DEFINE MACRO WIDTH_80
INSERT=WIDTH_80
DEFINE KEY 94 AS "EXT WIDTH_132."
SET SCREEN 80
^Z
!
!	Search Exact Macros
!
DEFINE MACRO SEARCH_EXACT
INSERT=SEARCH_EXACT
DEFINE KEY 91 AS "EXT SEARCH_GENERAL."
SET SEARCH EXACT
^Z
!
DEFINE MACRO SEARCH_GENERAL
INSERT=SEARCH_GENERAL
DEFINE KEY 91 AS "EXT SEARCH_EXACT."
SET SEARCH GENERAL
^Z
!
!	Search End Macros
!
DEFINE MACRO SEARCH_END
INSERT=SEARCH_END
DEFINE KEY 92 AS "EXT SEARCH_BEGIN."
SET SEARCH END
^Z
!
DEFINE MACRO SEARCH_BEGIN
INSERT=SEARCH_BEGIN
DEFINE KEY 92 AS "EXT SEARCH_END."
SET SEARCH BEGIN
^Z
!
!	Ampers With Carraige Return Macro
!
DEFINE MACRO AMPERS_ON
INSERT=AMPERS_ON
DEFINE KEY 93 AS "EXT AMPERS_OFF."
DEFINE KEY 57 AS "I &^Z^M."
^Z
!
DEFINE MACRO AMPERS_OFF
INSERT=AMPERS_OFF
DEFINE KEY 93 AS "EXT AMPERS_ON."
DEFINE KEY 57 AS "^M."
^Z
!
!	Carraige Return With Tab Macro
!
DEFINE MACRO TAB_ON
INSERT=TAB_ON
DEFINE KEY 132 AS "EXT TAB_OFF."
DEFINE KEY 57 AS "^MI	^Z."
^Z
!
DEFINE MACRO TAB_OFF
INSERT=TAB_OFF
DEFINE KEY 132 AS "EXT TAB_ON."
DEFINE KEY 57 AS "^M."
^Z
!	######################################################################
!+
!	Key Definitions
!-
!	######################################################################
!
!	Keypad keys
!
DEFINE KEY 3 AS "'ooo'+TOP+8L."
DEFINE KEY 7 AS "'%PAGE'."
DEFINE KEY 8 AS "BL."
DEFINE KEY 9 AS "'<'."
DEFINE KEY 10 AS "TOP."
!
!	Gold Keypad Keys
!
DEFINE KEY 31 AS "SEL+'>'+C+CUTSR."
DEFINE KEY 34 AS "(-21V)."
DEFINE KEY 35 AS "(+21V)."
!
!	Control Alphanumeric
!
DEFINE KEY 45 AS "APPENDSR."
DEFINE KEY 46 AS "EXT SHOW BUFF."
DEFINE KEY 48 AS "(22L)."
DEFINE KEY 49 AS "EXT EX."
DEFINE KEY 50 AS "('
	!'+2L+2C)."
DEFINE KEY 51 AS "^G."
DEFINE KEY 52 AS "^H."
DEFINE KEY 53 AS "^I."
DEFINE KEY 54 AS "^J."
DEFINE KEY 56 AS "^L."
DEFINE KEY 57 AS "^M."
DEFINE KEY 58 AS "20C."
DEFINE KEY 60 AS "PAR."
DEFINE KEY 62 AS "CUTSR=DELETE PASTE."
DEFINE KEY 64 AS "EXT QUIT/SAVE."
DEFINE KEY 65 AS "DBL."
DEFINE KEY 66 AS "SEN."
DEFINE KEY 67 AS "REF."
DEFINE KEY 70 AS "S%Z~~/\~~Z%%."
!
!	Gold Control Keys
!
DEFINE KEY 72 AS "EXT CO SELECT TO=?'Copy to buffer: ' ; F L."
DEFINE KEY 73 AS "EXT F L."
DEFINE KEY 75 AS "SEL I?'Filespec: '^Z CUTSR=TEMP0 PASTE=OPEN_STATEMENT -'' 10DC PASTE=TEMP0 +'['."
DEFINE KEY 76 AS "EXT EX ?'File Name: '/SAVE."
DEFINE KEY 77 AS "SEL I?'Constant Datatype: '^Z CUTSR=TEMP0 PASTE=DECLARE_CONSTANT -'' 10DC PASTE=TEMP0 +''."
DEFINE KEY 78 AS "SEL I?'First Datatype: '^Z CUTSR=TEMP0 PASTE=DECLARE_VARIABLE 2(-'') 10DC PASTE=TEMP0 +''."
DEFINE KEY 79 AS "SEL I?'Common Name: '^Z CUTSR=TEMP0 PASTE=COMMON 5(-'') 6DC PASTE=TEMP0 +''."
DEFINE KEY 80 AS "SEL I?'Map Name: '^Z CUTSR=TEMP0 PASTE=MAP 5(-'') 6DC PASTE=TEMP0 +''."
DEFINE KEY 81 AS "SEL I?'External Constant Datatype: '^Z CUTSR=TEMP0 PASTE=EXTERNAL_CONSTANT -'' 10DC PASTE=TEMP0 +''."
DEFINE KEY 82 AS "SEL I?'External Variable Datatype: '^Z CUTSR=TEMP0 PASTE=EXTERNAL_VARIABLE -'' 10DC PASTE=TEMP0 +''."
DEFINE KEY 83 AS "SEL I?'External Function Datatype: '^Z CUTSR=TEMP0 PASTE=EXTERNAL_FUNCTION 3(-'') 10DC PASTE=TEMP0 +''."
DEFINE KEY 84 AS "SEL I?'External Subprogram Name: '^Z CUTSR=TEMP0 PASTE=EXTERNAL_SUB -'' 6DC PASTE=TEMP0 +''."
DEFINE KEY 85 AS "SEL I?'Internal Function Datatype: '^Z CUTSR=TEMP0 PASTE=INTERNAL_FUNCTION 3(-'') 10DC PASTE=TEMP0 +''."
DEFINE KEY 87 AS "SEL I?'Function Name: '^Z CUTSR=TEMP0 PASTE=FUN_PLATE -'%PAGE' +4('' 15DC PASTE=TEMP0) -'XXX' +3DC."
DEFINE KEY 89 AS "SEL I?'Select on: '^Z CUTSR=TEMP0 PASTE=SELECT_CASE -'' 4DC PASTE=TEMP0 +''."
DEFINE KEY 91 AS "EXT SEARCH_EXACT."
DEFINE KEY 92 AS "EXT SEARCH_END."
DEFINE KEY 93 AS "EXT AMPERS_ON."
DEFINE KEY 94 AS "EXT WIDTH_132."
DEFINE KEY 97 AS "EXT S{Z~~/\~~Z{?'Z Replacement: '{%WH/Q."
DEFINE KEY 99 AS "SEL I?'Subroutine Symbolic Name: '^Z CUTSR=TEMP0 PASTE=SUB_PLATE -'%PAGE' +7('' 15DC PASTE=TEMP0) -'XXX' +3DC."
DEFINE KEY 100 AS "EXT S{_~~/\~~_{'_ Replacement: '{%WH/Q."
!
!	Gold Keys
!
DEFINE KEY 103 AS "SEL I?'If condition: '^Z CUTSR=TEMP0 PASTE=IF_THEN_ELSE -'' 11DC PASTE=TEMP0 +''."
DEFINE KEY 104 AS "'!'+EL."
DEFINE KEY 106 AS "'#'."
DEFINE KEY 107 AS "'$'."
DEFINE KEY 108 AS "'%'."
DEFINE KEY 109 AS "'&'."
DEFINE KEY 110 AS "IFormscom::Form_flow ."
DEFINE KEY 111 AS "'('."
DEFINE KEY 112 AS "')'."
DEFINE KEY 113 AS "'*'."
DEFINE KEY 114 AS "SEL I?'Request Name: '^Z CUTSR=TEMP0 PASTE=TDMS_REQUEST -'' 6DC PASTE=TEMP0 +''."
DEFINE KEY 118 AS "BACKWADV+CSELWCHGCSR."
DEFINE KEY 129 AS "':
'-WADV."
DEFINE KEY 130 AS "BACK'	'+CADV."
DEFINE KEY 131 AS "-TADJSR."
DEFINE KEY 132 AS "EXT TAB_ON."
DEFINE KEY 133 AS "TADJSR."
DEFINE KEY 135 AS "'@'."
DEFINE KEY 136 AS "EXT FIND =A.."
DEFINE KEY 137 AS "EXT FIND =B.."
DEFINE KEY 138 AS "EXT FIND =C.."
DEFINE KEY 139 AS "EXT FIND =D.."
DEFINE KEY 140 AS "EXT EX ?'File Name: '."
DEFINE KEY 141 AS "('!+
'TOP)."
DEFINE KEY 142 AS "EXT F=?'Buffer: '.."
DEFINE KEY 143 AS "SEL I?'Header: '^Z CUTSR=TEMP1 PASTE=HEADER -'HHHHH' 5DC PASTE=TEMP1 3L."
DEFINE KEY 144 AS "EXT INCLUDE ?'Include: '."
DEFINE KEY 145 AS "(^MI	! ^Z^M^M-2C)."
DEFINE KEY 146 AS "EXT SHOW KEY ?'Show Key: '."
DEFINE KEY 147 AS "EX."
DEFINE KEY 148 AS "EXT FIND =MAIN.."
DEFINE KEY 149 AS "'END '."
DEFINE KEY 150 AS "EXT WRITE ?'Write File: ' =?'  From Buffer: '."
DEFINE KEY 151 AS "PASTE=?'Put Buffer: '."
DEFINE KEY 152 AS "EXT S/?'Subs: '/?'  With: '/%WH/Q."
DEFINE KEY 153 AS "CUTSR=?'Cut Buffer: '."
DEFINE KEY 154 AS "EXT S/?'Subs: '/?'  With: '."
DEFINE KEY 155 AS "EXT QUIT."
DEFINE KEY 156 AS "(C SEL W CHGCSR).
DEFINE KEY 157 AS "(D1C+V)."
DEFINE KEY 158 AS "EXT S/?'Subs: '/?'  With: '/%WH."
DEFINE KEY 161 AS "IZ~~/\~~Z."
DEFINE KEY 162 AS "-C +'[' +DC +']' +DC."
DEFINE KEY 163 AS "BACKWADVSELWCHGCSR."
DEFINE KEY 164 AS "-C +'[' SEL +']' +C +CUTSR."
DEFINE KEY 165 AS "'^'."
DEFINE KEY 166 AS "I_~~/\~~_."
DEFINE KEY 194 AS "(I	! ^Z)."
DEFINE KEY 196 AS "(I	! ^Z^M-1C)."
DEFINE KEY 197 AS "(-C D-C +C UNDC)."
DEFINE KEY 198 AS "EXT CL ?'Clear what buffer: '."
!	######################################################################
!+
!	Wrap Up
!-
!	######################################################################
!
!	Set Commands
!
SET TAB 8
SET ENTITY PAR "

	!"
SET ENTITY PAGE "%PAGE"
SET MODE CHANGE
!
!	Go to main
!
FIND =MAIN%END
FIND =MAIN%BEG