ASMB,R
      NAM TGP4,5  92080-16359 REV.2026  800429        
      HED *                       -TGP4-
* 
*     SOURCE 92080-18359
* 
      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 
      HED *               -TGP4-
      SUP 
* 
*     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 .                       *
*                                                                    *
*         TGP4 PRINT SCREENS 13,14,15,16,17 AND 18 ACCORDING TO      *
*  ISCRN VALUE AND THEN LOADS THE REQUIRED SEGMENT TO ANALYSE THE    *
*  USER'S ANSWERS .                                                  *
*                                                                    *
*         BEFORE PRINTING THE SCREENS TGP4 INCLUDES IN THEM THE OLD  *
*  ANSWERS STORED IN JFORM,MFORM AND LFORM .                         *
*         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)                                 *
*                                                                    *
*                                                                    *
*   WARNING !! * : CARE MUST BE TAKEN :                              *
*                                                                    *
*      PRINTED SCREEN # 13 CORRESPONDS TO ISCRN = 14                 *
*       .............   14   .................    15                 *
*       .............   15   .................    16                 *
*       .............   16   .................    17                 *
*       .............   17   .................    18                 *
*       .............   18   .................    19                 *
*       .............   91   .................    91                 *
*                                                                    *
**********************************************************************
* 
* 
* 
      ENT TGP4      ENTRY POINT 
      EXT EXEC
      EXT TGP       MAIN PROGRAM
      EXT MOVCA     SUBR. MOVES CHARS.
      EXT MOVCX     SUBR. MOVES ANSWERS IN UNPRO. FIELDS
      EXT &MVW      MOVES WORDS 
      EXT IGET1     MOVES BYTES 
      EXT NUL       FILLS BUFFER WITH ZEROES
* 
*  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(42) 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(67) 
      COM NIMAG 
      COM IBASE(10) 
* 
* WORD OFFSETS INTO IFORM 
* 
*     ANSWERS TO SCREENS 16,17,18,41
* 
IAN16 EQU 0         SCREEN #16
IAN17 EQU 0         SCREEN #17
IAN18 EQU 0         SCREEN #18
IAN41 EQU 757       SCREEN #41
* 
*     QUESTION BUFFER 
* 
IQUES EQU 637 
IBQOF EQU 1275     ! START ADDR OF 1ST BYTE 
* 
* WORD OFFSETS INTO JFORM 
* 
*     ANSWERS TO SCREENS 13,14,15,91
* 
JAN13 EQU 24        SCREEN #13
JAN14 EQU 24        SCREEN #14
JAN15 EQU 50        SCREEN #15
JAN91 EQU 17        SCREEN #91
JN91A EQU 76        SCREEN #91 (SECOND MOVE)
* 
*     NO. OF CHARACTERS PER QUESTION
* 
JBYTE EQU 170 
* 
*     NO. OF WORDS PER QUESTION 
* 
JWORD EQU 85
* 
* 
TGP4  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 CL91
CONT  LDA IQST      GET QUESTION #
      ADA .D1       DECREMENT 
      MPY D.CH      MULT PER # OF CHAR. PER QUESTION
      STA D.OFF     STORE SOURCE OFFSET 
* 
************************************************************************
* 
*FIND SCREEN # TO DISPLAY 
* 
************************************************************************
* 
* 
      LDA ISCRN     GET SCREEN #
      CPA D.91
      JMP SCR91 
      ADA .D14
      ADA ASCR
      JMP A,I 
* 
*  TABLE OF ADDRESS FOR SCREENS 
* 
ASCR  DEF *+1,I 
      DEF SCR14 
      DEF SCR15 
      DEF SCR16 
      DEF SCR17 
      DEF SCR18 
      DEF SCR19 
