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