home *** CD-ROM | disk | FTP | other *** search
/ ftp.ee.lbl.gov / 2014.05.ftp.ee.lbl.gov.tar / ftp.ee.lbl.gov / mtrek.shar.Z / mtrek.shar / craig.cmd < prev    next >
OS/2 REXX Batch file  |  1990-04-02  |  692b  |  34 lines
  1. .ENABLE SUBSTITUTION
  2. .ENABLE GLOBAL
  3. ;
  4. ; File name: CRAIG.CMD                Update: 10-Dec-80 (CAL)
  5. ;
  6. .SETS ERR " <Error>"
  7. .IFNINS ZIP... .SETS ERR "    "+ERR
  8. .SETS T ""
  9. .IFNINS ZIP... .SETS T " not"
  10. .SETS LINE <DATE>+" "+<TIME>+" Zip..."+T+" installed"
  11. .IF <UIC> <> "[272,20]" SET /UIC=[272,20]
  12. .SETS T ""
  13. @DP0:[2,1]BASE
  14. .SETN ZIPPAR $BASE+264
  15. .;
  16. SET /NOMAIN=RAWBNK
  17. SET /NOMAIN=COMET
  18. SET /NOMAIN=MONSGA
  19. SET /MAIN=LEDFOR:'$BASE':0264:COM
  20. SET /MAIN=ZIPPAR:'ZIPPAR':0525:SYS
  21. INS LB:[1,1]LEDFOR
  22. .IF <EXSTAT> <> 1 .SETS T " not"
  23. .IFINS ZIP... .GOTO 10
  24. INS ZIP
  25. .IF <EXSTAT> <> 1 .SETS T " not"
  26. .10:
  27. .IF T <> " not" .SETS ERR ""
  28. .OPENA [272,0]MTREK.LOG
  29. .DATA 'LINE''ERR'
  30. .CLOSE
  31. ;
  32. ; MTREK is'T' ready to use
  33. ;
  34.