image of READY prompt

Wang2200.org

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"