00000000: 00 20 54 4F 20 54 53 3F 0D 20 4C 4F 43 41 4C 20 |. TO TS?. LOCAL |
00000010: 22 54 0D 20 4D 41 4B 45 20 22 54 20 2E 45 58 41 |"T. MAKE "T .EXA|
00000020: 4D 49 4E 45 20 35 33 32 37 38 0D 20 4F 50 20 30 |MINE 53278. OP 0|
00000030: 20 3C 20 42 49 54 41 4E 44 20 2E 45 58 41 4D 49 | < BITAND .EXAMI|
00000040: 4E 45 20 35 33 32 37 38 20 45 58 50 32 20 57 48 |NE 53278 EXP2 WH|
00000050: 4F 0D 45 4E 44 0D 0D 54 4F 20 45 41 43 48 31 20 |O.END..TO EACH1 |
00000060: 3A 45 2E 57 48 4F 0D 20 49 46 20 45 4D 50 54 59 |:E.WHO. IF EMPTY|
00000070: 3F 20 3A 45 2E 57 48 4F 20 53 54 4F 50 0D 20 54 |? :E.WHO STOP. T|
00000080: 45 4C 4C 20 46 49 52 53 54 20 3A 45 2E 57 48 4F |ELL FIRST :E.WHO|
00000090: 20 52 55 4E 20 3A 45 2E 57 48 41 54 0D 20 45 41 | RUN :E.WHAT. EA|
000000A0: 43 48 31 20 42 46 20 3A 45 2E 57 48 4F 0D 45 4E |CH1 BF :E.WHO.EN|
000000B0: 44 0D 0D 54 4F 20 45 41 43 48 20 3A 45 2E 57 48 |D..TO EACH :E.WH|
000000C0: 4F 20 3A 45 2E 57 48 41 54 0D 20 4C 4F 43 41 4C |O :E.WHAT. LOCAL|
000000D0: 20 22 4F 2E 57 48 4F 20 4D 41 4B 45 20 22 4F 2E | "O.WHO MAKE "O.|
000000E0: 57 48 4F 20 57 48 4F 0D 20 45 41 43 48 31 20 3A |WHO WHO. EACH1 :|
000000F0: 45 2E 57 48 4F 0D 20 54 45 4C 4C 20 3A 4F 2E 57 |E.WHO. TELL :O.W|
00000100: 48 4F 0D 45 4E 44 0D 0D 54 4F 20 41 53 4B 20 3A |HO.END..TO ASK :|
00000110: 4E 20 3A 43 4F 4D 4D 41 4E 44 2E 4C 49 53 54 0D |N :COMMAND.LIST.|
00000120: 20 4C 4F 43 41 4C 20 22 43 55 52 52 45 4E 54 0D | LOCAL "CURRENT.|
00000130: 20 4D 41 4B 45 20 22 43 55 52 52 45 4E 54 20 57 | MAKE "CURRENT W|
00000140: 48 4F 0D 20 54 45 4C 4C 20 3A 4E 20 52 55 4E 20 |HO. TELL :N RUN |
00000150: 3A 43 4F 4D 4D 41 4E 44 2E 4C 49 53 54 0D 20 54 |:COMMAND.LIST. T|
00000160: 45 4C 4C 20 3A 43 55 52 52 45 4E 54 0D 45 4E 44 |ELL :CURRENT.END|
00000170: 0D 0D 54 4F 20 53 4D 41 4C 4C 58 0D 20 2E 44 45 |..TO SMALLX. .DE|
00000180: 50 4F 53 49 54 20 35 33 32 37 37 20 42 49 54 41 |POSIT 53277 BITA|
00000190: 4E 44 20 32 35 35 20 2D 20 45 58 50 32 20 57 48 |ND 255 - EXP2 WH|
000001A0: 4F 20 2E 45 58 41 4D 49 4E 45 20 35 33 32 37 37 |O .EXAMINE 53277|
000001B0: 0D 45 4E 44 0D 0D 54 4F 20 42 49 47 58 0D 20 2E |.END..TO BIGX. .|
000001C0: 44 45 50 4F 53 49 54 20 35 33 32 37 37 20 42 49 |DEPOSIT 53277 BI|
000001D0: 54 4F 52 20 45 58 50 32 20 57 48 4F 20 2E 45 58 |TOR EXP2 WHO .EX|
000001E0: 41 4D 49 4E 45 20 35 33 32 37 37 0D 45 4E 44 0D |AMINE 53277.END.|
000001F0: 0D 54 4F 20 53 4D 41 4C 4C 59 0D 20 2E 44 45 50 |.TO SMALLY. .DEP|
00000200: 4F 53 49 54 20 35 33 32 37 31 20 42 49 54 41 4E |OSIT 53271 BITAN|
00000210: 44 20 32 35 35 20 2D 20 45 58 50 32 20 57 48 4F |D 255 - EXP2 WHO|
00000220: 20 2E 45 58 41 4D 49 4E 45 20 35 33 32 37 31 0D | .EXAMINE 53271.|
00000230: 45 4E 44 0D 0D 54 4F 20 42 49 47 59 0D 20 2E 44 |END..TO BIGY. .D|
00000240: 45 50 4F 53 49 54 20 35 33 32 37 31 20 42 49 54 |EPOSIT 53271 BIT|
00000250: 4F 52 20 45 58 50 32 20 57 48 4F 20 2E 45 58 41 |OR EXP2 WHO .EXA|
00000260: 4D 49 4E 45 20 35 33 32 37 31 0D 45 4E 44 0D 0D |MINE 53271.END..|
00000270: 54 4F 20 45 58 50 32 20 3A 4E 0D 20 4F 50 20 49 |TO EXP2 :N. OP I|
00000280: 54 45 4D 20 31 20 2B 20 3A 4E 20 5B 31 20 32 20 |TEM 1 + :N [1 2 |
00000290: 34 20 38 20 31 36 20 33 32 20 36 34 20 31 32 38 |4 8 16 32 64 128|
000002A0: 5D 0D 45 4E 44 0D 0D 54 4F 20 54 42 3F 0D 20 4C |].END..TO TB?. L|
000002B0: 4F 43 41 4C 20 22 54 0D 20 4D 41 4B 45 20 22 54 |OCAL "T. MAKE "T|
000002C0: 20 2E 45 58 41 4D 49 4E 45 20 35 33 32 37 39 0D | .EXAMINE 53279.|
000002D0: 20 4F 50 20 30 20 3C 20 42 49 54 41 4E 44 20 2E | OP 0 < BITAND .|
000002E0: 45 58 41 4D 49 4E 45 20 35 33 32 37 39 20 45 58 |EXAMINE 53279 EX|
000002F0: 50 32 20 57 48 4F 0D 45 4E 44 0D 0D 54 4F 20 52 |P2 WHO.END..TO R|
00000300: 45 41 44 53 48 41 50 45 53 20 3A 46 49 4C 45 0D |EADSHAPES :FILE.|
00000310: 20 42 4C 4F 41 44 20 57 4F 52 44 20 3A 46 49 4C | BLOAD WORD :FIL|
00000320: 45 20 22 2E 53 48 41 50 45 53 0D 45 4E 44 0D 0D |E ".SHAPES.END..|
00000330: 00 00 FF |... |
. TO TS?. LOCAL "T. MAKE "T .EXAMINE 532
78. OP 0 < BITAND .EXAMINE 53278 EXP2 WH
O.END..TO EACH1 :E.WHO. IF EMPTY? :E.WHO
STOP. TELL FIRST :E.WHO RUN :E.WHAT. EA
CH1 BF :E.WHO.END..TO EACH :E.WHO :E.WHA
T. LOCAL "O.WHO MAKE "O.WHO WHO. EACH1 :
E.WHO. TELL :O.WHO.END..TO ASK :N :COMMA
ND.LIST. LOCAL "CURRENT. MAKE "CURRENT W
HO. TELL :N RUN :COMMAND.LIST. TELL :CUR
RENT.END..TO SMALLX. .DEPOSIT 53277 BITA
ND 255 - EXP2 WHO .EXAMINE 53277.END..TO
BIGX. .DEPOSIT 53277 BITOR EXP2 WHO .EX
AMINE 53277.END..TO SMALLY. .DEPOSIT 532
71 BITAND 255 - EXP2 WHO .EXAMINE 53271.
END..TO BIGY. .DEPOSIT 53271 BITOR EXP2
WHO .EXAMINE 53271.END..TO EXP2 :N. OP I
TEM 1 + :N [1 2 4 8 16 32 64 128].END..T
O TB?. LOCAL "T. MAKE "T .EXAMINE 53279.
OP 0 < BITAND .EXAMINE 53279 EXP2 WHO.E
ND..TO READSHAPES :FILE. BLOAD WORD :FIL
E ".SHAPES.END.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL