Listing of file='OP5D060A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 152, program filename = 'OP5D060A' 0010 REM . OP5D060A, 00-00 (6/28/75), 12002 0100 DIM A$(255)1,B$(255)2,T$1,C$(2)2,Q$(1,1)64,Q$64,F$(6,4) : DIM P$(4,5)2,P$2,R$(1,1)2,Y1$19 : PRINT "MAT SEARCH", : FOR I=0TO 254 : BIN(A$(I+1))=I : NEXT I : GOSUB '40(0) : GOSUB '40(254) : GOSUB '40(100) : FOR I=1TO 20 : GOSUB '40(I) : NEXT I 0220 T$=HEX(FF) : MAT SEARCHA$(),=STR(T$,1,1)TO C$()STEP 1 : IF C$(1)<>HEX(0000)THEN 1630 : IF C$(2)<>" "THEN 1630 : GOSUB '41(0) : GOSUB '41(6) : GOSUB '41(253) : GOSUB '42(1) : GOSUB '42(17) : GOSUB '43(254) : GOSUB '43(245) : GOSUB '43(1) : GOSUB '44(253) : GOSUB '44(200) : T$=HEX(FE) 0370 MAT SEARCHA$(),<>T$TO B$() : X=253 : GOSUB 1530 : Q$="A12345A" : FOR I=1TO 6 : FOR J=1TO 4 : F$(I,J)=Q$ : ADD(STR(Q$,1,1),01) : ADD(STR(Q$,7,1),01) : NEXT J : NEXT I : Y1$="G12345G" : MAT SEARCHF$(),=STR(Y1$,1,7)TO P$() : IF P$(1,1)<>HEX(0061)THEN 1630 0510 IF P$(1,2)<>HEX(0000)THEN 1630 : MAT SEARCHF$(),=STR(Y1$,2,5)TO P$() : P$=HEX(0002) : GOSUB '51(4) : Y1$="F12345F" : MAT SEARCHF$(),>STR(Y1$,1,7)TO R$() : IF R$(1,1)<>HEX(0061)THEN 1630 : INIT(FF)C$() : Y1$=" " 0600 MAT SEARCHA$()<80,0>,>STR(Y1$,1,1)TO C$() : IF C$(1)<>HEX(0000)THEN 1630 : IF C$(2)<>HEX(FFFF)THEN 1630 : Y1$=HEX(10) : FOR I=1TO 17 : INIT(FF)C$() : MAT SEARCHA$()<I,18-I>,=Y1$TO C$() : IF STR(C$(1),1,1)<>HEX(00)THEN 1630 : IF C$(2)<>HEX(0000)THEN 1630 0690 IF VAL(STR(C$(1),2,1))<>18-ITHEN 1630 : NEXT I : INIT("X")A$() : Y1$="XXX" : MAT SEARCHA$(),=STR(Y1$,1,3)TO B$() : P$=HEX(0001) : FOR I=1TO 253 : IF B$(I)<>P$THEN 1630 : ADDC(P$,01) : NEXT I : IF B$(254)<>HEX(0000)THEN 1630 : F$(6,2)=F$(1,1) 0810 F$(6,3)=F$(1,2) : F$(6,4)=F$(1,3) : Y1$=" B12345B C" : MAT SEARCHF$(),=Y1$TO B$() : IF B$(1)<>HEX(000F)THEN 1630 : IF B$(2)<>HEX(015F)THEN 1630 : IF B$(3)<>HEX(0000)THEN 1630 : INIT(FF)A$(),B$() : Y1$=" " 0900 MAT SEARCHA$()<250,6>,>=STR(Y1$,1,4)TO B$() : IF B$(1)<>HEX(0001)THEN 1630 : IF B$(2)<>HEX(0002)THEN 1630 : IF B$(3)<>HEX(0003)THEN 1630 : IF B$(4)<>HEX(0000)THEN 1630 : IF B$(5)<>HEX(FFFF)THEN 1630 : INIT(FF)F$(),B$() : Q$=HEX(FFFE) 0980 MAT SEARCHF$(),<=Q$TO B$()STEP 3 : IF B$(1)<>HEX(0000)THEN 1630 : IF B$(2)<>HEX(FFFF)THEN 1630 : Q$=HEX(FF) : FOR J=2TO 20 : INIT(FF)B$() : MAT SEARCHF$(),=Q$TO B$()STEP J : I=0 : P$=HEX(0001) : BIN(T$)=J : FOR K=1TO 384STEP J : I=I+1 : NEXT K : IF B$(I+1)<>HEX(0000)THEN 1630 1120 IF B$(I+2)<>HEX(FFFF)THEN 1630 : NEXT J : INIT(30)B$() : B$(255)="12" : Q$="11" : FOR S=1TO 20STEP 2 : MAT SEARCHB$()<S,511-S>,>Q$TO C$()STEP 2 : C=VAL(C$(1))*256+VAL(STR(C$(1),2)) : IF C<>510-STHEN 1630 : IF C$(2)<>HEX(0000)THEN 1630 : NEXT S : GOTO 1640 1240 DEFFN'51(I1) : FOR I=1TO I1 : FOR J=1TO 5 : IF P$(I,J)<>P$THEN 1630 : ADDC(P$,10) : NEXT J : NEXT I : RETURN 1320 DEFFN'43(X) : BIN(T$)=X : MAT SEARCHA$(),>=T$TO B$()STEP 2/2 1350 FOR J=1TO 255-X : IF VAL(B$(J))*256+VAL(STR(B$(J),2))<>J+XTHEN 1630 : NEXT J : IF B$(J+1)<>HEX(0000)THEN 1630 : RETURN 1400 DEFFN'44(X) : BIN(T$)=X-1 : MAT SEARCHA$(),>T$TO B$() : GOTO 1350 1440 DEFFN'40(X) : BIN(T$)=X : MAT SEARCHA$(),=T$TO B$() : IF VAL(B$(1))*256+VAL(STR(B$(1),2))<>X+1THEN 1630 : IF B$(2)<>HEX(0000)THEN 1630 : RETURN 1500 DEFFN'41(X) : BIN(T$)=X : MAT SEARCHA$(),<=T$TO B$() 1530 FOR J=1TO X+1 : IF VAL(B$(J))*256+VAL(STR(B$(J),2))<>JTHEN 1630 : NEXT J : IF B$(X+2)<>HEX(0000)THEN 1630 : RETURN 1580 DEFFN'42(X) : BIN(T$)=X : X=X-1 : MAT SEARCHA$(),<T$TO B$() : GOTO 1530 1630 E(7)=E(7)+1 1640 IF E(7)>0THEN 1670 : PRINT "OK" : GOTO 1690 1670 PRINT TAB(40);E(7);"ERRORS" : E9$(P9)="NG" 1690 LOAD DC T#6,"OP5D070A" 1700 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"