PRINT USING

 A function which convert BASIC Print Using to M2000 format$()

FUNCTION USING(A$) {
	VAR P,B$,B1$,C$, ALL=STACK.SIZE
	REPEAT
		B1$=LEFTPART$(A$,"#")+"{"+P
		B$+=B1$
		A$=MID$(A$,LEN(B1$))
		INTEGER D2=0, D1=0, I=1
		WHILE MID$(A$,I,1)="#"
			I++
		END WHILE
		D2=I
		IF MID$(A$,I,1)="." THEN
			D2++:I++
			D1=0
			WHILE MID$(A$,I,1)="#"
				D1++
				I++
			END WHILE
			D2+=D1
		END IF
		A$=MID$(A$,D2)
		C$=LEFTPART$(A$,"#")
		IF LEN(C$)=0 THEN C$=A$:A$=""
		B$+=":"+D1+":-"+D2+"}"
		P++
	WHEN A$<>""
	TRY OK {
		INLINE "=FORMAT$("+QUOTE$(B$+C$)+STRING$(", NUMBER", P)+")"
	}
	IF ERROR OR NOT OK THEN C$=ERROR$: ERROR "Problem on parameter #"+(ALL-STACK.SIZE+1)
}
PRINT USING("A=#####.##ms B=##.##sec c=###%", 1, 1.3, 12.4)
PRINT FORMAT$("A={0:2:-8}ms B={1:2:-5}sec c={2:0:-3}%",1, 1.3, 12.4)