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

LG-TET

FILE INFORMATION

FILENAME(S): LG-TET

FILE TYPE(S): PRG

FILE SIZE: 278b

FIRST SEEN: 2025-11-30 21:14:31

APPEARS ON: 1 disk(s)

FILE HASH

768aec2d1dd68f4e1970ab37a576c51f4d0a025dbd81261a4d5b1e430d574816

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
LOGO FILES LG-TET PRG DuncanTwain 22 15 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 4C 45 47  20 3A 53 49 5A 45 0D 20  |. TO LEG :SIZE. |
00000010: 46 44 20 3A 53 49 5A 45  20 2F 20 28 20 32 20 2A  |FD :SIZE / ( 2 *|
00000020: 20 43 4F 53 20 33 30 20  29 0D 45 4E 44 0D 0D 54  | COS 30 ).END..T|
00000030: 4F 20 54 45 54 20 3A 53  49 5A 45 20 3A 44 45 50  |O TET :SIZE :DEP|
00000040: 54 48 0D 20 49 46 20 3A  44 45 50 54 48 20 3D 20  |TH. IF :DEPTH = |
00000050: 30 20 53 54 4F 50 0D 20  52 45 50 45 41 54 20 33  |0 STOP. REPEAT 3|
00000060: 20 5B 4C 45 47 20 3A 53  49 5A 45 20 54 45 54 20  | [LEG :SIZE TET |
00000070: 3A 53 49 5A 45 20 2A 20  30 2E 35 20 3A 44 45 50  |:SIZE * 0.5 :DEP|
00000080: 54 48 2D 31 20 52 54 20  31 35 30 20 46 44 20 3A  |TH-1 RT 150 FD :|
00000090: 53 49 5A 45 20 52 54 20  31 35 30 20 4C 45 47 20  |SIZE RT 150 LEG |
000000A0: 3A 53 49 5A 45 20 52 54  20 31 38 30 5D 0D 45 4E  |:SIZE RT 180].EN|
000000B0: 44 0D 0D 54 4F 20 48 45  4C 50 0D 20 50 52 20 5B  |D..TO HELP. PR [|
000000C0: 5D 0D 20 50 52 20 5B 54  45 54 20 31 30 30 20 32  |]. PR [TET 100 2|
000000D0: 20 4F 52 20 54 45 54 20  31 30 30 20 33 20 41 52  | OR TET 100 3 AR|
000000E0: 45 5D 0D 20 50 52 20 5B  47 4F 4F 44 20 49 4E 50  |E]. PR [GOOD INP|
000000F0: 55 54 53 20 54 4F 20 54  52 59 5D 0D 45 4E 44 0D  |UTS TO TRY].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                                 |HELP].          |

. 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 
:SIZE RT 180].END..TO HELP. PR []. PR [T
ET 100 2 OR TET 100 3 ARE]. PR [GOOD INP
UTS TO TRY].END..MAKE "STARTUP [HELP].
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL