home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / ZCPR33 / S-Z / VTCAP11.LBR / HLPSEL.1Z0 / HLPSEL.18°
Text File  |  2000-06-30  |  4KB  |  149 lines
  1. ; HELP SELECTION
  2. ;
  3. ; This section of code provides the necessary HELP information. It 
  4. ; is driven from the [H]elp function of the main program. Once it 
  5. ; is called, you may select the necessary help topic or use the [X]
  6. ; command to return to the database.
  7.  
  8. hlpsel:    call    clrhlp
  9.     call    gxymsg
  10.     db    23,17
  11.     db    'Enter Help Selection or [X] to Exit ',0
  12.     call    ereol
  13.     call    capin
  14.     cp    'A' 
  15.     jp    z,hadd
  16.     cp    'S'
  17.     jp    z,hsrch
  18.     cp    'U'
  19.     jp    z,hupdt
  20.     cp    'D'
  21.     jp    z,hdel
  22.     cp    'L'
  23.     jp    z,hlist
  24.     cp    'M'
  25.     jp    z,hmrg
  26.     cp    'H'
  27.     jp    z,hhlp
  28.     cp    'X'
  29.     jp    z,hlpex
  30.     jp    nohlp
  31.     
  32. hadd:    call    clrhlp
  33.     call    gxymsg
  34.     db    19,5
  35.     db    2,'     ADD    ',1
  36.     db    '- Add records to database.',cr,lf
  37.     db    '      Backspace - Does not erase old character.',cr,lf
  38.     db    '             ^W - Write record and continue to next record.'
  39.     db    cr,lf
  40.     db    '             ^Q - Write record and quit. Exits database.'
  41.     db    cr,lf
  42.     db    '          ENTER - Terminate field input.',0
  43.     call    sak
  44.  
  45. hsrch:    call    clrhlp
  46.     call    gxymsg
  47.     db    19,5
  48.     db    2,'     SEARCH ',1
  49.     db    '- Search for specific TCAP entry in database.',cr,lf
  50.     db    '         You will be prompted for the name of the terminal'
  51.     db    cr,lf
  52.     db    '         you wish to search for. You may use BACKSPACE to'
  53.     db    cr,lf
  54.     db    '         correct any mistakes during terminal name entry.'
  55.     db    cr,lf
  56.     db    '         <ENTER> to cancel search mode.',0
  57.     call    sak
  58.  
  59. hupdt:    call    clrhlp
  60.     call    gxymsg
  61.     db    19,5
  62.     db    2,'     UPDATE ',1
  63.     db    '- Update currently displayed record.',cr,lf
  64.     db    '      Backspace - Does not erase old character.',cr,lf
  65.     db    '             ^W - Write record and return to database.',cr,lf
  66.     db    '             ^Q - Quit to database. Does not reocrd changes,'
  67.     db    cr,lf
  68.     db    '          ENTER - Terminate field input.',0
  69.     call    sak
  70.  
  71. hdel:
  72.     call    clrhlp
  73.     call    gxymsg
  74.     db    19,5
  75.     db    2,'     DELETE ',1
  76.     db    '- Delete currently displayed record.',cr,lf
  77.     db    '         Toggles the marking of the record for deletion.'
  78.     db    cr,lf
  79.     db    '         While marked for deletion, the information in the'
  80.     db    cr,lf
  81.     db    '         database will be shown in the standout mode.',cr,lf
  82.     db    '         Marked records deleted on exit.',0
  83.      call    sak
  84.  
  85. hlist:    call    clrhlp
  86.     call    gxymsg
  87.     db    19,5
  88.     db    2,'     LIST   ',1
  89.     db    '- List terminals in database.',cr,lf
  90.     db    '         Deleted terminals will appear in the standout mode.'
  91.     db    cr,lf
  92.     db    '         Eighty terminals will be listed per screen. If more'
  93.     db    cr,lf
  94.     db    '         terminals exist, a [more] will be displayed at the '
  95.     db    cr,lf
  96.     db    '         bottom of the screen.',0
  97.     call    sak
  98.  
  99. hmrg:    call    clrhlp
  100.     call    gxymsg
  101.     db    19,5
  102.     db    2,'     MERGE  ',1
  103.     db    '- Merge current TCAP with selected TCAP',cr,lf
  104.     db    '         A new TCAP will be created containing all unique'
  105.     db    cr,lf
  106.     db    '         terminals from the default TCAP and the file'
  107.     db    cr,lf
  108.     db    '         selected. You will be prompted for a new version'
  109.     db    cr,lf
  110.     db    '         number. Use the form X.X',0
  111.     call    sak
  112.  
  113. hhlp:        call    clrhlp
  114.     call    gxymsg
  115.     db    19,5
  116.     db    2,'     HELP   ',1
  117.     db    '- Help for the help menu.',cr,lf
  118.     db    '         Select the SINGLE character displayed for the',cr,lf
  119.     db    '         topic of your choice.',cr,lf
  120.     db    '         Example: To get help for the MERGE function, ',cr,lf
  121.     db    '         just press M.',0
  122.     call    sak
  123.  
  124. nohlp:    call    clrhlp
  125.     call    gxymsg
  126.     db    19,5
  127.     db    bell,2,'     The selected function is not supported.',1
  128.     db    cr,lf,lf
  129.     db    '         Check the menu above and select the character',cr,lf
  130.     db    '         shown after the / for the selected topic.',0
  131.     call    sak
  132.  
  133. clrhlp:    call    gxymsg
  134.     db    19,1
  135.     db    0
  136.     ld    b,5
  137.  
  138. clhp:    call    ereol
  139.     call    crlf
  140.      djnz    clhp
  141.     ret
  142.  
  143. sak:    call    gxymsg
  144.     db    23,60
  145.     db    '[Strike any key] ',0
  146.     call    capin
  147.     jp    hlpsel
  148.  
  149.