home *** CD-ROM | disk | FTP | other *** search
/ Programmer's ROM - The Computer Language Library / programmersrom.iso / ada / crsref / adaref.com next >
Encoding:
Text File  |  1988-05-03  |  682 b   |  25 lines
  1. $OUT="SYS$OUTPUT"
  2. $WRITE 'OUT' " "
  3. $WRITE 'OUT' "*******************************"
  4. $WRITE 'OUT' "*Ada Cross-reference Program  *"
  5. $write 'out' "*by US Air Force Armament Lab *"
  6. $write 'out' "* AFATL/DLMM Eglin AFB, Fl    *"
  7. $WRITE 'OUT' "*******************************"
  8. $WRITE 'OUT' " "
  9. $IF P1.EQS."" THEN GOTO FRIENDLY
  10. $IFILE=P1
  11. $IF P2.EQS."" THEN GOTO FRIEND2
  12. $OFILE=P2
  13. $GOTO EXEC
  14. $FRIENDLY: 
  15. $INQUIRE IFILE "NAME OF INPUT FILE --> "
  16. $FRIEND2: 
  17. $INQUIRE OFILE "NAME OF OUTPUT FILE --> "
  18. $EXEC: 
  19. $IF OFILE.EQS."" THEN GOTO DEFLT
  20. $DEFINE/USER_MODE SYS$OUTPUT 'OFILE'
  21. $DEFLT: 
  22. $DEFINE/USER_MODE SYS$INPUT 'IFILE'
  23. $RUN ADAREF
  24. $WRITE 'OUT' "PROCEDURE COMPLETE"
  25.