Listing of file='OP5D020A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 561, program filename = 'OP5D020A' 0010 REM . OP5D020A, 00-00 (06/28/75), 12002 : 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 0140 FOR K=1TO 18 : GOSUB '40(K) : NEXT K : GOSUB '40(254) : GOSUB '40(255) 0160 FOR I=1TO 64 : 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 480 : IF D$(3)<>" "THEN 480 0200 IF D$(2)<>D$(1)THEN 480 : NEXT I : N0=3 : M(4)=0 : GOSUB '41(1) : GOSUB '41(2) : GOSUB '41(15) : GOSUB '41(252) : GOSUB '41(64) 0230 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 480 : NEXT I : FOR I=1TO 70 : IF M(I)<>N(I)THEN 480 : NEXT I : MAT MOVE A$(),A$(1)TO E$(1) : IF E$(1)<>HEX(0101)THEN 480 : IF E$(2)<>HEX(0201)THEN 480 0290 Z$(1,1)="ABCDEFGHIJKLM" : MAT MOVE Z$()(5,6),E$(1)TO Z$(1,1) : IF Z$(1,1)<>"EFGHIJ"THEN 480 0310 N0=100 : MAT MOVE B$(),A$(1),N0TO D$(1) : IF N0<>3THEN 480 : N0=0 : MAT MOVE Z$(),E$(1),N0TO Z$(1,1) : IF N0<>0THEN 480 : IF Z$(1,1)<>"EFGHIJ"THEN 480 : INIT(00)B$() : MAT MOVE A$(),E$(1)TO B$(1) : IF B$(1)<>HEX(0101)THEN 480 0360 IF B$(2)<>HEX(0201)THEN 480 : IF B$(3)<>HEX(0000)THEN 480 : GOTO 470 0380 DEFFN'41(X) : MAT MOVE N(),A$(X),N0TO M(1) 0390 FOR I=1TO 3 : IF M(I)<>N(I+X-1)THEN 480 : NEXT I : IF M(4)<>0THEN 480 : RETURN 0410 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 480 : FOR I=1TO N0 : IF M(I)<>N(I)THEN 480 : NEXT I : IF N0=255THEN 460 : IF M(N0+1)<>0THEN 480 0460 RETURN 0470 PRINT "OK" : GOTO 500 0480 E(4)=E(4)+1 0490 PRINT TAB(40);E(4);"ERRORS" 0500 LOAD DC T"OP5D030A" 0510 DEFFN'15 : LOAD DC T"START"50