.'$'0 SIMT0001 END PROGRAM. SIMT0002 C END OF SIMCMP TEST. THIS LINE CONTAINS TYPE 0 ELEMENTS ONLY$ SIMT0003 RETURN$ SIMT0004 END$ SIMT0005 $ SIMT0006 TYPE 2 '. SIMT0007 TESTC='10$ SIMT0008 $ SIMT0010 TEST PARAMETER 0. SIMT0011 PRINT '00, GEN1$ SIMT0012 PRINT '01, GEN2$ SIMT0013 PRINT '02, GEN3$ SIMT0014 PRINT '03, GEN4$ SIMT0015 PRINT '04, GEN5$ SIMT0016 PRINT '05, GEN6$ SIMT0017 PRINT '06, GEN7$ SIMT0018 PRINT '07, GEN8$ SIMT0019 PRINT '08, GEN9$ SIMT0020 PRINT '09, GEN10$ SIMT0021 '00 FORMAT(6H GEN1=,F6.4)$ SIMT0022 '01 FORMAT(6H GEN2=,F6.4)$ SIMT0023 '02 FORMAT(6H GEN3=,F6.4)$ SIMT0024 '03 FORMAT(6H GEN4=,F6.4)$ SIMT0025 '04 FORMAT(6H GEN5=,F6.4)$ SIMT0026 '05 FORMAT(6H GEN6=,F6.4)$ SIMT0027 '06 FORMAT(6H GEN7=,F6.4)$ SIMT0028 '07 FORMAT(6H GEN8=,F6.4)$ SIMT0029 '08 FORMAT(6H GEN9=,F6.4)$ SIMT0030 '09 FORMAT(7H GEN10=,F6.4)$ SIMT0031 $ SIMT0032 NULL MACRO. SIMT0033 $ SIMT0034 NINE PARAMETERS '''''''''. SIMT0035 NINE='10+'20+'30+'40+'50+'60+'70+'80+'90$ SIMT0036 $ SIMT0037 CODE BODY LINE WITH NO TERMINATOR. SIMT0038 C THIS CODE BODY LINE HAS NO TERMINATOR. IT SHOULD HAVE 80 CHARACTERS.SIMT0039 $$ SIMT0040 SUBROUTINE PROGR SIMT0041 C THIS TEST DATA CHECKS OUT THE WORKINGS OF SIMCMP. THE FIRST THREE SIMT0042 C LINES WILL NOT BE MATCHED, AND SHOULD BE OUTPUT IN THEIR ENTIRETY. SIMT0043 TEST PARAMETER 0. SIMT0044 NULL MACRO. SIMT0045 NINE PARAMETERS 123456789. SIMT0046 TYPE 2 A. SIMT0047 CODE BODY LINE WITH NO TERMINATOR. SIMT0048 TYPE 2 0. SIMT0049 TEST PARAMETER 0. SIMT0050 END PROGRAM. SIMT0051