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 / MBUG / MBUG061.ARC / GETBASE.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  1KB  |  46 lines
  1. ****** GETBASE.CMD *****
  2. ERASE
  3. RELEASE CkChoice
  4. SET INTENSITY ON
  5. @  8,15 SAY [*****************************************]
  6. @  9,15 SAY [*                                       *]
  7. @ 10,15 SAY [*****************************************]
  8. SET INTENSITY OFF
  9. @  9,17 SAY [CHECK DATA BASE LAST IN USE:]
  10. SET INTENSITY ON
  11. @  9,46 SAY !('&UseBase')
  12. @ 12,15 SAY [*                                       *]
  13. @ 13,15 SAY [*                                       *]
  14. @ 14,15 SAY [*                                       *]
  15. @ 15,15 SAY [*                                       *]
  16. STORE '        ' TO GetBase
  17. @ 14,45 GET GetBase
  18. SET INTENSITY OFF
  19. @ 13,18 SAY [ENTER DATA BASE TO USE, OR <RETURN>]
  20. @ 14,18 SAY [TO USE THE ABOVE:]
  21. READ
  22. DO WHILE .NOT. FILE('&GetBase')
  23.   IF GetBase = '        '
  24.     RELEASE GetBase
  25.     ERASE
  26.     USE &UseBase
  27.     DO &CmChoice
  28.     RETURN
  29.   ELSE
  30.     STORE 1 TO N
  31.     DO WHILE N < 10
  32.       STORE N+1 TO N
  33.     ENDDO
  34.     SET INTENSITY ON 
  35.     @ 17,17 SAY [THAT FILE DOES NOT EXIST.  TRY AGAIN.]
  36.     @ 14,45 GET GetBase
  37.     READ
  38.     @ 17,0
  39.   ENDIF
  40. ENDDO
  41. STORE !('&GetBase') TO UseBase
  42. RELEASE GetBase
  43. ERASE
  44. USE &UseBase
  45. DO &CmChoice
  46. RETURN