IMAGE.LOGO

FILE INFORMATION

FILENAME(S): IMAGE.LOGO

FILE TYPE(S): PRG

FILE SIZE: 1.1K

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

APPEARS ON: 1 disk(s)

FILE HASH

4ad486ab5490bec52ddab04c4ecfd2a8c3020cc45d32a041206055d9961433f3

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
P31A LOGO	IMAGE.LOGO	PRG	DuncanTwain	20	9	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 4C 45 4E  47 54 48 20 3A 4C 49 53  |. TO LENGTH :LIS|
00000010: 54 0D 20 49 46 20 3A 4C  49 53 54 20 3D 20 5B 5D  |T. IF :LIST = []|
00000020: 20 54 48 45 4E 20 4F 55  54 50 55 54 20 30 0D 20  | THEN OUTPUT 0. |
00000030: 4F 55 54 50 55 54 20 31  20 2B 20 4C 45 4E 47 54  |OUTPUT 1 + LENGT|
00000040: 48 20 42 46 20 3A 4C 49  53 54 0D 45 4E 44 0D 0D  |H BF :LIST.END..|
00000050: 54 4F 20 50 49 43 4B 20  3A 4E 55 4D 20 3A 4C 49  |TO PICK :NUM :LI|
00000060: 53 54 0D 20 49 46 20 3A  4E 55 4D 20 3D 20 31 20  |ST. IF :NUM = 1 |
00000070: 4F 55 54 50 55 54 20 46  49 52 53 54 20 3A 4C 49  |OUTPUT FIRST :LI|
00000080: 53 54 0D 20 4F 55 54 50  55 54 20 50 49 43 4B 20  |ST. OUTPUT PICK |
00000090: 28 20 3A 4E 55 4D 20 2D  20 31 20 29 20 28 20 42  |( :NUM - 1 ) ( B|
000000A0: 46 20 3A 4C 49 53 54 20  29 0D 45 4E 44 0D 0D 54  |F :LIST ).END..T|
000000B0: 4F 20 57 49 4E 44 4D 49  4C 4C 20 3A 44 49 53 54  |O WINDMILL :DIST|
000000C0: 20 3A 4C 49 53 54 0D 20  52 45 50 45 41 54 20 36  | :LIST. REPEAT 6|
000000D0: 20 5B 50 55 20 46 44 20  3A 44 49 53 54 20 50 44  | [PU FD :DIST PD|
000000E0: 20 52 55 4E 20 28 3A 4C  49 53 54 29 20 50 55 20  | RUN (:LIST) PU |
000000F0: 42 41 43 4B 20 3A 44 49  53 54 20 52 54 20 36 30  |BACK :DIST RT 60|
00000100: 5D 0D 45 4E 44 0D 0D 54  4F 20 50 49 43 4B 52 41  |].END..TO PICKRA|
00000110: 4E 44 4F 4D 20 3A 4C 49  53 54 0D 20 4F 55 54 50  |NDOM :LIST. OUTP|
00000120: 55 54 20 50 49 43 4B 20  28 20 31 20 2B 20 52 41  |UT PICK ( 1 + RA|
00000130: 4E 44 4F 4D 20 28 20 4C  45 4E 47 54 48 20 3A 4C  |NDOM ( LENGTH :L|
00000140: 49 53 54 20 29 20 29 20  3A 4C 49 53 54 0D 45 4E  |IST ) ) :LIST.EN|
00000150: 44 0D 0D 54 4F 20 53 54  41 52 20 3A 53 49 5A 45  |D..TO STAR :SIZE|
00000160: 0D 20 4C 54 20 31 38 0D  20 52 45 50 45 41 54 20  |. LT 18. REPEAT |
00000170: 35 20 5B 46 44 20 3A 53  49 5A 45 20 52 54 20 31  |5 [FD :SIZE RT 1|
00000180: 34 34 5D 0D 20 52 54 20  31 38 0D 45 4E 44 0D 0D  |44]. RT 18.END..|
00000190: 54 4F 20 44 49 41 4D 4F  4E 44 20 3A 53 49 5A 45  |TO DIAMOND :SIZE|
000001A0: 0D 20 4C 54 20 34 35 0D  20 52 45 50 45 41 54 20  |. LT 45. REPEAT |
000001B0: 34 20 5B 46 44 20 3A 53  49 5A 45 20 52 54 20 39  |4 [FD :SIZE RT 9|
000001C0: 30 5D 0D 20 52 54 20 34  35 0D 45 4E 44 0D 0D 54  |0]. RT 45.END..T|
000001D0: 4F 20 4F 43 54 20 3A 53  49 5A 45 0D 20 4C 54 20  |O OCT :SIZE. LT |
000001E0: 36 37 2E 35 0D 20 52 45  50 45 41 54 20 38 20 5B  |67.5. REPEAT 8 [|
000001F0: 46 44 20 3A 53 49 5A 45  2F 32 20 52 54 20 34 35  |FD :SIZE/2 RT 45|
00000200: 5D 0D 20 52 54 20 36 37  2E 35 0D 45 4E 44 0D 0D  |]. RT 67.5.END..|
00000210: 54 4F 20 50 41 54 54 31  20 3A 53 49 5A 45 0D 20  |TO PATT1 :SIZE. |
00000220: 4C 54 20 33 30 0D 20 52  45 50 45 41 54 20 32 20  |LT 30. REPEAT 2 |
00000230: 5B 46 44 20 3A 53 49 5A  45 20 52 54 20 36 30 20  |[FD :SIZE RT 60 |
00000240: 46 44 20 3A 53 49 5A 45  20 52 54 20 31 32 30 5D  |FD :SIZE RT 120]|
00000250: 0D 20 52 54 20 33 30 0D  45 4E 44 0D 0D 54 4F 20  |. RT 30.END..TO |
00000260: 50 41 54 54 32 20 3A 53  49 5A 45 0D 20 4C 54 20  |PATT2 :SIZE. LT |
00000270: 36 30 0D 20 46 44 20 3A  53 49 5A 45 20 52 54 20  |60. FD :SIZE RT |
00000280: 36 30 20 46 44 20 3A 53  49 5A 45 20 52 54 20 31  |60 FD :SIZE RT 1|
00000290: 32 30 0D 20 46 44 20 3A  53 49 5A 45 20 4C 54 20  |20. FD :SIZE LT |
000002A0: 36 30 20 46 44 20 3A 53  49 5A 45 20 52 54 20 31  |60 FD :SIZE RT 1|
000002B0: 32 30 0D 20 46 44 20 3A  53 49 5A 45 20 52 54 20  |20. FD :SIZE RT |
000002C0: 36 30 20 46 44 20 3A 53  49 5A 45 20 52 54 20 31  |60 FD :SIZE RT 1|
000002D0: 32 30 0D 45 4E 44 0D 0D  54 4F 20 54 52 49 20 3A  |20.END..TO TRI :|
000002E0: 53 49 5A 45 0D 20 4C 54  20 33 30 20 52 45 50 45  |SIZE. LT 30 REPE|
000002F0: 41 54 20 33 20 5B 46 44  20 3A 53 49 5A 45 20 52  |AT 3 [FD :SIZE R|
00000300: 54 20 31 32 30 5D 0D 20  52 54 20 33 30 0D 45 4E  |T 120]. RT 30.EN|
00000310: 44 0D 0D 54 4F 20 49 4D  41 47 45 0D 20 4D 41 4B  |D..TO IMAGE. MAK|
00000320: 45 20 22 4C 49 53 54 20  5B 53 54 41 52 20 44 49  |E "LIST [STAR DI|
00000330: 41 4D 4F 4E 44 20 4F 43  54 20 50 41 54 54 31 20  |AMOND OCT PATT1 |
00000340: 50 41 54 54 32 20 54 52  49 5D 0D 20 4D 41 4B 45  |PATT2 TRI]. MAKE|
00000350: 20 22 4E 41 4D 45 20 53  45 4E 54 45 4E 43 45 20  | "NAME SENTENCE |
00000360: 50 49 43 4B 52 41 4E 44  4F 4D 20 3A 4C 49 53 54  |PICKRANDOM :LIST|
00000370: 20 28 20 32 30 20 2B 20  52 41 4E 44 4F 4D 20 33  | ( 20 + RANDOM 3|
00000380: 30 20 29 0D 20 4D 41 4B  45 20 22 44 49 53 54 20  |0 ). MAKE "DIST |
00000390: 52 41 4E 44 4F 4D 20 36  30 0D 20 50 45 4E 43 4F  |RANDOM 60. PENCO|
000003A0: 4C 4F 52 20 31 0D 20 50  45 4E 55 50 0D 20 57 49  |LOR 1. PENUP. WI|
000003B0: 4E 44 4D 49 4C 4C 20 3A  44 49 53 54 20 3A 4E 41  |NDMILL :DIST :NA|
000003C0: 4D 45 0D 20 4D 41 4B 45  20 22 4E 41 4D 45 20 52  |ME. MAKE "NAME R|
000003D0: 45 51 55 45 53 54 0D 20  49 4D 41 47 45 0D 45 4E  |EQUEST. IMAGE.EN|
000003E0: 44 0D 0D 4D 41 4B 45 20  22 44 49 53 54 20 28 38  |D..MAKE "DIST (8|
000003F0: 29 0D 4D 41 4B 45 20 22  4E 41 4D 45 20 5B 54 52  |).MAKE "NAME [TR|
00000400: 49 20 32 35 5D 0D 4D 41  4B 45 20 22 4C 49 53 54  |I 25].MAKE "LIST|
00000410: 20 5B 53 54 41 52 20 44  49 41 4D 4F 4E 44 20 4F  | [STAR DIAMOND O|
00000420: 43 54 20 50 41 54 54 31  20 50 41 54 54 32 20 54  |CT PATT1 PATT2 T|
00000430: 52 49 5D 0D                                       |RI].            |

. TO LENGTH :LIST. IF :LIST = [] THEN OU
TPUT 0. OUTPUT 1 + LENGTH BF :LIST.END..
TO PICK :NUM :LIST. IF :NUM = 1 OUTPUT F
IRST :LIST. OUTPUT PICK ( :NUM - 1 ) ( B
F :LIST ).END..TO WINDMILL :DIST :LIST. 
REPEAT 6 [PU FD :DIST PD RUN (:LIST) PU 
BACK :DIST RT 60].END..TO PICKRANDOM :LI
ST. OUTPUT PICK ( 1 + RANDOM ( LENGTH :L
IST ) ) :LIST.END..TO STAR :SIZE. LT 18.
 REPEAT 5 [FD :SIZE RT 144]. RT 18.END..
TO DIAMOND :SIZE. LT 45. REPEAT 4 [FD :S
IZE RT 90]. RT 45.END..TO OCT :SIZE. LT 
67.5. REPEAT 8 [FD :SIZE/2 RT 45]. RT 67
.5.END..TO PATT1 :SIZE. LT 30. REPEAT 2 
[FD :SIZE RT 60 FD :SIZE RT 120]. RT 30.
END..TO PATT2 :SIZE. LT 60. FD :SIZE RT 
60 FD :SIZE RT 120. FD :SIZE LT 60 FD :S
IZE RT 120. FD :SIZE RT 60 FD :SIZE RT 1
20.END..TO TRI :SIZE. LT 30 REPEAT 3 [FD
 :SIZE RT 120]. RT 30.END..TO IMAGE. MAK
E "LIST [STAR DIAMOND OCT PATT1 PATT2 TR
I]. MAKE "NAME SENTENCE PICKRANDOM :LIST
 ( 20 + RANDOM 30 ). MAKE "DIST RANDOM 6
0. PENCOLOR 1. PENUP. WINDMILL :DIST :NA
ME. MAKE "NAME REQUEST. IMAGE.END..MAKE 
"DIST (8).MAKE "NAME [TRI 25].MAKE "LIST
 [STAR DIAMOND OCT PATT1 PATT2 TRI].

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL