Listing of file='OP5D110A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 235, 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(4)=E(4)+1
: PRINT TAB(40);E(4);"ERRORS"
: LOAD DC T"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(4)=E(4)+1
: PRINT TAB(40);E(4);"ERRORS"
: LOAD DC T"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(4)=E(4)+1
: E9$(P9)="NG"
: PRINT TAB(40);E(4);"ERRORS"
: LOAD DC T"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(4)=E(4)+1
: PRINT TAB(40);E(4);"ERRORS"
: LOAD DC T"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(4)=E(4)+1
: PRINT TAB(40);E(4);"ERRORS"
: LOAD DC T"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"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(4)=E(4)+1
: E9$(P9)="NG"
: PRINT TAB(40);E(4);"ERRORS"
: LOAD DC T"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(4)=E(4)+1
: E9$(P9)="NG"
: PRINT TAB(40);E(4);"ERRORS"
: LOAD DC T"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(4)=E(4)+1
: E9$(P9)="NG"
: PRINT TAB(40);E(4);"ERRORS"
: LOAD DC T"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 E(4)=E(4)+1
: E9$(P9)="NG"
: PRINT TAB(40);E(4);"ERRORS"
: LOAD DC T"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 E(4)=E(4)+1
: E9$(P9)="NG"
: PRINT TAB(40);E(4);"ERRORS"
: LOAD DC T"OP5D120A"
1080 PRINT "O.K."
: LOAD DC T"OP5D120A"
1100 DEFFN'15
: LOAD DC T"START"50