Listing of file='WCPD100A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 299, program filename = 'WCPD100A' 0010 REM . WCPD100A, 00-00 (06/28/75), 12002 : COM N : N=30 : PRINT " TESTING DIM ........................."; : DIM T(4),T0(4),D(4,4),D1(1,8) 0020 FOR R=1TO 4 : T(R)=R : FOR C=1TO 4 : D(R,C)=-R*C : T0(C)=R*C : NEXT C : D1(1,R)=D1(1,R)+T0(C) : NEXT R : IF T(1)+T(2)+T(3)+T(4)=10THEN 40 0030 PRINT TAB(40);"ERROR AT 80" : GOTO 70 0040 IF D(1,1)+D(2,2)+D(3,3)+D(4,4)=-30THEN 50 : PRINT TAB(40);"ERROR AT 100" : GOTO 70 0050 IF D1(1,1)+D1(1,2)+D1(1,3)+D1(1,4)=40THEN 60 : PRINT TAB(40);"ERROR AT 120" : GOTO 70 0060 PRINT "OK" : LOAD DC T"WCPD110A" 0070 E(1)=E(1)+1 : PRINT E(1);"ERRORS" : LOAD DC T"WCPD110A" 0080 DEFFN'15 : LOAD DC T"START"50