image of READY prompt

Wang2200.org

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

# Sector 659, program filename = 'OP1D050A'
0010 REM .     OP1D050A,  00-00 (6/28/75),   12002
0100 PRINT "TESTING MAT TRN... ";
   : DIM A(20),B(1,21),C(5,20),D(10,10)
   : FOR I=1TO 20
   : A(I)=I
   : NEXT I
   : MAT B=TRN(A)
   : FOR I=1TO 20
   : IF B(1,I)<>ITHEN 480
   : NEXT I
   : MAT REDIM B(1,21)
   : IF B(1,21)<>0THEN 480
   : FOR I=1TO 5
   : FOR J=1TO 20
   : C(I,J)=I+.01*J
   : NEXT J
   : NEXT I
0260 MAT D=TRN(C)
   : GOSUB 400
   : MAT C=ZER
   : MAT C=TRN(D)
   : GOSUB 400
   : FOR I=1TO 10
   : MAT REDIM C(I,I)
   : MAT D=TRN(C)
   : K,K1=I
   : GOSUB 420
   : NEXT I
   : IF E(5)<>0THEN 490
   : PRINT "OK"
   : GOTO 510
0400 K=5
   : K1=20
0420 FOR I=1TO K
   : FOR J=1TO K1
   : IF D(J,I)<>C(I,J)THEN 480
   : NEXT J
   : NEXT I
   : RETURN
0480 E(5)=E(5)+1
0490 PRINT TAB(40);E(5);"ERRORS"
   : E9$(P9)="NG"
0510 LOAD DC T#6,"OP1D060A"
0520 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"