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"