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

    0!MUSIKAUSWAHL
   10 WINDOW:CLS
   20 U$="FOLGENDE MUSIK STEHT ZUR AUSWAHL":PRINT TAB(4)U$
   30 PRINT TAB(4)STRING$(LEN(U$)/2,CHR$(148));STRING$(LEN(U$)/2,CHR$(151)):PRINT
   40 PRINT "1-KOMMT EIN VOGEL GEFLOGEN"
   50 PRINT "2-TANCUJ,TANCUJ"
   60 PRINT "3-BUDEME"
   70 PRINT "4-BEATLES":PRINT:WINDOW 10,23,0,39
   80 INPUT "IHRE WAHL:";W
   90 ON W GOTO 150,350,750,900,120
  100 PRINT "MOECHTEN SIE NOCH EIN LIED HOEREN?"
  110 PRINT "GEBEN SIE DIE LIEDNUMMER AN ODER 5!":PRINT:GOTO 80 
  120 W$="AUF WIEDERSEHEN!":PRINT TAB(10)W$:PRINT
  130 PRINT TAB(10)STRING$(LEN(W$),CHR$(42))
  140 WINDOW:END
  150 DATA 172,.5,162,.5,144,1,172,1
  160 DATA 172,1,172,1,193,1,193,.5
  170 DATA 172,.5,162,1,193,1,193,.5
  180 DATA 128,.5,144,2,172,.5,162,.5
  190 DATA 144,1,172,1,172,1,172,1
  200 DATA 193,1,193,.5,172,.5,162,1
  210 DATA 229,1,229,1,216,2
  220 OUT 136,128:T=200:RESTORE 150
  230 FOR I=1 TO 27
  240 READ H,L:GOSUB 2000
  250 NEXT I:OUT 136,0:GOTO 100
  350 DATA 153,1,153,1,128,1,128,1
  360 DATA 128,.5,144,1,144,.5,128,.5
  370 DATA 144,1,144,.5,172,1,172,1
  380 DATA 144,1,144,1,144,.5,153,1
  390 DATA 153,.5,144,.5,153,1,153,.5
  400 DATA 193,1,193,1,153,1,153,1
  410 DATA 153,.5,172,1,172,.5,153,.5
  420 DATA 172,1,172,.5,128,1,-16,1
  430 DATA 229,1,204,1,172,.5,193,1
  440 DATA 193,1.5,0,.25,153,1.5,193,.5
  450 DATA -16,.5,0,.5,-16,1,144,1.5
  460 DATA 172,.5,204,.5,0,.5,229,1
  470 DATA -16,1,-16,1,229,1,204,1
  480 DATA 172,.5,193,1,204,.5,172,.5
  490 DATA 193,.5,193,1,0,.25,153,1.5
  500 DATA 193,.5,-16,.5,0,.5,-16,1
  510 DATA 144,1.5,172,.5,204,.5,0,.5
  520 DATA 229,1,-16,1,-16,1,229,1
  530 DATA 204,1,172,.5,193,1,204,.5
  540 DATA 172,.5,193,.5,193,1
  550 OUT 136,128:T=140:RESTORE 350
  560 FOR I=1 TO 79
  570 READ H,L:GOSUB 2000
  580 NEXT I:OUT 136,0:GOTO 100
  750 DATA -16,.5,-16,.5,193,1,193,1
  760 DATA -16,1,-16,1,229,1,229,1
  770 DATA 0,1,204,.5,193,.5,204,.5
  780 DATA 229,.5,204,1,204,1,153,1
  790 DATA 0,.5,0,.5,-16,.5,-16,.5
  800 DATA 193,1,193,1,-16,1,-16,1
  810 DATA 229,1,229,1,0,1,172,.5
  820 DATA 153,.5,172,.5,182,.5,172,1
  830 DATA 172,1,128,1
  840 OUT 136,128:T=200:RESTORE 750
  850 FOR I=1 TO 34
  860 READ H,L:GOSUB 2000
  870 NEXT I:OUT 136,0:GOTO 100
  900 DATA 193,1,193,1,193,1,193,.75
  910 DATA 172,.25,-16,.75,-16,.25,-16,.75
  920 DATA -16,.25,-16,2,-16,.75,-16,.25
  930 DATA -16,.75,-16,.25,-16,2,-18,.75
  940 DATA -18,.25,-18,.75,-18,.25,-18,2
  950 DATA 193,1,193,1,193,1,193,.75
  960 DATA 172,.25,-16,.75,-16,.25,-16,.75
  970 DATA -16,.25,-16,2,-16,.75,-16,.25
  980 DATA -16,.75,-16,.25,-16,2,-18,.75 
  990 DATA -18,.25,-18,.75,-18,.25,-18,2
 1000 OUT 136,128:T=180:RESTORE 900
 1010 FOR I=1 TO 40
 1020 READ H,L:GOSUB 2000
 1030 NEXT I:OUT 136,0:GOTO 100
 2000 IF H=0 THEN 2040
 2010 IF H>0 THEN 2020:ELSE 2030
 2020 OUT 128,7:OUT 128,H:GOTO 2040
 2030 OUT 128,39:OUT 128,-H
 2040 FOR Q=1 TO L*T:NEXT Q:OUT 128,3:RETURN