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$