Listing of file='DATRAN02' on disk='vmedia/mvp-diag-3.5.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$