00000000: 00 20 54 4F 20 47 45 53 4A 4A 4A 20 3A 44 55 52 |. TO GESJJJ :DUR|
00000010: 45 4E 0D 20 41 4C 53 20 4C 45 45 47 3F 20 3A 44 |EN. ALS LEEG? :D|
00000020: 55 52 45 4E 20 44 41 4E 20 53 54 4F 50 0D 20 53 |UREN DAN STOP. S|
00000030: 4A 4A 4A 20 45 45 52 53 54 45 20 3A 44 55 52 45 |JJJ EERSTE :DURE|
00000040: 4E 0D 20 47 45 53 4A 4A 4A 20 4D 45 20 3A 44 55 |N. GESJJJ ME :DU|
00000050: 52 45 4E 0D 45 4E 44 0D 0D 54 4F 20 53 4A 4A 4A |REN.END..TO SJJJ|
00000060: 20 3A 44 55 55 52 0D 20 4B 4C 41 4E 4B 20 39 20 | :DUUR. KLANK 9 |
00000070: 35 20 30 20 30 20 31 32 39 20 54 4F 4F 4E 20 5B |5 0 0 129 TOON [|
00000080: 43 5D 20 3A 44 55 55 52 0D 45 4E 44 0D 0D 54 4F |C] :DUUR.END..TO|
00000090: 20 46 4C 55 49 54 0D 20 4D 41 41 4B 20 22 41 44 | FLUIT. MAAK "AD|
000000A0: 20 31 33 35 20 4D 41 41 4B 20 22 53 52 20 31 35 | 135 MAAK "SR 15|
000000B0: 20 4D 41 41 4B 20 22 47 4F 4C 46 20 31 37 0D 45 | MAAK "GOLF 17.E|
000000C0: 4E 44 0D 0D 54 4F 20 42 41 4E 4A 4F 0D 20 4D 41 |ND..TO BANJO. MA|
000000D0: 41 4B 20 22 41 44 20 31 32 20 4D 41 41 4B 20 22 |AK "AD 12 MAAK "|
000000E0: 53 52 20 31 32 20 4D 41 41 4B 20 22 47 4F 4C 46 |SR 12 MAAK "GOLF|
000000F0: 20 33 33 0D 45 4E 44 0D 0D 54 4F 20 58 59 4C 4F | 33.END..TO XYLO|
00000100: 46 4F 4F 4E 0D 20 4D 41 41 4B 20 22 41 44 20 32 |FOON. MAAK "AD 2|
00000110: 34 20 4D 41 41 4B 20 22 53 52 20 31 35 20 4D 41 |4 MAAK "SR 15 MA|
00000120: 41 4B 20 22 47 4F 4C 46 20 31 37 0D 45 4E 44 0D |AK "GOLF 17.END.|
00000130: 0D 54 4F 20 50 49 41 4E 4F 0D 20 4D 41 41 4B 20 |.TO PIANO. MAAK |
00000140: 22 41 44 20 39 20 4D 41 41 4B 20 22 53 52 20 30 |"AD 9 MAAK "SR 0|
00000150: 20 4D 41 41 4B 20 22 47 4F 4C 46 20 36 35 20 4D | MAAK "GOLF 65 M|
00000160: 41 41 4B 20 22 48 50 20 30 20 4D 41 41 4B 20 22 |AAK "HP 0 MAAK "|
00000170: 4C 50 20 32 35 35 0D 45 4E 44 0D 0D 54 4F 20 4B |LP 255.END..TO K|
00000180: 4C 41 4E 4B 20 3A 41 54 54 20 3A 44 45 43 20 3A |LANK :ATT :DEC :|
00000190: 53 55 53 20 3A 52 45 4C 20 3A 47 4F 4C 46 56 4F |SUS :REL :GOLFVO|
000001A0: 52 4D 0D 20 41 4C 53 20 28 20 45 45 4E 56 41 4E |RM. ALS ( EENVAN|
000001B0: 20 3A 41 54 54 20 3C 20 30 20 3A 44 45 43 20 3C | :ATT < 0 :DEC <|
000001C0: 20 30 20 3A 53 55 53 20 3C 20 30 20 3A 52 45 4C | 0 :SUS < 0 :REL|
000001D0: 20 3C 20 30 20 3A 41 54 54 20 3E 20 31 35 20 3A | < 0 :ATT > 15 :|
000001E0: 44 45 43 20 3E 20 31 35 20 3A 53 55 53 20 3E 20 |DEC > 15 :SUS > |
000001F0: 31 35 20 3A 52 45 4C 20 3E 20 31 35 20 29 20 44 |15 :REL > 15 ) D|
00000200: 41 4E 20 50 52 20 5B 47 45 54 41 4C 4C 45 4E 20 |AN PR [GETALLEN |
00000210: 4D 4F 45 54 45 4E 20 54 55 53 53 45 4E 20 30 20 |MOETEN TUSSEN 0 |
00000220: 45 4E 20 31 35 5D 0D 20 4D 41 41 4B 20 22 41 44 |EN 15]. MAAK "AD|
00000230: 20 42 49 54 4F 52 20 28 20 42 49 54 41 4E 44 20 | BITOR ( BITAND |
00000240: 3A 41 54 54 20 31 35 20 29 20 2A 20 31 36 20 28 |:ATT 15 ) * 16 (|
00000250: 20 42 49 54 41 4E 44 20 3A 41 44 20 31 35 20 29 | BITAND :AD 15 )|
00000260: 0D 20 4D 41 41 4B 20 22 41 44 20 42 49 54 4F 52 |. MAAK "AD BITOR|
00000270: 20 28 20 42 49 54 41 4E 44 20 3A 44 45 43 20 31 | ( BITAND :DEC 1|
00000280: 35 20 29 20 28 20 42 49 54 41 4E 44 20 3A 41 44 |5 ) ( BITAND :AD|
00000290: 20 32 34 30 20 29 0D 20 4D 41 41 4B 20 22 53 52 | 240 ). MAAK "SR|
000002A0: 20 42 49 54 4F 52 20 28 20 42 49 54 41 4E 44 20 | BITOR ( BITAND |
000002B0: 3A 53 55 53 20 31 35 20 29 20 2A 20 31 36 20 28 |:SUS 15 ) * 16 (|
000002C0: 20 42 49 54 41 4E 44 20 3A 53 52 20 31 35 20 29 | BITAND :SR 15 )|
000002D0: 0D 20 4D 41 41 4B 20 22 53 52 20 42 49 54 4F 52 |. MAAK "SR BITOR|
000002E0: 20 28 20 42 49 54 41 4E 44 20 3A 52 45 4C 20 31 | ( BITAND :REL 1|
000002F0: 35 20 29 20 28 20 42 49 54 41 4E 44 20 3A 53 52 |5 ) ( BITAND :SR|
00000300: 20 32 34 30 20 29 0D 20 4D 41 41 4B 20 22 47 4F | 240 ). MAAK "GO|
00000310: 4C 46 20 3A 47 4F 4C 46 56 4F 52 4D 0D 45 4E 44 |LF :GOLFVORM.END|
00000320: 0D 0D 54 4F 20 47 45 4C 55 49 44 20 3A 4E 4F 4F |..TO GELUID :NOO|
00000330: 54 20 3A 44 55 55 52 20 3A 41 44 20 3A 53 52 20 |T :DUUR :AD :SR |
00000340: 3A 47 4F 4C 46 0D 20 2E 44 45 50 4F 53 49 54 20 |:GOLF. .DEPOSIT |
00000350: 35 34 32 39 36 20 31 35 0D 20 2E 44 45 50 4F 53 |54296 15. .DEPOS|
00000360: 49 54 20 35 34 32 37 37 20 3A 41 44 0D 20 2E 44 |IT 54277 :AD. .D|
00000370: 45 50 4F 53 49 54 20 35 34 32 37 38 20 3A 53 52 |EPOSIT 54278 :SR|
00000380: 0D 20 2E 44 45 50 4F 53 49 54 20 35 34 32 37 33 |. .DEPOSIT 54273|
00000390: 20 51 55 4F 54 49 45 4E 54 20 3A 4E 4F 4F 54 20 | QUOTIENT :NOOT |
000003A0: 32 35 36 0D 20 2E 44 45 50 4F 53 49 54 20 35 34 |256. .DEPOSIT 54|
000003B0: 32 37 32 20 42 49 54 41 4E 44 20 3A 4E 4F 4F 54 |272 BITAND :NOOT|
000003C0: 20 32 35 35 0D 20 2E 44 45 50 4F 53 49 54 20 35 | 255. .DEPOSIT 5|
000003D0: 34 32 37 36 20 3A 47 4F 4C 46 0D 20 41 4C 53 20 |4276 :GOLF. ALS |
000003E0: 3A 47 4F 4C 46 20 3D 20 36 35 20 44 41 4E 20 2E |:GOLF = 65 DAN .|
000003F0: 44 45 50 4F 53 49 54 20 35 34 32 37 34 20 3A 4C |DEPOSIT 54274 :L|
00000400: 50 20 2E 44 45 50 4F 53 49 54 20 35 34 32 37 35 |P .DEPOSIT 54275|
00000410: 20 3A 48 50 0D 20 48 45 52 48 41 41 4C 20 3A 44 | :HP. HERHAAL :D|
00000420: 55 55 52 20 2A 20 3A 54 45 4D 50 4F 20 5B 5D 0D |UUR * :TEMPO [].|
00000430: 20 2E 44 45 50 4F 53 49 54 20 35 34 32 37 36 20 | .DEPOSIT 54276 |
00000440: 30 0D 45 4E 44 0D 0D 54 4F 20 54 4F 4F 4E 20 3A |0.END..TO TOON :|
00000450: 4E 4F 4F 54 20 3A 44 55 55 52 0D 20 4C 4F 4B 41 |NOOT :DUUR. LOKA|
00000460: 41 4C 20 22 4E 54 0D 20 41 4C 53 20 4C 49 4A 53 |AL "NT. ALS LIJS|
00000470: 54 3F 20 3A 4E 4F 4F 54 20 4D 41 41 4B 20 22 4E |T? :NOOT MAAK "N|
00000480: 4F 4F 54 20 45 45 52 53 54 45 20 3A 4E 4F 4F 54 |OOT EERSTE :NOOT|
00000490: 0D 20 41 4C 53 20 28 20 45 45 4E 56 41 4E 20 3A |. ALS ( EENVAN :|
000004A0: 4E 4F 4F 54 20 3D 20 22 52 20 3A 4E 4F 4F 54 20 |NOOT = "R :NOOT |
000004B0: 3D 20 22 2D 20 29 20 44 41 4E 20 48 45 52 48 41 |= "- ) DAN HERHA|
000004C0: 41 4C 20 3A 54 45 4D 50 4F 20 2A 20 3A 44 55 55 |AL :TEMPO * :DUU|
000004D0: 52 20 5B 5D 20 53 54 4F 50 0D 20 4D 41 41 4B 20 |R [] STOP. MAAK |
000004E0: 22 4E 54 20 3A 4E 4F 4F 54 0D 20 41 4C 53 20 4E |"NT :NOOT. ALS N|
000004F0: 49 45 54 20 47 45 54 41 4C 3F 20 3A 4E 54 20 44 |IET GETAL? :NT D|
00000500: 41 4E 20 4D 41 41 4B 20 22 4E 54 20 54 4F 4F 4E |AN MAAK "NT TOON|
00000510: 4F 43 54 20 2B 20 54 4F 4F 4E 4F 43 54 20 2B 20 |OCT + TOONOCT + |
00000520: 57 41 41 52 44 45 20 3A 4E 54 0D 20 4D 41 41 4B |WAARDE :NT. MAAK|
00000530: 20 22 4E 54 20 3A 4E 54 20 2B 20 31 32 20 2A 20 | "NT :NT + 12 * |
00000540: 28 20 31 20 2B 20 3A 4F 43 54 41 41 46 20 29 0D |( 1 + :OCTAAF ).|
00000550: 20 41 4C 53 20 3A 4E 54 20 3E 20 37 30 20 44 41 | ALS :NT > 70 DA|
00000560: 4E 20 50 52 20 53 41 4D 45 4E 20 3A 4E 4F 4F 54 |N PR SAMEN :NOOT|
00000570: 20 5B 49 53 20 54 45 20 48 4F 4F 47 5D 20 53 54 | [IS TE HOOG] ST|
00000580: 4F 50 0D 20 41 4C 53 20 3A 4E 54 20 3C 20 30 20 |OP. ALS :NT < 0 |
00000590: 44 41 4E 20 50 52 20 53 41 4D 45 4E 20 3A 4E 4F |DAN PR SAMEN :NO|
000005A0: 4F 54 20 5B 49 53 20 54 45 20 4C 41 41 47 5D 20 |OT [IS TE LAAG] |
000005B0: 53 54 4F 50 0D 20 47 45 4C 55 49 44 20 28 20 45 |STOP. GELUID ( E|
000005C0: 4C 45 4D 45 4E 54 20 31 20 2B 20 28 20 52 45 53 |LEMENT 1 + ( RES|
000005D0: 54 20 3A 4E 54 20 31 32 20 29 20 3A 4C 41 44 44 |T :NT 12 ) :LADD|
000005E0: 45 52 20 29 20 2A 20 28 20 45 4C 45 4D 45 4E 54 |ER ) * ( ELEMENT|
000005F0: 20 31 20 2B 20 28 20 51 55 4F 54 49 45 4E 54 20 | 1 + ( QUOTIENT |
00000600: 3A 4E 54 20 31 32 20 29 20 5B 30 2E 31 32 35 20 |:NT 12 ) [0.125 |
00000610: 30 2E 32 35 20 30 2E 35 20 31 20 32 20 34 20 38 |0.25 0.5 1 2 4 8|
00000620: 5D 20 29 20 3A 44 55 55 52 20 3A 41 44 20 3A 53 |] ) :DUUR :AD :S|
00000630: 52 20 3A 47 4F 4C 46 0D 45 4E 44 0D 0D 54 4F 20 |R :GOLF.END..TO |
00000640: 53 50 45 45 4C 20 3A 4E 4F 54 45 4E 20 3A 44 55 |SPEEL :NOTEN :DU|
00000650: 52 45 4E 0D 20 41 4C 53 20 4C 45 45 47 3F 20 3A |REN. ALS LEEG? :|
00000660: 4E 4F 54 45 4E 20 53 54 4F 50 0D 20 54 4F 4F 4E |NOTEN STOP. TOON|
00000670: 20 45 45 52 53 54 45 20 3A 4E 4F 54 45 4E 20 45 | EERSTE :NOTEN E|
00000680: 45 52 53 54 45 20 3A 44 55 52 45 4E 0D 20 53 50 |ERSTE :DUREN. SP|
00000690: 45 45 4C 20 4D 45 20 3A 4E 4F 54 45 4E 20 4D 45 |EEL ME :NOTEN ME|
000006A0: 20 3A 44 55 52 45 4E 0D 45 4E 44 0D 0D 54 4F 20 | :DUREN.END..TO |
000006B0: 5A 49 4E 47 20 3A 4E 4F 54 45 4E 0D 20 41 4C 53 |ZING :NOTEN. ALS|
000006C0: 20 3A 4E 4F 54 45 4E 20 3D 20 5B 5D 20 44 41 4E | :NOTEN = [] DAN|
000006D0: 20 53 54 4F 50 0D 20 54 4F 4F 4E 20 45 45 52 53 | STOP. TOON EERS|
000006E0: 54 45 20 3A 4E 4F 54 45 4E 20 31 30 0D 20 5A 49 |TE :NOTEN 10. ZI|
000006F0: 4E 47 20 4D 45 20 3A 4E 4F 54 45 4E 0D 45 4E 44 |NG ME :NOTEN.END|
00000700: 0D 0D 54 4F 20 54 4F 4F 4E 4F 43 54 0D 20 41 4C |..TO TOONOCT. AL|
00000710: 53 20 4C 41 41 54 53 54 45 20 3A 4E 54 20 3D 20 |S LAATSTE :NT = |
00000720: 22 2B 20 4D 41 41 4B 20 22 4E 54 20 4D 4C 20 3A |"+ MAAK "NT ML :|
00000730: 4E 54 20 52 45 53 20 31 32 0D 20 41 4C 53 20 4C |NT RES 12. ALS L|
00000740: 41 41 54 53 54 45 20 3A 4E 54 20 3D 20 22 2D 20 |AATSTE :NT = "- |
00000750: 4D 41 41 4B 20 22 4E 54 20 4D 4C 20 3A 4E 54 20 |MAAK "NT ML :NT |
00000760: 52 45 53 20 2D 20 31 32 0D 20 52 45 53 20 30 0D |RES - 12. RES 0.|
00000770: 45 4E 44 0D 0D 54 4F 20 21 4D 0D 20 57 45 47 20 |END..TO !M. WEG |
00000780: 5B 50 55 4C 53 20 54 4F 4F 4E 4F 43 54 20 4F 43 |[PULS TOONOCT OC|
00000790: 54 41 41 46 20 47 4F 4C 46 20 54 45 4D 50 4F 20 |TAAF GOLF TEMPO |
000007A0: 5A 49 4E 47 20 53 50 45 45 4C 20 54 4F 4F 4E 20 |ZING SPEEL TOON |
000007B0: 47 45 4C 55 49 44 20 4B 4C 41 4E 4B 20 5A 45 54 |GELUID KLANK ZET|
000007C0: 4F 50 20 50 49 41 4E 4F 20 58 59 4C 4F 46 4F 4F |OP PIANO XYLOFOO|
000007D0: 4E 20 42 41 4E 4A 4F 20 46 4C 55 49 54 20 53 4A |N BANJO FLUIT SJ|
000007E0: 4A 4A 20 47 45 53 4A 4A 4A 20 4E 41 4D 45 4E 20 |JJ GESJJJ NAMEN |
000007F0: 21 4D 5D 0D 20 2E 47 43 4F 4C 4C 20 50 52 20 2E |!M]. .GCOLL PR .|
00000800: 4E 4F 44 45 53 0D 45 4E 44 0D 0D 54 4F 20 50 55 |NODES.END..TO PU|
00000810: 4C 53 20 3A 42 52 45 45 44 54 45 0D 20 2E 44 45 |LS :BREEDTE. .DE|
00000820: 50 4F 53 49 54 20 35 34 32 37 35 20 51 55 4F 54 |POSIT 54275 QUOT|
00000830: 49 45 4E 54 20 3A 42 52 45 45 44 54 45 20 32 35 |IENT :BREEDTE 25|
00000840: 36 0D 20 2E 44 45 50 4F 53 49 54 20 35 34 32 37 |6. .DEPOSIT 5427|
00000850: 34 20 42 49 54 41 4E 44 20 3A 42 52 45 45 44 54 |4 BITAND :BREEDT|
00000860: 45 20 32 35 35 0D 45 4E 44 0D 0D 54 4F 20 4F 43 |E 255.END..TO OC|
00000870: 54 41 41 46 20 3A 4E 0D 20 41 4C 53 20 3A 4E 20 |TAAF :N. ALS :N |
00000880: 3D 20 22 2B 20 4D 41 41 4B 20 22 4F 43 54 41 41 |= "+ MAAK "OCTAA|
00000890: 46 20 3A 4F 43 54 41 41 46 20 2B 20 31 20 53 54 |F :OCTAAF + 1 ST|
000008A0: 4F 50 0D 20 41 4C 53 20 3A 4E 20 3D 20 22 2D 20 |OP. ALS :N = "- |
000008B0: 4D 41 41 4B 20 22 4F 43 54 41 41 46 20 3A 4F 43 |MAAK "OCTAAF :OC|
000008C0: 54 41 41 46 20 2D 20 31 20 53 54 4F 50 0D 20 41 |TAAF - 1 STOP. A|
000008D0: 4C 53 20 45 45 4E 56 41 4E 20 3A 4E 20 3C 20 2D |LS EENVAN :N < -|
000008E0: 20 32 20 3A 4E 20 3E 20 34 20 50 52 20 5B 4B 41 | 2 :N > 4 PR [KA|
000008F0: 4E 20 4E 49 45 54 5D 0D 20 4D 41 41 4B 20 22 4F |N NIET]. MAAK "O|
00000900: 43 54 41 41 46 20 3A 4E 0D 45 4E 44 0D 0D 54 4F |CTAAF :N.END..TO|
00000910: 20 47 4F 4C 46 20 3A 4E 0D 20 4D 41 41 4B 20 22 | GOLF :N. MAAK "|
00000920: 47 4F 4C 46 20 3A 4E 0D 45 4E 44 0D 0D 54 4F 20 |GOLF :N.END..TO |
00000930: 54 45 4D 50 4F 20 3A 4E 0D 20 4D 41 41 4B 20 22 |TEMPO :N. MAAK "|
00000940: 54 45 4D 50 4F 20 3A 4E 0D 45 4E 44 0D 0D 54 4F |TEMPO :N.END..TO|
00000950: 20 5A 45 54 4F 50 0D 20 54 45 4D 50 4F 20 32 30 | ZETOP. TEMPO 20|
00000960: 0D 20 4D 41 41 4B 20 22 41 44 20 39 0D 20 4D 41 |. MAAK "AD 9. MA|
00000970: 41 4B 20 22 53 52 20 30 0D 20 4D 41 41 4B 20 22 |AK "SR 0. MAAK "|
00000980: 47 4F 4C 46 20 31 37 0D 20 4D 41 41 4B 20 22 4F |GOLF 17. MAAK "O|
00000990: 43 54 41 41 46 20 31 0D 20 4D 41 41 4B 20 22 48 |CTAAF 1. MAAK "H|
000009A0: 50 20 31 35 0D 20 4D 41 41 4B 20 22 4C 50 20 31 |P 15. MAAK "LP 1|
000009B0: 35 0D 20 4D 41 41 4B 20 22 4C 41 44 44 45 52 20 |5. MAAK "LADDER |
000009C0: 5B 38 37 37 39 20 39 33 30 31 20 39 38 35 34 20 |[8779 9301 9854 |
000009D0: 31 30 34 34 30 20 31 31 30 36 30 20 31 31 37 31 |10440 11060 1171|
000009E0: 38 20 31 32 34 31 35 20 31 33 31 35 33 20 31 33 |8 12415 13153 13|
000009F0: 39 33 35 20 31 34 37 36 34 20 31 35 37 34 32 20 |935 14764 15742 |
00000A00: 31 36 35 37 32 20 31 37 35 35 37 20 31 38 36 30 |16572 17557 1860|
00000A10: 31 5D 0D 20 4D 41 41 4B 20 22 41 20 39 0D 20 4D |1]. MAAK "A 9. M|
00000A20: 41 41 4B 20 22 42 20 31 31 0D 20 4D 41 41 4B 20 |AAK "B 11. MAAK |
00000A30: 22 43 20 30 0D 20 4D 41 41 4B 20 22 44 20 32 0D |"C 0. MAAK "D 2.|
00000A40: 20 4D 41 41 4B 20 22 45 20 34 0D 20 4D 41 41 4B | MAAK "E 4. MAAK|
00000A50: 20 22 46 20 35 0D 20 4D 41 41 4B 20 22 47 20 37 | "F 5. MAAK "G 7|
00000A60: 0D 20 4D 41 41 4B 20 22 41 49 53 20 31 30 0D 20 |. MAAK "AIS 10. |
00000A70: 4D 41 41 4B 20 22 42 45 53 20 31 30 0D 20 4D 41 |MAAK "BES 10. MA|
00000A80: 41 4B 20 22 43 49 53 20 31 0D 20 4D 41 41 4B 20 |AK "CIS 1. MAAK |
00000A90: 22 44 49 53 20 33 0D 20 4D 41 41 4B 20 22 46 49 |"DIS 3. MAAK "FI|
00000AA0: 53 20 36 0D 20 4D 41 41 4B 20 22 47 49 53 20 38 |S 6. MAAK "GIS 8|
00000AB0: 0D 45 4E 44 0D 0D 4D 41 41 4B 20 22 47 49 53 20 |.END..MAAK "GIS |
00000AC0: 28 38 29 0D 4D 41 41 4B 20 22 46 49 53 20 28 36 |(8).MAAK "FIS (6|
00000AD0: 29 0D 4D 41 41 4B 20 22 44 49 53 20 28 33 29 0D |).MAAK "DIS (3).|
00000AE0: 4D 41 41 4B 20 22 43 49 53 20 28 31 29 0D 4D 41 |MAAK "CIS (1).MA|
00000AF0: 41 4B 20 22 42 45 53 20 28 31 30 29 0D 4D 41 41 |AK "BES (10).MAA|
00000B00: 4B 20 22 41 49 53 20 28 31 30 29 0D 4D 41 41 4B |K "AIS (10).MAAK|
00000B10: 20 22 47 20 28 37 29 0D 4D 41 41 4B 20 22 46 20 | "G (7).MAAK "F |
00000B20: 28 35 29 0D 4D 41 41 4B 20 22 45 20 28 34 29 0D |(5).MAAK "E (4).|
00000B30: 4D 41 41 4B 20 22 44 20 28 32 29 0D 4D 41 41 4B |MAAK "D (2).MAAK|
00000B40: 20 22 43 20 28 30 29 0D 4D 41 41 4B 20 22 42 20 | "C (0).MAAK "B |
00000B50: 28 31 31 29 0D 4D 41 41 4B 20 22 41 20 28 39 29 |(11).MAAK "A (9)|
00000B60: 0D 4D 41 41 4B 20 22 4C 41 44 44 45 52 20 5B 38 |.MAAK "LADDER [8|
00000B70: 37 37 39 20 39 33 30 31 20 39 38 35 34 20 31 30 |779 9301 9854 10|
00000B80: 34 34 30 20 31 31 30 36 30 20 31 31 37 31 38 20 |440 11060 11718 |
00000B90: 31 32 34 31 35 20 31 33 31 35 33 20 31 33 39 33 |12415 13153 1393|
00000BA0: 35 20 31 34 37 36 34 20 31 35 37 34 32 20 31 36 |5 14764 15742 16|
00000BB0: 35 37 32 20 31 37 35 35 37 20 31 38 36 30 31 5D |572 17557 18601]|
00000BC0: 0D 4D 41 41 4B 20 22 4C 50 20 28 32 35 35 29 0D |.MAAK "LP (255).|
00000BD0: 4D 41 41 4B 20 22 48 50 20 28 30 29 0D 4D 41 41 |MAAK "HP (0).MAA|
00000BE0: 4B 20 22 4F 43 54 41 41 46 20 28 31 29 0D 4D 41 |K "OCTAAF (1).MA|
00000BF0: 41 4B 20 22 47 4F 4C 46 20 28 36 35 29 0D 4D 41 |AK "GOLF (65).MA|
00000C00: 41 4B 20 22 53 52 20 28 30 29 0D 4D 41 41 4B 20 |AK "SR (0).MAAK |
00000C10: 22 41 44 20 28 39 29 0D 4D 41 41 4B 20 22 54 45 |"AD (9).MAAK "TE|
00000C20: 4D 50 4F 20 28 32 30 29 0D 4D 41 41 4B 20 22 53 |MPO (20).MAAK "S|
00000C30: 54 41 52 54 4F 50 20 5B 5A 45 54 4F 50 5D 0D |TARTOP [ZETOP]. |
. TO GESJJJ :DUREN. ALS LEEG? :DUREN DAN
STOP. SJJJ EERSTE :DUREN. GESJJJ ME :DU
REN.END..TO SJJJ :DUUR. KLANK 9 5 0 0 12
9 TOON [C] :DUUR.END..TO FLUIT. MAAK "AD
135 MAAK "SR 15 MAAK "GOLF 17.END..TO B
ANJO. MAAK "AD 12 MAAK "SR 12 MAAK "GOLF
33.END..TO XYLOFOON. MAAK "AD 24 MAAK "
SR 15 MAAK "GOLF 17.END..TO PIANO. MAAK
"AD 9 MAAK "SR 0 MAAK "GOLF 65 MAAK "HP
0 MAAK "LP 255.END..TO KLANK :ATT :DEC :
SUS :REL :GOLFVORM. ALS ( EENVAN :ATT <
0 :DEC < 0 :SUS < 0 :REL < 0 :ATT > 15 :
DEC > 15 :SUS > 15 :REL > 15 ) DAN PR [G
ETALLEN MOETEN TUSSEN 0 EN 15]. MAAK "AD
BITOR ( BITAND :ATT 15 ) * 16 ( BITAND
:AD 15 ). MAAK "AD BITOR ( BITAND :DEC 1
5 ) ( BITAND :AD 240 ). MAAK "SR BITOR (
BITAND :SUS 15 ) * 16 ( BITAND :SR 15 )
. MAAK "SR BITOR ( BITAND :REL 15 ) ( BI
TAND :SR 240 ). MAAK "GOLF :GOLFVORM.END
..TO GELUID :NOOT :DUUR :AD :SR :GOLF. .
DEPOSIT 54296 15. .DEPOSIT 54277 :AD. .D
EPOSIT 54278 :SR. .DEPOSIT 54273 QUOTIEN
T :NOOT 256. .DEPOSIT 54272 BITAND :NOOT
255. .DEPOSIT 54276 :GOLF. ALS :GOLF =
65 DAN .DEPOSIT 54274 :LP .DEPOSIT 54275
:HP. HERHAAL :DUUR * :TEMPO []. .DEPOSI
T 54276 0.END..TO TOON :NOOT :DUUR. LOKA
AL "NT. ALS LIJST? :NOOT MAAK "NOOT EERS
TE :NOOT. ALS ( EENVAN :NOOT = "R :NOOT
= "- ) DAN HERHAAL :TEMPO * :DUUR [] STO
P. MAAK "NT :NOOT. ALS NIET GETAL? :NT D
AN MAAK "NT TOONOCT + TOONOCT + WAARDE :
NT. MAAK "NT :NT + 12 * ( 1 + :OCTAAF ).
ALS :NT > 70 DAN PR SAMEN :NOOT [IS TE
HOOG] STOP. ALS :NT < 0 DAN PR SAMEN :NO
OT [IS TE LAAG] STOP. GELUID ( ELEMENT 1
+ ( REST :NT 12 ) :LADDER ) * ( ELEMENT
1 + ( QUOTIENT :NT 12 ) [0.125 0.25 0.5
1 2 4 8] ) :DUUR :AD :SR :GOLF.END..TO
SPEEL :NOTEN :DUREN. ALS LEEG? :NOTEN ST
OP. TOON EERSTE :NOTEN EERSTE :DUREN. SP
EEL ME :NOTEN ME :DUREN.END..TO ZING :NO
TEN. ALS :NOTEN = [] DAN STOP. TOON EERS
TE :NOTEN 10. ZING ME :NOTEN.END..TO TOO
NOCT. ALS LAATSTE :NT = "+ MAAK "NT ML :
NT RES 12. ALS LAATSTE :NT = "- MAAK "NT
ML :NT RES - 12. RES 0.END..TO !M. WEG
[PULS TOONOCT OCTAAF GOLF TEMPO ZING SPE
EL TOON GELUID KLANK ZETOP PIANO XYLOFOO
N BANJO FLUIT SJJJ GESJJJ NAMEN !M]. .GC
OLL PR .NODES.END..TO PULS :BREEDTE. .DE
POSIT 54275 QUOTIENT :BREEDTE 256. .DEPO
SIT 54274 BITAND :BREEDTE 255.END..TO OC
TAAF :N. ALS :N = "+ MAAK "OCTAAF :OCTAA
F + 1 STOP. ALS :N = "- MAAK "OCTAAF :OC
TAAF - 1 STOP. ALS EENVAN :N < - 2 :N >
4 PR [KAN NIET]. MAAK "OCTAAF :N.END..TO
GOLF :N. MAAK "GOLF :N.END..TO TEMPO :N
. MAAK "TEMPO :N.END..TO ZETOP. TEMPO 20
. MAAK "AD 9. MAAK "SR 0. MAAK "GOLF 17.
MAAK "OCTAAF 1. MAAK "HP 15. MAAK "LP 1
5. MAAK "LADDER [8779 9301 9854 10440 11
060 11718 12415 13153 13935 14764 15742
16572 17557 18601]. MAAK "A 9. MAAK "B 1
1. MAAK "C 0. MAAK "D 2. MAAK "E 4. MAAK
"F 5. MAAK "G 7. MAAK "AIS 10. MAAK "BE
S 10. MAAK "CIS 1. MAAK "DIS 3. MAAK "FI
S 6. MAAK "GIS 8.END..MAAK "GIS (8).MAAK
"FIS (6).MAAK "DIS (3).MAAK "CIS (1).MA
AK "BES (10).MAAK "AIS (10).MAAK "G (7).
MAAK "F (5).MAAK "E (4).MAAK "D (2).MAAK
"C (0).MAAK "B (11).MAAK "A (9).MAAK "L
ADDER [8779 9301 9854 10440 11060 11718
12415 13153 13935 14764 15742 16572 1755
7 18601].MAAK "LP (255).MAAK "HP (0).MAA
K "OCTAAF (1).MAAK "GOLF (65).MAAK "SR (
0).MAAK "AD (9).MAAK "TEMPO (20).MAAK "S
TARTOP [ZETOP].
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL