         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
          FCONTROL,FCHECK,TERMINATE,FFILEINFO;                 <<A1312>>02520000
      RECSIZE ,                                                <<L1312>>11131000
   OLDFILE := FOPEN (ASSOCFILE,%2001,%100);                    <<A1312>>11340000
   IF  = THEN                                                  <<L1312>>11340100
       BEGIN                                                   <<L1312>>11340200
       FFILEINFO (OLDFILE,4,RECSIZE);                          <<L1312>>11340300
       IF <> THEN                                              <<L1312>>11340400
          ERROR'ON'OLD                                         <<L1312>>11340500
       ELSE IF RECSIZE <> 13 THEN                              <<L1312>>11340600
            BEGIN                                              <<L1312>>11340700
            FCLOSE (OLDFILE,0,0) ;                             <<L1312>>11340900
            RETURN;                                            <<L1312>>11341000
            END; << OF ELSE IF >>                              <<L1312>>11341010
       END ;<<OF IF = , SUCCESSFUL FOPEN OF ASSOFILE>>         <<L1312>>11341100
                     MOVE DVRNAME := "HIOASLP2"                         13310000
                ELSE                                           <<L1312>>13311000
                   BEGIN                                       <<L1312>>13311100
                   MOVE DVRNAME := OLDTABLE(INDEX+2),(4);      <<L1312>>13312000
          <<IF DRIVER IS HIOTERM0, BUT NOT TYPE 16 OR 32>>     <<L1312>>13313000
          <<RETAIN THE OLD DRIVER NAME FOR THE DEVICE   >>     <<L1312>>13314000
                   MOVE BLINE := ("*WARNING --A NON-ADCC  ",   <<L1312>>13315000
             "DEVICE HAS DRIVER NAME CONFIGURED AS HIOTERM0 ");<<L1312>>13316000
                   PRINTLINE;                                  <<L1312>>13317000
                   PRINTLINE;                                  <<L1312>>13318000
                   MOVE BLINE := ("*WARNING -- THIS DEVICE ",  <<L1312>>13319000
                   "MUST BE RECONFIGURED DURING THE UPDATE");  <<L1312>>13319100
                   PRINTLINE;                                  <<L1312>>13319200
                   PRINTLINE;                                  <<L1312>>13319300
                   END;                                        <<L1312>>13319400
    MOVE BLINE:="            MPE V.  Contact your SE  ";                23770000
ELSE IF SIZE = 21 THEN                                         <<L1312>>23850000
    BEGIN                                                      <<L1312>>23850100
    CPU := THISCPU ;                                           <<L1312>>23850200
    IF CPU = 6 OR CPU = 7 OR CPU = 8 THEN                      <<L2090>>23850300
    << CHECK IF SERIES 37, OR TIOGA OR SERIES 35 THEN NOT >>   <<L2090>>23850310
    << ALLOWING THE BACKWARD CONVERSION : MPEV TO MPEVI   >>   <<L2090>>23850320
        BEGIN                                                  <<L1312>>23850400
        MOVE BLINE := (" THIS SYSTEM IS INCOMPATIBLE ",        <<L1312>>23850500
        "WITH PRE-MPEV OPERATING SYSTEMS." );                  <<L1312>>23850510
        PRINTLINE;                                             <<L1312>>23850600
$EDIT VOID=23850700                                                     23850700
        PRINTLINE ;                                            <<L1312>>23850800
        MOVE BLINE := " UNABLE TO CONVERT BACKWARD " ;         <<L1312>>23850900
        PRINTLINE ;                                            <<L1312>>23851000
        PRINTLINE ;                                            <<L1312>>23851010
        GET'SYSTEM'TYPE := -1 ;                                <<L1312>>23851100
        END  <<OF IF CPU = 6>>                                 <<L1312>>23851200
     ELSE                                                      <<L1312>>23851300
          GET'SYSTEM'TYPE := 2 ;                               <<L1312>>23860000
     END  << OF IF SIZE = 21 >>                                <<L1312>>23861000
      IF SYSTEM'TYPE >= 0 THEN                                 <<L1312>>34411000
      SYSTEM'TYPE:= GET'SYSTEM'TYPE;                           <<L1312>>34590000
      IF SYSTEM'TYPE = 0 OR SYSTEM'TYPE = 1 THEN               <<L1312>>34591000
          CONVERTING                                                    34600000
      ELSE IF SYSTEM'TYPE = 2 THEN                             <<L1312>>34601000
          BEGIN                                                <<L1312>>34602000
          MOVE BLINE := (" *WARNING -- THIS IS AN MPEV ",      <<L1312>>34603000
          "OPERATING SYSTEM. ");                               <<L1312>>34604000
          PRINTLINE;                                           <<L1312>>34605000
          PRINTLINE;                                           <<L1312>>34606000
          MOVE BLINE := (" *WARNING -- DOES NOT REQUIRE A ",   <<L1312>>34607000
          "FORWARD CONVERSION. ");                             <<L1312>>34608000
          PRINTLINE;                                           <<L1312>>34608100
          END                                                  <<L1312>>34609000
      ELSE  <<SYSTEM'TYPE <0 >>                                <<L1312>>34609100
          BEGIN                                                         34609200
          MOVE BLINE := " THIS CONVERSION IS TERMINATED ";     <<L1312>>34609300
          PRINTLINE;                                           <<L1312>>34609400
          END;                                                 <<L1312>>34609500
      SYSTEM'TYPE:=GET'SYSTEM'TYPE ;                           <<L1312>>34650000
      IF SYSTEM'TYPE = 2 THEN                                  <<L1312>>34650100
         CONVERTING                                            <<L1312>>34650200
      ELSE IF SYSTEM'TYPE = 0 OR SYSTEM'TYPE =1 THEN                    34650210
          BEGIN                                                         34650220
          MOVE BLINE := (" *WARNING -- THIS IS AN MPE IV  ",   <<L1312>>34650230
          "OPERATING SYSTEM." );                               <<L1312>>34650240
         PRINTLINE;                                            <<L1312>>34650241
         PRINTLINE;                                            <<L1312>>34650242
          MOVE BLINE := (" *WARNING -- DOES NOT REQUIRE A ",   <<L1312>>34650250
          "BACKWARD CONVERSION. " );                           <<L1312>>34650260
          PRINTLINE;                                           <<L1312>>34650261
          END                                                  <<L1312>>34650270
      ELSE                                                     <<L1312>>34650300
         BEGIN                                                 <<L1312>>34650400
         MOVE BLINE := " THIS CONVERSION IS TERMINATED " ;     <<L1312>>34650500
         PRINTLINE;                                            <<L1312>>34650600
         TERMINATE;                                            <<L1312>>34650700
         END                                                   <<L1312>>34650800
$EDIT VOID=34660000                                            <<L1312>>34660000