* 
* 
* DATA SECTION
* 
A     EQU 0 
B     EQU 1 
D.0   DEC 0 
.D1   DEC -1
.D2   DEC -2
D.1   DEC 1 
D.2   DEC 2 
D.3   DEC 3 
D.6   DEC 6 
D.8   DEC 8 
D.9   DEC 9 
D.10  DEC 10
D.12  DEC 12
D.13  DEC 13
D.747 DEC 747 
D.57  DEC 57
D.91  DEC 91
.D14  DEC -14 
.D77  DEC -77 
D.CH  ABS JBYTE 
QUOFF ABS IBQOF                BYTE OFFSET FOR QUESTIONS
D.OFF NOP 
DBL15 NOP 
* 
************************************************************************* 
* 
* SCREEN # 13  : EDIT SPECIFICATIONS FOR STRINGS
* 
************************************************************************
* 
SCR14 LDA IQST      QUESTION #
      ADA .D1       DECREMENT 
      MPY D.12      QUEST. NAME LENGTH
      ADA QUOFF     COMPUTE CHAR. OFFSET OF 
      STA SOQST     QUEST. NAME IN IFORM AND SAVE 
      JSB MOVCA     MOVE QUESTION 
      DEF *+6       NAME FROM 
      DEF IFORM     ANSWER STORAGE
      DEF SOQST     SOURCE OFFSET 
      DEF T14       TO DEST. BUFFER 
      DEF D.1       DEST OFFSET 
      DEF D.12      # OF CHARS TO MOVE
* 
      JSB MOVCX     MOVE ANSWERS IN UNPROT. FIELDS
      DEF *+6 
      DEF JFORM+JAN13     ANSWER STORAGE
      DEF SOF14     TABLE OF SOURCE CHAR. OFFSETS 
      DEF BD14      TABLE OF DEST. BUFFERS
      DEF D.OFF     SOURCE OFFSET 
      DEF DBL14     QUESTION #
* 
*--------------------------------------------------------------------!
* SET UP SCREEN 13 ACCORDING TO TRANSACTION TYPE:                    !
*      IF TRANSACTION TYPE IS 2 OR 3 THEN OUTPUT "IMAGE" QUESTIONS   !
*           (LINES 13, 14, 15, 16, 17)                               !
*      IF TRANSACTION TYPE USES UWM  THEN OUTPUT "USER-WRITTEN-      !
*         MODULES" QUESTION                                          !
*           (LINES 18, 19, 20, 21, 22, 23, 24)                       !
*--------------------------------------------------------------------!
* 
* 
* INITIALIZE VARIABLES INVOLVED 
* 
      LDA IL140     WORD COUNT OF QUESTIONS THAT ARE ALWAYS OUTPUT
      STA ILS14 
* 
      LDA A.141     ADDRESS OF FIRST AVAILABLE BUFFER SPACE 
      STA BPNT      FOLLOWING QUESTIONS THAT ARE ALWAYS OUTPUT
* 
* 
* IF THE TRANSACTION TYPE IS 2 OR 3 THEN
*    OUTPUT "IMAGE" QUESTIONS 
* 
SC140 LDA ITT 
      AND =B3       IOSLATE BITS 0 & 1
      SZA,RSS       IF TRANS TYPE IS 0 THEN 
      JMP WRT14        OUTPUT PERMANENT PART OF SCREEN
*                   ELSE
      ADA .D2       IS TRANS TYPE .GE. 2 ?
      SSA 
      JMP SC143     NO, CHECK FOR TRANS TYPE 1 OR 3 
*                   YES, PREPARE "IMAGE" QUESTIONS FOR OUTPUT 
* 
      LDA ILS14     ADJUST WORD COUNT TO INCLUDE NEW LINES
      ADA IL141 
      STA ILS14 
* 
* 
      LDA A.142     SET "AVAILABLE BUFFER" POINTER TO INCLUDE NEW LINES 
      STA BPNT
* 
* IF THE TRANSACTION TYPE IS 1 OR 3 THEN
*    OUTPUT "USER-WRITTEN-MODULES" QUESTION 
* 
SC143 LDA ITT 
      AND =B3       ISOLATE BITS 0 & 1
      CPA D.2       AT THIS POINT, IT IS KNOWN THAT THE TRANS TYPE
      JMP WRT14     MUST BE 1,2, OR 3. IF IT IS .NE. 2, THEN IT MUST
*                   BE 1 OR 3.
* 
      LDA IL142     ADJUST WORD COUNT TO INCLUDE NEW LINES
      STA LN142 
      ADA ILS14 
      STA ILS14 
* 
      LDB BPNT
      CPB A.142     ARE NEW OUTPUT LINES IN "NEXT AVAILABLE BUFFER" ? 
      JMP WRT14     YES, WRITE SCREEN 
*                   NO, MOVE LINES INTO "NEXT AVAILABLE BUFFER" 
* 
      LDA A.142     MOVE "IMAGE QUESTIONS" INTO "NEXT AVAILABLE BUFFER" 
      JSB &MVW
LN142 BSS 1         WORD COUNT
* 
* OUTPUT SCREEN 
* 
WRT14 JSB EXEC
      DEF *+5 
      DEF D.2 
      DEF ILU 
      DEF BSC14 
      DEF ILS14 
      JMP CANS      LOAD SEGMENT TO ANALYSE USER'S ANSWERS
* 
*---------------------------------------------------------------------
* 
* TABLE OF QUESTIONS
* 
SOF14 DEC 1         TABLE OF OFFSETS IN JFORM 
      DEC 3,4,24,44,45,50,-1
* 
*  TABLE OF DEST BUFFER ADDRESSES 
* 
BD14  DEF T1400,I   MAXIMUM LENGTH
      DEF T1401     POSITIONING 
      DEF T1402     STRING MASK 
      DEF T1403     DEFAULT ANSWER
      DEF T1404     NEXT ENTRY
      DEF T1405     USER WRITTEN MODULE 
* 
* 
DBL14 DEC 3 
* 
*  DATA SCREEN # 14 
* 
BSC14 BYT 33,130    FORMAT OFF
      BYT 33,110    HOME UP 
CL01  BYT 33,112    CLEAR DISPLAY 
* 
*---------------------------------------------------------------------
* 
* THIS PART OF THE SCREEN IS ALWAYS OUTPUT
* 
* 
*     LINE # :   1
* 
      ASC 22,     STRING VALIDATION SPECIFICATIONS FOR TH 
      ASC 10,E ANSWER TO QUESTION 
      BYT 40,0
      BYT 33,46,144,104 
T14   ASC 6,
      BYT 33,46,144,100 
      BYT 15,12 
* 
*     LINE # :   2
* 
      BYT 15,12 
* 
*     LINE # :   3
* 
      ASC 22,    - Specify the maximum length of the stri 
      ASC 15,ng (<127) .................... 
      BYT 40,0
      BYT 33,46,144,102,33,133
T1400 ASC  1, 
      BYT 40,0
      BYT 33,135,33,46,144,100
      BYT 15,12 
* 
*     LINE # :   4
* 
      ASC 22,    - Specify the position of the string in
      ASC  9,the output buffer, 
      BYT 15,12 
* 
*     LINE # :   5
* 
      BYT 33,46,141,53,61,61,103,0  POSITION  CURSOR -  12
      BYT 33,46,144,104 
      BYT 122,0 
      BYT 33,46,144,100 
      ASC 10,ight positioning or
      BYT 33,46,144,104 
      BYT 114,0 
      BYT 33,46,144,100 
      ASC 22,eft positioning (default)..................
      BYT 33,46,144,102,33,133
T1401 BYT 40,0
      BYT 33,135,33,46,144,100
      BYT 15,12 
* 
*     LINE # :   6
* 
      ASC 22,    - Specify the mask to be applied to the
      ASC  7,answer ......
      BYT 33,46,144,112,33,133
T1402 ASC 10, 
      BYT 33,135,33,46,144,100
      BYT 15,12 
* 
*     LINE # :   7
* 
      ASC 22,      (fill each character position with one 
      ASC 15, of the following characters : 
      BYT 15,12 
* 
*     LINE # :   8
* 
      ASC  3, 
      BYT 40,0
      BYT 33,46,144,104 
      BYT 101,0 
      BYT 33,46,144,100 
      ASC 18, to specify an alphabetic character, 
      BYT 40,0
      BYT 33,46,144,104 
      BYT 71,0
      BYT 33,46,144,100 
      ASC 16, to specify a numeric character, 
      BYT 15,12 
* 
*     LINE # :   9
* 
      ASC  3, 
      BYT 40,0
      BYT 33,46,144,104 
      BYT 130,0 
      BYT 33,46,144,100 
      ASC 18, to specify any ASCII character, any 
      BYT 40,0
      BYT 33,46,144,104 
      ASC  7,other characte 
      BYT 162,0 
      BYT 33,46,144,100 
      ASC  9, to specify itself 
      BYT 51,0
      BYT 15,12 
* 
*     LINE # :  10
* 
      ASC 16,    - Specify the default answer 
      BYT 15,12 
* 
*     LINE # :  11
* 
      BYT 33,46,141,53,62,62,103,0  POSITION  CURSOR -  35
      ASC 18,(If not the displayed value) ......
      BYT 33,46,144,102,33,133
T1403 ASC 10, 
      BYT 33,135,33,46,144,100
      BYT 15,12 
* 
*     LINE # :  12
* 
ESC14 BYT 15,12 
* 
*---------------------------------------------------------------------
* 
* THESE LINES ARE OUTPUT IF THE TRANSACTION TYPE (ITT) USES DATA BASE.
* 
* 
*     LINE # :  13
* 
B.141 ASC  1, 
      BYT 33,51,102,16
      ASC  1,R, 
      BYT 54,17 
      ASC 22, Enter X if the following function may be us 
      ASC 12,ed during this question
      BYT 16,54 
      ASC  2,,,,, 
      BYT 124,0 
      BYT 15,12 
* 
*     LINE # :  14
* 
      ASC  1, 
      BYT 33,51,102,16
      ASC  1,.
      BYT 33,46,141,53,67,64,103,0  POSITION  CURSOR -  79
      BYT 56,0
      BYT 15,12 
* 
*     LINE # :  15
* 
      ASC  1, 
      BYT 33,51,102,16
      BYT 56,17 
      ASC 22,    NEXT ENTRY in an IMAGE chain  .......... 
      ASC 15,.............................
      BYT 33,46,144,102,33,133
T1404 BYT 40,0
      BYT 33,135,33,46,144,100,16,56
      BYT 15,12 
* 
*     LINE # :  16
* 
      ASC  1, 
      BYT 33,51,102,16
      ASC 22,F,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
      ASC 16,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
      BYT 107,0 
      BYT 15,12 
* 
*     LINE # :  17
* 
E.141 BYT 15,12 
* 
*---------------------------------------------------------------------
* 
* THESE LINES ARE OUTPUT IF THE TRANSACTION TYPE (ITT) USES UWM.
* 
* 
*     LINE # :  18
* 
B.142 ASC  1, 
      BYT 33,51,102,16
      ASC 10,R,,,,,,,,,,,,,,,,,,, 
      BYT 17,40 
      ASC 10,User written modules 
      BYT 40,16 
      ASC 17,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
      BYT 124,0 
      BYT 15,12 
* 
*     LINE # :  19
* 
      ASC  1, 
      BYT 33,51,102,16
      ASC  1,.
      BYT 17,55 
      ASC 22, If an additional validation is to be perfor 
      ASC  9,med on the value,
      BYT 33,46,141,53,61,61,103,0  POSITION  CURSOR -  79
      BYT 16,56 
      BYT 15,12 
* 
*     LINE # :  20
* 
      ASC  1, 
      BYT 33,51,102,16
      BYT 56,17 
      ASC 22,   enter the name of the appropriate user wr 
      ASC 13,itten validation module
      BYT 33,46,144,102,33,133
T1405 ASC  2, 
      BYT 40,0
      BYT 33,135,33,46,144,100,16,56
      BYT 15,12 
* 
*     LINE # :  21
* 
      ASC  1, 
      BYT 33,51,102,16
      ASC 22,F,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
      ASC 16,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
      BYT 107,0 
      BYT 15,12 
* 
*     LINE # :  22
* 
      BYT 15,12 
* 
*     LINE # :  23
* 
E.142 BYT 15,12 
* 
* 
* 
STA14 EQU BSC14 
LTA14 EQU ESC14 
ST141 EQU B.141 
LT141 EQU E.141 
ST142 EQU B.142 
LT142 EQU E.142 
A.141 DEF B.141 
A.142 DEF B.142 
IL140 ABS LTA14-STA14+1 
IL141 ABS LT141-ST141+1 
IL142 ABS LT142-ST142+1 
ILS14 NOP 
SOQST NOP           CHAR OFFSET 
* 
************************************************************************* 
*  SCREEN # 14 EDIT FOR FUNCTION ONLY ANSWER TYPE 
* 
************************************************************************* 
* 
SCR15 LDA IQST      QUESTION #
      ADA .D1       DECREMENT 
      MPY D.12      QUEST. LABEL LENGTH 
      ADA QUOFF     BASE OFFSET 
      STA SOQST     STORE OFFSET
      JSB MOVCA     MOVE QUESTION LABEL IN SCREEN TITLE 
      DEF *+6 
      DEF IFORM     ANSWER STORAGE
      DEF SOQST     CHAR. OFFSET IN IFORM 
      DEF T15       DEST. BUFFER
      DEF D.1       DEST OFFSET 
      DEF D.12      MOVE LENGTH 
* 
      JSB MOVCX     MOVE ANSWERS IN UNPROT. FIELDS
      DEF *+6 
      DEF JFORM+JAN14 ANSWER STORAGE
      DEF SOF15     TABLE OF CHAR.OFFSETS IN JFORM
      DEF BD15      TABLE OF BUFFER DEST. ADDRESS 
      DEF D.OFF     DEST.OFFSET 
      DEF DBL15     QUESTION #
* 
      LDA ITT       GET TR. TYPE
      AND =B3       ISOLATE BITS 0-1
      STA B         PUT IT IN B-REG.
      LDA IL150     GET SCREEN LENGTH FOR TR. TYPE 1
      CPB D.1       IS 1 ?
      JMP STALN     YES 
      JSB NUL 
      DEF *+3 
      DEF LN18
      DEF LEN18 
      LDA IL151     NO GET SCREEN LENGTH FOR TR. TYPE 2 AND 3 
STALN STA ILS15     STORE SCREEN LENGTH 
      JSB EXEC      WRITE SCREEN 14 
      DEF *+5       RETURN POINT
      DEF D.2       CODE EXEC 
      DEF ILU       CONTROL WORD
      DEF BSC15     BUFFER LOCATION 
      DEF ILS15     BUFFER LENGTH 
      JMP CANS      LOAD SEGMENT TO ANALYSE USER' S ANSWERS 
* 
* TABLE OF OFFSETS SCREEN # 14
* 
SOF15 DEC 1 
      DEC 2 
      DEC 3 
      DEC 4 
      DEC -1
* 
*  BUFFER DEST ADDRESS  TABLE SCREEN 14 
* 
BD15  DEF T1500 
      DEF T1501 
      DEF T1502 
* 
*  DATA SCREEN 14 
* 
* 
*     LINE # :   1
* 
BSC15 BYT 33,130    FORMAT OFF
      BYT 33,110    HOME UP 
CL02  BYT 33,112    CLEAR DISPLAY 
      ASC 21,   FUNCTION VALIDATION SPECIFICATIONS FOR
      ASC 11,THE ANSWER TO QUESTION 
      BYT 40,0
      BYT 33,46,144,104 
T15   ASC  6, 
      BYT 15,12 
* 
*     LINE # :   2
* 
      BYT 15,12 
* 
*     LINE # :   3
* 
      BYT 15,12 
* 
*     LINE # :   4
* 
      ASC 22,    The only valid answers to the question a 
      ASC  7,re FUNCTIONS : 
      BYT 15,12 
* 
*     LINE # :   5
* 
      BYT 15,12 
* 
*     LINE # :   6
* 
      BYT 33,46,141,53,60,70,103,0  POSITION  CURSOR -  09
      ASC 22,The functions ABORT/SELECT, SAME VALUE, and
      ASC 3,RECALL
      BYT 15,12 
* 
*     LINE # :   7
* 
      BYT 33,46,141,53,60,70,103,0  POSITION  CURSOR -  09
      ASC 22,are valid answers to any question, if they h 
      ASC 4,ave been
      BYT 15,12 
* 
*     LINE # :   8
* 
      BYT 33,46,141,53,60,70,103,0  POSITION  CURSOR -  09
      ASC 22,defined in the SFK ASSIGNMENT SCREEN(S). 
      BYT 15,12 
* 
*     LINE # :   9
* 
      BYT 15,12 
* 
*     LINE # :  10
* 
      BYT 15,12 
* 
*     LINE # :  11
* 
      BYT 33,46,141,53,60,64,103,0  POSITION  CURSOR -  04
      BYT 33,51,102,16              TURN ON LDS 
      ASC  2,R,,, 
      BYT 17,40                     TURN LDS OFF
      ASC 22,Enter X to enable any of the following funct 
      ASC 12,ions for this question,
      BYT 16,0                      LDS ON
      ASC  1,,, 
      BYT 124,0 
* 
*     LINE # :  12
* 
      BYT 33,46,141,53,60,64,103,0  POSITION  CURSOR -  04
      BYT 33,51,102,16              LDS ON
      BYT 56,17                     .,LDS OFF 
      ASC 22,     if they have been defined in the SFK AS 
      ASC 10,SIGNMENT SCREEN(S) 
      BYT 33,46,141,53,67,70,103,0   POSITION CURSOR - 80 
      BYT 16,56                      TURN LDS ON, . 
* 
*     LINE # :  13
* 
      BYT 33,46,141,53,60,64,103,0    POSITION CURSOR - 04
      BYT 33,51,102,16                TURN LDS ON 
      BYT 56,17                       . , TURN LDS OFF
      BYT 33,46,141,53,67,70,103,0    POSITION CURSOR - 80
      BYT 16,56                       TURN LDS ON, .
* 
*     LINE # :  14
* 
      BYT 33,46,141,53,60,64,103,0    POSITION CURSOR - 04
      BYT 33,51,102,16                TURN LDS ON 
      BYT 56,17                       . , TURN LDS OFF
      BYT 33,46,141,53,67,70,103,0    POSITION CURSOR - 80
      BYT 16,56                       TURN LDS ON, .
* 
*     LINE # :  15
* 
      BYT 33,46,141,53,60,64,103,0   POSITION CURSOR - 04 
      BYT 33,51,102,16               TURN LDS ON
      BYT 56,17                      ., TURN LDS OFF
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      ASC 22,CONTINUE to the next question  ............. 
      ASC  3,.....
      BYT 33,46,144,102,33,133
T1500 BYT 40,0
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,67,70,103,0   POSITION CURSOR - 80 
      BYT 16,56                      TURN LDS ON, . 
      BYT 33,46,141,53,60,64,103,0    POSITION CURSOR - 04
      BYT 33,51,102,16                TURN LDS ON 
      BYT 56,17                       . , TURN LDS OFF
      BYT 33,46,141,53,67,70,103,0    POSITION CURSOR - 80
      BYT 16,56                       TURN LDS ON, .
* 
*     LINE # :  16
* 
LN18  BYT 33,46,141,53,60,64,103,0    POSITION CURSOR - 04
      BYT 33,51,102,16                TURN LDS ON 
      ASC 22,F,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
      ASC 15,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
ESC15 ASC 1,,G
* 
*     LINE # :  17
* 
B.151 BYT 33,46,141,53,60,64,103,0   POSITION CURSOR - 04 
      BYT 33,51,102,16               TURN LDS ON
      BYT 56,17                      ., TURN LDS OFF
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      ASC 22,NEXT ENTRY in an IMAGE chain   ............. 
      ASC  3,.....
      BYT 33,46,144,102,33,133
T1501 BYT 40,0
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,67,70,103,0   POSITION CURSOR - 80 
      BYT 16,56                      TURN LDS ON, . 
* 
*     LINE # :  18
* 
      BYT 33,46,141,53,60,64,103,0    POSITION CURSOR - 04
      BYT 33,51,102,16                TURN LDS ON 
      BYT 56,17                       . , TURN LDS OFF
      BYT 33,46,141,53,67,70,103,0    POSITION CURSOR - 80
      BYT 16,56                       TURN LDS ON, .
* 
*     LINE # :  19
* 
      BYT 33,46,141,53,60,64,103,0   POSITION CURSOR - 04 
      BYT 33,51,102,16               TURN LDS ON
      BYT 56,17                      ., TURN LDS OFF
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      ASC 22,DELETE ENTRY in data base      ............. 
      ASC  3,.....
      BYT 33,46,144,102,33,133
T1502 BYT 40,0
      BYT 33,135,33,46,144,100
      BYT 33,46,141,53,67,70,103,0    POSITION CURSOR - 04
      BYT 16,56                       TURN LDS ON 
* 
*     LINE # :  20
* 
      BYT 33,46,141,53,60,64,103,0    POSITION CURSOR - 04
      BYT 33,51,102,16                TURN LDS ON, .
      BYT 56,17                       . , TURN LDS OFF
      BYT 33,46,141,53,67,70,103,0    POSITION CURSOR - 80
      BYT 16,56                       TURN LDS ON, .
* 
*     LINE # :  21
* 
      BYT 33,46,141,53,60,64,103,0    POSITION CURSOR - 04
      BYT 33,51,102,16                TURN LDS ON 
      ASC 22,F,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
      ASC 15,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
E.151 ASC  1,,G 
* 
* 
ILS15 NOP 
STA15 EQU BSC15 
LTA15 EQU ESC15 
LT151 EQU E.151 
ILN18 EQU LN18
LEN18 ABS ESC15-ILN18+1 
IL150 ABS LTA15-STA15+1 
IL151 ABS LT151-STA15+1 
* 
************************************************************************* 
* 
* SCREEN # 15  : DISPLAY INFORMATION
* 
************************************************************************
* 
SCR16 LDA IQST      QUESTION #
      ADA .D1       DECREMENT 
      MPY D.12      QUEST. NAME LENGTH
      ADA QUOFF     COMPUTE CHAR. OFFSET OF 
      STA SOQST     QUEST. NAME IN IFORM AND SAVE 
      JSB MOVCA     MOVE QUESTION 
      DEF *+6       NAME FROM 
      DEF IFORM     ANSWER STORAGE
      DEF SOQST     SOURCE OFFSET 
      DEF T16       TO DEST. BUFFER 
      DEF D.1       DEST OFFSET 
      DEF D.12      # OF CHARS TO MOVE
* 
      JSB MOVCX     MOVE ANSWERS IN UNPROT. FIELDS
      DEF *+6 
      DEF JFORM+JAN15     ANSWER STORAGE
      DEF SOF16     TABLE OF SOURCE CHAR. OFFSETS 
      DEF BD16      TABLE OF DEST. BUFFERS
      DEF D.OFF     SOURCE OFFSET 
      DEF DBL16     QUESTION #
* 
*--------------------------------------------------------------------!
* SET UP SCREEN 15 ACCORDING TO ANSWERS OBTAINED IN SCREEN 41 AND    !
* TRANSACTION TYPE:                                                  !
*      IF ANSWER 1 IN SCR 41 IS "X" THEN OUTPUT "PRINTER" QUESTIONS  !
*           (LINES 9, 10, 11, 12)                                    !
*      IF TRANSACTION TYPE USES UWM THEN OUTPUT "USER WRITTEN       ! 
*           MODULES" QUESTIONS                                       !
*           (LINES 13, 14, 15, 16, 17, 18)                           !
*      IF TRANSACTION TYPE IS 2 OR 3 THEN OUTPUT "IMAGE" QUESTIONS   !
*           (LINES 19, 20, 21, 22, 23)                               !
*--------------------------------------------------------------------!
* 
* 
* INITIALIZE VARIABLES INVOLVED 
* 
      LDA IL16      WORD COUNT OF QUESTIONS THAT ARE ALWAYS OUTPUT
      STA ILS16 
* 
      LDA A.160     ADDRESS OF FIRST AVAILABLE BUFFER SPACE 
      STA BPNT      FOLLOWING QUESTIONS THAT ARE ALWAYS OUTPUT
* 
*  CHECK TO SEE IF 3077 IS USED ... IF SO NO LIGHT OF DEFAULT ANSW. 
* 
      LDA ITT     GET TRANSACTION TYPE
      AND =B2000  CHECK OF BIT 10 
      SZA             FOR 0 
      JMP SC160   YES, NO LIGHTS OF DEFAULT ANSWERS 
* 
      LDA ILS16   NO, LIGHTS + DEFAULT ANSWER PRINTED 
      ADA IL160   ADJUST WORD COUNT TO INCLUDE NEW LINES
      STA ILS16 
* 
      LDA A.161   SET AVAILABLE BUFFER POINTER TO INCLUDE 
      STA BPNT       NEW LINES
* 
* WITH AN ALPHA DISP, CRT OR PRINTER, ... ITT BITS 7,13,3 ... 
*   A TEXT STRING CAN BE SPECIFIED TO LABEL DISPLAYED VALUE 
* 
SC160 LDA ITT     GET TRANSACTION TYPE
      AND =B20210 ISOLATE BITS 3,7,13 FOR DISPLAY-PRINTER 
      SZA         SKIP IF NONE PRESENT
      JMP SC16Q   PRESENT-PRINT LABEL TAG FOR DISPLAY 
      LDA ITT     GET TRANSACTION TYPE AGAIN
      AND =B22210 ISOLATE BIT 3,7,13 AND 10 
      SZA         0 IMPLIES PRINT OK TO PRINT LABEL FIELD 
      JMP SC162   NO, DO NOT PRINT LABEL FIELD
* 
SC16Q LDA IL161   NO, PRINT IT OUT
      STA LN161 
      ADA ILS16 
                                      