Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)

   10 GOTO 60
   20 I=INSTR(CHR$(PEEK(36)),B$):IF I THEN OUT A,5:OUT A,T(I):GOTO 20
   30 I=INSTR(CHR$(PEEK(36)),C$):IF I THEN OUT A,37:OUT A,Z(I):GOTO 20
   40 IF PEEK(36)=32 THEN OUT A,5:OUT A,256*RND(2):GOTO 20
   50 OUT A,3:IF PEEK(36)=27 THEN OUT 136,0:END:ELSE 20
   60 DIM T(79),Z(65):RESTORE 100:READ B$:FOR I=1 TO 79:T(I)=ASC(MID$(B$,I)):NEXT I
   70 READ B$:FOR I=1 TO 65:Z(I)=ASC(MID$(B$,I)):NEXT I:T(56)=34:Z(45)=34
   80 A=128:INPUT "mit/ohne Summer (1/0):";I:IF I THEN OUT 136,A
   90 B$="6UI8O9P^@":C$="yaxscvfbgnhm<k>l+-/q!w"+CHR$(34)+"er$t%z&ui(o)pYAXSCVFBGNHM,K.L;=?Q1W2ER4T5Z":GOTO 20
  100 DATA "yrlf`[VQLlf`[VQLHD@=9630-+(&630-+(&$ "
  110 DATA "yrlf`[VQLlf`[VQLHD@=9630-+630-+(&$ "