LOGOZETTEN.LOGO
FILE INFORMATION
FILENAME(S): LOGOZETTEN.LOGO
FILE TYPE(S): PRG
FILE SIZE: 1.5K
FIRST SEEN: 2025-11-30 21:11:01
APPEARS ON: 1 disk(s)
FILE HASH
73328c78281ba4ec4efbf2d7c802bc7c1b69368129ddd688b641921b011f631c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOGO | LOGOZETTEN.LOGO | PRG | DuncanTwain | 20 | 15 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 20 54 4F 20 5A 45 54 20 3A 54 45 4B 53 54 0D |. TO ZET :TEKST.| 00000010: 20 53 50 52 4F 4F 4B 20 30 20 4B 4F 4D 20 5A 45 | SPROOK 0 KOM ZE| 00000020: 54 31 20 3A 54 45 4B 53 54 0D 20 41 4C 53 20 52 |T1 :TEKST. ALS R| 00000030: 45 47 45 4C 20 3C 20 31 38 20 44 41 4E 20 4E 41 |EGEL < 18 DAN NA| 00000040: 41 52 50 4C 20 30 20 52 45 47 45 4C 20 2B 20 31 |ARPL 0 REGEL + 1| 00000050: 20 41 4E 44 45 52 53 20 4E 41 41 52 50 4C 20 30 | ANDERS NAARPL 0| 00000060: 20 30 0D 45 4E 44 0D 0D 54 4F 20 5A 45 54 31 20 | 0.END..TO ZET1 | 00000070: 3A 54 45 4B 53 54 0D 20 41 4C 53 20 57 4F 4F 52 |:TEKST. ALS WOOR| 00000080: 44 3F 20 3A 54 45 4B 53 54 20 44 41 4E 20 5A 45 |D? :TEKST DAN ZE| 00000090: 54 57 4F 4F 52 44 20 3A 54 45 4B 53 54 20 4E 41 |TWOORD :TEKST NA| 000000A0: 41 52 58 20 58 50 4F 53 20 2D 20 38 20 4B 4F 4D |ARX XPOS - 8 KOM| 000000B0: 20 53 54 4F 50 0D 20 41 4C 53 20 4C 45 45 47 3F | STOP. ALS LEEG?| 000000C0: 20 3A 54 45 4B 53 54 20 44 41 4E 20 4E 41 41 52 | :TEKST DAN NAAR| 000000D0: 58 20 58 50 4F 53 20 2D 20 38 20 4B 4F 4D 20 53 |X XPOS - 8 KOM S| 000000E0: 54 4F 50 0D 20 5A 45 54 57 4F 4F 52 44 20 45 45 |TOP. ZETWOORD EE| 000000F0: 52 53 54 45 20 3A 54 45 4B 53 54 20 5A 45 54 31 |RSTE :TEKST ZET1| 00000100: 20 4D 45 20 3A 54 45 4B 53 54 0D 45 4E 44 0D 0D | ME :TEKST.END..| 00000110: 54 4F 20 5A 45 54 52 49 4A 20 3A 4E 20 3A 54 4F |TO ZETRIJ :N :TO| 00000120: 45 54 53 0D 20 4C 4F 4B 41 41 4C 20 22 54 20 4C |ETS. LOKAAL "T L| 00000130: 4F 4B 41 41 4C 20 22 50 0D 20 4D 41 41 4B 20 22 |OKAAL "P. MAAK "| 00000140: 50 20 45 45 52 53 54 45 20 54 4F 45 53 54 41 4E |P EERSTE TOESTAN| 00000150: 44 0D 20 41 4C 53 20 4E 49 45 54 20 47 45 54 41 |D. ALS NIET GETA| 00000160: 4C 3F 20 3A 4E 20 50 52 49 4E 54 20 5B 47 45 54 |L? :N PRINT [GET| 00000170: 41 4C 20 45 45 52 53 54 5D 20 53 54 4F 50 0D 20 |AL EERST] STOP. | 00000180: 41 4C 53 20 3A 4E 20 3E 20 30 20 4D 41 41 4B 20 |ALS :N > 0 MAAK | 00000190: 22 54 20 31 20 41 4E 44 45 52 53 20 4D 41 41 4B |"T 1 ANDERS MAAK| 000001A0: 20 22 54 20 28 20 2D 20 31 20 29 0D 20 41 4C 53 | "T ( - 1 ). ALS| 000001B0: 20 4C 45 45 47 3F 20 3A 54 4F 45 54 53 20 44 41 | LEEG? :TOETS DA| 000001C0: 4E 20 4D 41 41 4B 20 22 54 4F 45 54 53 20 22 20 |N MAAK "TOETS " | 000001D0: 41 4E 44 45 52 53 20 41 4C 53 20 4C 49 4A 53 54 |ANDERS ALS LIJST| 000001E0: 3F 20 3A 54 4F 45 54 53 20 44 41 4E 20 4D 41 41 |? :TOETS DAN MAA| 000001F0: 4B 20 22 54 4F 45 54 53 20 45 45 52 53 54 45 20 |K "TOETS EERSTE | 00000200: 45 45 52 53 54 45 20 3A 54 4F 45 54 53 20 41 4E |EERSTE :TOETS AN| 00000210: 44 45 52 53 20 4D 41 41 4B 20 22 54 4F 45 54 53 |DERS MAAK "TOETS| 00000220: 20 45 45 52 53 54 45 20 3A 54 4F 45 54 53 0D 20 | EERSTE :TOETS. | 00000230: 50 4F 20 48 45 52 48 41 41 4C 20 3A 4E 20 2A 20 |PO HERHAAL :N * | 00000240: 3A 54 20 5B 53 54 45 4D 50 45 4C 20 3A 54 4F 45 |:T [STEMPEL :TOE| 00000250: 54 53 20 56 54 20 38 20 2A 20 3A 54 5D 0D 20 41 |TS VT 8 * :T]. A| 00000260: 4C 53 20 3A 50 20 44 41 4E 20 50 4E 0D 45 4E 44 |LS :P DAN PN.END| 00000270: 0D 0D 54 4F 20 5A 45 54 57 4F 4F 52 44 20 3A 57 |..TO ZETWOORD :W| 00000280: 4F 4F 52 44 0D 20 50 4F 20 56 44 20 4E 41 41 52 |OORD. PO VD NAAR| 00000290: 48 4F 45 4B 20 39 30 0D 20 41 4C 53 20 4B 4F 4C |HOEK 90. ALS KOL| 000002A0: 4F 4D 20 3E 20 33 37 20 41 4C 53 20 52 45 47 45 |OM > 37 ALS REGE| 000002B0: 4C 20 3C 20 31 38 20 44 41 4E 20 4E 41 41 52 50 |L < 18 DAN NAARP| 000002C0: 4C 20 30 20 52 45 47 45 4C 20 2B 20 31 20 41 4E |L 0 REGEL + 1 AN| 000002D0: 44 45 52 53 20 4E 41 41 52 50 4C 20 30 20 30 0D |DERS NAARPL 0 0.| 000002E0: 20 41 4C 53 20 3A 57 4F 4F 52 44 20 3D 20 22 20 | ALS :WOORD = " | 000002F0: 44 41 4E 20 53 54 45 4D 50 45 4C 20 22 20 4E 41 |DAN STEMPEL " NA| 00000300: 41 52 58 20 58 50 4F 53 20 2B 20 38 20 53 54 4F |ARX XPOS + 8 STO| 00000310: 50 0D 20 53 54 45 4D 50 45 4C 20 45 45 52 53 54 |P. STEMPEL EERST| 00000320: 45 20 3A 57 4F 4F 52 44 20 4E 41 41 52 58 20 58 |E :WOORD NAARX X| 00000330: 50 4F 53 20 2B 20 38 0D 20 5A 45 54 57 4F 4F 52 |POS + 8. ZETWOOR| 00000340: 44 20 4D 45 20 3A 57 4F 4F 52 44 0D 45 4E 44 0D |D ME :WOORD.END.| 00000350: 0D 54 4F 20 5A 45 54 52 41 4E 44 0D 20 4C 4F 4B |.TO ZETRAND. LOK| 00000360: 41 41 4C 20 22 58 30 20 4D 41 41 4B 20 22 58 30 |AAL "X0 MAAK "X0| 00000370: 20 58 50 4F 53 20 4C 4F 4B 41 41 4C 20 22 59 30 | XPOS LOKAAL "Y0| 00000380: 20 4D 41 41 4B 20 22 59 30 20 59 50 4F 53 0D 20 | MAAK "Y0 YPOS. | 00000390: 50 4F 20 4E 41 41 52 58 59 20 2D 20 31 36 30 20 |PO NAARXY - 160 | 000003A0: 31 33 30 20 50 4E 20 4E 41 41 52 59 20 2D 20 37 |130 PN NAARY - 7| 000003B0: 35 20 4E 41 41 52 58 20 31 35 39 20 4E 41 41 52 |5 NAARX 159 NAAR| 000003C0: 59 20 31 33 30 20 4E 41 41 52 58 20 2D 20 31 36 |Y 130 NAARX - 16| 000003D0: 30 0D 20 50 4F 20 4E 41 41 52 58 59 20 3A 58 30 |0. PO NAARXY :X0| 000003E0: 20 3A 59 30 0D 45 4E 44 0D 0D 54 4F 20 42 45 47 | :Y0.END..TO BEG| 000003F0: 49 4E 0D 20 50 4F 20 4E 41 41 52 50 4C 20 30 20 |IN. PO NAARPL 0 | 00000400: 30 20 4D 53 20 4E 41 41 52 48 4F 45 4B 20 39 30 |0 MS NAARHOEK 90| 00000410: 0D 45 4E 44 0D 0D 54 4F 20 4E 41 41 52 50 4C 20 |.END..TO NAARPL | 00000420: 3A 4B 4F 4C 4F 4D 20 3A 52 45 47 45 4C 0D 20 4C |:KOLOM :REGEL. L| 00000430: 4F 4B 41 41 4C 20 22 50 20 4D 41 41 4B 20 22 50 |OKAAL "P MAAK "P| 00000440: 20 45 45 52 53 54 45 20 54 4F 45 53 54 41 4E 44 | EERSTE TOESTAND| 00000450: 20 50 4F 0D 20 41 4C 53 20 28 20 45 45 4E 56 41 | PO. ALS ( EENVA| 00000460: 4E 20 3A 52 45 47 45 4C 20 3E 20 31 38 20 3A 52 |N :REGEL > 18 :R| 00000470: 45 47 45 4C 20 3C 20 30 20 3A 4B 4F 4C 4F 4D 20 |EGEL < 0 :KOLOM | 00000480: 3C 20 30 20 3A 4B 4F 4C 4F 4D 20 3E 20 33 38 20 |< 0 :KOLOM > 38 | 00000490: 29 20 44 41 4E 20 50 52 49 4E 54 20 5B 42 55 49 |) DAN PRINT [BUI| 000004A0: 54 45 4E 20 52 41 4E 44 5D 20 53 54 4F 50 0D 20 |TEN RAND] STOP. | 000004B0: 4E 41 41 52 58 20 28 20 3A 4B 4F 4C 4F 4D 20 2D |NAARX ( :KOLOM -| 000004C0: 20 31 39 20 29 20 2A 20 38 0D 20 4E 41 41 52 59 | 19 ) * 8. NAARY| 000004D0: 20 28 20 31 32 20 2D 20 3A 52 45 47 45 4C 20 29 | ( 12 - :REGEL )| 000004E0: 20 2A 20 31 30 2E 34 0D 20 41 4C 53 20 3A 50 20 | * 10.4. ALS :P | 000004F0: 44 41 4E 20 50 4E 0D 45 4E 44 0D 0D 54 4F 20 50 |DAN PN.END..TO P| 00000500: 4C 41 41 54 53 0D 20 52 45 53 55 4C 54 41 41 54 |LAATS. RESULTAAT| 00000510: 20 53 41 4D 45 4E 20 4B 4F 4C 4F 4D 20 52 45 47 | SAMEN KOLOM REG| 00000520: 45 4C 0D 45 4E 44 0D 0D 54 4F 20 52 45 47 45 4C |EL.END..TO REGEL| 00000530: 0D 20 52 45 53 20 49 4E 54 45 47 45 52 20 28 20 |. RES INTEGER ( | 00000540: 31 32 2E 31 20 2D 20 59 50 4F 53 20 2F 20 31 30 |12.1 - YPOS / 10| 00000550: 2E 34 20 29 0D 45 4E 44 0D 0D 54 4F 20 21 5A 0D |.4 ).END..TO !Z.| 00000560: 20 57 45 47 20 5A 45 54 20 57 45 47 20 5A 45 54 | WEG ZET WEG ZET| 00000570: 31 20 57 45 47 20 5A 45 54 52 49 4A 20 57 45 47 |1 WEG ZETRIJ WEG| 00000580: 20 5A 45 54 57 4F 4F 52 44 20 57 45 47 20 5A 45 | ZETWOORD WEG ZE| 00000590: 54 52 41 4E 44 20 57 45 47 20 42 45 47 49 4E 20 |TRAND WEG BEGIN | 000005A0: 57 45 47 20 4E 41 41 52 50 4C 20 57 45 47 20 50 |WEG NAARPL WEG P| 000005B0: 4C 41 41 54 53 20 57 45 47 20 4B 4F 4C 4F 4D 20 |LAATS WEG KOLOM | 000005C0: 57 45 47 20 52 45 47 45 4C 20 57 45 47 20 21 5A |WEG REGEL WEG !Z| 000005D0: 0D 20 2E 47 43 4F 4C 4C 20 50 52 20 2E 4E 4F 44 |. .GCOLL PR .NOD| 000005E0: 45 53 0D 45 4E 44 0D 0D 54 4F 20 4B 4F 4C 4F 4D |ES.END..TO KOLOM| 000005F0: 0D 20 52 45 53 20 49 4E 54 45 47 45 52 20 28 20 |. RES INTEGER ( | 00000600: 58 50 4F 53 20 2F 20 38 20 29 20 2B 20 31 39 0D |XPOS / 8 ) + 19.| 00000610: 45 4E 44 0D 0D |END.. |
. TO ZET :TEKST. SPROOK 0 KOM ZET1 :TEKS T. ALS REGEL < 18 DAN NAARPL 0 REGEL + 1 ANDERS NAARPL 0 0.END..TO ZET1 :TEKST. ALS WOORD? :TEKST DAN ZETWOORD :TEKST NA ARX XPOS - 8 KOM STOP. ALS LEEG? :TEKST DAN NAARX XPOS - 8 KOM STOP. ZETWOORD EE RSTE :TEKST ZET1 ME :TEKST.END..TO ZETRI J :N :TOETS. LOKAAL "T LOKAAL "P. MAAK " P EERSTE TOESTAND. ALS NIET GETAL? :N PR INT [GETAL EERST] STOP. ALS :N > 0 MAAK "T 1 ANDERS MAAK "T ( - 1 ). ALS LEEG? : TOETS DAN MAAK "TOETS " ANDERS ALS LIJST ? :TOETS DAN MAAK "TOETS EERSTE EERSTE : TOETS ANDERS MAAK "TOETS EERSTE :TOETS. PO HERHAAL :N * :T [STEMPEL :TOETS VT 8 * :T]. ALS :P DAN PN.END..TO 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 ZETRAND. LOKAAL "X0 MAAK "X0 XPOS LOKAAL "Y0 MAAK "Y0 YPOS. PO NAARX Y - 160 130 PN NAARY - 75 NAARX 159 NAAR Y 130 NAARX - 160. PO NAARXY :X0 :Y0.END ..TO BEGIN. PO NAARPL 0 0 MS NAARHOEK 90 .END..TO NAARPL :KOLOM :REGEL. LOKAAL "P MAAK "P EERSTE TOESTAND PO. ALS ( EENVA N :REGEL > 18 :REGEL < 0 :KOLOM < 0 :KOL OM > 38 ) DAN PRINT [BUITEN RAND] STOP. NAARX ( :KOLOM - 19 ) * 8. NAARY ( 12 - :REGEL ) * 10.4. ALS :P DAN PN.END..TO P LAATS. RESULTAAT SAMEN KOLOM REGEL.END.. TO REGEL. RES INTEGER ( 12.1 - YPOS / 10 .4 ).END..TO !Z. WEG ZET WEG ZET1 WEG ZE TRIJ WEG ZETWOORD WEG ZETRAND WEG BEGIN WEG NAARPL WEG PLAATS WEG KOLOM WEG REGE L WEG !Z. .GCOLL PR .NODES.END..TO KOLOM . RES INTEGER ( XPOS / 8 ) + 19.END..
> CLICK IMAGE PREVIEW FOR FULL MODAL