Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß) 1000 A=240:GOTO 20:REM HYMNEN 1010 H=HO:V=VE 1020 DIM NA$(17) 1030 HO=H/2-10:VE=1:GOSUB 110 1040 SR$="HYMNEN":GOSUB 150 1050 HO=0:VE=4:GOSUB 110 1060 PRINT "Mit diesem Programm koennen Sie Ihren Rechner" 1070 PRINT "einige europaeische Nationalhymnen" 1080 PRINT "spielen lassen." 1090 HO=0:VE=8:GOSUB 110 1100 PRINT "Die Auswahl des Liedes erfolgt durch" 1110 PRINT "Eingabe von 01 bis 17" 1120 PRINT "18 = Programmende" 1130 PRINT:PRINT "Die Zahl muss aus zwei Ziffern bestehen!" 1140 HO=0:VE=V:GOSUB 110 1150 PRINT "<DRUECKE EINE TASTE>"; 1160 GOSUB 210 1170 GOSUB 100 1180 HO=H/2-10:VE=1:GOSUB 110 1190 SR$="HYMNEN":GOSUB 150 1200 FOR I=0 TO 8 1210 READ NA$(I),NA$(I+9) 1220 VE=4+I:HO=3:GOSUB 110:PRINT NA$(I) 1230 HO=H/2+2:GOSUB 110:PRINT NA$(I+9) 1240 NEXT I 1250 HO=0:VE=V-1:GOSUB 110 1260 PRINT "Ihre Wahl, bitte:"; 1270 GOSUB 210 1280 IF(IN<48)OR(IN>49) THEN GOSUB 250:GOTO 1270 1290 K=10*(IN-48):PRINT IN$; 1300 GOSUB 210:K=K+IN-48 1310 IF(IN<48)OR(IN>57)OR(K<1)OR(K>17) THEN 1330 1320 PRINT IN$;:GOSUB 1640:GOTO 1380 1330 IF K=18 THEN PRINT IN$;:GOSUB 1640:GOTO 950 1340 GOSUB 250:K=K-IN+48:GOTO 1300 1350 REM 1360 REM MUSIK 1370 REM 1380 HO=0:VE=V:GOSUB 110 1390 PRINT "Ich bin am suchen."; 1400 GOSUB 1530 1410 HO=0:VE=V:GOSUB 110 1420 PRINT "Und nun spiele ich."; 1430 SV=15 1440 READ SP,SD 1450 IF SP=-1 THEN RESTORE:GOTO 1170 1460 IF SP=50 THEN SV=0 1470 GOSUB 400 1480 GOTO 1430 1490 GOTO 950 1500 REM 1510 REM ZOEKEN 1520 REM 1530 RESTORE 1540 FOR I=0 TO 8 1550 READ NA$(I),NA$(I+9) 1560 NEXT I 1570 IF K=1 THEN RETURN 1580 FOR I=1 TO K-1 1590 READ SP,SD:IF SP<>-1 THEN 1590 1600 NEXT I 1610 REM 1620 REM INVERSE 1630 REM 1640 I=K-1 1650 IF I>8 THEN HO=H/2-1:VE=I-5:GOTO 1670 1660 HO=0:VE=I+4 1670 GOSUB 110 1680 SR$=NA$(I):GOSUB 150 1690 RETURN 25000 REM LANDEN 25010 DATA "01 Belgien","10 Niederlande" 25020 DATA "02 Daenemark","11 Norwegen" 25030 DATA "03 England","12 DDR" 25040 DATA "04 Finnland","13 Oestereich" 25050 DATA "05 Frankreich","14 Portugal" 25060 DATA "06 Griechenland","15 BRD" 25070 DATA "07 Irland","16 Schweden" 25080 DATA "08 Italien","17 Schweiz" 25090 DATA "09 Luxemburg","18 Programmende" 25100 REM BELGIEN 25110 DATA 65,2,62,4,63,2,65,6,67,4,69,2,70,4,69,2,70,4,74,2 25120 DATA 65,9,69,2,67,2,65,4,50,2,69,4,70,2,72,6,72,4,72,2 25130 DATA 72,6,70,4,69,2,70,12,70,4,69,2,70,4,67,2,65,6,67 25140 DATA 4,69,2,70,4,69,2,70,4,72,2,69,8,72,2,70,2,69,6,69 25150 DATA 4,67,2,65,6,65,4,69,2,72,6,70,4,67,2,65,12,50,6 25160 DATA 67,4,65,2,65,6,65,4,65,2,65,6,67,4,69,2,72,12,70 25170 DATA 6,50,4,70,2,69,6,69,4,69,2,70,4,69,2,70,4,74,2,72 25180 DATA 12,50,6,65,4,69,2,70,12,70,4,70,2,72,4,70,2,69,10 25190 DATA 70,2,72,6,50,4,72,2,70,10,70,2,70,4,74,2,72,4,70 25200 DATA 2,69,12,50,6,69,4,72,2,70,6,65,4,65,2,74,4,72,2 25210 DATA 70,4,69,2,67,12,67,6,67,4,72,2,70,10,70,2,69,4,67 25220 DATA 2,69,4,72,2,70,12,50,6,65,4,74,2,74,10,70,2,69,4 25230 DATA 65,2,67,4,65,2,65,12,50,6,65,4,74,2,74,10,70,2,69 25240 DATA 4,67,2,69,4,72,2,70,6,70,4,70,2,70,4,-1,1 25250 REM DAENEMARK 25260 DATA 64,6,69,6,57,6,61,6,64,6,69,9,71,3,73,6,74,6,73 25270 DATA 12,71,12,69,12,50,6,73,6,73,3,71,3,69,3,68,3,71,3 25280 DATA 69,3,68,3,66,3,68,9,69,3,71,6,71,6,76,6,71,6,68,6 25290 DATA 64,6,71,9,59,3,59,6,76,6,76,6,75,3,73,3,71,6,73,6 25300 DATA 73,6,71,3,69,3,68,6,69,6,68,12,66,12,64,12,50,6 25310 DATA 64,6,69,6,64,6,66,6,67,6,66,9,67,3,66,6,66,6,74,9 25320 DATA 73,3,71,9,69,3,68,6,66,6,64,6,64,6,69,12,71,12,73 25330 DATA 9,74,3,76,6,74,6,73,12,71,12,69,12,-1,1 25340 REM ENGLAND 25350 DATA 67,6,67,6,69,6,66,9,67,3,69,6,71,6,71,6,72,6,71,9 25360 DATA 69,3,67,6,69,6,67,6,66,6,67,18,74,6,74,6,74,6,74 25370 DATA 9,72,3,71,6,72,6,72,6,72,6,72,9,71,3,69,6,71,6,72 25380 DATA 3,71,3,69,3,67,3,71,9,72,3,74,6,76,3,72,3,71,6,69 25390 DATA 6,67,18,-1,1 25400 REM FINNLAND 25410 DATA 64,4,61,4,62,4,64,12,69,4,71,5,64,2,73,16,69,8,66 25420 DATA 5,71,2,69,8,68,8,69,16,64,8,71,5,69,2,68,4,66,4 25430 DATA 64,4,62,4,61,4,66,4,64,8,64,8,71,5,69,2,68,4,66,4 25440 DATA 64,4,62,4,61,4,66,4,64,12,64,4,69,5,64,2,61,4,64 25450 DATA 4,69,4,71,4,73,16,69,8,66,5,71,2,69,8,68,8,69,16 25460 DATA 64,8,71,5,69,2,68,4,66,4,64,4,62,4,61,4,66,4,64,8 25470 DATA 64,8,71,5,69,2,68,4,66,4,64,4,62,4,61,4,66,4,64 25480 DATA 12,64,4,69,5,64,2,61,4,64,4,69,4,71,4,73,16,69,8 25490 DATA 66,5,71,2,69,8,68,8,69,16,-1,1 25500 REM FRANKREICH 25510 DATA 62,2,62,4,62,2,67,6,67,6,69,6,69,6,74,9,71,3,67,3 25520 DATA 67,2,71,4,67,2,64,6,72,12,69,4,66,2,67,12,50,3,67 25530 DATA 2,67,4,69,2,71,6,71,6,71,6,72,4,71,2,71,6,69,6,50 25540 DATA 6,69,4,71,2,72,6,72,6,72,6,74,4,72,2,71,12,50,6 25550 DATA 74,4,74,2,74,6,71,4,67,2,74,6,71,4,67,2,62,12,50 25560 DATA 4,62,2,62,4,66,2,69,6,69,6,72,6,69,4,66,2,69,6,67 25570 DATA 6,65,12,64,6,67,4,67,2,67,6,66,4,67,2,69,18,50,3 25580 DATA 69,3,70,9,70,3,70,3,70,3,72,3,74,3,69,18,70,3,69 25590 DATA 3,67,9,67,3,67,3,70,3,69,3,67,3,67,6,66,6,50,10 25600 DATA 74,2,74,12,74,2,71,4,67,2,69,18,50,4,74,2,74,12 25610 DATA 74,2,71,4,67,2,69,15,50,3,62,6,67,12,50,6,69,6,71 25620 DATA 12,50,12,72,12,74,6,76,6,69,15,50,3,76,6,74,16,71 25630 DATA 2,72,4,69,2,67,18,-1,1 25640 REM GRIECHENLAND 25650 DATA 69,4,70,2,72,10,70,2,69,4,70,2,72,6,69,3,50,3,70 25660 DATA 4,72,2,74,10,74,2,76,4,76,2,77,9,50,3,67,4,69,2 25670 DATA 70,10,69,2,67,4,69,2,70,6,67,3,50,3,72,4,72,2,76 25680 DATA 10,74,2,72,4,70,2,69,9,50,3,69,4,69,2,74,10,77,2 25690 DATA 76,4,73,2,74,6,69,3,50,3,69,4,69,2,74,10,77,2,76 25700 DATA 4,73,2,74,9,50,3,72,4,72,2,72,6,76,3,50,3,72,4,72 25710 DATA 2,72,6,77,3,50,3,72,4,72,2,72,6,76,3,50,2,72,2,74 25720 DATA 4,76,2,77,9,50,3,77,4,76,2,76,6,74,3,50,3,74,4,72 25730 DATA 2,72,6,72,3,50,3,74,4,74,2,72,10,69,2,70,4,67,2 25740 DATA 70,6,69,3,50,3,77,4,76,2,76,6,74,3,50,3,74,4,72,2 25750 DATA 72,6,70,3,50,3,74,4,74,2,72,10,69,2,70,4,67,2,65 25760 DATA 9,-1,1 25770 REM IRLAND 25780 DATA 65,6,62,6,58,3,62,3,65,9,65,3,67,3,69,3,70,3,72,3 25790 DATA 74,9,72,3,70,6,67,6,65,6,62,6,65,9,63,3,60,3,50,3 25800 DATA 65,6,62,6,58,3,62,3,65,9,65,3,67,3,69,3,70,3,72,3 25810 DATA 74,9,70,3,69,9,69,3,67,9,67,3,65,6,65,6,50,6,65,6 25820 DATA 63,9,63,3,63,3,60,3,62,3,63,3,65,9,67,3,65,6,70,6 25830 DATA 69,9,67,3,69,6,67,6,65,6,63,6,60,6,65,6,62,6,58,3 25840 DATA 62,3,65,9,65,3,67,3,69,3,70,3,72,3,74,6,70,3,67,3 25850 DATA 65,3,70,6,62,3,60,9,58,3,58,18,50,6,70,9,72,3,74 25860 DATA 6,70,6,65,18,65,6,67,9,67,3,63,6,67,6,65,12,65,12 25870 DATA 70,12,69,12,67,18,69,3,70,3,72,9,74,3,72,6,67,6 25880 DATA 69,18,50,6,70,9,72,3,74,6,70,6,65,18,65,6,67,9,67 25890 DATA 3,63,6,67,6,65,12,65,6,65,6,69,12,69,9,69,3,69,6 25900 DATA 69,6,67,9,67,3,65,18,65,6,63,9,63,3,63,3,60,3,62 25910 DATA 3,63,3,65,9,67,3,65,6,70,6,69,9,67,3,69,6,67,6,65 25920 DATA 6,63,6,60,6,65,6,62,6,58,3,62,3,65,9,65,3,67,3,69 25930 DATA 3,70,3,72,3,74,6,70,3,67,3,65,3,70,6,74,3,72,9,70 25940 DATA 3,70,18,-1,1 25950 REM ITALIEN 25960 DATA 65,6,65,4,67,2,65,12,74,6,74,4,75,2,74,12,74,6,77 25970 DATA 4,75,2,74,12,72,6,74,4,72,2,70,12,65,6,65,4,67,2 25980 DATA 65,12,74,6,74,4,75,2,74,12,74,6,77,4,75,2,74,12 25990 DATA 72,6,74,4,72,2,70,12,74,6,74,6,69,12,70,4,72,2,70 26000 DATA 4,69,2,67,12,70,6,69,4,70,2,72,12,62,6,74,12,75,6 26010 DATA 65,6,65,4,67,2,65,12,74,6,74,4,75,2,74,12,74,6,77 26020 DATA 4,75,2,74,9,77,3,72,3,77,3,70,6,50,4,67,2,67,6,67 26030 DATA 3,50,1,65,2,68,6,67,3,50,1,70,2,70,6,70,3,50,1,69 26040 DATA 2,72,6,70,3,50,1,70,2,70,6,72,4,74,2,75,6,67,4,68 26050 DATA 2,72,6,70,4,67,2,68,6,65,3,50,1,65,2,65,6,65,3,50 26060 DATA 1,64,2,67,6,65,3,50,1,68,2,68,6,68,3,50,1,67,2,70 26070 DATA 6,68,3,50,1,77,2,77,6,77,4,75,2,74,6,74,4,72,2,70 26080 DATA 6,70,4,68,2,67,6,50,4,67,2,67,6,67,4,66,2,68,6,67 26090 DATA 3,50,1,67,2,67,6,65,4,63,2,65,6,62,3,50,1,67,2,67 26100 DATA 6,67,4,66,2,68,6,67,3,50,1,67,2,67,6,65,4,63,2,62 26110 DATA 6,50,4,67,2,67,6,67,4,65,2,68,6,67,3,50,1,70,2,70 26120 DATA 6,69,4,70,2,74,6,72,3,50,1,72,2,72,4,74,2,75,4,77 26130 DATA 2,79,6,79,4,79,2,77,6,77,4,77,2,75,3,50,3,75,6,-1 26140 DATA 1 26150 REM LUXEMBURG 26160 DATA 70,6,70,9,75,3,75,6,67,6,70,6,68,6,68,9,68,3,68,6 26170 DATA 70,3,72,3,70,9,68,3,67,12,50,6,70,6,70,9,75,3,75 26180 DATA 9,74,3,72,6,72,6,77,9,75,3,74,6,70,6,74,9,72,3,70 26190 DATA 18,65,6,65,9,67,3,68,6,70,6,72,6,72,6,70,9 26200 DATA 68,3,67,6,70,6,70,6,75,6,74,18,70,6,70,6,72,3,74 26210 DATA 3,75,6,77,6,79,9,77,3,75,6,72,6,70,9,67,3,70,6,68 26220 DATA 6,67,18,70,6,70,6,72,3,74,3,75,6,77,6,79,9,77,3 26230 DATA 75,6,72,6,70,9,75,3,74,6,77,6,75,18,-1,1 26340 REM NIEDERLANDE 26350 DATA 62,6,67,6,67,6,69,3,71,3,72,3,69,3,71,6,69,3,71,3 26360 DATA 72,6,71,6,69,3,67,3,69,6,67,12,50,6,62,6,67,6,67 26370 DATA 6,69,3,71,3,72,3,69,3,71,6,69,3,71,3,72,6,71,6,69 26380 DATA 3,67,3,69,6,67,12,50,6,71,3,72,3,74,12,76,6,74,12 26390 DATA 72,6,71,6,69,3,71,3,72,6,71,6,69,6,67,6,69,12,50 26400 DATA 6,62,6,67,3,66,3,67,3,69,3,71,6,69,12,67,6,66,6 26410 DATA 62,6,64,3,66,3,67,6,67,6,66,6,67,12,-1,1 26420 REM NORWEGEN 26430 DATA 67,9,65,3,64,6,62,6,60,6,62,6,64,6,65,6,67,9,69,3 26440 DATA 67,6,65,6,64,18,50,6,69,9,67,3,65,6,64,6,62,6,64 26450 DATA 6,65,6,67,6,67,9,69,3,69,6,71,6,72,12,50,12,72,9 26460 DATA 72,3,71,4,71,2,69,4,69,2,67,12,64,6,50,6,69,9,69 26470 DATA 3,67,6,67,6,65,12,50,6,67,4,67,2,67,6,69,6,69,6 26480 DATA 71,6,71,12,72,12,72,9,72,3,71,6,72,6,74,12,50,6 26490 DATA 74,4,74,2,74,6,76,6,77,6,76,6,74,12,72,6,71,4,69 26500 DATA 2,67,9,69,3,69,6,71,6,72,12,-1,1 26510 REM DDR 26520 DATA 69,6,69,6,67,6,65,6,70,6,70,6,69,6,67,6,72,6,69,6 26530 DATA 65,6,72,6,72,9,74,3,70,12,69,6,69,6,67,6,65,6,70 26540 DATA 6,70,6,69,6,67,6,72,6,69,6,74,6,70,6,67,9,64,3,65 26550 DATA 18,65,4,64,2,62,9,64,3,65,9,69,3,67,6,60,12,65,4 26560 DATA 64,2,62,9,64,3,65,9,69,3,67,12,69,6,69,6,67,6,65 26570 DATA 6,70,6,70,6,69,6,67,6,72,6,69,6,65,6,72,6,72,9,74 26580 DATA 3,70,6,65,3,67,3,69,12,67,12,72,12,65,6,67,6,69 26590 DATA 12,67,12,65,12,-1,1 26600 REM OESTEREICH 26610 DATA 70,12,68,6,67,12,68,3,70,3,72,12,70,6,70,6,68,6 26620 DATA 50,6,68,12,67,6,65,12,67,3,68,3,70,12,68,6,68,3 26630 DATA 67,3,67,6,50,6,69,12,70,6,72,12,74,6,75,6,72,6,69 26640 DATA 6,70,12,50,6,65,12,67,6,70,6,69,6,65,6,67,12,72,3 26650 DATA 68,3,67,6,65,6,50,6,65,12,67,6,70,6,68,6,65,6,67 26660 DATA 12,72,3,68,3,67,6,65,6,50,6,68,12,67,6,72,12,70,6 26670 DATA 70,3,68,3,67,6,65,6,67,12,50,6,72,12,70,6,74,12 26680 DATA 75,3,70,3,70,3,68,3,67,6,65,6,63,12,-1,1 26690 REM PORTUGAL 26700 DATA 67,2,64,4,60,2,69,12,67,10,69,2,67,6,65,6,64,4,60 26710 DATA 2,59,4,60,2,64,12,66,4,67,2,69,4,71,2,67,12,50,6 26720 DATA 67,4,71,2,74,12,71,6,67,3,65,3,65,12,64,6,67,4,64 26730 DATA 2,60,12,60,3,62,3,64,3,67,3,62,15,50,9,62,9,64,3 26740 DATA 60,6,60,6,65,9,67,3,64,6,64,3,67,3,72,9,67,3,67,3 26750 DATA 70,6,68,3,67,6,62,12,50,3,65,3,63,6,67,6,67,6,65 26760 DATA 3,64,3,62,18,50,3,65,3,63,6,67,4,67,2,67,6,65,3 26770 DATA 64,3,67,10,67,2,67,6,50,5,67,2,72,12,70,9,50,2,65 26780 DATA 2,69,12,67,6,60,3,62,3,64,6,64,6,67,6,64,6,62,15 26790 DATA 50,8,67,2,72,12,70,9,50,2,65,2,69,12,67,6,50,3,67 26800 DATA 3,72,3,76,12,74,10,72,2,72,15,64,3,65,3,67,3,69,6 26810 DATA 69,6,67,9,67,3,72,15,-1,1 26820 REM BRD 26830 DATA 63,9,65,3,67,6,65,6,68,6,67,6,65,3,62,3,63,6,72,6 26840 DATA 70,6,68,6,67,6,65,6,67,3,63,3,70,12,63,9,65,3,67 26850 DATA 6,65,6,68,6,67,6,65,3,62,3,63,6,72,6,70,6,68,6,67 26860 DATA 6,65,6,67,3,63,3,70,12,65,6,67,6,65,3,62,3,58,6 26870 DATA 68,6,67,6,65,3,62,3,58,6,70,6,68,6,67,9,67,3,69,6 26880 DATA 69,3,70,3,70,12,75,9,74,3,74,3,72,3,70,6,72,9,70 26890 DATA 3,70,3,68,3,67,6,65,9,67,2,68,2,70,3,72,3,68,3,65 26900 DATA 3,63,6,67,3,65,3,63,12,75,9,74,3,74,3,72,3,70,6 26910 DATA 72,9,70,3,70,3,68,3,67,6,65,9,67,2,68,2,70,3,72,3 26920 DATA 68,3,65,3,63,6,67,3,65,3,63,12,-1,1 26930 REM SCHWEDEN 26940 DATA 74,4,74,8,70,4,70,4,70,8,72,4,74,4,74,8,72,4,70,4 26950 DATA 69,12,72,4,72,8,69,4,70,4,72,4,69,4,74,5,70,2,67 26960 DATA 16,65,8,50,4,65,4,70,8,70,4,72,4,69,8,69,4,70,4 26970 DATA 67,5,65,2,67,4,69,4,65,12,65,4,70,5,69,2,70,4,72 26980 DATA 4,74,4,70,4,75,5,74,2,72,16,70,8,50,4,65,4,70,5 26990 DATA 69,2,70,4,72,4,74,4,70,4,75,5,74,2,72,16,70,16,-1 27000 DATA 1 27010 REM SCHWEIZ 27020 DATA 65,5,65,2,65,8,70,8,70,5,69,2,69,12,50,4,65,5 27030 DATA 65,2,65,8,72,8,72,5,70,2,70,12,50,4,74,12,74,4 27040 DATA 72,4,72,4,72,12,70,4,69,8,67,16,64,8,65,20,50 27050 DATA 4,69,5,69,2,69,8,69,8,70,12,69,4,67,4,65,4,65 27060 DATA 24,65,20,50,4,69,5,69,2,69,8,69,8,70,12,72,4 27070 DATA 74,8,72,16,70,8,69,20,50,4,65,5,65,2,65,8,70 27080 DATA 8,68,5,67,2,67,12,50,4,67,5,67,2,67,8,72,8,70 27090 DATA 5,69,2,69,12,50,4,74,12,74,4,75,4,72,4,70,16 27100 DATA 69,8,70,16,72,8,74,12,74,4,75,4,72,4,70,16,70 27110 DATA 16,69,4,67,4,69,8,70,20,-1,1 30000 REM------------------------------ 30010 REM DIE MELODIEN SIND AUS DEM BUCH: 30020 REM NATIONAL ANTHEMS OF THE WORLD 30030 REM------------------------------ 30040 REM VOLKSLIEDEREN 32000 REM------------------------------ 32010 REM GEMAAKT OP EEN: 32020 REM ACORN ELECTRON 32030 REM 32040 REM DOOR: 32050 REM PETER FOLIANT 32060 REM EINDHOVEN 32070 REM NIEDERLANDE 32080 REM 32090 REM VERSIE:1.3 32100 REM COPYRIGHT(C) NOVEMBER'86 32110 REM------------------------------ 32200 REM TROS-RADIO DD.861231 32210 REM ERSTAUSSTRAHLUNG BEI REM/RADIO DDR: 891129