HEI.1.LOGO
FILE INFORMATION
FILENAME(S): HEI.1.LOGO
FILE TYPE(S): DEL
FILE SIZE: 6.4K
FIRST SEEN: 2025-11-30 21:11:01
APPEARS ON: 1 disk(s)
FILE HASH
356e3a18597dffb8de971aa59b1cda8dc9cc26eacf8e5a010be66785f9ed9000
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOGO | HEI.1.LOGO | DEL | DuncanTwain | 24 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 20 4D 41 41 4B 20 22 46 20 35 0D 20 4D 41 41 |. MAAK "F 5. MAA| 00000010: 4B 20 22 47 20 37 0D 20 4D 41 41 4B 20 22 41 49 |K "G 7. MAAK "AI| 00000020: 53 20 31 30 0D 20 4D 41 41 4B 20 22 42 45 53 20 |S 10. MAAK "BES | 00000030: 31 30 0D 20 4D 41 41 4B 20 22 43 49 53 20 31 0D |10. MAAK "CIS 1.| 00000040: 20 4D 41 41 4B 20 22 44 49 53 20 33 0D 20 4D 41 | MAAK "DIS 3. MA| 00000050: 41 4B 20 22 46 49 53 20 36 0D 20 4D 41 41 4B 20 |AK "FIS 6. MAAK | 00000060: 22 47 49 53 20 38 0D 45 4E 44 0D 0D 54 4F 20 50 |"GIS 8.END..TO P| 00000070: 55 4C 53 20 3A 42 52 45 45 44 54 45 0D 20 2E 44 |ULS :BREEDTE. .D| 00000080: 45 50 4F 53 49 54 20 35 34 32 37 35 20 51 55 4F |EPOSIT 54275 QUO| 00000090: 54 49 45 4E 54 20 3A 42 52 45 45 44 54 45 20 32 |TIENT :BREEDTE 2| 000000A0: 35 36 0D 20 2E 44 45 50 4F 53 49 54 20 35 34 32 |56. .DEPOSIT 542| 000000B0: 37 34 20 42 49 54 41 4E 44 20 3A 42 52 45 45 44 |74 BITAND :BREED| 000000C0: 54 45 20 32 35 35 0D 45 4E 44 0D 0D 54 4F 20 21 |TE 255.END..TO !| 000000D0: 4D 0D 20 57 45 47 20 50 55 4C 53 20 57 45 47 20 |M. WEG PULS WEG | 000000E0: 54 4F 4F 4E 4F 43 54 20 57 45 47 20 4F 43 54 41 |TOONOCT WEG OCTA| 000000F0: 41 46 20 57 45 47 20 47 4F 4C 46 20 57 45 47 20 |AF WEG GOLF WEG | 00000100: 54 45 4D 50 4F 0D 20 57 45 47 20 5A 49 4E 47 20 |TEMPO. WEG ZING | 00000110: 57 45 47 20 53 50 45 45 4C 20 57 45 47 20 54 4F |WEG SPEEL WEG TO| 00000120: 4F 4E 20 57 45 47 20 47 45 4C 55 49 44 20 57 45 |ON WEG GELUID WE| 00000130: 47 20 4B 4C 41 4E 4B 20 57 45 47 20 5A 45 54 4F |G KLANK WEG ZETO| 00000140: 50 0D 20 57 45 47 20 50 49 41 4E 4F 20 57 45 47 |P. WEG PIANO WEG| 00000150: 20 58 59 4C 4F 46 4F 4F 4E 20 57 45 47 20 42 41 | XYLOFOON WEG BA| 00000160: 4E 4A 4F 20 57 45 47 20 46 4C 55 49 54 20 57 45 |NJO WEG FLUIT WE| 00000170: 47 20 53 4A 4A 4A 20 57 45 47 20 47 45 53 4A 4A |G SJJJ WEG GESJJ| 00000180: 4A 20 57 45 47 20 4E 41 4D 45 4E 20 57 45 47 20 |J WEG NAMEN WEG | 00000190: 21 4D 20 2E 47 43 4F 4C 4C 20 50 52 20 2E 4E 4F |!M .GCOLL PR .NO| 000001A0: 44 45 53 0D 45 4E 44 0D 0D 54 4F 20 5A 49 4E 47 |DES.END..TO ZING| 000001B0: 20 3A 4E 4F 54 45 4E 0D 20 41 4C 53 20 3A 4E 4F | :NOTEN. ALS :NO| 000001C0: 54 45 4E 20 3D 20 5B 5D 20 44 41 4E 20 53 54 4F |TEN = [] DAN STO| 000001D0: 50 0D 20 54 4F 4F 4E 20 45 45 52 53 54 45 20 3A |P. TOON EERSTE :| 000001E0: 4E 4F 54 45 4E 20 31 30 0D 20 5A 49 4E 47 20 4D |NOTEN 10. ZING M| 000001F0: 45 20 3A 4E 4F 54 45 4E 0D 45 4E 44 0D 0D 54 4F |E :NOTEN.END..TO| 00000200: 20 53 50 45 45 4C 20 3A 4E 4F 54 45 4E 20 3A 44 | SPEEL :NOTEN :D| 00000210: 55 52 45 4E 0D 20 41 4C 53 20 4C 45 45 47 3F 20 |UREN. ALS LEEG? | 00000220: 3A 4E 4F 54 45 4E 20 53 54 4F 50 0D 20 54 4F 4F |:NOTEN STOP. TOO| 00000230: 4E 20 45 45 52 53 54 45 20 3A 4E 4F 54 45 4E 20 |N EERSTE :NOTEN | 00000240: 45 45 52 53 54 45 20 3A 44 55 52 45 4E 0D 20 53 |EERSTE :DUREN. S| 00000250: 50 45 45 4C 20 4D 45 20 3A 4E 4F 54 45 4E 20 4D |PEEL ME :NOTEN M| 00000260: 45 20 3A 44 55 52 45 4E 0D 45 4E 44 0D 0D 54 4F |E :DUREN.END..TO| 00000270: 20 4F 43 54 41 41 46 20 3A 4E 0D 20 41 4C 53 20 | OCTAAF :N. ALS | 00000280: 3A 4E 20 3D 20 22 2B 20 4D 41 41 4B 20 22 4F 43 |:N = "+ MAAK "OC| 00000290: 54 41 41 46 20 3A 4F 43 54 41 41 46 20 2B 20 31 |TAAF :OCTAAF + 1| 000002A0: 20 53 54 4F 50 0D 20 41 4C 53 20 3A 4E 20 3D 20 | STOP. ALS :N = | 000002B0: 22 2D 20 4D 41 41 4B 20 22 4F 43 54 41 41 46 20 |"- MAAK "OCTAAF | 000002C0: 3A 4F 43 54 41 41 46 20 2D 20 31 20 53 54 4F 50 |:OCTAAF - 1 STOP| 000002D0: 0D 20 41 4C 53 20 45 45 4E 56 41 4E 20 3A 4E 20 |. ALS EENVAN :N | 000002E0: 3C 20 2D 20 32 20 3A 4E 20 3E 20 34 20 50 52 20 |< - 2 :N > 4 PR | 000002F0: 5B 4B 41 4E 20 4E 49 45 54 5D 0D 20 4D 41 41 4B |[KAN NIET]. MAAK| 00000300: 20 22 4F 43 54 41 41 46 20 3A 4E 0D 45 4E 44 0D | "OCTAAF :N.END.| 00000310: 0D 54 4F 20 54 4F 4F 4E 4F 43 54 0D 20 41 4C 53 |.TO TOONOCT. ALS| 00000320: 20 4C 41 41 54 53 54 45 20 3A 4E 54 20 3D 20 22 | LAATSTE :NT = "| 00000330: 2B 20 4D 41 41 4B 20 22 4E 54 20 4D 4C 20 3A 4E |+ MAAK "NT ML :N| 00000340: 54 20 52 45 53 20 31 32 0D 20 41 4C 53 20 4C 41 |T RES 12. ALS LA| 00000350: 41 54 53 54 45 20 3A 4E 54 20 3D 20 22 2D 20 4D |ATSTE :NT = "- M| 00000360: 41 41 4B 20 22 4E 54 20 4D 4C 20 3A 4E 54 20 52 |AAK "NT ML :NT R| 00000370: 45 53 20 2D 20 31 32 0D 20 52 45 53 20 30 0D 45 |ES - 12. RES 0.E| 00000380: 4E 44 0D 0D 54 4F 20 54 45 4D 50 4F 20 3A 4E 0D |ND..TO TEMPO :N.| 00000390: 20 4D 41 41 4B 20 22 54 45 4D 50 4F 20 3A 4E 0D | MAAK "TEMPO :N.| 000003A0: 45 4E 44 0D 0D 54 4F 20 47 45 4C 55 49 44 20 3A |END..TO GELUID :| 000003B0: 4E 4F 4F 54 20 3A 44 55 55 52 20 3A 41 44 20 3A |NOOT :DUUR :AD :| 000003C0: 53 52 20 3A 47 4F 4C 46 0D 20 2E 44 45 50 4F 53 |SR :GOLF. .DEPOS| 000003D0: 49 54 20 35 34 32 39 36 20 31 35 0D 20 2E 44 45 |IT 54296 15. .DE| 000003E0: 50 4F 53 49 54 20 35 34 32 37 37 20 3A 41 44 0D |POSIT 54277 :AD.| 000003F0: 20 2E 44 45 50 4F 53 49 54 20 35 34 32 37 38 20 | .DEPOSIT 54278 | 00000400: 3A 53 52 0D 20 2E 44 45 50 4F 53 49 54 20 35 34 |:SR. .DEPOSIT 54| 00000410: 32 37 33 20 51 55 4F 54 49 45 4E 54 20 3A 4E 4F |273 QUOTIENT :NO| 00000420: 4F 54 20 32 35 36 0D 20 2E 44 45 50 4F 53 49 54 |OT 256. .DEPOSIT| 00000430: 20 35 34 32 37 32 20 42 49 54 41 4E 44 20 3A 4E | 54272 BITAND :N| 00000440: 4F 4F 54 20 32 35 35 0D 20 2E 44 45 50 4F 53 49 |OOT 255. .DEPOSI| 00000450: 54 20 35 34 32 37 36 20 3A 47 4F 4C 46 0D 20 41 |T 54276 :GOLF. A| 00000460: 4C 53 20 3A 47 4F 4C 46 20 3D 20 36 35 20 44 41 |LS :GOLF = 65 DA| 00000470: 4E 20 2E 44 45 50 4F 53 49 54 20 35 34 32 37 34 |N .DEPOSIT 54274| 00000480: 20 3A 4C 50 20 2E 44 45 50 4F 53 49 54 20 35 34 | :LP .DEPOSIT 54| 00000490: 32 37 35 20 3A 48 50 0D 20 48 45 52 48 41 41 4C |275 :HP. HERHAAL| 000004A0: 20 3A 44 55 55 52 20 2A 20 3A 54 45 4D 50 4F 20 | :DUUR * :TEMPO | 000004B0: 5B 5D 0D 20 2E 44 45 50 4F 53 49 54 20 35 34 32 |[]. .DEPOSIT 542| 000004C0: 37 36 20 30 0D 45 4E 44 0D 0D 54 4F 20 50 49 41 |76 0.END..TO PIA| 000004D0: 4E 4F 0D 20 4D 41 41 4B 20 22 41 44 20 31 32 20 |NO. MAAK "AD 12 | 000004E0: 4D 41 41 4B 20 22 53 52 20 31 32 20 4D 41 41 4B |MAAK "SR 12 MAAK| 000004F0: 20 22 47 4F 4C 46 20 33 33 0D 45 4E 44 0D 0D 54 | "GOLF 33.END..T| 00000500: 4F 20 58 59 4C 4F 46 4F 4F 4E 0D 20 4D 41 41 4B |O XYLOFOON. MAAK| 00000510: 20 22 41 44 20 32 34 20 4D 41 41 4B 20 22 53 52 | "AD 24 MAAK "SR| 00000520: 20 31 35 20 4D 41 41 4B 20 22 47 4F 4C 46 20 31 | 15 MAAK "GOLF 1| 00000530: 37 0D 45 4E 44 0D 0D 54 4F 20 42 41 4E 4A 4F 0D |7.END..TO BANJO.| 00000540: 20 4D 41 41 4B 20 22 41 44 20 39 20 4D 41 41 4B | MAAK "AD 9 MAAK| 00000550: 20 22 53 52 20 30 20 4D 41 41 4B 20 22 47 4F 4C | "SR 0 MAAK "GOL| 00000560: 46 20 36 35 20 4D 41 41 4B 20 22 48 50 20 31 30 |F 65 MAAK "HP 10| 00000570: 20 4D 41 41 4B 20 22 4C 50 20 31 30 0D 45 4E 44 | MAAK "LP 10.END| 00000580: 0D 0D 54 4F 20 47 4F 4C 46 20 3A 4E 0D 20 4D 41 |..TO GOLF :N. MA| 00000590: 41 4B 20 22 47 4F 4C 46 20 3A 4E 0D 45 4E 44 0D |AK "GOLF :N.END.| 000005A0: 0D 54 4F 20 46 4C 55 49 54 0D 20 4D 41 41 4B 20 |.TO FLUIT. MAAK | 000005B0: 22 41 44 20 31 33 35 20 4D 41 41 4B 20 22 53 52 |"AD 135 MAAK "SR| 000005C0: 20 31 35 20 4D 41 41 4B 20 22 47 4F 4C 46 20 31 | 15 MAAK "GOLF 1| 000005D0: 37 0D 45 4E 44 0D 0D 54 4F 20 54 4F 4F 4E 20 3A |7.END..TO TOON :| 000005E0: 4E 4F 4F 54 20 3A 44 55 55 52 0D 20 4C 4F 4B 41 |NOOT :DUUR. LOKA| 000005F0: 41 4C 20 22 4E 54 0D 20 41 4C 53 20 4C 49 4A 53 |AL "NT. ALS LIJS| 00000600: 54 3F 20 3A 4E 4F 4F 54 20 4D 41 41 4B 20 22 4E |T? :NOOT MAAK "N| 00000610: 4F 4F 54 20 45 45 52 53 54 45 20 3A 4E 4F 4F 54 |OOT EERSTE :NOOT| 00000620: 0D 20 41 4C 53 20 28 20 45 45 4E 56 41 4E 20 3A |. ALS ( EENVAN :| 00000630: 4E 4F 4F 54 20 3D 20 22 52 20 3A 4E 4F 4F 54 20 |NOOT = "R :NOOT | 00000640: 3D 20 22 2D 20 29 20 44 41 4E 20 48 45 52 48 41 |= "- ) DAN HERHA| 00000650: 41 4C 20 3A 54 45 4D 50 4F 20 2A 20 3A 44 55 55 |AL :TEMPO * :DUU| 00000660: 52 20 5B 5D 20 53 54 4F 50 0D 20 4D 41 41 4B 20 |R [] STOP. MAAK | 00000670: 22 4E 54 20 3A 4E 4F 4F 54 0D 20 41 4C 53 20 4E |"NT :NOOT. ALS N| 00000680: 49 45 54 20 47 45 54 41 4C 3F 20 3A 4E 54 20 44 |IET GETAL? :NT D| 00000690: 41 4E 20 4D 41 41 4B 20 22 4E 54 20 54 4F 4F 4E |AN MAAK "NT TOON| 000006A0: 4F 43 54 20 2B 20 54 4F 4F 4E 4F 43 54 20 2B 20 |OCT + TOONOCT + | 000006B0: 57 41 41 52 44 45 20 3A 4E 54 0D 20 4D 41 41 4B |WAARDE :NT. MAAK| 000006C0: 20 22 4E 54 20 3A 4E 54 20 2B 20 31 32 20 2A 20 | "NT :NT + 12 * | 000006D0: 28 20 31 20 2B 20 3A 4F 43 54 41 41 46 20 29 0D |( 1 + :OCTAAF ).| 000006E0: 20 41 4C 53 20 3A 4E 54 20 3E 20 37 30 20 44 41 | ALS :NT > 70 DA| 000006F0: 4E 20 50 52 20 53 41 4D 45 4E 20 3A 4E 4F 4F 54 |N PR SAMEN :NOOT| 00000700: 20 5B 49 53 20 54 45 20 48 4F 4F 47 5D 20 53 54 | [IS TE HOOG] ST| 00000710: 4F 50 0D 20 41 4C 53 20 3A 4E 54 20 3C 20 30 20 |OP. ALS :NT < 0 | 00000720: 44 41 4E 20 50 52 20 53 41 4D 45 4E 20 3A 4E 4F |DAN PR SAMEN :NO| 00000730: 4F 54 20 5B 49 53 20 54 45 20 4C 41 41 47 5D 20 |OT [IS TE LAAG] | 00000740: 53 54 4F 50 0D 20 47 45 4C 55 49 44 20 28 20 45 |STOP. GELUID ( E| 00000750: 4C 45 4D 45 4E 54 20 31 20 2B 20 28 20 52 45 53 |LEMENT 1 + ( RES| 00000760: 54 20 3A 4E 54 20 31 32 20 29 20 3A 4C 41 44 44 |T :NT 12 ) :LADD| 00000770: 45 52 20 29 20 2A 20 28 20 45 4C 45 4D 45 4E 54 |ER ) * ( ELEMENT| 00000780: 20 31 20 2B 20 28 20 51 55 4F 54 49 45 4E 54 20 | 1 + ( QUOTIENT | 00000790: 3A 4E 54 20 31 32 20 29 20 5B 30 2E 31 32 35 20 |:NT 12 ) [0.125 | 000007A0: 30 2E 32 35 20 30 2E 35 20 31 20 32 20 34 20 38 |0.25 0.5 1 2 4 8| 000007B0: 5D 20 29 20 3A 44 55 55 52 20 3A 41 44 20 3A 53 |] ) :DUUR :AD :S| 000007C0: 52 20 3A 47 4F 4C 46 0D 45 4E 44 0D 0D 54 4F 20 |R :GOLF.END..TO | 000007D0: 4B 4C 41 4E 4B 20 3A 41 54 54 20 3A 44 45 43 20 |KLANK :ATT :DEC | 000007E0: 3A 53 55 53 20 3A 52 45 4C 20 3A 47 4F 4C 46 56 |:SUS :REL :GOLFV| 000007F0: 4F 52 4D 0D 20 41 4C 53 20 28 20 45 45 4E 56 41 |ORM. ALS ( EENVA| 00000800: 4E 20 3A 41 54 54 20 3C 20 30 20 3A 44 45 43 20 |N :ATT < 0 :DEC | 00000810: 3C 20 30 20 3A 53 55 53 20 3C 20 30 20 3A 52 45 |< 0 :SUS < 0 :RE| 00000820: 4C 20 3C 20 30 20 3A 41 54 54 20 3E 20 31 35 20 |L < 0 :ATT > 15 | 00000830: 3A 44 45 43 20 3E 20 31 35 20 3A 53 55 53 20 3E |:DEC > 15 :SUS >| 00000840: 20 31 35 20 3A 52 45 4C 20 3E 20 31 35 20 29 20 | 15 :REL > 15 ) | 00000850: 44 41 4E 20 50 52 20 5B 47 45 54 41 4C 4C 45 4E |DAN PR [GETALLEN| 00000860: 20 4D 4F 45 54 45 4E 20 54 55 53 53 45 4E 20 30 | MOETEN TUSSEN 0| 00000870: 20 45 4E 20 31 35 5D 0D 20 4D 41 41 4B 20 22 41 | EN 15]. MAAK "A| 00000880: 44 20 42 49 54 4F 52 20 28 20 42 49 54 41 4E 44 |D BITOR ( BITAND| 00000890: 20 3A 41 54 54 20 31 35 20 29 20 2A 20 31 36 20 | :ATT 15 ) * 16 | 000008A0: 28 20 42 49 54 41 4E 44 20 3A 41 44 20 31 35 20 |( BITAND :AD 15 | 000008B0: 29 0D 20 4D 41 41 4B 20 22 41 44 20 42 49 54 4F |). MAAK "AD BITO| 000008C0: 52 20 28 20 42 49 54 41 4E 44 20 3A 44 45 43 20 |R ( BITAND :DEC | 000008D0: 31 35 20 29 20 28 20 42 49 54 41 4E 44 20 3A 41 |15 ) ( BITAND :A| 000008E0: 44 20 32 34 30 20 29 0D 20 4D 41 41 4B 20 22 53 |D 240 ). MAAK "S| 000008F0: 52 20 42 49 54 4F 52 20 28 20 42 49 54 41 4E 44 |R BITOR ( BITAND| 00000900: 20 3A 53 55 53 20 31 35 20 29 20 2A 20 31 36 20 | :SUS 15 ) * 16 | 00000910: 28 20 42 49 54 41 4E 44 20 3A 53 52 20 31 35 20 |( BITAND :SR 15 | 00000920: 29 0D 20 4D 41 41 4B 20 22 53 52 20 42 49 54 4F |). MAAK "SR BITO| 00000930: 52 20 28 20 42 49 54 41 4E 44 20 3A 52 45 4C 20 |R ( BITAND :REL | 00000940: 31 35 20 29 20 28 20 42 49 54 41 4E 44 20 3A 53 |15 ) ( BITAND :S| 00000950: 52 20 32 34 30 20 29 0D 20 4D 41 41 4B 20 22 47 |R 240 ). MAAK "G| 00000960: 4F 4C 46 20 3A 47 4F 4C 46 56 4F 52 4D 0D 45 4E |OLF :GOLFVORM.EN| 00000970: 44 0D 0D 54 4F 20 53 4A 4A 4A 20 3A 44 55 55 52 |D..TO SJJJ :DUUR| 00000980: 0D 20 4B 4C 41 4E 4B 20 39 20 35 20 30 20 30 20 |. KLANK 9 5 0 0 | 00000990: 31 32 39 20 54 4F 4F 4E 20 5B 43 5D 20 3A 44 55 |129 TOON [C] :DU| 000009A0: 55 52 0D 45 4E 44 0D 0D 54 4F 20 47 45 53 4A 4A |UR.END..TO GESJJ| 000009B0: 4A 20 3A 44 55 52 45 4E 0D 20 41 4C 53 20 4C 45 |J :DUREN. ALS LE| 000009C0: 45 47 3F 20 3A 44 55 52 45 4E 20 44 41 4E 20 53 |EG? :DUREN DAN S| 000009D0: 54 4F 50 0D 20 53 4A 4A 4A 20 45 45 52 53 54 45 |TOP. SJJJ EERSTE| 000009E0: 20 3A 44 55 52 45 4E 0D 20 47 45 53 4A 4A 4A 20 | :DUREN. GESJJJ | 000009F0: 4D 45 20 3A 44 55 52 45 4E 0D 45 4E 44 0D 0D 54 |ME :DUREN.END..T| 00000A00: 4F 20 21 5A 0D 20 57 45 47 20 5A 45 54 20 57 45 |O !Z. WEG ZET WE| 00000A10: 47 20 5A 45 54 31 20 57 45 47 20 5A 45 54 52 49 |G ZET1 WEG ZETRI| 00000A20: 4A 20 57 45 47 20 5A 45 54 57 4F 4F 52 44 20 57 |J WEG ZETWOORD W| 00000A30: 45 47 20 5A 45 54 52 41 4E 44 20 57 45 47 20 42 |EG ZETRAND WEG B| 00000A40: 45 47 49 4E 20 57 45 47 20 4E 41 41 52 50 4C 20 |EGIN WEG NAARPL | 00000A50: 57 45 47 20 50 4C 41 41 54 53 20 57 45 47 20 4B |WEG PLAATS WEG K| 00000A60: 4F 4C 4F 4D 20 57 45 47 20 52 45 47 45 4C 20 57 |OLOM WEG REGEL W| 00000A70: 45 47 20 21 5A 0D 20 2E 47 43 4F 4C 4C 20 50 52 |EG !Z. .GCOLL PR| 00000A80: 20 2E 4E 4F 44 45 53 0D 45 4E 44 0D 0D 54 4F 20 | .NODES.END..TO | 00000A90: 50 4C 41 41 54 53 0D 20 52 45 53 55 4C 54 41 41 |PLAATS. RESULTAA| 00000AA0: 54 20 53 41 4D 45 4E 20 4B 4F 4C 4F 4D 20 52 45 |T SAMEN KOLOM RE| 00000AB0: 47 45 4C 0D 45 4E 44 0D 0D 54 4F 20 4B 4F 4C 4F |GEL.END..TO KOLO| 00000AC0: 4D 0D 20 52 45 53 20 49 4E 54 45 47 45 52 20 28 |M. RES INTEGER (| 00000AD0: 20 58 50 4F 53 20 2F 20 38 20 29 20 2B 20 31 39 | XPOS / 8 ) + 19| 00000AE0: 0D 45 4E 44 0D 0D 54 4F 20 5A 45 54 57 4F 4F 52 |.END..TO ZETWOOR| 00000AF0: 44 20 3A 57 4F 4F 52 44 0D 20 50 4F 20 56 44 20 |D :WOORD. PO VD | 00000B00: 4E 41 41 52 48 4F 45 4B 20 39 30 0D 20 41 4C 53 |NAARHOEK 90. ALS| 00000B10: 20 4B 4F 4C 4F 4D 20 3E 20 33 37 20 41 4C 53 20 | KOLOM > 37 ALS | 00000B20: 52 45 47 45 4C 20 3C 20 31 38 20 44 41 4E 20 4E |REGEL < 18 DAN N| 00000B30: 41 41 52 50 4C 20 30 20 52 45 47 45 4C 20 2B 20 |AARPL 0 REGEL + | 00000B40: 31 20 41 4E 44 45 52 53 20 4E 41 41 52 50 4C 20 |1 ANDERS NAARPL | 00000B50: 30 20 30 0D 20 41 4C 53 20 3A 57 4F 4F 52 44 20 |0 0. ALS :WOORD | 00000B60: 3D 20 22 20 44 41 4E 20 53 54 45 4D 50 45 4C 20 |= " DAN STEMPEL | 00000B70: 22 20 4E 41 41 52 58 20 58 50 4F 53 20 2B 20 38 |" NAARX XPOS + 8| 00000B80: 20 53 54 4F 50 0D 20 53 54 45 4D 50 45 4C 20 45 | STOP. STEMPEL E| 00000B90: 45 52 53 54 45 20 3A 57 4F 4F 52 44 20 4E 41 41 |ERSTE :WOORD NAA| 00000BA0: 52 58 20 58 50 4F 53 20 2B 20 38 0D 20 5A 45 54 |RX XPOS + 8. ZET| 00000BB0: 57 4F 4F 52 44 20 4D 45 20 3A 57 4F 4F 52 44 0D |WOORD ME :WOORD.| 00000BC0: 45 4E 44 0D 0D 54 4F 20 4E 41 41 52 50 4C 20 3A |END..TO NAARPL :| 00000BD0: 4B 4F 4C 4F 4D 20 3A 52 45 47 45 4C 0D 20 4C 4F |KOLOM :REGEL. LO| 00000BE0: 4B 41 41 4C 20 22 50 20 4D 41 41 4B 20 22 50 20 |KAAL "P MAAK "P | 00000BF0: 45 45 52 53 54 45 20 54 4F 45 53 54 41 4E 44 20 |EERSTE TOESTAND | 00000C00: 50 4F 0D 20 41 4C 53 20 28 20 45 45 4E 56 41 4E |PO. ALS ( EENVAN| 00000C10: 20 3A 52 45 47 45 4C 20 3E 20 31 38 20 3A 52 45 | :REGEL > 18 :RE| 00000C20: 47 45 4C 20 3C 20 30 20 3A 4B 4F 4C 4F 4D 20 3C |GEL < 0 :KOLOM <| 00000C30: 20 30 20 3A 4B 4F 4C 4F 4D 20 3E 20 33 38 20 29 | 0 :KOLOM > 38 )| 00000C40: 20 44 41 4E 20 50 52 49 4E 54 20 5B 42 55 49 54 | DAN PRINT [BUIT| 00000C50: 45 4E 20 52 41 4E 44 5D 20 53 54 4F 50 0D 20 4E |EN RAND] STOP. N| 00000C60: 41 41 52 58 20 28 20 3A 4B 4F 4C 4F 4D 20 2D 20 |AARX ( :KOLOM - | 00000C70: 31 39 20 29 20 2A 20 38 0D 20 4E 41 41 52 59 20 |19 ) * 8. NAARY | 00000C80: 28 20 31 32 20 2D 20 3A 52 45 47 45 4C 20 29 20 |( 12 - :REGEL ) | 00000C90: 2A 20 31 30 2E 34 0D 20 41 4C 53 20 3A 50 20 44 |* 10.4. ALS :P D| 00000CA0: 41 4E 20 50 4E 0D 45 4E 44 0D 0D 54 4F 20 52 45 |AN PN.END..TO RE| 00000CB0: 47 45 4C 0D 20 52 45 53 20 49 4E 54 45 47 45 52 |GEL. RES INTEGER| 00000CC0: 20 28 20 31 32 2E 31 20 2D 20 59 50 4F 53 20 2F | ( 12.1 - YPOS /| 00000CD0: 20 31 30 2E 34 20 29 0D 45 4E 44 0D 0D 54 4F 20 | 10.4 ).END..TO | 00000CE0: 5A 45 54 31 20 3A 54 45 4B 53 54 0D 20 41 4C 53 |ZET1 :TEKST. ALS| 00000CF0: 20 57 4F 4F 52 44 3F 20 3A 54 45 4B 53 54 20 44 | WOORD? :TEKST D| 00000D00: 41 4E 20 5A 45 54 57 4F 4F 52 44 20 3A 54 45 4B |AN ZETWOORD :TEK| 00000D10: 53 54 20 4E 41 41 52 58 20 58 50 4F 53 20 2D 20 |ST NAARX XPOS - | 00000D20: 38 20 4B 4F 4D 20 53 54 4F 50 0D 20 41 4C 53 20 |8 KOM STOP. ALS | 00000D30: 4C 45 45 47 3F 20 3A 54 45 4B 53 54 20 44 41 4E |LEEG? :TEKST DAN| 00000D40: 20 4E 41 41 52 58 20 58 50 4F 53 20 2D 20 38 20 | NAARX XPOS - 8 | 00000D50: 4B 4F 4D 20 53 54 4F 50 0D 20 5A 45 54 57 4F 4F |KOM STOP. ZETWOO| 00000D60: 52 44 20 45 45 52 53 54 45 20 3A 54 45 4B 53 54 |RD EERSTE :TEKST| 00000D70: 20 5A 45 54 31 20 4D 45 20 3A 54 45 4B 53 54 0D | ZET1 ME :TEKST.| 00000D80: 45 4E 44 0D 0D 54 4F 20 5A 45 54 52 49 4A 20 3A |END..TO ZETRIJ :| 00000D90: 4E 20 3A 54 4F 45 54 53 0D 20 4C 4F 4B 41 41 4C |N :TOETS. LOKAAL| 00000DA0: 20 22 54 20 4C 4F 4B 41 41 4C 20 22 50 0D 20 4D | "T LOKAAL "P. M| 00000DB0: 41 41 4B 20 22 50 20 45 45 52 53 54 45 20 54 4F |AAK "P EERSTE TO| 00000DC0: 45 53 54 41 4E 44 0D 20 41 4C 53 20 4E 49 45 54 |ESTAND. ALS NIET| 00000DD0: 20 47 45 54 41 4C 3F 20 3A 4E 20 50 52 49 4E 54 | GETAL? :N PRINT| 00000DE0: 20 5B 47 45 54 41 4C 20 45 45 52 53 54 5D 20 53 | [GETAL EERST] S| 00000DF0: 54 4F 50 0D 20 41 4C 53 20 3A 4E 20 3E 20 30 20 |TOP. ALS :N > 0 | 00000E00: 4D 41 41 4B 20 22 54 20 31 20 41 4E 44 45 52 53 |MAAK "T 1 ANDERS| 00000E10: 20 4D 41 41 4B 20 22 54 20 28 20 2D 20 31 20 29 | MAAK "T ( - 1 )| 00000E20: 0D 20 41 4C 53 20 4C 45 45 47 3F 20 3A 54 4F 45 |. ALS LEEG? :TOE| 00000E30: 54 53 20 44 41 4E 20 4D 41 41 4B 20 22 54 4F 45 |TS DAN MAAK "TOE| 00000E40: 54 53 20 22 20 41 4E 44 45 52 53 20 41 4C 53 20 |TS " ANDERS ALS | 00000E50: 4C 49 4A 53 54 3F 20 3A 54 4F 45 54 53 20 44 41 |LIJST? :TOETS DA| 00000E60: 4E 20 4D 41 41 4B 20 22 54 4F 45 54 53 20 45 45 |N MAAK "TOETS EE| 00000E70: 52 53 54 45 20 45 45 52 53 54 45 20 3A 54 4F 45 |RSTE EERSTE :TOE| 00000E80: 54 53 20 41 4E 44 45 52 53 20 4D 41 41 4B 20 22 |TS ANDERS MAAK "| 00000E90: 54 4F 45 54 53 20 45 45 52 53 54 45 20 3A 54 4F |TOETS EERSTE :TO| 00000EA0: 45 54 53 0D 20 50 4F 20 48 45 52 48 41 41 4C 20 |ETS. PO HERHAAL | 00000EB0: 3A 4E 20 2A 20 3A 54 20 5B 53 54 45 4D 50 45 4C |:N * :T [STEMPEL| 00000EC0: 20 3A 54 4F 45 54 53 20 56 54 20 38 20 2A 20 3A | :TOETS VT 8 * :| 00000ED0: 54 5D 0D 20 41 4C 53 20 3A 50 20 44 41 4E 20 50 |T]. ALS :P DAN P| 00000EE0: 4E 0D 45 4E 44 0D 0D 54 4F 20 4B 41 4E 54 45 45 |N.END..TO KANTEE| 00000EF0: 4C 0D 20 52 45 20 39 30 20 56 54 20 35 20 52 45 |L. RE 90 VT 5 RE| 00000F00: 20 39 30 20 56 54 20 35 20 4C 49 20 39 30 20 56 | 90 VT 5 LI 90 V| 00000F10: 54 20 35 20 4C 49 20 39 30 20 56 54 20 35 0D 45 |T 5 LI 90 VT 5.E| 00000F20: 4E 44 0D 0D 54 4F 20 4B 41 53 54 45 45 4C 0D 20 |ND..TO KASTEEL. | 00000F30: 4E 42 20 4D 53 20 50 4F 20 41 54 20 35 30 0D 20 |NB MS PO AT 50. | 00000F40: 41 54 20 32 30 0D 20 52 45 20 39 30 20 56 54 20 |AT 20. RE 90 VT | 00000F50: 38 30 0D 20 56 54 20 34 30 0D 20 50 4E 20 41 54 |80. VT 40. PN AT| 00000F60: 20 31 37 30 0D 20 41 54 20 37 30 0D 20 4C 49 20 | 170. AT 70. LI | 00000F70: 39 30 20 56 54 20 38 30 20 4C 49 20 39 30 20 56 |90 VT 80 LI 90 V| 00000F80: 54 20 31 30 20 52 45 20 39 30 20 56 54 20 32 30 |T 10 RE 90 VT 20| 00000F90: 20 48 45 52 48 41 41 4C 20 35 20 5B 4B 41 4E 54 | HERHAAL 5 [KANT| 00000FA0: 45 45 4C 5D 0D 20 52 45 20 39 30 20 56 54 20 35 |EEL]. RE 90 VT 5| 00000FB0: 20 52 45 20 39 30 20 56 54 20 32 30 20 52 45 20 | RE 90 VT 20 RE | 00000FC0: 39 30 20 56 54 20 31 30 20 4C 49 20 39 30 20 56 |90 VT 10 LI 90 V| 00000FD0: 54 20 38 30 0D 20 41 54 20 36 30 20 52 45 20 31 |T 80. AT 60 RE 1| 00000FE0: 38 30 20 48 45 52 48 41 41 4C 20 31 30 20 5B 4B |80 HERHAAL 10 [K| 00000FF0: 41 4E 54 45 45 4C 5D 0D 20 48 45 52 48 41 41 4C |ANTEEL]. HERHAAL| 00001000: 20 35 20 5B 4B 41 4E 54 45 45 4C 5D 0D 20 52 45 | 5 [KANTEEL]. RE| 00001010: 20 39 30 20 56 54 20 35 20 4C 49 20 39 30 20 41 | 90 VT 5 LI 90 A| 00001020: 54 20 36 30 20 56 54 20 38 30 0D 20 4C 49 20 39 |T 60 VT 80. LI 9| 00001030: 30 20 56 54 20 31 30 20 52 45 20 39 30 20 56 54 |0 VT 10 RE 90 VT| 00001040: 20 32 30 0D 20 48 45 52 48 41 41 4C 20 35 20 5B | 20. HERHAAL 5 [| 00001050: 4B 41 4E 54 45 45 4C 5D 20 52 45 20 39 30 20 56 |KANTEEL] RE 90 V| 00001060: 54 20 35 20 52 45 20 39 30 20 56 54 20 32 30 20 |T 5 RE 90 VT 20 | 00001070: 52 45 20 39 30 20 56 54 20 31 30 20 4C 49 20 39 |RE 90 VT 10 LI 9| 00001080: 30 20 56 54 20 38 30 0D 20 4C 49 20 39 30 20 47 |0 VT 80. LI 90 G| 00001090: 55 4D 20 56 54 20 32 30 20 50 45 4E 20 50 4F 20 |UM VT 20 PEN PO | 000010A0: 4E 42 0D 20 41 54 20 36 30 0D 20 41 54 20 35 0D |NB. AT 60. AT 5.| 000010B0: 20 52 45 20 39 30 20 50 4E 20 56 54 20 35 0D 20 | RE 90 PN VT 5. | 000010C0: 47 55 4D 20 41 54 20 35 20 4C 49 20 39 30 20 50 |GUM AT 5 LI 90 P| 000010D0: 45 4E 0D 20 56 54 20 32 30 0D 20 41 54 20 32 35 |EN. VT 20. AT 25| 000010E0: 0D 20 56 54 20 32 35 0D 20 4C 49 20 39 30 20 56 |. VT 25. LI 90 V| 000010F0: 54 20 31 35 20 4C 49 20 39 30 20 56 54 20 32 35 |T 15 LI 90 VT 25| 00001100: 0D 45 4E 44 0D 0D 54 4F 20 5A 45 54 52 41 4E 44 |.END..TO ZETRAND| 00001110: 0D 20 4C 4F 4B 41 41 4C 20 22 58 30 20 4D 41 41 |. LOKAAL "X0 MAA| 00001120: 4B 20 22 58 30 20 58 50 4F 53 20 4C 4F 4B 41 41 |K "X0 XPOS LOKAA| 00001130: 4C 20 22 59 30 20 4D 41 41 4B 20 22 59 30 20 59 |L "Y0 MAAK "Y0 Y| 00001140: 50 4F 53 0D 20 50 4F 20 4E 41 41 52 58 59 20 2D |POS. PO NAARXY -| 00001150: 20 31 36 30 20 31 33 30 20 50 4E 20 4E 41 41 52 | 160 130 PN NAAR| 00001160: 59 20 2D 20 37 35 20 4E 41 41 52 58 20 31 35 39 |Y - 75 NAARX 159| 00001170: 20 4E 41 41 52 59 20 31 33 30 20 4E 41 41 52 58 | NAARY 130 NAARX| 00001180: 20 2D 20 31 36 30 0D 20 50 4F 20 4E 41 41 52 58 | - 160. PO NAARX| 00001190: 59 20 3A 58 30 20 3A 59 30 0D 45 4E 44 0D 0D 54 |Y :X0 :Y0.END..T| 000011A0: 4F 20 42 45 47 49 4E 0D 20 50 4F 20 4E 41 41 52 |O BEGIN. PO NAAR| 000011B0: 50 4C 20 30 20 30 20 4D 53 20 4E 41 41 52 48 4F |PL 0 0 MS NAARHO| 000011C0: 45 4B 20 39 30 0D 45 4E 44 0D 0D 54 4F 20 5A 45 |EK 90.END..TO ZE| 000011D0: 54 20 3A 54 45 4B 53 54 0D 20 53 50 52 4F 4F 4B |T :TEKST. SPROOK| 000011E0: 20 30 20 4B 4F 4D 20 5A 45 54 31 20 3A 54 45 4B | 0 KOM ZET1 :TEK| 000011F0: 53 54 0D 20 41 4C 53 20 52 45 47 45 4C 20 3C 20 |ST. ALS REGEL < | 00001200: 31 38 20 44 41 4E 20 4E 41 41 52 50 4C 20 30 20 |18 DAN NAARPL 0 | 00001210: 52 45 47 45 4C 20 2B 20 31 20 41 4E 44 45 52 53 |REGEL + 1 ANDERS| 00001220: 20 4E 41 41 52 50 4C 20 30 20 30 0D 45 4E 44 0D | NAARPL 0 0.END.| 00001230: 0D 54 4F 20 52 41 41 4D 0D 20 48 45 52 48 41 41 |.TO RAAM. HERHAA| 00001240: 4C 20 34 20 5B 52 45 20 39 30 20 56 49 45 52 4B |L 4 [RE 90 VIERK| 00001250: 41 4E 54 5D 0D 20 50 4F 20 56 54 20 34 35 20 50 |ANT]. PO VT 45 P| 00001260: 4E 20 52 45 20 39 30 20 56 54 20 34 35 20 48 45 |N RE 90 VT 45 HE| 00001270: 52 48 41 41 4C 20 34 20 5B 52 45 20 39 30 20 56 |RHAAL 4 [RE 90 V| 00001280: 54 20 39 30 5D 0D 45 4E 44 0D 0D 54 4F 20 44 49 |T 90].END..TO DI| 00001290: 41 4D 41 4E 54 20 0D 45 4E 44 0D 0D 54 4F 20 41 |AMANT .END..TO A| 000012A0: 43 48 54 48 4F 45 4B 0D 20 48 45 52 48 41 41 4C |CHTHOEK. HERHAAL| 000012B0: 20 38 20 5B 56 54 20 32 35 20 52 45 20 34 35 5D | 8 [VT 25 RE 45]| 000012C0: 0D 45 4E 44 0D 0D 54 4F 20 56 49 45 52 4B 41 4E |.END..TO VIERKAN| 000012D0: 54 0D 20 48 45 52 48 41 41 4C 20 34 20 5B 56 54 |T. HERHAAL 4 [VT| 000012E0: 20 34 30 20 52 45 20 39 30 5D 0D 45 4E 44 0D 0D | 40 RE 90].END..| 000012F0: 54 4F 20 26 42 0D 20 26 26 20 22 50 52 49 4E 54 |TO &B. && "PRINT| 00001300: 42 0D 45 4E 44 0D 0D 54 4F 20 21 48 0D 20 57 45 |B.END..TO !H. WE| 00001310: 47 20 5B 42 45 57 41 41 52 50 20 4F 4E 54 48 4F |G [BEWAARP ONTHO| 00001320: 55 44 20 50 52 4F 47 20 41 4E 54 57 4F 4F 52 44 |UD PROG ANTWOORD| 00001330: 31 20 49 4E 20 45 45 4E 55 49 54 20 50 45 4E 20 |1 IN EENUIT PEN | 00001340: 42 4F 4F 47 4A 45 20 57 41 43 48 54 20 53 50 41 |BOOGJE WACHT SPA| 00001350: 54 49 45 20 53 50 20 52 55 49 4D 54 45 20 26 56 |TIE SP RUIMTE &V| 00001360: 20 26 4C 20 26 50 20 26 5A 20 26 4D 20 26 53 20 | &L &P &Z &M &S | 00001370: 26 26 20 26 42 20 21 48 5D 0D 45 4E 44 0D 0D 54 |&& &B !H].END..T| 00001380: 4F 20 42 45 57 41 41 52 50 20 3A 42 45 53 54 41 |O BEWAARP :BESTA| 00001390: 4E 44 20 3A 4E 41 4D 45 4E 0D 20 28 20 42 45 57 |ND :NAMEN. ( BEW| 000013A0: 41 41 52 20 3A 42 45 53 54 41 4E 44 20 3A 4E 41 |AAR :BESTAND :NA| 000013B0: 4D 45 4E 20 29 0D 20 50 52 20 22 42 45 57 41 41 |MEN ). PR "BEWAA| 000013C0: 52 44 0D 45 4E 44 0D 0D 54 4F 20 4F 4E 54 48 4F |RD.END..TO ONTHO| 000013D0: 55 44 20 3A 4E 41 41 4D 0D 20 50 52 49 4E 54 31 |UD :NAAM. PRINT1| 000013E0: 20 22 3E 20 44 45 46 49 4E 49 45 45 52 20 3A 4E | "> DEFINIEER :N| 000013F0: 41 41 4D 20 5A 45 54 56 20 5B 5D 20 50 52 4F 47 |AAM ZETV [] PROG| 00001400: 20 3A 4E 41 41 4D 20 41 4E 54 57 4F 4F 52 44 0D | :NAAM ANTWOORD.| 00001410: 45 4E 44 0D 0D 54 4F 20 50 52 4F 47 20 3A 4E 41 |END..TO PROG :NA| 00001420: 41 4D 20 3A 43 4F 4D 4D 0D 20 41 4C 53 20 3A 43 |AM :COMM. ALS :C| 00001430: 4F 4D 4D 20 3D 20 5B 45 4E 44 5D 20 50 52 49 4E |OMM = [END] PRIN| 00001440: 54 20 53 41 4D 45 4E 20 3A 4E 41 41 4D 20 5B 47 |T SAMEN :NAAM [G| 00001450: 45 4C 45 45 52 44 5D 20 52 45 53 20 5B 5D 0D 20 |ELEERD] RES []. | 00001460: 52 55 4E 20 3A 43 4F 4D 4D 20 50 52 49 4E 54 31 |RUN :COMM PRINT1| 00001470: 20 22 3E 0D 20 52 45 53 20 5A 45 54 56 20 3A 43 | ">. RES ZETV :C| 00001480: 4F 4D 4D 20 50 52 4F 47 20 3A 4E 41 41 4D 20 41 |OMM PROG :NAAM A| 00001490: 4E 54 57 4F 4F 52 44 0D 45 4E 44 0D 0D 54 4F 20 |NTWOORD.END..TO | 000014A0: 41 4E 54 57 4F 4F 52 44 31 0D 20 4C 4F 4B 41 41 |ANTWOORD1. LOKAA| 000014B0: 4C 20 22 41 20 4D 41 41 4B 20 22 41 20 41 4E 54 |L "A MAAK "A ANT| 000014C0: 57 4F 4F 52 44 0D 20 41 4C 53 20 4C 45 45 47 3F |WOORD. ALS LEEG?| 000014D0: 20 3A 41 20 52 45 53 20 22 20 41 4E 44 45 52 53 | :A RES " ANDERS| 000014E0: 20 52 45 53 20 45 45 52 53 54 45 20 3A 41 0D 45 | RES EERSTE :A.E| 000014F0: 4E 44 0D 0D 54 4F 20 49 4E 20 3A 4C 49 4A 53 54 |ND..TO IN :LIJST| 00001500: 20 3A 54 45 4B 53 54 0D 20 41 4C 53 20 57 4F 4F | :TEKST. ALS WOO| 00001510: 52 44 3F 20 3A 54 45 4B 53 54 20 4D 41 41 4B 20 |RD? :TEKST MAAK | 00001520: 22 54 45 4B 53 54 20 53 41 4D 45 4E 20 3A 54 45 |"TEKST SAMEN :TE| 00001530: 4B 53 54 20 5B 5D 0D 20 41 4C 53 20 4C 45 45 47 |KST []. ALS LEEG| 00001540: 3F 20 3A 54 45 4B 53 54 20 52 45 53 55 4C 54 41 |? :TEKST RESULTA| 00001550: 41 54 20 22 57 41 41 52 0D 20 41 4C 53 20 4E 49 |AT "WAAR. ALS NI| 00001560: 45 54 20 45 52 42 49 4A 3F 20 45 45 52 53 54 45 |ET ERBIJ? EERSTE| 00001570: 20 3A 54 45 4B 53 54 20 3A 4C 49 4A 53 54 20 52 | :TEKST :LIJST R| 00001580: 45 53 20 22 4E 49 45 54 57 0D 20 52 45 53 55 4C |ES "NIETW. RESUL| 00001590: 54 41 41 54 20 49 4E 20 3A 4C 49 4A 53 54 20 4D |TAAT IN :LIJST M| 000015A0: 45 20 3A 54 45 4B 53 54 0D 45 4E 44 0D 0D 54 4F |E :TEKST.END..TO| 000015B0: 20 45 45 4E 55 49 54 20 3A 4C 49 4A 53 54 0D 20 | EENUIT :LIJST. | 000015C0: 52 45 53 55 4C 54 41 41 54 20 53 41 4D 45 4E 20 |RESULTAAT SAMEN | 000015D0: 5B 5D 20 45 4C 45 4D 45 4E 54 20 28 20 31 20 2B |[] ELEMENT ( 1 +| 000015E0: 20 52 41 4E 44 4F 4D 20 41 41 4E 54 41 4C 20 3A | RANDOM AANTAL :| 000015F0: 4C 49 4A 53 54 20 29 20 3A 4C 49 4A 53 54 0D 45 |LIJST ) :LIJST.E| 00001600: 4E 44 0D 0D 54 4F 20 50 45 4E 0D 20 4B 4C 20 31 |ND..TO PEN. KL 1| 00001610: 0D 45 4E 44 0D 0D 54 4F 20 42 4F 4F 47 4A 45 20 |.END..TO BOOGJE | 00001620: 3A 53 54 52 41 41 4C 0D 20 48 45 52 48 41 41 4C |:STRAAL. HERHAAL| 00001630: 20 31 30 20 5B 56 54 20 33 2E 31 34 31 20 2A 20 | 10 [VT 3.141 * | 00001640: 3A 53 54 52 41 41 4C 20 2F 20 32 30 20 52 45 20 |:STRAAL / 20 RE | 00001650: 39 5D 0D 45 4E 44 0D 0D 54 4F 20 57 41 43 48 54 |9].END..TO WACHT| 00001660: 20 3A 54 49 4A 44 0D 20 48 45 52 48 41 41 4C 20 | :TIJD. HERHAAL | 00001670: 37 35 30 20 2A 20 3A 54 49 4A 44 20 5B 5D 0D 45 |750 * :TIJD [].E| 00001680: 4E 44 0D 0D 54 4F 20 53 50 41 54 49 45 20 3A 41 |ND..TO SPATIE :A| 00001690: 41 4E 54 41 4C 0D 20 41 4C 53 20 3A 41 41 4E 54 |ANTAL. ALS :AANT| 000016A0: 41 4C 20 3D 20 31 20 52 45 53 20 43 48 41 52 20 |AL = 1 RES CHAR | 000016B0: 33 32 0D 20 52 45 53 20 57 4F 4F 52 44 20 43 48 |32. RES WOORD CH| 000016C0: 41 52 20 33 32 20 53 50 41 54 49 45 20 3A 41 41 |AR 32 SPATIE :AA| 000016D0: 4E 54 41 4C 20 2D 20 31 0D 45 4E 44 0D 0D 54 4F |NTAL - 1.END..TO| 000016E0: 20 53 50 20 3A 41 41 4E 54 41 4C 0D 20 52 45 53 | SP :AANTAL. RES| 000016F0: 55 4C 54 41 41 54 20 53 50 41 54 49 45 20 3A 41 |ULTAAT SPATIE :A| 00001700: 41 4E 54 41 4C 0D 45 4E 44 0D 0D 54 4F 20 52 55 |ANTAL.END..TO RU| 00001710: 49 4D 54 45 0D 20 2E 47 43 4F 4C 4C 20 50 52 20 |IMTE. .GCOLL PR | 00001720: 2E 4E 4F 44 45 53 0D 45 4E 44 0D 0D 54 4F 20 26 |.NODES.END..TO &| 00001730: 56 0D 20 26 26 20 22 56 4F 52 4D 45 4E 0D 45 4E |V. && "VORMEN.EN| 00001740: 44 0D 0D 54 4F 20 26 4C 0D 20 26 26 20 22 4C 49 |D..TO &L. && "LI| 00001750: 4A 53 54 45 4E 0D 45 4E 44 0D 0D 54 4F 20 26 50 |JSTEN.END..TO &P| 00001760: 0D 20 26 26 20 22 50 52 49 4E 54 56 0D 45 4E 44 |. && "PRINTV.END| 00001770: 0D 0D 54 4F 20 26 5A 0D 20 26 26 20 22 5A 45 54 |..TO &Z. && "ZET| 00001780: 54 45 4E 0D 45 4E 44 0D 0D 54 4F 20 26 4D 0D 20 |TEN.END..TO &M. | 00001790: 26 26 20 22 4D 55 5A 49 45 4B 0D 45 4E 44 0D 0D |&& "MUZIEK.END..| 000017A0: 54 4F 20 26 53 0D 20 26 26 20 22 53 50 52 4F 4B |TO &S. && "SPROK| 000017B0: 45 4E 0D 45 4E 44 0D 0D 54 4F 20 26 26 20 3A 58 |EN.END..TO && :X| 000017C0: 0D 20 53 43 48 52 49 4A 56 45 4E 0D 20 4D 41 41 |. SCHRIJVEN. MAA| 000017D0: 4B 20 22 58 20 57 4F 4F 52 44 20 22 4C 4F 47 4F |K "X WOORD "LOGO| 000017E0: 20 3A 58 0D 20 50 52 20 53 41 4D 45 4E 20 3A 58 | :X. PR SAMEN :X| 000017F0: 20 5B 57 4F 52 44 54 20 4E 55 20 47 45 4C 41 44 | [WORDT NU GELAD| 00001800: 45 4E 5D 0D 20 4C 41 41 44 20 3A 58 0D 45 4E 44 |EN]. LAAD :X.END| 00001810: 0D 0D 4D 41 41 4B 20 22 47 49 53 20 28 38 29 0D |..MAAK "GIS (8).| 00001820: 4D 41 41 4B 20 22 46 49 53 20 28 36 29 0D 4D 41 |MAAK "FIS (6).MA| 00001830: 41 4B 20 22 44 49 53 20 28 33 29 0D 4D 41 41 4B |AK "DIS (3).MAAK| 00001840: 20 22 43 49 53 20 28 31 29 0D 4D 41 41 4B 20 22 | "CIS (1).MAAK "| 00001850: 42 45 53 20 28 31 30 29 0D 4D 41 41 4B 20 22 41 |BES (10).MAAK "A| 00001860: 49 53 20 28 31 30 29 0D 4D 41 41 4B 20 22 47 20 |IS (10).MAAK "G | 00001870: 28 37 29 0D 4D 41 41 4B 20 22 46 20 28 35 29 0D |(7).MAAK "F (5).| 00001880: 4D 41 41 4B 20 22 45 20 28 34 29 0D 4D 41 41 4B |MAAK "E (4).MAAK| 00001890: 20 22 44 20 28 32 29 0D 4D 41 41 4B 20 22 42 20 | "D (2).MAAK "B | 000018A0: 28 31 31 29 0D 4D 41 41 4B 20 22 4C 41 44 44 45 |(11).MAAK "LADDE| 000018B0: 52 20 5B 38 37 37 39 20 39 33 30 31 20 39 38 35 |R [8779 9301 985| 000018C0: 34 20 31 30 34 34 30 20 31 31 30 36 30 20 31 31 |4 10440 11060 11| 000018D0: 37 31 38 20 31 32 34 31 35 20 31 33 31 35 33 20 |718 12415 13153 | 000018E0: 31 33 39 33 35 20 31 34 37 36 34 20 31 35 37 34 |13935 14764 1574| 000018F0: 32 20 31 36 35 37 32 20 31 37 35 35 37 20 31 38 |2 16572 17557 18| 00001900: 36 30 31 5D 0D 4D 41 41 4B 20 22 4F 43 54 41 41 |601].MAAK "OCTAA| 00001910: 46 20 28 31 29 0D 4D 41 41 4B 20 22 54 45 4D 50 |F (1).MAAK "TEMP| 00001920: 4F 20 28 32 30 29 0D 4D 41 41 4B 20 22 4C 50 20 |O (20).MAAK "LP | 00001930: 28 31 35 29 0D 4D 41 41 4B 20 22 48 50 20 28 31 |(15).MAAK "HP (1| 00001940: 35 29 0D 4D 41 41 4B 20 22 47 4F 4C 46 20 28 31 |5).MAAK "GOLF (1| 00001950: 37 29 0D 4D 41 41 4B 20 22 53 52 20 28 30 29 0D |7).MAAK "SR (0).| 00001960: 4D 41 41 4B 20 22 41 44 20 28 39 29 0D 4D 41 41 |MAAK "AD (9).MAA| 00001970: 4B 20 22 43 20 28 30 29 0D 4D 41 41 4B 20 22 41 |K "C (0).MAAK "A| 00001980: 20 28 39 29 0D 4D 41 41 4B 20 22 53 54 41 52 54 | (9).MAAK "START| 00001990: 4F 50 20 5B 5A 45 54 4F 50 5D 0D |OP [ZETOP]. |
. MAAK "F 5. MAAK "G 7. MAAK "AIS 10. MA AK "BES 10. MAAK "CIS 1. MAAK "DIS 3. MA AK "FIS 6. MAAK "GIS 8.END..TO PULS :BRE EDTE. .DEPOSIT 54275 QUOTIENT :BREEDTE 2 56. .DEPOSIT 54274 BITAND :BREEDTE 255.E ND..TO !M. WEG PULS WEG TOONOCT WEG OCTA AF WEG GOLF WEG TEMPO. WEG ZING WEG SPEE L WEG TOON WEG GELUID WEG KLANK WEG ZETO P. WEG PIANO WEG XYLOFOON WEG BANJO WEG FLUIT WEG SJJJ WEG GESJJJ WEG NAMEN WEG !M .GCOLL PR .NODES.END..TO ZING :NOTEN. ALS :NOTEN = [] DAN STOP. TOON EERSTE : NOTEN 10. ZING ME :NOTEN.END..TO SPEEL : NOTEN :DUREN. ALS LEEG? :NOTEN STOP. TOO N EERSTE :NOTEN EERSTE :DUREN. SPEEL ME :NOTEN ME :DUREN.END..TO OCTAAF :N. ALS :N = "+ MAAK "OCTAAF :OCTAAF + 1 STOP. A LS :N = "- MAAK "OCTAAF :OCTAAF - 1 STOP . ALS EENVAN :N < - 2 :N > 4 PR [KAN NIE T]. MAAK "OCTAAF :N.END..TO TOONOCT. ALS LAATSTE :NT = "+ MAAK "NT ML :NT RES 12 . ALS LAATSTE :NT = "- MAAK "NT ML :NT R ES - 12. RES 0.END..TO TEMPO :N. MAAK "T EMPO :N.END..TO GELUID :NOOT :DUUR :AD : SR :GOLF. .DEPOSIT 54296 15. .DEPOSIT 54 277 :AD. .DEPOSIT 54278 :SR. .DEPOSIT 54 273 QUOTIENT :NOOT 256. .DEPOSIT 54272 B ITAND :NOOT 255. .DEPOSIT 54276 :GOLF. A LS :GOLF = 65 DAN .DEPOSIT 54274 :LP .DE POSIT 54275 :HP. HERHAAL :DUUR * :TEMPO []. .DEPOSIT 54276 0.END..TO PIANO. MAAK "AD 12 MAAK "SR 12 MAAK "GOLF 33.END..T O XYLOFOON. MAAK "AD 24 MAAK "SR 15 MAAK "GOLF 17.END..TO BANJO. MAAK "AD 9 MAAK "SR 0 MAAK "GOLF 65 MAAK "HP 10 MAAK "L P 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. 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 KLANK :ATT :DEC :SUS :REL :GOLFVORM. ALS ( EENVAN :ATT < 0 :DEC < 0 :SUS < 0 :RE L < 0 :ATT > 15 :DEC > 15 :SUS > 15 :REL > 15 ) DAN PR [GETALLEN MOETEN TUSSEN 0 EN 15]. MAAK "AD BITOR ( BITAND :ATT 15 ) * 16 ( BITAND :AD 15 ). MAAK "AD BITO R ( BITAND :DEC 15 ) ( BITAND :AD 240 ). MAAK "SR BITOR ( BITAND :SUS 15 ) * 16 ( BITAND :SR 15 ). MAAK "SR BITOR ( BITA ND :REL 15 ) ( BITAND :SR 240 ). MAAK "G OLF :GOLFVORM.END..TO SJJJ :DUUR. KLANK 9 5 0 0 129 TOON [C] :DUUR.END..TO GESJJ J :DUREN. ALS LEEG? :DUREN DAN STOP. SJJ J EERSTE :DUREN. GESJJJ ME :DUREN.END..T O !Z. WEG ZET WEG ZET1 WEG ZETRIJ WEG ZE TWOORD WEG ZETRAND WEG BEGIN WEG NAARPL WEG PLAATS WEG KOLOM WEG REGEL WEG !Z. . GCOLL PR .NODES.END..TO PLAATS. RESULTAA T SAMEN KOLOM REGEL.END..TO KOLOM. RES I NTEGER ( XPOS / 8 ) + 19.END..TO ZETWOOR D :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 E ERSTE :WOORD NAARX XPOS + 8. ZETWOORD ME :WOORD.END..TO NAARPL :KOLOM :REGEL. LO KAAL "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.EN D..TO REGEL. RES INTEGER ( 12.1 - YPOS / 10.4 ).END..TO ZET1 :TEKST. ALS WOORD? :TEKST DAN ZETWOORD :TEKST NAARX XPOS - 8 KOM STOP. ALS LEEG? :TEKST DAN NAARX X POS - 8 KOM STOP. ZETWOORD EERSTE :TEKST ZET1 ME :TEKST.END..TO ZETRIJ :N :TOETS . LOKAAL "T LOKAAL "P. MAAK "P EERSTE TO ESTAND. ALS NIET GETAL? :N PRINT [GETAL EERST] STOP. ALS :N > 0 MAAK "T 1 ANDERS MAAK "T ( - 1 ). ALS LEEG? :TOETS DAN M AAK "TOETS " ANDERS ALS LIJST? :TOETS DA N MAAK "TOETS EERSTE EERSTE :TOETS ANDER S MAAK "TOETS EERSTE :TOETS. PO HERHAAL :N * :T [STEMPEL :TOETS VT 8 * :T]. ALS :P DAN PN.END..TO KANTEEL. RE 90 VT 5 RE 90 VT 5 LI 90 VT 5 LI 90 VT 5.END..TO K ASTEEL. 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 [KANT EEL]. RE 90 VT 5 RE 90 VT 20 RE 90 VT 10 LI 90 VT 80. AT 60 RE 180 HERHAAL 10 [K ANTEEL]. 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 9 0 VT 20 RE 90 VT 10 LI 90 VT 80. LI 90 G UM VT 20 PEN PO NB. AT 60. AT 5. RE 90 P N VT 5. GUM AT 5 LI 90 PEN. VT 20. AT 25 . VT 25. LI 90 VT 15 LI 90 VT 25.END..TO ZETRAND. LOKAAL "X0 MAAK "X0 XPOS LOKAA L "Y0 MAAK "Y0 YPOS. PO NAARXY - 160 130 PN NAARY - 75 NAARX 159 NAARY 130 NAARX - 160. PO NAARXY :X0 :Y0.END..TO BEGIN. PO NAARPL 0 0 MS NAARHOEK 90.END..TO ZE T :TEKST. SPROOK 0 KOM ZET1 :TEKST. ALS REGEL < 18 DAN NAARPL 0 REGEL + 1 ANDERS NAARPL 0 0.END..TO RAAM. HERHAAL 4 [RE 90 VIERKANT]. PO VT 45 PN RE 90 VT 45 HE RHAAL 4 [RE 90 VT 90].END..TO DIAMANT .E ND..TO ACHTHOEK. HERHAAL 8 [VT 25 RE 45] .END..TO VIERKANT. HERHAAL 4 [VT 40 RE 9 0].END..TO &B. && "PRINTB.END..TO !H. WE G [BEWAARP ONTHOUD PROG ANTWOORD1 IN EEN UIT PEN BOOGJE WACHT SPATIE SP RUIMTE &V &L &P &Z &M &S && &B !H].END..TO BEWAAR P :BESTAND :NAMEN. ( BEWAAR :BESTAND :NA MEN ). PR "BEWAARD.END..TO ONTHOUD :NAAM . PRINT1 "> DEFINIEER :NAAM ZETV [] PROG :NAAM ANTWOORD.END..TO PROG :NAAM :COMM . ALS :COMM = [END] PRINT SAMEN :NAAM [G ELEERD] RES []. RUN :COMM PRINT1 ">. RES ZETV :COMM PROG :NAAM ANTWOORD.END..TO ANTWOORD1. LOKAAL "A MAAK "A ANTWOORD. A LS LEEG? :A RES " ANDERS RES EERSTE :A.E ND..TO IN :LIJST :TEKST. ALS WOORD? :TEK ST MAAK "TEKST SAMEN :TEKST []. ALS LEEG ? :TEKST RESULTAAT "WAAR. ALS NIET ERBIJ ? EERSTE :TEKST :LIJST RES "NIETW. RESUL TAAT IN :LIJST ME :TEKST.END..TO EENUIT :LIJST. RESULTAAT SAMEN [] ELEMENT ( 1 + RANDOM AANTAL :LIJST ) :LIJST.END..TO P EN. KL 1.END..TO BOOGJE :STRAAL. HERHAAL 10 [VT 3.141 * :STRAAL / 20 RE 9].END.. TO WACHT :TIJD. HERHAAL 750 * :TIJD [].E ND..TO SPATIE :AANTAL. ALS :AANTAL = 1 R ES CHAR 32. RES WOORD CHAR 32 SPATIE :AA NTAL - 1.END..TO SP :AANTAL. RESULTAAT S PATIE :AANTAL.END..TO RUIMTE. .GCOLL PR .NODES.END..TO &V. && "VORMEN.END..TO &L . && "LIJSTEN.END..TO &P. && "PRINTV.END ..TO &Z. && "ZETTEN.END..TO &M. && "MUZI EK.END..TO &S. && "SPROKEN.END..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 "A IS (10).MAAK "G (7).MAAK "F (5).MAAK "E (4).MAAK "D (2).MAAK "B (11).MAAK "LADDE R [8779 9301 9854 10440 11060 11718 1241 5 13153 13935 14764 15742 16572 17557 18 601].MAAK "OCTAAF (1).MAAK "TEMPO (20).M AAK "LP (15).MAAK "HP (15).MAAK "GOLF (1 7).MAAK "SR (0).MAAK "AD (9).MAAK "C (0) .MAAK "A (9).MAAK "STARTOP [ZETOP].
> CLICK IMAGE PREVIEW FOR FULL MODAL