This example prompts the user for a phone number.

Lines 10-20 set up NuInput, which only needs to be done once.
Alternatively, you can have NuInput as Applesoft program lines 0-19,
so you don't need the separate file. See the readme for more info.


10 PRINT CHR$(4);"BRUN NUINPUT.BRUN" : REM load NuInput

20 ST$ = "" : REM [only necessary before the first CALL 250 in program]



100 PRINT "WHAT'S YOUR PHONE NUMBER?"; : REM user prompt

110 KL$="+-()1234567890" : KC$="[" : REM allowed chars, and ESC submit

120 POKE 253,14 : POKE 254,(16+2) : REM max length, and select options

130 DE$="" : CALL 250 : PRINT : REM no default entry; call NuInput

140 IF PEEK(8)=27 THEN END : REM if ESC was pressed, quit

150 REM ST$ is now the phone number