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

LG-STAMPER

FILE INFORMATION

FILENAME(S): LG-STAMPER

FILE TYPE(S): PRG

FILE SIZE: 310b

FIRST SEEN: 2025-11-30 21:14:31

APPEARS ON: 1 disk(s)

FILE HASH

52e4aa101ea5f3b5e7fcf4bab0b123dc25acf6193aeda4f627e8e7613f5fcfbc

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
LOGO FILES LG-STAMPER PRG DuncanTwain 20 0 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 53 54 41  4D 50 31 20 3A 54 48 49  |. TO STAMP1 :THI|
00000010: 4E 47 0D 20 49 46 20 45  4D 50 54 59 3F 20 3A 54  |NG. IF EMPTY? :T|
00000020: 48 49 4E 47 20 53 54 4F  50 0D 20 49 46 20 4C 49  |HING STOP. IF LI|
00000030: 53 54 3F 20 3A 54 48 49  4E 47 20 53 54 41 4D 50  |ST? :THING STAMP|
00000040: 31 20 46 49 52 53 54 20  3A 54 48 49 4E 47 20 46  |1 FIRST :THING F|
00000050: 44 20 38 20 53 54 41 4D  50 31 20 42 46 20 3A 54  |D 8 STAMP1 BF :T|
00000060: 48 49 4E 47 20 53 54 4F  50 0D 20 53 54 41 4D 50  |HING STOP. STAMP|
00000070: 43 48 41 52 20 46 49 52  53 54 20 3A 54 48 49 4E  |CHAR FIRST :THIN|
00000080: 47 20 46 44 20 38 0D 20  53 54 41 4D 50 31 20 42  |G FD 8. STAMP1 B|
00000090: 46 20 3A 54 48 49 4E 47  0D 45 4E 44 0D 0D 54 4F  |F :THING.END..TO|
000000A0: 20 53 54 41 4D 50 20 3A  54 48 49 4E 47 0D 20 4C  | STAMP :THING. L|
000000B0: 4F 43 41 4C 20 22 48 45  41 44 49 4E 47 20 4D 41  |OCAL "HEADING MA|
000000C0: 4B 45 20 22 48 45 41 44  49 4E 47 20 48 45 41 44  |KE "HEADING HEAD|
000000D0: 49 4E 47 0D 20 4C 4F 43  41 4C 20 22 50 45 4E 20  |ING. LOCAL "PEN |
000000E0: 4D 41 4B 45 20 22 50 45  4E 20 49 54 45 4D 20 31  |MAKE "PEN ITEM 1|
000000F0: 20 44 52 41 57 53 54 41  54 45 0D 20 50 55 20 53  | DRAWSTATE. PU S|
00000100: 45 54 48 20 39 30 0D 20  53 54 41 4D 50 31 20 3A  |ETH 90. STAMP1 :|
00000110: 54 48 49 4E 47 0D 20 53  45 54 48 20 3A 48 45 41  |THING. SETH :HEA|
00000120: 44 49 4E 47 0D 20 49 46  20 3A 50 45 4E 20 50 44  |DING. IF :PEN PD|
00000130: 0D 45 4E 44 0D 0D                                 |.END..          |

. TO STAMP1 :THING. IF EMPTY? :THING STO
P. IF LIST? :THING STAMP1 FIRST :THING F
D 8 STAMP1 BF :THING STOP. STAMPCHAR FIR
ST :THING FD 8. STAMP1 BF :THING.END..TO
 STAMP :THING. LOCAL "HEADING MAKE "HEAD
ING HEADING. LOCAL "PEN MAKE "PEN ITEM 1
 DRAWSTATE. PU SETH 90. STAMP1 :THING. S
ETH :HEADING. IF :PEN PD.END..
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL