CMJ.1.LOGO
FILE INFORMATION
FILENAME(S): CMJ.1.LOGO
FILE TYPE(S): DEL
FILE SIZE: 5.9K
FIRST SEEN: 2025-11-30 21:11:01
APPEARS ON: 1 disk(s)
FILE HASH
4b191e7d322fc34d45f9d005e9ce34974744821cc7e455a82137935f8ed229ac
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOGO | CMJ.1.LOGO | DEL | DuncanTwain | 24 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 54 4F 20 53 50 45 45 4C 20 3A 4E 4F 54 45 |..TO SPEEL :NOTE| 00000010: 4E 20 3A 44 55 52 45 4E 0D 20 41 4C 53 20 4C 45 |N :DUREN. ALS LE| 00000020: 45 47 3F 20 3A 4E 4F 54 45 4E 20 53 54 4F 50 0D |EG? :NOTEN STOP.| 00000030: 20 54 4F 4F 4E 20 45 45 52 53 54 45 20 3A 4E 4F | TOON EERSTE :NO| 00000040: 54 45 4E 20 45 45 52 53 54 45 20 3A 44 55 52 45 |TEN EERSTE :DURE| 00000050: 4E 0D 20 53 50 45 45 4C 20 4D 45 20 3A 4E 4F 54 |N. SPEEL ME :NOT| 00000060: 45 4E 20 4D 45 20 3A 44 55 52 45 4E 0D 45 4E 44 |EN ME :DUREN.END| 00000070: 0D 0D 54 4F 20 4F 43 54 41 41 46 20 3A 4E 0D 20 |..TO OCTAAF :N. | 00000080: 41 4C 53 20 3A 4E 20 3D 20 22 2B 20 4D 41 41 4B |ALS :N = "+ MAAK| 00000090: 20 22 4F 43 54 41 41 46 20 3A 4F 43 54 41 41 46 | "OCTAAF :OCTAAF| 000000A0: 20 2B 20 31 20 53 54 4F 50 0D 20 41 4C 53 20 3A | + 1 STOP. ALS :| 000000B0: 4E 20 3D 20 22 2D 20 4D 41 41 4B 20 22 4F 43 54 |N = "- MAAK "OCT| 000000C0: 41 41 46 20 3A 4F 43 54 41 41 46 20 2D 20 31 20 |AAF :OCTAAF - 1 | 000000D0: 53 54 4F 50 0D 20 41 4C 53 20 45 45 4E 56 41 4E |STOP. ALS EENVAN| 000000E0: 20 3A 4E 20 3C 20 2D 20 32 20 3A 4E 20 3E 20 34 | :N < - 2 :N > 4| 000000F0: 20 50 52 20 5B 4B 41 4E 20 4E 49 45 54 5D 0D 20 | PR [KAN NIET]. | 00000100: 4D 41 41 4B 20 22 4F 43 54 41 41 46 20 3A 4E 0D |MAAK "OCTAAF :N.| 00000110: 45 4E 44 0D 0D 54 4F 20 54 4F 4F 4E 4F 43 54 0D |END..TO TOONOCT.| 00000120: 20 41 4C 53 20 4C 41 41 54 53 54 45 20 3A 4E 54 | ALS LAATSTE :NT| 00000130: 20 3D 20 22 2B 20 4D 41 41 4B 20 22 4E 54 20 4D | = "+ MAAK "NT M| 00000140: 4C 20 3A 4E 54 20 52 45 53 20 31 32 0D 20 41 4C |L :NT RES 12. AL| 00000150: 53 20 4C 41 41 54 53 54 45 20 3A 4E 54 20 3D 20 |S LAATSTE :NT = | 00000160: 22 2D 20 4D 41 41 4B 20 22 4E 54 20 4D 4C 20 3A |"- MAAK "NT ML :| 00000170: 4E 54 20 52 45 53 20 2D 20 31 32 0D 20 52 45 53 |NT RES - 12. RES| 00000180: 20 30 0D 45 4E 44 0D 0D 54 4F 20 54 45 4D 50 4F | 0.END..TO TEMPO| 00000190: 20 3A 4E 0D 20 4D 41 41 4B 20 22 54 45 4D 50 4F | :N. MAAK "TEMPO| 000001A0: 20 3A 4E 0D 45 4E 44 0D 0D 54 4F 20 47 45 4C 55 | :N.END..TO GELU| 000001B0: 49 44 20 3A 4E 4F 4F 54 20 3A 44 55 55 52 20 3A |ID :NOOT :DUUR :| 000001C0: 41 44 20 3A 53 52 20 3A 47 4F 4C 46 0D 20 2E 44 |AD :SR :GOLF. .D| 000001D0: 45 50 4F 53 49 54 20 35 34 32 39 36 20 31 35 0D |EPOSIT 54296 15.| 000001E0: 20 2E 44 45 50 4F 53 49 54 20 35 34 32 37 37 20 | .DEPOSIT 54277 | 000001F0: 3A 41 44 0D 20 2E 44 45 50 4F 53 49 54 20 35 34 |:AD. .DEPOSIT 54| 00000200: 32 37 38 20 3A 53 52 0D 20 2E 44 45 50 4F 53 49 |278 :SR. .DEPOSI| 00000210: 54 20 35 34 32 37 33 20 51 55 4F 54 49 45 4E 54 |T 54273 QUOTIENT| 00000220: 20 3A 4E 4F 4F 54 20 32 35 36 0D 20 2E 44 45 50 | :NOOT 256. .DEP| 00000230: 4F 53 49 54 20 35 34 32 37 32 20 42 49 54 41 4E |OSIT 54272 BITAN| 00000240: 44 20 3A 4E 4F 4F 54 20 32 35 35 0D 20 2E 44 45 |D :NOOT 255. .DE| 00000250: 50 4F 53 49 54 20 35 34 32 37 36 20 3A 47 4F 4C |POSIT 54276 :GOL| 00000260: 46 0D 20 41 4C 53 20 3A 47 4F 4C 46 20 3D 20 36 |F. ALS :GOLF = 6| 00000270: 35 20 44 41 4E 20 2E 44 45 50 4F 53 49 54 20 35 |5 DAN .DEPOSIT 5| 00000280: 34 32 37 34 20 3A 4C 50 20 2E 44 45 50 4F 53 49 |4274 :LP .DEPOSI| 00000290: 54 20 35 34 32 37 35 20 3A 48 50 0D 20 48 45 52 |T 54275 :HP. HER| 000002A0: 48 41 41 4C 20 3A 44 55 55 52 20 2A 20 3A 54 45 |HAAL :DUUR * :TE| 000002B0: 4D 50 4F 20 5B 5D 0D 20 2E 44 45 50 4F 53 49 54 |MPO []. .DEPOSIT| 000002C0: 20 35 34 32 37 36 20 30 0D 45 4E 44 0D 0D 54 4F | 54276 0.END..TO| 000002D0: 20 50 49 41 4E 4F 0D 20 4D 41 41 4B 20 22 41 44 | PIANO. MAAK "AD| 000002E0: 20 31 32 20 4D 41 41 4B 20 22 53 52 20 31 32 20 | 12 MAAK "SR 12 | 000002F0: 4D 41 41 4B 20 22 47 4F 4C 46 20 33 33 0D 45 4E |MAAK "GOLF 33.EN| 00000300: 44 0D 0D 54 4F 20 58 59 4C 4F 46 4F 4F 4E 0D 20 |D..TO XYLOFOON. | 00000310: 4D 41 41 4B 20 22 41 44 20 32 34 20 4D 41 41 4B |MAAK "AD 24 MAAK| 00000320: 20 22 53 52 20 31 35 20 4D 41 41 4B 20 22 47 4F | "SR 15 MAAK "GO| 00000330: 4C 46 20 31 37 0D 45 4E 44 0D 0D 54 4F 20 42 41 |LF 17.END..TO BA| 00000340: 4E 4A 4F 0D 20 4D 41 41 4B 20 22 41 44 20 39 20 |NJO. MAAK "AD 9 | 00000350: 4D 41 41 4B 20 22 53 52 20 30 20 4D 41 41 4B 20 |MAAK "SR 0 MAAK | 00000360: 22 47 4F 4C 46 20 36 35 20 4D 41 41 4B 20 22 48 |"GOLF 65 MAAK "H| 00000370: 50 20 31 30 20 4D 41 41 4B 20 22 4C 50 20 31 30 |P 10 MAAK "LP 10| 00000380: 0D 45 4E 44 0D 0D 54 4F 20 47 4F 4C 46 20 3A 4E |.END..TO GOLF :N| 00000390: 0D 20 4D 41 41 4B 20 22 47 4F 4C 46 20 3A 4E 0D |. MAAK "GOLF :N.| 000003A0: 45 4E 44 0D 0D 54 4F 20 46 4C 55 49 54 0D 20 4D |END..TO FLUIT. M| 000003B0: 41 41 4B 20 22 41 44 20 31 33 35 20 4D 41 41 4B |AAK "AD 135 MAAK| 000003C0: 20 22 53 52 20 31 35 20 4D 41 41 4B 20 22 47 4F | "SR 15 MAAK "GO| 000003D0: 4C 46 20 31 37 0D 45 4E 44 0D 0D 54 4F 20 54 4F |LF 17.END..TO TO| 000003E0: 4F 4E 20 3A 4E 4F 4F 54 20 3A 44 55 55 52 0D 20 |ON :NOOT :DUUR. | 000003F0: 4C 4F 4B 41 41 4C 20 22 4E 54 0D 20 41 4C 53 20 |LOKAAL "NT. ALS | 00000400: 4C 49 4A 53 54 3F 20 3A 4E 4F 4F 54 20 4D 41 41 |LIJST? :NOOT MAA| 00000410: 4B 20 22 4E 4F 4F 54 20 45 45 52 53 54 45 20 3A |K "NOOT EERSTE :| 00000420: 4E 4F 4F 54 0D 20 41 4C 53 20 28 20 45 45 4E 56 |NOOT. ALS ( EENV| 00000430: 41 4E 20 3A 4E 4F 4F 54 20 3D 20 22 52 20 3A 4E |AN :NOOT = "R :N| 00000440: 4F 4F 54 20 3D 20 22 2D 20 29 20 44 41 4E 20 48 |OOT = "- ) DAN H| 00000450: 45 52 48 41 41 4C 20 3A 54 45 4D 50 4F 20 2A 20 |ERHAAL :TEMPO * | 00000460: 3A 44 55 55 52 20 5B 5D 20 53 54 4F 50 0D 20 4D |:DUUR [] STOP. M| 00000470: 41 41 4B 20 22 4E 54 20 3A 4E 4F 4F 54 0D 20 41 |AAK "NT :NOOT. A| 00000480: 4C 53 20 4E 49 45 54 20 47 45 54 41 4C 3F 20 3A |LS NIET GETAL? :| 00000490: 4E 54 20 44 41 4E 20 4D 41 41 4B 20 22 4E 54 20 |NT DAN MAAK "NT | 000004A0: 54 4F 4F 4E 4F 43 54 20 2B 20 54 4F 4F 4E 4F 43 |TOONOCT + TOONOC| 000004B0: 54 20 2B 20 57 41 41 52 44 45 20 3A 4E 54 0D 20 |T + WAARDE :NT. | 000004C0: 4D 41 41 4B 20 22 4E 54 20 3A 4E 54 20 2B 20 31 |MAAK "NT :NT + 1| 000004D0: 32 20 2A 20 28 20 31 20 2B 20 3A 4F 43 54 41 41 |2 * ( 1 + :OCTAA| 000004E0: 46 20 29 0D 20 41 4C 53 20 3A 4E 54 20 3E 20 37 |F ). ALS :NT > 7| 000004F0: 30 20 44 41 4E 20 50 52 20 53 41 4D 45 4E 20 3A |0 DAN PR SAMEN :| 00000500: 4E 4F 4F 54 20 5B 49 53 20 54 45 20 48 4F 4F 47 |NOOT [IS TE HOOG| 00000510: 5D 20 53 54 4F 50 0D 20 41 4C 53 20 3A 4E 54 20 |] STOP. ALS :NT | 00000520: 3C 20 30 20 44 41 4E 20 50 52 20 53 41 4D 45 4E |< 0 DAN PR SAMEN| 00000530: 20 3A 4E 4F 4F 54 20 5B 49 53 20 54 45 20 4C 41 | :NOOT [IS TE LA| 00000540: 41 47 5D 20 53 54 4F 50 0D 20 47 45 4C 55 49 44 |AG] STOP. GELUID| 00000550: 20 28 20 45 4C 45 4D 45 4E 54 20 31 20 2B 20 28 | ( ELEMENT 1 + (| 00000560: 20 52 45 53 54 20 3A 4E 54 20 31 32 20 29 20 3A | REST :NT 12 ) :| 00000570: 4C 41 44 44 45 52 20 29 20 2A 20 28 20 45 4C 45 |LADDER ) * ( ELE| 00000580: 4D 45 4E 54 20 31 20 2B 20 28 20 51 55 4F 54 49 |MENT 1 + ( QUOTI| 00000590: 45 4E 54 20 3A 4E 54 20 31 32 20 29 20 5B 30 2E |ENT :NT 12 ) [0.| 000005A0: 31 32 35 20 30 2E 32 35 20 30 2E 35 20 31 20 32 |125 0.25 0.5 1 2| 000005B0: 20 34 20 38 5D 20 29 20 3A 44 55 55 52 20 3A 41 | 4 8] ) :DUUR :A| 000005C0: 44 20 3A 53 52 20 3A 47 4F 4C 46 0D 45 4E 44 0D |D :SR :GOLF.END.| 000005D0: 0D 54 4F 20 4B 4C 41 4E 4B 20 3A 41 54 54 20 3A |.TO KLANK :ATT :| 000005E0: 44 45 43 20 3A 53 55 53 20 3A 52 45 4C 20 3A 47 |DEC :SUS :REL :G| 000005F0: 4F 4C 46 56 4F 52 4D 0D 20 41 4C 53 20 28 20 45 |OLFVORM. ALS ( E| 00000600: 45 4E 56 41 4E 20 3A 41 54 54 20 3C 20 30 20 3A |ENVAN :ATT < 0 :| 00000610: 44 45 43 20 3C 20 30 20 3A 53 55 53 20 3C 20 30 |DEC < 0 :SUS < 0| 00000620: 20 3A 52 45 4C 20 3C 20 30 20 3A 41 54 54 20 3E | :REL < 0 :ATT >| 00000630: 20 31 35 20 3A 44 45 43 20 3E 20 31 35 20 3A 53 | 15 :DEC > 15 :S| 00000640: 55 53 20 3E 20 31 35 20 3A 52 45 4C 20 3E 20 31 |US > 15 :REL > 1| 00000650: 35 20 29 20 44 41 4E 20 50 52 20 5B 47 45 54 41 |5 ) DAN PR [GETA| 00000660: 4C 4C 45 4E 20 4D 4F 45 54 45 4E 20 54 55 53 53 |LLEN MOETEN TUSS| 00000670: 45 4E 20 30 20 45 4E 20 31 35 5D 0D 20 4D 41 41 |EN 0 EN 15]. MAA| 00000680: 4B 20 22 41 44 20 42 49 54 4F 52 20 28 20 42 49 |K "AD BITOR ( BI| 00000690: 54 41 4E 44 20 3A 41 54 54 20 31 35 20 29 20 2A |TAND :ATT 15 ) *| 000006A0: 20 31 36 20 28 20 42 49 54 41 4E 44 20 3A 41 44 | 16 ( BITAND :AD| 000006B0: 20 31 35 20 29 0D 20 4D 41 41 4B 20 22 41 44 20 | 15 ). MAAK "AD | 000006C0: 42 49 54 4F 52 20 28 20 42 49 54 41 4E 44 20 3A |BITOR ( BITAND :| 000006D0: 44 45 43 20 31 35 20 29 20 28 20 42 49 54 41 4E |DEC 15 ) ( BITAN| 000006E0: 44 20 3A 41 44 20 32 34 30 20 29 0D 20 4D 41 41 |D :AD 240 ). MAA| 000006F0: 4B 20 22 53 52 20 42 49 54 4F 52 20 28 20 42 49 |K "SR BITOR ( BI| 00000700: 54 41 4E 44 20 3A 53 55 53 20 31 35 20 29 20 2A |TAND :SUS 15 ) *| 00000710: 20 31 36 20 28 20 42 49 54 41 4E 44 20 3A 53 52 | 16 ( BITAND :SR| 00000720: 20 31 35 20 29 0D 20 4D 41 41 4B 20 22 53 52 20 | 15 ). MAAK "SR | 00000730: 42 49 54 4F 52 20 28 20 42 49 54 41 4E 44 20 3A |BITOR ( BITAND :| 00000740: 52 45 4C 20 31 35 20 29 20 28 20 42 49 54 41 4E |REL 15 ) ( BITAN| 00000750: 44 20 3A 53 52 20 32 34 30 20 29 0D 20 4D 41 41 |D :SR 240 ). MAA| 00000760: 4B 20 22 47 4F 4C 46 20 3A 47 4F 4C 46 56 4F 52 |K "GOLF :GOLFVOR| 00000770: 4D 0D 45 4E 44 0D 0D 54 4F 20 53 4A 4A 4A 20 3A |M.END..TO SJJJ :| 00000780: 44 55 55 52 0D 20 4B 4C 41 4E 4B 20 39 20 35 20 |DUUR. KLANK 9 5 | 00000790: 30 20 30 20 31 32 39 20 54 4F 4F 4E 20 5B 43 5D |0 0 129 TOON [C]| 000007A0: 20 3A 44 55 55 52 0D 45 4E 44 0D 0D 54 4F 20 47 | :DUUR.END..TO G| 000007B0: 45 53 4A 4A 4A 20 3A 44 55 52 45 4E 0D 20 41 4C |ESJJJ :DUREN. AL| 000007C0: 53 20 4C 45 45 47 3F 20 3A 44 55 52 45 4E 20 44 |S LEEG? :DUREN D| 000007D0: 41 4E 20 53 54 4F 50 0D 20 53 4A 4A 4A 20 45 45 |AN STOP. SJJJ EE| 000007E0: 52 53 54 45 20 3A 44 55 52 45 4E 0D 20 47 45 53 |RSTE :DUREN. GES| 000007F0: 4A 4A 4A 20 4D 45 20 3A 44 55 52 45 4E 0D 45 4E |JJJ ME :DUREN.EN| 00000800: 44 0D 0D 54 4F 20 21 5A 0D 20 57 45 47 20 5A 45 |D..TO !Z. WEG ZE| 00000810: 54 20 57 45 47 20 5A 45 54 31 20 57 45 47 20 5A |T WEG ZET1 WEG Z| 00000820: 45 54 52 49 4A 20 57 45 47 20 5A 45 54 57 4F 4F |ETRIJ WEG ZETWOO| 00000830: 52 44 20 57 45 47 20 5A 45 54 52 41 4E 44 20 57 |RD WEG ZETRAND W| 00000840: 45 47 20 42 45 47 49 4E 20 57 45 47 20 4E 41 41 |EG BEGIN WEG NAA| 00000850: 52 50 4C 20 57 45 47 20 50 4C 41 41 54 53 20 57 |RPL WEG PLAATS W| 00000860: 45 47 20 4B 4F 4C 4F 4D 20 57 45 47 20 52 45 47 |EG KOLOM WEG REG| 00000870: 45 4C 20 57 45 47 20 21 5A 0D 20 2E 47 43 4F 4C |EL WEG !Z. .GCOL| 00000880: 4C 20 50 52 20 2E 4E 4F 44 45 53 0D 45 4E 44 0D |L PR .NODES.END.| 00000890: 0D 54 4F 20 50 4C 41 41 54 53 0D 20 52 45 53 55 |.TO PLAATS. RESU| 000008A0: 4C 54 41 41 54 20 53 41 4D 45 4E 20 4B 4F 4C 4F |LTAAT SAMEN KOLO| 000008B0: 4D 20 52 45 47 45 4C 0D 45 4E 44 0D 0D 54 4F 20 |M REGEL.END..TO | 000008C0: 4B 4F 4C 4F 4D 0D 20 52 45 53 20 49 4E 54 45 47 |KOLOM. RES INTEG| 000008D0: 45 52 20 28 20 58 50 4F 53 20 2F 20 38 20 29 20 |ER ( XPOS / 8 ) | 000008E0: 2B 20 31 39 0D 45 4E 44 0D 0D 54 4F 20 5A 45 54 |+ 19.END..TO ZET| 000008F0: 57 4F 4F 52 44 20 3A 57 4F 4F 52 44 0D 20 50 4F |WOORD :WOORD. PO| 00000900: 20 56 44 20 4E 41 41 52 48 4F 45 4B 20 39 30 0D | VD NAARHOEK 90.| 00000910: 20 41 4C 53 20 4B 4F 4C 4F 4D 20 3E 20 33 37 20 | ALS KOLOM > 37 | 00000920: 41 4C 53 20 52 45 47 45 4C 20 3C 20 31 38 20 44 |ALS REGEL < 18 D| 00000930: 41 4E 20 4E 41 41 52 50 4C 20 30 20 52 45 47 45 |AN NAARPL 0 REGE| 00000940: 4C 20 2B 20 31 20 41 4E 44 45 52 53 20 4E 41 41 |L + 1 ANDERS NAA| 00000950: 52 50 4C 20 30 20 30 0D 20 41 4C 53 20 3A 57 4F |RPL 0 0. ALS :WO| 00000960: 4F 52 44 20 3D 20 22 20 44 41 4E 20 53 54 45 4D |ORD = " DAN STEM| 00000970: 50 45 4C 20 22 20 4E 41 41 52 58 20 58 50 4F 53 |PEL " NAARX XPOS| 00000980: 20 2B 20 38 20 53 54 4F 50 0D 20 53 54 45 4D 50 | + 8 STOP. STEMP| 00000990: 45 4C 20 45 45 52 53 54 45 20 3A 57 4F 4F 52 44 |EL EERSTE :WOORD| 000009A0: 20 4E 41 41 52 58 20 58 50 4F 53 20 2B 20 38 0D | NAARX XPOS + 8.| 000009B0: 20 5A 45 54 57 4F 4F 52 44 20 4D 45 20 3A 57 4F | ZETWOORD ME :WO| 000009C0: 4F 52 44 0D 45 4E 44 0D 0D 54 4F 20 4E 41 41 52 |ORD.END..TO NAAR| 000009D0: 50 4C 20 3A 4B 4F 4C 4F 4D 20 3A 52 45 47 45 4C |PL :KOLOM :REGEL| 000009E0: 0D 20 4C 4F 4B 41 41 4C 20 22 50 20 4D 41 41 4B |. LOKAAL "P MAAK| 000009F0: 20 22 50 20 45 45 52 53 54 45 20 54 4F 45 53 54 | "P EERSTE TOEST| 00000A00: 41 4E 44 20 50 4F 0D 20 41 4C 53 20 28 20 45 45 |AND PO. ALS ( EE| 00000A10: 4E 56 41 4E 20 3A 52 45 47 45 4C 20 3E 20 31 38 |NVAN :REGEL > 18| 00000A20: 20 3A 52 45 47 45 4C 20 3C 20 30 20 3A 4B 4F 4C | :REGEL < 0 :KOL| 00000A30: 4F 4D 20 3C 20 30 20 3A 4B 4F 4C 4F 4D 20 3E 20 |OM < 0 :KOLOM > | 00000A40: 33 38 20 29 20 44 41 4E 20 50 52 49 4E 54 20 5B |38 ) DAN PRINT [| 00000A50: 42 55 49 54 45 4E 20 52 41 4E 44 5D 20 53 54 4F |BUITEN RAND] STO| 00000A60: 50 0D 20 4E 41 41 52 58 20 28 20 3A 4B 4F 4C 4F |P. NAARX ( :KOLO| 00000A70: 4D 20 2D 20 31 39 20 29 20 2A 20 38 0D 20 4E 41 |M - 19 ) * 8. NA| 00000A80: 41 52 59 20 28 20 31 32 20 2D 20 3A 52 45 47 45 |ARY ( 12 - :REGE| 00000A90: 4C 20 29 20 2A 20 31 30 2E 34 0D 20 41 4C 53 20 |L ) * 10.4. ALS | 00000AA0: 3A 50 20 44 41 4E 20 50 4E 0D 45 4E 44 0D 0D 54 |:P DAN PN.END..T| 00000AB0: 4F 20 52 45 47 45 4C 0D 20 52 45 53 20 49 4E 54 |O REGEL. RES INT| 00000AC0: 45 47 45 52 20 28 20 31 32 2E 31 20 2D 20 59 50 |EGER ( 12.1 - YP| 00000AD0: 4F 53 20 2F 20 31 30 2E 34 20 29 0D 45 4E 44 0D |OS / 10.4 ).END.| 00000AE0: 0D 54 4F 20 5A 45 54 31 20 3A 54 45 4B 53 54 0D |.TO ZET1 :TEKST.| 00000AF0: 20 41 4C 53 20 57 4F 4F 52 44 3F 20 3A 54 45 4B | ALS WOORD? :TEK| 00000B00: 53 54 20 44 41 4E 20 5A 45 54 57 4F 4F 52 44 20 |ST DAN ZETWOORD | 00000B10: 3A 54 45 4B 53 54 20 4E 41 41 52 58 20 58 50 4F |:TEKST NAARX XPO| 00000B20: 53 20 2D 20 38 20 4B 4F 4D 20 53 54 4F 50 0D 20 |S - 8 KOM STOP. | 00000B30: 41 4C 53 20 4C 45 45 47 3F 20 3A 54 45 4B 53 54 |ALS LEEG? :TEKST| 00000B40: 20 44 41 4E 20 4E 41 41 52 58 20 58 50 4F 53 20 | DAN NAARX XPOS | 00000B50: 2D 20 38 20 4B 4F 4D 20 53 54 4F 50 0D 20 5A 45 |- 8 KOM STOP. ZE| 00000B60: 54 57 4F 4F 52 44 20 45 45 52 53 54 45 20 3A 54 |TWOORD EERSTE :T| 00000B70: 45 4B 53 54 20 5A 45 54 31 20 4D 45 20 3A 54 45 |EKST ZET1 ME :TE| 00000B80: 4B 53 54 0D 45 4E 44 0D 0D 54 4F 20 5A 45 54 52 |KST.END..TO ZETR| 00000B90: 49 4A 20 3A 4E 20 3A 54 4F 45 54 53 0D 20 4C 4F |IJ :N :TOETS. LO| 00000BA0: 4B 41 41 4C 20 22 54 20 4C 4F 4B 41 41 4C 20 22 |KAAL "T LOKAAL "| 00000BB0: 50 0D 20 4D 41 41 4B 20 22 50 20 45 45 52 53 54 |P. MAAK "P EERST| 00000BC0: 45 20 54 4F 45 53 54 41 4E 44 0D 20 41 4C 53 20 |E TOESTAND. ALS | 00000BD0: 4E 49 45 54 20 47 45 54 41 4C 3F 20 3A 4E 20 50 |NIET GETAL? :N P| 00000BE0: 52 49 4E 54 20 5B 47 45 54 41 4C 20 45 45 52 53 |RINT [GETAL EERS| 00000BF0: 54 5D 20 53 54 4F 50 0D 20 41 4C 53 20 3A 4E 20 |T] STOP. ALS :N | 00000C00: 3E 20 30 20 4D 41 41 4B 20 22 54 20 31 20 41 4E |> 0 MAAK "T 1 AN| 00000C10: 44 45 52 53 20 4D 41 41 4B 20 22 54 20 28 20 2D |DERS MAAK "T ( -| 00000C20: 20 31 20 29 0D 20 41 4C 53 20 4C 45 45 47 3F 20 | 1 ). ALS LEEG? | 00000C30: 3A 54 4F 45 54 53 20 44 41 4E 20 4D 41 41 4B 20 |:TOETS DAN MAAK | 00000C40: 22 54 4F 45 54 53 20 22 20 41 4E 44 45 52 53 20 |"TOETS " ANDERS | 00000C50: 41 4C 53 20 4C 49 4A 53 54 3F 20 3A 54 4F 45 54 |ALS LIJST? :TOET| 00000C60: 53 20 44 41 4E 20 4D 41 41 4B 20 22 54 4F 45 54 |S DAN MAAK "TOET| 00000C70: 53 20 45 45 52 53 54 45 20 45 45 52 53 54 45 20 |S EERSTE EERSTE | 00000C80: 3A 54 4F 45 54 53 20 41 4E 44 45 52 53 20 4D 41 |:TOETS ANDERS MA| 00000C90: 41 4B 20 22 54 4F 45 54 53 20 45 45 52 53 54 45 |AK "TOETS EERSTE| 00000CA0: 20 3A 54 4F 45 54 53 0D 20 50 4F 20 48 45 52 48 | :TOETS. PO HERH| 00000CB0: 41 41 4C 20 3A 4E 20 2A 20 3A 54 20 5B 53 54 45 |AAL :N * :T [STE| 00000CC0: 4D 50 45 4C 20 3A 54 4F 45 54 53 20 56 54 20 38 |MPEL :TOETS VT 8| 00000CD0: 20 2A 20 3A 54 5D 0D 20 41 4C 53 20 3A 50 20 44 | * :T]. ALS :P D| 00000CE0: 41 4E 20 50 4E 0D 45 4E 44 0D 0D 54 4F 20 4B 41 |AN PN.END..TO KA| 00000CF0: 4E 54 45 45 4C 0D 20 52 45 20 39 30 20 56 54 20 |NTEEL. RE 90 VT | 00000D00: 35 20 52 45 20 39 30 20 56 54 20 35 20 4C 49 20 |5 RE 90 VT 5 LI | 00000D10: 39 30 20 56 54 20 35 20 4C 49 20 39 30 20 56 54 |90 VT 5 LI 90 VT| 00000D20: 20 35 0D 45 4E 44 0D 0D 54 4F 20 4B 41 53 54 45 | 5.END..TO KASTE| 00000D30: 45 4C 0D 20 4E 42 20 4D 53 20 50 4F 20 41 54 20 |EL. NB MS PO AT | 00000D40: 35 30 0D 20 41 54 20 32 30 0D 20 52 45 20 39 30 |50. AT 20. RE 90| 00000D50: 20 56 54 20 38 30 0D 20 56 54 20 34 30 0D 20 50 | VT 80. VT 40. P| 00000D60: 4E 20 41 54 20 31 37 30 0D 20 41 54 20 37 30 0D |N AT 170. AT 70.| 00000D70: 20 4C 49 20 39 30 20 56 54 20 38 30 20 4C 49 20 | LI 90 VT 80 LI | 00000D80: 39 30 20 56 54 20 31 30 20 52 45 20 39 30 20 56 |90 VT 10 RE 90 V| 00000D90: 54 20 32 30 20 48 45 52 48 41 41 4C 20 35 20 5B |T 20 HERHAAL 5 [| 00000DA0: 4B 41 4E 54 45 45 4C 5D 0D 20 52 45 20 39 30 20 |KANTEEL]. RE 90 | 00000DB0: 56 54 20 35 20 52 45 20 39 30 20 56 54 20 32 30 |VT 5 RE 90 VT 20| 00000DC0: 20 52 45 20 39 30 20 56 54 20 31 30 20 4C 49 20 | RE 90 VT 10 LI | 00000DD0: 39 30 20 56 54 20 38 30 0D 20 41 54 20 36 30 20 |90 VT 80. AT 60 | 00000DE0: 52 45 20 31 38 30 20 48 45 52 48 41 41 4C 20 31 |RE 180 HERHAAL 1| 00000DF0: 30 20 5B 4B 41 4E 54 45 45 4C 5D 0D 20 48 45 52 |0 [KANTEEL]. HER| 00000E00: 48 41 41 4C 20 35 20 5B 4B 41 4E 54 45 45 4C 5D |HAAL 5 [KANTEEL]| 00000E10: 0D 20 52 45 20 39 30 20 56 54 20 35 20 4C 49 20 |. RE 90 VT 5 LI | 00000E20: 39 30 20 41 54 20 36 30 20 56 54 20 38 30 0D 20 |90 AT 60 VT 80. | 00000E30: 4C 49 20 39 30 20 56 54 20 31 30 20 52 45 20 39 |LI 90 VT 10 RE 9| 00000E40: 30 20 56 54 20 32 30 0D 20 48 45 52 48 41 41 4C |0 VT 20. HERHAAL| 00000E50: 20 35 20 5B 4B 41 4E 54 45 45 4C 5D 20 52 45 20 | 5 [KANTEEL] RE | 00000E60: 39 30 20 56 54 20 35 20 52 45 20 39 30 20 56 54 |90 VT 5 RE 90 VT| 00000E70: 20 32 30 20 52 45 20 39 30 20 56 54 20 31 30 20 | 20 RE 90 VT 10 | 00000E80: 4C 49 20 39 30 20 56 54 20 38 30 0D 20 4C 49 20 |LI 90 VT 80. LI | 00000E90: 39 30 20 47 55 4D 20 56 54 20 32 30 20 50 45 4E |90 GUM VT 20 PEN| 00000EA0: 20 50 4F 20 4E 42 0D 20 41 54 20 36 30 0D 20 41 | PO NB. AT 60. A| 00000EB0: 54 20 35 0D 20 52 45 20 39 30 20 50 4E 20 56 54 |T 5. RE 90 PN VT| 00000EC0: 20 35 0D 20 47 55 4D 20 41 54 20 35 20 4C 49 20 | 5. GUM AT 5 LI | 00000ED0: 39 30 20 50 45 4E 0D 20 56 54 20 32 30 0D 20 41 |90 PEN. VT 20. A| 00000EE0: 54 20 32 35 0D 20 56 54 20 32 35 0D 20 4C 49 20 |T 25. VT 25. LI | 00000EF0: 39 30 20 56 54 20 31 35 20 4C 49 20 39 30 20 56 |90 VT 15 LI 90 V| 00000F00: 54 20 32 35 0D 45 4E 44 0D 0D 54 4F 20 5A 45 54 |T 25.END..TO ZET| 00000F10: 52 41 4E 44 0D 20 4C 4F 4B 41 41 4C 20 22 58 30 |RAND. LOKAAL "X0| 00000F20: 20 4D 41 41 4B 20 22 58 30 20 58 50 4F 53 20 4C | MAAK "X0 XPOS L| 00000F30: 4F 4B 41 41 4C 20 22 59 30 20 4D 41 41 4B 20 22 |OKAAL "Y0 MAAK "| 00000F40: 59 30 20 59 50 4F 53 0D 20 50 4F 20 4E 41 41 52 |Y0 YPOS. PO NAAR| 00000F50: 58 59 20 2D 20 31 36 30 20 31 33 30 20 50 4E 20 |XY - 160 130 PN | 00000F60: 4E 41 41 52 59 20 2D 20 37 35 20 4E 41 41 52 58 |NAARY - 75 NAARX| 00000F70: 20 31 35 39 20 4E 41 41 52 59 20 31 33 30 20 4E | 159 NAARY 130 N| 00000F80: 41 41 52 58 20 2D 20 31 36 30 0D 20 50 4F 20 4E |AARX - 160. PO N| 00000F90: 41 41 52 58 59 20 3A 58 30 20 3A 59 30 0D 45 4E |AARXY :X0 :Y0.EN| 00000FA0: 44 0D 0D 54 4F 20 42 45 47 49 4E 0D 20 50 4F 20 |D..TO BEGIN. PO | 00000FB0: 4E 41 41 52 50 4C 20 30 20 30 20 4D 53 20 4E 41 |NAARPL 0 0 MS NA| 00000FC0: 41 52 48 4F 45 4B 20 39 30 0D 45 4E 44 0D 0D 54 |ARHOEK 90.END..T| 00000FD0: 4F 20 5A 45 54 20 3A 54 45 4B 53 54 0D 20 53 50 |O ZET :TEKST. SP| 00000FE0: 52 4F 4F 4B 20 30 20 4B 4F 4D 20 5A 45 54 31 20 |ROOK 0 KOM ZET1 | 00000FF0: 3A 54 45 4B 53 54 0D 20 41 4C 53 20 52 45 47 45 |:TEKST. ALS REGE| 00001000: 4C 20 3C 20 31 38 20 44 41 4E 20 4E 41 41 52 50 |L < 18 DAN NAARP| 00001010: 4C 20 30 20 52 45 47 45 4C 20 2B 20 31 20 41 4E |L 0 REGEL + 1 AN| 00001020: 44 45 52 53 20 4E 41 41 52 50 4C 20 30 20 30 0D |DERS NAARPL 0 0.| 00001030: 45 4E 44 0D 0D 54 4F 20 52 41 41 4D 0D 20 48 45 |END..TO RAAM. HE| 00001040: 52 48 41 41 4C 20 34 20 5B 52 45 20 39 30 20 56 |RHAAL 4 [RE 90 V| 00001050: 49 45 52 4B 41 4E 54 5D 0D 20 50 4F 20 56 54 20 |IERKANT]. PO VT | 00001060: 34 35 20 50 4E 20 52 45 20 39 30 20 56 54 20 34 |45 PN RE 90 VT 4| 00001070: 35 20 48 45 52 48 41 41 4C 20 34 20 5B 52 45 20 |5 HERHAAL 4 [RE | 00001080: 39 30 20 56 54 20 39 30 5D 0D 45 4E 44 0D 0D 54 |90 VT 90].END..T| 00001090: 4F 20 44 49 41 4D 41 4E 54 20 0D 45 4E 44 0D 0D |O DIAMANT .END..| 000010A0: 54 4F 20 41 43 48 54 48 4F 45 4B 0D 20 48 45 52 |TO ACHTHOEK. HER| 000010B0: 48 41 41 4C 20 38 20 5B 56 54 20 32 35 20 52 45 |HAAL 8 [VT 25 RE| 000010C0: 20 34 35 5D 0D 45 4E 44 0D 0D 54 4F 20 56 49 45 | 45].END..TO VIE| 000010D0: 52 4B 41 4E 54 0D 20 48 45 52 48 41 41 4C 20 34 |RKANT. HERHAAL 4| 000010E0: 20 5B 56 54 20 34 30 20 52 45 20 39 30 5D 0D 45 | [VT 40 RE 90].E| 000010F0: 4E 44 0D 0D 54 4F 20 26 42 0D 20 26 26 20 22 50 |ND..TO &B. && "P| 00001100: 52 49 4E 54 42 0D 45 4E 44 0D 0D 54 4F 20 21 48 |RINTB.END..TO !H| 00001110: 0D 20 57 45 47 20 5B 42 45 57 41 41 52 50 20 4F |. WEG [BEWAARP O| 00001120: 4E 54 48 4F 55 44 20 50 52 4F 47 20 41 4E 54 57 |NTHOUD PROG ANTW| 00001130: 4F 4F 52 44 31 20 49 4E 20 45 45 4E 55 49 54 20 |OORD1 IN EENUIT | 00001140: 50 45 4E 20 42 4F 4F 47 4A 45 20 57 41 43 48 54 |PEN BOOGJE WACHT| 00001150: 20 53 50 41 54 49 45 20 53 50 20 52 55 49 4D 54 | SPATIE SP RUIMT| 00001160: 45 20 26 56 20 26 4C 20 26 50 20 26 5A 20 26 4D |E &V &L &P &Z &M| 00001170: 20 26 53 20 26 26 20 26 42 20 21 48 5D 0D 45 4E | &S && &B !H].EN| 00001180: 44 0D 0D 54 4F 20 42 45 57 41 41 52 50 20 3A 42 |D..TO BEWAARP :B| 00001190: 45 53 54 41 4E 44 20 3A 4E 41 4D 45 4E 0D 20 28 |ESTAND :NAMEN. (| 000011A0: 20 42 45 57 41 41 52 20 3A 42 45 53 54 41 4E 44 | BEWAAR :BESTAND| 000011B0: 20 3A 4E 41 4D 45 4E 20 29 0D 20 50 52 20 22 42 | :NAMEN ). PR "B| 000011C0: 45 57 41 41 52 44 0D 45 4E 44 0D 0D 54 4F 20 4F |EWAARD.END..TO O| 000011D0: 4E 54 48 4F 55 44 20 3A 4E 41 41 4D 0D 20 50 52 |NTHOUD :NAAM. PR| 000011E0: 49 4E 54 31 20 22 3E 20 44 45 46 49 4E 49 45 45 |INT1 "> DEFINIEE| 000011F0: 52 20 3A 4E 41 41 4D 20 5A 45 54 56 20 5B 5D 20 |R :NAAM ZETV [] | 00001200: 50 52 4F 47 20 3A 4E 41 41 4D 20 41 4E 54 57 4F |PROG :NAAM ANTWO| 00001210: 4F 52 44 0D 45 4E 44 0D 0D 54 4F 20 50 52 4F 47 |ORD.END..TO PROG| 00001220: 20 3A 4E 41 41 4D 20 3A 43 4F 4D 4D 0D 20 41 4C | :NAAM :COMM. AL| 00001230: 53 20 3A 43 4F 4D 4D 20 3D 20 5B 45 4E 44 5D 20 |S :COMM = [END] | 00001240: 50 52 49 4E 54 20 53 41 4D 45 4E 20 3A 4E 41 41 |PRINT SAMEN :NAA| 00001250: 4D 20 5B 47 45 4C 45 45 52 44 5D 20 52 45 53 20 |M [GELEERD] RES | 00001260: 5B 5D 0D 20 52 55 4E 20 3A 43 4F 4D 4D 20 50 52 |[]. RUN :COMM PR| 00001270: 49 4E 54 31 20 22 3E 0D 20 52 45 53 20 5A 45 54 |INT1 ">. RES ZET| 00001280: 56 20 3A 43 4F 4D 4D 20 50 52 4F 47 20 3A 4E 41 |V :COMM PROG :NA| 00001290: 41 4D 20 41 4E 54 57 4F 4F 52 44 0D 45 4E 44 0D |AM ANTWOORD.END.| 000012A0: 0D 54 4F 20 41 4E 54 57 4F 4F 52 44 31 0D 20 4C |.TO ANTWOORD1. L| 000012B0: 4F 4B 41 41 4C 20 22 41 20 4D 41 41 4B 20 22 41 |OKAAL "A MAAK "A| 000012C0: 20 41 4E 54 57 4F 4F 52 44 0D 20 41 4C 53 20 4C | ANTWOORD. ALS L| 000012D0: 45 45 47 3F 20 3A 41 20 52 45 53 20 22 20 41 4E |EEG? :A RES " AN| 000012E0: 44 45 52 53 20 52 45 53 20 45 45 52 53 54 45 20 |DERS RES EERSTE | 000012F0: 3A 41 0D 45 4E 44 0D 0D 54 4F 20 49 4E 20 3A 4C |:A.END..TO IN :L| 00001300: 49 4A 53 54 20 3A 54 45 4B 53 54 0D 20 41 4C 53 |IJST :TEKST. ALS| 00001310: 20 57 4F 4F 52 44 3F 20 3A 54 45 4B 53 54 20 4D | WOORD? :TEKST M| 00001320: 41 41 4B 20 22 54 45 4B 53 54 20 53 41 4D 45 4E |AAK "TEKST SAMEN| 00001330: 20 3A 54 45 4B 53 54 20 5B 5D 0D 20 41 4C 53 20 | :TEKST []. ALS | 00001340: 4C 45 45 47 3F 20 3A 54 45 4B 53 54 20 52 45 53 |LEEG? :TEKST RES| 00001350: 55 4C 54 41 41 54 20 22 57 41 41 52 0D 20 41 4C |ULTAAT "WAAR. AL| 00001360: 53 20 4E 49 45 54 20 45 52 42 49 4A 3F 20 45 45 |S NIET ERBIJ? EE| 00001370: 52 53 54 45 20 3A 54 45 4B 53 54 20 3A 4C 49 4A |RSTE :TEKST :LIJ| 00001380: 53 54 20 52 45 53 20 22 4E 49 45 54 57 0D 20 52 |ST RES "NIETW. R| 00001390: 45 53 55 4C 54 41 41 54 20 49 4E 20 3A 4C 49 4A |ESULTAAT IN :LIJ| 000013A0: 53 54 20 4D 45 20 3A 54 45 4B 53 54 0D 45 4E 44 |ST ME :TEKST.END| 000013B0: 0D 0D 54 4F 20 45 45 4E 55 49 54 20 3A 4C 49 4A |..TO EENUIT :LIJ| 000013C0: 53 54 0D 20 52 45 53 55 4C 54 41 41 54 20 53 41 |ST. RESULTAAT SA| 000013D0: 4D 45 4E 20 5B 5D 20 45 4C 45 4D 45 4E 54 20 28 |MEN [] ELEMENT (| 000013E0: 20 31 20 2B 20 52 41 4E 44 4F 4D 20 41 41 4E 54 | 1 + RANDOM AANT| 000013F0: 41 4C 20 3A 4C 49 4A 53 54 20 29 20 3A 4C 49 4A |AL :LIJST ) :LIJ| 00001400: 53 54 0D 45 4E 44 0D 0D 54 4F 20 50 45 4E 0D 20 |ST.END..TO PEN. | 00001410: 4B 4C 20 31 0D 45 4E 44 0D 0D 54 4F 20 42 4F 4F |KL 1.END..TO BOO| 00001420: 47 4A 45 20 3A 53 54 52 41 41 4C 0D 20 48 45 52 |GJE :STRAAL. HER| 00001430: 48 41 41 4C 20 31 30 20 5B 56 54 20 33 2E 31 34 |HAAL 10 [VT 3.14| 00001440: 31 20 2A 20 3A 53 54 52 41 41 4C 20 2F 20 32 30 |1 * :STRAAL / 20| 00001450: 20 52 45 20 39 5D 0D 45 4E 44 0D 0D 54 4F 20 57 | RE 9].END..TO W| 00001460: 41 43 48 54 20 3A 54 49 4A 44 0D 20 48 45 52 48 |ACHT :TIJD. HERH| 00001470: 41 41 4C 20 37 35 30 20 2A 20 3A 54 49 4A 44 20 |AAL 750 * :TIJD | 00001480: 5B 5D 0D 45 4E 44 0D 0D 54 4F 20 53 50 41 54 49 |[].END..TO SPATI| 00001490: 45 20 3A 41 41 4E 54 41 4C 0D 20 41 4C 53 20 3A |E :AANTAL. ALS :| 000014A0: 41 41 4E 54 41 4C 20 3D 20 31 20 52 45 53 20 43 |AANTAL = 1 RES C| 000014B0: 48 41 52 20 33 32 0D 20 52 45 53 20 57 4F 4F 52 |HAR 32. RES WOOR| 000014C0: 44 20 43 48 41 52 20 33 32 20 53 50 41 54 49 45 |D CHAR 32 SPATIE| 000014D0: 20 3A 41 41 4E 54 41 4C 20 2D 20 31 0D 45 4E 44 | :AANTAL - 1.END| 000014E0: 0D 0D 54 4F 20 53 50 20 3A 41 41 4E 54 41 4C 0D |..TO SP :AANTAL.| 000014F0: 20 52 45 53 55 4C 54 41 41 54 20 53 50 41 54 49 | RESULTAAT SPATI| 00001500: 45 20 3A 41 41 4E 54 41 4C 0D 45 4E 44 0D 0D 54 |E :AANTAL.END..T| 00001510: 4F 20 52 55 49 4D 54 45 0D 20 2E 47 43 4F 4C 4C |O RUIMTE. .GCOLL| 00001520: 20 50 52 20 2E 4E 4F 44 45 53 0D 45 4E 44 0D 0D | PR .NODES.END..| 00001530: 54 4F 20 26 56 0D 20 26 26 20 22 56 4F 52 4D 45 |TO &V. && "VORME| 00001540: 4E 0D 45 4E 44 0D 0D 54 4F 20 26 4C 0D 20 26 26 |N.END..TO &L. &&| 00001550: 20 22 4C 49 4A 53 54 45 4E 0D 45 4E 44 0D 0D 54 | "LIJSTEN.END..T| 00001560: 4F 20 26 50 0D 20 26 26 20 22 50 52 49 4E 54 56 |O &P. && "PRINTV| 00001570: 0D 45 4E 44 0D 0D 54 4F 20 26 5A 0D 20 26 26 20 |.END..TO &Z. && | 00001580: 22 5A 45 54 54 45 4E 0D 45 4E 44 0D 0D 54 4F 20 |"ZETTEN.END..TO | 00001590: 26 4D 0D 20 26 26 20 22 4D 55 5A 49 45 4B 0D 45 |&M. && "MUZIEK.E| 000015A0: 4E 44 0D 0D 54 4F 20 26 53 0D 20 26 26 20 22 53 |ND..TO &S. && "S| 000015B0: 50 52 4F 4B 45 4E 0D 45 4E 44 0D 0D 54 4F 20 26 |PROKEN.END..TO &| 000015C0: 26 20 3A 58 0D 20 53 43 48 52 49 4A 56 45 4E 0D |& :X. SCHRIJVEN.| 000015D0: 20 4D 41 41 4B 20 22 58 20 57 4F 4F 52 44 20 22 | MAAK "X WOORD "| 000015E0: 4C 4F 47 4F 20 3A 58 0D 20 50 52 20 53 41 4D 45 |LOGO :X. PR SAME| 000015F0: 4E 20 3A 58 20 5B 57 4F 52 44 54 20 4E 55 20 47 |N :X [WORDT NU G| 00001600: 45 4C 41 44 45 4E 5D 0D 20 4C 41 41 44 20 3A 58 |ELADEN]. LAAD :X| 00001610: 0D 45 4E 44 0D 0D 4D 41 41 4B 20 22 47 49 53 20 |.END..MAAK "GIS | 00001620: 28 38 29 0D 4D 41 41 4B 20 22 46 49 53 20 28 36 |(8).MAAK "FIS (6| 00001630: 29 0D 4D 41 41 4B 20 22 44 49 53 20 28 33 29 0D |).MAAK "DIS (3).| 00001640: 4D 41 41 4B 20 22 43 49 53 20 28 31 29 0D 4D 41 |MAAK "CIS (1).MA| 00001650: 41 4B 20 22 42 45 53 20 28 31 30 29 0D 4D 41 41 |AK "BES (10).MAA| 00001660: 4B 20 22 41 49 53 20 28 31 30 29 0D 4D 41 41 4B |K "AIS (10).MAAK| 00001670: 20 22 47 20 28 37 29 0D 4D 41 41 4B 20 22 46 20 | "G (7).MAAK "F | 00001680: 28 35 29 0D 4D 41 41 4B 20 22 45 20 28 34 29 0D |(5).MAAK "E (4).| 00001690: 4D 41 41 4B 20 22 44 20 28 32 29 0D 4D 41 41 4B |MAAK "D (2).MAAK| 000016A0: 20 22 42 20 28 31 31 29 0D 4D 41 41 4B 20 22 4C | "B (11).MAAK "L| 000016B0: 41 44 44 45 52 20 5B 38 37 37 39 20 39 33 30 31 |ADDER [8779 9301| 000016C0: 20 39 38 35 34 20 31 30 34 34 30 20 31 31 30 36 | 9854 10440 1106| 000016D0: 30 20 31 31 37 31 38 20 31 32 34 31 35 20 31 33 |0 11718 12415 13| 000016E0: 31 35 33 20 31 33 39 33 35 20 31 34 37 36 34 20 |153 13935 14764 | 000016F0: 31 35 37 34 32 20 31 36 35 37 32 20 31 37 35 35 |15742 16572 1755| 00001700: 37 20 31 38 36 30 31 5D 0D 4D 41 41 4B 20 22 4F |7 18601].MAAK "O| 00001710: 43 54 41 41 46 20 28 31 29 0D 4D 41 41 4B 20 22 |CTAAF (1).MAAK "| 00001720: 54 45 4D 50 4F 20 28 32 30 29 0D 4D 41 41 4B 20 |TEMPO (20).MAAK | 00001730: 22 4C 50 20 28 31 35 29 0D 4D 41 41 4B 20 22 48 |"LP (15).MAAK "H| 00001740: 50 20 28 31 35 29 0D 4D 41 41 4B 20 22 47 4F 4C |P (15).MAAK "GOL| 00001750: 46 20 28 31 37 29 0D 4D 41 41 4B 20 22 53 52 20 |F (17).MAAK "SR | 00001760: 28 30 29 0D 4D 41 41 4B 20 22 41 44 20 28 39 29 |(0).MAAK "AD (9)| 00001770: 0D 4D 41 41 4B 20 22 43 20 28 30 29 0D 4D 41 41 |.MAAK "C (0).MAA| 00001780: 4B 20 22 41 20 28 39 29 0D 4D 41 41 4B 20 22 53 |K "A (9).MAAK "S| 00001790: 54 41 52 54 4F 50 20 5B 5A 45 54 4F 50 5D 0D |TARTOP [ZETOP]. |
..TO SPEEL :NOTEN :DUREN. ALS LEEG? :NOT EN STOP. TOON EERSTE :NOTEN EERSTE :DURE N. SPEEL ME :NOTEN ME :DUREN.END..TO OCT AAF :N. ALS :N = "+ MAAK "OCTAAF :OCTAAF + 1 STOP. ALS :N = "- MAAK "OCTAAF :OCT AAF - 1 STOP. ALS EENVAN :N < - 2 :N > 4 PR [KAN NIET]. MAAK "OCTAAF :N.END..TO TOONOCT. ALS LAATSTE :NT = "+ MAAK "NT M L :NT RES 12. ALS LAATSTE :NT = "- MAAK "NT ML :NT RES - 12. RES 0.END..TO TEMPO :N. MAAK "TEMPO :N.END..TO GELUID :NOOT :DUUR :AD :SR :GOLF. .DEPOSIT 54296 15. .DEPOSIT 54277 :AD. .DEPOSIT 54278 :SR. .DEPOSIT 54273 QUOTIENT :NOOT 256. .DEP OSIT 54272 BITAND :NOOT 255. .DEPOSIT 54 276 :GOLF. ALS :GOLF = 65 DAN .DEPOSIT 5 4274 :LP .DEPOSIT 54275 :HP. HERHAAL :DU UR * :TEMPO []. .DEPOSIT 54276 0.END..TO PIANO. MAAK "AD 12 MAAK "SR 12 MAAK "GO LF 33.END..TO XYLOFOON. MAAK "AD 24 MAAK "SR 15 MAAK "GOLF 17.END..TO BANJO. MAA K "AD 9 MAAK "SR 0 MAAK "GOLF 65 MAAK "H P 10 MAAK "LP 10.END..TO GOLF :N. MAAK " GOLF :N.END..TO FLUIT. MAAK "AD 135 MAAK "SR 15 MAAK "GOLF 17.END..TO TOON :NOOT :DUUR. LOKAAL "NT. ALS LIJST? :NOOT MAA K "NOOT EERSTE :NOOT. ALS ( EENVAN :NOOT = "R :NOOT = "- ) DAN HERHAAL :TEMPO * :DUUR [] STOP. MAAK "NT :NOOT. ALS NIET GETAL? :NT DAN MAAK "NT TOONOCT + TOONOC T + 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 :NOOT [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 :G OLF.END..TO KLANK :ATT :DEC :SUS :REL :G OLFVORM. ALS ( EENVAN :ATT < 0 :DEC < 0 :SUS < 0 :REL < 0 :ATT > 15 :DEC > 15 :S US > 15 :REL > 15 ) DAN PR [GETALLEN MOE TEN TUSSEN 0 EN 15]. MAAK "AD BITOR ( BI TAND :ATT 15 ) * 16 ( BITAND :AD 15 ). M AAK "AD BITOR ( BITAND :DEC 15 ) ( BITAN D :AD 240 ). MAAK "SR BITOR ( BITAND :SU S 15 ) * 16 ( BITAND :SR 15 ). MAAK "SR BITOR ( BITAND :REL 15 ) ( BITAND :SR 24 0 ). MAAK "GOLF :GOLFVORM.END..TO SJJJ : DUUR. KLANK 9 5 0 0 129 TOON [C] :DUUR.E ND..TO GESJJJ :DUREN. ALS LEEG? :DUREN D AN STOP. SJJJ EERSTE :DUREN. GESJJJ ME : DUREN.END..TO !Z. WEG ZET WEG ZET1 WEG Z ETRIJ WEG ZETWOORD WEG ZETRAND WEG BEGIN WEG NAARPL WEG PLAATS WEG KOLOM WEG REG EL WEG !Z. .GCOLL PR .NODES.END..TO PLAA TS. RESULTAAT SAMEN KOLOM REGEL.END..TO KOLOM. RES INTEGER ( XPOS / 8 ) + 19.END ..TO ZETWOORD :WOORD. PO VD NAARHOEK 90. ALS KOLOM > 37 ALS REGEL < 18 DAN NAARP L 0 REGEL + 1 ANDERS NAARPL 0 0. ALS :WO ORD = " DAN STEMPEL " NAARX XPOS + 8 STO P. STEMPEL EERSTE :WOORD NAARX XPOS + 8. ZETWOORD ME :WOORD.END..TO NAARPL :KOLO M :REGEL. LOKAAL "P MAAK "P EERSTE TOEST AND PO. ALS ( EENVAN :REGEL > 18 :REGEL < 0 :KOLOM < 0 :KOLOM > 38 ) DAN PRINT [ BUITEN RAND] STOP. NAARX ( :KOLOM - 19 ) * 8. NAARY ( 12 - :REGEL ) * 10.4. ALS :P DAN PN.END..TO REGEL. RES INTEGER ( 1 2.1 - YPOS / 10.4 ).END..TO ZET1 :TEKST. ALS WOORD? :TEKST DAN ZETWOORD :TEKST N AARX XPOS - 8 KOM STOP. ALS LEEG? :TEKST DAN NAARX XPOS - 8 KOM STOP. ZETWOORD E ERSTE :TEKST ZET1 ME :TEKST.END..TO ZETR IJ :N :TOETS. LOKAAL "T LOKAAL "P. MAAK "P EERSTE TOESTAND. ALS NIET GETAL? :N P RINT [GETAL EERST] STOP. ALS :N > 0 MAAK "T 1 ANDERS MAAK "T ( - 1 ). ALS LEEG? :TOETS DAN MAAK "TOETS " ANDERS ALS LIJS T? :TOETS DAN MAAK "TOETS EERSTE EERSTE :TOETS ANDERS MAAK "TOETS EERSTE :TOETS. PO HERHAAL :N * :T [STEMPEL :TOETS VT 8 * :T]. ALS :P DAN PN.END..TO KANTEEL. R E 90 VT 5 RE 90 VT 5 LI 90 VT 5 LI 90 VT 5.END..TO KASTEEL. NB MS PO AT 50. AT 2 0. RE 90 VT 80. VT 40. PN AT 170. AT 70. LI 90 VT 80 LI 90 VT 10 RE 90 VT 20 HER HAAL 5 [KANTEEL]. RE 90 VT 5 RE 90 VT 20 RE 90 VT 10 LI 90 VT 80. AT 60 RE 180 H ERHAAL 10 [KANTEEL]. HERHAAL 5 [KANTEEL] . RE 90 VT 5 LI 90 AT 60 VT 80. LI 90 VT 10 RE 90 VT 20. HERHAAL 5 [KANTEEL] RE 90 VT 5 RE 90 VT 20 RE 90 VT 10 LI 90 VT 80. LI 90 GUM VT 20 PEN PO NB. AT 60. A T 5. RE 90 PN VT 5. GUM AT 5 LI 90 PEN. VT 20. AT 25. VT 25. LI 90 VT 15 LI 90 V T 25.END..TO ZETRAND. LOKAAL "X0 MAAK "X 0 XPOS LOKAAL "Y0 MAAK "Y0 YPOS. PO NAAR XY - 160 130 PN NAARY - 75 NAARX 159 NAA RY 130 NAARX - 160. PO NAARXY :X0 :Y0.EN D..TO BEGIN. PO NAARPL 0 0 MS NAARHOEK 9 0.END..TO ZET :TEKST. SPROOK 0 KOM ZET1 :TEKST. ALS REGEL < 18 DAN NAARPL 0 REGE L + 1 ANDERS NAARPL 0 0.END..TO RAAM. HE RHAAL 4 [RE 90 VIERKANT]. PO VT 45 PN RE 90 VT 45 HERHAAL 4 [RE 90 VT 90].END..T O DIAMANT .END..TO ACHTHOEK. HERHAAL 8 [ VT 25 RE 45].END..TO VIERKANT. HERHAAL 4 [VT 40 RE 90].END..TO &B. && "PRINTB.EN D..TO !H. WEG [BEWAARP ONTHOUD PROG ANTW OORD1 IN EENUIT PEN BOOGJE WACHT SPATIE SP RUIMTE &V &L &P &Z &M &S && &B !H].EN D..TO BEWAARP :BESTAND :NAMEN. ( BEWAAR :BESTAND :NAMEN ). PR "BEWAARD.END..TO O NTHOUD :NAAM. PRINT1 "> DEFINIEER :NAAM ZETV [] PROG :NAAM ANTWOORD.END..TO PROG :NAAM :COMM. ALS :COMM = [END] PRINT SA MEN :NAAM [GELEERD] RES []. RUN :COMM PR INT1 ">. RES ZETV :COMM PROG :NAAM ANTWO ORD.END..TO ANTWOORD1. LOKAAL "A MAAK "A ANTWOORD. ALS LEEG? :A RES " ANDERS RES EERSTE :A.END..TO IN :LIJST :TEKST. ALS WOORD? :TEKST MAAK "TEKST SAMEN :TEKST []. ALS LEEG? :TEKST RESULTAAT "WAAR. AL S NIET ERBIJ? EERSTE :TEKST :LIJST RES " NIETW. RESULTAAT IN :LIJST ME :TEKST.END ..TO EENUIT :LIJST. RESULTAAT SAMEN [] E LEMENT ( 1 + RANDOM AANTAL :LIJST ) :LIJ ST.END..TO PEN. KL 1.END..TO BOOGJE :STR AAL. HERHAAL 10 [VT 3.141 * :STRAAL / 20 RE 9].END..TO WACHT :TIJD. HERHAAL 750 * :TIJD [].END..TO SPATIE :AANTAL. ALS : AANTAL = 1 RES CHAR 32. RES WOORD CHAR 3 2 SPATIE :AANTAL - 1.END..TO SP :AANTAL. RESULTAAT SPATIE :AANTAL.END..TO RUIMTE . .GCOLL PR .NODES.END..TO &V. && "VORME N.END..TO &L. && "LIJSTEN.END..TO &P. && "PRINTV.END..TO &Z. && "ZETTEN.END..TO &M. && "MUZIEK.END..TO &S. && "SPROKEN.E ND..TO && :X. SCHRIJVEN. MAAK "X WOORD " LOGO :X. PR SAMEN :X [WORDT NU GELADEN]. LAAD :X.END..MAAK "GIS (8).MAAK "FIS (6 ).MAAK "DIS (3).MAAK "CIS (1).MAAK "BES (10).MAAK "AIS (10).MAAK "G (7).MAAK "F (5).MAAK "E (4).MAAK "D (2).MAAK "B (11) .MAAK "LADDER [8779 9301 9854 10440 1106 0 11718 12415 13153 13935 14764 15742 16 572 17557 18601].MAAK "OCTAAF (1).MAAK " TEMPO (20).MAAK "LP (15).MAAK "HP (15).M AAK "GOLF (17).MAAK "SR (0).MAAK "AD (9) .MAAK "C (0).MAAK "A (9).MAAK "STARTOP [ ZETOP].
> CLICK IMAGE PREVIEW FOR FULL MODAL