00000000: 00 30 54 4F 20 4D 45 41 4E 44 45 52 20 3A 53 49 |.0TO MEANDER :SI|
00000010: 5A 45 20 3A 4C 49 4D 49 54 0D 20 49 46 20 3A 53 |ZE :LIMIT. IF :S|
00000020: 49 5A 45 20 3C 20 3A 4C 49 4D 49 54 20 54 48 45 |IZE < :LIMIT THE|
00000030: 4E 20 46 44 20 3A 53 49 5A 45 20 53 54 4F 50 0D |N FD :SIZE STOP.|
00000040: 20 4D 45 41 4E 44 45 52 20 3A 53 49 5A 45 20 2F | MEANDER :SIZE /|
00000050: 20 34 20 3A 4C 49 4D 49 54 20 4C 54 20 39 30 0D | 4 :LIMIT LT 90.|
00000060: 20 4D 45 41 4E 44 45 52 20 3A 53 49 5A 45 20 2F | MEANDER :SIZE /|
00000070: 20 34 20 3A 4C 49 4D 49 54 20 52 54 20 39 30 0D | 4 :LIMIT RT 90.|
00000080: 20 4D 45 41 4E 44 45 52 20 3A 53 49 5A 45 20 2F | MEANDER :SIZE /|
00000090: 20 34 20 3A 4C 49 4D 49 54 20 52 54 20 39 30 0D | 4 :LIMIT RT 90.|
000000A0: 20 52 45 50 45 41 54 20 32 20 5B 4D 45 41 4E 44 | REPEAT 2 [MEAND|
000000B0: 45 52 20 3A 53 49 5A 45 2F 34 20 3A 4C 49 4D 49 |ER :SIZE/4 :LIMI|
000000C0: 54 5D 0D 20 4C 54 20 39 30 0D 20 4D 45 41 4E 44 |T]. LT 90. MEAND|
000000D0: 45 52 20 3A 53 49 5A 45 20 2F 20 34 20 3A 4C 49 |ER :SIZE / 4 :LI|
000000E0: 4D 49 54 20 4C 54 20 39 30 0D 20 4D 45 41 4E 44 |MIT LT 90. MEAND|
000000F0: 45 52 20 3A 53 49 5A 45 20 2F 20 34 20 3A 4C 49 |ER :SIZE / 4 :LI|
00000100: 4D 49 54 20 52 54 20 39 30 0D 20 4D 45 41 4E 44 |MIT RT 90. MEAND|
00000110: 45 52 20 3A 53 49 5A 45 20 2F 20 34 20 3A 4C 49 |ER :SIZE / 4 :LI|
00000120: 4D 49 54 0D 45 4E 44 0D 0D 54 4F 20 53 45 54 55 |MIT.END..TO SETU|
00000130: 50 0D 20 43 53 20 50 55 20 53 45 54 58 59 20 2D |P. CS PU SETXY -|
00000140: 20 31 34 30 20 30 0D 20 53 45 54 48 20 39 30 20 | 140 0. SETH 90 |
00000150: 50 44 0D 45 4E 44 0D 0D |PD.END.. |
.0TO MEANDER :SIZE :LIMIT. IF :SIZE < :L
IMIT THEN FD :SIZE STOP. MEANDER :SIZE /
4 :LIMIT LT 90. MEANDER :SIZE / 4 :LIMI
T RT 90. MEANDER :SIZE / 4 :LIMIT RT 90.
REPEAT 2 [MEANDER :SIZE/4 :LIMIT]. LT 9
0. MEANDER :SIZE / 4 :LIMIT LT 90. MEAND
ER :SIZE / 4 :LIMIT RT 90. MEANDER :SIZE
/ 4 :LIMIT.END..TO SETUP. CS PU SETXY -
140 0. SETH 90 PD.END..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL