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 / DATABASE / KPHANDYP.LBR / WSTATION.CZD / WSTATION.CMD
OS/2 REXX Batch file  |  2000-06-30  |  2KB  |  87 lines
  1. ***************************************************
  2. * Program WSTATION                                *
  3. * Peter C. Hawxhurst                              *
  4. * 02/11/84 (revised 12/18/84 for KAYPRO II)       *
  5. *                                                 *
  6. * HANDY+ start-up from drive A.                   *
  7. ***************************************************
  8. set talk off
  9. set format to screen
  10. store T to wstation
  11. do while wstation
  12.    store 'N' to continue
  13.    store ' ' to planning
  14.    store ' ' to reminder
  15.    store ' ' to notebook
  16.    store ' ' to actplans
  17.    set default to b
  18.    if type(filecabs)
  19.       do while filecabs
  20.          ?
  21.          ? 'Insert selected disk in drive B and press RETURN...'
  22.          set console off
  23.          wait to return
  24.          set console on
  25.          if file('filecabs.cmd') .and. file('filecabs.dbf')
  26.             use filecabs index filecabs
  27.             @ 20,0
  28.             do filecabs
  29.          else
  30.             erase
  31.             ?
  32.             ? 'Selected disk does not contain file'
  33.             ? 'cabinet and/or file cabinet routine!'
  34.             ?
  35.             ? 'Do you wish to try another disk (Y/N)?'
  36.             set console off
  37.             wait to response
  38.             set console on
  39.             if !(response)#'Y'
  40.                store F to filecabs
  41.             else
  42.                erase
  43.             endif
  44.             reset         
  45.          endif  
  46.       enddo
  47.    endif
  48.    erase
  49.    ?
  50.    ? '|\===========================================/|'
  51.    ? '| HANDY+  Personal Work Station System  v1.0K |'
  52.    ? '|    Copyright (C) 1984 Peter C. Hawxhurst    |'
  53.    ? '|           All rights reserved.              |'
  54.    ? '|_____________________________________________|'
  55.    ?
  56.    store '          ' to day
  57.    @ 20,0 say "Please enter today's date (MM/DD/YY)  ===> ";
  58.    get day picture 'XX/XX/XX'
  59.    read
  60.    set date to &day
  61.    @ 20,0
  62.    do saytoday
  63.    @ 8,0
  64.    ? today
  65.    ?
  66.    ? 'Place system disk in drive B and press RETURN...'
  67.    set console off
  68.    wait to return
  69.    set console on
  70.    if file('workmenu.cmd')
  71.       do workmenu
  72.    else
  73.       erase
  74.       ?
  75.       ? 'Not a work station system disk - do you wish to try again (Y/N)?'
  76.       set console off
  77.       wait to response
  78.       set console on
  79.       if !(response)#'Y'
  80.          store F to wstation
  81.          quit
  82.       endif
  83.    endif
  84. enddo
  85. se
  86.       set console on
  87.