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

LJ1".LOGO

FILE INFORMATION

FILENAME(S): LJ1".LOGO

FILE TYPE(S): PRG

FILE SIZE: 437b

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

APPEARS ON: 1 disk(s)

FILE HASH

8517bb76233d12640422ea9c264b07b7f6564d5e3e4c9cdf4f303355ff5b1f7a

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CBM 64 LOGO LJ1".LOGO PRG DuncanTwain 3 0 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 30 54 4F 20 4C 4A 31  20 3A 43 4F 45 46 46 31  |.0TO LJ1 :COEFF1|
00000010: 20 3A 43 4F 45 46 46 32  20 3A 43 48 41 4E 47 45  | :COEFF2 :CHANGE|
00000020: 0D 20 4D 41 4B 45 20 22  41 4E 47 4C 45 20 30 0D  |. MAKE "ANGLE 0.|
00000030: 20 4D 41 4B 45 20 22 46  55 4E 31 20 28 20 53 45  | MAKE "FUN1 ( SE|
00000040: 4E 54 45 4E 43 45 20 5B  4D 41 4B 45 20 22 58 20  |NTENCE [MAKE "X |
00000050: 31 30 30 2A 53 49 4E 20  3A 43 4F 45 46 46 31 20  |100*SIN :COEFF1 |
00000060: 2A 20 3A 41 4E 47 4C 45  5D 20 29 0D 20 4D 41 4B  |* :ANGLE] ). MAK|
00000070: 45 20 22 46 55 4E 32 20  28 20 53 45 4E 54 45 4E  |E "FUN2 ( SENTEN|
00000080: 43 45 20 5B 4D 41 4B 45  20 22 59 20 31 30 30 2A  |CE [MAKE "Y 100*|
00000090: 43 4F 53 20 3A 43 4F 45  46 46 32 2A 20 3A 41 4E  |COS :COEFF2* :AN|
000000A0: 47 4C 45 5D 20 29 0D 20  50 55 20 52 55 4E 20 3A  |GLE] ). PU RUN :|
000000B0: 46 55 4E 31 20 52 55 4E  20 3A 46 55 4E 32 20 53  |FUN1 RUN :FUN2 S|
000000C0: 45 54 58 59 20 3A 58 20  3A 59 20 50 45 4E 44 4F  |ETXY :X :Y PENDO|
000000D0: 57 4E 0D 20 52 45 50 45  41 54 20 31 30 30 30 20  |WN. REPEAT 1000 |
000000E0: 5B 4D 41 4B 45 20 22 41  4E 47 4C 45 20 3A 41 4E  |[MAKE "ANGLE :AN|
000000F0: 47 4C 45 20 2B 20 3A 43  48 41 4E 47 45 20 52 55  |GLE + :CHANGE RU|
00000100: 4E 20 3A 46 55 4E 31 20  52 55 4E 20 3A 46 55 4E  |N :FUN1 RUN :FUN|
00000110: 32 20 53 45 54 58 59 20  3A 58 20 3A 59 5D 0D 45  |2 SETXY :X :Y].E|
00000120: 4E 44 0D 0D 4D 41 4B 45  20 22 59 20 28 36 38 2E  |ND..MAKE "Y (68.|
00000130: 31 39 39 38 29 0D 4D 41  4B 45 20 22 46 55 4E 32  |1998).MAKE "FUN2|
00000140: 20 5B 4D 41 4B 45 20 22  59 20 31 30 30 2A 43 4F  | [MAKE "Y 100*CO|
00000150: 53 20 3A 43 4F 45 46 46  32 2A 20 3A 41 4E 47 4C  |S :COEFF2* :ANGL|
00000160: 45 5D 0D 4D 41 4B 45 20  22 58 20 28 37 34 2E 33  |E].MAKE "X (74.3|
00000170: 31 34 35 29 0D 4D 41 4B  45 20 22 46 55 4E 31 20  |145).MAKE "FUN1 |
00000180: 5B 4D 41 4B 45 20 22 58  20 31 30 30 2A 53 49 4E  |[MAKE "X 100*SIN|
00000190: 20 3A 43 4F 45 46 46 31  20 2A 20 3A 41 4E 47 4C  | :COEFF1 * :ANGL|
000001A0: 45 5D 0D 4D 41 4B 45 20  22 41 4E 47 4C 45 20 28  |E].MAKE "ANGLE (|
000001B0: 34 30 38 29 0D                                    |408).           |

.0TO LJ1 :COEFF1 :COEFF2 :CHANGE. MAKE "
ANGLE 0. MAKE "FUN1 ( SENTENCE [MAKE "X 
100*SIN :COEFF1 * :ANGLE] ). MAKE "FUN2 
( SENTENCE [MAKE "Y 100*COS :COEFF2* :AN
GLE] ). PU RUN :FUN1 RUN :FUN2 SETXY :X 
:Y PENDOWN. REPEAT 1000 [MAKE "ANGLE :AN
GLE + :CHANGE RUN :FUN1 RUN :FUN2 SETXY 
:X :Y].END..MAKE "Y (68.1998).MAKE "FUN2
 [MAKE "Y 100*COS :COEFF2* :ANGLE].MAKE 
"X (74.3145).MAKE "FUN1 [MAKE "X 100*SIN
 :COEFF1 * :ANGLE].MAKE "ANGLE (408).
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL