Listing of file='OP5D010A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 84, program filename = 'OP5D010A'
0010 REM OP5D010A, 00-00 (06/28/75), 12002
0020 SELECT PRINT 005
: GOSUB 600
: GOSUB '100
: GOSUB 600
0030 DIM N(21),A$(21)8,W$(21)2,S$(21)2,M(1,1),B$(1,1)
0040 DIM Q$(3,20)8,R(3,20),W1$(3,20)2,S1$(3,20)2
0050 DATA -1.23E42, -4.56E24, -1.234567890123, -1.234567890122
0060 DATA -.5, -.06, -.007, -8E-24, -9E-42, 0, 4E-21, 3E-12
0070 DATA .002, .01, .9, 1, 1.234567890120, 1.234567890121
0080 DATA 1.234567890121, 3.45E13, 1.22E31
0090 PRINT "MAT CONVERT",
0100 FOR I=21 TO 1 STEP -1
: READ N(I)
: NEXT I
0110 MAT CONVERT N() TO A$()
: MAT SORT A$() TO W$(),S$()
0120 FOR I=1 TO 20
: IF N(VAL(S$(I)))>N(VAL(S$(I+1))) THEN 290
0130 NEXT I
0140 IF A$(1)<> HEX(9311220000000000) THEN 290
0150 IF A$(10)<>HEX(8873000000000000) THEN 290
0160 IF A$(13)<>HEX(1420999999999999) THEN 290
0170 IF A$(21)<>HEX(0578769999999999) THEN 290
0180 M(1,1)=1.234567890123E12
: A$=HEX(9121234567890123)
0190 FOR I=1 TO 8
: MAT CONVERT M()TO B$()(I,I)
0200 IF STR(B$(1,1),I)<>STR(A$,1,I)THEN 290
: NEXT I
0210 IF B$(1,1)<>HEX(91919191919191912123456789012320)THEN 290
0220 FOR I=1 TO 20
: FOR J=1 TO 3
: R(J,I)=RND(1)*4-2
0230 NEXT J
: NEXT I
0240 MAT CONVERT R() TO Q$()
: MAT SORT Q$() TO W1$(),S1$()
0250 FOR I=1 TO 3
: FOR J=1 TO 19
0260 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 290
0270 NEXT J
: NEXT I
0280 GOTO 300
0290 E(4)=E(4)+1
: GOTO 310
0300 PRINT "OK"
: GOTO 330
0310 PRINT TAB(40);E(4);"ERRORS"
0330 LOAD DC T"OP5D020A"
0600 PRINT HEX(0A0A);
: PRINT HEX(03);"2200 SYSTEM DIAGNOSTIC - SORT PASS ";Z9(1);" **** ";E(4);"
ERRORS"
: PRINT "------------------------------------"
: RETURN
0700 DEFFN'100
0710 ON O8 GOTO 720,730,740
: STOP "SYSTEM ERROR"
0720 SELECT PRINT 005
: RETURN
0730 SELECT PRINT 215
: RETURN
0740 SELECT PRINT 211
: RETURN
0750 DEFFN'15
: LOAD DC T"START"50