NEDLOGO.LOGO
FILE INFORMATION
FILENAME(S): NEDLOGO.LOGO
FILE TYPE(S): PRG
FILE SIZE: 3.5K
FIRST SEEN: 2025-11-30 21:27:28
APPEARS ON: 1 disk(s)
FILE HASH
39e71d1b3ab74a61c7ca986ce8745f70399e8403a0d4004e8f123245b74cafc7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HOLLYWOOD II | NEDLOGO.LOGO | PRG | DuncanTwain | 7 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 20 54 4F 20 53 49 4E 47 20 3A 50 0D 20 49 46 |. TO SING :P. IF| 00000010: 20 3A 50 20 3D 20 5B 5D 20 53 54 4F 50 0D 20 4E | :P = [] STOP. N| 00000020: 4F 54 45 20 46 49 52 53 54 20 3A 50 20 31 30 0D |OTE FIRST :P 10.| 00000030: 20 53 49 4E 47 20 42 46 20 3A 50 0D 45 4E 44 0D | SING BF :P.END.| 00000040: 0D 54 4F 20 53 53 48 45 52 20 3A 44 55 52 53 0D |.TO SSHER :DURS.| 00000050: 20 49 46 20 45 4D 50 54 59 3F 20 3A 44 55 52 53 | IF EMPTY? :DURS| 00000060: 20 53 54 4F 50 0D 20 53 53 48 20 46 49 52 53 54 | STOP. SSH FIRST| 00000070: 20 3A 44 55 52 53 0D 20 53 53 48 45 52 20 42 46 | :DURS. SSHER BF| 00000080: 20 3A 44 55 52 53 0D 45 4E 44 0D 0D 54 4F 20 53 | :DURS.END..TO S| 00000090: 53 48 20 3A 44 0D 20 53 4F 55 4E 44 20 32 30 30 |SH :D. SOUND 200| 000000A0: 30 30 20 3A 44 20 37 20 30 20 31 32 39 0D 45 4E |00 :D 7 0 129.EN| 000000B0: 44 0D 0D 54 4F 20 52 45 4C 45 41 53 45 20 3A 41 |D..TO RELEASE :A| 000000C0: 0D 20 4D 41 4B 45 20 22 53 52 20 42 49 54 4F 52 |. MAKE "SR BITOR| 000000D0: 20 28 20 42 49 54 41 4E 44 20 3A 41 20 31 35 20 | ( BITAND :A 15 | 000000E0: 29 20 28 20 42 49 54 41 4E 44 20 3A 53 52 20 32 |) ( BITAND :SR 2| 000000F0: 34 30 20 29 0D 45 4E 44 0D 0D 54 4F 20 53 55 53 |40 ).END..TO SUS| 00000100: 54 41 49 4E 20 3A 41 0D 20 4D 41 4B 45 20 22 53 |TAIN :A. MAKE "S| 00000110: 52 20 42 49 54 4F 52 20 28 20 42 49 54 41 4E 44 |R BITOR ( BITAND| 00000120: 20 3A 41 20 31 35 20 29 20 2A 20 31 36 20 28 20 | :A 15 ) * 16 ( | 00000130: 42 49 54 41 4E 44 20 3A 53 52 20 31 35 20 29 0D |BITAND :SR 15 ).| 00000140: 45 4E 44 0D 0D 54 4F 20 53 4F 55 4E 44 20 3A 50 |END..TO SOUND :P| 00000150: 49 54 43 48 20 3A 44 55 52 20 3A 41 44 20 3A 53 |ITCH :DUR :AD :S| 00000160: 52 20 3A 57 41 56 45 46 4F 52 4D 0D 20 2E 44 45 |R :WAVEFORM. .DE| 00000170: 50 4F 53 49 54 20 35 34 32 39 36 20 31 35 0D 20 |POSIT 54296 15. | 00000180: 2E 44 45 50 4F 53 49 54 20 35 34 32 37 37 20 3A |.DEPOSIT 54277 :| 00000190: 41 44 0D 20 2E 44 45 50 4F 53 49 54 20 35 34 32 |AD. .DEPOSIT 542| 000001A0: 37 38 20 3A 53 52 0D 20 2E 44 45 50 4F 53 49 54 |78 :SR. .DEPOSIT| 000001B0: 20 35 34 32 37 33 20 51 55 4F 54 49 45 4E 54 20 | 54273 QUOTIENT | 000001C0: 3A 50 49 54 43 48 20 32 35 36 0D 20 2E 44 45 50 |:PITCH 256. .DEP| 000001D0: 4F 53 49 54 20 35 34 32 37 32 20 42 49 54 41 4E |OSIT 54272 BITAN| 000001E0: 44 20 3A 50 49 54 43 48 20 32 35 35 0D 20 2E 44 |D :PITCH 255. .D| 000001F0: 45 50 4F 53 49 54 20 35 34 32 37 36 20 3A 57 41 |EPOSIT 54276 :WA| 00000200: 56 45 46 4F 52 4D 0D 20 52 45 50 45 41 54 20 3A |VEFORM. REPEAT :| 00000210: 44 55 52 20 2A 20 3A 54 45 4D 50 4F 20 5B 5D 0D |DUR * :TEMPO [].| 00000220: 20 2E 44 45 50 4F 53 49 54 20 35 34 32 37 36 20 | .DEPOSIT 54276 | 00000230: 30 0D 45 4E 44 0D 0D 54 4F 20 53 45 54 55 50 0D |0.END..TO SETUP.| 00000240: 20 49 46 20 5B 5D 20 3D 20 54 45 58 54 20 22 53 | IF [] = TEXT "S| 00000250: 4F 55 4E 44 20 52 45 41 44 20 22 53 4F 55 4E 44 |OUND READ "SOUND| 00000260: 0D 20 54 45 4D 50 4F 20 32 30 0D 20 4D 41 4B 45 |. TEMPO 20. MAKE| 00000270: 20 22 41 44 20 39 0D 20 4D 41 4B 45 20 22 53 52 | "AD 9. MAKE "SR| 00000280: 20 30 0D 20 4D 41 4B 45 20 22 57 41 56 45 46 4F | 0. MAKE "WAVEFO| 00000290: 52 4D 20 31 37 0D 20 4D 41 4B 45 20 22 4F 43 54 |RM 17. MAKE "OCT| 000002A0: 41 56 45 20 31 0D 20 4D 41 4B 45 20 22 50 49 54 |AVE 1. MAKE "PIT| 000002B0: 43 48 45 53 20 5B 38 37 37 39 20 39 33 30 31 20 |CHES [8779 9301 | 000002C0: 39 38 35 34 20 31 30 34 34 30 20 31 31 30 36 30 |9854 10440 11060| 000002D0: 20 31 31 37 31 38 20 31 32 34 31 35 20 31 33 31 | 11718 12415 131| 000002E0: 35 33 20 31 33 39 33 35 20 31 34 37 36 34 20 31 |53 13935 14764 1| 000002F0: 35 37 34 32 20 31 36 35 37 32 20 31 37 35 35 37 |5742 16572 17557| 00000300: 20 31 38 36 30 31 5D 0D 45 4E 44 0D 0D 54 4F 20 | 18601].END..TO | 00000310: 54 45 4D 50 4F 20 3A 4E 0D 20 4D 41 4B 45 20 22 |TEMPO :N. MAKE "| 00000320: 54 45 4D 50 4F 20 3A 4E 0D 45 4E 44 0D 0D 54 4F |TEMPO :N.END..TO| 00000330: 20 44 45 43 41 59 20 3A 41 0D 20 4D 41 4B 45 20 | DECAY :A. MAKE | 00000340: 22 41 44 20 42 49 54 4F 52 20 28 20 42 49 54 41 |"AD BITOR ( BITA| 00000350: 4E 44 20 3A 41 20 31 35 20 29 20 28 20 42 49 54 |ND :A 15 ) ( BIT| 00000360: 41 4E 44 20 3A 41 44 20 32 34 30 20 29 0D 45 4E |AND :AD 240 ).EN| 00000370: 44 0D 0D 54 4F 20 41 54 54 41 43 4B 20 3A 41 0D |D..TO ATTACK :A.| 00000380: 20 4D 41 4B 45 20 22 41 44 20 42 49 54 4F 52 20 | MAKE "AD BITOR | 00000390: 28 20 42 49 54 41 4E 44 20 3A 41 20 31 35 20 29 |( BITAND :A 15 )| 000003A0: 20 2A 20 31 36 20 28 20 42 49 54 41 4E 44 20 3A | * 16 ( BITAND :| 000003B0: 41 44 20 31 35 20 29 0D 45 4E 44 0D 0D 54 4F 20 |AD 15 ).END..TO | 000003C0: 4F 43 54 20 3A 4E 0D 20 4F 50 20 49 54 45 4D 20 |OCT :N. OP ITEM | 000003D0: 31 20 2B 20 3A 4E 20 5B 30 2E 31 32 35 20 30 2E |1 + :N [0.125 0.| 000003E0: 32 35 20 30 2E 35 20 31 20 32 20 34 20 38 5D 0D |25 0.5 1 2 4 8].| 000003F0: 45 4E 44 0D 0D 54 4F 20 57 41 56 45 20 3A 4E 0D |END..TO WAVE :N.| 00000400: 20 4D 41 4B 45 20 22 57 41 56 45 46 4F 52 4D 20 | MAKE "WAVEFORM | 00000410: 3A 4E 0D 45 4E 44 0D 0D 54 4F 20 50 55 4C 53 45 |:N.END..TO PULSE| 00000420: 20 3A 57 49 44 54 48 0D 20 2E 44 45 50 4F 53 49 | :WIDTH. .DEPOSI| 00000430: 54 20 35 34 32 37 35 20 51 55 4F 54 49 45 4E 54 |T 54275 QUOTIENT| 00000440: 20 3A 57 49 44 54 48 20 32 35 36 0D 20 2E 44 45 | :WIDTH 256. .DE| 00000450: 50 4F 53 49 54 20 35 34 32 37 34 20 42 49 54 41 |POSIT 54274 BITA| 00000460: 4E 44 20 3A 57 49 44 54 48 20 32 35 35 0D 45 4E |ND :WIDTH 255.EN| 00000470: 44 0D 0D 54 4F 20 5A 49 4E 47 20 3A 50 0D 20 49 |D..TO ZING :P. I| 00000480: 46 20 3A 50 20 3D 20 5B 5D 20 53 54 4F 50 0D 20 |F :P = [] STOP. | 00000490: 4E 4F 54 45 20 46 49 52 53 54 20 3A 50 20 31 30 |NOTE FIRST :P 10| 000004A0: 0D 20 5A 49 4E 47 20 42 46 20 3A 50 0D 45 4E 44 |. ZING BF :P.END| 000004B0: 0D 0D 54 4F 20 4E 4F 54 45 20 3A 50 20 3A 44 0D |..TO NOTE :P :D.| 000004C0: 20 49 46 20 3A 50 20 3D 20 22 52 20 52 45 50 45 | IF :P = "R REPE| 000004D0: 41 54 20 3A 54 45 4D 50 4F 20 2A 20 3A 44 20 5B |AT :TEMPO * :D [| 000004E0: 5D 20 53 54 4F 50 0D 20 4D 41 4B 45 20 22 50 20 |] STOP. MAKE "P | 000004F0: 3A 50 20 2B 20 32 34 0D 20 53 4F 55 4E 44 20 28 |:P + 24. SOUND (| 00000500: 20 49 54 45 4D 20 31 20 2B 20 28 20 52 45 4D 41 | ITEM 1 + ( REMA| 00000510: 49 4E 44 45 52 20 3A 50 20 31 32 20 29 20 3A 50 |INDER :P 12 ) :P| 00000520: 49 54 43 48 45 53 20 29 20 2A 20 28 20 4F 43 54 |ITCHES ) * ( OCT| 00000530: 20 51 55 4F 54 49 45 4E 54 20 3A 50 20 31 32 20 | QUOTIENT :P 12 | 00000540: 29 20 3A 44 20 3A 41 44 20 3A 53 52 20 3A 57 41 |) :D :AD :SR :WA| 00000550: 56 45 46 4F 52 4D 0D 45 4E 44 0D 0D 54 4F 20 47 |VEFORM.END..TO G| 00000560: 4F 4C 46 56 4F 52 4D 20 3A 4E 0D 20 4D 41 4B 45 |OLFVORM :N. MAKE| 00000570: 20 22 57 41 56 45 46 4F 52 4D 20 3A 4E 0D 45 4E | "WAVEFORM :N.EN| 00000580: 44 0D 0D 54 4F 20 43 0D 20 53 50 45 45 4C 20 5B |D..TO C. SPEEL [| 00000590: 30 20 31 20 32 20 33 20 34 20 35 20 36 20 37 20 |0 1 2 3 4 5 6 7 | 000005A0: 38 20 39 20 31 30 20 31 31 20 31 32 5D 20 5B 31 |8 9 10 11 12] [1| 000005B0: 35 20 31 35 20 31 35 20 31 35 20 31 35 20 31 35 |5 15 15 15 15 15| 000005C0: 20 31 35 20 31 35 20 31 35 20 31 35 20 31 35 20 | 15 15 15 15 15 | 000005D0: 31 35 20 31 35 5D 0D 45 4E 44 0D 0D 54 4F 20 53 |15 15].END..TO S| 000005E0: 50 45 45 4C 20 3A 50 20 3A 44 0D 20 49 46 20 45 |PEEL :P :D. IF E| 000005F0: 4D 50 54 59 3F 20 3A 50 20 53 54 4F 50 0D 20 4E |MPTY? :P STOP. N| 00000600: 4F 54 45 20 46 49 52 53 54 20 3A 50 20 46 49 52 |OTE FIRST :P FIR| 00000610: 53 54 20 3A 44 0D 20 53 50 45 45 4C 20 42 46 20 |ST :D. SPEEL BF | 00000620: 3A 50 20 42 46 20 3A 44 0D 45 4E 44 0D 0D 54 4F |:P BF :D.END..TO| 00000630: 20 4D 0D 20 53 50 45 45 4C 20 5B 30 20 32 20 34 | M. SPEEL [0 2 4| 00000640: 20 35 20 37 20 39 20 31 31 20 31 32 5D 20 5B 31 | 5 7 9 11 12] [1| 00000650: 35 20 31 35 20 31 35 20 31 35 20 31 35 20 31 35 |5 15 15 15 15 15| 00000660: 20 31 35 20 31 35 5D 0D 45 4E 44 0D 0D 54 4F 20 | 15 15].END..TO | 00000670: 50 4C 41 59 20 3A 50 20 3A 44 0D 20 49 46 20 45 |PLAY :P :D. IF E| 00000680: 4D 50 54 59 3F 20 3A 50 20 53 54 4F 50 0D 20 4E |MPTY? :P STOP. N| 00000690: 4F 54 45 20 46 49 52 53 54 20 3A 50 20 46 49 52 |OTE FIRST :P FIR| 000006A0: 53 54 20 3A 44 0D 20 50 4C 41 59 20 42 46 20 3A |ST :D. PLAY BF :| 000006B0: 50 20 42 46 20 3A 44 0D 45 4E 44 0D 0D 54 4F 20 |P BF :D.END..TO | 000006C0: 53 54 41 52 33 0D 20 50 4C 41 59 20 5B 37 20 37 |STAR3. PLAY [7 7| 000006D0: 20 35 20 35 20 34 20 34 20 32 5D 20 5B 38 20 38 | 5 5 4 4 2] [8 8| 000006E0: 20 38 20 38 20 38 20 38 20 32 34 5D 0D 45 4E 44 | 8 8 8 8 24].END| 000006F0: 0D 0D 54 4F 20 53 54 41 52 32 0D 20 50 4C 41 59 |..TO STAR2. PLAY| 00000700: 20 5B 35 20 35 20 34 20 34 20 32 20 32 20 30 5D | [5 5 4 4 2 2 0]| 00000710: 20 5B 38 20 38 20 38 20 38 20 38 20 38 20 32 34 | [8 8 8 8 8 8 24| 00000720: 5D 0D 45 4E 44 0D 0D 54 4F 20 53 54 41 52 31 0D |].END..TO STAR1.| 00000730: 20 50 4C 41 59 20 5B 30 20 30 20 37 20 37 20 39 | PLAY [0 0 7 7 9| 00000740: 20 39 20 37 5D 20 5B 38 20 38 20 38 20 38 20 38 | 9 7] [8 8 8 8 8| 00000750: 20 38 20 32 34 5D 0D 45 4E 44 0D 0D 54 4F 20 4B | 8 24].END..TO K| 00000760: 4F 52 54 4A 41 4B 4A 45 0D 20 53 54 41 52 31 0D |ORTJAKJE. STAR1.| 00000770: 20 53 54 41 52 32 0D 20 53 54 41 52 33 0D 20 53 | STAR2. STAR3. S| 00000780: 54 41 52 33 0D 20 53 54 41 52 31 0D 20 53 54 41 |TAR3. STAR1. STA| 00000790: 52 32 0D 45 4E 44 0D 0D 54 4F 20 50 4C 20 3A 41 |R2.END..TO PL :A| 000007A0: 0D 20 53 54 41 4D 50 43 48 41 52 20 43 48 41 52 |. STAMPCHAR CHAR| 000007B0: 20 41 53 43 49 49 20 3A 41 0D 45 4E 44 0D 0D 54 | ASCII :A.END..T| 000007C0: 4F 20 50 52 49 4E 54 4C 45 54 54 45 52 20 3A 41 |O PRINTLETTER :A| 000007D0: 0D 20 53 54 41 4D 50 43 48 41 52 20 43 48 41 52 |. STAMPCHAR CHAR| 000007E0: 20 41 53 43 49 49 20 3A 41 0D 45 4E 44 0D 0D 54 | ASCII :A.END..T| 000007F0: 4F 20 48 45 52 48 41 41 4C 20 3A 4E 20 3A 42 0D |O HERHAAL :N :B.| 00000800: 20 52 45 50 45 41 54 20 3A 4E 20 5B 52 55 4E 20 | REPEAT :N [RUN | 00000810: 3A 42 5D 0D 45 4E 44 0D 0D 54 4F 20 54 45 41 43 |:B].END..TO TEAC| 00000820: 48 2E 42 4F 44 59 0D 20 4C 4F 43 41 4C 20 22 4C |H.BODY. LOCAL "L| 00000830: 49 4E 45 0D 20 4D 41 4B 45 20 22 4C 49 4E 45 20 |INE. MAKE "LINE | 00000840: 41 53 4B 20 22 3E 0D 20 49 46 20 3A 4C 49 4E 45 |ASK ">. IF :LINE| 00000850: 20 3D 20 5B 4B 4C 41 41 52 5D 20 4F 50 20 5B 5D | = [KLAAR] OP []| 00000860: 0D 20 4F 50 20 46 50 55 54 20 3A 4C 49 4E 45 20 |. OP FPUT :LINE | 00000870: 54 45 41 43 48 2E 42 4F 44 59 0D 45 4E 44 0D 0D |TEACH.BODY.END..| 00000880: 54 4F 20 41 53 4B 20 3A 51 55 45 53 54 49 4F 4E |TO ASK :QUESTION| 00000890: 0D 20 4C 4F 43 41 4C 20 22 41 4E 53 57 45 52 0D |. LOCAL "ANSWER.| 000008A0: 20 50 52 49 4E 54 31 20 3A 51 55 45 53 54 49 4F | PRINT1 :QUESTIO| 000008B0: 4E 0D 20 4D 41 4B 45 20 22 41 4E 53 57 45 52 20 |N. MAKE "ANSWER | 000008C0: 52 45 51 55 45 53 54 0D 20 49 46 20 45 4D 50 54 |REQUEST. IF EMPT| 000008D0: 59 3F 20 3A 41 4E 53 57 45 52 20 4F 50 20 41 53 |Y? :ANSWER OP AS| 000008E0: 4B 20 3A 51 55 45 53 54 49 4F 4E 0D 20 4F 50 20 |K :QUESTION. OP | 000008F0: 3A 41 4E 53 57 45 52 0D 45 4E 44 0D 0D 54 4F 20 |:ANSWER.END..TO | 00000900: 56 4F 4F 52 55 49 54 20 3A 41 0D 20 46 44 20 3A |VOORUIT :A. FD :| 00000910: 41 0D 45 4E 44 0D 0D 54 4F 20 56 4F 20 3A 41 0D |A.END..TO VO :A.| 00000920: 20 46 44 20 3A 41 0D 45 4E 44 0D 0D 54 4F 20 41 | FD :A.END..TO A| 00000930: 43 48 54 45 52 55 49 54 20 3A 41 0D 20 42 4B 20 |CHTERUIT :A. BK | 00000940: 3A 41 0D 45 4E 44 0D 0D 54 4F 20 41 54 20 3A 41 |:A.END..TO AT :A| 00000950: 0D 20 42 4B 20 3A 41 0D 45 4E 44 0D 0D 54 4F 20 |. BK :A.END..TO | 00000960: 4C 49 4E 4B 53 4F 4D 20 3A 41 0D 20 4C 54 20 3A |LINKSOM :A. LT :| 00000970: 41 0D 45 4E 44 0D 0D 54 4F 20 4C 49 20 3A 41 0D |A.END..TO LI :A.| 00000980: 20 4C 54 20 3A 41 0D 45 4E 44 0D 0D 54 4F 20 52 | LT :A.END..TO R| 00000990: 45 43 48 54 53 4F 4D 20 3A 41 0D 20 52 54 20 3A |ECHTSOM :A. RT :| 000009A0: 41 0D 45 4E 44 0D 0D 54 4F 20 52 45 20 3A 41 0D |A.END..TO RE :A.| 000009B0: 20 52 54 20 3A 41 0D 45 4E 44 0D 0D 54 4F 20 4E | RT :A.END..TO N| 000009C0: 41 41 52 42 45 47 49 4E 0D 20 48 4F 4D 45 20 44 |AARBEGIN. HOME D| 000009D0: 52 41 57 0D 45 4E 44 0D 0D 54 4F 20 4E 42 0D 20 |RAW.END..TO NB. | 000009E0: 48 4F 4D 45 20 44 52 41 57 0D 45 4E 44 0D 0D 54 |HOME DRAW.END..T| 000009F0: 4F 20 4E 41 41 52 20 3A 58 20 3A 59 0D 20 53 45 |O NAAR :X :Y. SE| 00000A00: 54 58 59 20 3A 58 20 3A 59 0D 45 4E 44 0D 0D 54 |TXY :X :Y.END..T| 00000A10: 4F 20 50 45 4E 4F 50 0D 20 50 45 4E 55 50 0D 45 |O PENOP. PENUP.E| 00000A20: 4E 44 0D 0D 54 4F 20 50 45 4E 4E 45 45 52 0D 20 |ND..TO PENNEER. | 00000A30: 50 44 0D 45 4E 44 0D 0D 54 4F 20 50 4E 0D 20 50 |PD.END..TO PN. P| 00000A40: 44 0D 45 4E 44 0D 0D 54 4F 20 56 45 45 47 55 49 |D.END..TO VEEGUI| 00000A50: 54 0D 20 50 45 4E 45 52 41 53 45 0D 45 4E 44 0D |T. PENERASE.END.| 00000A60: 0D 54 4F 20 56 55 0D 20 50 45 4E 45 52 41 53 45 |.TO VU. PENERASE| 00000A70: 0D 45 4E 44 0D 0D 54 4F 20 4D 41 41 4B 53 43 48 |.END..TO MAAKSCH| 00000A80: 4F 4F 4E 0D 20 43 53 0D 45 4E 44 0D 0D 54 4F 20 |OON. CS.END..TO | 00000A90: 4D 53 0D 20 43 53 0D 45 4E 44 0D 0D 54 4F 20 57 |MS. CS.END..TO W| 00000AA0: 4F 4F 52 44 45 4E 4C 49 4A 53 54 0D 20 50 4F 54 |OORDENLIJST. POT| 00000AB0: 53 0D 45 4E 44 0D 0D 54 4F 20 57 4F 4F 52 44 45 |S.END..TO WOORDE| 00000AC0: 4E 4C 59 53 54 0D 20 50 4F 54 53 0D 45 4E 44 0D |NLYST. POTS.END.| 00000AD0: 0D 54 4F 20 4C 49 4A 53 54 0D 20 50 4F 54 53 0D |.TO LIJST. POTS.| 00000AE0: 45 4E 44 0D 0D 54 4F 20 56 45 52 47 45 45 54 20 |END..TO VERGEET | 00000AF0: 3A 41 0D 20 45 52 41 53 45 20 3A 41 0D 45 4E 44 |:A. ERASE :A.END| 00000B00: 0D 0D 54 4F 20 4C 45 45 53 41 4E 54 57 4F 4F 52 |..TO LEESANTWOOR| 00000B10: 44 0D 20 4F 50 20 52 45 51 55 45 53 54 0D 45 4E |D. OP REQUEST.EN| 00000B20: 44 0D 0D 54 4F 20 41 4E 54 57 4F 4F 52 44 0D 20 |D..TO ANTWOORD. | 00000B30: 4F 50 20 52 51 0D 45 4E 44 0D 0D 54 4F 20 4C 45 |OP RQ.END..TO LE| 00000B40: 45 53 47 45 54 41 4C 0D 20 4F 50 20 46 49 52 53 |ESGETAL. OP FIRS| 00000B50: 54 20 52 45 51 55 45 53 54 0D 45 4E 44 0D 0D 54 |T REQUEST.END..T| 00000B60: 4F 20 4C 41 0D 20 4F 50 20 52 51 0D 45 4E 44 0D |O LA. OP RQ.END.| 00000B70: 0D 54 4F 20 4C 47 0D 20 4F 50 20 46 49 52 53 54 |.TO LG. OP FIRST| 00000B80: 20 52 51 0D 45 4E 44 0D 0D 54 4F 20 4C 45 45 53 | RQ.END..TO LEES| 00000B90: 54 4F 45 54 53 0D 20 4F 50 20 52 43 0D 45 4E 44 |TOETS. OP RC.END| 00000BA0: 0D 0D 54 4F 20 54 4F 45 54 53 0D 20 4F 50 20 52 |..TO TOETS. OP R| 00000BB0: 43 0D 45 4E 44 0D 0D 54 4F 20 50 41 55 5A 45 20 |C.END..TO PAUZE | 00000BC0: 3A 41 0D 20 52 45 50 45 41 54 20 3A 41 20 2A 20 |:A. REPEAT :A * | 00000BD0: 31 30 30 20 5B 5D 0D 45 4E 44 0D 0D 54 4F 20 57 |100 [].END..TO W| 00000BE0: 45 47 54 45 4B 53 54 0D 20 43 4C 45 41 52 54 45 |EGTEKST. CLEARTE| 00000BF0: 4B 53 54 0D 45 4E 44 0D 0D 54 4F 20 4B 4C 45 55 |KST.END..TO KLEU| 00000C00: 52 53 43 48 45 52 4D 20 3A 41 0D 20 42 47 20 3A |RSCHERM :A. BG :| 00000C10: 41 0D 45 4E 44 0D 0D 54 4F 20 4B 53 20 3A 41 0D |A.END..TO KS :A.| 00000C20: 20 42 47 20 3A 41 0D 45 4E 44 0D 0D 54 4F 20 4B | BG :A.END..TO K| 00000C30: 4C 45 55 52 4C 49 4A 4E 20 3A 41 0D 20 50 43 20 |LEURLIJN :A. PC | 00000C40: 3A 41 0D 45 4E 44 0D 0D 54 4F 20 4B 4C 20 3A 41 |:A.END..TO KL :A| 00000C50: 0D 20 50 43 20 3A 41 0D 45 4E 44 0D 0D 54 4F 20 |. PC :A.END..TO | 00000C60: 4B 4C 45 55 52 54 45 4B 53 54 20 3A 41 0D 20 54 |KLEURTEKST :A. T| 00000C70: 45 58 54 43 4F 4C 4F 52 20 3A 41 0D 45 4E 44 0D |EXTCOLOR :A.END.| 00000C80: 0D 54 4F 20 56 54 20 3A 41 0D 20 46 44 20 3A 41 |.TO VT :A. FD :A| 00000C90: 0D 45 4E 44 0D 0D 54 4F 20 56 49 45 52 4B 41 4E |.END..TO VIERKAN| 00000CA0: 54 20 3A 42 0D 20 52 45 50 45 41 54 20 34 20 5B |T :B. REPEAT 4 [| 00000CB0: 46 44 20 3A 42 2A 31 30 20 52 54 20 39 30 5D 0D |FD :B*10 RT 90].| 00000CC0: 45 4E 44 0D 0D 54 4F 20 44 4F 45 20 3A 41 20 3A |END..TO DOE :A :| 00000CD0: 42 0D 20 52 55 4E 20 3A 41 0D 45 4E 44 0D 0D 54 |B. RUN :A.END..T| 00000CE0: 4F 20 41 0D 20 52 41 4E 44 4F 4D 20 32 30 0D 45 |O A. RANDOM 20.E| 00000CF0: 4E 44 0D 0D 54 4F 20 48 4F 49 20 3A 42 0D 20 50 |ND..TO HOI :B. P| 00000D00: 52 49 4E 54 20 5B 48 4F 49 2C 20 49 4B 20 42 45 |RINT [HOI, IK BE| 00000D10: 4E 20 44 45 20 48 45 45 52 20 4C 2E 20 4F 47 4F |N DE HEER L. OGO| 00000D20: 5D 0D 20 4F 55 54 50 55 54 20 3A 42 0D 45 4E 44 |]. OUTPUT :B.END| 00000D30: 0D 0D 4D 41 4B 45 20 22 50 49 54 43 48 45 53 20 |..MAKE "PITCHES | 00000D40: 5B 38 37 37 39 20 39 33 30 31 20 39 38 35 34 20 |[8779 9301 9854 | 00000D50: 31 30 34 34 30 20 31 31 30 36 30 20 31 31 37 31 |10440 11060 1171| 00000D60: 38 20 31 32 34 31 35 20 31 33 31 35 33 20 31 33 |8 12415 13153 13| 00000D70: 39 33 35 20 31 34 37 36 34 20 31 35 37 34 32 20 |935 14764 15742 | 00000D80: 31 36 35 37 32 20 31 37 35 35 37 20 31 38 36 30 |16572 17557 1860| 00000D90: 31 5D 0D 4D 41 4B 45 20 22 4F 43 54 41 56 45 20 |1].MAKE "OCTAVE | 00000DA0: 28 31 29 0D 4D 41 4B 45 20 22 53 52 20 28 30 29 |(1).MAKE "SR (0)| 00000DB0: 0D 4D 41 4B 45 20 22 54 45 4D 50 4F 20 28 32 30 |.MAKE "TEMPO (20| 00000DC0: 29 0D 4D 41 4B 45 20 22 41 44 20 28 39 29 0D 4D |).MAKE "AD (9).M| 00000DD0: 41 4B 45 20 22 57 41 56 45 46 4F 52 4D 20 28 31 |AKE "WAVEFORM (1| 00000DE0: 37 29 0D 4D 41 4B 45 20 22 53 54 41 52 54 55 50 |7).MAKE "STARTUP| 00000DF0: 20 5B 53 45 54 55 50 5D 0D | [SETUP]. |
. TO SING :P. IF :P = [] STOP. NOTE FIRS T :P 10. SING BF :P.END..TO SSHER :DURS. IF EMPTY? :DURS STOP. SSH FIRST :DURS. SSHER BF :DURS.END..TO SSH :D. SOUND 200 00 :D 7 0 129.END..TO RELEASE :A. MAKE " SR BITOR ( BITAND :A 15 ) ( BITAND :SR 2 40 ).END..TO SUSTAIN :A. MAKE "SR BITOR ( BITAND :A 15 ) * 16 ( BITAND :SR 15 ). END..TO SOUND :PITCH :DUR :AD :SR :WAVEF ORM. .DEPOSIT 54296 15. .DEPOSIT 54277 : AD. .DEPOSIT 54278 :SR. .DEPOSIT 54273 Q UOTIENT :PITCH 256. .DEPOSIT 54272 BITAN D :PITCH 255. .DEPOSIT 54276 :WAVEFORM. REPEAT :DUR * :TEMPO []. .DEPOSIT 54276 0.END..TO SETUP. IF [] = TEXT "SOUND REA D "SOUND. TEMPO 20. MAKE "AD 9. MAKE "SR 0. MAKE "WAVEFORM 17. MAKE "OCTAVE 1. M AKE "PITCHES [8779 9301 9854 10440 11060 11718 12415 13153 13935 14764 15742 165 72 17557 18601].END..TO TEMPO :N. MAKE " TEMPO :N.END..TO DECAY :A. MAKE "AD BITO R ( BITAND :A 15 ) ( BITAND :AD 240 ).EN D..TO ATTACK :A. MAKE "AD BITOR ( BITAND :A 15 ) * 16 ( BITAND :AD 15 ).END..TO OCT :N. OP ITEM 1 + :N [0.125 0.25 0.5 1 2 4 8].END..TO WAVE :N. MAKE "WAVEFORM :N.END..TO PULSE :WIDTH. .DEPOSIT 54275 QUOTIENT :WIDTH 256. .DEPOSIT 54274 BITA ND :WIDTH 255.END..TO ZING :P. IF :P = [ ] STOP. NOTE FIRST :P 10. ZING BF :P.END ..TO NOTE :P :D. IF :P = "R REPEAT :TEMP O * :D [] STOP. MAKE "P :P + 24. SOUND ( ITEM 1 + ( REMAINDER :P 12 ) :PITCHES ) * ( OCT QUOTIENT :P 12 ) :D :AD :SR :WA VEFORM.END..TO GOLFVORM :N. MAKE "WAVEFO RM :N.END..TO C. SPEEL [0 1 2 3 4 5 6 7 8 9 10 11 12] [15 15 15 15 15 15 15 15 1 5 15 15 15 15].END..TO SPEEL :P :D. IF E MPTY? :P STOP. NOTE FIRST :P FIRST :D. S PEEL BF :P BF :D.END..TO M. SPEEL [0 2 4 5 7 9 11 12] [15 15 15 15 15 15 15 15]. END..TO PLAY :P :D. IF EMPTY? :P STOP. N OTE FIRST :P FIRST :D. PLAY BF :P BF :D. END..TO STAR3. PLAY [7 7 5 5 4 4 2] [8 8 8 8 8 8 24].END..TO STAR2. PLAY [5 5 4 4 2 2 0] [8 8 8 8 8 8 24].END..TO STAR1. PLAY [0 0 7 7 9 9 7] [8 8 8 8 8 8 24].E ND..TO KORTJAKJE. STAR1. STAR2. STAR3. S TAR3. STAR1. STAR2.END..TO PL :A. STAMPC HAR CHAR ASCII :A.END..TO PRINTLETTER :A . STAMPCHAR CHAR ASCII :A.END..TO HERHAA L :N :B. REPEAT :N [RUN :B].END..TO TEAC H.BODY. LOCAL "LINE. MAKE "LINE ASK ">. IF :LINE = [KLAAR] OP []. OP FPUT :LINE TEACH.BODY.END..TO ASK :QUESTION. LOCAL "ANSWER. PRINT1 :QUESTION. MAKE "ANSWER REQUEST. IF EMPTY? :ANSWER OP ASK :QUEST ION. OP :ANSWER.END..TO VOORUIT :A. FD : A.END..TO VO :A. FD :A.END..TO ACHTERUIT :A. BK :A.END..TO AT :A. BK :A.END..TO LINKSOM :A. LT :A.END..TO LI :A. LT :A.E ND..TO RECHTSOM :A. RT :A.END..TO RE :A. RT :A.END..TO NAARBEGIN. HOME DRAW.END. .TO NB. HOME DRAW.END..TO NAAR :X :Y. SE TXY :X :Y.END..TO PENOP. PENUP.END..TO P ENNEER. PD.END..TO PN. PD.END..TO VEEGUI T. PENERASE.END..TO VU. PENERASE.END..TO MAAKSCHOON. CS.END..TO MS. CS.END..TO W OORDENLIJST. POTS.END..TO WOORDENLYST. P OTS.END..TO LIJST. POTS.END..TO VERGEET :A. ERASE :A.END..TO LEESANTWOORD. OP RE QUEST.END..TO ANTWOORD. OP RQ.END..TO LE ESGETAL. OP FIRST REQUEST.END..TO LA. OP RQ.END..TO LG. OP FIRST RQ.END..TO LEES TOETS. OP RC.END..TO TOETS. OP RC.END..T O PAUZE :A. REPEAT :A * 100 [].END..TO W EGTEKST. CLEARTEKST.END..TO KLEURSCHERM :A. BG :A.END..TO KS :A. BG :A.END..TO K LEURLIJN :A. PC :A.END..TO KL :A. PC :A. END..TO KLEURTEKST :A. TEXTCOLOR :A.END. .TO VT :A. FD :A.END..TO VIERKANT :B. RE PEAT 4 [FD :B*10 RT 90].END..TO DOE :A : B. RUN :A.END..TO A. RANDOM 20.END..TO H OI :B. PRINT [HOI, IK BEN DE HEER L. OGO ]. OUTPUT :B.END..MAKE "PITCHES [8779 93 01 9854 10440 11060 11718 12415 13153 13 935 14764 15742 16572 17557 18601].MAKE "OCTAVE (1).MAKE "SR (0).MAKE "TEMPO (20 ).MAKE "AD (9).MAKE "WAVEFORM (17).MAKE "STARTUP [SETUP].
> CLICK IMAGE PREVIEW FOR FULL MODAL