// JOB VSB006
// OPR ****--BEGIN--TO--ASSEMBLE--FUNDEF--VSFOR2--****
// DVC 20 // LFD PRNTR
// WORK1
// WORK2
// OPTION JOBDUMP
// EXEC ASM
/$
FUND     START
         FUNTAB
         UNIT  FDEVICE=SPOOLIN,                                        X
               FUNIT=2
         UNIT  FDEVICE=PRINTER,                                        X
               FUNIT=03
         UNIT  FDEVICE=DISC,                                           X
               FUNIT=105,                                              X
               FRECSIZE=360,                                           X
               FTYPEFLE=OUTPUT
         FUNEND
         END
/*
// OPR ****--BEGIN--TO--COMPILE--VSFOR2--****
// WORK1
// DVC 20 // LFD PRNTR
// EXEC FORT
// PARAM LST=15
/$
      PROGRAM VSFOR2
C        PROGRAM       - LOADS FLIGHT DECKS INTO FILE 105.
      IMPLICIT REAL*8 (A-H,O-Z)
      DEFINE FILE 105 (10,90 ,U,NEXT)
      DIMENSION  NAME(19)
      DIMENSION  FID(18),ASYM(3),RAD(7)
      IIN=2
      IOUT=3
      NFD=0
   10 READ    (IIN,1001,END=50) NCAM,NAME,NC
 1001 FORMAT  (I3,19A4,I1)
      IF (NCAM) 11,50,11
   11 IF ((NCAM-1)*(10-NCAM)) 90,20,20
   20 READ    (IIN,1002) CFL,FID,ASYM,RAD
 1002 FORMAT  (G10.6/9G8.6/9G8.6/3G10.8/7G11.6)
      WRITE   (105'NCAM) NCAM,NAME,NC,CFL,FID,ASYM,RAD
      WRITE   (IOUT,1004) NCAM,NAME,NC,CFL,FID,ASYM,RAD
 1004 FORMAT  (I4,2X,19A4,2X,I1/F12.6/9F10.6/9F11.6/3F12.8/7F14.6/)
      NFD=NFD+1
      GO TO 10
   50 WRITE   (IOUT,1005)NFD
 1005 FORMAT  (I6,32H NEW FLIGHT DECKS LOADED ON DISK)
      CALL EXIT
   90 WRITE   (IOUT,1006) NCAM
 1006 FORMAT  (I6,25H NOT LOADED, MUST BE 1-10/)
      GO TO 10
      END
/*
// OPR ****--BEGIN--TO--LINK--AND--LOAD--VSFOR2--****
// WORK1
// DVC 50 // VOL SDIVSB // LBL VSBLIB // LFD LOAD
// EXEC LNKEDT
// PARAM OUT=LOAD
/$
 LOADM VSFOR2
/*
// DVC 20   // LFD FORT03
// DVC 50 // VOL SDIVSB
// LBL BASICFORTRANDAM  // LFD FORT105
// DVC 50 // VOL SDIVSB // LBL VSBLIB // LFD LOAD
// OPR ****--BEGIN--TO--EXECUTE--VSFOR2--****
// EXEC VSFOR2,LOAD
/$
005AAAABBBBCCCCDDDDEEEEFFFFGGGGHHHHIIIIJJJJKKKKLLLLMMMMNNNNOOOOPPPPQQQQRRRRSSSS0
11111111.1
123456.812345.781234.678123.567812.456781.345678.2345678999999.9888888.8
123456.812345.781234.678123.567812.456781.345678.2345678999999.9888888.8
11111111.12222222.22333333.333
111111111.122222222.223333333.333444444.444455555.555556666.666666777.7777777
005AAAABBBBCCCCDDDDEEEEFFFFGGGGHHHHIIIIJJJJKKKKLLLLMMMMNNNNOOOOPPPPQQQQRRRRSSSS1
1111111.11
123456.812345.781234.678123.567812.456781.345678.2345678999999.9888888.8
123456.812345.781234.678123.567812.456781.345678.2345678999999.9888888.8
44444.44445555.55555666.666666
111111111.122222222.223333333.333444444.444455555.555556666.666666777.7777777
006AAAABBBBCCCCDDDDEEEEFFFFGGGGHHHHIIIIJJJJKKKKLLLLMMMMNNNNOOOOPPPPQQQQRRRRSSSS1
111111.111
123456.812345.781234.678123.567812.456781.345678.2345678999999.9888888.8
123456.812345.781234.678123.567812.456781.345678.2345678999999.9888888.8
77.77777778.88888888.999999999
111111111.122222222.223333333.333444444.444455555.555556666.666666777.7777777
004AAAABBBBCCCCDDDDEEEEFFFFGGGGHHHHIIIIJJJJKKKKLLLLMMMMNNNNOOOOPPPPQQQQRRRRSSSS3
11111.1111
123456.812345.781234.678123.567812.456781.345678.2345678999999.9888888.8
123456.812345.781234.678123.567812.456781.345678.2345678999999.9888888.8
99999999.98888888.88777777.777
111111111.122222222.223333333.333444444.444455555.555556666.666666777.7777777
/*
/&
