I need the code it TYPE cammand.

Qb code
Code:
FIELD #5, 20 AS X$: FIELD #5, 15 AS N$, 1 AS NEG$, 2 AS Y$, 2 AS Z$
2 GET 5, 1: A$ = X$: GET 5, 2: B$ = X$: GET 5, 3: W = CVI(Z$): N = ASC(NEG$)