_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

TET.LOGO

FILE INFORMATION

FILENAME(S): TET.LOGO

FILE TYPE(S): PRG

FILE SIZE: 177b

FIRST SEEN: 2025-11-30 21:27:28

APPEARS ON: 1 disk(s)

FILE HASH

c8841863762b49254d6a5b8e2f3c73728f7d2995ae9252905eefc184fe64d2d5

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
P31A LOGO TET.LOGO PRG DuncanTwain 23 2 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 54 45 54  20 3A 53 49 5A 45 20 3A  |. TO TET :SIZE :|
00000010: 44 45 50 54 48 0D 20 49  46 20 3A 44 45 50 54 48  |DEPTH. IF :DEPTH|
00000020: 20 3D 20 30 20 53 54 4F  50 0D 20 52 45 50 45 41  | = 0 STOP. REPEA|
00000030: 54 20 33 20 5B 4C 45 47  20 3A 53 49 5A 45 20 54  |T 3 [LEG :SIZE T|
00000040: 45 54 20 3A 53 49 5A 45  20 2A 20 2E 35 20 3A 44  |ET :SIZE * .5 :D|
00000050: 45 50 54 48 2D 31 20 52  54 20 31 35 30 20 46 44  |EPTH-1 RT 150 FD|
00000060: 20 3A 53 49 5A 45 20 52  54 20 31 35 30 20 4C 45  | :SIZE RT 150 LE|
00000070: 47 20 3A 53 49 5A 45 20  52 54 20 31 38 30 5D 0D  |G :SIZE RT 180].|
00000080: 45 4E 44 0D 0D 54 4F 20  4C 45 47 20 3A 53 49 5A  |END..TO LEG :SIZ|
00000090: 45 0D 20 46 44 20 3A 53  49 5A 45 20 2F 20 28 20  |E. FD :SIZE / ( |
000000A0: 32 20 2A 20 43 4F 53 20  33 30 20 29 0D 45 4E 44  |2 * COS 30 ).END|
000000B0: 0D                                                |.               |

. TO TET :SIZE :DEPTH. IF :DEPTH = 0 STO
P. REPEAT 3 [LEG :SIZE TET :SIZE * .5 :D
EPTH-1 RT 150 FD :SIZE RT 150 LEG :SIZE 
RT 180].END..TO LEG :SIZE. FD :SIZE / ( 
2 * COS 30 ).END.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL