00000000: 00 20 54 4F 20 4B 30 20 3A 53 49 5A 45 0D 20 46 |. TO K0 :SIZE. F|
00000010: 44 20 3A 53 49 5A 45 0D 45 4E 44 0D 0D 54 4F 20 |D :SIZE.END..TO |
00000020: 53 45 54 55 50 0D 20 50 55 20 53 45 54 58 59 20 |SETUP. PU SETXY |
00000030: 2D 20 31 36 30 20 31 30 0D 20 52 54 20 39 30 20 |- 160 10. RT 90 |
00000040: 50 44 0D 45 4E 44 0D 0D 54 4F 20 4B 31 20 3A 53 |PD.END..TO K1 :S|
00000050: 49 5A 45 0D 20 4B 30 20 3A 53 49 5A 45 20 2F 20 |IZE. K0 :SIZE / |
00000060: 33 20 4C 54 20 36 30 0D 20 4B 30 20 3A 53 49 5A |3 LT 60. K0 :SIZ|
00000070: 45 20 2F 20 33 20 52 54 20 31 32 30 0D 20 4B 30 |E / 3 RT 120. K0|
00000080: 20 3A 53 49 5A 45 20 2F 20 33 20 4C 54 20 36 30 | :SIZE / 3 LT 60|
00000090: 0D 20 4B 30 20 3A 53 49 5A 45 20 2F 20 33 0D 45 |. K0 :SIZE / 3.E|
000000A0: 4E 44 0D 0D 54 4F 20 4B 32 20 3A 53 49 5A 45 0D |ND..TO K2 :SIZE.|
000000B0: 20 4B 31 20 3A 53 49 5A 45 20 2F 20 33 20 4C 54 | K1 :SIZE / 3 LT|
000000C0: 20 36 30 0D 20 4B 31 20 3A 53 49 5A 45 20 2F 20 | 60. K1 :SIZE / |
000000D0: 33 20 52 54 20 31 32 30 0D 20 4B 31 20 3A 53 49 |3 RT 120. K1 :SI|
000000E0: 5A 45 20 2F 20 33 20 4C 54 20 36 30 0D 20 4B 31 |ZE / 3 LT 60. K1|
000000F0: 20 3A 53 49 5A 45 20 2F 20 33 0D 45 4E 44 0D 0D | :SIZE / 3.END..|
00000100: 54 4F 20 4B 33 20 3A 53 49 5A 45 0D 20 4B 32 20 |TO K3 :SIZE. K2 |
00000110: 3A 53 49 5A 45 20 2F 20 33 20 4C 54 20 36 30 0D |:SIZE / 3 LT 60.|
00000120: 20 4B 32 20 3A 53 49 5A 45 20 2F 20 33 20 52 54 | K2 :SIZE / 3 RT|
00000130: 20 31 32 30 0D 20 4B 32 20 3A 53 49 5A 45 20 2F | 120. K2 :SIZE /|
00000140: 20 33 20 4C 54 20 36 30 0D 20 4B 32 20 3A 53 49 | 3 LT 60. K2 :SI|
00000150: 5A 45 20 2F 20 33 0D 45 4E 44 0D 0D 54 4F 20 4B |ZE / 3.END..TO K|
00000160: 34 20 3A 53 49 5A 45 0D 20 4B 33 20 3A 53 49 5A |4 :SIZE. K3 :SIZ|
00000170: 45 20 2F 20 33 20 4C 54 20 36 30 0D 20 4B 33 20 |E / 3 LT 60. K3 |
00000180: 3A 53 49 5A 45 20 2F 20 33 20 52 54 20 31 32 30 |:SIZE / 3 RT 120|
00000190: 0D 20 4B 33 20 3A 53 49 5A 45 20 2F 20 33 20 4C |. K3 :SIZE / 3 L|
000001A0: 54 20 36 30 0D 20 4B 33 20 3A 53 49 5A 45 20 2F |T 60. K3 :SIZE /|
000001B0: 20 33 0D 45 4E 44 0D 0D 54 4F 20 54 52 49 41 44 | 3.END..TO TRIAD|
000001C0: 20 3A 53 49 5A 45 20 3A 4C 49 4D 49 54 0D 20 49 | :SIZE :LIMIT. I|
000001D0: 46 20 3A 53 49 5A 45 20 3C 20 3A 4C 49 4D 49 54 |F :SIZE < :LIMIT|
000001E0: 20 54 48 45 4E 20 46 44 20 3A 53 49 5A 45 20 53 | THEN FD :SIZE S|
000001F0: 54 4F 50 0D 20 54 52 49 41 44 20 3A 53 49 5A 45 |TOP. TRIAD :SIZE|
00000200: 20 2F 20 33 20 3A 4C 49 4D 49 54 20 4C 54 20 36 | / 3 :LIMIT LT 6|
00000210: 30 0D 20 54 52 49 41 44 20 3A 53 49 5A 45 20 2F |0. TRIAD :SIZE /|
00000220: 20 33 20 3A 4C 49 4D 49 54 20 52 54 20 31 32 30 | 3 :LIMIT RT 120|
00000230: 0D 20 54 52 49 41 44 20 3A 53 49 5A 45 20 2F 20 |. TRIAD :SIZE / |
00000240: 33 20 3A 4C 49 4D 49 54 20 4C 54 20 36 30 0D 20 |3 :LIMIT LT 60. |
00000250: 54 52 49 41 44 20 3A 53 49 5A 45 20 2F 20 33 20 |TRIAD :SIZE / 3 |
00000260: 3A 4C 49 4D 49 54 0D 45 4E 44 0D 0D |:LIMIT.END.. |
. TO K0 :SIZE. FD :SIZE.END..TO SETUP. P
U SETXY - 160 10. RT 90 PD.END..TO K1 :S
IZE. K0 :SIZE / 3 LT 60. K0 :SIZE / 3 RT
120. K0 :SIZE / 3 LT 60. K0 :SIZE / 3.E
ND..TO K2 :SIZE. K1 :SIZE / 3 LT 60. K1
:SIZE / 3 RT 120. K1 :SIZE / 3 LT 60. K1
:SIZE / 3.END..TO K3 :SIZE. K2 :SIZE /
3 LT 60. K2 :SIZE / 3 RT 120. K2 :SIZE /
3 LT 60. K2 :SIZE / 3.END..TO K4 :SIZE.
K3 :SIZE / 3 LT 60. K3 :SIZE / 3 RT 120
. K3 :SIZE / 3 LT 60. K3 :SIZE / 3.END..
TO TRIAD :SIZE :LIMIT. IF :SIZE < :LIMIT
THEN FD :SIZE STOP. TRIAD :SIZE / 3 :LI
MIT LT 60. TRIAD :SIZE / 3 :LIMIT RT 120
. TRIAD :SIZE / 3 :LIMIT LT 60. TRIAD :S
IZE / 3 :LIMIT.END..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL