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

 1000 A=100:GOTO 20:REM BASICODE-ASCII
 1010 SR$="BASICODE - ASCII"
 1020 HO=(HO-LEN(SR$)-4)/2
 1030 VE=0
 1040 GOSUB 110:GOSUB 150
 1050 REM
 1060 HO=0:VE=2:GOSUB 110
 1070 PRINT "IN$ und IN (Subroutine # 210):"
 1080 HO=0:VE=4:GOSUB 110
 1090 PRINT "Taste druecken (DELETE => Ende) ";
 1100 GOSUB 210
 1110 IF IN=127 THEN 950
 1120 REM
 1130 FOR VE=5 TO 7
 1140 HO=0:GOSUB 110
 1150 PRINT "                            "
 1160 NEXT VE
 1170 REM
 1180 HO=0:VE=6:GOSUB 110
 1190 PRINT IN$;" - Wert IN (ASCII):";IN
 1200 GOTO 1060
 1210 REM
32000 REM --------------------------
32010 REM FRIEDRICH DORMEIER
32020 REM
32030 REM D-1000 BERLIN 39
32040 REM
32050 REM C64/C128 - 10/89
32060 REM --------------------------
32070 REM ERSTAUSSTRAHLUNG: RADIO DDR
32080 REM 900307