LOGOPRINTV.LOGO
FILE INFORMATION
FILENAME(S): LOGOPRINTV.LOGO
FILE TYPE(S): PRG
FILE SIZE: 998b
FIRST SEEN: 2025-11-30 21:12:55
APPEARS ON: 3 disk(s)
FILE HASH
8864fefc7c2b45b405c00a4dfcbed2a47cacba43b3660948546529e23f251d5f
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOGO NEDERLANDS | LOGOPRINTV.LOGO | PRG | DuncanTwain | 20 | 2 | DOWNLOAD FILE |
| LOGO NEDERLANDS | LOGOPRINTV.LOGO | PRG | DuncanTwain | 20 | 2 | DOWNLOAD FILE |
| LOGO NEDERLANDS | LOGOPRINTV.LOGO | PRG | DuncanTwain | 20 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 20 54 4F 20 21 50 0D 20 57 45 47 20 5B 52 52 |. TO !P. WEG [RR| 00000010: 20 4C 52 20 50 52 49 4E 54 52 45 47 45 4C 20 50 | LR PRINTREGEL P| 00000020: 52 49 4E 54 56 4F 52 4D 20 50 52 49 4E 54 56 4F |RINTVORM PRINTVO| 00000030: 52 4D 45 4E 20 4D 41 41 4B 43 48 52 53 20 21 50 |RMEN MAAKCHRS !P| 00000040: 5D 0D 20 2E 47 43 4F 4C 4C 20 50 52 20 2E 4E 4F |]. .GCOLL PR .NO| 00000050: 44 45 53 0D 45 4E 44 0D 0D 54 4F 20 50 52 49 4E |DES.END..TO PRIN| 00000060: 54 52 45 47 45 4C 20 3A 53 0D 20 28 20 50 52 49 |TREGEL :S. ( PRI| 00000070: 4E 54 31 20 43 48 41 52 20 31 35 20 43 48 41 52 |NT1 CHAR 15 CHAR| 00000080: 20 34 32 20 43 48 41 52 20 33 32 20 43 48 41 52 | 42 CHAR 32 CHAR| 00000090: 20 33 32 20 4D 41 41 4B 43 48 52 53 20 2E 45 58 | 32 MAAKCHRS .EX| 000000A0: 41 4D 49 4E 45 20 3A 53 20 4D 41 41 4B 43 48 52 |AMINE :S MAAKCHR| 000000B0: 53 20 2E 45 58 41 4D 49 4E 45 20 3A 53 20 2B 20 |S .EXAMINE :S + | 000000C0: 31 20 4D 41 41 4B 43 48 52 53 20 2E 45 58 41 4D |1 MAAKCHRS .EXAM| 000000D0: 49 4E 45 20 3A 53 20 2B 20 32 20 43 48 41 52 20 |INE :S + 2 CHAR | 000000E0: 33 32 20 43 48 41 52 20 33 32 20 43 48 41 52 20 |32 CHAR 32 CHAR | 000000F0: 34 32 20 43 48 41 52 20 38 20 43 48 41 52 20 31 |42 CHAR 8 CHAR 1| 00000100: 33 20 29 0D 45 4E 44 0D 0D 54 4F 20 4C 52 0D 20 |3 ).END..TO LR. | 00000110: 50 52 49 4E 54 20 28 20 57 4F 4F 52 44 20 43 48 |PRINT ( WOORD CH| 00000120: 41 52 20 31 35 20 22 2A 20 53 50 20 32 38 20 22 |AR 15 "* SP 28 "| 00000130: 2A 20 43 48 41 52 20 38 20 29 0D 45 4E 44 0D 0D |* CHAR 8 ).END..| 00000140: 54 4F 20 52 52 0D 20 50 52 49 4E 54 20 28 20 57 |TO RR. PRINT ( W| 00000150: 4F 4F 52 44 20 43 48 41 52 20 31 35 20 22 2A 2A |OORD CHAR 15 "**| 00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 43 48 41 |************ CHA| 00000180: 52 20 38 20 29 0D 45 4E 44 0D 0D 54 4F 20 50 52 |R 8 ).END..TO PR| 00000190: 49 4E 54 56 4F 52 4D 20 3A 4E 0D 20 4C 4F 4B 41 |INTVORM :N. LOKA| 000001A0: 41 4C 20 22 53 20 4D 41 41 4B 20 22 53 20 33 30 |AL "S MAAK "S 30| 000001B0: 37 32 20 2B 20 3A 4E 20 2A 20 36 34 0D 20 50 52 |72 + :N * 64. PR| 000001C0: 49 4E 54 45 52 20 2E 4B 45 55 5A 45 20 22 49 4E |INTER .KEUZE "IN| 000001D0: 54 45 52 20 30 20 31 0D 20 50 52 20 5B 5D 0D 20 |TER 0 1. PR []. | 000001E0: 28 20 50 52 49 4E 54 20 53 50 20 31 30 20 5B 56 |( PRINT SP 10 [V| 000001F0: 4F 52 4D 5D 20 3A 4E 20 29 20 50 52 20 5B 5D 0D |ORM] :N ) PR [].| 00000200: 20 52 52 20 4C 52 20 4C 52 0D 20 48 45 52 48 41 | RR LR LR. HERHA| 00000210: 41 4C 20 32 31 20 5B 50 52 49 4E 54 52 45 47 45 |AL 21 [PRINTREGE| 00000220: 4C 20 3A 53 20 4D 41 41 4B 20 22 53 20 3A 53 20 |L :S MAAK "S :S | 00000230: 2B 20 33 5D 0D 20 4C 52 20 4C 52 20 52 52 0D 20 |+ 3]. LR LR RR. | 00000240: 28 20 50 52 49 4E 54 31 20 43 48 41 52 20 31 35 |( PRINT1 CHAR 15| 00000250: 20 43 48 41 52 20 31 33 20 29 0D 20 53 54 4F 50 | CHAR 13 ). STOP| 00000260: 50 52 49 4E 54 45 52 0D 20 2E 4B 45 55 5A 45 20 |PRINTER. .KEUZE | 00000270: 22 49 4E 54 45 52 20 30 20 30 0D 45 4E 44 0D 0D |"INTER 0 0.END..| 00000280: 54 4F 20 50 52 49 4E 54 56 4F 52 4D 45 4E 0D 20 |TO PRINTVORMEN. | 00000290: 4C 4F 4B 41 41 4C 20 22 58 20 4D 41 41 4B 20 22 |LOKAAL "X MAAK "| 000002A0: 58 20 31 0D 20 48 45 52 48 41 41 4C 20 37 20 5B |X 1. HERHAAL 7 [| 000002B0: 50 52 49 4E 54 56 4F 52 4D 20 3A 58 20 4D 41 41 |PRINTVORM :X MAA| 000002C0: 4B 20 22 58 20 3A 58 20 2B 20 31 5D 0D 45 4E 44 |K "X :X + 1].END| 000002D0: 0D 0D 54 4F 20 4D 41 41 4B 43 48 52 53 20 3A 42 |..TO MAAKCHRS :B| 000002E0: 59 54 45 0D 20 4C 4F 4B 41 41 4C 20 22 43 48 52 |YTE. LOKAAL "CHR| 000002F0: 53 20 4D 41 41 4B 20 22 43 48 52 53 20 22 0D 20 |S MAAK "CHRS ". | 00000300: 41 4C 53 20 3A 42 59 54 45 20 3D 20 30 20 44 41 |ALS :BYTE = 0 DA| 00000310: 4E 20 52 45 53 20 53 50 20 38 20 53 54 4F 50 0D |N RES SP 8 STOP.| 00000320: 20 48 45 52 48 41 41 4C 20 38 20 5B 4D 41 41 4B | HERHAAL 8 [MAAK| 00000330: 20 22 43 48 52 53 20 57 4F 4F 52 44 20 28 20 43 | "CHRS WOORD ( C| 00000340: 48 41 52 20 28 20 52 45 53 54 20 3A 42 59 54 45 |HAR ( REST :BYTE| 00000350: 20 32 20 29 20 2A 20 38 31 20 2B 20 33 32 20 29 | 2 ) * 81 + 32 )| 00000360: 20 3A 43 48 52 53 20 4D 41 41 4B 20 22 42 59 54 | :CHRS MAAK "BYT| 00000370: 45 20 51 55 4F 54 49 45 4E 54 20 3A 42 59 54 45 |E QUOTIENT :BYTE| 00000380: 20 32 5D 0D 20 52 45 53 20 3A 43 48 52 53 0D 45 | 2]. RES :CHRS.E| 00000390: 4E 44 0D 0D 54 4F 20 53 50 20 3A 41 41 4E 54 41 |ND..TO SP :AANTA| 000003A0: 4C 0D 20 41 4C 53 20 3A 41 41 4E 54 41 4C 20 3D |L. ALS :AANTAL =| 000003B0: 20 31 20 52 45 53 20 43 48 41 52 20 33 32 0D 20 | 1 RES CHAR 32. | 000003C0: 52 45 53 20 57 4F 4F 52 44 20 43 48 41 52 20 33 |RES WOORD CHAR 3| 000003D0: 32 20 53 50 20 3A 41 41 4E 54 41 4C 20 2D 20 31 |2 SP :AANTAL - 1| 000003E0: 0D 45 4E 44 0D 0D |.END.. |
. TO !P. WEG [RR LR PRINTREGEL PRINTVORM PRINTVORMEN MAAKCHRS !P]. .GCOLL PR .NO DES.END..TO PRINTREGEL :S. ( PRINT1 CHAR 15 CHAR 42 CHAR 32 CHAR 32 MAAKCHRS .EX AMINE :S MAAKCHRS .EXAMINE :S + 1 MAAKCH RS .EXAMINE :S + 2 CHAR 32 CHAR 32 CHAR 42 CHAR 8 CHAR 13 ).END..TO LR. PRINT ( WOORD CHAR 15 "* SP 28 "* CHAR 8 ).END.. TO RR. PRINT ( WOORD CHAR 15 "********** ******************** CHAR 8 ).END..TO PR INTVORM :N. LOKAAL "S MAAK "S 3072 + :N * 64. PRINTER .KEUZE "INTER 0 1. PR []. ( PRINT SP 10 [VORM] :N ) PR []. RR LR L R. HERHAAL 21 [PRINTREGEL :S MAAK "S :S + 3]. LR LR RR. ( PRINT1 CHAR 15 CHAR 13 ). STOPPRINTER. .KEUZE "INTER 0 0.END.. TO PRINTVORMEN. LOKAAL "X MAAK "X 1. HER HAAL 7 [PRINTVORM :X MAAK "X :X + 1].END ..TO MAAKCHRS :BYTE. LOKAAL "CHRS MAAK " CHRS ". ALS :BYTE = 0 DAN RES SP 8 STOP. HERHAAL 8 [MAAK "CHRS WOORD ( CHAR ( RE ST :BYTE 2 ) * 81 + 32 ) :CHRS MAAK "BYT E QUOTIENT :BYTE 2]. RES :CHRS.END..TO S P :AANTAL. ALS :AANTAL = 1 RES CHAR 32. RES WOORD CHAR 32 SP :AANTAL - 1.END..
> CLICK IMAGE PREVIEW FOR FULL MODAL