HYMNEN.bc

1000 A=240:GOTO20:REM HYMNEN
1010 H=HO:V=VE
1020 DIMNA$(17)
1030 HO=H/2-10:VE=1:GOSUB110
1040 SR$="HYMNEN":GOSUB150
1050 HO=0:VE=4:GOSUB110
1060 PRINT"Mit diesem Programm koennen Sie Ihren Rechner"
1070 PRINT"einige europaeische Nationalhymnen"
1080 PRINT"spielen lassen."
1090 HO=0:VE=8:GOSUB110
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:GOSUB110
1150 PRINT"<DRUECKE EINE TASTE>";
1160 GOSUB210
1170 GOSUB100
1180 HO=H/2-10:VE=1:GOSUB110
1190 SR$="HYMNEN":GOSUB150
1200 FORI=0 TO8
1210 READNA$(I),NA$(I+9)
1220 VE=4+I:HO=3:GOSUB110:PRINTNA$(I)
1230 HO=H/2+2:GOSUB110:PRINTNA$(I+9)
1240 NEXTI
1250 HO=0:VE=V-1:GOSUB110
1260 PRINT"Ihre Wahl, bitte:";
1270 GOSUB210
1280 IF(IN<48)OR(IN>49)THEN GOSUB250:GOTO1270
1290 K=10*(IN-48):PRINTIN$;
1300 GOSUB210:K=K+IN-48
1310 IF(IN<48)OR(IN>57)OR(K<1)OR(K>17)THEN1330
1320 PRINTIN$;:GOSUB1640:GOTO1380
1330 IFK=18 THENPRINTIN$;:GOSUB1640:GOTO950
1340 GOSUB250:K=K-IN+48:GOTO1300
1350 REM
1360 REM MUSIK
1370 REM
1380 HO=0:VE=V:GOSUB110
1390 PRINT"Ich bin am suchen.";
1400 GOSUB1530
1410 HO=0:VE=V:GOSUB110
1420 PRINT"Und nun spiele ich.";
1430 SV=15
1440 READSP,SD
1450 IFSP=-1 THENRESTORE:GOTO1170
1460 IFSP=50 THENSV=0
1470 GOSUB400
1480 GOTO1430
1490 GOTO950
1500 REM
1510 REM zoeken
1520 REM
1530 RESTORE
1540 FORI=0 TO8
1550 READNA$(I),NA$(I+9)
1560 NEXTI
1570 IFK=1 THENRETURN
1580 FORI=1 TOK-1
1590 READSP,SD:IFSP<>-1 THEN1590
1600 NEXTI
1610 REM
1620 REM Inverse
1630 REM
1640 I=K-1
1650 IFI>8 THENHO=H/2-1:VE=I-5:GOTO1670
1660 HO=0:VE=I+4
1670 GOSUB110
1680 SR$=NA$(I):GOSUB150
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 DATA65,2,62,4,63,2,65,6,67,4,69,2,70,4,69,2,70,4,74,2
25120 DATA65,9,69,2,67,2,65,4,50,2,69,4,70,2,72,6,72,4,72,2
25130 DATA72,6,70,4,69,2,70,12,70,4,69,2,70,4,67,2,65,6,67
25140 DATA4,69,2,70,4,69,2,70,4,72,2,69,8,72,2,70,2,69,6,69
25150 DATA4,67,2,65,6,65,4,69,2,72,6,70,4,67,2,65,12,50,6
25160 DATA67,4,65,2,65,6,65,4,65,2,65,6,67,4,69,2,72,12,70
25170 DATA6,50,4,70,2,69,6,69,4,69,2,70,4,69,2,70,4,74,2,72
25180 DATA12,50,6,65,4,69,2,70,12,70,4,70,2,72,4,70,2,69,10
25190 DATA70,2,72,6,50,4,72,2,70,10,70,2,70,4,74,2,72,4,70
25200 DATA2,69,12,50,6,69,4,72,2,70,6,65,4,65,2,74,4,72,2
25210 DATA70,4,69,2,67,12,67,6,67,4,72,2,70,10,70,2,69,4,67
25220 DATA2,69,4,72,2,70,12,50,6,65,4,74,2,74,10,70,2,69,4
25230 DATA65,2,67,4,65,2,65,12,50,6,65,4,74,2,74,10,70,2,69
25240 DATA4,67,2,69,4,72,2,70,6,70,4,70,2,70,4,-1,1
25250 REM Daenemark
25260 DATA64,6,69,6,57,6,61,6,64,6,69,9,71,3,73,6,74,6,73
25270 DATA12,71,12,69,12,50,6,73,6,73,3,71,3,69,3,68,3,71,3
25280 DATA69,3,68,3,66,3,68,9,69,3,71,6,71,6,76,6,71,6,68,6
25290 DATA64,6,71,9,59,3,59,6,76,6,76,6,75,3,73,3,71,6,73,6
25300 DATA73,6,71,3,69,3,68,6,69,6,68,12,66,12,64,12,50,6
25310 DATA64,6,69,6,64,6,66,6,67,6,66,9,67,3,66,6,66,6,74,9
25320 DATA73,3,71,9,69,3,68,6,66,6,64,6,64,6,69,12,71,12,73
25330 DATA9,74,3,76,6,74,6,73,12,71,12,69,12,-1,1
25340 REM England
25350 DATA67,6,67,6,69,6,66,9,67,3,69,6,71,6,71,6,72,6,71,9
25360 DATA69,3,67,6,69,6,67,6,66,6,67,18,74,6,74,6,74,6,74
25370 DATA9,72,3,71,6,72,6,72,6,72,6,72,9,71,3,69,6,71,6,72
25380 DATA3,71,3,69,3,67,3,71,9,72,3,74,6,76,3,72,3,71,6,69
25390 DATA6,67,18,-1,1
25400 REM Finnland
25410 DATA64,4,61,4,62,4,64,12,69,4,71,5,64,2,73,16,69,8,66
25420 DATA5,71,2,69,8,68,8,69,16,64,8,71,5,69,2,68,4,66,4
25430 DATA64,4,62,4,61,4,66,4,64,8,64,8,71,5,69,2,68,4,66,4
25440 DATA64,4,62,4,61,4,66,4,64,12,64,4,69,5,64,2,61,4,64
25450 DATA4,69,4,71,4,73,16,69,8,66,5,71,2,69,8,68,8,69,16
25460 DATA64,8,71,5,69,2,68,4,66,4,64,4,62,4,61,4,66,4,64,8
25470 DATA64,8,71,5,69,2,68,4,66,4,64,4,62,4,61,4,66,4,64
25480 DATA12,64,4,69,5,64,2,61,4,64,4,69,4,71,4,73,16,69,8
25490 DATA66,5,71,2,69,8,68,8,69,16,-1,1
25500 REM Frankreich
25510 DATA62,2,62,4,62,2,67,6,67,6,69,6,69,6,74,9,71,3,67,3
25520 DATA67,2,71,4,67,2,64,6,72,12,69,4,66,2,67,12,50,3,67
25530 DATA2,67,4,69,2,71,6,71,6,71,6,72,4,71,2,71,6,69,6,50
25540 DATA6,69,4,71,2,72,6,72,6,72,6,74,4,72,2,71,12,50,6
25550 DATA74,4,74,2,74,6,71,4,67,2,74,6,71,4,67,2,62,12,50
25560 DATA4,62,2,62,4,66,2,69,6,69,6,72,6,69,4,66,2,69,6,67
25570 DATA6,65,12,64,6,67,4,67,2,67,6,66,4,67,2,69,18,50,3
25580 DATA69,3,70,9,70,3,70,3,70,3,72,3,74,3,69,18,70,3,69
25590 DATA3,67,9,67,3,67,3,70,3,69,3,67,3,67,6,66,6,50,10
25600 DATA74,2,74,12,74,2,71,4,67,2,69,18,50,4,74,2,74,12
25610 DATA74,2,71,4,67,2,69,15,50,3,62,6,67,12,50,6,69,6,71
25620 DATA12,50,12,72,12,74,6,76,6,69,15,50,3,76,6,74,16,71
25630 DATA2,72,4,69,2,67,18,-1,1
25640 REM Griechenland
25650 DATA69,4,70,2,72,10,70,2,69,4,70,2,72,6,69,3,50,3,70
25660 DATA4,72,2,74,10,74,2,76,4,76,2,77,9,50,3,67,4,69,2
25670 DATA70,10,69,2,67,4,69,2,70,6,67,3,50,3,72,4,72,2,76
25680 DATA10,74,2,72,4,70,2,69,9,50,3,69,4,69,2,74,10,77,2
25690 DATA76,4,73,2,74,6,69,3,50,3,69,4,69,2,74,10,77,2,76
25700 DATA4,73,2,74,9,50,3,72,4,72,2,72,6,76,3,50,3,72,4,72
25710 DATA2,72,6,77,3,50,3,72,4,72,2,72,6,76,3,50,2,72,2,74
25720 DATA4,76,2,77,9,50,3,77,4,76,2,76,6,74,3,50,3,74,4,72
25730 DATA2,72,6,72,3,50,3,74,4,74,2,72,10,69,2,70,4,67,2
25740 DATA70,6,69,3,50,3,77,4,76,2,76,6,74,3,50,3,74,4,72,2
25750 DATA72,6,70,3,50,3,74,4,74,2,72,10,69,2,70,4,67,2,65
25760 DATA9,-1,1
25770 REM Irland
25780 DATA65,6,62,6,58,3,62,3,65,9,65,3,67,3,69,3,70,3,72,3
25790 DATA74,9,72,3,70,6,67,6,65,6,62,6,65,9,63,3,60,3,50,3
25800 DATA65,6,62,6,58,3,62,3,65,9,65,3,67,3,69,3,70,3,72,3
25810 DATA74,9,70,3,69,9,69,3,67,9,67,3,65,6,65,6,50,6,65,6
25820 DATA63,9,63,3,63,3,60,3,62,3,63,3,65,9,67,3,65,6,70,6
25830 DATA69,9,67,3,69,6,67,6,65,6,63,6,60,6,65,6,62,6,58,3
25840 DATA62,3,65,9,65,3,67,3,69,3,70,3,72,3,74,6,70,3,67,3
25850 DATA65,3,70,6,62,3,60,9,58,3,58,18,50,6,70,9,72,3,74
25860 DATA6,70,6,65,18,65,6,67,9,67,3,63,6,67,6,65,12,65,12
25870 DATA70,12,69,12,67,18,69,3,70,3,72,9,74,3,72,6,67,6
25880 DATA69,18,50,6,70,9,72,3,74,6,70,6,65,18,65,6,67,9,67
25890 DATA3,63,6,67,6,65,12,65,6,65,6,69,12,69,9,69,3,69,6
25900 DATA69,6,67,9,67,3,65,18,65,6,63,9,63,3,63,3,60,3,62
25910 DATA3,63,3,65,9,67,3,65,6,70,6,69,9,67,3,69,6,67,6,65
25920 DATA6,63,6,60,6,65,6,62,6,58,3,62,3,65,9,65,3,67,3,69
25930 DATA3,70,3,72,3,74,6,70,3,67,3,65,3,70,6,74,3,72,9,70
25940 DATA3,70,18,-1,1
25950 REM Italien
25960 DATA65,6,65,4,67,2,65,12,74,6,74,4,75,2,74,12,74,6,77
25970 DATA4,75,2,74,12,72,6,74,4,72,2,70,12,65,6,65,4,67,2
25980 DATA65,12,74,6,74,4,75,2,74,12,74,6,77,4,75,2,74,12
25990 DATA72,6,74,4,72,2,70,12,74,6,74,6,69,12,70,4,72,2,70
26000 DATA4,69,2,67,12,70,6,69,4,70,2,72,12,62,6,74,12,75,6
26010 DATA65,6,65,4,67,2,65,12,74,6,74,4,75,2,74,12,74,6,77
26020 DATA4,75,2,74,9,77,3,72,3,77,3,70,6,50,4,67,2,67,6,67
26030 DATA3,50,1,65,2,68,6,67,3,50,1,70,2,70,6,70,3,50,1,69
26040 DATA2,72,6,70,3,50,1,70,2,70,6,72,4,74,2,75,6,67,4,68
26050 DATA2,72,6,70,4,67,2,68,6,65,3,50,1,65,2,65,6,65,3,50
26060 DATA1,64,2,67,6,65,3,50,1,68,2,68,6,68,3,50,1,67,2,70
26070 DATA6,68,3,50,1,77,2,77,6,77,4,75,2,74,6,74,4,72,2,70
26080 DATA6,70,4,68,2,67,6,50,4,67,2,67,6,67,4,66,2,68,6,67
26090 DATA3,50,1,67,2,67,6,65,4,63,2,65,6,62,3,50,1,67,2,67
26100 DATA6,67,4,66,2,68,6,67,3,50,1,67,2,67,6,65,4,63,2,62
26110 DATA6,50,4,67,2,67,6,67,4,65,2,68,6,67,3,50,1,70,2,70
26120 DATA6,69,4,70,2,74,6,72,3,50,1,72,2,72,4,74,2,75,4,77
26130 DATA2,79,6,79,4,79,2,77,6,77,4,77,2,75,3,50,3,75,6,-1
26140 DATA1
26150 REM Luxemburg
26160 DATA70,6,70,9,75,3,75,6,67,6,70,6,68,6,68,9,68,3,68,6
26170 DATA70,3,72,3,70,9,68,3,67,12,50,6,70,6,70,9,75,3,75
26180 DATA9,74,3,72,6,72,6,77,9,75,3,74,6,70,6,74,9,72,3,70
26190 DATA18,65,6,65,9,67,3,68,6,70,6,72,6,72,6,70,9
26200 DATA68,3,67,6,70,6,70,6,75,6,74,18,70,6,70,6,72,3,74
26210 DATA3,75,6,77,6,79,9,77,3,75,6,72,6,70,9,67,3,70,6,68
26220 DATA6,67,18,70,6,70,6,72,3,74,3,75,6,77,6,79,9,77,3
26230 DATA75,6,72,6,70,9,75,3,74,6,77,6,75,18,-1,1
26340 REM Niederlande
26350 DATA62,6,67,6,67,6,69,3,71,3,72,3,69,3,71,6,69,3,71,3
26360 DATA72,6,71,6,69,3,67,3,69,6,67,12,50,6,62,6,67,6,67
26370 DATA6,69,3,71,3,72,3,69,3,71,6,69,3,71,3,72,6,71,6,69
26380 DATA3,67,3,69,6,67,12,50,6,71,3,72,3,74,12,76,6,74,12
26390 DATA72,6,71,6,69,3,71,3,72,6,71,6,69,6,67,6,69,12,50
26400 DATA6,62,6,67,3,66,3,67,3,69,3,71,6,69,12,67,6,66,6
26410 DATA62,6,64,3,66,3,67,6,67,6,66,6,67,12,-1,1
26420 REM Norwegen
26430 DATA67,9,65,3,64,6,62,6,60,6,62,6,64,6,65,6,67,9,69,3
26440 DATA67,6,65,6,64,18,50,6,69,9,67,3,65,6,64,6,62,6,64
26450 DATA6,65,6,67,6,67,9,69,3,69,6,71,6,72,12,50,12,72,9
26460 DATA72,3,71,4,71,2,69,4,69,2,67,12,64,6,50,6,69,9,69
26470 DATA3,67,6,67,6,65,12,50,6,67,4,67,2,67,6,69,6,69,6
26480 DATA71,6,71,12,72,12,72,9,72,3,71,6,72,6,74,12,50,6
26490 DATA74,4,74,2,74,6,76,6,77,6,76,6,74,12,72,6,71,4,69
26500 DATA2,67,9,69,3,69,6,71,6,72,12,-1,1
26510 REM DDR
26520 DATA69,6,69,6,67,6,65,6,70,6,70,6,69,6,67,6,72,6,69,6
26530 DATA65,6,72,6,72,9,74,3,70,12,69,6,69,6,67,6,65,6,70
26540 DATA6,70,6,69,6,67,6,72,6,69,6,74,6,70,6,67,9,64,3,65
26550 DATA18,65,4,64,2,62,9,64,3,65,9,69,3,67,6,60,12,65,4
26560 DATA64,2,62,9,64,3,65,9,69,3,67,12,69,6,69,6,67,6,65
26570 DATA6,70,6,70,6,69,6,67,6,72,6,69,6,65,6,72,6,72,9,74
26580 DATA3,70,6,65,3,67,3,69,12,67,12,72,12,65,6,67,6,69
26590 DATA12,67,12,65,12,-1,1
26600 REM Oestereich
26610 DATA70,12,68,6,67,12,68,3,70,3,72,12,70,6,70,6,68,6
26620 DATA50,6,68,12,67,6,65,12,67,3,68,3,70,12,68,6,68,3
26630 DATA67,3,67,6,50,6,69,12,70,6,72,12,74,6,75,6,72,6,69
26640 DATA6,70,12,50,6,65,12,67,6,70,6,69,6,65,6,67,12,72,3
26650 DATA68,3,67,6,65,6,50,6,65,12,67,6,70,6,68,6,65,6,67
26660 DATA12,72,3,68,3,67,6,65,6,50,6,68,12,67,6,72,12,70,6
26670 DATA70,3,68,3,67,6,65,6,67,12,50,6,72,12,70,6,74,12
26680 DATA75,3,70,3,70,3,68,3,67,6,65,6,63,12,-1,1
26690 REM Portugal
26700 DATA67,2,64,4,60,2,69,12,67,10,69,2,67,6,65,6,64,4,60
26710 DATA2,59,4,60,2,64,12,66,4,67,2,69,4,71,2,67,12,50,6
26720 DATA67,4,71,2,74,12,71,6,67,3,65,3,65,12,64,6,67,4,64
26730 DATA2,60,12,60,3,62,3,64,3,67,3,62,15,50,9,62,9,64,3
26740 DATA60,6,60,6,65,9,67,3,64,6,64,3,67,3,72,9,67,3,67,3
26750 DATA70,6,68,3,67,6,62,12,50,3,65,3,63,6,67,6,67,6,65
26760 DATA3,64,3,62,18,50,3,65,3,63,6,67,4,67,2,67,6,65,3
26770 DATA64,3,67,10,67,2,67,6,50,5,67,2,72,12,70,9,50,2,65
26780 DATA2,69,12,67,6,60,3,62,3,64,6,64,6,67,6,64,6,62,15
26790 DATA50,8,67,2,72,12,70,9,50,2,65,2,69,12,67,6,50,3,67
26800 DATA3,72,3,76,12,74,10,72,2,72,15,64,3,65,3,67,3,69,6
26810 DATA69,6,67,9,67,3,72,15,-1,1
26820 REM BRD
26830 DATA63,9,65,3,67,6,65,6,68,6,67,6,65,3,62,3,63,6,72,6
26840 DATA70,6,68,6,67,6,65,6,67,3,63,3,70,12,63,9,65,3,67
26850 DATA6,65,6,68,6,67,6,65,3,62,3,63,6,72,6,70,6,68,6,67
26860 DATA6,65,6,67,3,63,3,70,12,65,6,67,6,65,3,62,3,58,6
26870 DATA68,6,67,6,65,3,62,3,58,6,70,6,68,6,67,9,67,3,69,6
26880 DATA69,3,70,3,70,12,75,9,74,3,74,3,72,3,70,6,72,9,70
26890 DATA3,70,3,68,3,67,6,65,9,67,2,68,2,70,3,72,3,68,3,65
26900 DATA3,63,6,67,3,65,3,63,12,75,9,74,3,74,3,72,3,70,6
26910 DATA72,9,70,3,70,3,68,3,67,6,65,9,67,2,68,2,70,3,72,3
26920 DATA68,3,65,3,63,6,67,3,65,3,63,12,-1,1
26930 REM Schweden
26940 DATA74,4,74,8,70,4,70,4,70,8,72,4,74,4,74,8,72,4,70,4
26950 DATA69,12,72,4,72,8,69,4,70,4,72,4,69,4,74,5,70,2,67
26960 DATA16,65,8,50,4,65,4,70,8,70,4,72,4,69,8,69,4,70,4
26970 DATA67,5,65,2,67,4,69,4,65,12,65,4,70,5,69,2,70,4,72
26980 DATA4,74,4,70,4,75,5,74,2,72,16,70,8,50,4,65,4,70,5
26990 DATA69,2,70,4,72,4,74,4,70,4,75,5,74,2,72,16,70,16,-1
27000 DATA1
27010 REM Schweiz
27020 DATA65,5,65,2,65,8,70,8,70,5,69,2,69,12,50,4,65,5
27030 DATA65,2,65,8,72,8,72,5,70,2,70,12,50,4,74,12,74,4
27040 DATA72,4,72,4,72,12,70,4,69,8,67,16,64,8,65,20,50
27050 DATA4,69,5,69,2,69,8,69,8,70,12,69,4,67,4,65,4,65
27060 DATA24,65,20,50,4,69,5,69,2,69,8,69,8,70,12,72,4
27070 DATA74,8,72,16,70,8,69,20,50,4,65,5,65,2,65,8,70
27080 DATA8,68,5,67,2,67,12,50,4,67,5,67,2,67,8,72,8,70
27090 DATA5,69,2,69,12,50,4,74,12,74,4,75,4,72,4,70,16
27100 DATA69,8,70,16,72,8,74,12,74,4,75,4,72,4,70,16,70
27110 DATA16,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