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 / cal.cmd < prev    next >
OS/2 REXX Batch file  |  1990-04-02  |  620b  |  28 lines
  1. .ENABLE SUBSTITUTION
  2. .ENABLE GLOBAL
  3. ;
  4. ; File name: CRAIG.CMD                Update:  9-Jan-81 (CAL)
  5. ;
  6. .;.IF <UIC> <> "[272,21]" SET /UIC=[272,21]
  7. .SETS T ""
  8. @DP0:[2,1]BASE
  9. .SETN ZIPPAR $BASE+264
  10. .;
  11. SET /NOMAIN=RAWBNK
  12. SET /NOMAIN=COMET
  13. SET /NOMAIN=MONSGA
  14. SET /MAIN=LEDFOR:'$BASE':0264:COM
  15. SET /MAIN=ZIPPAR:'ZIPPAR':0525:SYS
  16. INS LB:[1,1]LEDFOR
  17. .IF <EXSTAT> <> 1 .SETS T " not"
  18. .IFINS ZIP... .GOTO 20
  19. INS DP0:[272,20]ZIP
  20. .IF <EXSTAT> <> 1 .SETS T " not"
  21. .;.IFNINS ...TEE INS $TEC/PAR=ZIPPAR/TASK=...TEE
  22. .IFNINS ...ADD INS $ADM/PAR=ZIPPAR/TASK=...ADD
  23. .IFNINS ...AAN INS $ANN/PAR=ZIPPAR/TASK=...AAN
  24. .20:
  25. ;
  26. ; MTREK is'T' ready to use
  27. ;
  28.