Listing of file='WCPD100A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 335, program filename = 'WCPD100A' 0010 REM . WCPD100A, 00-00 (6/28/75), 12002 0100 COM N : N=30 : PRINT " TESTING DIM ........................."; : DIM T(4),T0(4),D(4,4),D1(1,8) : 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 0220 IF T(1)+T(2)+T(3)+T(4)=10THEN 250 : PRINT TAB(40);"ERROR 1" : GOTO 330 0250 IF D(1,1)+D(2,2)+D(3,3)+D(4,4)=-30THEN 280 : PRINT TAB(40);"ERROR 2" : GOTO 330 0280 IF D1(1,1)+D1(1,2)+D1(1,3)+D1(1,4)=40THEN 310 : PRINT TAB(40);"ERROR 3" : GOTO 330 0310 PRINT "OK" : LOAD DC T#6,"WCPD110A" 0330 E9$(P9)="NG" : LOAD DC T#6,"WCPD110A" 0350 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"