Listing of file='OP5D110A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 793, program filename = 'OP5D110A' 0010 REM . OP5D110A, 00-00 (06/28/75), 12002 : PRINT "MAT COPY DIAGNOSTIC #1 (COMATF12).."; : DIM A$(1)1,B$(1)1,C$(1)2,D$(1),E$(1)64 : A$(1)="A" : INIT("B")B$(),C$(),D$(),E$() 0150 MAT COPY A$()TO B$() : MAT COPY A$()TO C$() : MAT COPY A$()TO D$() : MAT COPY A$()TO E$() 0170 IF B$(1)<>"A"THEN 210 : IF C$(1)<>"A "THEN 210 : IF D$(1)<>"A "THEN 210 : IF E$(1)<>"A"THEN 210 : GOTO 230 0210 REM : E(12)=E(12)+1 : PRINT TAB(40);E(12);"ERRORS" : LOAD DC T#6,"OP5D120A" 0230 INIT("P")B$(1),C$(1),D$(1),E$(1) : MAT COPY A$()TO -B$() : MAT COPY A$()TO -C$() : MAT COPY A$()TO -D$() : MAT COPY A$()TO -E$() 0260 IF B$(1)<>"A"THEN 300 : IF C$(1)<>" A"THEN 300 : IF D$(1)<>" A"THEN 300 : IF E$(1)<>" A"THEN 300 : GOTO 310 0300 REM : E(12)=E(12)+1 : E9$(P9)="NG" : PRINT TAB(40);E(12);"ERRORS" : LOAD DC T#6,"OP5D120A" 0310 INIT("Q")B$(),C$(),D$(),E$() : MAT COPY -A$()TO B$() : MAT COPY -A$()TO C$() : MAT COPY -A$()TO D$() : MAT COPY -A$()TO E$() : IF B$(1)<>"A"THEN 380 : IF C$(1)<>"A"THEN 380 : IF D$(1)<>"A"THEN 380 : IF E$(1)<>"A"THEN 380 : GOTO 390 0380 REM : E(12)=E(12)+1 : E9$(P9)="NG" : PRINT TAB(40);E(12);"ERRORS" : LOAD DC T#6,"OP5D120A" 0390 INIT("W")B$(),C$(),D$(),E$() : MAT COPY -A$()TO -B$() : MAT COPY -A$()TO -C$() : MAT COPY -A$()TO -D$() : MAT COPY -A$()TO -E$() : IF B$(1)<>"A"THEN 460 : IF C$(1)<>" A"THEN 460 : IF D$(1)<>" A"THEN 460 0440 IF E$(1)<>" A"THEN 460 : GOTO 470 0460 REM : E(12)=E(12)+1 : PRINT TAB(40);E(12);"ERRORS" : LOAD DC T#6,"OP5D120A" 0470 INIT("X")A$(),B$(),D$(),E$() : C$(1)="PS" : MAT COPY C$()TO A$() : MAT COPY C$()TO B$() : MAT COPY C$()TO D$() : MAT COPY C$()TO E$() : IF A$(1)<>"P"THEN 540 : IF B$(1)<>"P"THEN 540 : IF D$(1)<>"PS"THEN 540 : IF E$(1)<>"PS"THEN 540 : GOTO 550 0540 REM : E(12)=E(12)+1 : E9$(P9)="NG" : PRINT TAB(40);E(12);"ERRORS" : LOAD DC T#6,"OP5D120A" 0550 DIM F$(2,3)1,G$(6)1,H$(1)6 : H$(1)="ABCDEF" : INIT("Q")F$(),G$() : DIM Z$1 : Z$="A" : MAT COPY H$()TO F$() : MAT COPY H$()TO G$() : FOR I=1TO 2 : FOR J=1TO 3 : IF F$(I,J)<>Z$THEN 640 : ADD(Z$,01) : GOTO 660 0640 FOR I=1TO 2 : FOR J=1TO 3 : PRINT F$(I,J); : NEXT J : NEXT I : E(12)=E(12)+1 : E9$(P9)="NG" : PRINT TAB(40);E(12);"ERRORS" : LOAD DC T#6,"OP5D120A" 0660 NEXT J : NEXT I : Z$="A" : FOR I=1TO 6 : IF G$(I)<>Z$THEN 730 : ADD(Z$,01) : NEXT I : GOTO 740 0730 REM : E(12)=E(12)+1 : E9$(P9)="NG" : PRINT TAB(40);E(12);"ERRORS" : LOAD DC T#6,"OP5D120A" 0740 H$(1)="UVWXYZ" 0750 INIT("A")F$(),G$() : MAT COPY H$()TO -F$() : MAT COPY -H$()TO G$() : Z$="U" : FOR I=2TO 1STEP -1 : FOR J=3TO 1STEP -1 : IF F$(I,J)<>Z$THEN 820 : ADD(Z$,01) : NEXT J : NEXT I : GOTO 830 0820 REM : E(12)=E(12)+1 : E9$(P9)="NG" : PRINT TAB(40);E(12);"ERRORS" : LOAD DC T#6,"OP5D120A" 0830 Z$="U" : FOR I=6TO 1STEP -1 : IF G$(I)<>Z$THEN 860 : ADD(Z$,01) : NEXT I : GOTO 870 0860 REM : E(12)=E(12)+1 : E9$(P9)="NG" : PRINT TAB(40);E(12);"ERRORS" : LOAD DC T#6,"OP5D120A" 0870 DIM I$(1)10,J$(5)2,K$2 : I$(1)="0123456789" : INIT("A")J$() : MAT COPY I$()TO J$()<7,2> : K$="01" : FOR I=1TO 3 : IF J$(I)<>"AA"THEN 970 : NEXT I : IF J$(4)<>"01"THEN 970 : IF J$(5)<>"AA"THEN 970 : GOTO 980 0970 REM : E(12)=E(12)+1 : E9$(P9)="NG" : PRINT TAB(40);E(12);"ERRORS" : LOAD DC T#6,"OP5D120A" 0980 INIT("A")J$() : MAT COPY I$()<1,2>TO J$()<5,4> : K$="01" : FOR I=1TO 2 : IF J$(I)<>"AA"THEN 1070 : NEXT I : IF J$(3)<>"01"THEN 1070 : IF J$(4)<>" "THEN 1070 : IF J$(5)<>"AA"THEN 1070 : GOTO 1080 1070 REM : E(12)=E(12)+1 : E9$(P9)="NG" : PRINT TAB(40);E(12);"ERRORS" : LOAD DC T#6,"OP5D120A" 1080 PRINT "O.K." : LOAD DC T#6,"OP5D120A" 1100 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"