home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1988 December
/
64er_Magazin_88-12_1988_Markt__Technik_de_Side_B.d64
/
musik.prc
< prev
next >
Wrap
Text File
|
2022-10-26
|
1KB
|
46 lines
0005 PROC musik CLOSED
0010 USE sound
0020 vorbereiten
0030 noten'lesen
0040 spielen
0050
0060 DATA "g4",8,"e4",8,"e4",16,"f4",8
0070 DATA "d4",8,"d4",16
0080 DATA "c4",8,"d4",8,"e4",8,"f4",8
0090 DATA "g4",8,"g4",8,"g4",16
0100 DATA "g4",8,"e4",8,"e4",16,"f4",8
0110 DATA "d4",8,"d4",16
0120 DATA "c4",8,"e4",8,"g4",8,"g4",8
0130 DATA "c4",32
0140 DATA "d4",8,"d4",8,"d4",8,"d4",8
0150 DATA "d4",8,"e4",8,"f4",16
0160 DATA "e4",8,"e4",8,"e4",8,"e4",8
0170 DATA "e4",8,"f4",8,"g4",16
0180 DATA "g4",8,"e4",8,"e4",16,"f4",8
0190 DATA "d4",8,"d4",16
0200 DATA "c4",8,"e4",8,"g4",8,"g4",8
0210 DATA "c4",32
0220
0230 PROC vorbereiten
0240 USE sound
0250 DIM noten#(50), ads'dauer#(50), r'dauer#(50)
0260 ENDPROC vorbereiten
0270
0280 PROC noten'lesen
0290 nr:=0
0300 WHILE NOT EOD DO
0310 READ notenwert$,zeit
0320 nr:+1
0330 noten#(nr):=frequency(notenwert$)
0340 ads'dauer#(nr):=zeit
0350 r'dauer#(nr):=zeit
0360 ENDWHILE
0370
0380 setscore(1,noten#(),ads'dauer#(),r'dauer#())
0390 ENDPROC noten'lesen
0400
0410 PROC spielen
0420 playscore(1,0,0)
0430 ENDPROC spielen
0440 ENDPROC musik