image of READY prompt

Wang2200.org

Listing of file='OP1D040A' on disk='vmedia/701-2046C.wvd.zip'

# Sector 758, program filename = 'OP1D040A'
0010 REM .     OP1D040A,  00-00 (6/28/75),   12002
0100 PRINT "TESTING MAT SCALAR MULTIPLICATION... ";
   : DIM A(20),C(20,1),B(4,5),D(1,1),F(1)
   : FOR I=1TO 20STEP 4
   : MAT REDIM A(I)
   : FOR J=1TO I
   : A(J)=J
   : NEXT J
   : MAT A=(123)*A
   : MAT REDIM A(20)
   : X=1
   : FOR K=1TO 20
   : IF K<=ITHEN 230
   : X=0
0230 IF A(K)<>123*K*XTHEN 390
   : NEXT K
   : NEXT I
   : MAT C=(-1/123)*A
   : FOR I=1TO 17
   : IF C(I,1)<>-ITHEN 390
   : NEXT I
   : FOR I=1TO 4
   : FOR J=1TO 5
   : B(I,J)=(I-1)*5+J
   : NEXT J
   : NEXT I
   : MAT C=(.1)*B
   : MAT REDIM C(20,1)
   : FOR I=1TO 20
   : IF C(I,1)<>.1*ITHEN 390
   : NEXT I
   : D(1,1)=3
   : MAT F=(.3)*D
0359 IF F(1)<>.9THEN 390
   : IF E(4)<>0THEN 400
   : PRINT "OK"
   : GOTO 420
0390 E(4)=E(4)+1
0400 PRINT TAB(40);E(4);"ERRORS"
   : E9$(P9)="NG"
0420 LOAD DC T#6,"OP1D050A"
0430 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"