LG-COLORS

FILE INFORMATION

FILENAME(S): LG-COLORS

FILE TYPE(S): PRG

FILE SIZE: 1K

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

APPEARS ON: 1 disk(s)

FILE HASH

a85d21961b26ecdd1513ab1dd27cc7f4299ab0d0a4fa328950eb509b5c13cedb

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
LOGO FILES	LG-COLORS	PRG	DuncanTwain	19	4	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 4C 4C 20 42 45 20 45 52  41 53 45 44 2E 5D 0D 20  |LL BE ERASED.]. |
00000010: 50 52 49 4E 54 20 5B 57  4F 55 4C 44 20 59 4F 55  |PRINT [WOULD YOU|
00000020: 20 4C 49 4B 45 20 54 4F  20 46 4F 52 4D 41 54 20  | LIKE TO FORMAT |
00000030: 54 48 45 20 44 49 53 4B  3F 5D 0D 20 50 52 49 4E  |THE DISK?]. PRIN|
00000040: 54 20 5B 28 49 46 20 59  4F 55 20 53 41 59 20 59  |T [(IF YOU SAY Y|
00000050: 45 53 2C 20 49 54 20 57  49 4C 4C 20 42 45 20 46  |ES, IT WILL BE F|
00000060: 4F 52 4D 41 54 54 45 44  5D 0D 20 50 52 49 4E 54  |ORMATTED]. PRINT|
00000070: 20 5B 4E 4F 57 29 2E 5D  0D 20 4D 41 4B 45 20 22  | [NOW).]. MAKE "|
00000080: 52 45 53 50 4F 4E 53 45  20 41 53 4B 20 5B 5D 0D  |RESPONSE ASK [].|
00000090: 20 49 46 20 4E 4F 54 20  46 49 52 53 54 20 46 49  | IF NOT FIRST FI|
000000A0: 52 53 54 20 3A 52 45 53  50 4F 4E 53 45 20 3D 20  |RST :RESPONSE = |
000000B0: 22 59 20 53 54 4F 50 0D  20 50 52 49 4E 54 20 5B  |"Y STOP. PRINT [|
000000C0: 50 4C 45 41 53 45 20 57  41 49 54 20 41 42 4F 55  |PLEASE WAIT ABOU|
000000D0: 54 20 4F 4E 45 20 4D 49  4E 55 54 45 2E 5D 0D 20  |T ONE MINUTE.]. |
000000E0: 44 4F 53 20 5B 4E 30 3A  4C 4F 47 4F 20 55 54 49  |DOS [N0:LOGO UTI|
000000F0: 4C 49 54 49 45 53 2C 30  31 5D 0D 20 50 52 49 4E  |LITIES,01]. PRIN|
00000100: 54 20 5B 44 49 53 4B 20  46 4F 52 4D 41 54 54 45  |T [DISK FORMATTE|
00000110: 44 2E 5D 0D 45 4E 44 0D  0D 54 4F 20 41 53 4B 20  |D.].END..TO ASK |
00000120: 3A 51 55 45 53 54 49 4F  4E 0D 20 4C 4F 43 41 4C  |:QUESTION. LOCAL|
00000130: 20 22 41 4E 53 57 45 52  0D 20 50 52 49 4E 54 31  | "ANSWER. PRINT1|
00000140: 20 3A 51 55 45 53 54 49  4F 4E 0D 20 4D 41 4B 45  | :QUESTION. MAKE|
00000150: 20 22 41 4E 53 57 45 52  20 52 45 51 55 45 53 54  | "ANSWER REQUEST|
00000160: 0D 20 49 46 20 45 4D 50  54 59 3F 20 3A 41 4E 53  |. IF EMPTY? :ANS|
00000170: 57 45 52 20 4F 50 20 41  53 4B 20 3A 51 55 45 53  |WER OP ASK :QUES|
00000180: 54 49 4F 4E 0D 20 4F 50  20 3A 41 4E 53 57 45 52  |TION. OP :ANSWER|
00000190: 0D 45 4E 44 0D 0D 54 4F  20 43 4F 50 59 0D 20 52  |.END..TO COPY. R|
000001A0: 45 41 44 20 22 4C 47 2D  46 49 4C 45 53 0D 20 49  |EAD "LG-FILES. I|
000001B0: 4E 53 54 52 55 43 54 49  4F 4E 53 0D 20 4D 41 59  |NSTRUCTIONS. MAY|
000001C0: 42 45 2E 46 4F 52 4D 41  54 0D 20 43 4F 50 59 2E  |BE.FORMAT. COPY.|
000001D0: 46 49 4C 45 53 0D 45 4E  44 0D 0D 54 4F 20 43 4F  |FILES.END..TO CO|
000001E0: 50 59 2E 46 49 4C 45 53  0D 20 4E 44 0D 20 43 4F  |PY.FILES. ND. CO|
000001F0: 50 59 2E 4C 49 53 54 20  3A 46 49 4C 45 53 0D 20  |PY.LIST :FILES. |
00000200: 50 52 49 4E 54 20 5B 43  4F 50 59 20 43 4F 4D 50  |PRINT [COPY COMP|
00000210: 4C 45 54 45 2E 20 54 59  50 45 5D 0D 20 50 52 49  |LETE. TYPE]. PRI|
00000220: 4E 54 20 5B 43 4F 50 59  5D 0D 20 50 52 49 4E 54  |NT [COPY]. PRINT|
00000230: 20 5B 54 4F 20 4D 41 4B  45 20 41 4E 4F 54 48 45  | [TO MAKE ANOTHE|
00000240: 52 20 43 4F 50 59 2E 5D  0D 45 4E 44 0D 0D 54 4F  |R COPY.].END..TO|
00000250: 20 49 47 4E 4F 52 45 20  3A 4C 49 53 54 0D 45 4E  | IGNORE :LIST.EN|
00000260: 44 0D 0D 54 4F 20 43 4F  50 59 2E 4C 49 53 54 20  |D..TO COPY.LIST |
00000270: 3A 4C 49 53 54 0D 20 49  46 20 45 4D 50 54 59 3F  |:LIST. IF EMPTY?|
00000280: 20 3A 4C 49 53 54 20 53  54 4F 50 0D 20 50 52 49  | :LIST STOP. PRI|
00000290: 4E 54 20 5B 49 4E 53 45  52 54 20 54 48 45 20 4F  |NT [INSERT THE O|
000002A0: 52 49 47 49 4E 41 4C 20  44 49 53 4B 3B 20 50 52  |RIGINAL DISK; PR|
000002B0: 45 53 53 20 52 45 54 55  52 4E 2E 5D 0D 20 49 47  |ESS RETURN.]. IG|
000002C0: 4E 4F 52 45 20 52 45 51  55 45 53 54 0D 20 52 45  |NORE REQUEST. RE|
000002D0: 41 44 54 45 58 54 20 46  49 52 53 54 20 3A 4C 49  |ADTEXT FIRST :LI|
000002E0: 53 54 0D 20 50 52 49 4E  54 20 5B 49 4E 53 45 52  |ST. PRINT [INSER|
000002F0: 54 20 54 48 45 20 4E 45  57 20 44 49 53 4B 20 41  |T THE NEW DISK A|
00000300: 4E 44 20 50 52 45 53 53  20 52 45 54 55 52 4E 2E  |ND PRESS RETURN.|
00000310: 5D 0D 20 49 47 4E 4F 52  45 20 52 45 51 55 45 53  |]. IGNORE REQUES|
00000320: 54 0D 20 53 41 56 45 54  45 58 54 20 46 49 52 53  |T. SAVETEXT FIRS|
00000330: 54 20 3A 4C 49 53 54 0D  20 43 4F 50 59 2E 4C 49  |T :LIST. COPY.LI|
00000340: 53 54 20 42 46 20 3A 4C  49 53 54 0D 45 4E 44 0D  |ST BF :LIST.END.|
00000350: 0D 54 4F 20 52 45 41 44  54 45 58 54 20 3A 46 49  |.TO READTEXT :FI|
00000360: 4C 45 0D 20 2E 4F 50 54  49 4F 4E 20 22 52 45 41  |LE. .OPTION "REA|
00000370: 44 20 30 20 31 0D 20 50  52 49 4E 54 20 53 45 20  |D 0 1. PRINT SE |
00000380: 22 52 45 41 44 49 4E 47  20 3A 46 49 4C 45 0D 20  |"READING :FILE. |
00000390: 52 45 41 44 20 3A 46 49  4C 45 0D 20 2E 4F 50 54  |READ :FILE. .OPT|
000003A0: 49 4F 4E 20 22 52 45 41  44 20 30 20 30 0D 45 4E  |ION "READ 0 0.EN|
000003B0: 44 0D 0D 54 4F 20 53 41  56 45 54 45 58 54 20 3A  |D..TO SAVETEXT :|
000003C0: 46 49 4C 45 0D 20 2E 4F  50 54 49 4F 4E 20 22 53  |FILE. .OPTION "S|
000003D0: 41 56 45 20 30 20 31 0D  20 50 52 49 4E 54 20 53  |AVE 0 1. PRINT S|
000003E0: 45 20 22 53 41 56 49 4E  47 20 3A 46 49 4C 45 0D  |E "SAVING :FILE.|
000003F0: 20 53 41 56 45 20 3A 46  49 4C 45 0D 20 2E 4F 50  | SAVE :FILE. .OP|
00000400: 54 49 4F 4E 20 22 53 41  56 45 20 30 20 30 0D 45  |TION "SAVE 0 0.E|
00000410: 4E 44 0D 0D                                       |ND..            |

