REM tkb-CODES-25408.BBC
REM vers 08 Apr 2025-tweaked in rems

REM This is a mish mash of scraps of things tried and then REMmed out.
REM It EVEN uses the Dreaded, Very Bad "Goto"
REM    Please don't tell anyone.
REM    Use it very sparingly, and in shame.
REM
REM
REM 1ST VERSION...
REM  REPEAT
REM a%=65
REM PRINT CHR$(a%)
REM INPUT ans$
REM UNTIL 4=5

REM PRINT "ENTER '9' TO QUIT"
REM REPEAT
REM a%=GET
REM PRINT CHR$(a%)
REM INPUT ans$
REM UNTIL ans$='9'

GOTO 100

PRINT "ENTER ':' TO QUIT"
REPEAT
  a%=GET
  a%=a%-1
  IF a%<32 THEN a%=a%+(122-32+1)  REM 122:z 32:Space31:Non-printing
  PRINT CHR$(a%);
UNTIL a%=ASC("9") REM not ('9')

END



  100 PRINT "ENTER '8' TO QUIT"
REPEAT
  a%=GET
  a%=a%+1
  IF a%>122 THEN a%=a%-(122-32-1) REM 122:z 32:Space31:Non-printing
  PRINT CHR$(a%);
UNTIL a%=ASC("9") REM not ('9')

END

REM ******* start here VVVV **********************

PRINT "ENTER '9' TO QUIT"
REPEAT
  a%=GET
  PRINT CHR$(a%); REM ******
UNTIL a%=ASC("9") REM not ('9')