home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 January / Chip_1997-01_cd.bin / ms95 / disk23 / dir05 / f008910.res < prev    next >
Text File  |  1996-04-02  |  955b  |  33 lines
  1. ;    branch.ucm
  2.  
  3.     KEY 'NOECHO'        ; Disable messages
  4.     MSG 'st '        ; Clear Status field
  5.     MSG 'cfBranch.ucm'    ; Display UCM name in Command field
  6.     MSG 'er '        ; Clear Error field
  7. START:
  8.     MSG 'prEnter some characters,    Reset to exit'
  9.  
  10.     GET K,KEYIN,R,EXITUC    ; If key-in, jump to KEYIN
  11.                         ;   Else if Reset, jump to EXITUC
  12.     GO START                ;      Else return to START
  13. KEYIN:
  14.     MSG 'er '                ; Clear fields
  15.     MSG 'pr '
  16.     MSG 'ms '
  17.     TST K0 GT 20, LONG            ; If input > 20 chars, jump to LONG
  18.     SET C0='stYou keyed in: '+KEY       ; Build message
  19.     MSG C0                    ;   that echoes your input
  20.     GO  START                ; Jump to START
  21. LONG:
  22.     MSG 'erInput > 20 characters, please re-enter'
  23.     GO  START        ; Return to START
  24. EXITUC:
  25.     MSG 'er '        ; Clear Error field
  26.     MSG 'ms '        ; Clear Message field
  27.     MSG 'cf '        ; Clear Command field
  28.     MSG 'pr '        ; Clear Prompt field
  29.     MSG 'stBranch.ucm exited'    ; Display exit status
  30.     KEY 'ECHO'        ; Enable messages
  31.     END
  32.  
  33.