image of READY prompt

Wang2200.org

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