image of READY prompt

Wang2200.org

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