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