CHR.HER.1.LOGO
FILE INFORMATION
FILENAME(S): CHR.HER.1.LOGO
FILE TYPE(S): DEL
FILE SIZE: 5.4K
FIRST SEEN: 2025-11-30 21:11:01
APPEARS ON: 1 disk(s)
FILE HASH
8109fb62392ebea875e47a99e4f52ea5fdd51d0a107678b4edef0052abfabeda
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOGO | CHR.HER.1.LOGO | DEL | DuncanTwain | 24 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 54 20 35 34 32 37 38 20 3A 53 52 0D 20 2E 44 45 |T 54278 :SR. .DE| 00000010: 50 4F 53 49 54 20 35 34 32 37 33 20 51 55 4F 54 |POSIT 54273 QUOT| 00000020: 49 45 4E 54 20 3A 4E 4F 4F 54 20 32 35 36 0D 20 |IENT :NOOT 256. | 00000030: 2E 44 45 50 4F 53 49 54 20 35 34 32 37 32 20 42 |.DEPOSIT 54272 B| 00000040: 49 54 41 4E 44 20 3A 4E 4F 4F 54 20 32 35 35 0D |ITAND :NOOT 255.| 00000050: 20 2E 44 45 50 4F 53 49 54 20 35 34 32 37 36 20 | .DEPOSIT 54276 | 00000060: 3A 47 4F 4C 46 0D 20 41 4C 53 20 3A 47 4F 4C 46 |:GOLF. ALS :GOLF| 00000070: 20 3D 20 36 35 20 44 41 4E 20 2E 44 45 50 4F 53 | = 65 DAN .DEPOS| 00000080: 49 54 20 35 34 32 37 34 20 3A 4C 50 20 2E 44 45 |IT 54274 :LP .DE| 00000090: 50 4F 53 49 54 20 35 34 32 37 35 20 3A 48 50 0D |POSIT 54275 :HP.| 000000A0: 20 48 45 52 48 41 41 4C 20 3A 44 55 55 52 20 2A | HERHAAL :DUUR *| 000000B0: 20 3A 54 45 4D 50 4F 20 5B 5D 0D 20 2E 44 45 50 | :TEMPO []. .DEP| 000000C0: 4F 53 49 54 20 35 34 32 37 36 20 30 0D 45 4E 44 |OSIT 54276 0.END| 000000D0: 0D 0D 54 4F 20 50 49 41 4E 4F 0D 20 4D 41 41 4B |..TO PIANO. MAAK| 000000E0: 20 22 41 44 20 31 32 20 4D 41 41 4B 20 22 53 52 | "AD 12 MAAK "SR| 000000F0: 20 31 32 20 4D 41 41 4B 20 22 47 4F 4C 46 20 33 | 12 MAAK "GOLF 3| 00000100: 33 0D 45 4E 44 0D 0D 54 4F 20 58 59 4C 4F 46 4F |3.END..TO XYLOFO| 00000110: 4F 4E 0D 20 4D 41 41 4B 20 22 41 44 20 32 34 20 |ON. MAAK "AD 24 | 00000120: 4D 41 41 4B 20 22 53 52 20 31 35 20 4D 41 41 4B |MAAK "SR 15 MAAK| 00000130: 20 22 47 4F 4C 46 20 31 37 0D 45 4E 44 0D 0D 54 | "GOLF 17.END..T| 00000140: 4F 20 42 41 4E 4A 4F 0D 20 4D 41 41 4B 20 22 41 |O BANJO. MAAK "A| 00000150: 44 20 39 20 4D 41 41 4B 20 22 53 52 20 30 20 4D |D 9 MAAK "SR 0 M| 00000160: 41 41 4B 20 22 47 4F 4C 46 20 36 35 20 4D 41 41 |AAK "GOLF 65 MAA| 00000170: 4B 20 22 48 50 20 31 30 20 4D 41 41 4B 20 22 4C |K "HP 10 MAAK "L| 00000180: 50 20 31 30 0D 45 4E 44 0D 0D 54 4F 20 47 4F 4C |P 10.END..TO GOL| 00000190: 46 20 3A 4E 0D 20 4D 41 41 4B 20 22 47 4F 4C 46 |F :N. MAAK "GOLF| 000001A0: 20 3A 4E 0D 45 4E 44 0D 0D 54 4F 20 46 4C 55 49 | :N.END..TO FLUI| 000001B0: 54 0D 20 4D 41 41 4B 20 22 41 44 20 31 33 35 20 |T. MAAK "AD 135 | 000001C0: 4D 41 41 4B 20 22 53 52 20 31 35 20 4D 41 41 4B |MAAK "SR 15 MAAK| 000001D0: 20 22 47 4F 4C 46 20 31 37 0D 45 4E 44 0D 0D 54 | "GOLF 17.END..T| 000001E0: 4F 20 54 4F 4F 4E 20 3A 4E 4F 4F 54 20 3A 44 55 |O TOON :NOOT :DU| 000001F0: 55 52 0D 20 4C 4F 4B 41 41 4C 20 22 4E 54 0D 20 |UR. LOKAAL "NT. | 00000200: 41 4C 53 20 4C 49 4A 53 54 3F 20 3A 4E 4F 4F 54 |ALS LIJST? :NOOT| 00000210: 20 4D 41 41 4B 20 22 4E 4F 4F 54 20 45 45 52 53 | MAAK "NOOT EERS| 00000220: 54 45 20 3A 4E 4F 4F 54 0D 20 41 4C 53 20 28 20 |TE :NOOT. ALS ( | 00000230: 45 45 4E 56 41 4E 20 3A 4E 4F 4F 54 20 3D 20 22 |EENVAN :NOOT = "| 00000240: 52 20 3A 4E 4F 4F 54 20 3D 20 22 2D 20 29 20 44 |R :NOOT = "- ) D| 00000250: 41 4E 20 48 45 52 48 41 41 4C 20 3A 54 45 4D 50 |AN HERHAAL :TEMP| 00000260: 4F 20 2A 20 3A 44 55 55 52 20 5B 5D 20 53 54 4F |O * :DUUR [] STO| 00000270: 50 0D 20 4D 41 41 4B 20 22 4E 54 20 3A 4E 4F 4F |P. MAAK "NT :NOO| 00000280: 54 0D 20 41 4C 53 20 4E 49 45 54 20 47 45 54 41 |T. ALS NIET GETA| 00000290: 4C 3F 20 3A 4E 54 20 44 41 4E 20 4D 41 41 4B 20 |L? :NT DAN MAAK | 000002A0: 22 4E 54 20 54 4F 4F 4E 4F 43 54 20 2B 20 54 4F |"NT TOONOCT + TO| 000002B0: 4F 4E 4F 43 54 20 2B 20 57 41 41 52 44 45 20 3A |ONOCT + WAARDE :| 000002C0: 4E 54 0D 20 4D 41 41 4B 20 22 4E 54 20 3A 4E 54 |NT. MAAK "NT :NT| 000002D0: 20 2B 20 31 32 20 2A 20 28 20 31 20 2B 20 3A 4F | + 12 * ( 1 + :O| 000002E0: 43 54 41 41 46 20 29 0D 20 41 4C 53 20 3A 4E 54 |CTAAF ). ALS :NT| 000002F0: 20 3E 20 37 30 20 44 41 4E 20 50 52 20 53 41 4D | > 70 DAN PR SAM| 00000300: 45 4E 20 3A 4E 4F 4F 54 20 5B 49 53 20 54 45 20 |EN :NOOT [IS TE | 00000310: 48 4F 4F 47 5D 20 53 54 4F 50 0D 20 41 4C 53 20 |HOOG] STOP. ALS | 00000320: 3A 4E 54 20 3C 20 30 20 44 41 4E 20 50 52 20 53 |:NT < 0 DAN PR S| 00000330: 41 4D 45 4E 20 3A 4E 4F 4F 54 20 5B 49 53 20 54 |AMEN :NOOT [IS T| 00000340: 45 20 4C 41 41 47 5D 20 53 54 4F 50 0D 20 47 45 |E LAAG] STOP. GE| 00000350: 4C 55 49 44 20 28 20 45 4C 45 4D 45 4E 54 20 31 |LUID ( ELEMENT 1| 00000360: 20 2B 20 28 20 52 45 53 54 20 3A 4E 54 20 31 32 | + ( REST :NT 12| 00000370: 20 29 20 3A 4C 41 44 44 45 52 20 29 20 2A 20 28 | ) :LADDER ) * (| 00000380: 20 45 4C 45 4D 45 4E 54 20 31 20 2B 20 28 20 51 | ELEMENT 1 + ( Q| 00000390: 55 4F 54 49 45 4E 54 20 3A 4E 54 20 31 32 20 29 |UOTIENT :NT 12 )| 000003A0: 20 5B 30 2E 31 32 35 20 30 2E 32 35 20 30 2E 35 | [0.125 0.25 0.5| 000003B0: 20 31 20 32 20 34 20 38 5D 20 29 20 3A 44 55 55 | 1 2 4 8] ) :DUU| 000003C0: 52 20 3A 41 44 20 3A 53 52 20 3A 47 4F 4C 46 0D |R :AD :SR :GOLF.| 000003D0: 45 4E 44 0D 0D 54 4F 20 4B 4C 41 4E 4B 20 3A 41 |END..TO KLANK :A| 000003E0: 54 54 20 3A 44 45 43 20 3A 53 55 53 20 3A 52 45 |TT :DEC :SUS :RE| 000003F0: 4C 20 3A 47 4F 4C 46 56 4F 52 4D 0D 20 41 4C 53 |L :GOLFVORM. ALS| 00000400: 20 28 20 45 45 4E 56 41 4E 20 3A 41 54 54 20 3C | ( EENVAN :ATT <| 00000410: 20 30 20 3A 44 45 43 20 3C 20 30 20 3A 53 55 53 | 0 :DEC < 0 :SUS| 00000420: 20 3C 20 30 20 3A 52 45 4C 20 3C 20 30 20 3A 41 | < 0 :REL < 0 :A| 00000430: 54 54 20 3E 20 31 35 20 3A 44 45 43 20 3E 20 31 |TT > 15 :DEC > 1| 00000440: 35 20 3A 53 55 53 20 3E 20 31 35 20 3A 52 45 4C |5 :SUS > 15 :REL| 00000450: 20 3E 20 31 35 20 29 20 44 41 4E 20 50 52 20 5B | > 15 ) DAN PR [| 00000460: 47 45 54 41 4C 4C 45 4E 20 4D 4F 45 54 45 4E 20 |GETALLEN MOETEN | 00000470: 54 55 53 53 45 4E 20 30 20 45 4E 20 31 35 5D 0D |TUSSEN 0 EN 15].| 00000480: 20 4D 41 41 4B 20 22 41 44 20 42 49 54 4F 52 20 | MAAK "AD BITOR | 00000490: 28 20 42 49 54 41 4E 44 20 3A 41 54 54 20 31 35 |( BITAND :ATT 15| 000004A0: 20 29 20 2A 20 31 36 20 28 20 42 49 54 41 4E 44 | ) * 16 ( BITAND| 000004B0: 20 3A 41 44 20 31 35 20 29 0D 20 4D 41 41 4B 20 | :AD 15 ). MAAK | 000004C0: 22 41 44 20 42 49 54 4F 52 20 28 20 42 49 54 41 |"AD BITOR ( BITA| 000004D0: 4E 44 20 3A 44 45 43 20 31 35 20 29 20 28 20 42 |ND :DEC 15 ) ( B| 000004E0: 49 54 41 4E 44 20 3A 41 44 20 32 34 30 20 29 0D |ITAND :AD 240 ).| 000004F0: 20 4D 41 41 4B 20 22 53 52 20 42 49 54 4F 52 20 | MAAK "SR BITOR | 00000500: 28 20 42 49 54 41 4E 44 20 3A 53 55 53 20 31 35 |( BITAND :SUS 15| 00000510: 20 29 20 2A 20 31 36 20 28 20 42 49 54 41 4E 44 | ) * 16 ( BITAND| 00000520: 20 3A 53 52 20 31 35 20 29 0D 20 4D 41 41 4B 20 | :SR 15 ). MAAK | 00000530: 22 53 52 20 42 49 54 4F 52 20 28 20 42 49 54 41 |"SR BITOR ( BITA| 00000540: 4E 44 20 3A 52 45 4C 20 31 35 20 29 20 28 20 42 |ND :REL 15 ) ( B| 00000550: 49 54 41 4E 44 20 3A 53 52 20 32 34 30 20 29 0D |ITAND :SR 240 ).| 00000560: 20 4D 41 41 4B 20 22 47 4F 4C 46 20 3A 47 4F 4C | MAAK "GOLF :GOL| 00000570: 46 56 4F 52 4D 0D 45 4E 44 0D 0D 54 4F 20 53 4A |FVORM.END..TO SJ| 00000580: 4A 4A 20 3A 44 55 55 52 0D 20 4B 4C 41 4E 4B 20 |JJ :DUUR. KLANK | 00000590: 39 20 35 20 30 20 30 20 31 32 39 20 54 4F 4F 4E |9 5 0 0 129 TOON| 000005A0: 20 5B 43 5D 20 3A 44 55 55 52 0D 45 4E 44 0D 0D | [C] :DUUR.END..| 000005B0: 54 4F 20 47 45 53 4A 4A 4A 20 3A 44 55 52 45 4E |TO GESJJJ :DUREN| 000005C0: 0D 20 41 4C 53 20 4C 45 45 47 3F 20 3A 44 55 52 |. ALS LEEG? :DUR| 000005D0: 45 4E 20 44 41 4E 20 53 54 4F 50 0D 20 53 4A 4A |EN DAN STOP. SJJ| 000005E0: 4A 20 45 45 52 53 54 45 20 3A 44 55 52 45 4E 0D |J EERSTE :DUREN.| 000005F0: 20 47 45 53 4A 4A 4A 20 4D 45 20 3A 44 55 52 45 | GESJJJ ME :DURE| 00000600: 4E 0D 45 4E 44 0D 0D 54 4F 20 21 5A 0D 20 57 45 |N.END..TO !Z. WE| 00000610: 47 20 5A 45 54 20 57 45 47 20 5A 45 54 31 20 57 |G ZET WEG ZET1 W| 00000620: 45 47 20 5A 45 54 52 49 4A 20 57 45 47 20 5A 45 |EG ZETRIJ WEG ZE| 00000630: 54 57 4F 4F 52 44 20 57 45 47 20 5A 45 54 52 41 |TWOORD WEG ZETRA| 00000640: 4E 44 20 57 45 47 20 42 45 47 49 4E 20 57 45 47 |ND WEG BEGIN WEG| 00000650: 20 4E 41 41 52 50 4C 20 57 45 47 20 50 4C 41 41 | NAARPL WEG PLAA| 00000660: 54 53 20 57 45 47 20 4B 4F 4C 4F 4D 20 57 45 47 |TS WEG KOLOM WEG| 00000670: 20 52 45 47 45 4C 20 57 45 47 20 21 5A 0D 20 2E | REGEL WEG !Z. .| 00000680: 47 43 4F 4C 4C 20 50 52 20 2E 4E 4F 44 45 53 0D |GCOLL PR .NODES.| 00000690: 45 4E 44 0D 0D 54 4F 20 50 4C 41 41 54 53 0D 20 |END..TO PLAATS. | 000006A0: 52 45 53 55 4C 54 41 41 54 20 53 41 4D 45 4E 20 |RESULTAAT SAMEN | 000006B0: 4B 4F 4C 4F 4D 20 52 45 47 45 4C 0D 45 4E 44 0D |KOLOM REGEL.END.| 000006C0: 0D 54 4F 20 4B 4F 4C 4F 4D 0D 20 52 45 53 20 49 |.TO KOLOM. RES I| 000006D0: 4E 54 45 47 45 52 20 28 20 58 50 4F 53 20 2F 20 |NTEGER ( XPOS / | 000006E0: 38 20 29 20 2B 20 31 39 0D 45 4E 44 0D 0D 54 4F |8 ) + 19.END..TO| 000006F0: 20 5A 45 54 57 4F 4F 52 44 20 3A 57 4F 4F 52 44 | ZETWOORD :WOORD| 00000700: 0D 20 50 4F 20 56 44 20 4E 41 41 52 48 4F 45 4B |. PO VD NAARHOEK| 00000710: 20 39 30 0D 20 41 4C 53 20 4B 4F 4C 4F 4D 20 3E | 90. ALS KOLOM >| 00000720: 20 33 37 20 41 4C 53 20 52 45 47 45 4C 20 3C 20 | 37 ALS REGEL < | 00000730: 31 38 20 44 41 4E 20 4E 41 41 52 50 4C 20 30 20 |18 DAN NAARPL 0 | 00000740: 52 45 47 45 4C 20 2B 20 31 20 41 4E 44 45 52 53 |REGEL + 1 ANDERS| 00000750: 20 4E 41 41 52 50 4C 20 30 20 30 0D 20 41 4C 53 | NAARPL 0 0. ALS| 00000760: 20 3A 57 4F 4F 52 44 20 3D 20 22 20 44 41 4E 20 | :WOORD = " DAN | 00000770: 53 54 45 4D 50 45 4C 20 22 20 4E 41 41 52 58 20 |STEMPEL " NAARX | 00000780: 58 50 4F 53 20 2B 20 38 20 53 54 4F 50 0D 20 53 |XPOS + 8 STOP. S| 00000790: 54 45 4D 50 45 4C 20 45 45 52 53 54 45 20 3A 57 |TEMPEL EERSTE :W| 000007A0: 4F 4F 52 44 20 4E 41 41 52 58 20 58 50 4F 53 20 |OORD NAARX XPOS | 000007B0: 2B 20 38 0D 20 5A 45 54 57 4F 4F 52 44 20 4D 45 |+ 8. ZETWOORD ME| 000007C0: 20 3A 57 4F 4F 52 44 0D 45 4E 44 0D 0D 54 4F 20 | :WOORD.END..TO | 000007D0: 4E 41 41 52 50 4C 20 3A 4B 4F 4C 4F 4D 20 3A 52 |NAARPL :KOLOM :R| 000007E0: 45 47 45 4C 0D 20 4C 4F 4B 41 41 4C 20 22 50 20 |EGEL. LOKAAL "P | 000007F0: 4D 41 41 4B 20 22 50 20 45 45 52 53 54 45 20 54 |MAAK "P EERSTE T| 00000800: 4F 45 53 54 41 4E 44 20 50 4F 0D 20 41 4C 53 20 |OESTAND PO. ALS | 00000810: 28 20 45 45 4E 56 41 4E 20 3A 52 45 47 45 4C 20 |( EENVAN :REGEL | 00000820: 3E 20 31 38 20 3A 52 45 47 45 4C 20 3C 20 30 20 |> 18 :REGEL < 0 | 00000830: 3A 4B 4F 4C 4F 4D 20 3C 20 30 20 3A 4B 4F 4C 4F |:KOLOM < 0 :KOLO| 00000840: 4D 20 3E 20 33 38 20 29 20 44 41 4E 20 50 52 49 |M > 38 ) DAN PRI| 00000850: 4E 54 20 5B 42 55 49 54 45 4E 20 52 41 4E 44 5D |NT [BUITEN RAND]| 00000860: 20 53 54 4F 50 0D 20 4E 41 41 52 58 20 28 20 3A | STOP. NAARX ( :| 00000870: 4B 4F 4C 4F 4D 20 2D 20 31 39 20 29 20 2A 20 38 |KOLOM - 19 ) * 8| 00000880: 0D 20 4E 41 41 52 59 20 28 20 31 32 20 2D 20 3A |. NAARY ( 12 - :| 00000890: 52 45 47 45 4C 20 29 20 2A 20 31 30 2E 34 0D 20 |REGEL ) * 10.4. | 000008A0: 41 4C 53 20 3A 50 20 44 41 4E 20 50 4E 0D 45 4E |ALS :P DAN PN.EN| 000008B0: 44 0D 0D 54 4F 20 52 45 47 45 4C 0D 20 52 45 53 |D..TO REGEL. RES| 000008C0: 20 49 4E 54 45 47 45 52 20 28 20 31 32 2E 31 20 | INTEGER ( 12.1 | 000008D0: 2D 20 59 50 4F 53 20 2F 20 31 30 2E 34 20 29 0D |- YPOS / 10.4 ).| 000008E0: 45 4E 44 0D 0D 54 4F 20 5A 45 54 31 20 3A 54 45 |END..TO ZET1 :TE| 000008F0: 4B 53 54 0D 20 41 4C 53 20 57 4F 4F 52 44 3F 20 |KST. ALS WOORD? | 00000900: 3A 54 45 4B 53 54 20 44 41 4E 20 5A 45 54 57 4F |:TEKST DAN ZETWO| 00000910: 4F 52 44 20 3A 54 45 4B 53 54 20 4E 41 41 52 58 |ORD :TEKST NAARX| 00000920: 20 58 50 4F 53 20 2D 20 38 20 4B 4F 4D 20 53 54 | XPOS - 8 KOM ST| 00000930: 4F 50 0D 20 41 4C 53 20 4C 45 45 47 3F 20 3A 54 |OP. ALS LEEG? :T| 00000940: 45 4B 53 54 20 44 41 4E 20 4E 41 41 52 58 20 58 |EKST DAN NAARX X| 00000950: 50 4F 53 20 2D 20 38 20 4B 4F 4D 20 53 54 4F 50 |POS - 8 KOM STOP| 00000960: 0D 20 5A 45 54 57 4F 4F 52 44 20 45 45 52 53 54 |. ZETWOORD EERST| 00000970: 45 20 3A 54 45 4B 53 54 20 5A 45 54 31 20 4D 45 |E :TEKST ZET1 ME| 00000980: 20 3A 54 45 4B 53 54 0D 45 4E 44 0D 0D 54 4F 20 | :TEKST.END..TO | 00000990: 5A 45 54 52 49 4A 20 3A 4E 20 3A 54 4F 45 54 53 |ZETRIJ :N :TOETS| 000009A0: 0D 20 4C 4F 4B 41 41 4C 20 22 54 20 4C 4F 4B 41 |. LOKAAL "T LOKA| 000009B0: 41 4C 20 22 50 0D 20 4D 41 41 4B 20 22 50 20 45 |AL "P. MAAK "P E| 000009C0: 45 52 53 54 45 20 54 4F 45 53 54 41 4E 44 0D 20 |ERSTE TOESTAND. | 000009D0: 41 4C 53 20 4E 49 45 54 20 47 45 54 41 4C 3F 20 |ALS NIET GETAL? | 000009E0: 3A 4E 20 50 52 49 4E 54 20 5B 47 45 54 41 4C 20 |:N PRINT [GETAL | 000009F0: 45 45 52 53 54 5D 20 53 54 4F 50 0D 20 41 4C 53 |EERST] STOP. ALS| 00000A00: 20 3A 4E 20 3E 20 30 20 4D 41 41 4B 20 22 54 20 | :N > 0 MAAK "T | 00000A10: 31 20 41 4E 44 45 52 53 20 4D 41 41 4B 20 22 54 |1 ANDERS MAAK "T| 00000A20: 20 28 20 2D 20 31 20 29 0D 20 41 4C 53 20 4C 45 | ( - 1 ). ALS LE| 00000A30: 45 47 3F 20 3A 54 4F 45 54 53 20 44 41 4E 20 4D |EG? :TOETS DAN M| 00000A40: 41 41 4B 20 22 54 4F 45 54 53 20 22 20 41 4E 44 |AAK "TOETS " AND| 00000A50: 45 52 53 20 41 4C 53 20 4C 49 4A 53 54 3F 20 3A |ERS ALS LIJST? :| 00000A60: 54 4F 45 54 53 20 44 41 4E 20 4D 41 41 4B 20 22 |TOETS DAN MAAK "| 00000A70: 54 4F 45 54 53 20 45 45 52 53 54 45 20 45 45 52 |TOETS EERSTE EER| 00000A80: 53 54 45 20 3A 54 4F 45 54 53 20 41 4E 44 45 52 |STE :TOETS ANDER| 00000A90: 53 20 4D 41 41 4B 20 22 54 4F 45 54 53 20 45 45 |S MAAK "TOETS EE| 00000AA0: 52 53 54 45 20 3A 54 4F 45 54 53 0D 20 50 4F 20 |RSTE :TOETS. PO | 00000AB0: 48 45 52 48 41 41 4C 20 3A 4E 20 2A 20 3A 54 20 |HERHAAL :N * :T | 00000AC0: 5B 53 54 45 4D 50 45 4C 20 3A 54 4F 45 54 53 20 |[STEMPEL :TOETS | 00000AD0: 56 54 20 38 20 2A 20 3A 54 5D 0D 20 41 4C 53 20 |VT 8 * :T]. ALS | 00000AE0: 3A 50 20 44 41 4E 20 50 4E 0D 45 4E 44 0D 0D 54 |:P DAN PN.END..T| 00000AF0: 4F 20 4B 41 4E 54 45 45 4C 0D 20 52 45 20 39 30 |O KANTEEL. RE 90| 00000B00: 20 56 54 20 35 20 52 45 20 39 30 20 56 54 20 35 | VT 5 RE 90 VT 5| 00000B10: 20 4C 49 20 39 30 20 56 54 20 35 20 4C 49 20 39 | LI 90 VT 5 LI 9| 00000B20: 30 20 56 54 20 35 0D 45 4E 44 0D 0D 54 4F 20 4B |0 VT 5.END..TO K| 00000B30: 41 53 54 45 45 4C 0D 20 4E 42 20 4D 53 20 50 4F |ASTEEL. NB MS PO| 00000B40: 20 41 54 20 35 30 0D 20 41 54 20 32 30 0D 20 52 | AT 50. AT 20. R| 00000B50: 45 20 39 30 20 56 54 20 38 30 0D 20 56 54 20 34 |E 90 VT 80. VT 4| 00000B60: 30 0D 20 50 4E 20 41 54 20 31 37 30 0D 20 41 54 |0. PN AT 170. AT| 00000B70: 20 37 30 0D 20 4C 49 20 39 30 20 56 54 20 38 30 | 70. LI 90 VT 80| 00000B80: 20 4C 49 20 39 30 20 56 54 20 31 30 20 52 45 20 | LI 90 VT 10 RE | 00000B90: 39 30 20 56 54 20 32 30 20 48 45 52 48 41 41 4C |90 VT 20 HERHAAL| 00000BA0: 20 35 20 5B 4B 41 4E 54 45 45 4C 5D 0D 20 52 45 | 5 [KANTEEL]. RE| 00000BB0: 20 39 30 20 56 54 20 35 20 52 45 20 39 30 20 56 | 90 VT 5 RE 90 V| 00000BC0: 54 20 32 30 20 52 45 20 39 30 20 56 54 20 31 30 |T 20 RE 90 VT 10| 00000BD0: 20 4C 49 20 39 30 20 56 54 20 38 30 0D 20 41 54 | LI 90 VT 80. AT| 00000BE0: 20 36 30 20 52 45 20 31 38 30 20 48 45 52 48 41 | 60 RE 180 HERHA| 00000BF0: 41 4C 20 31 30 20 5B 4B 41 4E 54 45 45 4C 5D 0D |AL 10 [KANTEEL].| 00000C00: 20 48 45 52 48 41 41 4C 20 35 20 5B 4B 41 4E 54 | HERHAAL 5 [KANT| 00000C10: 45 45 4C 5D 0D 20 52 45 20 39 30 20 56 54 20 35 |EEL]. RE 90 VT 5| 00000C20: 20 4C 49 20 39 30 20 41 54 20 36 30 20 56 54 20 | LI 90 AT 60 VT | 00000C30: 38 30 0D 20 4C 49 20 39 30 20 56 54 20 31 30 20 |80. LI 90 VT 10 | 00000C40: 52 45 20 39 30 20 56 54 20 32 30 0D 20 48 45 52 |RE 90 VT 20. HER| 00000C50: 48 41 41 4C 20 35 20 5B 4B 41 4E 54 45 45 4C 5D |HAAL 5 [KANTEEL]| 00000C60: 20 52 45 20 39 30 20 56 54 20 35 20 52 45 20 39 | RE 90 VT 5 RE 9| 00000C70: 30 20 56 54 20 32 30 20 52 45 20 39 30 20 56 54 |0 VT 20 RE 90 VT| 00000C80: 20 31 30 20 4C 49 20 39 30 20 56 54 20 38 30 0D | 10 LI 90 VT 80.| 00000C90: 20 4C 49 20 39 30 20 47 55 4D 20 56 54 20 32 30 | LI 90 GUM VT 20| 00000CA0: 20 50 45 4E 20 50 4F 20 4E 42 0D 20 41 54 20 36 | PEN PO NB. AT 6| 00000CB0: 30 0D 20 41 54 20 35 0D 20 52 45 20 39 30 20 50 |0. AT 5. RE 90 P| 00000CC0: 4E 20 56 54 20 35 0D 20 47 55 4D 20 41 54 20 35 |N VT 5. GUM AT 5| 00000CD0: 20 4C 49 20 39 30 20 50 45 4E 0D 20 56 54 20 32 | LI 90 PEN. VT 2| 00000CE0: 30 0D 20 41 54 20 32 35 0D 20 56 54 20 32 35 0D |0. AT 25. VT 25.| 00000CF0: 20 4C 49 20 39 30 20 56 54 20 31 35 20 4C 49 20 | LI 90 VT 15 LI | 00000D00: 39 30 20 56 54 20 32 35 0D 45 4E 44 0D 0D 54 4F |90 VT 25.END..TO| 00000D10: 20 5A 45 54 52 41 4E 44 0D 20 4C 4F 4B 41 41 4C | ZETRAND. LOKAAL| 00000D20: 20 22 58 30 20 4D 41 41 4B 20 22 58 30 20 58 50 | "X0 MAAK "X0 XP| 00000D30: 4F 53 20 4C 4F 4B 41 41 4C 20 22 59 30 20 4D 41 |OS LOKAAL "Y0 MA| 00000D40: 41 4B 20 22 59 30 20 59 50 4F 53 0D 20 50 4F 20 |AK "Y0 YPOS. PO | 00000D50: 4E 41 41 52 58 59 20 2D 20 31 36 30 20 31 33 30 |NAARXY - 160 130| 00000D60: 20 50 4E 20 4E 41 41 52 59 20 2D 20 37 35 20 4E | PN NAARY - 75 N| 00000D70: 41 41 52 58 20 31 35 39 20 4E 41 41 52 59 20 31 |AARX 159 NAARY 1| 00000D80: 33 30 20 4E 41 41 52 58 20 2D 20 31 36 30 0D 20 |30 NAARX - 160. | 00000D90: 50 4F 20 4E 41 41 52 58 59 20 3A 58 30 20 3A 59 |PO NAARXY :X0 :Y| 00000DA0: 30 0D 45 4E 44 0D 0D 54 4F 20 42 45 47 49 4E 0D |0.END..TO BEGIN.| 00000DB0: 20 50 4F 20 4E 41 41 52 50 4C 20 30 20 30 20 4D | PO NAARPL 0 0 M| 00000DC0: 53 20 4E 41 41 52 48 4F 45 4B 20 39 30 0D 45 4E |S NAARHOEK 90.EN| 00000DD0: 44 0D 0D 54 4F 20 5A 45 54 20 3A 54 45 4B 53 54 |D..TO ZET :TEKST| 00000DE0: 0D 20 53 50 52 4F 4F 4B 20 30 20 4B 4F 4D 20 5A |. SPROOK 0 KOM Z| 00000DF0: 45 54 31 20 3A 54 45 4B 53 54 0D 20 41 4C 53 20 |ET1 :TEKST. ALS | 00000E00: 52 45 47 45 4C 20 3C 20 31 38 20 44 41 4E 20 4E |REGEL < 18 DAN N| 00000E10: 41 41 52 50 4C 20 30 20 52 45 47 45 4C 20 2B 20 |AARPL 0 REGEL + | 00000E20: 31 20 41 4E 44 45 52 53 20 4E 41 41 52 50 4C 20 |1 ANDERS NAARPL | 00000E30: 30 20 30 0D 45 4E 44 0D 0D 54 4F 20 52 41 41 4D |0 0.END..TO RAAM| 00000E40: 0D 20 48 45 52 48 41 41 4C 20 34 20 5B 52 45 20 |. HERHAAL 4 [RE | 00000E50: 39 30 20 56 49 45 52 4B 41 4E 54 5D 0D 20 50 4F |90 VIERKANT]. PO| 00000E60: 20 56 54 20 34 35 20 50 4E 20 52 45 20 39 30 20 | VT 45 PN RE 90 | 00000E70: 56 54 20 34 35 20 48 45 52 48 41 41 4C 20 34 20 |VT 45 HERHAAL 4 | 00000E80: 5B 52 45 20 39 30 20 56 54 20 39 30 5D 0D 45 4E |[RE 90 VT 90].EN| 00000E90: 44 0D 0D 54 4F 20 44 49 41 4D 41 4E 54 20 0D 45 |D..TO DIAMANT .E| 00000EA0: 4E 44 0D 0D 54 4F 20 41 43 48 54 48 4F 45 4B 0D |ND..TO ACHTHOEK.| 00000EB0: 20 48 45 52 48 41 41 4C 20 38 20 5B 56 54 20 32 | HERHAAL 8 [VT 2| 00000EC0: 35 20 52 45 20 34 35 5D 0D 45 4E 44 0D 0D 54 4F |5 RE 45].END..TO| 00000ED0: 20 56 49 45 52 4B 41 4E 54 0D 20 48 45 52 48 41 | VIERKANT. HERHA| 00000EE0: 41 4C 20 34 20 5B 56 54 20 34 30 20 52 45 20 39 |AL 4 [VT 40 RE 9| 00000EF0: 30 5D 0D 45 4E 44 0D 0D 54 4F 20 26 42 0D 20 26 |0].END..TO &B. &| 00000F00: 26 20 22 50 52 49 4E 54 42 0D 45 4E 44 0D 0D 54 |& "PRINTB.END..T| 00000F10: 4F 20 21 48 0D 20 57 45 47 20 5B 42 45 57 41 41 |O !H. WEG [BEWAA| 00000F20: 52 50 20 4F 4E 54 48 4F 55 44 20 50 52 4F 47 20 |RP ONTHOUD PROG | 00000F30: 41 4E 54 57 4F 4F 52 44 31 20 49 4E 20 45 45 4E |ANTWOORD1 IN EEN| 00000F40: 55 49 54 20 50 45 4E 20 42 4F 4F 47 4A 45 20 57 |UIT PEN BOOGJE W| 00000F50: 41 43 48 54 20 53 50 41 54 49 45 20 53 50 20 52 |ACHT SPATIE SP R| 00000F60: 55 49 4D 54 45 20 26 56 20 26 4C 20 26 50 20 26 |UIMTE &V &L &P &| 00000F70: 5A 20 26 4D 20 26 53 20 26 26 20 26 42 20 21 48 |Z &M &S && &B !H| 00000F80: 5D 0D 45 4E 44 0D 0D 54 4F 20 42 45 57 41 41 52 |].END..TO BEWAAR| 00000F90: 50 20 3A 42 45 53 54 41 4E 44 20 3A 4E 41 4D 45 |P :BESTAND :NAME| 00000FA0: 4E 0D 20 28 20 42 45 57 41 41 52 20 3A 42 45 53 |N. ( BEWAAR :BES| 00000FB0: 54 41 4E 44 20 3A 4E 41 4D 45 4E 20 29 0D 20 50 |TAND :NAMEN ). P| 00000FC0: 52 20 22 42 45 57 41 41 52 44 0D 45 4E 44 0D 0D |R "BEWAARD.END..| 00000FD0: 54 4F 20 4F 4E 54 48 4F 55 44 20 3A 4E 41 41 4D |TO ONTHOUD :NAAM| 00000FE0: 0D 20 50 52 49 4E 54 31 20 22 3E 20 44 45 46 49 |. PRINT1 "> DEFI| 00000FF0: 4E 49 45 45 52 20 3A 4E 41 41 4D 20 5A 45 54 56 |NIEER :NAAM ZETV| 00001000: 20 5B 5D 20 50 52 4F 47 20 3A 4E 41 41 4D 20 41 | [] PROG :NAAM A| 00001010: 4E 54 57 4F 4F 52 44 0D 45 4E 44 0D 0D 54 4F 20 |NTWOORD.END..TO | 00001020: 50 52 4F 47 20 3A 4E 41 41 4D 20 3A 43 4F 4D 4D |PROG :NAAM :COMM| 00001030: 0D 20 41 4C 53 20 3A 43 4F 4D 4D 20 3D 20 5B 45 |. ALS :COMM = [E| 00001040: 4E 44 5D 20 50 52 49 4E 54 20 53 41 4D 45 4E 20 |ND] PRINT SAMEN | 00001050: 3A 4E 41 41 4D 20 5B 47 45 4C 45 45 52 44 5D 20 |:NAAM [GELEERD] | 00001060: 52 45 53 20 5B 5D 0D 20 52 55 4E 20 3A 43 4F 4D |RES []. RUN :COM| 00001070: 4D 20 50 52 49 4E 54 31 20 22 3E 0D 20 52 45 53 |M PRINT1 ">. RES| 00001080: 20 5A 45 54 56 20 3A 43 4F 4D 4D 20 50 52 4F 47 | ZETV :COMM PROG| 00001090: 20 3A 4E 41 41 4D 20 41 4E 54 57 4F 4F 52 44 0D | :NAAM ANTWOORD.| 000010A0: 45 4E 44 0D 0D 54 4F 20 41 4E 54 57 4F 4F 52 44 |END..TO ANTWOORD| 000010B0: 31 0D 20 4C 4F 4B 41 41 4C 20 22 41 20 4D 41 41 |1. LOKAAL "A MAA| 000010C0: 4B 20 22 41 20 41 4E 54 57 4F 4F 52 44 0D 20 41 |K "A ANTWOORD. A| 000010D0: 4C 53 20 4C 45 45 47 3F 20 3A 41 20 52 45 53 20 |LS LEEG? :A RES | 000010E0: 22 20 41 4E 44 45 52 53 20 52 45 53 20 45 45 52 |" ANDERS RES EER| 000010F0: 53 54 45 20 3A 41 0D 45 4E 44 0D 0D 54 4F 20 49 |STE :A.END..TO I| 00001100: 4E 20 3A 4C 49 4A 53 54 20 3A 54 45 4B 53 54 0D |N :LIJST :TEKST.| 00001110: 20 41 4C 53 20 57 4F 4F 52 44 3F 20 3A 54 45 4B | ALS WOORD? :TEK| 00001120: 53 54 20 4D 41 41 4B 20 22 54 45 4B 53 54 20 53 |ST MAAK "TEKST S| 00001130: 41 4D 45 4E 20 3A 54 45 4B 53 54 20 5B 5D 0D 20 |AMEN :TEKST []. | 00001140: 41 4C 53 20 4C 45 45 47 3F 20 3A 54 45 4B 53 54 |ALS LEEG? :TEKST| 00001150: 20 52 45 53 55 4C 54 41 41 54 20 22 57 41 41 52 | RESULTAAT "WAAR| 00001160: 0D 20 41 4C 53 20 4E 49 45 54 20 45 52 42 49 4A |. ALS NIET ERBIJ| 00001170: 3F 20 45 45 52 53 54 45 20 3A 54 45 4B 53 54 20 |? EERSTE :TEKST | 00001180: 3A 4C 49 4A 53 54 20 52 45 53 20 22 4E 49 45 54 |:LIJST RES "NIET| 00001190: 57 0D 20 52 45 53 55 4C 54 41 41 54 20 49 4E 20 |W. RESULTAAT IN | 000011A0: 3A 4C 49 4A 53 54 20 4D 45 20 3A 54 45 4B 53 54 |:LIJST ME :TEKST| 000011B0: 0D 45 4E 44 0D 0D 54 4F 20 45 45 4E 55 49 54 20 |.END..TO EENUIT | 000011C0: 3A 4C 49 4A 53 54 0D 20 52 45 53 55 4C 54 41 41 |:LIJST. RESULTAA| 000011D0: 54 20 53 41 4D 45 4E 20 5B 5D 20 45 4C 45 4D 45 |T SAMEN [] ELEME| 000011E0: 4E 54 20 28 20 31 20 2B 20 52 41 4E 44 4F 4D 20 |NT ( 1 + RANDOM | 000011F0: 41 41 4E 54 41 4C 20 3A 4C 49 4A 53 54 20 29 20 |AANTAL :LIJST ) | 00001200: 3A 4C 49 4A 53 54 0D 45 4E 44 0D 0D 54 4F 20 50 |:LIJST.END..TO P| 00001210: 45 4E 0D 20 4B 4C 20 31 0D 45 4E 44 0D 0D 54 4F |EN. KL 1.END..TO| 00001220: 20 42 4F 4F 47 4A 45 20 3A 53 54 52 41 41 4C 0D | BOOGJE :STRAAL.| 00001230: 20 48 45 52 48 41 41 4C 20 31 30 20 5B 56 54 20 | HERHAAL 10 [VT | 00001240: 33 2E 31 34 31 20 2A 20 3A 53 54 52 41 41 4C 20 |3.141 * :STRAAL | 00001250: 2F 20 32 30 20 52 45 20 39 5D 0D 45 4E 44 0D 0D |/ 20 RE 9].END..| 00001260: 54 4F 20 57 41 43 48 54 20 3A 54 49 4A 44 0D 20 |TO WACHT :TIJD. | 00001270: 48 45 52 48 41 41 4C 20 37 35 30 20 2A 20 3A 54 |HERHAAL 750 * :T| 00001280: 49 4A 44 20 5B 5D 0D 45 4E 44 0D 0D 54 4F 20 53 |IJD [].END..TO S| 00001290: 50 41 54 49 45 20 3A 41 41 4E 54 41 4C 0D 20 41 |PATIE :AANTAL. A| 000012A0: 4C 53 20 3A 41 41 4E 54 41 4C 20 3D 20 31 20 52 |LS :AANTAL = 1 R| 000012B0: 45 53 20 43 48 41 52 20 33 32 0D 20 52 45 53 20 |ES CHAR 32. RES | 000012C0: 57 4F 4F 52 44 20 43 48 41 52 20 33 32 20 53 50 |WOORD CHAR 32 SP| 000012D0: 41 54 49 45 20 3A 41 41 4E 54 41 4C 20 2D 20 31 |ATIE :AANTAL - 1| 000012E0: 0D 45 4E 44 0D 0D 54 4F 20 53 50 20 3A 41 41 4E |.END..TO SP :AAN| 000012F0: 54 41 4C 0D 20 52 45 53 55 4C 54 41 41 54 20 53 |TAL. RESULTAAT S| 00001300: 50 41 54 49 45 20 3A 41 41 4E 54 41 4C 0D 45 4E |PATIE :AANTAL.EN| 00001310: 44 0D 0D 54 4F 20 52 55 49 4D 54 45 0D 20 2E 47 |D..TO RUIMTE. .G| 00001320: 43 4F 4C 4C 20 50 52 20 2E 4E 4F 44 45 53 0D 45 |COLL PR .NODES.E| 00001330: 4E 44 0D 0D 54 4F 20 26 56 0D 20 26 26 20 22 56 |ND..TO &V. && "V| 00001340: 4F 52 4D 45 4E 0D 45 4E 44 0D 0D 54 4F 20 26 4C |ORMEN.END..TO &L| 00001350: 0D 20 26 26 20 22 4C 49 4A 53 54 45 4E 0D 45 4E |. && "LIJSTEN.EN| 00001360: 44 0D 0D 54 4F 20 26 50 0D 20 26 26 20 22 50 52 |D..TO &P. && "PR| 00001370: 49 4E 54 56 0D 45 4E 44 0D 0D 54 4F 20 26 5A 0D |INTV.END..TO &Z.| 00001380: 20 26 26 20 22 5A 45 54 54 45 4E 0D 45 4E 44 0D | && "ZETTEN.END.| 00001390: 0D 54 4F 20 26 4D 0D 20 26 26 20 22 4D 55 5A 49 |.TO &M. && "MUZI| 000013A0: 45 4B 0D 45 4E 44 0D 0D 54 4F 20 26 53 0D 20 26 |EK.END..TO &S. &| 000013B0: 26 20 22 53 50 52 4F 4B 45 4E 0D 45 4E 44 0D 0D |& "SPROKEN.END..| 000013C0: 54 4F 20 26 26 20 3A 58 0D 20 53 43 48 52 49 4A |TO && :X. SCHRIJ| 000013D0: 56 45 4E 0D 20 4D 41 41 4B 20 22 58 20 57 4F 4F |VEN. MAAK "X WOO| 000013E0: 52 44 20 22 4C 4F 47 4F 20 3A 58 0D 20 50 52 20 |RD "LOGO :X. PR | 000013F0: 53 41 4D 45 4E 20 3A 58 20 5B 57 4F 52 44 54 20 |SAMEN :X [WORDT | 00001400: 4E 55 20 47 45 4C 41 44 45 4E 5D 0D 20 4C 41 41 |NU GELADEN]. LAA| 00001410: 44 20 3A 58 0D 45 4E 44 0D 0D 4D 41 41 4B 20 22 |D :X.END..MAAK "| 00001420: 47 49 53 20 28 38 29 0D 4D 41 41 4B 20 22 46 49 |GIS (8).MAAK "FI| 00001430: 53 20 28 36 29 0D 4D 41 41 4B 20 22 44 49 53 20 |S (6).MAAK "DIS | 00001440: 28 33 29 0D 4D 41 41 4B 20 22 43 49 53 20 28 31 |(3).MAAK "CIS (1| 00001450: 29 0D 4D 41 41 4B 20 22 42 45 53 20 28 31 30 29 |).MAAK "BES (10)| 00001460: 0D 4D 41 41 4B 20 22 41 49 53 20 28 31 30 29 0D |.MAAK "AIS (10).| 00001470: 4D 41 41 4B 20 22 47 20 28 37 29 0D 4D 41 41 4B |MAAK "G (7).MAAK| 00001480: 20 22 46 20 28 35 29 0D 4D 41 41 4B 20 22 45 20 | "F (5).MAAK "E | 00001490: 28 34 29 0D 4D 41 41 4B 20 22 44 20 28 32 29 0D |(4).MAAK "D (2).| 000014A0: 4D 41 41 4B 20 22 42 20 28 31 31 29 0D 4D 41 41 |MAAK "B (11).MAA| 000014B0: 4B 20 22 4C 41 44 44 45 52 20 5B 38 37 37 39 20 |K "LADDER [8779 | 000014C0: 39 33 30 31 20 39 38 35 34 20 31 30 34 34 30 20 |9301 9854 10440 | 000014D0: 31 31 30 36 30 20 31 31 37 31 38 20 31 32 34 31 |11060 11718 1241| 000014E0: 35 20 31 33 31 35 33 20 31 33 39 33 35 20 31 34 |5 13153 13935 14| 000014F0: 37 36 34 20 31 35 37 34 32 20 31 36 35 37 32 20 |764 15742 16572 | 00001500: 31 37 35 35 37 20 31 38 36 30 31 5D 0D 4D 41 41 |17557 18601].MAA| 00001510: 4B 20 22 4F 43 54 41 41 46 20 28 31 29 0D 4D 41 |K "OCTAAF (1).MA| 00001520: 41 4B 20 22 54 45 4D 50 4F 20 28 32 30 29 0D 4D |AK "TEMPO (20).M| 00001530: 41 41 4B 20 22 4C 50 20 28 31 35 29 0D 4D 41 41 |AAK "LP (15).MAA| 00001540: 4B 20 22 48 50 20 28 31 35 29 0D 4D 41 41 4B 20 |K "HP (15).MAAK | 00001550: 22 47 4F 4C 46 20 28 31 37 29 0D 4D 41 41 4B 20 |"GOLF (17).MAAK | 00001560: 22 53 52 20 28 30 29 0D 4D 41 41 4B 20 22 41 44 |"SR (0).MAAK "AD| 00001570: 20 28 39 29 0D 4D 41 41 4B 20 22 43 20 28 30 29 | (9).MAAK "C (0)| 00001580: 0D 4D 41 41 4B 20 22 41 20 28 39 29 0D 4D 41 41 |.MAAK "A (9).MAA| 00001590: 4B 20 22 53 54 41 52 54 4F 50 20 5B 5A 45 54 4F |K "STARTOP [ZETO| 000015A0: 50 5D 0D |P]. |
T 54278 :SR. .DEPOSIT 54273 QUOTIENT :NO OT 256. .DEPOSIT 54272 BITAND :NOOT 255. .DEPOSIT 54276 :GOLF. ALS :GOLF = 65 DA N .DEPOSIT 54274 :LP .DEPOSIT 54275 :HP. HERHAAL :DUUR * :TEMPO []. .DEPOSIT 542 76 0.END..TO PIANO. MAAK "AD 12 MAAK "SR 12 MAAK "GOLF 33.END..TO XYLOFOON. MAAK "AD 24 MAAK "SR 15 MAAK "GOLF 17.END..T O BANJO. MAAK "AD 9 MAAK "SR 0 MAAK "GOL F 65 MAAK "HP 10 MAAK "LP 10.END..TO GOL F :N. MAAK "GOLF :N.END..TO FLUIT. MAAK "AD 135 MAAK "SR 15 MAAK "GOLF 17.END..T O TOON :NOOT :DUUR. LOKAAL "NT. ALS LIJS T? :NOOT MAAK "NOOT EERSTE :NOOT. ALS ( EENVAN :NOOT = "R :NOOT = "- ) DAN HERHA AL :TEMPO * :DUUR [] STOP. MAAK "NT :NOO T. ALS NIET GETAL? :NT DAN MAAK "NT TOON OCT + TOONOCT + WAARDE :NT. MAAK "NT :NT + 12 * ( 1 + :OCTAAF ). ALS :NT > 70 DA N 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] ) :DUU R :AD :SR :GOLF.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 [ GETALLEN MOETEN TUSSEN 0 EN 15]. MAAK "A D BITOR ( BITAND :ATT 15 ) * 16 ( BITAND :AD 15 ). MAAK "AD BITOR ( BITAND :DEC 15 ) ( BITAND :AD 240 ). MAAK "SR BITOR ( BITAND :SUS 15 ) * 16 ( BITAND :SR 15 ). MAAK "SR BITOR ( BITAND :REL 15 ) ( B ITAND :SR 240 ). MAAK "GOLF :GOLFVORM.EN D..TO SJJJ :DUUR. KLANK 9 5 0 0 129 TOON [C] :DUUR.END..TO GESJJJ :DUREN. ALS LE EG? :DUREN DAN STOP. SJJJ EERSTE :DUREN. GESJJJ ME :DUREN.END..TO !Z. WEG ZET WE G ZET1 WEG ZETRIJ WEG ZETWOORD WEG ZETRA ND WEG BEGIN WEG NAARPL WEG PLAATS WEG K OLOM WEG REGEL WEG !Z. .GCOLL PR .NODES. END..TO PLAATS. RESULTAAT SAMEN KOLOM RE GEL.END..TO KOLOM. RES INTEGER ( XPOS / 8 ) + 19.END..TO ZETWOORD :WOORD. PO VD NAARHOEK 90. ALS KOLOM > 37 ALS REGEL < 18 DAN NAARPL 0 REGEL + 1 ANDERS NAARPL 0 0. ALS :WOORD = " DAN STEMPEL " NAARX XPOS + 8 STOP. STEMPEL EERSTE :WOORD NAA RX XPOS + 8. ZETWOORD ME :WOORD.END..TO NAARPL :KOLOM :REGEL. LOKAAL "P MAAK "P EERSTE TOESTAND 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 ( 12.1 - YPOS / 10.4 ).END..TO ZET1 :TEKST. ALS WOORD? :TEKST DAN ZETWO ORD :TEKST NAARX XPOS - 8 KOM STOP. ALS LEEG? :TEKST DAN NAARX XPOS - 8 KOM STOP . ZETWOORD EERSTE :TEKST ZET1 ME :TEKST. END..TO ZETRIJ :N :TOETS. LOKAAL "T LOKA AL "P. MAAK "P EERSTE TOESTAND. ALS NIET GETAL? :N PRINT [GETAL EERST] STOP. ALS :N > 0 MAAK "T 1 ANDERS MAAK "T ( - 1 ) . ALS LEEG? :TOETS DAN MAAK "TOETS " AND ERS ALS LIJST? :TOETS DAN MAAK "TOETS EE RSTE EERSTE :TOETS ANDERS MAAK "TOETS EE RSTE :TOETS. PO HERHAAL :N * :T [STEMPEL :TOETS VT 8 * :T]. ALS :P DAN PN.END..T O KANTEEL. RE 90 VT 5 RE 90 VT 5 LI 90 V T 5 LI 90 VT 5.END..TO KASTEEL. NB MS PO AT 50. AT 20. RE 90 VT 80. VT 40. PN AT 170. AT 70. LI 90 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. AT 60 RE 180 HERHAAL 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. AT 5. RE 90 PN VT 5. GUM AT 5 LI 90 PEN. VT 20. AT 25. VT 25. LI 90 V T 15 LI 90 VT 25.END..TO ZETRAND. LOKAAL "X0 MAAK "X0 XPOS LOKAAL "Y0 MAAK "Y0 Y POS. PO NAARXY - 160 130 PN NAARY - 75 N AARX 159 NAARY 130 NAARX - 160. PO NAARX Y :X0 :Y0.END..TO BEGIN. PO NAARPL 0 0 M S NAARHOEK 90.END..TO ZET :TEKST. SPROOK 0 KOM ZET1 :TEKST. ALS REGEL < 18 DAN N AARPL 0 REGEL + 1 ANDERS NAARPL 0 0.END. .TO RAAM. HERHAAL 4 [RE 90 VIERKANT]. PO VT 45 PN RE 90 VT 45 HERHAAL 4 [RE 90 V T 90].END..TO DIAMANT .END..TO ACHTHOEK. HERHAAL 8 [VT 25 RE 45].END..TO VIERKAN T. HERHAAL 4 [VT 40 RE 90].END..TO &B. & & "PRINTB.END..TO !H. WEG [BEWAARP ONTHO UD PROG ANTWOORD1 IN EENUIT PEN BOOGJE W ACHT SPATIE SP RUIMTE &V &L &P &Z &M &S && &B !H].END..TO BEWAARP :BESTAND :NAME N. ( BEWAAR :BESTAND :NAMEN ). PR "BEWAA RD.END..TO ONTHOUD :NAAM. PRINT1 "> DEFI NIEER :NAAM ZETV [] PROG :NAAM ANTWOORD. END..TO PROG :NAAM :COMM. ALS :COMM = [E ND] PRINT SAMEN :NAAM [GELEERD] RES []. RUN :COMM PRINT1 ">. RES ZETV :COMM PROG :NAAM ANTWOORD.END..TO ANTWOORD1. LOKAA L "A MAAK "A ANTWOORD. ALS LEEG? :A RES " ANDERS RES EERSTE :A.END..TO IN :LIJST :TEKST. ALS WOORD? :TEKST MAAK "TEKST S AMEN :TEKST []. ALS LEEG? :TEKST RESULTA AT "WAAR. ALS NIET ERBIJ? EERSTE :TEKST :LIJST RES "NIETW. RESULTAAT IN :LIJST M E :TEKST.END..TO EENUIT :LIJST. RESULTAA T SAMEN [] ELEMENT ( 1 + RANDOM AANTAL : LIJST ) :LIJST.END..TO PEN. KL 1.END..TO BOOGJE :STRAAL. HERHAAL 10 [VT 3.141 * :STRAAL / 20 RE 9].END..TO WACHT :TIJD. HERHAAL 750 * :TIJD [].END..TO SPATIE :A ANTAL. ALS :AANTAL = 1 RES CHAR 32. RES WOORD CHAR 32 SPATIE :AANTAL - 1.END..TO SP :AANTAL. RESULTAAT SPATIE :AANTAL.EN D..TO RUIMTE. .GCOLL PR .NODES.END..TO & V. && "VORMEN.END..TO &L. && "LIJSTEN.EN D..TO &P. && "PRINTV.END..TO &Z. && "ZET TEN.END..TO &M. && "MUZIEK.END..TO &S. & & "SPROKEN.END..TO && :X. SCHRIJVEN. MAA K "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 985 4 10440 11060 11718 12415 13153 13935 14 764 15742 16572 17557 18601].MAAK "OCTAA F (1).MAAK "TEMPO (20).MAAK "LP (15).MAA K "HP (15).MAAK "GOLF (17).MAAK "SR (0). MAAK "AD (9).MAAK "C (0).MAAK "A (9).MAA K "STARTOP [ZETOP].
> CLICK IMAGE PREVIEW FOR FULL MODAL