image of READY prompt

Wang2200.org

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

# Sector 49, program filename = 'OP1D030A'
0010 REM .    OP1D030A,    00-00 (09/19/75),    12002
0100 PRINT "TESTING MAT CON, ZER, IDN... ";
   : DIM A(20),B(5,5),C(1)
   : FOR I=1TO 20STEP 4
   : MAT A=CON(I)
   : X=1
   : MAT REDIM A(20)
   : FOR J=1TO 20
   : IF J<=ITHEN 190
   : X=0
0190 IF A(J)<>XTHEN 680
   : NEXT J
   : NEXT I
   : MAT A=ZER
   : FOR I=1TO 20
   : IF A(I)<>0THEN 680
   : NEXT I
   : MAT B=CON
   : GOSUB '01(1)
   : X=4
   : MAT B=ZER(X,X-1)
   : MAT REDIM B(25,1)
   : X=0
   : FOR I=1TO 25
   : IF I<13THEN 350
   : X=1
0350 IF B(I,1)<>XTHEN 680
   : NEXT I
   : FOR K=1TO 5
   : MAT B=IDN(K,K)
   : GOSUB '02(K)
   : NEXT K
   : MAT REDIM B(3,3)
   : MAT B=IDN
   : GOSUB '02(3)
   : MAT C=CON
   : IF C(1)<>1THEN 680
   : MAT C=ZER
   : IF C(1)<>0THEN 680
   : IF E(3)<>0THEN 690
   : PRINT "OK"
   : GOTO 710
0510 DEFFN'01(X)
   : FOR I=1TO 5
   : FOR J=1TO 5
   : IF B(I,J)<>XTHEN 680
   : NEXT J
   : NEXT I
   : RETURN
0580 DEFFN'02(X)
   : FOR I=1TO X
   : FOR J=1TO X
   : IF I=JTHEN 640
   : IF B(I,J)<>0THEN 680
   : GOTO 650
0640 IF B(I,J)<>1THEN 680
0650 NEXT J
   : NEXT I
   : RETURN
0680 E(3)=E(3)+1
0690 PRINT TAB(40);E(3);"ERROR"
   : E9$(P9)= "NG"
0710 LOAD DC T#6,"OP1D040A"
0720 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"