ASMB,R
      NAM TGP0,5  92080-16351 REV.2026  800117                    
* 
*     SOURCE 92080-18351
* 
      SPC 2 
**************************************************************
* (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978.  ALL RIGHTS    *
* RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- *
* PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH-  *
* OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.  *
**************************************************************
      SPC 2 
      SUP 
      HED *               -TGP0-
* 
*   PRGMR : JEAN CHARLES MIARD (HPG)
* 
**********************************************************************
*                                                                    *
*         THIS IS A SEGMENT OF THE TGP PROGRAM USED TO WRITE ON      *
*  THE 2640/2645 DISPLAY THE SCREEN MASKS USED TO COLLECT INFORMA-   *
*  TION TO BUILD A TRANSACTION SPECIFICATION .                       *
*                                                                    *
*            TGP0 PRINTS SCREEN 0 THRU 7 ACCORDING ISCRN VALUE AND   *
*  THEN LOAD THE REQUIRED SEGMENT TO ANALYSE THE USER'S ANSWERS .    *
*            BEFORE PRINTING THE SCREENS TGP0 INCLUDES IN THEM       *
*  THE OLD ANSWERS STORED IN IFORM (COME BACK MODE OR MODIFY)        *
*            SOME SCREENS ARE DYNAMIC AND ONLY PARTS OF THE TOTAL    *
*  SCREEN ARE PRINTED .                                              *
*                                                                    *
*     IF INDIC = -77 THE SCREEN IS TO BE PRINTED WITHOUT ERASING     *
*     THE DISPLAY BEFORE (HELP MESSAGE)                              *
*                                                                    *
**********************************************************************
* 
* 
* 
      ENT TGP0      ENTRY POINT 
      EXT EXEC
      EXT TGP       MAIN PROGRAM
      EXT MOVCX     SUBR. MOVES ANSWERS IN UNPRO. FIELDS
      EXT MOVCA       "     "   CHARACTERS
      EXT &MVW      MOVES WORDS 
* 
*   DECLARATIONS COMMON VARIABLES ***************** 
* 
      COM ILU,ISCRN,IQST,ISKIP,INDIC
      COM IFORM(780)  ANSWER STORAGE
      COM JFORM(1700)  ANSWER STORAGE 
      COM MFORM(28)  ANSWER STORAGE 
      COM LFORM(39) ANSWER STORAGE
      COM ITT       TRANS. TYPE 
      COM IKEY(78)
      COM IUMAX     #OF U QUESTIONS 
      COM IMMAX     #OF M QUESTIONS 
      COM IMODB     (0/1) 3070A/3070B 
      COM ILITE(15) 
      COM IMAI(225) IMAGE INFO STORAGE
      COM IMFLG,IMAS,IMDT,IMKY
      COM KFORM(2844) 
      COM ILIBR(61) 
      COM NIMAG 
      COM IBASE(10) 
* 
* WORD OFFSETS INTO IFORM 
* 
*     ANSWERS TO SCREENS 3,4,5,6,61,62,7
* 
IAN03 EQU 6      SCREEN #3
IAN04 EQU 28     SCREEN #4
IAN06 EQU 43     SCREENS #6,61,62 
IAN07 EQU 472    SCREEN  #7 
* 
* 
*FIND SCREEN # TO DISPLAY 
* 
TGP0  LDA INDIC     GET INDICATOR 
      CPA .D77      IS IT PRINT FOR HELP
      RSS           YES 
      JMP CONT      NO JUMP 
      CLA 
      STA CL01
      STA CL02
      STA CL03
      STA CL04
      STA CL05
      STA CL06
      STA CL07
CONT  LDA ISCRN 
      CPA D.61     SCREEN #61 ? 
      JMP SCR61         YES, GO TO PROCESSING FOR SCREEN #61
      CPA D.62     SCREEN #62 ? 
      JMP SCR62         YES, GO TO PROCESSING FOR SCREEN #62
      ADA ASCR
      JMP 0,I 
* 
*  TABLE OF ADDRESS FO R SCREENS
* 
ASCR  DEF *+1,I 
      DEF SCR0
      DEF SCR1
      DEF SCR2
      DEF SCR3
      DEF SCR4
      DEF SCR5
      DEF SCR6
      DEF SCR7
      DEF SCR8
* 
* 
* DATA SECTION
* 
D.0   DEC 0 
D.1   DEC 1 
D.2   DEC 2 
D.5   DEC 5 
D.8   DEC 8 
D.61  DEC 61
D.62  DEC 62
.D77  DEC -77 
* 
************************************************************************
* 
*  SCREEN # 0  SCREEN SHOWING THE SOFT KEYS ASSIGNEMENT 
* 
************************************************************************
* 
* 
SCR0  JSB EXEC      WRITE EXEC CALL 
      DEF *+5       RETURN POINT
      DEF D.2       CODE EXEC 
      DEF ILU       CONTROL WORD
      DEF BSCR0     BUF. LOCATION 
      DEF ILSC0     BUF.LENGTH
      JMP CANS      GO TO LOAD SEGMENT TO ANALYSE ANSWERS 
* 
* DATA SCREEN 0 
* 
BSCR0 BYT 33,130    FORMAT OFF
      BYT 33,155    MEMORY UNLOCK 
      BYT 33,110    HOME UP CURSOR
CL01  BYT 33,112    CLEAR DISPLAY 
      BYT 33,46     SET 2645 SWITCHES 
      ASC 10,s0a0b0c1d0e0f1g1h0j0 
      BYT 113,0 
      BYT 33,46,153,61,102 SET BLOCK MODE 
* 
*  SET 2645 SOFT KEYS 
* 
      BYT 33,46,146,61,141,61,153,61,114,11      NEXT FIELD 
      BYT 33,46,146,61,141,62,153,62,114,33,151  PREVIOUS FIELD 
      BYT 33,46,146,61,141,63,153,61,114,40      NOT ASSIGNED 
      BYT 33,46,146,62,141,64,153,61,114,141     ABORT
      BYT 33,46,146,61,141,65,153,64,114,33,110,33,144 NEXT SCREEN
      BYT 33,46,146,61,141,66,153,65,114,163,33,110,33,144 PREVIOUS 
      BYT 33,46,146,61,141,67,153,65,114,150,33,110,33,144  HELP
      BYT 33,46,146,61,141,70,153,65,114,151,33,110,33,144  INSERT
* 
*     LINE # :   1
* 
      BYT 33,46,144,106 
      ASC  7, DATACAP/1000
      BYT 33,46,144,100 
      BYT 33,46,141,53,61,66,103,0  POSITION  CURSOR -  31
      ASC 10,SOFT KEY ASSIGNMENTS 
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  61
      BYT 33,46,144,106 
      ASC 10, HP 92080A REV.2026
* 
*     LINE # :   2
* 
      BYT 15,12 
* 
*     LINE # :   3
* 
      BYT 33,46,141,53,62,62,103,0  POSITION  CURSOR -  23
      ASC 18,TRANSACTION GENERATOR PROGRAM READY
      BYT 41,0
      BYT 15,12 
* 
*     LINE # :   4
* 
      BYT 33,51,102,16
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      ASC 22,R,,,,,,,,,,,TR,,,,,,,,,,,TR,,,,,,,,,,,TR,,,, 
      ASC  4,,,,,,,,T 
      BYT 15,12 
* 
*     LINE # :   5
* 
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      BYT 33,51,102,16
      BYT 56,17 
      ASC  5,Next Field 
      BYT 40,16 
      ASC  1,.. 
      BYT 40,17 
      ASC  5, Previous
      BYT 16,56 
      ASC  1,.
      BYT 17,40 
      BYT 33,46,141,53,60,70,103,0  POSITION  CURSOR -  52
      BYT 16,40 
      ASC  1,.. 
      BYT 17,40 
      ASC  5,  Abort
      BYT 16,56 
      BYT 15,12 
* 
*     LINE # :   6
* 
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      BYT 33,51,102,16
      BYT 56,0
      BYT 33,46,144,112 
      ASC  2, 
      BYT 17,146
      ASC  3,1
      BYT 33,46,144,100,16,56 
      BYT 56,0
      BYT 33,46,144,112 
      ASC  2, 
      BYT 17,146
      ASC  3,2
      BYT 33,46,144,100,16,56 
      BYT 56,0
      BYT 33,46,144,112,17,40 
      ASC  5,   f3
      BYT 33,46,144,100,16,56 
      BYT 56,0
      BYT 33,46,144,112,17,40 
      ASC  5,   f4
      BYT 33,46,144,100,16,56 
      BYT 15,12 
* 
*     LINE # :   7
* 
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      BYT 33,51,102,16
      BYT 56,17 
      ASC  5,   (TAB) 
      BYT 40,16 
      ASC  1,.. 
      BYT 17,40 
      ASC  5,  Field
      BYT 16,56 
      ASC  2,.
      BYT 17,40 
      ASC  3, 
      BYT 40,16 
      ASC  1,.. 
      BYT 17,40 
      ASC  5, Program 
      BYT 16,56 
      BYT 15,12 
* 
*     LINE # :   8
* 
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      BYT 33,51,102,16
      ASC 22,F,,,,,,,,,,,GF,,,,,,,,,,,GF,,,,,,,,,,,GF,,,, 
      ASC  4,,,,,,,,G 
      BYT 15,12 
* 
*     LINE # :   9
* 
      BYT 33,51,102,16
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      ASC 22,R,,,,,,,,,,,TR,,,,,,,,,,,TR,,,,,,,,,,,TR,,,, 
      ASC  4,,,,,,,,T 
      BYT 15,12 
* 
*     LINE # :  10
* 
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      BYT 33,51,102,16
      BYT 56,17 
      ASC  5,Next Scree 
      BYT 156,16
      ASC  1,.. 
      BYT 40,17 
      ASC  4, Previou 
      BYT 163,16
      ASC  2, ..
      BYT 17,40 
      ASC  3, Help
      BYT 33,46,141,53,60,62,103,0  POSITION  CURSOR -  52
      BYT 16,40 
      ASC  2,.. 
      BYT 17,111
      ASC  3,nsert
      BYT 141,16
      ASC  1, . 
      BYT 15,12 
* 
*     LINE # :  11
* 
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      BYT 33,51,102,16
      BYT 56,0
      BYT 33,46,144,112 
      ASC  2, 
      BYT 17,146
      ASC  3,5
      BYT 33,46,144,100,16,56 
      BYT 56,0
      BYT 33,46,144,112 
      ASC  2, 
      BYT 17,146
      ASC  3,6
      BYT 33,46,144,100,16,56 
      BYT 56,0
      BYT 33,46,144,112,17,40 
      ASC  5,   f7
      BYT 33,46,144,100,16,56 
      BYT 56,0
      BYT 33,46,144,112,17,40 
      ASC  5,   f8
      BYT 33,46,144,100,16,56 
      BYT 15,12 
* 
*     LINE # :  12
* 
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      BYT 33,51,102,16
      BYT 56,17 
      ASC  5,  (ENTER)
      BYT 40,16 
      ASC  1,.. 
      BYT 40,17 
      ASC  4,  Screen 
      BYT 40,16 
      ASC  2, ..
      BYT 17,40 
      BYT 33,46,141,53,60,71,103,0  POSITION  CURSOR -  53
      BYT 16,56 
      BYT 56,17 
      ASC  5,  Question 
      BYT 40,16 
      BYT 56,0
      BYT 15,12 
* 
*     LINE # :  13
* 
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      BYT 33,51,102,16
      ASC 22,F,,,,,,,,,,,GF,,,,,,,,,,,GF,,,,,,,,,,,GF,,,, 
      ASC  4,,,,,,,,G 
      BYT 15,12 
* 
*     LINE # :  14
* 
      BYT 15,12 
* 
*     LINE # :  15
* 
      ASC 22,     - This program assigns the terminal SFK 
      ASC 09,'s as shown above. 
      BYT 15,12 
* 
*     LINE # :  16
* 
      BYT 15,12 
* 
*     LINE # :  17
* 
      ASC 22,     - Once all the correct answers have bee 
      ASC 15,n provided for a given screen, 
      BYT 15,12 
* 
*     LINE # :  18
* 
      ASC 23,       press the NEXT SCREEN key to continue.
      BYT 15,12 
* 
*     LINE # :  19
* 
      BYT 15,12 
* 
*     LINE # :  20
* 
      BYT 15,12 
* 
*     LINE # :  21
* 
      ASC  1, 
      BYT 33,133
AAA00 ASC  1, 
      BYT 33,135
      BYT 33,46,141,53,64,64,103,0  POSITION  CURSOR -  49
      BYT 33,46,144,112 
      ASC  3, Press 
      BYT 40,0
      BYT 33,46,144,113 
      ASC  5,NEXT SCREE 
      BYT 116,0 
      BYT 33,46,144,112 
      ASC  2, key 
      BYT 40,0
ESCR0 BYT 15,12 
* 
STAD0 EQU BSCR0     STARTING ADDRESS DATA SCREEN 0
LTAD0 EQU ESCR0     LAST ADDRESS DATA SCREEN 0
ILSC0 ABS LTAD0-STAD0+1 DATA SCREEN 0 LENGTH
* 
************************************************************************
* 
*  SCREEN # 1  ESPLANATORY SCREEN INTRODUCTION TO TGP 
* 
************************************************************************* 
* 
* 
SCR1  JSB EXEC      WRITE SCREEN
      DEF *+5       RETURN POINT
      DEF D.2       CODE EXEC 
      DEF ILU       CONTROL WORD
      DEF BSCR1     BUF. LOCATION 
      DEF ILSC1     BUF. LENGTH 
      JMP CANS      LOAD SEGMENT TO ANALYSE USERS ANSWER
* 
*  DATA SCREEN # 1
* 
* 
*     LINE # :   1
* 
BSCR1 BYT 33,130    FORMAT OFF
      BYT 33,110    HOME UP CURSOR
CL02  BYT 33,112    CLEAR DISPLAY 
      BYT 33,133
      ASC  1, 
      BYT 33,135
      BYT 33,46,141,53,62,62,103,0  POSITION  CURSOR -  25
      ASC 15,TRANSACTION GENERATION OVERVIE 
      BYT 127,0 
      BYT 15,12 
* 
*     LINE # :   2
* 
      BYT 15,12 
* 
*     LINE # :   3
* 
      ASC 22,  A typical printed paper form, identified b 
      ASC 17,y a name, asks some questions only 
      BYT 15,12 
* 
*     LINE # :   4
* 
      ASC 22,  once and others repeatedly.  Similarly, on 
      ASC 17,ce a transaction has been accessed 
      BYT 15,12 
* 
*     LINE # :   5
* 
      ASC 22,  on the data capture terminal by number and 
      ASC 17, security code, the same two types 
      BYT 15,12 
* 
*     LINE # :   6
* 
      ASC 14,  of questions can be asked: 
      BYT 15,12 
* 
*     LINE # :   7
* 
      BYT 15,12 
* 
*     LINE # :   8
* 
      ASC 22,    We define the questions to be answered o 
      ASC  6,nly once as
      BYT 33,46,144,104 
      ASC  5,U-question 
      BYT 163,0 
      BYT 33,46,144,100 
      ASC  4, (Unique 
      BYT 51,0
      BYT 15,12 
* 
*     LINE # :   9
* 
      ASC 22,    and the questions asked more than once a 
      ASC  1,s
      BYT 33,46,144,104 
      ASC  5,M-question 
      BYT 163,0 
      BYT 33,46,144,100 
      ASC  6, (Multiple). 
      BYT 15,12 
* 
*     LINE # :  10
* 
      BYT 15,12 
* 
*     LINE # :  11
* 
      ASC  7,For example :
      BYT 33,46,141,53,60,70,103,0  POSITION  CURSOR -  23
      ASC  5,Paper Form 
      BYT 33,46,141,53,61,71,103,0  POSITION  CURSOR -  52
      ASC 12,DATACAP/1000 Transaction 
      BYT 72,0
      BYT 15,12 
* 
*     LINE # :  12
* 
      ASC  3, 
      BYT 40,0
      BYT 33,51,102,16
      ASC 20,R,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
      BYT 124,0 
      BYT 15,12 
* 
*     LINE # :  13
* 
      ASC  3, 
      BYT 40,0
      BYT 33,51,102,16
      BYT 56,17 
      ASC 19,     ICORD: INTER-COMPANY ORDER
      BYT 40,16 
      BYT 56,0
      BYT 15,12 
* 
*     LINE # :  14
* 
      ASC  3, 
      BYT 40,0
      BYT 33,51,102,16
      BYT 56,17 
      BYT 33,46,141,53,63,71,103,0  POSITION  CURSOR -  48
      BYT 16,56 
      BYT 40,17 
      ASC  3,  Name 
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  66
      ASC  2,ICOR 
      BYT 104,0 
      BYT 15,12 
* 
*     LINE # :  15
* 
      ASC  3, 
      BYT 40,0
      BYT 33,51,102,16
      ASC  1,.
      BYT 33,46,144,112,17,117
      ASC  3,rder # 
      BYT 40,0
      BYT 33,46,144,100 
      BYT 72,0
      BYT 33,46,144,104 
      ASC  4, 69324 
      BYT 33,46,144,100 
      BYT 33,46,141,53,62,61,103,0  POSITION  CURSOR -  48
      BYT 16,56 
      BYT 40,17 
      ASC  4,  Number 
      BYT 33,46,141,53,60,70,103,0  POSITION  CURSOR -  66
      BYT 63,0
      BYT 15,12 
* 
*     LINE # :  16
* 
      ASC  3, 
      BYT 40,0
      BYT 33,51,102,16
      ASC  1,.
      BYT 33,46,141,53,63,70,103,0  POSITION  CURSOR -  48
      BYT 56,17 
      ASC 10,   Security      223 
      BYT 64,0
      BYT 15,12 
* 
*     LINE # :  17
* 
      ASC  3, 
      BYT 40,0
      BYT 33,51,102,16
      ASC  1,.
      BYT 33,46,144,112,17,104
      ASC  6,elivery date 
      BYT 33,46,144,100 
      ASC  1, : 
      BYT 33,46,144,104 
      ASC  4, 06-01-7 
      BYT 67,0
      BYT 33,46,144,100 
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  44
      BYT 16,40 
      ASC  2,   . 
      BYT 40,17 
      BYT 15,12 
* 
*     LINE # :  18
* 
      ASC  3, 
      BYT 40,0
      BYT 33,51,102,16
      ASC 20,.  R,,,,,,,,7,,,,,,,,,,,,,7,,,,,,,,,,,T
      BYT 56,0
      BYT 15,12 
* 
*     LINE # :  19
* 
      ASC  3, 
      BYT 40,0
      BYT 33,51,102,16
      ASC  2,.  . 
      BYT 33,46,144,112 
      BYT 40,17 
      ASC  3,Part # 
      BYT 40,0
      BYT 33,46,144,100,16,56 
      BYT 40,0
      BYT 33,46,144,112,17,121
      ASC  5,ty ordered 
      BYT 40,0
      BYT 33,46,144,100,16,56 
      BYT 33,46,144,112,17,125
      ASC  5,nit price
      BYT 33,46,144,100,16,56 
      ASC  2, . 
      BYT 40,17 
      ASC 11,U-questions   Order #
      BYT 77,0
      BYT 15,12 
* 
*     LINE # :  20
* 
      ASC  3, 
      BYT 40,0
      BYT 33,51,102,16
      ASC 22,.  5,,,,,,,,/,,,,,,,,,,,,,/,,,,,,,,,,,6 .
      ASC  7,,,,,,,,,,,,
      BYT 17,104
      ASC  7,elivery date ? 
* 
*     LINE # :  21
* 
      ASC  3, 
      BYT 40,0
      BYT 33,51,102,16
      ASC  2,.  . 
      BYT 17,63 
      ASC  3,24-445 
      BYT 16,40 
      ASC  2,.
      BYT 40,17 
      ASC  4,253
      BYT 40,16 
      ASC  1,.
      BYT 40,17 
      ASC  3,125.00 
      BYT 16,40 
      ASC  2,  .
      BYT 56,0
      BYT 15,12 
* 
*     LINE # :  22
* 
      ASC  3, 
      BYT 40,0
      BYT 33,51,102,16
      ASC  2,.  . 
      BYT 17,61 
      ASC  3,42-215 
      BYT 40,16 
      ASC  1,.
      BYT 40,17 
      ASC  5, 1245
      BYT 40,16 
      ASC  2,.
      BYT 17,63 
      ASC  2,5.50 
      BYT 16,40 
      ASC  3,  . .
      BYT 40,17 
      ASC 11, M-questions   Part #
      BYT 77,0
      BYT 15,12 
* 
*     LINE # :  23
* 
      ASC  3, 
      BYT 40,0
      BYT 33,51,102,16
      ASC  3,.  . 
      BYT 40,17 
      ASC  2,.
      BYT 40,16 
      ASC  3,.
      BYT 17,40 
      ASC  3,.
      BYT 40,16 
      ASC  2,.
      BYT 40,17 
      ASC  1, . 
      BYT 16,40 
      ASC 11,    . .   ,,,,,,,,,,,
      BYT 17,40 
      ASC  7, Qty ordered ? 
      BYT 15,12 
* 
*     LINE # :  24
* 
      ASC  3, 
      BYT 40,0
      BYT 33,51,102,16
      ASC  3,.  . 
      BYT 40,17 
      ASC  2,.
      BYT 40,16 
      ASC  3,.
      BYT 40,17 
      ASC  3,.
      BYT 40,16 
      ASC  3,.
      BYT 17,56 
      BYT 16,40 
      ASC  4,    . .
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  64
      BYT 17,40 
      ASC  6, Unit price
ESCR1 BYT 77,0
* 
STAD1 EQU BSCR1 
LTAD1 EQU ESCR1 
ILSC1 ABS LTAD1-STAD1+1 
* 
* 
************************************************************************* 
* 
*  SCREEN # 2 INDICATIVE SCREEN  TGP INTRODUCTION 
* 
************************************************************************* 
* 
* 
SCR2  JSB EXEC      WRITE EXEC CALL 
      DEF *+5       RETURN POINT
      DEF D.2       CODE EXEC 
      DEF ILU       CONTROL WORD
      DEF BSCR2     BUFFER LOCATION 
      DEF ILSC2     BUFFER LENGTH 
      JMP CANS      LOAD SEGMENT TO ANALYSE USER ANSWERS
* 
*  DATA SCREEN # 2
* 
* 
*     LINE # :   1
* 
BSCR2 BYT 33,130    FORMAT OFF
      BYT 33,110    HOME UP 
CL03  BYT 33,112    CLEAR DISPLAY 
      BYT 33,133
      ASC  1, 
      BYT 33,135
      BYT 33,46,141,53,62,61,103,0  POSITION  CURSOR -  24
      ASC 15,TRANSACTION GENERATION OVERVIE 
      BYT 127,0 
      BYT 15,12 
* 
*     LINE # :   2
* 
      BYT 15,12 
* 
*     LINE # :   3
* 
      ASC  4,    The
      BYT 33,46,144,104 
      ASC 14,TRANSACTION GENERATOR PROGRA 
      BYT 115,0 
      BYT 33,46,144,100 
      ASC 18, permits you to interactively create 
      BYT 15,12 
* 
*     LINE # :   4
* 
      ASC 17,    Transaction Specifications. A
      BYT 33,46,144,104 
      ASC 12,TRANSACTION SPECIFICATIO 
      BYT 116,0 
      BYT 33,46,144,100 
      ASC  6, contains th 
      BYT 145,0 
      BYT 15,12 
* 
*     LINE # :   5
* 
      ASC 22,    characteristics of a transaction to be r 
      ASC 16,un on the data capture terminals 
      BYT 15,12 
* 
*     LINE # :   6
* 
      ASC  6,    by the 
      BYT 33,46,144,104 
      ASC 13,TRANSACTION MONITOR PROGRA 
      BYT 115,0 
      BYT 33,46,144,100 
      BYT 56,0
      BYT 15,12 
* 
*     LINE # :   7
* 
      BYT 15,12 
* 
*     LINE # :   8
* 
      BYT 40,0
      BYT 33,51,102,16
      ASC  1,R, 
      BYT 40,17 
      ASC 22,To create a Transaction Specification you ne 
      ASC  6,ed to define 
      BYT 40,16 
      ASC  9,,,,,,,,,,,,,,,,,,, 
      BYT 124,0 
* 
*     LINE # :   9
* 
      BYT 40,0
      BYT 33,51,102,16
      ASC  1,.
      BYT 33,46,141,53,67,66,103,0  POSITION  CURSOR -  80
      BYT 56,0
* 
*     LINE # :  10
* 
      BYT 40,0
      BYT 33,51,102,16
      ASC  2,.
      BYT 40,17 
      ASC 22,1 - An identification of the transaction by
      ASC  8,name and number. 
      BYT 33,46,141,53,61,62,103,0  POSITION  CURSOR -  79
      BYT 16,40 
      BYT 56,0
* 
*     LINE # :  11
* 
      BYT 40,0
      BYT 33,51,102,16
      ASC  1,.
      BYT 33,46,141,53,67,66,103,0  POSITION  CURSOR -  80
      BYT 56,0
* 
*     LINE # :  12
* 
      BYT 40,0
      BYT 33,51,102,16
      BYT 56,17 
      ASC 22,    2 - The values and functions assigned to 
      ASC 16, the special function keys.
      BYT 16,40 
      BYT 56,0
* 
*     LINE # :  13
* 
      BYT 40,0
      BYT 33,51,102,16
      ASC  1,.
      BYT 33,46,141,53,67,66,103,0  POSITION  CURSOR -  80
      BYT 56,0
* 
*     LINE # :  14
* 
      BYT 40,0
      BYT 33,51,102,16
      BYT 56,17 
      ASC 22,    3 - The terminal features required and h 
      ASC 16,ow they are to be utilized.
      BYT 16,40 
      BYT 56,0
* 
*     LINE # :  15
* 
      BYT 33,51,102,16
      ASC  1, . 
      BYT 17,40 
      BYT 33,46,141,53,67,65,103,0  POSITION  CURSOR -  79
      BYT 16,40 
      BYT 56,0
* 
*     LINE # :  16
* 
      BYT 33,51,102,16
      ASC  3, . 
      BYT 17,64 
      ASC 22, - The questions to be asked, including prom 
      ASC 13,pting light, answer
      BYT 40,16 
      ASC  1, . 
* 
*     LINE # :  17
* 
      BYT 40,0
      BYT 33,51,102,16
      ASC  4,.
      BYT 40,17 
      ASC 22,validation, and information to be displayed
      ASC 12,with the question. 
      BYT 16,40 
      BYT 56,0
* 
*     LINE # :  18
* 
      BYT 33,51,102,16
      ASC  1, . 
      BYT 33,46,141,53,67,67,103,0  POSITION  CURSOR -  80
      BYT 56,0
* 
*     LINE # :  19
* 
      BYT 40,0
      BYT 33,51,102,16
      ASC  2,.
      BYT 40,17 
      ASC 22,5 - What system information should be stored 
      ASC 14, along with the data.
      BYT 40,16 
      BYT 56,0
* 
*     LINE # :  20
* 
      BYT 40,0
      BYT 33,51,102,16
      ASC  1,.
      BYT 33,46,141,53,67,66,103,0  POSITION  CURSOR -  80
      BYT 56,0
* 
*     LINE # :  21
* 
      BYT 33,51,102,16
      ASC  3, . 
      BYT 17,66 
      ASC 22, - The storage device required for the data. 
      BYT 33,46,141,53,62,70,103,0  POSITION  CURSOR -  80
      BYT 16,56 
* 
*     LINE # :  22
* 
      BYT 40,0
      BYT 33,51,102,16
      ASC  1,.
      BYT 33,46,141,53,67,66,103,0  POSITION  CURSOR -  80
      BYT 56,0
* 
*     LINE # :  23
* 
      BYT 40,0
      BYT 33,51,102,16
      ASC  2,.
      BYT 40,17 
      ASC 22,7 - The storage device for the transaction s 
      ASC 14,pecification being created.
      BYT 40,16 
      BYT 56,0
* 
*     LINE # :  24
* 
      BYT 40,0
      BYT 33,51,102,16
      ASC 22,F,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
      ASC 17,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
      BYT 107,0 
ESCR2 BYT 0,137 
STAD2 EQU BSCR2 
LTAD2 EQU ESCR2 
ILSC2 ABS LTAD2-STAD2+1 
* 
************************************************************************* 
* 
*  SCREEN # 3  MODE OF OPERATION
* 
************************************************************************* 
* 
SCR3  JSB MOVCX     MOVE ANSWERS IN UNPROTECTED FIELDS
      DEF *+6 
      DEF IFORM 
      DEF SOF3      TABLE OF CHAR. OFFSETS IN IFORM 
      DEF BD3       TABLE OF BUFFER DEST. ADDRESS IN SCREEN 
      DEF D.0 
      DEF DBL01 
      JSB EXEC      WRITE EXEC CALL 
      DEF *+5       RETURN POINT
      DEF D.2       CODE EXEC 
      DEF ILU       CONTROL WORD
      DEF BSCR3     BUFFER LOCATION 
      DEF ILSC3     BUFFER LENGTH 
      JMP CANS      LOAD SEGMENT TO ANALYSE USER'S ANSWERS
* 
*  DATA SCREEN 3
* 
* 
*     LINE # :   1
* 
BSCR3 BYT 33,130    FORMAT OFF
      BYT 33,110    HOME UP 
CL04  BYT 33,112    CLEAR DISPLAY 
      BYT 33,46,141,53,62,60,103,0  POSITION  CURSOR -  21
      ASC 17,TRANSACTION GENERATOR PROGRAM MENU 
      BYT 15,12 
* 
*     LINE # :   2
* 
      BYT 15,12 
* 
*     LINE # :   3
* 
      ASC 17,  - Select your mode of operation: 
      BYT 15,12 
* 
*     LINE # :   4
* 
      ASC  3, 
      BYT 33,46,144,104 
      BYT 103,0 
      BYT 33,46,144,100 
      ASC 19,reate a new Transaction Specification
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  56
      BYT 51,0
      BYT 15,12 
* 
*     LINE # :   5
* 
      ASC  3, 
      BYT 33,46,144,104 
      BYT 115,0 
      BYT 33,46,144,100 
      ASC 22,odify an existing Transaction Specification
      ASC  2, 
      BYT 51,0
      BYT 15,12 
* 
*     LINE # :   6
* 
      ASC  3, 
      BYT 33,46,144,104 
      BYT 114,0 
      BYT 33,46,144,100 
      ASC 22,ist an existing Transaction Specification
      ASC 13,    )  ..................
      BYT 33,46,144,102,33,133
T0300 BYT 40,0
      BYT 33,135,33,46,144,100
      BYT 15,12 
* 
*     LINE # :   7
* 
      ASC  3, 
      BYT 33,46,144,104 
      BYT 102,0 
      BYT 33,46,144,100 
      ASC 20,uild Transaction Specification Libraries 
      BYT 33,46,141,53,60,70,103,0  POSITION  CURSOR -  56
      BYT 51,0
      BYT 15,12 
* 
*     LINE # :   8
* 
      ASC  3, 
      BYT 33,46,144,104 
      BYT 105,0 
      BYT 33,46,144,100 
      ASC 20,xplain the fundamentals of DATACAP/1000
      BYT 33,46,141,53,60,70,103,0  POSITION  CURSOR -  56
      BYT 51,0
      BYT 15,12 
* 
*     LINE # :   9
* 
      ASC  3, 
      BYT 33,46,144,104 
      BYT 101,0 
      BYT 33,46,144,100 
      ASC 24,utomatically modify Transaction Specification
      BYT 51,0
      BYT 15,12 
* 
*     LINE # :  10
* 
      BYT 15,12 
* 
*     LINE # :  11
* 
      BYT 33,51,102,16
      ASC  1,R, 
      BYT 54,17 
      ASC 15, For Modify or List operations 
      BYT 40,16 
      ASC 22,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
      ASC  1,,T 
* 
*     LINE # :  12
* 
      BYT 33,51,102,16
      BYT 56,17 
      ASC 22, - Enter the Transaction Specification NAME
      ASC 14,or NUMBER  ............... 
      BYT 33,46,144,102,33,133
T0301 ASC  3, 
      BYT 33,135,33,46,144,100,16,56
* 
*     LINE # :  13
* 
      BYT 33,51,102,16
      BYT 56,17 
      ASC 22,   and the Transaction Specification  SECURI 
      ASC 14,TY CODE .................. 
      BYT 33,46,144,112,33,133
T0302 ASC  3, 
      BYT 33,135,33,46,144,100,16,56
* 
*     LINE # :  14
*