Listing of file='OP2D020A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 201, program filename = 'OP2D020A' 0010 REM . OP2D020A, 00-00 (6/28/75), 12002 0100 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 : FOR I=0TO 255 : BIN(B$)=I : $TRAN(B$,A$()) : IF VAL(B$)<>255-ITHEN 630 : $TRAN(STR(B$,1,1),A$())3F 0240 IF VAL(B$)<>192+I-INT(I/64)*64THEN 630 : NEXT I : X=16 : $TRAN(A$(),A$()<6/6,X^2>) : FOR I=9TO 16 : XOR (A$(I),FF) : NEXT I : GOSUB 550 : $TRAN(C$,A$())00 : IF C$<>HEX(0000000000)THEN 630 : C$=HEX(F00F) : $TRAN(A$()<1,256>,C$)R 0360 IF STR(A$(1),16,1)<>HEX(F0)THEN 630 : STR(A$(1),16,1)=HEX(0F) : GOSUB 550 : D$="12$.ABE/F-H465+" : $TRAN(A$(),D$)0F : FOR I=1TO 16 : IF A$(I)<>D$THEN 630 : NEXT I : D$="ABCDEFGHIJKLMN" : $TRAN(D$,STR(D$,2,15))R 0460 IF D$<>"ABBDDFFHHJJLLNN"THEN 630 : C$=" " : $TRAN(D$,C$)R : IF D$<>"ABBDDFFHHJJLLNN"THEN 630 : D$=" A BC DE " : F$="ABCDEF" : $TRAN(F$,STR(D$,1,14))R : IF F$<>" C EFCCCCCCCCCC"THEN 630 : GOTO 640 0550 B$=HEX(00) : FOR I=1TO 16 : FOR J=1TO 16 : IF STR(A$(I),J,1)<>B$THEN 630 : ADD(B$,01) : NEXT J : NEXT I : RETURN 0630 E(2)=E(2)+1 0640 IF E(2)>0THEN 670 : PRINT "OK" : GOTO 690 0670 PRINT TAB(40);E(2);"ERRORS" : E9$(P9)="NG" 0690 LOAD DC T#6,"OP2D030A" 0700 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"