;
;
	; SCHEDULE GENERATION COMMAND FILE
;
;
.ENABLE GLOBAL
.ENABLE SUBSTITUTION
.IFINS F4P .OR .IFINS FOR .GOTO 20
.ASKS FTN WHICH FORTRAN COMPILER DO YOU HAVE [F4P OR FOR]
.ASK UIC IS THE SYSTEM UIC 1,54
.IFT UIC .SETS UICS "[1,54]"
.IFF UIC .ASKS UICS WHAT IS THE SYSTEM UIC
INS LB:'UICS''FTN'/INC=15000.
.20: .IFNDF UICS .SETS UICS "[1,54]"
.IFINS F4P .SETS FTN "F4P"
.IFINS FOR .SETS FTN "FOR"
'FTN' SKED,SKED/-SP=SKED.FTN
;
.IFNINS CRF... INS LB:'UICS'CRF
;
.OPEN SKEDTKB.CMD
.ENABLE DATA
SKED,SKED/CR/-SP=SKED
//
.DISABLE DATA
.CLOSE SKEDTKB.CMD
;
TKB @SKEDTKB.CMD
;
PIP SKEDTKB.CMD;*/DE