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

   10 CLEAR:WINDOW:CLS:OUT 136,0:POKE-4152,32
   20 DIM H(36):DIM P(3,479):DIM VR(4):DIM MA(4)
   23 DEF FN ZZ(Q)=INT(Q*RND(PEEK(31)+1))
   25 GOTO 50
   30 DATA-18,-17,-16,243,229,216,204,193,182,172,162,153,144,136,128,121,114
   40 DATA 108,102,96,91,86,81,76,72,68,64,60,57,54,51,48,45,43,40,38
   50 RESTORE 30:FOR I=1 TO 36:READ H(I):NEXT I:GOTO 140
   60 OUT 136,128:FOR I=1 TO TA:READ HH,L:IF HH=0 THEN 80
   70 IF H(HH)>0 THEN OUT 128,7:OUT 128,H(HH):ELSE OUT 128,39:OUT 128,-H(HH)
   80 FOR J=1 TO L*T:NEXT J:OUT 128,3:NEXT I:OUT 136,0:RETURN
  140 PRINT STRING$(40,"")
  141 PRINT " "
  142 PRINT "   "
  143 PRINT "     "
  144 PRINT "  "
  145 PRINT ""
  170 WINDOW 9,23,0,19:PRINT "KOMPOSITIONEN:":PRINT
  180 PRINT "     John LENNON         Paul McCARTNEY "
  190 PRINT "BEARBEITUNG:":PRINT
  200 PRINT "     Joachim RUDECK      Stefan  RUDECK  "
  210 PRINT "GRAFIK:":PRINT
  220 PRINT "     Stefan  RUDECK "
  230 PRINT AT(23,0);STRING$(40,""):WINDOW 2,23,20,39
  250 PRINT "Wer kennt sie nicht,die vier LiverpoolerMusiker,  die  unter";
  260 PRINT "dem Namen  ";CHR$(34);"BEATLES";CHR$(34);"weltbekannt wurden?!";
  270 PRINT "John LENNON und PaulMcCARTNEY  waren einAutorenteam, das ei-";
  280 PRINT "ne Vielzahl ueberauserfolgreicher  Songsschrieb, die sie ge-";
  290 PRINT "meinsam mit  RichardSTARKEY  und  GeorgeHARRISON aufnahmen. ";
  300 PRINT "Im folgenden kleinenKonzert wird nun ei-ne bescheidene  Aus-";
  310 PRINT "wahl ihrer bekannte-sten Hits erklingen.";
  320 PRINT "Viel Vergnuegen!";
  330 WINDOW 7,22,0,19:GOTO 980
  340 DATA 1,1,1,1,1,1,1,1,15,16,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,15,3,2,2,2
  350 DATA 2,9,1,1,1,1,1,1,1,1,1,1,1,1,15,2,2,2,2,2,2,2,2,16,1,1,1,1,1,1
  360 DATA 1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,16,1,1,1,1,1,1,1,7,2,2,2,2,2,2
  370 DATA 2,2,2,2,2,4,1,1,1,1,1,1,1,3,2,2,2,2,2,2,2,2,2,2,2,7,16,1,1,1
  380 DATA 1,1,15,2,2,2,2,2,2,2,2,2,2,2,2,2,8,1,1,1,1,1,2,2,2,2,2,2,2,2
  390 DATA 2,2,2,6,10,2,4,1,1,1,1,1,2,2,2,2,2,4,16,1,14,10,1,14,2,2,2,1,1,1
  400 DATA 1,1,2,2,2,2,5,6,2,1,1,16,1,1,6,2,2,1,1,1,1,1,6,2,2,2,4,16,2,1
  410 DATA 7,6,5,1,7,5,2,1,1,1,1,1,1,2,2,2,4,3,2,1,1,1,1,1,7,12,8,1,1,1
  420 DATA 1,1,15,2,2,2,2,2,2,1,1,1,1,1,3,3,8,1,1,1,1,1,14,2,2,2,2,2,2,16
  430 DATA 16,1,1,1,2,6,8,1,1,1,1,1,1,14,2,2,2,2,2,1,1,1,1,1,2,7,8,1,1,1
  440 DATA 1,1,1,1,2,2,2,2,2,1,1,1,1,1,6,2,1,1,1,1,1,1,1,1,6,2,2,2,2,5
  450 DATA 10,13,1,1,7,4,16,1,1,1,1,1,1,1,1,7,2,2,2,1,1,1,1,15,2,2,2,4,1,1
  460 DATA 1,1,1,1,1,15,2,2,8,1,1,15,16,3,2,2,2,2,2,9,1,1,1,1,15,2,2,2,2,9
  470 DATA 3,10,1,2,2,2,2,2,2,2,1,1,1,15,2,2,2,2,2,2,13,1,15,2,2,2,2,2,2,2
  480 DATA 1,1,15,2,2,2,2,2,2,4,9,16,2,2,2,2,2,2,2,2,15,3,2,2,2,2,2,2,2,2
  490 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  500 DATA 1,1,1,1,1,1,3,2,2,2,9,1,1,1,1,1,1,1,1,1,1,1,1,1,9,2,2,2,2,2
  510 DATA 2,2,4,1,1,1,1,1,1,1,1,1,15,3,2,2,2,2,2,2,2,2,2,4,1,1,1,1,1,1
  520 DATA 1,1,3,2,2,2,2,2,2,2,2,2,2,2,16,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2
  530 DATA 2,2,2,2,2,16,1,1,1,1,1,7,2,2,2,2,5,1,6,2,2,2,2,2,2,4,1,1,1,1
  540 DATA 1,3,2,2,2,5,1,1,1,14,2,4,6,2,2,2,1,1,1,1,1,2,2,2,2,4,16,1,1,1
  550 DATA 14,2,2,2,2,2,1,1,1,1,1,2,2,2,13,1,6,16,1,1,10,1,1,2,2,2,1,1,1,1
  560 DATA 1,2,2,2,9,6,8,2,1,1,10,4,16,7,2,2,1,1,1,1,1,7,2,2,2,13,15,5,1,1
  570 DATA 1,1,1,1,2,2,1,1,1,1,1,7,2,2,16,1,3,8,1,1,1,1,1,1,2,2,1,1,1,1
  580 DATA 1,7,2,2,4,1,2,4,15,1,1,1,1,1,2,5,1,1,1,1,1,1,2,2,2,1,10,8,1,1
  590 DATA 1,1,1,1,8,13,1,1,1,1,1,1,7,2,2,9,3,8,1,1,1,1,1,1,16,1,1,1,1,1
  600 DATA 1,1,1,6,2,2,2,2,10,12,1,1,1,7,2,1,1,1,1,1,1,1,1,1,6,2,2,5,13,1
  610 DATA 1,1,1,7,2,16,1,1,1,1,1,1,1,1,1,2,5,1,1,1,1,1,1,7,2,2,4,16,1,1
  620 DATA 1,1,1,1,15,2,2,1,1,1,1,16,1,1,6,2,2,2,4,9,1,1,1,1,2,2,2,4,9,9
  630 DATA 10,1,1,1,1,2,2,2,2,2,1,1,1,3,2,2,2,2,10,1,1,1,1,1,3,2,2,2,2,2
  640 DATA 1,1,15,2,2,2,2,4,1,1,1,1,1,3,2,2,2,2,2,2,1,1,7,2,2,2,2,2,16,1
  650 DATA 1,15,3,2,2,2,2,2,2,2,1,1,2,2,2,2,2,2,4,9,3,2,2,2,2,2,2,2,2,2
  660 DATA 1,1,1,1,1,1,1,1,1,1,1,9,9,16,1,1,1,1,1,1,1,1,1,1,1,1,15,3,2,4
  670 DATA 3,2,2,2,16,1,1,1,1,1,1,1,1,1,1,15,2,2,2,2,2,2,2,2,2,1,1,1,1,1
  680 DATA 1,1,1,1,15,2,2,2,2,2,2,2,2,5,2,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2
  690 DATA 2,2,2,2,3,4,1,1,1,1,1,1,1,7,2,2,2,2,10,2,5,2,2,2,2,2,8,1,1,1
  700 DATA 1,1,1,2,2,2,2,2,16,7,4,2,2,8,6,2,2,1,1,1,1,1,15,2,2,2,2,2,1,7
  710 DATA 2,2,2,2,3,2,2,8,1,1,1,1,2,2,2,2,2,8,1,14,2,2,2,2,2,2,2,4,1,1
  720 DATA 1,1,2,2,2,2,2,10,2,16,6,2,5,6,2,2,2,2,4,1,1,1,2,2,2,2,2,11,14,8
  730 DATA 1,10,13,13,2,2,2,2,2,1,1,7,2,2,2,2,16,1,7,2,1,1,1,1,7,6,2,2,5,1
  740 DATA 1,7,2,2,2,2,4,1,7,8,1,1,1,1,3,9,2,2,8,1,1,14,2,2,2,2,2,4,3,2
  750 DATA 11,1,1,1,5,6,2,2,8,1,1,1,2,2,2,2,2,2,2,5,2,4,1,1,4,2,2,2,13,1
  760 DATA 1,1,7,2,2,2,2,2,2,5,10,6,8,15,2,2,5,13,1,1,1,1,14,2,2,2,2,2,2,2
  770 DATA 16,1,1,2,2,2,13,1,1,1,1,1,15,2,2,2,2,2,2,4,1,1,3,2,2,13,1,1,1,1
  780 DATA 2,2,2,2,2,2,2,2,2,4,9,14,2,2,16,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2
  790 DATA 15,7,2,2,4,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,13,2,2,2,2,4,16,1,1,1
  800 DATA 2,2,2,2,2,2,2,2,2,5,7,2,2,2,2,2,2,4,9,1,2,2,2,2,2,2,2,2,2,4
  810 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  820 DATA 1,1,1,1,1,3,2,2,2,4,9,16,1,1,1,1,1,1,1,1,1,1,1,1,3,2,2,2,2,2
  830 DATA 2,2,16,1,1,1,1,1,1,1,1,1,15,2,2,2,2,2,2,2,2,2,2,1,1,1,1,1,1,1
  840 DATA 1,1,2,2,2,2,2,2,2,2,2,2,2,8,1,1,1,1,1,1,1,15,2,2,2,2,2,2,2,2
  850 DATA 2,2,2,4,1,1,1,1,1,1,1,3,2,2,2,2,2,2,2,2,2,2,2,2,4,1,1,1,1,1
  860 DATA 1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1,1,1,1,1,7,2,2,2,2,2,2,2,8
  870 DATA 7,2,2,2,2,8,1,1,1,1,1,2,2,2,2,2,2,2,2,10,14,6,2,2,2,8,1,1,1,1
  880 DATA 1,2,2,2,2,10,10,13,13,1,1,1,6,2,2,1,1,1,1,1,1,2,2,2,4,9,9,16,1,7
  890 DATA 5,15,16,2,2,1,1,1,1,1,1,2,2,2,4,2,7,4,1,14,2,12,1,7,2,8,1,1,1,1
  900 DATA 1,2,2,2,5,8,2,8,1,1,1,1,1,7,2,16,1,1,1,1,1,2,2,2,1,1,2,5,1,1
  910 DATA 1,1,1,7,2,8,1,1,1,1,1,6,2,2,8,1,2,4,1,1,1,1,1,3,2,13,1,1,1,1
  920 DATA 1,14,2,2,2,1,3,2,13,16,1,1,1,5,2,1,1,1,1,1,1,1,14,6,2,2,2,5,14,5
  930 DATA 4,1,1,2,2,4,1,1,1,1,1,1,1,1,2,2,2,8,1,1,13,1,15,2,2,2,8,1,1,1
  940 DATA 1,1,1,1,14,2,2,14,13,1,1,1,3,2,2,2,2,16,1,1,1,1,1,1,7,2,2,1,1,1
  950 DATA 1,3,2,2,2,2,2,4,9,9,1,1,1,1,2,2,2,4,9,9,2,2,2,2,2,2,2,2,2,2
  960 DATA 1,1,1,7,2,2,2,2,9,2,2,2,2,2,2,2,2,2,2,2,1,1,1,2,2,2,2,2,2,2
  970 DATA 2,2,2,2,2,2,2,2,2,2,1,1,15,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  980 RESTORE 340:FOR I=0 TO 3:FOR J=0 TO 479:READ HP
  990 IF HP>2 THEN HP=HP+173:ELSE HP=(2-HP)*223+32
 1000 P(I,J)=HP:NEXT J,I:CLS:GOTO 1030
 1010 DATA "  John  LENNON  "," Paul McCARTNEY "
 1020 DATA "George  Harrison","Richard  STARKEY"
 1030 FOR I=0 TO 3:VR(I)=I:NEXT I:XR=4
 1040 ZR=FN ZZ(XR):IF XR=4 AND ZR=M THEN 1040
 1070 I=-1:FOR J=1 TO 480:I=I+107:IF I>479 THEN I=I-480
 1080 B=INT(I/20)-1:PRINT AT(B+1,I-20*B);CHR$(P(VR(ZR),I)):NEXT J
 1090 RESTORE 1010:FOR I=0 TO VR(ZR):READ N$:NEXT I:PRINT AT(21,2);N$
 1100 M=VR(ZR):VR(ZR)=VR(XR-1):XR=XR-1
 1110 IF XM=0 THEN 1120:ELSE 1130
 1120 FOR I=0 TO 3:MA(I)=I:NEXT I:XM=4
 1130 ZM=FN ZZ(XM):IF XM=4 AND ZM=V THEN 1130
 1140 ON MA(ZM)+1 GOTO 1150,1160,1170,1180
 1150 PRINT AT(10,0);"      YESTERDAY    ":GOTO 1190
 1160 PRINT AT(10,0);" OB-LA-DI, OB-LA-DA":GOTO 1190
 1170 PRINT AT(10,0);"  YELLOW SUBMARINE ":GOTO 1190
 1180 PRINT AT(10,0);"      LET IT BE    ":GOTO 1190
 1190 ON MA(ZM)+1 GOTO 1200,1230,1280,1330
 1200 FOR K=1 TO 2:RESTORE 1430:TA=31:T=50:GOSUB 60:NEXT K
 1210 FOR K=1 TO 2:RESTORE 1460:TA=58:T=50:GOSUB 60:NEXT K
 1220 RESTORE 1520:TA=7:T=100:GOSUB 60:GOTO 1410
 1230 RESTORE 1530:TA=84:T=20:GOSUB 60
 1240 RESTORE 1530:TA=122:T=20:GOSUB 60
 1250 RESTORE 1530:TA=122:T=20:GOSUB 60
 1260 RESTORE 1530:TA=81:T=20:GOSUB 60
 1270 RESTORE 1600:TA=2:T=40:GOSUB 60:GOTO 1410
 1280 RESTORE 1650:TA=133:T=40:GOSUB 60
 1290 RESTORE 1710:TA=70:T=40:GOSUB 60
 1300 RESTORE 1710:TA=35:T=40:GOSUB 60
 1310 RESTORE 1780:TA=45:T=40:GOSUB 60:GOTO 1410
 1330 RESTORE 1840:TA=2:T=70:GOSUB 60
 1340 RESTORE 1850:TA=78:T=70:GOSUB 60
 1350 RESTORE 1920:TA=5:T=70:GOSUB 60
 1360 RESTORE 1850:TA=78:T=70:GOSUB 60
 1370 RESTORE 1930:TA=30:T=70:GOSUB 60
 1410 V=MA(ZM):MA(ZM)=MA(XM-1):XM=XM-1
 1412 E$=INKEY$:IF E$=""THEN 1420
 1414 IF ASC(E$)=13 THEN 1960
 1420 IF XR=0 THEN 1030:ELSE 1040
 1430 DATA 8,2,6,1,6,13,0,4,10,2,12,2,14,2,15,2,17,2,18,2
 1440 DATA 17,2,15,1,15,13,0,4,15,2,15,2,13,2,11,2,10,2,8,2
 1450 DATA 11,4,10,2,10,6,8,4,6,4,10,4,8,6,3,2,6,4,10,2,10,10
 1460 DATA 10,8,10,8,15,4,17,4,18,4,17,2,15,2,17,6,15,2,13,4,15,4,10,16
 1470 DATA 10,8,10,8,15,4,17,4,18,4,17,2,15,2,17,6,15,2,13,4,17,4
 1480 DATA 18,4,13,4,11,4,10,4,8,2,6,1,6,13,0,4,10,2,12,2,14,2
 1490 DATA 15,2,17,2,18,2,17,4,15,2,15,10,0,4,15,2,15,2,13,2
 1500 DATA 11,2,10,2,8,2,11,4,10,2,10,6,8,4,6,4,10,2,8,6,3,4
 1510 DATA 6,4,10,2,10,10
 1520 DATA 6,4,10,4,8,4,3,4,6,4,10,2,10,10
 1530 DATA 19,4,19,4,19,4,19,4,19,4,19,4,17,4,15,4,14,4,17,8,17,16,0,4
 1540 DATA 20,4,20,4,20,4,20,4,20,4,20,4,19,4,17,4,19,16
 1550 DATA 22,4,22,4,22,4,22,4,22,4,22,4,20,4,19,4,20,4,22,8,24,8,24,4
 1560 DATA 22,4,20,4,19,4,22,4,20,4,19,4,17,4,20,4,19,4,17,4,15,16,0,4,15,4
 1570 DATA 19,4,22,8,15,4,19,4,22,8,15,4,19,4,22,16,27,12,0,4,22,8
 1580 DATA 20,4,19,4,20,4,19,4,17,8,15,20,0,4,15,4,19,4,22,8,15,4,19,4
 1590 DATA 22,8,15,4,19,4,22,16,27,12,0,4,22,8,20,4,19,4,20,4,19,4,17,8
 1600 DATA 15,20,0,16
 1610 DATA 0,4,15,2,15,2,20,2,20,2,22,4,24,4,0,4,22,4,24,4,27,4,0,4,20,4
 1620 DATA 24,12,15,4,20,8,0,16
 1630 DATA 15,2,15,2,20,2,20,2,22,4,24,4,0,4,22,4,24,4,27,8,20,4,24,12
 1640 DATA 0,4,15,4,19,4,19,4,19,4,20,8,19,8,19,4,17,16,0,16
 1650 DATA 24,3,25,1,27,11,24,1,22,3,24,1,20,12,24,3,24,1
 1660 DATA 22,3,20,1,17,7,17,1,24,3,24,1,22,12,24,3,25,1,27,11,24,1,22,3,24,1
 1670 DATA 20,12,24,3,24,1,22,3,20,1,17,7,17,1,24,3,24,1,22,12,24,3,25,1
 1680 DATA 27,11,24,1,22,3,24,1,20,12,24,3,24,1,22,3,20,1,17,7,17,1,24,3,24,1
 1690 DATA 22,12,24,3,25,1,27,11,24,1,22,3,24,1,20,12,24,3,24,1
 1700 DATA 22,3,20,1,17,8,24,3,24,1,22,16
 1710 DATA 27,4,27,4,27,4,27,3,29,1,22,3,22,1,22,3,22,1,22,8,22,3,22,1,22,3
 1720 DATA 22,1,22,8,20,3,20,1,20,3,20,1,20,8,27,4,27,4,27,4,27,3,29,1
 1730 DATA 22,3,22,1,22,3,22,1,22,8,22,3,22,1,22,3,22,1,22,8
 1740 DATA 20,3,20,1,20,3,20,1,20,4,24,3,25,1,27,11,24,1,22,3,24,1
 1750 DATA 20,12,24,2,24,2,22,3,20,1,17,8,24,3,24,1,22,12,24,3,25,1
 1760 DATA 27,11,24,1,22,3,24,1
 1770 DATA 20,12,24,3,24,1,22,2,20,2,17,8,24,3,24,1,22,16
 1780 DATA 20,3,20,1,20,3,20,1,20,8,27,4,27,4,27,4,27,3,29,1,22,3,22,1,22,3
 1790 DATA 22,1,22,8,22,3,22,1,22,3,22,1,22,8,20,3,20,1,20,3,20,1,20,8
 1800 DATA 27,4,27,4,27,4,27,3,29,1,22,3,22,1,22,3,22,1,22,8,22,3,22,1,22,3
 1810 DATA 22,1,22,8,20,3.6,20,1.4,20,4.8,20,1.8,20,33.6
 1840 DATA 20,1,20,1
 1850 DATA 20,2,20,1,22,3,25,2,20,2,20,2,25,1,27,3,29,1,29,2,29,3,27,2,27,2
 1860 DATA 25,2,25,4,29,1,29,3,30,2,32,1,29,3,27,2,0,2,29,1,27,1
 1870 DATA 27,2,25,10,0,3,17,1,20,1,20,3,22,2,17,1,20,3,20,2,25,1,27,3
 1880 DATA 29,1,29,3,29,2,27,1,27,2,25,2,25,5,29,1,29,3,30,2,29,1,29,3
 1890 DATA 27,2,0,2,29,1,27,1,27,1,25,11,29,1,27,2,25,5,29,1,32,2,34,3,32,2
 1900 DATA 32,1,32,2,29,2,27,1,25,2,22,1,20,2,29,9
 1910 DATA 29,1,29,2,30,3,29,1,29,3,27,2,0,1,29,1,27,1
 1920 DATA 27,3,25,10,0,2,20,1,20,1
 1930 DATA 27,3,25,10,29,1,27,2,25,5,29,1,32,2,34,2,32,3,32,1,32,2,29,2
 1940 DATA 27,1,25,2,22,1,20,2,29,5,0,4,29,2,29,1,30,3,29,2,29,2,27,2,0,1
 1950 DATA 29,1,27,1,27,2,25,11,0,4
 1960 WINDOW:POKE-4152,16:CLS:OUT 136,0:NEW