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

STAMPER.LOGO

FILE INFORMATION

FILENAME(S): STAMPER.LOGO

FILE TYPE(S): PRG

FILE SIZE: 382b

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

APPEARS ON: 2 disk(s)

FILE HASH

af14577bb08cf2507a0f490f7ba0f5c336fb2d612976cd4503b591efb55531ef

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CBM 64 LOGO STAMPER.LOGO PRG DuncanTwain 21 15 DOWNLOAD FILE
P31A LOGO STAMPER.LOGO PRG DuncanTwain 23 15 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 54 55 52  54 4C 45 50 52 49 4E 54  |. TO TURTLEPRINT|
00000010: 20 3A 54 48 49 4E 47 0D  20 49 46 20 45 4D 50 54  | :THING. IF EMPT|
00000020: 59 3F 20 3A 54 48 49 4E  47 20 53 54 4F 50 0D 20  |Y? :THING STOP. |
00000030: 49 46 20 4C 49 53 54 3F  20 3A 54 48 49 4E 47 20  |IF LIST? :THING |
00000040: 54 55 52 54 4C 45 50 52  49 4E 54 20 46 49 52 53  |TURTLEPRINT FIRS|
00000050: 54 20 3A 54 48 49 4E 47  20 54 55 52 54 4C 45 50  |T :THING TURTLEP|
00000060: 52 49 4E 54 20 42 46 20  3A 54 48 49 4E 47 20 53  |RINT BF :THING S|
00000070: 54 4F 50 0D 20 53 54 41  4D 50 57 4F 52 44 20 3A  |TOP. STAMPWORD :|
00000080: 54 48 49 4E 47 0D 45 4E  44 0D 0D 54 4F 20 53 54  |THING.END..TO ST|
00000090: 41 4D 50 57 4F 52 44 20  3A 57 4F 52 44 0D 20 4C  |AMPWORD :WORD. L|
000000A0: 4F 43 41 4C 20 22 48 20  4C 4F 43 41 4C 20 22 50  |OCAL "H LOCAL "P|
000000B0: 45 4E 3F 0D 20 4D 41 4B  45 20 22 48 20 48 45 41  |EN?. MAKE "H HEA|
000000C0: 44 49 4E 47 20 4D 41 4B  45 20 22 50 45 4E 3F 20  |DING MAKE "PEN? |
000000D0: 46 49 52 53 54 20 44 52  41 57 53 54 41 54 45 0D  |FIRST DRAWSTATE.|
000000E0: 20 53 45 54 48 20 39 30  20 50 55 0D 20 53 54 41  | SETH 90 PU. STA|
000000F0: 4D 50 57 4F 52 44 31 20  3A 57 4F 52 44 0D 20 53  |MPWORD1 :WORD. S|
00000100: 45 54 48 20 3A 48 0D 20  49 46 20 3A 50 45 4E 3F  |ETH :H. IF :PEN?|
00000110: 20 50 44 0D 45 4E 44 0D  0D 54 4F 20 53 54 41 4D  | PD.END..TO STAM|
00000120: 50 57 4F 52 44 31 20 3A  57 4F 52 44 0D 20 49 46  |PWORD1 :WORD. IF|
00000130: 20 45 4D 50 54 59 3F 20  3A 57 4F 52 44 20 46 44  | EMPTY? :WORD FD|
00000140: 20 38 20 53 54 4F 50 0D  20 53 54 41 4D 50 43 48  | 8 STOP. STAMPCH|
00000150: 41 52 20 46 49 52 53 54  20 3A 57 4F 52 44 20 46  |AR FIRST :WORD F|
00000160: 44 20 38 0D 20 53 54 41  4D 50 57 4F 52 44 31 20  |D 8. STAMPWORD1 |
00000170: 42 46 20 3A 57 4F 52 44  0D 45 4E 44 0D 0D        |BF :WORD.END..  |

. TO TURTLEPRINT :THING. IF EMPTY? :THIN
G STOP. IF LIST? :THING TURTLEPRINT FIRS
T :THING TURTLEPRINT BF :THING STOP. STA
MPWORD :THING.END..TO STAMPWORD :WORD. L
OCAL "H LOCAL "PEN?. MAKE "H HEADING MAK
E "PEN? FIRST DRAWSTATE. SETH 90 PU. STA
MPWORD1 :WORD. SETH :H. IF :PEN? PD.END.
.TO STAMPWORD1 :WORD. IF EMPTY? :WORD FD
 8 STOP. STAMPCHAR FIRST :WORD FD 8. STA
MPWORD1 BF :WORD.END..
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL