home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug104.arc / MENU.LBR / BOOTSCRN.CMD next >
OS/2 REXX Batch file  |  1979-12-31  |  1KB  |  40 lines
  1. * BOOTSCRN.CMD
  2. ERASE
  3. @  4,30 SAY "When the disk stops"
  4. @  6,25 SAY "Mount the disk marked"
  5. @  6,47 SAY id
  6. @  8,35 SAY "in drive A:"
  7. @ 10,3 say " "
  8. RETURN cur:seq
  9.   @ line+1, 0 say 'Enter your choice ->' get cur:seq
  10.   read
  11.   store cur:name+cur:seq to search:key
  12.   find &search:key
  13.   if (   loop
  14.   endif
  15. *
  16.   do case
  17.     case type='M'
  18.       store id to cur:name
  19.       loop
  20.     case tyo clock
  21. call tod
  22. *
  23. *  now we have the time we can extract the date
  24. *
  25. store $(tod,2,8) to date
  26. *
  27. *  now tell the system
  28. *
  29. set date to &date
  30. *  all my files, lord, are on drive b
  31. set default to b
  32. *
  33. ? "Current date set to ",date
  34. do b:menu
  35.  
  36.  
  37.  
  38.  
  39. 8   ;ZERO-PAGE,Y MODE   <LDX, STX>
  40.        ;NONE OF ABOVE, DEFAULT TO ABSOLUTE