Listing of file='DATRAN02' on disk='vmedia/732-0050A.wvd.zip'
# Sector 1043, program filename = 'DATRAN02'
0020 PRINT AT(P1,00);"LITERAL ....... <-- TESTING",
0030 X=SPACE
0040 DIM A$100,B$100,C$100,X$1,Y$1,Z$124
0050 GOTO 1000
0100 DEFFN'40(X$,Y$)
: I=0
0110 J=POS(STR(B$,I+1)=Y$)
: IF J=0THEN RETURN
: I=I+J
: STR(B$,I,1)=X$
: Q=Q+.09
: PRINT AT(P1,12);INT(Q);
: GOTO 110
0150 DEFFN'50(Z$,Z)
: FOR I=1TO LEN(STR(B$))
: J=VAL(STR(B$,I))
: IF J<ZTHEN STR(B$,I,1)=STR(Z$,J+1,1)
: NEXT I
: RETURN
1000 RESTORE
1010 READ C$
: IF C$="END"THEN C=1
: A$=C$
1020 B$,A$=C$
: $TRAN(A$,"A523")R
1030 GOSUB '40("A","5")
: GOSUB '40("2","3")
1040 IF B$<>A$THEN E=1
2020 B$,A$=C$
: $TRAN(A$,"5R3E")R
2030 GOSUB '40("5","R")
: GOSUB '40("3","E")
2040 IF B$<>A$THEN E=1
3020 B$,A$=C$
: $TRAN(A$,HEX(3447E641))R
3030 GOSUB '40("4","G")
: GOSUB '40(HEX(E6),"A")
3040 IF B$<>A$THEN E=1
4020 B$,A$=C$
: $TRAN(A$,"@ABCDEF")0F
4030 B$=AND ALL(0F)
: GOSUB '50("@ABCDEF",7)
4040 IF B$<>A$THEN E=1
5020 B$,A$=C$
: $TRAN(A$,"24680ABC3FJD@#DFJSADL;FKJSDFIWERJKLFDSKJFWIOEURUWOIREUOWIUERUUU
J")5E
5030 B$=AND ALL(5E)
: GOSUB '50("24680ABC3FJD@#DFJSADL;FKJSDFIWERJKLFDSKJFWIOEURUWOIREUOWIUERUU
UJ",64)
5040 IF B$<>A$THEN E=1
8080 IF C=0THEN 1010
: C=C+1
: ON C-1GOTO 8100,8110,8120,8130,8140
: GOTO 9000
8100 C$=ALL(00)
: GOTO 1020
8110 C$=ALL(FF)
: GOTO 1020
8120 C$=ALL(01)
: STR(C$,,99)=ADDC$
: GOTO 1020
8130 C$=ALL(01)
: STR(C$,,99)=ADDC$ADDALL(64)
: GOTO 1020
8140 C$=ALL(01)
: STR(C$,,99)=ADDC$ADDALL(C8)
: GOTO 1020
8800 DATA "GGGG38G5DAAJFA5POI3RE9Q843AJ5AL3REJD-1QG3A093RFJKSE","1395GJVRSGJAA
E30A5JGKDLGE3;A498E4AJ5DGJPJRA0EURGO5JGASD9F8DFJ23425GT5J","ASGFAJG19290-
FOIJRE5GALDKFJ1R-290E52331G39594U523KJ;KD5FSDJAFJD"
8810 DATA HEX(4741C38950239C75892305C94147409C8757465746589B73581908A134598730
2948A742379865092378409A72509823490785904287502C987D43907852D03845903F857
50947)
8820 DATA HEX(000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F
2021222324252627282930),HEX(3132333435363738393A3B3C3D3E3F)
8830 DATA HEX(404142434445464748494A4B4C4D4E4F505152535455565758595A6061626364
65666768696A6B6C6D6E6F),HEX(707172737475767778797A7B7C7D7E7F)
8890 DATA "END"
9000 Z=SPACE
: IF X<>ZTHEN E=1
9010 IF E<>0THEN E(P1)=E(P1)+1
9020 PRINT AT(P1,12);"...";AT(P1,16,16);
: IF E(P1)=0THEN PRINT "OK"
: ELSE PRINT E(P1);"ERRORS"
9030 P1=P1+1
: IF P1>P9THEN P1=0
: CONVERT P1TO STR(P$,7,2),(##)
: LOAD DC TP$