$73-$8A/115-138:   Subroutine: Get next Byte of BASIC Text (CHRGET)
 $79/121:           Entry to Get same Byte again (CHRGOT)

            ,0073  INC $7A       ,0082  BEQ $0073
            ,0075  BNE $0079     ,0084  SEC
            ,0077  INC $7B       ,0085  SBC #$30
    CHRGOT: ,0079  LDA $0801     ,0087  SEC
            ,007C  CMP #$3A      ,0088  SBC #$D0
            ,007E  BCS $008A     ,008A  RTS
            ,0080  CMP #$20