image of READY prompt

Wang2200.org

Listing of file='OP1D080A' on disk='vmedia/wcs_diags.wvd.zip'

# Sector 557, program filename = 'OP1D080A'
0010 REM .   OP1D080A,   00-00 (06/28/75),   12002
   : PRINT "TESTING MAT REDIM... ";
   : DIM A$(1)64,B$64,N(18,18),M(20),C$(4,4)
   : FOR I=1TO 64
   : BIN(STR(B$,I,1))=I
   : NEXT I
   : FOR I=1TO 64
   : MAT REDIM A$(1)I
   : A$(1)=B$
0140 IF A$(1)<>STR(B$,1,I)THEN 230
   : NEXT I
   : MAT REDIM A$(64)1
   : FOR I=1TO 64
   : IF A$(I)<>STR(B$,I,1)THEN 230
   : NEXT I
0170 FOR I=1TO 20
   : MAT REDIM M(I)
   : FOR J=1TO I
   : M(I)=0
   : NEXT J
   : NEXT I
   : MAT REDIM A$(1)1,N(1,1),M(20),C$(16,4)4
   : PRINT "OK"
   : GOTO 250
0210 FOR I=1TO 18
   : FOR J=1TO 18
   : MAT REDIM N(I,J)
   : N(I,J)=0
   : NEXT J
   : NEXT I
0230 E(2)=E(2)+1
0240 PRINT TAB(40);E(2);"ERRORS"
0250 LOAD DC T"OP1D090A"
0260 DEFFN'15
   : LOAD DC T"START"50