00000000: 00 20 54 4F 20 53 51 55 41 52 45 20 3A 53 49 44 |. TO SQUARE :SID|
00000010: 45 0D 20 52 45 50 45 41 54 20 34 20 5B 46 44 20 |E. REPEAT 4 [FD |
00000020: 3A 53 49 44 45 20 52 54 20 39 30 5D 0D 45 4E 44 |:SIDE RT 90].END|
00000030: 0D 0D 54 4F 20 54 4F 57 45 52 20 3A 53 49 5A 45 |..TO TOWER :SIZE|
00000040: 0D 20 49 46 20 3A 53 49 5A 45 20 3C 20 33 20 5B |. IF :SIZE < 3 [|
00000050: 53 54 4F 50 5D 0D 20 53 51 55 41 52 45 20 3A 53 |STOP]. SQUARE :S|
00000060: 49 5A 45 20 46 44 20 3A 53 49 5A 45 0D 20 54 4F |IZE FD :SIZE. TO|
00000070: 57 45 52 20 3A 53 49 5A 45 20 2A 20 30 2E 36 0D |WER :SIZE * 0.6.|
00000080: 45 4E 44 0D 0D |END.. |
. TO SQUARE :SIDE. REPEAT 4 [FD :SIDE RT
90].END..TO TOWER :SIZE. IF :SIZE < 3 [
STOP]. SQUARE :SIZE FD :SIZE. TOWER :SIZ
E * 0.6.END..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL