image of READY prompt

Wang2200.org

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

# Sector 488, program filename = 'OP5D030A'
0010 REM .     OP5D030A,  00-00 (6/28/75),   12002
0100 DIM A(10),A$(10)2,W$(10)2,S$(10)2,B$(1,1)
   : DIM C$(50,10)2,W1$(10,50)2,S1$(50,10)2,D$(25,20)2
   : PRINT "MAT SORT",
   : GOSUB '40(0,1,2,3,4,5,6,7,8,9)
   : GOSUB '40(9,8,7,6,5,4,3,2,1,0)
0150 GOSUB '40(1,0,3,2,5,4,7,6,9,8)
   : GOSUB '40(0,1,0,1,0,1,0,1,0,1)
   : GOSUB '40(0,0,0,0,0,1,1,1,1,1)
   : GOSUB '40(0,9,1,8,2,7,3,6,4,5)
   : FOR K=1TO 10
   : FOR L=1TO 10
   : A(L)=INT(RND(1)*10)
   : NEXT L
   : GOSUB '41
   : NEXT K
   : INIT(00)S$()
   : MAT SORTB$()TO W$(),S$()
0260 IF S$(1)<>HEX(0101)THEN 390
   : FOR I=1TO 50
   : FOR J=1TO 10
   : FOR K=1TO 2
   : BIN(STR(C$(I,J),K))=INT(RND(1)*26)+65
   : NEXT K
   : NEXT J
   : NEXT I
   : MAT SORTC$()TO W1$(),S1$()
   : GOSUB 520
   : IF E(4)>0THEN 400
   : PRINT "OK"
   : GOTO 420
0390 E(4)=E(4)+1
0400 PRINT TAB(40);E(4);"ERRORS"
   : E9$(P9)="NG"
0420 LOAD DC T#6,"OP5D040A"
0430 DEFFN'40(A(1),A(2),A(3),A(4),A(5),A(6),A(7),A(8),A(9),A(10))
0440 DEFFN'41
   : MAT CONVERT A()TO A$()
   : MAT SORTA$()TO W$(),S$()
   : FOR I=1TO 9
   : IF A(VAL(S$(I)))>A(VAL(S$(I+1)))THEN 390
   : IF STR(S$(I),2)<>HEX(01)THEN 390
   : NEXT I
   : RETURN
0520 FOR I=1TO 50
   : FOR J=1TO 9
   : IF S1$(I,J)=HEX(0000)THEN 610
   : IF S1$(I,J+1)=HEX(0000)THEN 610
   : IF C$(VAL(S1$(I,J)),VAL(STR(S1$(I,J),2)))>C$(VAL(S1$(I,J+1)),VAL(STR(S1$(
     I,J+1),2)))THEN 390
   : NEXT J
   : IF S1$(I,10)=HEX(0000)THEN 630
   : NEXT I
   : RETURN
0610 J=9
   : NEXT J
0630 I=50
   : NEXT I
   : RETURN
0660 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"