
        NAM     STORENUM
        
*       Version 1.0
*       hjoel 1987-12-21
*
*       Entry:  IX points to beginning of
*                 string location.
*               AccB contains value of stopsign.
*       Acca, AccB & IX changed during operation.
***

        ORG     $A100

EONUM   RMB     1

STONUM  STB     EONUM
NEWNUM  JSR     GETKEY  
        CMPA    EONUM           Stopsign?
        BEQ     BEGIN           If so, get out.
        LDY     #NEWNUM
        JSR     BOUNDS
        STA     ,X+             Store digit.
        BRA     NEWNUM
        
BEGIN   RTS

        END     STONUM
        
