Listing of file='DATRAN04' on disk='vmedia/mvp-diag-2.6.2.wvd.zip'
# Sector 2652, program filename = 'DATRAN04'
0020 PRINT AT(P1,00);"STRING ........ <-- TESTING",
0030 X=SPACE
0040 DIM A$100,B$100,C$100,Z$124,X$1,Y$1,M$124
0050 GOTO 1000
0100 DEFFN'40(Z$,Z,B)
: H=0
0130 H=H+2
: IF H>ZTHEN RETURN
: X$=STR(Z$,H-1)
: Y$=STR(Z$,H)
: IF X$=" "AND Y$=" "THEN RETURN
: I=0
0140 J=POS(STR(B$,I+1)=Y$)
: IF J=0OR I+J>BTHEN 130
: I=I+J
: STR(B$,I,1)=X$
: Q=Q+.09
: PRINT AT(P1,12);INT(Q);
: GOTO 140
0150 DEFFN'50(Z$,Z,B)
: FOR I=1TO 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$
: M$="A523"
: $TRAN(A$,M$)R
1030 GOSUB '40(M$,124,100)
1040 IF B$<>A$THEN E=1
1050 B$,A$=C$
: M$="A523"
: $TRAN(STR(A$,,2),STR(M$,1,4))R
1060 GOSUB '40(M$,4,2)
1070 IF B$<>A$THEN E=1
2020 B$,A$=C$
: M$="5R3E"
: $TRAN(A$,M$)R
2030 GOSUB '40(M$,124,100)
2040 IF B$<>A$THEN E=1
3020 B$,A$=C$
: M$=HEX(3447E641)
: $TRAN(STR(A$,1,48),STR(M$,,4))R
3030 GOSUB '40(M$,4,48)
3040 IF B$<>A$THEN E=1
4020 B$,A$=C$
: M$="@ABCDEF"
: $TRAN(STR(A$,,3*5),STR(M$,,7))0F
4030 STR(B$,,15)=AND ALL(0F)
: GOSUB '50(M$,7,15)
4040 IF B$<>A$THEN E=1
5020 B$,A$=C$
: M$="24680ABC3FJD@#DFJSADL;FKJSDFIWERJKLFDSKJFWIOEURUWOIREUOWIUERUUUJ"
: $TRAN(STR(A$,,SQR(9801)),STR(M$,,64))5E
5030 STR(B$,,99)=AND ALL(5E)
: GOSUB '50(M$,64,99)
5040 IF B$<>A$THEN E=1
8000 IF E=1THEN STOP #
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$