Listing of file='OP5D020A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 568, program filename = 'OP5D020A' 0010 REM . OP5D020A, 00-00 (6/28/75), 12002 0100 DIM N(255),A$(255)2,M(255),B$(255)2,C$(1,3)64,D$(3)32 : DIM C$64,Z$(1,1),E$(2)2 : PRINT "MAT MOVE", : INIT(01)A$() : FOR I=1TO 255 : BIN(A$(I))=I : N(I)=RND(1) : NEXT I : FOR K=1TO 18 : GOSUB '40(K) : NEXT K : GOSUB '40(254) : GOSUB '40(255) : FOR I=1TO 64 0240 BIN(STR(C$,I))=I : NEXT I : C$(1,3)="ABC" : C$(1,1),C$(1,2)=C$ : E$(1),E$(2)=HEX(0101) : FOR I=1TO 32 : MAT MOVE C$()(I,I),E$(1)TO D$(1) : IF D$(1)<>STR(C$,I,I)THEN 940 : IF D$(3)<>" "THEN 940 : IF D$(2)<>D$(1)THEN 940 : NEXT I : N0=3 : M(4)=0 0370 GOSUB '41(1) : GOSUB '41(2) : GOSUB '41(15) : GOSUB '41(252) : GOSUB '41(64) : FOR I=1TO 71 : M(I)=0 : NEXT I : N0=1 : FOR I=1TO 70 : MAT MOVE N(),A$(I),N0TO M(I) : IF M(I+1)<>0THEN 940 : NEXT I : FOR I=1TO 70 : IF M(I)<>N(I)THEN 940 : NEXT I : MAT MOVE A$(),A$(1)TO E$(1) 0540 IF E$(1)<>HEX(0101)THEN 940 : IF E$(2)<>HEX(0201)THEN 940 : Z$(1,1)="ABCDEFGHIJKLM" : MAT MOVE Z$()(5,6),E$(1)TO Z$(1,1) : IF Z$(1,1)<>"EFGHIJ"THEN 940 : N0=100 : MAT MOVE B$(),A$(1),N0TO D$(1) : IF N0<>3THEN 940 : N0=0 0630 MAT MOVE Z$(),E$(1),N0TO Z$(1,1) : IF N0<>0THEN 940 : IF Z$(1,1)<>"EFGHIJ"THEN 940 : INIT(00)B$() : MAT MOVE A$(),E$(1)TO B$(1) : IF B$(1)<>HEX(0101)THEN 940 : IF B$(2)<>HEX(0201)THEN 940 : IF B$(3)<>HEX(0000)THEN 940 : GOTO 910 0720 DEFFN'41(X) : MAT MOVE N(),A$(X),N0TO M(1) : FOR I=1TO 3 : IF M(I)<>N(I+X-1)THEN 940 : NEXT I : IF M(4)<>0THEN 940 : RETURN 0790 DEFFN'40(N0) : INIT(00)B$() : M=N0 : MAT MOVE A$(),A$(1),N0TO B$(1) : MAT MOVE N(),B$(1)TO M(1) : IF N0<>MTHEN 940 : FOR I=1TO N0 : IF M(I)<>N(I)THEN 940 : NEXT I : IF N0=255THEN 900 : IF M(N0+1)<>0THEN 940 0900 RETURN 0910 IF E(3)>0THEN 950 : PRINT "OK" : GOTO 970 0940 E(3)=E(3)+1 0950 PRINT TAB(40);E(3);"ERRORS" : E9$(P9)="NG" 0970 LOAD DC T#6,"OP5D030A" 0980 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"