STAMPER.LOGO
FILE INFORMATION
FILENAME(S): STAMPER.LOGO
FILE TYPE(S): PRG
FILE SIZE: 383b
FIRST SEEN: 2025-11-30 21:06:56
APPEARS ON: 1 disk(s)
FILE HASH
f75e79ad5c1040de2de3f9a001c22a4d433f9b56d6cc6a1c0ff75d6150c676bb
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 0020B | STAMPER.LOGO | PRG | DuncanTwain | 19 | 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 20 |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..
> CLICK IMAGE PREVIEW FOR FULL MODAL