000010 IDENTIFICATION DIVISION.
000015*
000020 PROGRAM-ID.  VERIFY.
000025*            (COBOL VERIFICATION TEST MAIN MENU)
000030*
000035*
000040 ENVIRONMENT DIVISION.
000045*
000050 CONFIGURATION SECTION.
000060 SOURCE-COMPUTER.  RMCOBOL.
000070 OBJECT-COMPUTER.  RMCOBOL.
000075*
000080*
000085*
000090 DATA DIVISION.
000100*
000110 WORKING-STORAGE SECTION.
000120 77  FUNCTION-NUMBER                    PIC 9.
000122 77  RETURN-KEY                         PIC X.
000125*
000130*
000135*
000139/
000140 PROCEDURE DIVISION.
000150 DISPLAY-MAIN-MENU.
000160     DISPLAY " " ERASE.
000170     DISPLAY "      RM/COBOL VERIFICATION TEST MAIN MENU".
000180     DISPLAY " ".
000190     DISPLAY "   1) SCREEN CONFIGURATION TEST".
000200     DISPLAY "   2) FILE SYSTEM TEST".
000210     DISPLAY "   3) NUCLEUS TEST".
000220     DISPLAY "   4) PRINTER TEST".
000230     DISPLAY "   5) EXIT PROGRAM".
000240     DISPLAY " ".
000250     DISPLAY "      ENTER DESIRED TEST NUMBER       ".
000260 ACCEPT-MAIN-MENU.
000270     ACCEPT FUNCTION-NUMBER LINE 10 POSITION 37 TAB.
000280     GO TO NUMBER-1, NUMBER-2, NUMBER-3, NUMBER-4,
000290         PROGRAM-END DEPENDING ON FUNCTION-NUMBER.
000295     DISPLAY "  " LINE 10 POSITION 37.
000300     GO TO ACCEPT-MAIN-MENU.
000304/
000305*
000310*
000315*
000320 NUMBER-1.
000330     CALL "VDTTST".
000340     GO TO DISPLAY-MAIN-MENU.
000345*
000350*
000355*
000360 NUMBER-2.
000370     CALL "FILTST".
000380     GO TO DISPLAY-MAIN-MENU.
000385*
000390*
000395*
000400 NUMBER-3.
000410     CALL "NUCTST".
000423     GO TO DISPLAY-MAIN-MENU-LOOP.
000425*
000430*
000435*
000440 NUMBER-4.
000450     CALL "PRNTST".
000460     GO TO DISPLAY-MAIN-MENU-LOOP.
000465*
000470*
000475*
       DISPLAY-MAIN-MENU-LOOP.
           DISPLAY "HIT ANY KEY TO RETURN TO MENU"
               LINE 22 POSITION 40.
           ACCEPT RETURN-KEY POSITION 0.
           GO TO DISPLAY-MAIN-MENU.
      *
      *
      *
000480 PROGRAM-END.
000490 STOP-PARA.
000500     STOP RUN.
000510 END PROGRAM.
