$! ---diagram9.vax--- $! $! VAX VMS procedure procedure to diagram $! free format FORTRAN language source code programs. $ $! Caution: This has not been tested since making changes, as I do not $! have a VAX available. $! $! Usage: $! diagram9.vax filename(s) $! to append diagram of the file(s) to diagram.out $! $! Note--This does not delete diagram.out before appending to it. $! I assume that the executable and this procedure are in your search path. $! $! Written by Mitchell R Grunes. $! for his own and other's use, written in his own time $! $! Utilities for this and other languages and plastforms are documented at $! http://mgrunes.com/diagram/index.html $ $ $ if P1 .EQS. "" $ then $ define/user sys$input sys$command $ run diagramf $ goto quit $ endif $ $! Must pre-create diagram.out if does not exist $ open/append/error=noSkip diagram.out diagram.out $ goto Skip $noSkip: $ open/write diagram.out diagram.out $Skip: $ close diagram.out $ $! Must pre-create diagram2.sc with same file attributes $ open/write diagram2.sc diagram2.sc $ close diagram2.sc $ $ write sys$output "========================-- "+P1+" --========================" $ !Prompt answers: input from P1, output to diagram2.sc (for now), $ ! place numbers in column 73, embed include files, use free $ ! format, warn if total line goes past 132, don't use IBM PC graphics. $ $ open/write diagram.sc diagram.sc $ write diagram.sc "$Run diagramf" $ write diagram.sc P1 $ write diagram.sc "diagram2.sc" $ write diagram.sc "133" $ write diagram.sc "1" $ write diagram.sc "1" $ write diagram.sc "132" $ write diagram.sc "0" $ close diagram.sc $ $ @diagram.sc $ $ append diagram2.sc diagram.out $ delete diagram.sc;* $ delete diagram2.sc;* $ $ if (P2 .NES. "") then @diagram9.vax 'P2' 'P3' 'P4' 'P5' 'P6' 'P7' 'P8' $ $quit: