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

TET.LOGO

FILE INFORMATION

FILENAME(S): TET.LOGO

FILE TYPE(S): PRG

FILE SIZE: 281b

FIRST SEEN: 2025-11-02 16:30:34

APPEARS ON: 1 disk(s)

FILE HASH

3ff3312d8b581435b201e50b6e6419625aab48f97ec4e706c445cecbda7fdc1c

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
NG USERS 11A TET.LOGO PRG Treasure Chest - OzzyC64 23 2 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 48 45 4C  50 0D 20 50 52 20 5B 5D  |. TO HELP. PR []|
00000010: 0D 20 50 52 20 5B 54 45  54 20 31 30 30 20 32 20  |. PR [TET 100 2 |
00000020: 4F 52 20 54 45 54 20 31  30 30 20 33 20 41 52 45  |OR TET 100 3 ARE|
00000030: 5D 0D 20 50 52 20 5B 47  4F 4F 44 20 49 4E 50 55  |]. PR [GOOD INPU|
00000040: 54 53 20 54 4F 20 54 52  59 5D 0D 45 4E 44 0D 0D  |TS TO TRY].END..|
00000050: 54 4F 20 4C 45 47 20 3A  53 49 5A 45 0D 20 46 44  |TO LEG :SIZE. FD|
00000060: 20 3A 53 49 5A 45 20 2F  20 28 20 32 20 2A 20 43  | :SIZE / ( 2 * C|
00000070: 4F 53 20 33 30 20 29 0D  45 4E 44 0D 0D 54 4F 20  |OS 30 ).END..TO |
00000080: 54 45 54 20 3A 53 49 5A  45 20 3A 44 45 50 54 48  |TET :SIZE :DEPTH|
00000090: 0D 20 49 46 20 3A 44 45  50 54 48 20 3D 20 30 20  |. IF :DEPTH = 0 |
000000A0: 53 54 4F 50 0D 20 52 45  50 45 41 54 20 33 20 5B  |STOP. REPEAT 3 [|
000000B0: 4C 45 47 20 3A 53 49 5A  45 20 54 45 54 20 3A 53  |LEG :SIZE TET :S|
000000C0: 49 5A 45 20 2A 20 30 2E  35 20 3A 44 45 50 54 48  |IZE * 0.5 :DEPTH|
000000D0: 2D 31 20 52 54 20 31 35  30 20 46 44 20 3A 53 49  |-1 RT 150 FD :SI|
000000E0: 5A 45 20 52 54 20 31 35  30 20 4C 45 47 20 3A 53  |ZE RT 150 LEG :S|
000000F0: 49 5A 45 20 52 54 20 31  38 30 5D 0D 45 4E 44 0D  |IZE RT 180].END.|
00000100: 0D 4D 41 4B 45 20 22 53  54 41 52 54 55 50 20 5B  |.MAKE "STARTUP [|
00000110: 48 45 4C 50 5D 0D 48 46  55                       |HELP].HFU       |

. TO HELP. PR []. PR [TET 100 2 OR TET 1
00 3 ARE]. PR [GOOD INPUTS TO TRY].END..
TO LEG :SIZE. FD :SIZE / ( 2 * COS 30 ).
END..TO TET :SIZE :DEPTH. IF :DEPTH = 0 
STOP. REPEAT 3 [LEG :SIZE TET :SIZE * 0.
5 :DEPTH-1 RT 150 FD :SIZE RT 150 LEG :S
IZE RT 180].END..MAKE "STARTUP [HELP].HF
U
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL