ASMB
  HED .            D C M O N     S C R E E N   D A T A
      NAM DCSFK,7 92080-1X202 REV.2026  800512            
* 
* 
*     NAME:   DCSFK    SCREEN DATA
*     SOURCE: &DCSFK    92080-18202 
*     BINARY: %DCSFK    ----NONE---    PART OF  %DCMNS  92080-16200 
* 
*     PGMR:   FRANCOIS GAULLIER 
      SPC 2 
*     **************************************************************
*     * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  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 
      ENT DCSFK 
      EXT .ENTR,EXEC,STRAP,RESET
  SPC 1 
A     EQU 0 
B     EQU 1 
      SUP 
  SPC 3 
.LU   NOP 
.FLAG NOP 
DCSFK NOP 
      JSB .ENTR 
      DEF .LU 
  SPC 1 
* 
*  TRY TO GET TERMINAL STATUS 
* 
      JSB STRAP 
      DEF *+4 
      DEF .LU,I 
      DEF ITEMP 
      DEF * 
* 
      LDA .FLAG,I   RECALL FUNCTION 
      SZA,RSS       PRINT SCREEN 0 ?
      JMP SCRN0     YES, PRINT SFK MAP
      CPA D2        END OF THE SCREEN ? 
      JMP SCRN2     YES, PRINT END OF THE SCREEN
      CPA D3        TMP SCREEN ?
      JMP SCRN3     YES, PRINT TMP SCREEN 
      JMP DCSFK,I   NO, FORGET THE REQUEST
  SPC 2 
SCRN0 LDA .DSC0 
      LDB LNG00 
      JMP SCRNX 
* 
.DSC0 DEF DSCR0 
  SPC 1 
SCRN2 LDA .DSC2 
      LDB LNG02 
      JMP SCRNX 
* 
.DSC2 DEF DSCR2 
  SPC 1 
SCRN3 LDA .DSC3 
      LDB LNG03 
      JMP SCRNX 
* 
.DSC3 DEF DSCR3 
  SPC 2 
SCRNX STA SCRNY 
      STB TEMP
* 
      JSB EXEC      OUPUT THE SCREEN
      DEF *+5 
      DEF D2
      DEF .LU,I 
SCRNY NOP 
      DEF TEMP
* 
      JSB RESET 
      DEF *+5 
      DEF .LU,I 
      DEF ITEMP 
      DEF IVAL
      DEF * 
* 
      JMP DCSFK,I 
* 
D1    DEC 1 
D2    DEC 2 
D3    DEC 3 
TEMP  NOP 
ITEMP ASC 5,
IVAL  ASC 1,
  HED .             D C M O N   S C R E E N   D A T A  (GENERATOR)
DSCR0 EQU * 
      BYT 33,143               LOCK KEYBOARD
      BYT 33,130,33,155        FMT MODE OFF, UNLCK MEMORY 
      BYT 33,46,153,60,102,0   BLOCK MODE OFF 
* 
*                   SET HARDWARE SWITCH 
* 
      BYT 33,46 
      ASC 10,s0a0b0c1d0e0f1g1h0j0 
      BYT 113,0 
* 
*                   SET SOFT KEY
* 
      BYT 33,46 
*     SFK 1  - RU,TGP 
      ASC  7,f1k2a06LRU,TGP 
      BYT 33,46 
*     SFK 2  - RU,DCMON,,0,0
      ASC 11,f2k2a013LRU,DCMON,,0,0 
      BYT 33,46 
*     SFK 3  - RU,TMPGN,0,0,0,0,0 FOR TMP   (CHANGED AT 2026) 
      ASC 14,f3k2a019LRU,TMPGN,0,0,0,0,0
      BYT 33,46 
*     SFK 4  - RU,DCMON,,0,0
      ASC 11,f4k2a013LRU,DCMON,,0,0 
      BYT 33,46 
*     SFK 5  - RU,DCMON,,0,0
      ASC 11,f5k2a013LRU,DCMON,,0,0 
      BYT 33,46 
*     SFK 6  - RU,DCMON,,0,0
      ASC 11,f6k2a013LRU,DCMON,,0,0 
      BYT 33,46 
*     SFK 7  - RU,TMPGN,0,0,0,0,1   FOR TMPD  (CHANGED AT 2026) 
      ASC 14,f7k2a019LRU,TMPGN,0,0,0,0,1
      BYT 33,46 
*     SFK 8  - RU,DCMON,,1,0
      ASC 11,f8k2a013LRU,DCMON,,1,0 
* 
      BYT 33,110,33,112        HOME UP, CLEAR DISPLAY 
* 
*     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,61,70,103,0  POSITION  CURSOR -  19
      ASC 12,DATACAP IS READY !   - 
      BYT 40,0
      BYT 33,46,144,104 
      ASC  9,GENERATOR SELECTIO 
      BYT 116,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
      ASC  1,.
      BYT 17,40 
      ASC  4, START 
      BYT 40,16 
      ASC  1,.. 
      BYT 40,17 
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  40
      BYT 16,56 
      ASC  1,.
      BYT 17,40 
      ASC  4, START 
      BYT 16,40 
      ASC  7,..           . 
      BYT 15,12 
* 
*     LINE # :   6
* 
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      BYT 33,51,102,16
      ASC  2,.
      BYT 40,17 
      ASC  3,TGP
      BYT 40,16 
      ASC  1,.. 
      BYT 40,17 
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  40
      BYT 16,56 
      ASC  2,.
      BYT 17,124
      ASC  3,MPGN 
      BYT 40,16 
      ASC  7,..           . 
      BYT 15,12 
* 
*     LINE # :   7
* 
      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 # :   8
* 
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      BYT 33,51,102,16
      BYT 56,17 
      ASC  5,Transactio 
      BYT 156,16
      ASC  1,.. 
      BYT 17,40 
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  40
      BYT 16,56 
      BYT 56,17 
      ASC  5,Trans. Mon 
      BYT 56,16 
      ASC  1,.. 
      BYT 17,40 
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  66
      BYT 16,56 
      BYT 15,12 
* 
*     LINE # :   9
* 
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      BYT 33,51,102,16
      BYT 56,17 
      ASC  5, Generator 
      BYT 40,16 
      ASC  1,.. 
      BYT 17,40 
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  40
      BYT 16,56 
      BYT 56,17 
      ASC  5, Generator 
      BYT 40,16 
      ASC  1,.. 
      BYT 17,40 
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  66
      BYT 16,56 
      BYT 15,12 
* 
*     LINE # :  10
* 
      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 # :  11
* 
      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 # :  12
* 
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      BYT 33,51,102,16
      ASC  1,.
      BYT 17,40 
      ASC  3, 
      BYT 40,16 
      ASC  2,  .. 
      BYT 40,17 
      BYT 33,46,141,53,60,71,103,0  POSITION  CURSOR -  39
      BYT 16,40 
      ASC  2,.. 
      BYT 17,40 
      ASC  3,START
      BYT 40,16 
      ASC  2, ..
      BYT 17,40 
      ASC  4,CONTROL
      BYT 16,40 
      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
      BYT 56,17 
      ASC  4, 
      BYT 40,16 
      ASC  2,  .. 
      BYT 17,40 
      BYT 33,46,141,53,60,71,103,0  POSITION  CURSOR -  39
      BYT 16,40 
      ASC  1,.. 
      BYT 40,17 
      ASC  3,  TMPG 
      BYT 116,0 
      BYT 33,46,144,104 
      BYT 104,0 
      BYT 33,46,144,100 
      ASC  1, 
      BYT 16,56 
      ASC  1,.
      BYT 17,40 
      ASC  4,  TMP
      BYT 40,16 
      BYT 56,0
      BYT 15,12 
* 
*     LINE # :  14
* 
      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 # :  15
* 
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      BYT 33,51,102,16
      ASC  1,.
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  27
      ASC  1,.. 
      BYT 33,46,141,53,61,61,103,0  POSITION  CURSOR -  40
      ASC  1,.. 
      BYT 17,40 
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  53
      BYT 16,56 
      BYT 56,17 
      ASC  5,Transactio 
      BYT 156,16
      BYT 56,0
      BYT 15,12 
* 
*     LINE # :  16
* 
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      BYT 33,51,102,16
      ASC  1,.
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  27
      ASC  1,.. 
      BYT 40,17 
      ASC  3, 
      BYT 40,16 
      ASC  3,   ..
      BYT 17,40 
      BYT 33,46,141,53,60,71,103,0  POSITION  CURSOR -  53
      BYT 16,56 
      ASC  1,.
      BYT 17,40 
      ASC  4,Monitor
      BYT 40,16 
      BYT 56,0
      BYT 15,12 
* 
*     LINE # :  17
* 
      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 
DSCR2 BYT 15,12 
* 
*     LINE # :  18
* 
      BYT 15,12 
* 
*     LINE # :  19
* 
      BYT 33,51,102,16
      ASC 22,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
      ASC 18,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
* 
      BYT 33,154    MEMORY LOCK 
      BYT 33,142    UNLOCK KEYBOARD 
  SPC 1 
LNG00 ABS *-DSCR0 
LNG02 ABS *-1-DSCR2 
   HED .             D C M O N   S C R E E N   D A T A  (TMP) 
DSCR3 EQU * 
      BYT 33,143               LOCK KEYBOARD
      BYT 33,130,33,155        FMT MODE OFF, UNLCK MEMORY 
      BYT 33,46,153,60,102,0   BLOCK MODE OFF 
* 
*                   SET HARDWARE SWITCH 
* 
      BYT 33,46 
      ASC 10,s0a0b0c1d0e0f1g1h0j0 
      BYT 113,0 
* 
*                   SET SOFT KEY
* 
      BYT 33,46 
*     SFK 1  - RU,DCMON,,2,0
      ASC 11,f1k2a013LRU,DCMON,,2,0 
      BYT 33,46 
*     SFK 2  - RU,DCMON,,3,0
      ASC 11,f2k2a013LRU,DCMON,,3,0 
      BYT 33,46 
*     SFK 3  - RU,DCMON,,4,0
      ASC 11,f3k2a013LRU,DCMON,,4,0 
      BYT 33,46 
*     SFK 4  - RU,DCRCV:IH
      ASC 10,f4k2a11LRU,DCRCV:IH
      BYT 33,46 
*     SFK 5  - RU,DCMON,,2,1
      ASC 11,f5k2a013LRU,DCMON,,2,1 
      BYT 33,46 
*     SFK 6  - RU,DCMON,,3,1
      ASC 11,f6k2a013LRU,DCMON,,3,1 
      BYT 33,46 
*     SFK 7  - RU,DCMON,,4,1
      ASC 11,f7k2a013LRU,DCMON,,4,1 
      BYT 33,46 
*     SFK 8  - RU,DCMON,,0,0
      ASC 11,f8k2a013LRU,DCMON,,0,0 
* 
      BYT 33,110,33,112        HOME UP, CLEAR DISPLAY 
* 
* 
*     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,61,70,103,0  POSITION  CURSOR -  19
      ASC 12,DATACAP IS READY !   - 
      BYT 40,0
      BYT 33,46,144,104 
      ASC  8,ON LINE OPERATIO 
      BYT 116,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
      ASC  1,.
      BYT 17,40 
      ASC  4, START 
      BYT 40,16 
      ASC  1,.. 
      BYT 40,17 
      ASC  5,  START
      BYT 16,56 
      ASC  1,.
      BYT 40,17 
      ASC  4, STOP
      BYT 40,16 
      ASC  1,.. 
      BYT 40,17 
      ASC  5,  START
      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
      ASC  2,.
      BYT 40,17 
      ASC  3,TMP
      BYT 40,16 
      ASC  1,.. 
      BYT 40,17 
      ASC  5,   TSE 
      BYT 16,56 
      ASC  2,.
      BYT 17,40 
      ASC  3,TMP
      BYT 40,16 
      ASC  1,.. 
      BYT 17,40 
      ASC  5,  DCRCV
      BYT 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,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 # :   8
* 
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      BYT 33,51,102,16
      BYT 56,17 
      ASC  5,Transactio 
      BYT 156,16
      ASC  1,.. 
      BYT 17,124
      ASC  5,rans.Set 
      BYT 16,56 
      BYT 56,17 
      BYT 33,46,141,53,61,61,103,0  POSITION  CURSOR -  53
      BYT 16,56 
      BYT 56,17 
      ASC  5, Data Base 
      BYT  0,40 
      BYT 16,56 
      BYT 15,12 
* 
*     LINE # :   9
* 
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      BYT 33,51,102,16
      BYT 56,17 
      ASC  5,  Monitor
      BYT 40,16 
      ASC  1,.. 
      BYT 17,40 
      ASC  5, Editor
      BYT 16,56 
      BYT 56,17 
      BYT 33,46,141,53,61,61,103,0  POSITION  CURSOR -  53
      BYT 16,56 
      BYT 56,17 
      ASC  5,  Recovery 
      BYT  0,40 
      BYT 16,56 
      BYT 15,12 
* 
*     LINE # :  10
* 
      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 # :  11
* 
      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 # :  12
* 
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      BYT 33,51,102,16
      ASC  1,.
      BYT 17,40 
      ASC  3, START 
      BYT 40,16 
      ASC  2,  .. 
      BYT 40,17 
      ASC  4,  START
      BYT 40,16 
      ASC  2, ..
      BYT 40,17 
      ASC  4, STOP
      BYT 16,40 
      ASC  1,.. 
      BYT 40,17 
      ASC  4,   TGP 
      BYT 40,16 
      ASC  1, . 
      BYT 15,12 
* 
*     LINE # :  13
* 
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      BYT 33,51,102,16
      BYT 56,17 
      ASC  3,    TM 
      BYT 120,0 
      BYT 33,46,144,104 
      BYT 104,0 
      BYT 33,46,144,100 
      BYT 40,16 
      ASC  2,  .. 
      BYT 17,40 
      ASC  3,   TSE 
      BYT 33,46,144,104 
      BYT 104,0 
      BYT 33,46,144,100 
      ASC  1, 
      BYT 16,40 
      ASC  1,.. 
      BYT 40,17 
      ASC  2,  TM 
      BYT 120,0 
      BYT 33,46,144,104 
      BYT 104,0 
      BYT 33,46,144,100 
      ASC  2, 
      BYT 16,56 
      ASC  1,.
      BYT 17,40 
      ASC  4, TMPGN 
      BYT 40,16 
      BYT 56,0
      BYT 15,12 
* 
*     LINE # :  14
* 
      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 # :  15
* 
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      BYT 33,51,102,16
      ASC  1,.
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  27
      ASC  1,.. 
      BYT 33,46,141,53,61,61,103,0  POSITION  CURSOR -  40
      ASC  1,.. 
      BYT 33,46,141,53,61,61,103,0  POSITION  CURSOR -  53
      ASC  1,.. 
      BYT 17,124
      ASC  5,ransaction 
      BYT 16,56 
      BYT 15,12 
* 
*     LINE # :  16
* 
      BYT 33,46,141,53,61,64,103,0  POSITION  CURSOR -  15
      BYT 33,51,102,16
      ASC  1,.
      BYT 33,46,141,53,61,60,103,0  POSITION  CURSOR -  27
      ASC  1,.. 
      BYT 40,17 
      ASC  3, 
      BYT 40,16 
      ASC  3,   ..
      BYT 17,40 
      ASC  3, 
      BYT 16,40 
      ASC  2,  .. 
      BYT 17,104
      ASC  5,evelopment 
      BYT 16,56 
      BYT 15,12 
* 
*     LINE # :  17
* 
      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 # :  18
* 
      BYT 15,12 
* 
*     LINE # :  19
* 
      BYT 33,51,102,16
      ASC 22,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
      ASC 18,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
* 
      BYT 33,154    MEMORY LOCK 
      BYT 33,142    UNLOCK KEYBOARD 
  SPC 1 
LNG03 ABS *-DSCR3 
      END 
                                            