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

LG-WL1

FILE INFORMATION

FILENAME(S): LG-WL1

FILE TYPE(S): PRG

FILE SIZE: 765b

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

APPEARS ON: 1 disk(s)

FILE HASH

721ffb6d953b0dbd2e92754480d1ee05383b15b58f5b39b0c6b6b87199cde8ae

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
LOGO FILES LG-WL1 PRG DuncanTwain 25 1 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 51 55 49  43 4B 44 52 41 57 0D 20  |. TO QUICKDRAW. |
00000010: 45 41 53 59 20 52 43 0D  20 51 55 49 43 4B 44 52  |EASY RC. QUICKDR|
00000020: 41 57 0D 45 4E 44 0D 0D  54 4F 20 46 49 47 55 52  |AW.END..TO FIGUR|
00000030: 45 20 3A 4C 45 4E 47 54  48 20 3A 53 49 44 45 53  |E :LENGTH :SIDES|
00000040: 0D 20 52 45 50 45 41 54  20 3A 53 49 44 45 53 20  |. REPEAT :SIDES |
00000050: 5B 46 44 20 3A 4C 45 4E  47 54 48 20 52 54 20 33  |[FD :LENGTH RT 3|
00000060: 36 30 2F 3A 53 49 44 45  53 5D 0D 45 4E 44 0D 0D  |60/:SIDES].END..|
00000070: 54 4F 20 46 4F 4F 0D 20  50 52 20 3A 4E 55 4D 0D  |TO FOO. PR :NUM.|
00000080: 20 4D 41 4B 45 20 22 4E  55 4D 20 32 20 2A 20 3A  | MAKE "NUM 2 * :|
00000090: 4E 55 4D 0D 20 50 52 20  3A 4E 55 4D 0D 45 4E 44  |NUM. PR :NUM.END|
000000A0: 0D 0D 54 4F 20 46 4F 4F  4C 20 3A 4E 55 4D 0D 20  |..TO FOOL :NUM. |
000000B0: 50 52 20 3A 4E 55 4D 0D  20 4D 41 4B 45 20 22 4E  |PR :NUM. MAKE "N|
000000C0: 55 4D 20 32 20 2A 20 3A  4E 55 4D 0D 20 50 52 20  |UM 2 * :NUM. PR |
000000D0: 3A 4E 55 4D 0D 45 4E 44  0D 0D 54 4F 20 45 41 53  |:NUM.END..TO EAS|
000000E0: 59 20 3A 43 48 52 54 0D  20 49 46 20 3A 43 48 52  |Y :CHRT. IF :CHR|
000000F0: 54 20 3D 20 22 46 20 46  44 20 31 30 0D 20 49 46  |T = "F FD 10. IF|
00000100: 20 3A 43 48 52 54 20 3D  20 22 52 20 52 54 20 31  | :CHRT = "R RT 1|
00000110: 35 0D 20 49 46 20 3A 43  48 52 54 20 3D 20 22 4C  |5. IF :CHRT = "L|
00000120: 20 4C 54 20 31 35 0D 20  49 46 20 3A 43 48 52 54  | LT 15. IF :CHRT|
00000130: 20 3D 20 22 44 20 44 52  41 57 0D 20 49 46 20 3A  | = "D DRAW. IF :|
00000140: 43 48 52 54 20 3D 20 22  51 20 4E 4F 44 52 41 57  |CHRT = "Q NODRAW|
00000150: 20 54 4F 50 4C 45 56 45  4C 0D 45 4E 44 0D 0D 54  | TOPLEVEL.END..T|
00000160: 4F 20 4C 4F 4F 50 0D 20  49 46 20 52 43 3F 20 45  |O LOOP. IF RC? E|
00000170: 41 53 59 20 52 43 0D 20  46 44 20 3A 44 49 53 54  |ASY RC. FD :DIST|
00000180: 0D 20 4C 4F 4F 50 0D 45  4E 44 0D 0D 54 4F 20 53  |. LOOP.END..TO S|
00000190: 54 41 52 54 0D 20 4D 41  4B 45 20 22 44 49 53 54  |TART. MAKE "DIST|
000001A0: 20 30 0D 20 4C 4F 50 0D  45 4E 44 0D 0D 54 4F 20  | 0. LOP.END..TO |
000001B0: 41 43 54 49 4F 4E 20 3A  43 48 52 54 0D 20 49 46  |ACTION :CHRT. IF|
000001C0: 20 3A 43 48 52 54 20 3D  20 22 46 20 4D 41 4B 45  | :CHRT = "F MAKE|
000001D0: 20 22 44 49 53 54 20 3A  44 49 53 54 20 2B 20 32  | "DIST :DIST + 2|
000001E0: 20 3B 20 46 41 53 54 45  52 0D 20 49 46 20 3A 43  | ; FASTER. IF :C|
000001F0: 48 52 54 20 3D 20 22 53  20 4D 41 4B 45 20 22 44  |HRT = "S MAKE "D|
00000200: 49 53 54 20 3A 44 49 53  54 20 2D 20 32 20 3B 20  |IST :DIST - 2 ; |
00000210: 53 4C 4F 57 45 52 0D 20  49 46 20 3A 43 48 52 54  |SLOWER. IF :CHRT|
00000220: 20 3D 20 22 52 20 52 54  20 31 35 0D 20 49 46 20  | = "R RT 15. IF |
00000230: 3A 43 48 52 54 20 3D 20  22 4C 20 4C 54 20 31 35  |:CHRT = "L LT 15|
00000240: 0D 20 49 46 20 3A 43 48  52 54 20 3D 20 22 44 20  |. IF :CHRT = "D |
00000250: 44 52 41 57 0D 20 49 46  20 3A 43 48 52 54 20 3D  |DRAW. IF :CHRT =|
00000260: 20 22 51 20 4E 4F 44 52  41 57 20 54 4F 50 4C 45  | "Q NODRAW TOPLE|
00000270: 56 45 4C 0D 45 4E 44 0D  0D 54 4F 20 4C 4F 50 0D  |VEL.END..TO LOP.|
00000280: 20 49 46 20 52 43 3F 20  41 43 54 49 4F 4E 20 52  | IF RC? ACTION R|
00000290: 43 0D 20 46 44 20 3A 44  49 53 54 0D 20 4C 4F 50  |C. FD :DIST. LOP|
000002A0: 0D 45 4E 44 0D 0D 4D 41  4B 45 20 22 50 45 52 53  |.END..MAKE "PERS|
000002B0: 4F 4E 20 5B 4D 41 52 49  45 54 5D 0D 4D 41 4B 45  |ON [MARIET].MAKE|
000002C0: 20 22 4E 55 4D 32 2A 20  28 33 29 0D 4D 41 4B 45  | "NUM2* (3).MAKE|
000002D0: 20 22 4C 45 4E 47 54 48  20 28 31 30 29 0D 4D 41  | "LENGTH (10).MA|
000002E0: 4B 45 20 22 4E 55 4D 20  28 32 35 29 0D 4D 41 4B  |KE "NUM (25).MAK|
000002F0: 45 20 22 44 49 53 54 20  28 32 32 29 0D           |E "DIST (22).   |

. TO QUICKDRAW. EASY RC. QUICKDRAW.END..
TO FIGURE :LENGTH :SIDES. REPEAT :SIDES 
[FD :LENGTH RT 360/:SIDES].END..TO FOO. 
PR :NUM. MAKE "NUM 2 * :NUM. PR :NUM.END
..TO FOOL :NUM. PR :NUM. MAKE "NUM 2 * :
NUM. PR :NUM.END..TO EASY :CHRT. IF :CHR
T = "F FD 10. IF :CHRT = "R RT 15. IF :C
HRT = "L LT 15. IF :CHRT = "D DRAW. IF :
CHRT = "Q NODRAW TOPLEVEL.END..TO LOOP. 
IF RC? EASY RC. FD :DIST. LOOP.END..TO S
TART. MAKE "DIST 0. LOP.END..TO ACTION :
CHRT. IF :CHRT = "F MAKE "DIST :DIST + 2
 ; FASTER. IF :CHRT = "S MAKE "DIST :DIS
T - 2 ; SLOWER. IF :CHRT = "R RT 15. IF 
:CHRT = "L LT 15. IF :CHRT = "D DRAW. IF
 :CHRT = "Q NODRAW TOPLEVEL.END..TO LOP.
 IF RC? ACTION RC. FD :DIST. LOP.END..MA
KE "PERSON [MARIET].MAKE "NUM2* (3).MAKE
 "LENGTH (10).MAKE "NUM (25).MAKE "DIST 
(22).
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL