0010 REM THIS IS A MENU PROGRAM
     0     -83  JMP     *
     3     -83  JMP     *
     6     -31  ABORT   
     7     -83  JMP     *
0020 DATA 4
    10     -73  STMTX   
    11     -38  DATA    *
Add patch:       8       6   40000
    14      17  LDBL    4  
    16     -83  JMP     *
Add patch:      12       7   40000
0040 DATA "BLM FILE INPUT MENU"
    19     -73  STMTX   
    20     -38  DATA    *
Add patch:      17       6   40000
    23    -128  LDCA    19 
    44     -83  JMP     *
Add patch:      21      26   40000
0101 DATA "LOCATION MASTER FILE                    ","LOCATEADD    ","                                        "
    47     -73  STMTX   
    48     -38  DATA    *
Add patch:      45       6   40000
    51    -128  LDCA    40 
    93    -128  LDCA    13 
   108    -128  LDCA    40 
   150     -83  JMP     *
Add patch:      49     104   40000
0102 DATA "ITEM LOCATION FILE                      ","FIBLOCADD    ","                                        "
   153     -73  STMTX   
   154     -38  DATA    *
Add patch:     151       6   40000
   157    -128  LDCA    40 
   199    -128  LDCA    13 
   214    -128  LDCA    40 
   256     -83  JMP     *
Add patch:     155     104   40000
0103 DATA "CUSTOMER MASTER FILE                    ","CUSTADD      ","                                        "
   259     -73  STMTX   
   260     -38  DATA    *
Add patch:     257       6   40000
   263    -128  LDCA    40 
   305    -128  LDCA    13 
   320    -128  LDCA    40 
   362     -83  JMP     *
Add patch:     261     104   40000
0104 DATA "END                                     ","END          ","                                        "
   365     -73  STMTX   
   366     -38  DATA    *
Add patch:     363       6   40000
   369    -128  LDCA    40 
   411    -128  LDCA    13 
   426    -128  LDCA    40 
   468     -83  JMP     *
Add patch:     367     104   40000
0200 REM
0280 ON IKEY THEN GOTO 0300
   471     -73  STMTX   
   472     544  ONINT   *
   476     -83  JMP     *
Add patch:     477     300       1
Add patch:     474       5   40000
0285 ON ERR THEN GOTO 2000
   479     -73  STMTX   
   480     543  ONERR   *
   484     -83  JMP     *
Add patch:     485    2000       1
Add patch:     482       5   40000
0300 REM THIS SECTION OF CODE INITIALIZES VALUES
0305 RESTORE 
   487     -73  STMTX   
   488     550  RESTOR  -483  
0310 REM MAXIMUM # OF PROMPTS IS 16
0315 LET MPRMPT=16
   492     -73  STMTX   
   493     -96  LDAV    106   
   496      17  LDBL    16 
   498      44  STIL    
0320 REM WIDTH OF SCREEN IS ASSUMED 72 FOR CENTERING HEADING
0325 LET WIDMAX=72
   499     -73  STMTX   
   500     -96  LDAV    110   
   503      17  LDBL    72 
   505      44  STIL    
0330 REM LENGTH OF EACH PROMPT IS 40
0335 LET LPRMPT=40
   506     -73  STMTX   
   507     -96  LDAV    114   
   510      17  LDBL    40 
   512      44  STIL    
0340 REM LENGTH OF EACH SWAP FILE IS 13
0345 LET LSWP=13
   513     -73  STMTX   
   514     -96  LDAV    118   
   517      17  LDBL    13 
   519      44  STIL    
0350 REM LENGTH OF INFORMATION PASSED TO COMMON IS 40
0355 LET LCM=40
   520     -73  STMTX   
   521     -96  LDAV    122   
   524      17  LDBL    40 
   526      44  STIL    
0380 DIM HEAD$[WIDMAX],PRMPT$[MPRMPT*LPRMPT],SWP$[MPRMPT*LSWP],CM$[MPRMPT*LCM]
   527     -73  STMTX   
   528      23  LDVL    110   
   531     -70  FXLJ    
   532     523  DIMA    126   
   536      23  LDVL    106   
   539      23  LDVL    114   
   542      56  MULL    
   543     -70  FXLJ    
   544     523  DIMA    136   
   548      23  LDVL    106   
   551      23  LDVL    118   
   554      56  MULL    
   555     -70  FXLJ    
   556     523  DIMA    146   
   560      23  LDVL    106   
   563      23  LDVL    122   
   566      56  MULL    
   567     -70  FXLJ    
   568     523  DIMA    156   
0385 DIM CORR$[2*MPRMPT],WHICH$[LSWP],D$[MAX(LPRMPT,LCM)],X$[512]
   572     -73  STMTX   
   573      16  LDBJ    2  
   575      23  LDVL    106   
   578     -66  CVLJ    
   579      56  MULL    
   580     -70  FXLJ    
   581     523  DIMA    166   
   585      23  LDVL    118   
   588     -70  FXLJ    
   589     523  DIMA    176   
   593      23  LDVL    114   
   596      23  LDVL    122   
   599     262  MAXL    
   601     -70  FXLJ    
   602     523  DIMA    186   
   606      19  LDCJ    512   
   609     523  DIMA    196   
0400 REM THIS SECTION READS INTO ELE,HEAD$,PRMPT$,SWP$
0405 READ ELE,HEAD$
   613     -73  STMTX   
   614      16  LDBJ    16 
   616     -42  RDSET   
   617     -96  LDAV    206   
   620      90  RDL     
   621    -127  LDDA    126   
   624      88  RDA     
   625     -41  RDEND   
0410 FOR I=1 TO ELE
   626     -73  STMTX   
   627     -96  LDAV    210   
   630      14  LD1L    
   631      23  LDVL    206   
   634      14  LD1L    
   635      71  FORL    *
0412   READ D$
   638     -73  STMTX   
   639      16  LDBJ    16 
   641     -42  RDSET   
   642    -127  LDDA    186   
   645      88  RDA     
   646     -41  RDEND   
0415   LET PRMPT$[(I-1)*LPRMPT+1,I*LPRMPT]=D$,FILL$(32)
   647     -73  STMTX   
   648      23  LDVL    210   
   651      14  LD1L    
   652      53  SUBL    
   653      23  LDVL    114   
   656      56  MULL    
   657      14  LD1L    
   658      50  ADDL    
   659     -70  FXLJ    
   660      23  LDVL    210   
   663      23  LDVL    114   
   666      56  MULL    
   667     -70  FXLJ    
   668    -126  SBDA    136   
   671    -127  LDDA    186   
   674    -125  MOVS    
   675      16  LDBJ    32 
   677      19  LDCJ    32767 
   680     390  FILL    
   682    -124  UPCL    
0432   READ D$
   683     -73  STMTX   
   684      16  LDBJ    16 
   686     -42  RDSET   
   687    -127  LDDA    186   
   690      88  RDA     
   691     -41  RDEND   
0435   LET SWP$[(I-1)*LSWP+1,I*LSWP]=D$,FILL$(32)
   692     -73  STMTX   
   693      23  LDVL    210   
   696      14  LD1L    
   697      53  SUBL    
   698      23  LDVL    118   
   701      56  MULL    
   702      14  LD1L    
   703      50  ADDL    
   704     -70  FXLJ    
   705      23  LDVL    210   
   708      23  LDVL    118   
   711      56  MULL    
   712     -70  FXLJ    
   713    -126  SBDA    146   
   716    -127  LDDA    186   
   719    -125  MOVS    
   720      16  LDBJ    32 
   722      19  LDCJ    32767 
   725     390  FILL    
   727    -124  UPCL    
0437   READ D$
   728     -73  STMTX   
   729      16  LDBJ    16 
   731     -42  RDSET   
   732    -127  LDDA    186   
   735      88  RDA     
   736     -41  RDEND   
0442   LET CM$[(I-1)*LCM+1,I*LCM]=D$,FILL$(32)
   737     -73  STMTX   
   738      23  LDVL    210   
   741      14  LD1L    
   742      53  SUBL    
   743      23  LDVL    122   
   746      56  MULL    
   747      14  LD1L    
   748      50  ADDL    
   749     -70  FXLJ    
   750      23  LDVL    210   
   753      23  LDVL    122   
   756      56  MULL    
   757     -70  FXLJ    
   758    -126  SBDA    156   
   761    -127  LDDA    186   
   764    -125  MOVS    
   765      16  LDBJ    32 
   767      19  LDCJ    32767 
   770     390  FILL    
   772    -124  UPCL    
0445 NEXT I
   773     -73  STMTX   
   774     -96  LDAV    210   
   777      74  NXTL    
Add patch:     636     142   40000
0450 REM THIS SECTION DISPLAYS THE MENU
0451 CLOSE 
   778     -73  STMTX   
   779      16  LDBJ    16 
   781     518  CLOSE   
0452 STMA 8,0
   783     -73  STMTX   
   784      10  LD0J    
   785     775  STMA8   
0455 PRINT @(-30);
   787     -73  STMTX   
   788      16  LDBJ    16 
   790     -58  PRSET   
   791      16  LDBJ    30 
   793      61  NEGJ    
   794      10  LD0J    
   795     -55  PRCTL   
   796     -53  PREND   
0460 REM CENTER HEADING ON SCREEN
0470 PRINT @(2,(WIDMAX-LEN(HEAD$)+1)/2);HEAD$
   797     -73  STMTX   
   798      16  LDBJ    16 
   800     -58  PRSET   
   801      16  LDBJ    2  
   803      23  LDVL    110   
   806    -127  LDDA    126   
   809     298  LENJ    
   811     -72  FXJL    
   812      53  SUBL    
   813      14  LD1L    
   814      50  ADDL    
   815      17  LDBL    2  
   817      59  DIVL    
   818     -70  FXLJ    
   819     -55  PRCTL   
   820    -127  LDDA    126   
   823      76  PRA     
   824     -54  PRCR    
0480 LET YPOS=4
   825     -73  STMTX   
   826     -96  LDAV    214   
   829      17  LDBL    4  
   831      44  STIL    
0490 LET COUNT=0
   832     -73  STMTX   
   833     -96  LDAV    218   
   836      11  LD0L    
   837      44  STIL    
0495 LET PROG=0
   838     -73  STMTX   
   839     -96  LDAV    222   
   842      11  LD0L    
   843      44  STIL    
0497 REM OUTPUT PROMPTS FOR PROGRAM SELECTION
0500 LET COUNT=COUNT+1
   844     -73  STMTX   
   845     -96  LDAV    218   
   848      23  LDVL    218   
   851      14  LD1L    
   852      50  ADDL    
   853      44  STIL    
0505 LET IND1=0
   854     -73  STMTX   
   855     -96  LDAV    226   
   858      11  LD0L    
   859      44  STIL    
0510 IF SWP$[(COUNT-1)*LSWP+1,COUNT*LSWP]="             " THEN LET IND1=1
   860     -73  STMTX   
   861      23  LDVL    218   
   864      14  LD1L    
   865      53  SUBL    
   866      23  LDVL    118   
   869      56  MULL    
   870      14  LD1L    
   871      50  ADDL    
   872     -70  FXLJ    
   873      23  LDVL    218   
   876      23  LDVL    118   
   879      56  MULL    
   880     -70  FXLJ    
   881    -126  SBDA    146   
   884    -128  LDCA    13 
   899    -123  CMPA    
   900     -87  EQZJ    
   901     -82  JMPF    *
   904     -96  LDAV    226   
   907      14  LD1L    
   908      44  STIL    
Add patch:     902       7   40000
0513 IF IND1=1 THEN GOTO 0540
   909     -73  STMTX   
   910      23  LDVL    226   
   913      14  LD1L    
   914      65  CMPL    
   915     -87  EQZJ    
   916     -81  JMPT    *
Add patch:     917     540       1
0515 LET PROG=PROG+1
   919     -73  STMTX   
   920     -96  LDAV    222   
   923      23  LDVL    222   
   926      14  LD1L    
   927      50  ADDL    
   928      44  STIL    
0520 LET CORR$[(PROG-1)*2+1,PROG*2]=CHR$(COUNT,2)
   929     -73  STMTX   
   930      23  LDVL    222   
   933      14  LD1L    
   934      53  SUBL    
   935      17  LDBL    2  
   937      56  MULL    
   938      14  LD1L    
   939      50  ADDL    
   940     -70  FXLJ    
   941      23  LDVL    222   
   944      17  LDBL    2  
   946      56  MULL    
   947     -70  FXLJ    
   948    -126  SBDA    166   
   951      23  LDVL    218   
   954      16  LDBJ    2  
   956     387  CHRL    
   958    -124  UPCL    
0530 PRINT @(YPOS,10);
   959     -73  STMTX   
   960      16  LDBJ    16 
   962     -58  PRSET   
   963      23  LDVL    214   
   966     -70  FXLJ    
   967      16  LDBJ    10 
   969     -55  PRCTL   
   970     -53  PREND   
0535 PRINT USING "('XX.',L7X,T0,D3.0,Z)",PROG
   971     -73  STMTX   
   972      16  LDBJ    16 
   974    -128  LDCA    21 
   997     -52  PRUSET  
   998      23  LDVL    222   
  1001      82  PRUL    
  1002     -51  PRUEND  
0540 PRINT @(YPOS,15);
  1003     -73  STMTX   
  1004      16  LDBJ    16 
  1006     -58  PRSET   
  1007      23  LDVL    214   
  1010     -70  FXLJ    
  1011      16  LDBJ    15 
  1013     -55  PRCTL   
  1014     -53  PREND   
0550 PRINT PRMPT$[(COUNT-1)*LPRMPT+1,COUNT*LPRMPT];
  1015     -73  STMTX   
  1016      16  LDBJ    16 
  1018     -58  PRSET   
  1019      23  LDVL    218   
  1022      14  LD1L    
  1023      53  SUBL    
  1024      23  LDVL    114   
  1027      56  MULL    
  1028      14  LD1L    
  1029      50  ADDL    
  1030     -70  FXLJ    
  1031      23  LDVL    218   
  1034      23  LDVL    114   
  1037      56  MULL    
  1038     -70  FXLJ    
  1039    -126  SBDA    136   
  1042      76  PRA     
  1043     -53  PREND   
0551 IF IND1=1 THEN GOTO 0555
  1044     -73  STMTX   
  1045      23  LDVL    226   
  1048      14  LD1L    
  1049      65  CMPL    
  1050     -87  EQZJ    
  1051     -81  JMPT    *
Add patch:    1052     555       1
0553 PRINT @(YPOS,57);
  1054     -73  STMTX   
  1055      16  LDBJ    16 
  1057     -58  PRSET   
  1058      23  LDVL    214   
  1061     -70  FXLJ    
  1062      16  LDBJ    57 
  1064     -55  PRCTL   
  1065     -53  PREND   
0554 PRINT USING "('(',A13,')'),Z",SWP$[(COUNT-1)*LSWP+1,COUNT*LSWP]
  1066     -73  STMTX   
  1067      16  LDBJ    16 
  1069    -128  LDCA    15 
  1086     -52  PRUSET  
  1087      23  LDVL    218   
  1090      14  LD1L    
  1091      53  SUBL    
  1092      23  LDVL    118   
  1095      56  MULL    
  1096      14  LD1L    
  1097      50  ADDL    
  1098     -70  FXLJ    
  1099      23  LDVL    218   
  1102      23  LDVL    118   
  1105      56  MULL    
  1106     -70  FXLJ    
  1107    -126  SBDA    146   
  1110      80  PRUA    
  1111     -51  PRUEND  
0555 PRINT 
  1112     -73  STMTX   
  1113      16  LDBJ    16 
  1115     -58  PRSET   
  1116     -54  PRCR    
0556 IF COUNT=ELE THEN GOTO 0575 : THIS SECTION ACCEPTS DESIRED OPTION
  1117     -73  STMTX   
  1118      23  LDVL    218   
  1121      23  LDVL    206   
  1124      65  CMPL    
  1125     -87  EQZJ    
  1126     -81  JMPT    *
Add patch:    1127     575       1
0557 REM THIS ALLOWS DOUBLE SPACING
0560 IF ELE<10 THEN LET YPOS=YPOS+1
  1129     -73  STMTX   
  1130      23  LDVL    206   
  1133      17  LDBL    10 
  1135      65  CMPL    
  1136     -89  LTZJ    
  1137     -82  JMPF    *
  1140     -96  LDAV    214   
  1143      23  LDVL    214   
  1146      14  LD1L    
  1147      50  ADDL    
  1148      44  STIL    
Add patch:    1138      11   40000
0565 LET YPOS=YPOS+1
  1149     -73  STMTX   
  1150     -96  LDAV    214   
  1153      23  LDVL    214   
  1156      14  LD1L    
  1157      50  ADDL    
  1158      44  STIL    
0570 GOTO 0500
  1159     -73  STMTX   
  1160     -83  JMP     *
Add patch:    1161     500       1
0575 REM THIS SECTION ACCEPTS DESIRED OPTION
0580 PRINT @(22,15);
  1163     -73  STMTX   
  1164      16  LDBJ    16 
  1166     -58  PRSET   
  1167      16  LDBJ    22 
  1169      16  LDBJ    15 
  1171     -55  PRCTL   
  1172     -53  PREND   
0590 ON ERR THEN GOTO 0640
  1173     -73  STMTX   
  1174     543  ONERR   *
  1178     -83  JMP     *
Add patch:    1179     640       1
Add patch:    1176       5   40000
0595 INPUT USING "","ENTER DESIRED OPTION : ",@(-10,2),P
  1181     -73  STMTX   
  1182      16  LDBJ    16 
  1184     -49  INUSET  
  1185    -128  LDCA    23 
  1210     -48  INPRM   
  1211      16  LDBJ    10 
  1213      61  NEGJ    
  1214      16  LDBJ    2  
  1216     -47  INCTL   
  1217     -96  LDAV    230   
  1220      86  INL     
  1221     -46  INCR    
0600 ON ERR THEN GOTO 2000
  1222     -73  STMTX   
  1223     543  ONERR   *
  1227     -83  JMP     *
Add patch:    1228    2000       1
Add patch:    1225       5   40000
0630 IF P<PROG+1 THEN IF P>0 THEN GOTO 0675
  1230     -73  STMTX   
  1231      23  LDVL    230   
  1234      23  LDVL    222   
  1237      14  LD1L    
  1238      50  ADDL    
  1239      65  CMPL    
  1240     -89  LTZJ    
  1241     -82  JMPF    *
  1244      23  LDVL    230   
  1247      11  LD0L    
  1248      65  CMPL    
  1249     -84  GTZJ    
  1250     -81  JMPT    *
Add patch:    1251     675       1
Add patch:    1242      11   40000
0635 REM ERROR IN SELECTION OF ITEM FROM MENU
0640 PRINT @(22,42);
  1253     -73  STMTX   
  1254      16  LDBJ    16 
  1256     -58  PRSET   
  1257      16  LDBJ    22 
  1259      16  LDBJ    42 
  1261     -55  PRCTL   
  1262     -53  PREND   
