This is done in about the same way as getting string input. Start by putting the prompt at 821ch:
ld de,821ch ;put the prompt here ld hl,prompt ld bc,prompt_len ;length of prompt, max = 16 ldir
Then call PGMIO_EXEC, but with a different command in ASM_IND_CALL:
ld a,1 ;code for NUMERIC input ld (ASM_IND_CALL),a call PGMIO_EXEC
The input is automatically parsed as an expression, and the result is placed in OP1.
call _formDisp ;display it ret prompt: .db \"Inp:\",0 prompt_len = $-prompt"}
There are no comments here yet.
ld de,821ch ;put the prompt here ld hl,prompt ld bc,prompt_len ;length of prompt, max = 16 ldir