image of READY prompt

Wang2200.org

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

# Sector 689, program filename = 'OP5D100A'
0010 REM .     OP5D100A,  00-00 (6/28/75),   12002
0100 PRINT "MAT MERGE DIAGNOSTIC #4 (COMATF11)..";
   : DIM A$(3,5)5,W1$(4)1,W2$(3)2,B$(20)2,F$(20)2,G$(3,5)5,D$(255)1,S$(5)5,W3$
     (5)2,W4$(5)2,V$(15)5
   : GOSUB '30
   : GOSUB '40
   : GOSUB '50
   : GOSUB '60
   : INIT(01)W1$()
   : X,Y=1
0180 MAT MERGEA$()TO W1$(),W2$(),B$()
   : IF B$(1)=HEX(0000)THEN 270
   : N0=1000
   : MAT MOVE A$(),B$(1),N0TO G$(X,Y)
   : N1=N1+N0
   : T=INT((N1+1)/5.1)
   : X=T+1
   : Y=(N1+1)-T*5
   : GOTO 180
0270 GOSUB '70
   : PRINT "O.K."
   : LOAD DC T#6,"OP5D110A"
0300 DEFFN'40
   : INIT(FF)A$()
   : I=1
0330 J=1
0340 FOR K=1TO 4
0350 R=INT(RND(4)*1000)+1
   : IF R>255THEN 350
   : STR(A$(I,J),K,1)=D$(R)
   : NEXT K
   : J=J+1
   : IF J<6THEN 340
   : I=I+1
   : IF I<4THEN 330
   : RETURN
0440 DEFFN'50
   : N0=5
   : FOR I=1TO 3
   : FOR J=1TO 5
   : S$(J)=A$(I,J)
   : NEXT J
   : MAT SORTS$()TO W3$(),W4$()
   : MAT MOVE S$(),W4$(1),N0TO A$(I,1)
   : IF N0=5THEN 570
   : E(11)=E(11)+1
   : PRINT TAB(40);E(11);"ERRORS"
   : E9$(P9)="NG"
   : LOAD DC T#6,"OP5D110A"
0570 NEXT I
   : RETURN
0590 DEFFN'60
   : FOR I=1TO 3
   : FOR J=1TO 4
   : IF A$(I,J)<=A$(I,J+1)THEN 660
   : PRINT TAB(40);"ERROR IN VERIFY   A$() ="
   : HEXPRINT A$(),
   : STOP
0660 NEXT J
   : NEXT I
   : RETURN
0690 DEFFN'70
   : FOR I=1TO 3
   : FOR J=1TO 5
   : V$((I-1)*5+J)=G$(I,J)
   : NEXT J
   : NEXT I
   : FOR I=1TO 14
   : IF V$(I)<=V$(I+1)THEN 800
   : PRINT TAB(40);"ERROR IN MERGE A$() ="
   : HEXPRINT A$(),
   : STOP
0800 NEXT I
   : RETURN
0820 DEFFN'30
   : INIT(00)D$()
   : FOR I=2TO 255
   : ADD(D$(I),01)
   : ADD(D$(I),D$(I-1))
   : NEXT I
   : RETURN
0890 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"