FRA.1.LOGO
FILE INFORMATION
FILENAME(S): FRA.1.LOGO
FILE TYPE(S): DEL
FILE SIZE: 4.9K
FIRST SEEN: 2025-11-30 21:11:01
APPEARS ON: 1 disk(s)
FILE HASH
8bc3683a77b51f9d7d1c328bcb33af03fa30acbd0c6048fcd3bc6deed050d154
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOGO | FRA.1.LOGO | DEL | DuncanTwain | 24 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 4E 54 0D 20 41 4C 53 20 4C 49 4A 53 54 3F 20 3A |NT. ALS LIJST? :| 00000010: 4E 4F 4F 54 20 4D 41 41 4B 20 22 4E 4F 4F 54 20 |NOOT MAAK "NOOT | 00000020: 45 45 52 53 54 45 20 3A 4E 4F 4F 54 0D 20 41 4C |EERSTE :NOOT. AL| 00000030: 53 20 28 20 45 45 4E 56 41 4E 20 3A 4E 4F 4F 54 |S ( EENVAN :NOOT| 00000040: 20 3D 20 22 52 20 3A 4E 4F 4F 54 20 3D 20 22 2D | = "R :NOOT = "-| 00000050: 20 29 20 44 41 4E 20 48 45 52 48 41 41 4C 20 3A | ) DAN HERHAAL :| 00000060: 54 45 4D 50 4F 20 2A 20 3A 44 55 55 52 20 5B 5D |TEMPO * :DUUR []| 00000070: 20 53 54 4F 50 0D 20 4D 41 41 4B 20 22 4E 54 20 | STOP. MAAK "NT | 00000080: 3A 4E 4F 4F 54 0D 20 41 4C 53 20 4E 49 45 54 20 |:NOOT. ALS NIET | 00000090: 47 45 54 41 4C 3F 20 3A 4E 54 20 44 41 4E 20 4D |GETAL? :NT DAN M| 000000A0: 41 41 4B 20 22 4E 54 20 54 4F 4F 4E 4F 43 54 20 |AAK "NT TOONOCT | 000000B0: 2B 20 54 4F 4F 4E 4F 43 54 20 2B 20 57 41 41 52 |+ TOONOCT + WAAR| 000000C0: 44 45 20 3A 4E 54 0D 20 4D 41 41 4B 20 22 4E 54 |DE :NT. MAAK "NT| 000000D0: 20 3A 4E 54 20 2B 20 31 32 20 2A 20 28 20 31 20 | :NT + 12 * ( 1 | 000000E0: 2B 20 3A 4F 43 54 41 41 46 20 29 0D 20 41 4C 53 |+ :OCTAAF ). ALS| 000000F0: 20 3A 4E 54 20 3E 20 37 30 20 44 41 4E 20 50 52 | :NT > 70 DAN PR| 00000100: 20 53 41 4D 45 4E 20 3A 4E 4F 4F 54 20 5B 49 53 | SAMEN :NOOT [IS| 00000110: 20 54 45 20 48 4F 4F 47 5D 20 53 54 4F 50 0D 20 | TE HOOG] STOP. | 00000120: 41 4C 53 20 3A 4E 54 20 3C 20 30 20 44 41 4E 20 |ALS :NT < 0 DAN | 00000130: 50 52 20 53 41 4D 45 4E 20 3A 4E 4F 4F 54 20 5B |PR SAMEN :NOOT [| 00000140: 49 53 20 54 45 20 4C 41 41 47 5D 20 53 54 4F 50 |IS TE LAAG] STOP| 00000150: 0D 20 47 45 4C 55 49 44 20 28 20 45 4C 45 4D 45 |. GELUID ( ELEME| 00000160: 4E 54 20 31 20 2B 20 28 20 52 45 53 54 20 3A 4E |NT 1 + ( REST :N| 00000170: 54 20 31 32 20 29 20 3A 4C 41 44 44 45 52 20 29 |T 12 ) :LADDER )| 00000180: 20 2A 20 28 20 45 4C 45 4D 45 4E 54 20 31 20 2B | * ( ELEMENT 1 +| 00000190: 20 28 20 51 55 4F 54 49 45 4E 54 20 3A 4E 54 20 | ( QUOTIENT :NT | 000001A0: 31 32 20 29 20 5B 30 2E 31 32 35 20 30 2E 32 35 |12 ) [0.125 0.25| 000001B0: 20 30 2E 35 20 31 20 32 20 34 20 38 5D 20 29 20 | 0.5 1 2 4 8] ) | 000001C0: 3A 44 55 55 52 20 3A 41 44 20 3A 53 52 20 3A 47 |:DUUR :AD :SR :G| 000001D0: 4F 4C 46 0D 45 4E 44 0D 0D 54 4F 20 4B 4C 41 4E |OLF.END..TO KLAN| 000001E0: 4B 20 3A 41 54 54 20 3A 44 45 43 20 3A 53 55 53 |K :ATT :DEC :SUS| 000001F0: 20 3A 52 45 4C 20 3A 47 4F 4C 46 56 4F 52 4D 0D | :REL :GOLFVORM.| 00000200: 20 41 4C 53 20 28 20 45 45 4E 56 41 4E 20 3A 41 | ALS ( EENVAN :A| 00000210: 54 54 20 3C 20 30 20 3A 44 45 43 20 3C 20 30 20 |TT < 0 :DEC < 0 | 00000220: 3A 53 55 53 20 3C 20 30 20 3A 52 45 4C 20 3C 20 |:SUS < 0 :REL < | 00000230: 30 20 3A 41 54 54 20 3E 20 31 35 20 3A 44 45 43 |0 :ATT > 15 :DEC| 00000240: 20 3E 20 31 35 20 3A 53 55 53 20 3E 20 31 35 20 | > 15 :SUS > 15 | 00000250: 3A 52 45 4C 20 3E 20 31 35 20 29 20 44 41 4E 20 |:REL > 15 ) DAN | 00000260: 50 52 20 5B 47 45 54 41 4C 4C 45 4E 20 4D 4F 45 |PR [GETALLEN MOE| 00000270: 54 45 4E 20 54 55 53 53 45 4E 20 30 20 45 4E 20 |TEN TUSSEN 0 EN | 00000280: 31 35 5D 0D 20 4D 41 41 4B 20 22 41 44 20 42 49 |15]. MAAK "AD BI| 00000290: 54 4F 52 20 28 20 42 49 54 41 4E 44 20 3A 41 54 |TOR ( BITAND :AT| 000002A0: 54 20 31 35 20 29 20 2A 20 31 36 20 28 20 42 49 |T 15 ) * 16 ( BI| 000002B0: 54 41 4E 44 20 3A 41 44 20 31 35 20 29 0D 20 4D |TAND :AD 15 ). M| 000002C0: 41 41 4B 20 22 41 44 20 42 49 54 4F 52 20 28 20 |AAK "AD BITOR ( | 000002D0: 42 49 54 41 4E 44 20 3A 44 45 43 20 31 35 20 29 |BITAND :DEC 15 )| 000002E0: 20 28 20 42 49 54 41 4E 44 20 3A 41 44 20 32 34 | ( BITAND :AD 24| 000002F0: 30 20 29 0D 20 4D 41 41 4B 20 22 53 52 20 42 49 |0 ). MAAK "SR BI| 00000300: 54 4F 52 20 28 20 42 49 54 41 4E 44 20 3A 53 55 |TOR ( BITAND :SU| 00000310: 53 20 31 35 20 29 20 2A 20 31 36 20 28 20 42 49 |S 15 ) * 16 ( BI| 00000320: 54 41 4E 44 20 3A 53 52 20 31 35 20 29 0D 20 4D |TAND :SR 15 ). M| 00000330: 41 41 4B 20 22 53 52 20 42 49 54 4F 52 20 28 20 |AAK "SR BITOR ( | 00000340: 42 49 54 41 4E 44 20 3A 52 45 4C 20 31 35 20 29 |BITAND :REL 15 )| 00000350: 20 28 20 42 49 54 41 4E 44 20 3A 53 52 20 32 34 | ( BITAND :SR 24| 00000360: 30 20 29 0D 20 4D 41 41 4B 20 22 47 4F 4C 46 20 |0 ). MAAK "GOLF | 00000370: 3A 47 4F 4C 46 56 4F 52 4D 0D 45 4E 44 0D 0D 54 |:GOLFVORM.END..T| 00000380: 4F 20 53 4A 4A 4A 20 3A 44 55 55 52 0D 20 4B 4C |O SJJJ :DUUR. KL| 00000390: 41 4E 4B 20 39 20 35 20 30 20 30 20 31 32 39 20 |ANK 9 5 0 0 129 | 000003A0: 54 4F 4F 4E 20 5B 43 5D 20 3A 44 55 55 52 0D 45 |TOON [C] :DUUR.E| 000003B0: 4E 44 0D 0D 54 4F 20 47 45 53 4A 4A 4A 20 3A 44 |ND..TO GESJJJ :D| 000003C0: 55 52 45 4E 0D 20 41 4C 53 20 4C 45 45 47 3F 20 |UREN. ALS LEEG? | 000003D0: 3A 44 55 52 45 4E 20 44 41 4E 20 53 54 4F 50 0D |:DUREN DAN STOP.| 000003E0: 20 53 4A 4A 4A 20 45 45 52 53 54 45 20 3A 44 55 | SJJJ EERSTE :DU| 000003F0: 52 45 4E 0D 20 47 45 53 4A 4A 4A 20 4D 45 20 3A |REN. GESJJJ ME :| 00000400: 44 55 52 45 4E 0D 45 4E 44 0D 0D 54 4F 20 21 5A |DUREN.END..TO !Z| 00000410: 0D 20 57 45 47 20 5A 45 54 20 57 45 47 20 5A 45 |. WEG ZET WEG ZE| 00000420: 54 31 20 57 45 47 20 5A 45 54 52 49 4A 20 57 45 |T1 WEG ZETRIJ WE| 00000430: 47 20 5A 45 54 57 4F 4F 52 44 20 57 45 47 20 5A |G ZETWOORD WEG Z| 00000440: 45 54 52 41 4E 44 20 57 45 47 20 42 45 47 49 4E |ETRAND WEG BEGIN| 00000450: 20 57 45 47 20 4E 41 41 52 50 4C 20 57 45 47 20 | WEG NAARPL WEG | 00000460: 50 4C 41 41 54 53 20 57 45 47 20 4B 4F 4C 4F 4D |PLAATS WEG KOLOM| 00000470: 20 57 45 47 20 52 45 47 45 4C 20 57 45 47 20 21 | WEG REGEL WEG !| 00000480: 5A 0D 20 2E 47 43 4F 4C 4C 20 50 52 20 2E 4E 4F |Z. .GCOLL PR .NO| 00000490: 44 45 53 0D 45 4E 44 0D 0D 54 4F 20 50 4C 41 41 |DES.END..TO PLAA| 000004A0: 54 53 0D 20 52 45 53 55 4C 54 41 41 54 20 53 41 |TS. RESULTAAT SA| 000004B0: 4D 45 4E 20 4B 4F 4C 4F 4D 20 52 45 47 45 4C 0D |MEN KOLOM REGEL.| 000004C0: 45 4E 44 0D 0D 54 4F 20 4B 4F 4C 4F 4D 0D 20 52 |END..TO KOLOM. R| 000004D0: 45 53 20 49 4E 54 45 47 45 52 20 28 20 58 50 4F |ES INTEGER ( XPO| 000004E0: 53 20 2F 20 38 20 29 20 2B 20 31 39 0D 45 4E 44 |S / 8 ) + 19.END| 000004F0: 0D 0D 54 4F 20 5A 45 54 57 4F 4F 52 44 20 3A 57 |..TO ZETWOORD :W| 00000500: 4F 4F 52 44 0D 20 50 4F 20 56 44 20 4E 41 41 52 |OORD. PO VD NAAR| 00000510: 48 4F 45 4B 20 39 30 0D 20 41 4C 53 20 4B 4F 4C |HOEK 90. ALS KOL| 00000520: 4F 4D 20 3E 20 33 37 20 41 4C 53 20 52 45 47 45 |OM > 37 ALS REGE| 00000530: 4C 20 3C 20 31 38 20 44 41 4E 20 4E 41 41 52 50 |L < 18 DAN NAARP| 00000540: 4C 20 30 20 52 45 47 45 4C 20 2B 20 31 20 41 4E |L 0 REGEL + 1 AN| 00000550: 44 45 52 53 20 4E 41 41 52 50 4C 20 30 20 30 0D |DERS NAARPL 0 0.| 00000560: 20 41 4C 53 20 3A 57 4F 4F 52 44 20 3D 20 22 20 | ALS :WOORD = " | 00000570: 44 41 4E 20 53 54 45 4D 50 45 4C 20 22 20 4E 41 |DAN STEMPEL " NA| 00000580: 41 52 58 20 58 50 4F 53 20 2B 20 38 20 53 54 4F |ARX XPOS + 8 STO| 00000590: 50 0D 20 53 54 45 4D 50 45 4C 20 45 45 52 53 54 |P. STEMPEL EERST| 000005A0: 45 20 3A 57 4F 4F 52 44 20 4E 41 41 52 58 20 58 |E :WOORD NAARX X| 000005B0: 50 4F 53 20 2B 20 38 0D 20 5A 45 54 57 4F 4F 52 |POS + 8. ZETWOOR| 000005C0: 44 20 4D 45 20 3A 57 4F 4F 52 44 0D 45 4E 44 0D |D ME :WOORD.END.| 000005D0: 0D 54 4F 20 4E 41 41 52 50 4C 20 3A 4B 4F 4C 4F |.TO NAARPL :KOLO| 000005E0: 4D 20 3A 52 45 47 45 4C 0D 20 4C 4F 4B 41 41 4C |M :REGEL. LOKAAL| 000005F0: 20 22 50 20 4D 41 41 4B 20 22 50 20 45 45 52 53 | "P MAAK "P EERS| 00000600: 54 45 20 54 4F 45 53 54 41 4E 44 20 50 4F 0D 20 |TE TOESTAND PO. | 00000610: 41 4C 53 20 28 20 45 45 4E 56 41 4E 20 3A 52 45 |ALS ( EENVAN :RE| 00000620: 47 45 4C 20 3E 20 31 38 20 3A 52 45 47 45 4C 20 |GEL > 18 :REGEL | 00000630: 3C 20 30 20 3A 4B 4F 4C 4F 4D 20 3C 20 30 20 3A |< 0 :KOLOM < 0 :| 00000640: 4B 4F 4C 4F 4D 20 3E 20 33 38 20 29 20 44 41 4E |KOLOM > 38 ) DAN| 00000650: 20 50 52 49 4E 54 20 5B 42 55 49 54 45 4E 20 52 | PRINT [BUITEN R| 00000660: 41 4E 44 5D 20 53 54 4F 50 0D 20 4E 41 41 52 58 |AND] STOP. NAARX| 00000670: 20 28 20 3A 4B 4F 4C 4F 4D 20 2D 20 31 39 20 29 | ( :KOLOM - 19 )| 00000680: 20 2A 20 38 0D 20 4E 41 41 52 59 20 28 20 31 32 | * 8. NAARY ( 12| 00000690: 20 2D 20 3A 52 45 47 45 4C 20 29 20 2A 20 31 30 | - :REGEL ) * 10| 000006A0: 2E 34 0D 20 41 4C 53 20 3A 50 20 44 41 4E 20 50 |.4. ALS :P DAN P| 000006B0: 4E 0D 45 4E 44 0D 0D 54 4F 20 52 45 47 45 4C 0D |N.END..TO REGEL.| 000006C0: 20 52 45 53 20 49 4E 54 45 47 45 52 20 28 20 31 | RES INTEGER ( 1| 000006D0: 32 2E 31 20 2D 20 59 50 4F 53 20 2F 20 31 30 2E |2.1 - YPOS / 10.| 000006E0: 34 20 29 0D 45 4E 44 0D 0D 54 4F 20 5A 45 54 31 |4 ).END..TO ZET1| 000006F0: 20 3A 54 45 4B 53 54 0D 20 41 4C 53 20 57 4F 4F | :TEKST. ALS WOO| 00000700: 52 44 3F 20 3A 54 45 4B 53 54 20 44 41 4E 20 5A |RD? :TEKST DAN Z| 00000710: 45 54 57 4F 4F 52 44 20 3A 54 45 4B 53 54 20 4E |ETWOORD :TEKST N| 00000720: 41 41 52 58 20 58 50 4F 53 20 2D 20 38 20 4B 4F |AARX XPOS - 8 KO| 00000730: 4D 20 53 54 4F 50 0D 20 41 4C 53 20 4C 45 45 47 |M STOP. ALS LEEG| 00000740: 3F 20 3A 54 45 4B 53 54 20 44 41 4E 20 4E 41 41 |? :TEKST DAN NAA| 00000750: 52 58 20 58 50 4F 53 20 2D 20 38 20 4B 4F 4D 20 |RX XPOS - 8 KOM | 00000760: 53 54 4F 50 0D 20 5A 45 54 57 4F 4F 52 44 20 45 |STOP. ZETWOORD E| 00000770: 45 52 53 54 45 20 3A 54 45 4B 53 54 20 5A 45 54 |ERSTE :TEKST ZET| 00000780: 31 20 4D 45 20 3A 54 45 4B 53 54 0D 45 4E 44 0D |1 ME :TEKST.END.| 00000790: 0D 54 4F 20 5A 45 54 52 49 4A 20 3A 4E 20 3A 54 |.TO ZETRIJ :N :T| 000007A0: 4F 45 54 53 0D 20 4C 4F 4B 41 41 4C 20 22 54 20 |OETS. LOKAAL "T | 000007B0: 4C 4F 4B 41 41 4C 20 22 50 0D 20 4D 41 41 4B 20 |LOKAAL "P. MAAK | 000007C0: 22 50 20 45 45 52 53 54 45 20 54 4F 45 53 54 41 |"P EERSTE TOESTA| 000007D0: 4E 44 0D 20 41 4C 53 20 4E 49 45 54 20 47 45 54 |ND. ALS NIET GET| 000007E0: 41 4C 3F 20 3A 4E 20 50 52 49 4E 54 20 5B 47 45 |AL? :N PRINT [GE| 000007F0: 54 41 4C 20 45 45 52 53 54 5D 20 53 54 4F 50 0D |TAL EERST] STOP.| 00000800: 20 41 4C 53 20 3A 4E 20 3E 20 30 20 4D 41 41 4B | ALS :N > 0 MAAK| 00000810: 20 22 54 20 31 20 41 4E 44 45 52 53 20 4D 41 41 | "T 1 ANDERS MAA| 00000820: 4B 20 22 54 20 28 20 2D 20 31 20 29 0D 20 41 4C |K "T ( - 1 ). AL| 00000830: 53 20 4C 45 45 47 3F 20 3A 54 4F 45 54 53 20 44 |S LEEG? :TOETS D| 00000840: 41 4E 20 4D 41 41 4B 20 22 54 4F 45 54 53 20 22 |AN MAAK "TOETS "| 00000850: 20 41 4E 44 45 52 53 20 41 4C 53 20 4C 49 4A 53 | ANDERS ALS LIJS| 00000860: 54 3F 20 3A 54 4F 45 54 53 20 44 41 4E 20 4D 41 |T? :TOETS DAN MA| 00000870: 41 4B 20 22 54 4F 45 54 53 20 45 45 52 53 54 45 |AK "TOETS EERSTE| 00000880: 20 45 45 52 53 54 45 20 3A 54 4F 45 54 53 20 41 | EERSTE :TOETS A| 00000890: 4E 44 45 52 53 20 4D 41 41 4B 20 22 54 4F 45 54 |NDERS MAAK "TOET| 000008A0: 53 20 45 45 52 53 54 45 20 3A 54 4F 45 54 53 0D |S EERSTE :TOETS.| 000008B0: 20 50 4F 20 48 45 52 48 41 41 4C 20 3A 4E 20 2A | PO HERHAAL :N *| 000008C0: 20 3A 54 20 5B 53 54 45 4D 50 45 4C 20 3A 54 4F | :T [STEMPEL :TO| 000008D0: 45 54 53 20 56 54 20 38 20 2A 20 3A 54 5D 0D 20 |ETS VT 8 * :T]. | 000008E0: 41 4C 53 20 3A 50 20 44 41 4E 20 50 4E 0D 45 4E |ALS :P DAN PN.EN| 000008F0: 44 0D 0D 54 4F 20 4B 41 4E 54 45 45 4C 0D 20 52 |D..TO KANTEEL. R| 00000900: 45 20 39 30 20 56 54 20 35 20 52 45 20 39 30 20 |E 90 VT 5 RE 90 | 00000910: 56 54 20 35 20 4C 49 20 39 30 20 56 54 20 35 20 |VT 5 LI 90 VT 5 | 00000920: 4C 49 20 39 30 20 56 54 20 35 0D 45 4E 44 0D 0D |LI 90 VT 5.END..| 00000930: 54 4F 20 4B 41 53 54 45 45 4C 0D 20 4E 42 20 4D |TO KASTEEL. NB M| 00000940: 53 20 50 4F 20 41 54 20 35 30 0D 20 41 54 20 32 |S PO AT 50. AT 2| 00000950: 30 0D 20 52 45 20 39 30 20 56 54 20 38 30 0D 20 |0. RE 90 VT 80. | 00000960: 56 54 20 34 30 0D 20 50 4E 20 41 54 20 31 37 30 |VT 40. PN AT 170| 00000970: 0D 20 41 54 20 37 30 0D 20 4C 49 20 39 30 20 56 |. AT 70. LI 90 V| 00000980: 54 20 38 30 20 4C 49 20 39 30 20 56 54 20 31 30 |T 80 LI 90 VT 10| 00000990: 20 52 45 20 39 30 20 56 54 20 32 30 20 48 45 52 | RE 90 VT 20 HER| 000009A0: 48 41 41 4C 20 35 20 5B 4B 41 4E 54 45 45 4C 5D |HAAL 5 [KANTEEL]| 000009B0: 0D 20 52 45 20 39 30 20 56 54 20 35 20 52 45 20 |. RE 90 VT 5 RE | 000009C0: 39 30 20 56 54 20 32 30 20 52 45 20 39 30 20 56 |90 VT 20 RE 90 V| 000009D0: 54 20 31 30 20 4C 49 20 39 30 20 56 54 20 38 30 |T 10 LI 90 VT 80| 000009E0: 0D 20 41 54 20 36 30 20 52 45 20 31 38 30 20 48 |. AT 60 RE 180 H| 000009F0: 45 52 48 41 41 4C 20 31 30 20 5B 4B 41 4E 54 45 |ERHAAL 10 [KANTE| 00000A00: 45 4C 5D 0D 20 48 45 52 48 41 41 4C 20 35 20 5B |EL]. HERHAAL 5 [| 00000A10: 4B 41 4E 54 45 45 4C 5D 0D 20 52 45 20 39 30 20 |KANTEEL]. RE 90 | 00000A20: 56 54 20 35 20 4C 49 20 39 30 20 41 54 20 36 30 |VT 5 LI 90 AT 60| 00000A30: 20 56 54 20 38 30 0D 20 4C 49 20 39 30 20 56 54 | VT 80. LI 90 VT| 00000A40: 20 31 30 20 52 45 20 39 30 20 56 54 20 32 30 0D | 10 RE 90 VT 20.| 00000A50: 20 48 45 52 48 41 41 4C 20 35 20 5B 4B 41 4E 54 | HERHAAL 5 [KANT| 00000A60: 45 45 4C 5D 20 52 45 20 39 30 20 56 54 20 35 20 |EEL] RE 90 VT 5 | 00000A70: 52 45 20 39 30 20 56 54 20 32 30 20 52 45 20 39 |RE 90 VT 20 RE 9| 00000A80: 30 20 56 54 20 31 30 20 4C 49 20 39 30 20 56 54 |0 VT 10 LI 90 VT| 00000A90: 20 38 30 0D 20 4C 49 20 39 30 20 47 55 4D 20 56 | 80. LI 90 GUM V| 00000AA0: 54 20 32 30 20 50 45 4E 20 50 4F 20 4E 42 0D 20 |T 20 PEN PO NB. | 00000AB0: 41 54 20 36 30 0D 20 41 54 20 35 0D 20 52 45 20 |AT 60. AT 5. RE | 00000AC0: 39 30 20 50 4E 20 56 54 20 35 0D 20 47 55 4D 20 |90 PN VT 5. GUM | 00000AD0: 41 54 20 35 20 4C 49 20 39 30 20 50 45 4E 0D 20 |AT 5 LI 90 PEN. | 00000AE0: 56 54 20 32 30 0D 20 41 54 20 32 35 0D 20 56 54 |VT 20. AT 25. VT| 00000AF0: 20 32 35 0D 20 4C 49 20 39 30 20 56 54 20 31 35 | 25. LI 90 VT 15| 00000B00: 20 4C 49 20 39 30 20 56 54 20 32 35 0D 45 4E 44 | LI 90 VT 25.END| 00000B10: 0D 0D 54 4F 20 5A 45 54 52 41 4E 44 0D 20 4C 4F |..TO ZETRAND. LO| 00000B20: 4B 41 41 4C 20 22 58 30 20 4D 41 41 4B 20 22 58 |KAAL "X0 MAAK "X| 00000B30: 30 20 58 50 4F 53 20 4C 4F 4B 41 41 4C 20 22 59 |0 XPOS LOKAAL "Y| 00000B40: 30 20 4D 41 41 4B 20 22 59 30 20 59 50 4F 53 0D |0 MAAK "Y0 YPOS.| 00000B50: 20 50 4F 20 4E 41 41 52 58 59 20 2D 20 31 36 30 | PO NAARXY - 160| 00000B60: 20 31 33 30 20 50 4E 20 4E 41 41 52 59 20 2D 20 | 130 PN NAARY - | 00000B70: 37 35 20 4E 41 41 52 58 20 31 35 39 20 4E 41 41 |75 NAARX 159 NAA| 00000B80: 52 59 20 31 33 30 20 4E 41 41 52 58 20 2D 20 31 |RY 130 NAARX - 1| 00000B90: 36 30 0D 20 50 4F 20 4E 41 41 52 58 59 20 3A 58 |60. PO NAARXY :X| 00000BA0: 30 20 3A 59 30 0D 45 4E 44 0D 0D 54 4F 20 42 45 |0 :Y0.END..TO BE| 00000BB0: 47 49 4E 0D 20 50 4F 20 4E 41 41 52 50 4C 20 30 |GIN. PO NAARPL 0| 00000BC0: 20 30 20 4D 53 20 4E 41 41 52 48 4F 45 4B 20 39 | 0 MS NAARHOEK 9| 00000BD0: 30 0D 45 4E 44 0D 0D 54 4F 20 5A 45 54 20 3A 54 |0.END..TO ZET :T| 00000BE0: 45 4B 53 54 0D 20 53 50 52 4F 4F 4B 20 30 20 4B |EKST. SPROOK 0 K| 00000BF0: 4F 4D 20 5A 45 54 31 20 3A 54 45 4B 53 54 0D 20 |OM ZET1 :TEKST. | 00000C00: 41 4C 53 20 52 45 47 45 4C 20 3C 20 31 38 20 44 |ALS REGEL < 18 D| 00000C10: 41 4E 20 4E 41 41 52 50 4C 20 30 20 52 45 47 45 |AN NAARPL 0 REGE| 00000C20: 4C 20 2B 20 31 20 41 4E 44 45 52 53 20 4E 41 41 |L + 1 ANDERS NAA| 00000C30: 52 50 4C 20 30 20 30 0D 45 4E 44 0D 0D 54 4F 20 |RPL 0 0.END..TO | 00000C40: 52 41 41 4D 0D 20 48 45 52 48 41 41 4C 20 34 20 |RAAM. HERHAAL 4 | 00000C50: 5B 52 45 20 39 30 20 56 49 45 52 4B 41 4E 54 5D |[RE 90 VIERKANT]| 00000C60: 0D 20 50 4F 20 56 54 20 34 35 20 50 4E 20 52 45 |. PO VT 45 PN RE| 00000C70: 20 39 30 20 56 54 20 34 35 20 48 45 52 48 41 41 | 90 VT 45 HERHAA| 00000C80: 4C 20 34 20 5B 52 45 20 39 30 20 56 54 20 39 30 |L 4 [RE 90 VT 90| 00000C90: 5D 0D 45 4E 44 0D 0D 54 4F 20 44 49 41 4D 41 4E |].END..TO DIAMAN| 00000CA0: 54 20 0D 45 4E 44 0D 0D 54 4F 20 41 43 48 54 48 |T .END..TO ACHTH| 00000CB0: 4F 45 4B 0D 20 48 45 52 48 41 41 4C 20 38 20 5B |OEK. HERHAAL 8 [| 00000CC0: 56 54 20 32 35 20 52 45 20 34 35 5D 0D 45 4E 44 |VT 25 RE 45].END| 00000CD0: 0D 0D 54 4F 20 56 49 45 52 4B 41 4E 54 0D 20 48 |..TO VIERKANT. H| 00000CE0: 45 52 48 41 41 4C 20 34 20 5B 56 54 20 34 30 20 |ERHAAL 4 [VT 40 | 00000CF0: 52 45 20 39 30 5D 0D 45 4E 44 0D 0D 54 4F 20 26 |RE 90].END..TO &| 00000D00: 42 0D 20 26 26 20 22 50 52 49 4E 54 42 0D 45 4E |B. && "PRINTB.EN| 00000D10: 44 0D 0D 54 4F 20 21 48 0D 20 57 45 47 20 5B 42 |D..TO !H. WEG [B| 00000D20: 45 57 41 41 52 50 20 4F 4E 54 48 4F 55 44 20 50 |EWAARP ONTHOUD P| 00000D30: 52 4F 47 20 41 4E 54 57 4F 4F 52 44 31 20 49 4E |ROG ANTWOORD1 IN| 00000D40: 20 45 45 4E 55 49 54 20 50 45 4E 20 42 4F 4F 47 | EENUIT PEN BOOG| 00000D50: 4A 45 20 57 41 43 48 54 20 53 50 41 54 49 45 20 |JE WACHT SPATIE | 00000D60: 53 50 20 52 55 49 4D 54 45 20 26 56 20 26 4C 20 |SP RUIMTE &V &L | 00000D70: 26 50 20 26 5A 20 26 4D 20 26 53 20 26 26 20 26 |&P &Z &M &S && &| 00000D80: 42 20 21 48 5D 0D 45 4E 44 0D 0D 54 4F 20 42 45 |B !H].END..TO BE| 00000D90: 57 41 41 52 50 20 3A 42 45 53 54 41 4E 44 20 3A |WAARP :BESTAND :| 00000DA0: 4E 41 4D 45 4E 0D 20 28 20 42 45 57 41 41 52 20 |NAMEN. ( BEWAAR | 00000DB0: 3A 42 45 53 54 41 4E 44 20 3A 4E 41 4D 45 4E 20 |:BESTAND :NAMEN | 00000DC0: 29 0D 20 50 52 20 22 42 45 57 41 41 52 44 0D 45 |). PR "BEWAARD.E| 00000DD0: 4E 44 0D 0D 54 4F 20 4F 4E 54 48 4F 55 44 20 3A |ND..TO ONTHOUD :| 00000DE0: 4E 41 41 4D 0D 20 50 52 49 4E 54 31 20 22 3E 20 |NAAM. PRINT1 "> | 00000DF0: 44 45 46 49 4E 49 45 45 52 20 3A 4E 41 41 4D 20 |DEFINIEER :NAAM | 00000E00: 5A 45 54 56 20 5B 5D 20 50 52 4F 47 20 3A 4E 41 |ZETV [] PROG :NA| 00000E10: 41 4D 20 41 4E 54 57 4F 4F 52 44 0D 45 4E 44 0D |AM ANTWOORD.END.| 00000E20: 0D 54 4F 20 50 52 4F 47 20 3A 4E 41 41 4D 20 3A |.TO PROG :NAAM :| 00000E30: 43 4F 4D 4D 0D 20 41 4C 53 20 3A 43 4F 4D 4D 20 |COMM. ALS :COMM | 00000E40: 3D 20 5B 45 4E 44 5D 20 50 52 49 4E 54 20 53 41 |= [END] PRINT SA| 00000E50: 4D 45 4E 20 3A 4E 41 41 4D 20 5B 47 45 4C 45 45 |MEN :NAAM [GELEE| 00000E60: 52 44 5D 20 52 45 53 20 5B 5D 0D 20 52 55 4E 20 |RD] RES []. RUN | 00000E70: 3A 43 4F 4D 4D 20 50 52 49 4E 54 31 20 22 3E 0D |:COMM PRINT1 ">.| 00000E80: 20 52 45 53 20 5A 45 54 56 20 3A 43 4F 4D 4D 20 | RES ZETV :COMM | 00000E90: 50 52 4F 47 20 3A 4E 41 41 4D 20 41 4E 54 57 4F |PROG :NAAM ANTWO| 00000EA0: 4F 52 44 0D 45 4E 44 0D 0D 54 4F 20 41 4E 54 57 |ORD.END..TO ANTW| 00000EB0: 4F 4F 52 44 31 0D 20 4C 4F 4B 41 41 4C 20 22 41 |OORD1. LOKAAL "A| 00000EC0: 20 4D 41 41 4B 20 22 41 20 41 4E 54 57 4F 4F 52 | MAAK "A ANTWOOR| 00000ED0: 44 0D 20 41 4C 53 20 4C 45 45 47 3F 20 3A 41 20 |D. ALS LEEG? :A | 00000EE0: 52 45 53 20 22 20 41 4E 44 45 52 53 20 52 45 53 |RES " ANDERS RES| 00000EF0: 20 45 45 52 53 54 45 20 3A 41 0D 45 4E 44 0D 0D | EERSTE :A.END..| 00000F00: 54 4F 20 49 4E 20 3A 4C 49 4A 53 54 20 3A 54 45 |TO IN :LIJST :TE| 00000F10: 4B 53 54 0D 20 41 4C 53 20 57 4F 4F 52 44 3F 20 |KST. ALS WOORD? | 00000F20: 3A 54 45 4B 53 54 20 4D 41 41 4B 20 22 54 45 4B |:TEKST MAAK "TEK| 00000F30: 53 54 20 53 41 4D 45 4E 20 3A 54 45 4B 53 54 20 |ST SAMEN :TEKST | 00000F40: 5B 5D 0D 20 41 4C 53 20 4C 45 45 47 3F 20 3A 54 |[]. ALS LEEG? :T| 00000F50: 45 4B 53 54 20 52 45 53 55 4C 54 41 41 54 20 22 |EKST RESULTAAT "| 00000F60: 57 41 41 52 0D 20 41 4C 53 20 4E 49 45 54 20 45 |WAAR. ALS NIET E| 00000F70: 52 42 49 4A 3F 20 45 45 52 53 54 45 20 3A 54 45 |RBIJ? EERSTE :TE| 00000F80: 4B 53 54 20 3A 4C 49 4A 53 54 20 52 45 53 20 22 |KST :LIJST RES "| 00000F90: 4E 49 45 54 57 0D 20 52 45 53 55 4C 54 41 41 54 |NIETW. RESULTAAT| 00000FA0: 20 49 4E 20 3A 4C 49 4A 53 54 20 4D 45 20 3A 54 | IN :LIJST ME :T| 00000FB0: 45 4B 53 54 0D 45 4E 44 0D 0D 54 4F 20 45 45 4E |EKST.END..TO EEN| 00000FC0: 55 49 54 20 3A 4C 49 4A 53 54 0D 20 52 45 53 55 |UIT :LIJST. RESU| 00000FD0: 4C 54 41 41 54 20 53 41 4D 45 4E 20 5B 5D 20 45 |LTAAT SAMEN [] E| 00000FE0: 4C 45 4D 45 4E 54 20 28 20 31 20 2B 20 52 41 4E |LEMENT ( 1 + RAN| 00000FF0: 44 4F 4D 20 41 41 4E 54 41 4C 20 3A 4C 49 4A 53 |DOM AANTAL :LIJS| 00001000: 54 20 29 20 3A 4C 49 4A 53 54 0D 45 4E 44 0D 0D |T ) :LIJST.END..| 00001010: 54 4F 20 50 45 4E 0D 20 4B 4C 20 31 0D 45 4E 44 |TO PEN. KL 1.END| 00001020: 0D 0D 54 4F 20 42 4F 4F 47 4A 45 20 3A 53 54 52 |..TO BOOGJE :STR| 00001030: 41 41 4C 0D 20 48 45 52 48 41 41 4C 20 31 30 20 |AAL. HERHAAL 10 | 00001040: 5B 56 54 20 33 2E 31 34 31 20 2A 20 3A 53 54 52 |[VT 3.141 * :STR| 00001050: 41 41 4C 20 2F 20 32 30 20 52 45 20 39 5D 0D 45 |AAL / 20 RE 9].E| 00001060: 4E 44 0D 0D 54 4F 20 57 41 43 48 54 20 3A 54 49 |ND..TO WACHT :TI| 00001070: 4A 44 0D 20 48 45 52 48 41 41 4C 20 37 35 30 20 |JD. HERHAAL 750 | 00001080: 2A 20 3A 54 49 4A 44 20 5B 5D 0D 45 4E 44 0D 0D |* :TIJD [].END..| 00001090: 54 4F 20 53 50 41 54 49 45 20 3A 41 41 4E 54 41 |TO SPATIE :AANTA| 000010A0: 4C 0D 20 41 4C 53 20 3A 41 41 4E 54 41 4C 20 3D |L. ALS :AANTAL =| 000010B0: 20 31 20 52 45 53 20 43 48 41 52 20 33 32 0D 20 | 1 RES CHAR 32. | 000010C0: 52 45 53 20 57 4F 4F 52 44 20 43 48 41 52 20 33 |RES WOORD CHAR 3| 000010D0: 32 20 53 50 41 54 49 45 20 3A 41 41 4E 54 41 4C |2 SPATIE :AANTAL| 000010E0: 20 2D 20 31 0D 45 4E 44 0D 0D 54 4F 20 53 50 20 | - 1.END..TO SP | 000010F0: 3A 41 41 4E 54 41 4C 0D 20 52 45 53 55 4C 54 41 |:AANTAL. RESULTA| 00001100: 41 54 20 53 50 41 54 49 45 20 3A 41 41 4E 54 41 |AT SPATIE :AANTA| 00001110: 4C 0D 45 4E 44 0D 0D 54 4F 20 52 55 49 4D 54 45 |L.END..TO RUIMTE| 00001120: 0D 20 2E 47 43 4F 4C 4C 20 50 52 20 2E 4E 4F 44 |. .GCOLL PR .NOD| 00001130: 45 53 0D 45 4E 44 0D 0D 54 4F 20 26 56 0D 20 26 |ES.END..TO &V. &| 00001140: 26 20 22 56 4F 52 4D 45 4E 0D 45 4E 44 0D 0D 54 |& "VORMEN.END..T| 00001150: 4F 20 26 4C 0D 20 26 26 20 22 4C 49 4A 53 54 45 |O &L. && "LIJSTE| 00001160: 4E 0D 45 4E 44 0D 0D 54 4F 20 26 50 0D 20 26 26 |N.END..TO &P. &&| 00001170: 20 22 50 52 49 4E 54 56 0D 45 4E 44 0D 0D 54 4F | "PRINTV.END..TO| 00001180: 20 26 5A 0D 20 26 26 20 22 5A 45 54 54 45 4E 0D | &Z. && "ZETTEN.| 00001190: 45 4E 44 0D 0D 54 4F 20 26 4D 0D 20 26 26 20 22 |END..TO &M. && "| 000011A0: 4D 55 5A 49 45 4B 0D 45 4E 44 0D 0D 54 4F 20 26 |MUZIEK.END..TO &| 000011B0: 53 0D 20 26 26 20 22 53 50 52 4F 4B 45 4E 0D 45 |S. && "SPROKEN.E| 000011C0: 4E 44 0D 0D 54 4F 20 26 26 20 3A 58 0D 20 53 43 |ND..TO && :X. SC| 000011D0: 48 52 49 4A 56 45 4E 0D 20 4D 41 41 4B 20 22 58 |HRIJVEN. MAAK "X| 000011E0: 20 57 4F 4F 52 44 20 22 4C 4F 47 4F 20 3A 58 0D | WOORD "LOGO :X.| 000011F0: 20 50 52 20 53 41 4D 45 4E 20 3A 58 20 5B 57 4F | PR SAMEN :X [WO| 00001200: 52 44 54 20 4E 55 20 47 45 4C 41 44 45 4E 5D 0D |RDT NU GELADEN].| 00001210: 20 4C 41 41 44 20 3A 58 0D 45 4E 44 0D 0D 4D 41 | LAAD :X.END..MA| 00001220: 41 4B 20 22 47 49 53 20 28 38 29 0D 4D 41 41 4B |AK "GIS (8).MAAK| 00001230: 20 22 46 49 53 20 28 36 29 0D 4D 41 41 4B 20 22 | "FIS (6).MAAK "| 00001240: 44 49 53 20 28 33 29 0D 4D 41 41 4B 20 22 43 49 |DIS (3).MAAK "CI| 00001250: 53 20 28 31 29 0D 4D 41 41 4B 20 22 42 45 53 20 |S (1).MAAK "BES | 00001260: 28 31 30 29 0D 4D 41 41 4B 20 22 41 49 53 20 28 |(10).MAAK "AIS (| 00001270: 31 30 29 0D 4D 41 41 4B 20 22 47 20 28 37 29 0D |10).MAAK "G (7).| 00001280: 4D 41 41 4B 20 22 46 20 28 35 29 0D 4D 41 41 4B |MAAK "F (5).MAAK| 00001290: 20 22 45 20 28 34 29 0D 4D 41 41 4B 20 22 44 20 | "E (4).MAAK "D | 000012A0: 28 32 29 0D 4D 41 41 4B 20 22 42 20 28 31 31 29 |(2).MAAK "B (11)| 000012B0: 0D 4D 41 41 4B 20 22 4C 41 44 44 45 52 20 5B 38 |.MAAK "LADDER [8| 000012C0: 37 37 39 20 39 33 30 31 20 39 38 35 34 20 31 30 |779 9301 9854 10| 000012D0: 34 34 30 20 31 31 30 36 30 20 31 31 37 31 38 20 |440 11060 11718 | 000012E0: 31 32 34 31 35 20 31 33 31 35 33 20 31 33 39 33 |12415 13153 1393| 000012F0: 35 20 31 34 37 36 34 20 31 35 37 34 32 20 31 36 |5 14764 15742 16| 00001300: 35 37 32 20 31 37 35 35 37 20 31 38 36 30 31 5D |572 17557 18601]| 00001310: 0D 4D 41 41 4B 20 22 4F 43 54 41 41 46 20 28 31 |.MAAK "OCTAAF (1| 00001320: 29 0D 4D 41 41 4B 20 22 54 45 4D 50 4F 20 28 32 |).MAAK "TEMPO (2| 00001330: 30 29 0D 4D 41 41 4B 20 22 4C 50 20 28 31 35 29 |0).MAAK "LP (15)| 00001340: 0D 4D 41 41 4B 20 22 48 50 20 28 31 35 29 0D 4D |.MAAK "HP (15).M| 00001350: 41 41 4B 20 22 47 4F 4C 46 20 28 31 37 29 0D 4D |AAK "GOLF (17).M| 00001360: 41 41 4B 20 22 53 52 20 28 30 29 0D 4D 41 41 4B |AAK "SR (0).MAAK| 00001370: 20 22 41 44 20 28 39 29 0D 4D 41 41 4B 20 22 43 | "AD (9).MAAK "C| 00001380: 20 28 30 29 0D 4D 41 41 4B 20 22 41 20 28 39 29 | (0).MAAK "A (9)| 00001390: 0D 4D 41 41 4B 20 22 53 54 41 52 54 4F 50 20 5B |.MAAK "STARTOP [| 000013A0: 5A 45 54 4F 50 5D 0D |ZETOP]. |
NT. ALS LIJST? :NOOT MAAK "NOOT EERSTE : NOOT. ALS ( EENVAN :NOOT = "R :NOOT = "- ) DAN HERHAAL :TEMPO * :DUUR [] STOP. M AAK "NT :NOOT. ALS NIET GETAL? :NT DAN M AAK "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 :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 :GOLF.END..TO KLAN K :ATT :DEC :SUS :REL :GOLFVORM. ALS ( E ENVAN :ATT < 0 :DEC < 0 :SUS < 0 :REL < 0 :ATT > 15 :DEC > 15 :SUS > 15 :REL > 1 5 ) DAN PR [GETALLEN MOETEN TUSSEN 0 EN 15]. MAAK "AD BITOR ( BITAND :ATT 15 ) * 16 ( BITAND :AD 15 ). MAAK "AD BITOR ( BITAND :DEC 15 ) ( BITAND :AD 240 ). MAA K "SR BITOR ( BITAND :SUS 15 ) * 16 ( BI TAND :SR 15 ). MAAK "SR BITOR ( BITAND : REL 15 ) ( BITAND :SR 240 ). MAAK "GOLF :GOLFVORM.END..TO SJJJ :DUUR. KLANK 9 5 0 0 129 TOON [C] :DUUR.END..TO GESJJJ :D UREN. ALS LEEG? :DUREN DAN STOP. SJJJ EE RSTE :DUREN. GESJJJ ME :DUREN.END..TO !Z . WEG ZET WEG ZET1 WEG ZETRIJ WEG ZETWOO RD WEG ZETRAND WEG BEGIN WEG NAARPL WEG PLAATS WEG KOLOM WEG REGEL WEG !Z. .GCOL L PR .NODES.END..TO PLAATS. RESULTAAT SA MEN KOLOM REGEL.END..TO KOLOM. RES INTEG ER ( XPOS / 8 ) + 19.END..TO ZETWOORD :W OORD. PO VD NAARHOEK 90. ALS KOLOM > 37 ALS REGEL < 18 DAN NAARPL 0 REGEL + 1 AN DERS NAARPL 0 0. ALS :WOORD = " DAN STEM PEL " NAARX XPOS + 8 STOP. STEMPEL EERST E :WOORD NAARX XPOS + 8. ZETWOORD ME :WO ORD.END..TO NAARPL :KOLOM :REGEL. LOKAAL "P MAAK "P EERSTE TOESTAND PO. ALS ( EE NVAN :REGEL > 18 :REGEL < 0 :KOLOM < 0 : KOLOM > 38 ) DAN PRINT [BUITEN RAND] STO P. NAARX ( :KOLOM - 19 ) * 8. NAARY ( 12 - :REGEL ) * 10.4. ALS :P DAN PN.END..T O REGEL. RES INTEGER ( 12.1 - YPOS / 10. 4 ).END..TO ZET1 :TEKST. ALS WOORD? :TEK ST DAN ZETWOORD :TEKST NAARX XPOS - 8 KO M STOP. ALS LEEG? :TEKST DAN NAARX XPOS - 8 KOM STOP. ZETWOORD EERSTE :TEKST ZET 1 ME :TEKST.END..TO ZETRIJ :N :TOETS. LO KAAL "T LOKAAL "P. MAAK "P EERSTE TOESTA ND. ALS NIET GETAL? :N PRINT [GETAL EERS T] STOP. ALS :N > 0 MAAK "T 1 ANDERS MAA K "T ( - 1 ). ALS LEEG? :TOETS DAN MAAK "TOETS " ANDERS ALS LIJST? :TOETS DAN MA AK "TOETS EERSTE EERSTE :TOETS ANDERS MA AK "TOETS EERSTE :TOETS. PO HERHAAL :N * :T [STEMPEL :TOETS VT 8 * :T]. ALS :P D AN PN.END..TO KANTEEL. RE 90 VT 5 RE 90 VT 5 LI 90 VT 5 LI 90 VT 5.END..TO KASTE EL. 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 [KANTE EL]. 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 V T 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 VT 15 LI 90 VT 25.END..TO ZET RAND. LOKAAL "X0 MAAK "X0 XPOS LOKAAL "Y 0 MAAK "Y0 YPOS. PO NAARXY - 160 130 PN NAARY - 75 NAARX 159 NAARY 130 NAARX - 1 60. PO NAARXY :X0 :Y0.END..TO BEGIN. PO NAARPL 0 0 MS NAARHOEK 90.END..TO ZET :T EKST. SPROOK 0 KOM ZET1 :TEKST. ALS REGE L < 18 DAN NAARPL 0 REGEL + 1 ANDERS NAA RPL 0 0.END..TO RAAM. HERHAAL 4 [RE 90 V IERKANT]. PO VT 45 PN RE 90 VT 45 HERHAA L 4 [RE 90 VT 90].END..TO DIAMANT .END.. TO ACHTHOEK. HERHAAL 8 [VT 25 RE 45].END ..TO VIERKANT. HERHAAL 4 [VT 40 RE 90].E ND..TO &B. && "PRINTB.END..TO !H. WEG [B EWAARP ONTHOUD PROG ANTWOORD1 IN EENUIT PEN BOOGJE WACHT SPATIE SP RUIMTE &V &L &P &Z &M &S && &B !H].END..TO BEWAARP :B ESTAND :NAMEN. ( BEWAAR :BESTAND :NAMEN ). PR "BEWAARD.END..TO ONTHOUD :NAAM. PR INT1 "> DEFINIEER :NAAM ZETV [] PROG :NA AM ANTWOORD.END..TO PROG :NAAM :COMM. AL S :COMM = [END] PRINT SAMEN :NAAM [GELEE RD] RES []. RUN :COMM PRINT1 ">. RES ZET V :COMM PROG :NAAM ANTWOORD.END..TO ANTW OORD1. LOKAAL "A MAAK "A ANTWOORD. ALS L EEG? :A RES " ANDERS RES EERSTE :A.END.. TO IN :LIJST :TEKST. ALS WOORD? :TEKST M AAK "TEKST SAMEN :TEKST []. ALS LEEG? :T EKST RESULTAAT "WAAR. ALS NIET ERBIJ? EE RSTE :TEKST :LIJST RES "NIETW. RESULTAAT IN :LIJST ME :TEKST.END..TO EENUIT :LIJ ST. RESULTAAT SAMEN [] ELEMENT ( 1 + RAN DOM AANTAL :LIJST ) :LIJST.END..TO PEN. KL 1.END..TO BOOGJE :STRAAL. HERHAAL 10 [VT 3.141 * :STRAAL / 20 RE 9].END..TO W ACHT :TIJD. HERHAAL 750 * :TIJD [].END.. TO SPATIE :AANTAL. ALS :AANTAL = 1 RES C HAR 32. RES WOORD CHAR 32 SPATIE :AANTAL - 1.END..TO SP :AANTAL. RESULTAAT SPATI E :AANTAL.END..TO RUIMTE. .GCOLL PR .NOD ES.END..TO &V. && "VORMEN.END..TO &L. && "LIJSTEN.END..TO &P. && "PRINTV.END..TO &Z. && "ZETTEN.END..TO &M. && "MUZIEK.E ND..TO &S. && "SPROKEN.END..TO && :X. SC HRIJVEN. MAAK "X WOORD "LOGO :X. PR SAME N :X [WORDT NU GELADEN]. LAAD :X.END..MA AK "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 [8 779 9301 9854 10440 11060 11718 12415 13 153 13935 14764 15742 16572 17557 18601] .MAAK "OCTAAF (1).MAAK "TEMPO (20).MAAK "LP (15).MAAK "HP (15).MAAK "GOLF (17).M AAK "SR (0).MAAK "AD (9).MAAK "C (0).MAA K "A (9).MAAK "STARTOP [ZETOP].
> CLICK IMAGE PREVIEW FOR FULL MODAL