_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

IMPRIME.LOGO

FILE INFORMATION

FILENAME(S): IMPRIME.LOGO

FILE TYPE(S): PRG

FILE SIZE: 645b

FIRST SEEN: 2025-12-02 02:15:02

APPEARS ON: 1 disk(s)

FILE HASH

9f1efff95216c05d889e800bd2ce581051d2dbf8f1b78381b31f4dc840739195

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
PANS TAAL 06 IMPRIME.LOGO PRG The BAM Archive 25 4 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 43 4F 4D  50 54 45 20 3A 58 0D 20  |. TO COMPTE :X. |
00000010: 4D 41 4B 45 20 3A 58 20  31 20 2B 20 54 48 49 4E  |MAKE :X 1 + THIN|
00000020: 47 20 3A 58 0D 45 4E 44  0D 0D 54 4F 20 49 4D 50  |G :X.END..TO IMP|
00000030: 52 49 4D 45 33 0D 20 50  52 20 5B 5D 20 50 52 20  |RIME3. PR [] PR |
00000040: 5B 5D 20 50 52 20 5B 5D  0D 20 4E 4F 50 52 49 4E  |[] PR []. NOPRIN|
00000050: 54 45 52 0D 20 45 52 41  53 45 20 50 52 4F 43 45  |TER. ERASE PROCE|
00000060: 44 55 52 45 53 20 2E 47  43 4F 4C 4C 0D 20 52 45  |DURES .GCOLL. RE|
00000070: 41 44 20 22 53 41 55 56  45 0D 45 4E 44 0D 0D 54  |AD "SAUVE.END..T|
00000080: 4F 20 49 4D 50 52 49 4D  45 31 0D 20 49 46 20 3A  |O IMPRIME1. IF :|
00000090: 43 4F 20 3D 20 3A 43 43  20 54 48 45 4E 20 49 4D  |CO = :CC THEN IM|
000000A0: 50 52 49 4D 45 33 0D 20  43 4F 4D 50 54 45 20 22  |PRIME3. COMPTE "|
000000B0: 43 4F 0D 20 4D 41 4B 45  20 22 46 20 49 54 45 4D  |CO. MAKE "F ITEM|
000000C0: 20 3A 43 4F 20 3A 42 0D  20 49 46 20 3A 46 20 3D  | :CO :B. IF :F =|
000000D0: 20 5B 3F 5D 20 54 48 45  4E 20 50 52 20 5B 5D 20  | [?] THEN PR [] |
000000E0: 49 4D 50 52 49 4D 45 31  0D 20 49 46 20 3A 46 20  |IMPRIME1. IF :F |
000000F0: 3D 20 5B 2E 5D 20 54 48  45 4E 20 50 52 49 4E 54  |= [.] THEN PRINT|
00000100: 31 20 43 48 41 52 20 33  32 20 49 4D 50 52 49 4D  |1 CHAR 32 IMPRIM|
00000110: 45 31 0D 20 49 46 20 4E  55 4D 42 45 52 3F 20 3A  |E1. IF NUMBER? :|
00000120: 46 20 54 48 45 4E 20 52  45 50 45 41 54 20 3A 46  |F THEN REPEAT :F|
00000130: 20 5B 50 52 49 4E 54 31  20 43 48 41 52 20 33 32  | [PRINT1 CHAR 32|
00000140: 5D 20 49 4D 50 52 49 4D  45 31 0D 20 50 52 49 4E  |] IMPRIME1. PRIN|
00000150: 54 31 20 3A 46 0D 20 49  4D 50 52 49 4D 45 31 0D  |T1 :F. IMPRIME1.|
00000160: 45 4E 44 0D 0D 54 4F 20  49 4D 50 52 49 4D 45 32  |END..TO IMPRIME2|
00000170: 0D 20 2E 4F 50 54 49 4F  4E 20 22 50 52 49 4E 54  |. .OPTION "PRINT|
00000180: 45 52 20 31 20 37 0D 20  50 52 49 4E 54 45 52 0D  |ER 1 7. PRINTER.|
00000190: 20 49 4D 50 52 49 4D 45  31 0D 45 4E 44 0D 0D 54  | IMPRIME1.END..T|
000001A0: 4F 20 49 4D 50 52 49 4D  45 0D 20 4D 41 4B 45 20  |O IMPRIME. MAKE |
000001B0: 22 43 43 20 43 4F 55 4E  54 20 3A 42 0D 20 4D 41  |"CC COUNT :B. MA|
000001C0: 4B 45 20 22 43 4F 20 30  0D 20 43 4C 45 41 52 54  |KE "CO 0. CLEART|
000001D0: 45 58 54 0D 20 50 52 20  22 27 95 12 20 C5 3D 53  |EXT. PR "'.. .=S|
000001E0: 4F 52 54 49 45 20 45 43  52 41 4E 20 20 92 27 0D  |ORTIE ECRAN  .'.|
000001F0: 20 50 52 20 5B 5D 0D 20  50 52 20 22 27 95 12 20  | PR []. PR "'.. |
00000200: D0 3D 53 4F 52 54 49 45  20 49 4D 50 52 49 4D 41  |.=SORTIE IMPRIMA|
00000210: 4E 54 45 20 20 92 27 0D  20 50 52 20 5B 5D 20 50  |NTE  .'. PR [] P|
00000220: 52 20 5B 5D 20 50 52 20  5B 5D 0D 20 4D 41 4B 45  |R [] PR []. MAKE|
00000230: 20 22 52 20 52 43 0D 20  54 45 58 54 43 4F 4C 4F  | "R RC. TEXTCOLO|
00000240: 52 20 36 0D 20 49 46 20  3A 52 20 3D 20 22 50 20  |R 6. IF :R = "P |
00000250: 54 48 45 4E 20 49 4D 50  52 49 4D 45 32 0D 20 49  |THEN IMPRIME2. I|
00000260: 4D 50 52 49 4D 45 31 0D  45 4E 44 0D 0D 4D 41 4B  |MPRIME1.END..MAK|
00000270: 45 20 22 53 54 41 52 54  55 50 20 5B 49 4D 50 52  |E "STARTUP [IMPR|
00000280: 49 4D 45 5D 0D                                    |IME].           |

. TO COMPTE :X. MAKE :X 1 + THING :X.END
..TO IMPRIME3. PR [] PR [] PR []. NOPRIN
TER. ERASE PROCEDURES .GCOLL. READ "SAUV
E.END..TO IMPRIME1. IF :CO = :CC THEN IM
PRIME3. COMPTE "CO. MAKE "F ITEM :CO :B.
 IF :F = [?] THEN PR [] IMPRIME1. IF :F 
= [.] THEN PRINT1 CHAR 32 IMPRIME1. IF N
UMBER? :F THEN REPEAT :F [PRINT1 CHAR 32
] IMPRIME1. PRINT1 :F. IMPRIME1.END..TO 
IMPRIME2. .OPTION "PRINTER 1 7. PRINTER.
 IMPRIME1.END..TO IMPRIME. MAKE "CC COUN
T :B. MAKE "CO 0. CLEARTEXT. PR "'.. E=S
ORTIE ECRAN  .'. PR []. PR "'.. P=SORTIE
 IMPRIMANTE  .'. PR [] PR [] PR []. MAKE
 "R RC. TEXTCOLOR 6. IF :R = "P THEN IMP
RIME2. IMPRIME1.END..MAKE "STARTUP [IMPR
IME].
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL