$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