Listing of file='OP5D010A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 702, program filename = 'OP5D010A'
0010 REM . OP5D010A, 00-00 (6/28/75), 12002
0100 SELECT PRINT 005
: GOSUB 600
: GOSUB '100
: GOSUB 600
: DIM N(21),A$(21)8,W$(21)2,S$(21)2,M(1,1),B$(1,1)
: DIM Q$(3,20)8,R(3,20),W1$(3,20)2,S1$(3,20)2
: DATA -1.23E42,-4.56E24,-1.234567890123,-1.234567890122
0170 DATA -.5,-.06,-.007,-8E-24,-9E-42,0,4E-21,3E-12
: DATA .002,.01,.9,1,1.234567890120,1.234567890121
: DATA 1.234567890121,3.45E13,1.22E31
: PRINT "MAT CONVERT",
: FOR I=21TO 1STEP -1
: READ N(I)
: NEXT I
: MAT CONVERT N()TO A$()
0250 MAT SORTA$()TO W$(),S$()
: FOR I=1TO 20
: IF N(VAL(S$(I)))>N(VAL(S$(I+1)))THEN 530
: NEXT I
: IF A$(1)<>HEX(9311220000000000)THEN 530
: IF A$(10)<>HEX(8873000000000000)THEN 530
: IF A$(13)<>HEX(1420999999999999)THEN 530
0320 IF A$(21)<>HEX(0578769999999999)THEN 530
: M(1,1)=1.234567890123E12
: A$=HEX(9121234567890123)
: FOR I=1TO 8
: MAT CONVERT M()TO B$()(I,I)
: IF STR(B$(1,1),I)<>STR(A$,1,I)THEN 530
: NEXT I
0390 IF B$(1,1)<>HEX(91919191919191912123456789012320)THEN 530
: FOR I=1TO 20
: FOR J=1TO 3
: R(J,I)=RND(1)*4-2
: NEXT J
: NEXT I
: MAT CONVERT R()TO Q$()
: MAT SORTQ$()TO W1$(),S1$()
: FOR I=1TO 3
: FOR J=1TO 19
0490 IF R(VAL(S1$(I,J)),VAL(STR(S1$(I,J),2)))>R(VAL(S1$(I,J+1)),VAL(STR(S1$(I,
J+1),2)))THEN 530
: NEXT J
: NEXT I
: GOTO 540
0530 E(2)=E(2)+1
0540 IF E(2)>0THEN 570
: PRINT "OK"
: GOTO 590
0570 PRINT TAB(40);E(2);"ERRORS"
: E9$(P9)="NG"
0590 LOAD DC T#6,"OP5D020A"
0600 PRINT HEX(0A0A);
: PRINT HEX(03);"2200 HARDWARE DIAGNOSTIC - SORT"
: PRINT "------------------------------------"
: RETURN
0640 DEFFN'100
: ON O8GOTO 670,690,710
: STOP "SYSTEM ERROR"
0670 SELECT PRINT 005
: RETURN
0690 SELECT PRINT 215
: RETURN
0710 SELECT PRINT 211
: RETURN
0730 DEFFN'15
: COM CLEAR
: LOAD DC T#6,"START"