LL BE ERASED.]. PRINT [WOULD YOU LIKE TO
 FORMAT THE DISK?]. PRINT [(IF YOU SAY Y
ES, IT WILL BE FORMATTED]. PRINT [NOW).]
. MAKE "RESPONSE ASK []. IF NOT FIRST FI
RST :RESPONSE = "Y STOP. PRINT [PLEASE W
AIT ABOUT ONE MINUTE.]. DOS [N0:LOGO UTI
LITIES,01]. PRINT [DISK FORMATTED.].END.
.TO ASK :QUESTION. LOCAL "ANSWER. PRINT1
 :QUESTION. MAKE "ANSWER REQUEST. IF EMP
TY? :ANSWER OP ASK :QUESTION. OP :ANSWER
.END..TO COPY. READ "LG-FILES. INSTRUCTI
ONS. MAYBE.FORMAT. COPY.FILES.END..TO CO
PY.FILES. ND. COPY.LIST :FILES. PRINT [C
OPY COMPLETE. TYPE]. PRINT [COPY]. PRINT
 [TO MAKE ANOTHER COPY.].END..TO IGNORE 
:LIST.END..TO COPY.LIST :LIST. IF EMPTY?
 :LIST STOP. PRINT [INSERT THE ORIGINAL 
DISK; PRESS RETURN.]. IGNORE REQUEST. RE
ADTEXT FIRST :LIST. PRINT [INSERT THE NE
W DISK AND PRESS RETURN.]. IGNORE REQUES
T. SAVETEXT FIRST :LIST. COPY.LIST BF :L
IST.END..TO READTEXT :FILE. .OPTION "REA
D 0 1. PRINT SE "READING :FILE. READ :FI
LE. .OPTION "READ 0 0.END..TO SAVETEXT :
FILE. .OPTION "SAVE 0 1. PRINT SE "SAVIN
G :FILE. SAVE :FILE. .OPTION "SAVE 0 0.E
ND..

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL