Listing of file='TAM.012B' on disk='vmedia/701-2216A.wvd.zip'
# Sector 102, program filename = 'TAM.012B' 0010 REM 'TAM.012B' (CONVERT NUMERIC) 0040 DIM Q(7),Q6$64,Q$1,Q3$(2)40,Q1$(2)40,Q7$1 1000 % THIS STATEMENT FOR OVERLAYING TAM.012B 6200 DEFFN'247(Q6$,Q(1),Q(2)) : IF LEN(Q6$)>19THEN 6265 : IF NUM(STR(Q6$,1,LEN(Q6$)))<>LEN(Q6$)THEN 6265 : CONVERT Q6$TO Q9 : IF Q9>=10^Q(1)THEN 6275 : IF Q9*10^Q(2)<>INT(Q9*10^Q(2))THEN 6285 : Q$=" " : RETURN 6265 Q$=HEX(21) : RETURN 6275 Q$=HEX(22) : RETURN 6285 Q$=HEX(23) : RETURN