LOGOZETTEN.LOGO
FILE INFORMATION
FILENAME(S): LOGOZETTEN.LOGO
FILE TYPE(S): PRG
FILE SIZE: 1.3K
FIRST SEEN: 2025-11-30 21:05:35
APPEARS ON: 1 disk(s)
FILE HASH
c9e98306f1f7443797f8a680835f7ca83071318e9c916f98f248e0b153a6dc95
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIE | LOGOZETTEN.LOGO | PRG | DuncanTwain | 26 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 20 54 4F 20 21 5A 0D 20 57 45 47 20 5A 45 54 |. TO !Z. WEG ZET| 00000010: 20 57 45 47 20 5A 45 54 31 20 57 45 47 20 5A 45 | WEG ZET1 WEG ZE| 00000020: 54 52 49 4A 20 57 45 47 20 5A 45 54 57 4F 4F 52 |TRIJ WEG ZETWOOR| 00000030: 44 20 57 45 47 20 5A 45 54 52 41 4E 44 20 57 45 |D WEG ZETRAND WE| 00000040: 47 20 42 45 47 49 4E 20 57 45 47 20 4E 41 41 52 |G BEGIN WEG NAAR| 00000050: 50 4C 20 57 45 47 20 50 4C 41 41 54 53 20 57 45 |PL WEG PLAATS WE| 00000060: 47 20 4B 4F 4C 4F 4D 20 57 45 47 20 52 45 47 45 |G KOLOM WEG REGE| 00000070: 4C 20 57 45 47 20 21 5A 0D 20 2E 47 43 4F 4C 4C |L WEG !Z. .GCOLL| 00000080: 20 50 52 20 2E 4E 4F 44 45 53 0D 45 4E 44 0D 0D | PR .NODES.END..| 00000090: 54 4F 20 5A 45 54 20 3A 54 45 4B 53 54 0D 20 4C |TO ZET :TEKST. L| 000000A0: 4F 4B 41 41 4C 20 22 53 20 4D 41 41 4B 20 22 53 |OKAAL "S MAAK "S| 000000B0: 20 57 45 4C 4B 45 0D 20 53 50 52 4F 4F 4B 20 30 | WELKE. SPROOK 0| 000000C0: 20 4B 4F 4D 20 5A 45 54 31 20 3A 54 45 4B 53 54 | KOM ZET1 :TEKST| 000000D0: 0D 20 41 4C 53 20 52 45 47 45 4C 20 3C 20 31 38 |. ALS REGEL < 18| 000000E0: 20 44 41 4E 20 4E 41 41 52 50 4C 20 30 20 52 45 | DAN NAARPL 0 RE| 000000F0: 47 45 4C 20 2B 20 31 20 41 4E 44 45 52 53 20 4E |GEL + 1 ANDERS N| 00000100: 41 41 52 50 4C 20 30 20 30 0D 20 53 50 52 4F 4F |AARPL 0 0. SPROO| 00000110: 4B 20 3A 53 0D 45 4E 44 0D 0D 54 4F 20 5A 45 54 |K :S.END..TO ZET| 00000120: 31 20 3A 54 45 4B 53 54 0D 20 41 4C 53 20 57 4F |1 :TEKST. ALS WO| 00000130: 4F 52 44 3F 20 3A 54 45 4B 53 54 20 44 41 4E 20 |ORD? :TEKST DAN | 00000140: 5A 45 54 57 4F 4F 52 44 20 3A 54 45 4B 53 54 20 |ZETWOORD :TEKST | 00000150: 4B 4F 4D 20 53 54 4F 50 0D 20 41 4C 53 20 4C 45 |KOM STOP. ALS LE| 00000160: 45 47 3F 20 3A 54 45 4B 53 54 20 44 41 4E 20 4E |EG? :TEKST DAN N| 00000170: 41 41 52 58 20 58 50 4F 53 20 2D 20 38 20 4B 4F |AARX XPOS - 8 KO| 00000180: 4D 20 53 54 4F 50 0D 20 5A 45 54 57 4F 4F 52 44 |M STOP. ZETWOORD| 00000190: 20 45 45 52 53 54 45 20 3A 54 45 4B 53 54 20 53 | EERSTE :TEKST S| 000001A0: 54 45 4D 50 45 4C 20 43 48 41 52 20 33 32 20 4E |TEMPEL CHAR 32 N| 000001B0: 41 41 52 58 20 58 50 4F 53 20 2B 20 38 20 5A 45 |AARX XPOS + 8 ZE| 000001C0: 54 31 20 4D 45 20 3A 54 45 4B 53 54 0D 45 4E 44 |T1 ME :TEKST.END| 000001D0: 0D 0D 54 4F 20 5A 45 54 52 49 4A 20 3A 41 41 4E |..TO ZETRIJ :AAN| 000001E0: 54 41 4C 20 3A 54 4F 45 54 53 0D 20 4C 4F 4B 41 |TAL :TOETS. LOKA| 000001F0: 41 4C 20 22 50 20 4D 41 41 4B 20 22 50 20 45 45 |AL "P MAAK "P EE| 00000200: 52 53 54 45 20 54 4F 45 53 54 41 4E 44 0D 20 48 |RSTE TOESTAND. H| 00000210: 45 52 48 41 41 4C 20 3A 41 41 4E 54 41 4C 20 5B |ERHAAL :AANTAL [| 00000220: 53 54 45 4D 50 45 4C 20 3A 54 4F 45 54 53 20 56 |STEMPEL :TOETS V| 00000230: 54 20 38 5D 0D 20 41 4C 53 20 3A 50 20 44 41 4E |T 8]. ALS :P DAN| 00000240: 20 50 4E 0D 45 4E 44 0D 0D 54 4F 20 5A 45 54 57 | PN.END..TO ZETW| 00000250: 4F 4F 52 44 20 3A 57 4F 4F 52 44 0D 20 50 4F 20 |OORD :WOORD. PO | 00000260: 56 44 20 4E 41 41 52 48 4F 45 4B 20 39 30 0D 20 |VD NAARHOEK 90. | 00000270: 41 4C 53 20 4B 4F 4C 4F 4D 20 3E 20 33 37 20 41 |ALS KOLOM > 37 A| 00000280: 4C 53 20 52 45 47 45 4C 20 3C 20 31 38 20 44 41 |LS REGEL < 18 DA| 00000290: 4E 20 4E 41 41 52 50 4C 20 30 20 52 45 47 45 4C |N NAARPL 0 REGEL| 000002A0: 20 2B 20 31 20 41 4E 44 45 52 53 20 4E 41 41 52 | + 1 ANDERS NAAR| 000002B0: 50 4C 20 30 20 30 0D 20 41 4C 53 20 3A 57 4F 4F |PL 0 0. ALS :WOO| 000002C0: 52 44 20 3D 20 22 20 44 41 4E 20 53 54 45 4D 50 |RD = " DAN STEMP| 000002D0: 45 4C 20 22 20 53 54 4F 50 0D 20 53 54 45 4D 50 |EL " STOP. STEMP| 000002E0: 45 4C 20 45 45 52 53 54 45 20 3A 57 4F 4F 52 44 |EL EERSTE :WOORD| 000002F0: 20 4E 41 41 52 58 20 58 50 4F 53 20 2B 20 38 0D | NAARX XPOS + 8.| 00000300: 20 5A 45 54 57 4F 4F 52 44 20 4D 45 20 3A 57 4F | ZETWOORD ME :WO| 00000310: 4F 52 44 0D 45 4E 44 0D 0D 54 4F 20 5A 45 54 52 |ORD.END..TO ZETR| 00000320: 41 4E 44 0D 20 4C 4F 4B 41 41 4C 20 22 58 30 20 |AND. LOKAAL "X0 | 00000330: 4D 41 41 4B 20 22 58 30 20 58 50 4F 53 20 4C 4F |MAAK "X0 XPOS LO| 00000340: 4B 41 41 4C 20 22 59 30 20 4D 41 41 4B 20 22 59 |KAAL "Y0 MAAK "Y| 00000350: 30 20 59 50 4F 53 0D 20 50 4F 20 4E 41 41 52 58 |0 YPOS. PO NAARX| 00000360: 59 20 2D 20 31 36 30 20 31 33 30 20 50 4E 20 4E |Y - 160 130 PN N| 00000370: 41 41 52 59 20 2D 20 37 35 20 4E 41 41 52 58 20 |AARY - 75 NAARX | 00000380: 31 35 39 20 4E 41 41 52 59 20 31 33 30 20 4E 41 |159 NAARY 130 NA| 00000390: 41 52 58 20 2D 20 31 36 30 0D 20 50 4F 20 4E 41 |ARX - 160. PO NA| 000003A0: 41 52 58 59 20 3A 58 30 20 3A 59 30 0D 45 4E 44 |ARXY :X0 :Y0.END| 000003B0: 0D 0D 54 4F 20 42 45 47 49 4E 0D 20 50 4F 20 4E |..TO BEGIN. PO N| 000003C0: 41 41 52 50 4C 20 30 20 30 20 4D 53 20 4E 41 41 |AARPL 0 0 MS NAA| 000003D0: 52 48 4F 45 4B 20 39 30 0D 45 4E 44 0D 0D 54 4F |RHOEK 90.END..TO| 000003E0: 20 4E 41 41 52 50 4C 20 3A 4B 4F 4C 4F 4D 20 3A | NAARPL :KOLOM :| 000003F0: 52 45 47 45 4C 0D 20 4C 4F 4B 41 41 4C 20 22 50 |REGEL. LOKAAL "P| 00000400: 20 4D 41 41 4B 20 22 50 20 45 45 52 53 54 45 20 | MAAK "P EERSTE | 00000410: 54 4F 45 53 54 41 4E 44 0D 20 50 4F 20 41 4C 53 |TOESTAND. PO ALS| 00000420: 20 28 20 45 45 4E 56 41 4E 20 3A 52 45 47 45 4C | ( EENVAN :REGEL| 00000430: 20 3E 20 31 38 20 3A 52 45 47 45 4C 20 3C 20 30 | > 18 :REGEL < 0| 00000440: 20 3A 4B 4F 4C 4F 4D 20 3C 20 30 20 3A 4B 4F 4C | :KOLOM < 0 :KOL| 00000450: 4F 4D 20 3E 20 33 38 20 29 20 44 41 4E 20 50 52 |OM > 38 ) DAN PR| 00000460: 20 5B 42 55 49 54 45 4E 20 52 41 4E 44 5D 20 53 | [BUITEN RAND] S| 00000470: 54 4F 50 0D 20 4E 41 41 52 58 20 28 20 3A 4B 4F |TOP. NAARX ( :KO| 00000480: 4C 4F 4D 20 2D 20 31 39 20 29 20 2A 20 38 0D 20 |LOM - 19 ) * 8. | 00000490: 4E 41 41 52 59 20 28 20 31 32 20 2D 20 3A 52 45 |NAARY ( 12 - :RE| 000004A0: 47 45 4C 20 29 20 2A 20 31 30 2E 34 0D 20 41 4C |GEL ) * 10.4. AL| 000004B0: 53 20 3A 50 20 44 41 4E 20 50 4E 0D 45 4E 44 0D |S :P DAN PN.END.| 000004C0: 0D 54 4F 20 50 4C 41 41 54 53 0D 20 52 45 53 55 |.TO PLAATS. RESU| 000004D0: 4C 54 41 41 54 20 53 41 4D 45 4E 20 4B 4F 4C 4F |LTAAT SAMEN KOLO| 000004E0: 4D 20 52 45 47 45 4C 0D 45 4E 44 0D 0D 54 4F 20 |M REGEL.END..TO | 000004F0: 4B 4F 4C 4F 4D 0D 20 52 45 53 20 49 4E 54 45 47 |KOLOM. RES INTEG| 00000500: 45 52 20 28 20 58 50 4F 53 20 2F 20 38 20 29 20 |ER ( XPOS / 8 ) | 00000510: 2B 20 31 39 0D 45 4E 44 0D 0D 54 4F 20 52 45 47 |+ 19.END..TO REG| 00000520: 45 4C 0D 20 52 45 53 20 49 4E 54 45 47 45 52 20 |EL. RES INTEGER | 00000530: 28 20 31 32 2E 31 20 2D 20 59 50 4F 53 20 2F 20 |( 12.1 - YPOS / | 00000540: 31 30 2E 34 20 29 0D 45 4E 44 0D 0D |10.4 ).END.. |
. TO !Z. WEG ZET WEG ZET1 WEG ZETRIJ WEG ZETWOORD WEG ZETRAND WEG BEGIN WEG NAAR PL WEG PLAATS WEG KOLOM WEG REGEL WEG !Z . .GCOLL PR .NODES.END..TO ZET :TEKST. L OKAAL "S MAAK "S WELKE. SPROOK 0 KOM ZET 1 :TEKST. ALS REGEL < 18 DAN NAARPL 0 RE GEL + 1 ANDERS NAARPL 0 0. SPROOK :S.END ..TO ZET1 :TEKST. ALS WOORD? :TEKST DAN ZETWOORD :TEKST KOM STOP. ALS LEEG? :TEK ST DAN NAARX XPOS - 8 KOM STOP. ZETWOORD EERSTE :TEKST STEMPEL CHAR 32 NAARX XPO S + 8 ZET1 ME :TEKST.END..TO ZETRIJ :AAN TAL :TOETS. LOKAAL "P MAAK "P EERSTE TOE STAND. HERHAAL :AANTAL [STEMPEL :TOETS V T 8]. ALS :P DAN PN.END..TO ZETWOORD :WO ORD. PO VD NAARHOEK 90. ALS KOLOM > 37 A LS REGEL < 18 DAN NAARPL 0 REGEL + 1 AND ERS NAARPL 0 0. ALS :WOORD = " DAN STEMP EL " STOP. STEMPEL EERSTE :WOORD NAARX X POS + 8. ZETWOORD ME :WOORD.END..TO ZETR AND. LOKAAL "X0 MAAK "X0 XPOS LOKAAL "Y0 MAAK "Y0 YPOS. PO NAARXY - 160 130 PN N AARY - 75 NAARX 159 NAARY 130 NAARX - 16 0. PO NAARXY :X0 :Y0.END..TO BEGIN. PO N AARPL 0 0 MS NAARHOEK 90.END..TO NAARPL :KOLOM :REGEL. LOKAAL "P MAAK "P EERSTE TOESTAND. PO ALS ( EENVAN :REGEL > 18 :R EGEL < 0 :KOLOM < 0 :KOLOM > 38 ) DAN PR [BUITEN RAND] STOP. NAARX ( :KOLOM - 19 ) * 8. NAARY ( 12 - :REGEL ) * 10.4. AL S :P DAN PN.END..TO PLAATS. RESULTAAT SA MEN KOLOM REGEL.END..TO KOLOM. RES INTEG ER ( XPOS / 8 ) + 19.END..TO REGEL. RES INTEGER ( 12.1 - YPOS / 10.4 ).END..
> CLICK IMAGE PREVIEW FOR FULL MODAL