Listing of file='OP2D020A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 215, program filename = 'OP2D020A' 0010 REM . OP2D020A, 00-00 (06/28/75), 12002 : DIM A$(16),B$1,C$5,D$17 : PRINT "TESTING $TRAN ... "; : B$=HEX(FF) : FOR I=1TO 16 : FOR J=1TO 16 : STR(A$(I),J,1)=B$ : ADD(B$,FF) : NEXT J : NEXT I 0150 FOR I=0TO 255 : BIN(B$)=I : $TRAN(B$,A$()) : IF VAL(B$)<>255-ITHEN 360 : $TRAN(STR(B$,1,1),A$())3F 0170 IF VAL(B$)<>192+I-INT(I/64)*64THEN 360 : NEXT I : X=16 : $TRAN(A$(),A$()<6/6,X^2>) : FOR I=9TO 16 : XOR (A$(I),FF) : NEXT I : GOSUB 330 : $TRAN(C$,A$())00 : IF C$<>HEX(0000000000)THEN 360 : C$=HEX(F00F) : $TRAN(A$()<1,256>,C$)R 0230 IF STR(A$(1),16,1)<>HEX(F0)THEN 360 : STR(A$(1),16,1)=HEX(0F) : GOSUB 330 0250 D$="12$.ABE/F-H465+" : $TRAN(A$(),D$)0F : FOR I=1TO 16 : IF A$(I)<>D$THEN 360 : NEXT I : D$="ABCDEFGHIJKLMN" : $TRAN(D$,STR(D$,2,15))R : IF D$<>"ABBDDFFHHJJLLNN"THEN 360 0290 C$=" " : $TRAN(D$,C$)R : IF D$<>"ABBDDFFHHJJLLNN"THEN 360 : D$=" A BC DE " : F$="ABCDEF" : $TRAN(F$,STR(D$,1,14))R 0310 IF F$<>" C EFCCCCCCCCCC"THEN 360 : GOTO 370 0330 B$=HEX(00) : FOR I=1TO 16 : FOR J=1TO 16 : IF STR(A$(I),J,1)<>B$THEN 360 : ADD(B$,01) : NEXT J : NEXT I : RETURN 0360 E(3)=E(3)+1 : GOTO 380 0370 PRINT "OK" : GOTO 390 0380 PRINT TAB(40);E(3);"ERRORS" 0390 LOAD DC T"OP2D030A" 0400 DEFFN'15 : LOAD DC T"START"50