image of READY prompt

Wang2200.org

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

# Sector 363, program filename = 'OP5D040A'
0010 REM .     OP5D040A,  00-00 (6/28/75),   12002
0100 DATA "ABCDEFGHIJKLMNO","ADGJMBEHKNCFILO"
   : DATA "ABCDEABCDEABCDE","KLMNOFGHIJABCDE"
   : DATA "ABBBCAABBCAAABC"
   : DIM A$(3,5)1,W1$(4)1,W2$(3)2,S$(15)2,B$(16)1,Z$(1)15
   : DIM S1$(3)2
   : PRINT "MAT MERGE",
   : FOR I=1TO 5
0170 READ Z$(1)
   : MAT COPY Z$()TO A$()
   : GOSUB '40
   : NEXT I
   : INIT("X")A$()
   : GOSUB '40
   : INIT(01)W1$()
   : FOR I=1TO 4
   : MAT MERGEA$()TO W1$(),W2$(),S$()
   : IF I=4THEN 300
   : IF W1$(I)<>HEX(FF)THEN 530
   : IF VAL(W1$(4))<>ITHEN 530
   : NEXT I
0300 IF S$(1)<>HEX(0000)THEN 530
   : NEXT I
   : INIT(01)W1$()
   : MAT MERGEA$()TO W1$(),W2$(),S1$()
   : IF W1$(1)<>HEX(04)THEN 530
   : IF W1$(2)<>HEX(01)THEN 530
   : IF W1$(3)<>HEX(01)THEN 530
   : IF W1$(4)<>HEX(00)THEN 530
   : RESTORE
   : READ Z$(1)
   : MAT COPY Z$()TO A$()
   : W1$(1)=HEX(03)
0420 W1$(2)=HEX(04)
   : W1$(3)=HEX(05)
   : INIT(FF)B$()
   : M=1
   : GOSUB 620
   : MAT COPY B$()TO Z$()
   : IF STR(Z$(1),1,6)<>"CDEIJO"THEN 530
   : IF B$(7)<>HEX(FF)THEN 530
   : IF E(5)>0THEN 540
   : PRINT "OK"
   : GOTO 560
0530 E(5)=E(5)+1
0540 PRINT TAB(40);E(5);"ERRORS"
   : E9$(P9)="NG"
0560 LOAD DC T#6,"OP5D050A"
0570 END
0580 DEFFN'40
   : INIT(00)B$()
   : M=1
   : INIT(01)W1$()
0620 MAT MERGEA$()TO W1$(),W2$(),S$()
   : N0=15
   : MAT MOVE A$(),S$(1),N0TO B$(M)
   : M=M+N0
   : IF N0<>0THEN 620
   : IF S$(1)<>HEX(0000)THEN 530
   : FOR J=1TO 14
   : IF B$(J)>B$(J+1)THEN 530
   : NEXT J
   : RETURN
0720 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"