LOGOPRINTV.LOGO
FILE INFORMATION
FILENAME(S): LOGOPRINTV.LOGO
FILE TYPE(S): PRG
FILE SIZE: 1012b
FIRST SEEN: 2025-11-30 21:05:35
APPEARS ON: 2 disk(s)
FILE HASH
d26072f95651df5e03ef8fb2047807e5f24eae70b31297449c52e09575215f5d
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIE | LOGOPRINTV.LOGO | PRG | DuncanTwain | 26 | 3 | DOWNLOAD FILE |
| LOGO | LOGOPRINTV.LOGO | PRG | DuncanTwain | 20 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 20 54 4F 20 53 50 20 3A 41 41 4E 54 41 4C 0D |. TO SP :AANTAL.| 00000010: 20 41 4C 53 20 3A 41 41 4E 54 41 4C 20 3D 20 31 | ALS :AANTAL = 1| 00000020: 20 52 45 53 20 43 48 41 52 20 33 32 0D 20 52 45 | RES CHAR 32. RE| 00000030: 53 20 57 4F 4F 52 44 20 43 48 41 52 20 33 32 20 |S WOORD CHAR 32 | 00000040: 53 50 20 3A 41 41 4E 54 41 4C 20 2D 20 31 0D 45 |SP :AANTAL - 1.E| 00000050: 4E 44 0D 0D 54 4F 20 4D 41 41 4B 43 48 52 53 20 |ND..TO MAAKCHRS | 00000060: 3A 42 59 54 45 0D 20 4C 4F 4B 41 41 4C 20 22 43 |:BYTE. LOKAAL "C| 00000070: 48 52 53 20 4D 41 41 4B 20 22 43 48 52 53 20 22 |HRS MAAK "CHRS "| 00000080: 0D 20 41 4C 53 20 3A 42 59 54 45 20 3D 20 30 20 |. ALS :BYTE = 0 | 00000090: 44 41 4E 20 52 45 53 20 53 50 20 38 20 53 54 4F |DAN RES SP 8 STO| 000000A0: 50 0D 20 48 45 52 48 41 41 4C 20 38 20 5B 4D 41 |P. HERHAAL 8 [MA| 000000B0: 41 4B 20 22 43 48 52 53 20 57 4F 4F 52 44 20 28 |AK "CHRS WOORD (| 000000C0: 43 48 41 52 20 28 52 45 53 54 20 3A 42 59 54 45 |CHAR (REST :BYTE| 000000D0: 20 32 29 2A 20 38 31 20 2B 20 33 32 29 20 3A 43 | 2)* 81 + 32) :C| 000000E0: 48 52 53 20 4D 41 41 4B 20 22 42 59 54 45 20 51 |HRS MAAK "BYTE Q| 000000F0: 55 4F 54 49 45 4E 54 20 3A 42 59 54 45 20 32 5D |UOTIENT :BYTE 2]| 00000100: 0D 20 52 45 53 20 3A 43 48 52 53 0D 45 4E 44 0D |. RES :CHRS.END.| 00000110: 0D 54 4F 20 50 52 49 4E 54 56 4F 52 4D 45 4E 0D |.TO PRINTVORMEN.| 00000120: 20 4C 4F 4B 41 41 4C 20 22 58 20 4D 41 41 4B 20 | LOKAAL "X MAAK | 00000130: 22 58 20 31 0D 20 48 45 52 48 41 41 4C 20 37 20 |"X 1. HERHAAL 7 | 00000140: 5B 50 52 49 4E 54 56 4F 52 4D 20 3A 58 20 4D 41 |[PRINTVORM :X MA| 00000150: 41 4B 20 22 58 20 3A 58 2B 31 5D 0D 45 4E 44 0D |AK "X :X+1].END.| 00000160: 0D 54 4F 20 50 52 49 4E 54 56 4F 52 4D 20 3A 4E |.TO PRINTVORM :N| 00000170: 0D 20 4C 4F 4B 41 41 4C 20 22 53 20 4D 41 41 4B |. LOKAAL "S MAAK| 00000180: 20 22 53 20 33 30 37 32 20 2B 20 3A 4E 20 2A 20 | "S 3072 + :N * | 00000190: 36 34 0D 20 50 52 49 4E 54 45 52 20 2E 4B 45 55 |64. PRINTER .KEU| 000001A0: 5A 45 20 22 49 4E 54 45 52 20 30 20 31 0D 20 50 |ZE "INTER 0 1. P| 000001B0: 52 20 5B 5D 0D 20 28 20 50 52 49 4E 54 20 53 50 |R []. ( PRINT SP| 000001C0: 20 31 30 20 5B 56 4F 52 4D 5D 20 3A 4E 20 29 20 | 10 [VORM] :N ) | 000001D0: 50 52 20 5B 5D 0D 20 52 52 20 4C 52 20 4C 52 0D |PR []. RR LR LR.| 000001E0: 20 48 45 52 48 41 41 4C 20 32 31 20 5B 50 52 49 | HERHAAL 21 [PRI| 000001F0: 4E 54 52 45 47 45 4C 20 3A 53 20 4D 41 41 4B 20 |NTREGEL :S MAAK | 00000200: 22 53 20 3A 53 20 2B 20 33 5D 0D 20 4C 52 20 4C |"S :S + 3]. LR L| 00000210: 52 20 52 52 0D 20 28 20 50 52 49 4E 54 31 20 43 |R RR. ( PRINT1 C| 00000220: 48 41 52 20 31 35 20 43 48 41 52 20 31 33 20 29 |HAR 15 CHAR 13 )| 00000230: 0D 20 53 54 4F 50 50 52 49 4E 54 45 52 0D 20 2E |. STOPPRINTER. .| 00000240: 4B 45 55 5A 45 20 22 49 4E 54 45 52 20 30 20 30 |KEUZE "INTER 0 0| 00000250: 0D 45 4E 44 0D 0D 54 4F 20 50 52 49 4E 54 52 45 |.END..TO PRINTRE| 00000260: 47 45 4C 20 3A 53 0D 20 28 20 50 52 49 4E 54 31 |GEL :S. ( PRINT1| 00000270: 20 43 48 41 52 20 31 35 20 43 48 41 52 20 34 32 | CHAR 15 CHAR 42| 00000280: 20 43 48 41 52 20 33 32 20 43 48 41 52 20 33 32 | CHAR 32 CHAR 32| 00000290: 20 4D 41 41 4B 43 48 52 53 20 2E 45 58 41 4D 49 | MAAKCHRS .EXAMI| 000002A0: 4E 45 20 3A 53 20 4D 41 41 4B 43 48 52 53 20 2E |NE :S MAAKCHRS .| 000002B0: 45 58 41 4D 49 4E 45 20 3A 53 20 2B 20 31 20 4D |EXAMINE :S + 1 M| 000002C0: 41 41 4B 43 48 52 53 20 2E 45 58 41 4D 49 4E 45 |AAKCHRS .EXAMINE| 000002D0: 20 3A 53 20 2B 20 32 20 43 48 41 52 20 33 32 20 | :S + 2 CHAR 32 | 000002E0: 43 48 41 52 20 33 32 20 43 48 41 52 20 34 32 20 |CHAR 32 CHAR 42 | 000002F0: 43 48 41 52 20 38 20 43 48 41 52 20 31 33 20 29 |CHAR 8 CHAR 13 )| 00000300: 0D 45 4E 44 0D 0D 54 4F 20 4C 52 0D 20 50 52 49 |.END..TO LR. PRI| 00000310: 4E 54 20 28 20 57 4F 4F 52 44 20 43 48 41 52 20 |NT ( WOORD CHAR | 00000320: 31 35 20 22 2A 20 53 50 20 32 38 20 22 2A 20 43 |15 "* SP 28 "* C| 00000330: 48 41 52 20 38 20 29 0D 45 4E 44 0D 0D 54 4F 20 |HAR 8 ).END..TO | 00000340: 52 52 0D 20 50 52 49 4E 54 20 28 20 57 4F 4F 52 |RR. PRINT ( WOOR| 00000350: 44 20 43 48 41 52 20 31 35 20 22 2A 2A 2A 2A 2A |D CHAR 15 "*****| 00000360: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000370: 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 43 48 41 52 20 38 |********* CHAR 8| 00000380: 20 29 0D 45 4E 44 0D 0D 54 4F 20 21 50 0D 20 57 | ).END..TO !P. W| 00000390: 45 47 20 52 52 20 57 45 47 20 4C 52 20 57 45 47 |EG RR WEG LR WEG| 000003A0: 20 50 52 49 4E 54 52 45 47 45 4C 20 57 45 47 20 | PRINTREGEL WEG | 000003B0: 50 52 49 4E 54 56 4F 52 4D 20 57 45 47 20 50 52 |PRINTVORM WEG PR| 000003C0: 49 4E 54 56 4F 52 4D 45 4E 20 57 45 47 20 4D 41 |INTVORMEN WEG MA| 000003D0: 41 4B 43 48 52 53 20 57 45 47 20 21 50 20 2E 47 |AKCHRS WEG !P .G| 000003E0: 43 4F 4C 4C 20 50 52 20 2E 4E 4F 44 45 53 0D 45 |COLL PR .NODES.E| 000003F0: 4E 44 0D 0D |ND.. |
. TO SP :AANTAL. ALS :AANTAL = 1 RES CHA R 32. RES WOORD CHAR 32 SP :AANTAL - 1.E ND..TO MAAKCHRS :BYTE. LOKAAL "CHRS MAAK "CHRS ". ALS :BYTE = 0 DAN RES SP 8 STO P. HERHAAL 8 [MAAK "CHRS WOORD (CHAR (RE ST :BYTE 2)* 81 + 32) :CHRS MAAK "BYTE Q UOTIENT :BYTE 2]. RES :CHRS.END..TO PRIN TVORMEN. LOKAAL "X MAAK "X 1. HERHAAL 7 [PRINTVORM :X MAAK "X :X+1].END..TO PRIN TVORM :N. LOKAAL "S MAAK "S 3072 + :N * 64. PRINTER .KEUZE "INTER 0 1. PR []. ( PRINT SP 10 [VORM] :N ) PR []. RR LR LR. HERHAAL 21 [PRINTREGEL :S MAAK "S :S + 3]. LR LR RR. ( PRINT1 CHAR 15 CHAR 13 ) . STOPPRINTER. .KEUZE "INTER 0 0.END..TO PRINTREGEL :S. ( PRINT1 CHAR 15 CHAR 42 CHAR 32 CHAR 32 MAAKCHRS .EXAMINE :S MA AKCHRS .EXAMINE :S + 1 MAAKCHRS .EXAMINE :S + 2 CHAR 32 CHAR 32 CHAR 42 CHAR 8 C HAR 13 ).END..TO LR. PRINT ( WOORD CHAR 15 "* SP 28 "* CHAR 8 ).END..TO RR. PRIN T ( WOORD CHAR 15 "********************* ********* CHAR 8 ).END..TO !P. WEG RR WE G LR WEG PRINTREGEL WEG PRINTVORM WEG PR INTVORMEN WEG MAAKCHRS WEG !P .GCOLL PR .NODES.END..
> CLICK IMAGE PREVIEW FOR FULL MODAL