0645 PRINT "ERROR, TRY AGAIN"
  1263     -73  STMTX   
  1264      16  LDBJ    16 
  1266     -58  PRSET   
  1267    -128  LDCA    16 
  1285      76  PRA     
  1286     -54  PRCR    
0650 GOTO 0575 : THIS SECTION ACCEPTS DESIRED OPTION
  1287     -73  STMTX   
  1288     -83  JMP     *
Add patch:    1289     575       1
0670 REM THIS SECTION SWAPS TO THE CORRECT PROGRAM
0675 PRINT @(-30);
  1291     -73  STMTX   
  1292      16  LDBJ    16 
  1294     -58  PRSET   
  1295      16  LDBJ    30 
  1297      61  NEGJ    
  1298      10  LD0J    
  1299     -55  PRCTL   
  1300     -53  PREND   
0680 IF P=ELE THEN GOTO 0800
  1301     -73  STMTX   
  1302      23  LDVL    230   
  1305      23  LDVL    206   
  1308      65  CMPL    
  1309     -87  EQZJ    
  1310     -81  JMPT    *
Add patch:    1311     800       1
0685 LET P=ASC(CORR$[(P-1)*2+1,P*2])
  1313     -73  STMTX   
  1314     -96  LDAV    230   
  1317      23  LDVL    230   
  1320      14  LD1L    
  1321      53  SUBL    
  1322      17  LDBL    2  
  1324      56  MULL    
  1325      14  LD1L    
  1326      50  ADDL    
  1327     -70  FXLJ    
  1328      23  LDVL    230   
  1331      17  LDBL    2  
  1333      56  MULL    
  1334     -70  FXLJ    
  1335    -126  SBDA    166   
  1338     296  ASCL    
  1340      44  STIL    
0690 LET WHICH$=SWP$[(P-1)*LSWP+1,P*LSWP]
  1341     -73  STMTX   
  1342    -127  LDDA    176   
  1345      23  LDVL    230   
  1348      14  LD1L    
  1349      53  SUBL    
  1350      23  LDVL    118   
  1353      56  MULL    
  1354      14  LD1L    
  1355      50  ADDL    
  1356     -70  FXLJ    
  1357      23  LDVL    230   
  1360      23  LDVL    118   
  1363      56  MULL    
  1364     -70  FXLJ    
  1365    -126  SBDA    146   
  1368    -125  MOVS    
  1369    -124  UPCL    
0692 LET X$=CM$[(P-1)*LCM+1,P*LCM],FILL$(32)
  1370     -73  STMTX   
  1371    -127  LDDA    196   
  1374      23  LDVL    230   
  1377      14  LD1L    
  1378      53  SUBL    
  1379      23  LDVL    122   
  1382      56  MULL    
  1383      14  LD1L    
  1384      50  ADDL    
  1385     -70  FXLJ    
  1386      23  LDVL    230   
  1389      23  LDVL    122   
  1392      56  MULL    
  1393     -70  FXLJ    
  1394    -126  SBDA    156   
  1397    -125  MOVS    
  1398      16  LDBJ    32 
  1400      19  LDCJ    32767 
  1403     390  FILL    
  1405    -124  UPCL    
0695 BLOCK WRITE X$
  1406     -73  STMTX   
  1407      16  LDBJ    16 
  1409      11  LD0L    
  1410    -127  LDDA    196   
  1413     514  BLKWR   
0700 SWAP WHICH$
  1415     -73  STMTX   
  1416    -127  LDDA    176   
  1419     560  SWAP    0     
0705 GOTO 0450 : THIS SECTION DISPLAYS THE MENU
  1423     -73  STMTX   
  1424     -83  JMP     *
Add patch:    1425     450       1
0800 END 
  1427     -73  STMTX   
  1428     -30  PEND    
2000 REM ERROR SUBROUTINE
2002 ON ERR THEN INT
  1429     -73  STMTX   
  1430     543  ONERR   0     
2003 DIM X$[72]
  1434     -73  STMTX   
  1435      16  LDBJ    72 
  1437     523  DIMA    196   
2004 LET X$=ERM$(SYS(7))
  1441     -73  STMTX   
  1442    -127  LDDA    196   
  1445      16  LDBJ    7  
  1447     299  SYSL    
  1449     389  ERM     
  1451    -124  UPCL    
2005 PRINT @(-25);@(23,1);"ERROR AT STM# ";SYS(20);". ";X$
  1452     -73  STMTX   
  1453      16  LDBJ    16 
  1455     -58  PRSET   
  1456      16  LDBJ    25 
  1458      61  NEGJ    
  1459      10  LD0J    
  1460     -55  PRCTL   
  1461      16  LDBJ    23 
  1463      13  LD1J    
  1464     -55  PRCTL   
  1465    -128  LDCA    14 
  1481      76  PRA     
  1482      16  LDBJ    20 
  1484     299  SYSL    
  1486      78  PRL     
  1487    -128  LDCA    2  
  1491      76  PRA     
  1492    -127  LDDA    196   
  1495      76  PRA     
  1496     -54  PRCR    
2010 INPUT USING "","HIT RETURN TO ACKNOWLEDGE.",@(-10,1),X$[1,1]
  1497     -73  STMTX   
  1498      16  LDBJ    16 
  1500     -49  INUSET  
  1501    -128  LDCA    26 
  1529     -48  INPRM   
  1530      16  LDBJ    10 
  1532      61  NEGJ    
  1533      13  LD1J    
  1534     -47  INCTL   
  1535      13  LD1J    
  1536      13  LD1J    
  1537    -126  SBDA    196   
  1540      84  INA     
  1541     -46  INCR    
2015 END 
  1542     -73  STMTX   
  1543     -30  PEND    
  1544     -83  JMP     *
Add patch:       1    1546   40000
  1547     -83  JMP     *
Add patch:    1545       5   40000
  1550     -73  STMTX   
  1551     -38  DATA    *
Add patch:     469    1085   40000
  1554     -30  PEND    
Add patch:    1552       3   40000
  1555     -30  PEND    
  1556     -31  ABORT   
Add patch:    1548       9   40000
  1557     -33  CLRSTK  80    
  1560      16  LDBJ    6  
  1562      13  LD1J    
  1563     525  DIML    74    
  1567     555  RSTGS   
  1569      16  LDBJ    3  
  1571      16  LDBJ    8  
  1573      16  LDBJ    2  
  1575     525  DIML    84    
  1579     554  RSTFN   
  1581     550  RESTOR  -1576 
  1585     -32  DFLTBL  *
Add patch:       4       6   40000
  1588     558  START   
  1590     -83  JMP     -1588 
  1593       0  NOP     
Add patch:    1586       8   40000
Patch:       8       6   40000
Patch:      12       7   40000
Patch:      17       6   40000
Patch:      21      26   40000
Patch:      45       6   40000
Patch:      49     104   40000
Patch:     151       6   40000
Patch:     155     104   40000
Patch:     257       6   40000
Patch:     261     104   40000
Patch:     363       6   40000
Patch:     367     104   40000
Patch:     477      10   40001
Patch:     474       5   40000
Patch:     485     944   40001
Patch:     482       5   40000
Patch:     636     142   40000
Patch:     902       7   40000
Patch:     917      86   40001
Patch:    1052      60   40001
Patch:    1127      36   40001
Patch:    1138      11   40000
Patch:    1161    -317   40001
Patch:    1179      74   40001
Patch:    1176       5   40000
Patch:    1228     201   40001
Patch:    1225       5   40000
Patch:    1251      40   40001
Patch:    1242      11   40000
Patch:    1289    -126   40001
Patch:    1311     116   40001
Patch:    1425    -647   40001
Patch:       1    1546   40000
Patch:    1545       5   40000
Patch:     469    1085   40000
Patch:    1552       3   40000
Patch:    1548       9   40000
Patch:       4       6   40000
Patch:    1586       8   40000
