image of READY prompt

Wang2200.org

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

# Sector 309, program filename = 'OP1D090A'
0010 REM .     OP1D090A,  00-00 (6/28/75),   12002
0100 PRINT "TESTING MAT READ... ";
   : DIM A$(1)64,B$(18,2)1,N(20),M(5,4),C$64
   : DATA "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ01234
     56789"
   : READ C$
   : RESTORE
   : FOR I=1TO 64
   : RESTORE
   : MAT READ A$(1)I
0180 IF A$(1)<>STR(C$,1,I)THEN 670
   : NEXT I
   : MAT READ A$(36)1
   : FOR I=1TO 36
   : IF A$(I)<>STR(C$,I,1)THEN 670
   : NEXT I
   : RESTORE 2
   : MAT READ B$
   : GOSUB 610
   : INIT(00)B$()
   : MAT READ B$(36,1)1
   : GOSUB 610
   : INIT(00)B$()
   : MAT READ B$(1,36)1
   : GOSUB 610
   : INIT(00)B$()
   : MAT READ B$(6,6)1
   : GOSUB 610
   : FOR I=1TO 20
   : RESTORE 38
0380 MAT READ N(I)
   : FOR J=1TO I
   : IF N(I)<>ITHEN 670
   : NEXT J
   : MAT N=ZER
   : NEXT I
   : RESTORE 38
   : MAT READ M
   : MAT REDIM M(20,1)
   : FOR I=1TO 20
   : IF M(I,1)<>ITHEN 670
   : NEXT I
   : MAT REDIM B$(9,4)1
   : RESTORE
   : MAT READ A$(1),B$,N(10),M(1,10)
   : IF A$(1)<>STR(C$,1,16)THEN 670
   : GOSUB 610
   : FOR I=1TO 10
   : IF N(I)<>ITHEN 670
0560 IF M(1,I)<>10+ITHEN 670
   : NEXT I
   : IF E(9)<>0THEN 680
   : PRINT "OK"
   : GOTO 700
0610 MAT REDIM B$(1,1)36
   : RESTORE 2
   : IF B$(1,1)<>STR(C$,1,36)THEN 670
   : RETURN
0650 DATA "A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q",
     "R","S","T","U","V","W","X","Y","Z","0","1","2","3","4","5","6","7","8","
     9"
0660 DATA 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20
0670 E(9)=E(9)+1
0680 PRINT TAB(40);E(9);"ERRORS"
   : E9$(P9)="NG"
0700 LOAD DC T#6,"OP2D010A"
0710 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"