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

   10 INPUT "VERZOEGERUNGSSTUFE?";S
  100 FOR A=540 TO 639:READ B:POKE A,B:NEXT 
  110 DATA 33,151,239,1,152,3,17,191,239,237,184,6,40,33,0,236,54,32,35,16 
  120 DATA 251,219,145,6,255,168,40,5,14,11,205,5,0,42,18,2,71,62,32,190
  130 DATA 32,52,62,8,184,40,13,62,9,184,40,16,62,157,119,34,18,2,24,16,62  
  140 DATA 152,189,40,243,45,24,240,62,191,189,40,235,44,24,232,42,20,2,54 
  150 DATA 138,42,22,2,54,138,42,24,2,35,34,24,2,201,62,50,50,17,2,201
  200 DOKE 530,-4180:POKE 529,0:DOKE 536,0:  CLS:POKE-5120,32
  210 DOKE 532,(-5120+40*RND(1)):DOKE 534,  (-5120+40*RND(1)):CALL 540
  220 IF PEEK(529)=50 THEN GOTO 250
  230 FOR I=1 TO S:X=I*I:NEXT:GOTO 210 
  250 FOR A=1 TO 20:BEEP:POKE(DEEK(530)),157:BEEP:POKE(DEEK(530)),138:NEXT
  260 POKE(DEEK(530)),202:P=DEEK(536):IF P<0 THEN P=65536-P
  270 PRINT "PUNKTE:";P:Y$="J":INPUT "NOCH EINMAL?(J/N)";Y$
  280 IF Y$="N"THEN END:ELSE GOTO 200            
  300 GOTO 280