00000000: 00 20 54 4F 20 53 54 41 4D 50 20 3A 54 48 49 4E |. TO STAMP :THIN|
00000010: 47 0D 20 4C 4F 43 41 4C 20 22 48 45 41 44 49 4E |G. LOCAL "HEADIN|
00000020: 47 20 4D 41 4B 45 20 22 48 45 41 44 49 4E 47 20 |G MAKE "HEADING |
00000030: 48 45 41 44 49 4E 47 0D 20 4C 4F 43 41 4C 20 22 |HEADING. LOCAL "|
00000040: 50 45 4E 20 4D 41 4B 45 20 22 50 45 4E 20 49 54 |PEN MAKE "PEN IT|
00000050: 45 4D 20 31 20 44 52 41 57 53 54 41 54 45 0D 20 |EM 1 DRAWSTATE. |
00000060: 50 55 20 53 45 54 48 20 39 30 0D 20 53 54 41 4D |PU SETH 90. STAM|
00000070: 50 31 20 3A 54 48 49 4E 47 0D 20 53 45 54 48 20 |P1 :THING. SETH |
00000080: 3A 48 45 41 44 49 4E 47 0D 20 49 46 20 3A 50 45 |:HEADING. IF :PE|
00000090: 4E 20 50 44 0D 45 4E 44 0D 0D 54 4F 20 53 54 41 |N PD.END..TO STA|
000000A0: 4D 50 31 20 3A 54 48 49 4E 47 0D 20 49 46 20 45 |MP1 :THING. IF E|
000000B0: 4D 50 54 59 3F 20 3A 54 48 49 4E 47 20 53 54 4F |MPTY? :THING STO|
000000C0: 50 0D 20 49 46 20 4C 49 53 54 3F 20 3A 54 48 49 |P. IF LIST? :THI|
000000D0: 4E 47 20 53 54 41 4D 50 31 20 46 49 52 53 54 20 |NG STAMP1 FIRST |
000000E0: 3A 54 48 49 4E 47 20 46 44 20 38 20 53 54 41 4D |:THING FD 8 STAM|
000000F0: 50 31 20 42 46 20 3A 54 48 49 4E 47 20 53 54 4F |P1 BF :THING STO|
00000100: 50 0D 20 53 54 41 4D 50 43 48 41 52 20 46 49 52 |P. STAMPCHAR FIR|
00000110: 53 54 20 3A 54 48 49 4E 47 20 46 44 20 38 0D 20 |ST :THING FD 8. |
00000120: 53 54 41 4D 50 31 20 42 46 20 3A 54 48 49 4E 47 |STAMP1 BF :THING|
00000130: 0D 45 4E 44 0D 0D |.END.. |
. TO STAMP :THING. LOCAL "HEADING MAKE "
HEADING HEADING. LOCAL "PEN MAKE "PEN IT
EM 1 DRAWSTATE. PU SETH 90. STAMP1 :THIN
G. SETH :HEADING. IF :PEN PD.END..TO STA
MP1 :THING. IF EMPTY? :THING STOP. IF LI
ST? :THING STAMP1 FIRST :THING FD 8 STAM
P1 BF :THING STOP. STAMPCHAR FIRST :THIN
G FD 8. STAMP1 BF :THING.END..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL