image of READY prompt

Wang2200.org

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

# Sector 344, program filename = 'OP1D080A'
0010 REM .     OP1D080A,  00-00 (6/28/75),   12002
0100 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$
   : IF A$(1)<>STR(B$,1,I)THEN 400
   : NEXT I
   : MAT REDIM A$(64)1
   : FOR I=1TO 64
0220 IF A$(I)<>STR(B$,I,1)THEN 400
   : NEXT I
   : 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
   : IF E(8)<>0THEN 410
   : PRINT "OK"
   : GOTO 430
0340 FOR I=1TO 18
   : FOR J=1TO 18
   : MAT REDIM N(I,J)
   : N(I,J)=0
   : NEXT J
   : NEXT I
0400 E(8)=E(8)+1
0410 PRINT TAB(40);E(8);"ERRORS"
   : E9$(P9)="NG"
0430 LOAD DC T#6,"OP1D090A"
0440 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"