Multiple names: LG-B&W, LG-COPY
FILE INFORMATION
FILENAME(S):
• LG-B&W<br>• LG-COPY
FILE TYPE(S): PRG
FILE SIZE: 1.3K
FIRST SEEN: 2025-11-30 21:14:31
APPEARS ON: 2 disk(s)
FILE HASH
da4a30307118d4a08a932f80de8f931a604406315bae1d66c49707371b7f395f
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOGO FILES | LG-B&W | PRG | DuncanTwain | 17 | 3 | DOWNLOAD FILE |
| LOGO FILES | LG-COPY | PRG | DuncanTwain | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 20 54 4F 20 49 4E 53 54 52 55 43 54 49 4F 4E |. TO INSTRUCTION| 00000010: 53 0D 20 4E 4F 44 52 41 57 0D 20 50 52 49 4E 54 |S. NODRAW. PRINT| 00000020: 20 5B 54 48 49 53 20 50 52 4F 47 52 41 4D 20 57 | [THIS PROGRAM W| 00000030: 49 4C 4C 20 4D 41 4B 45 20 41 20 43 4F 50 59 20 |ILL MAKE A COPY | 00000040: 4F 46 20 54 48 45 5D 0D 20 50 52 49 4E 54 20 5B |OF THE]. PRINT [| 00000050: 4C 4F 47 4F 20 55 54 49 4C 49 54 49 45 53 20 44 |LOGO UTILITIES D| 00000060: 49 53 4B 2E 20 50 4C 45 41 53 45 20 49 4E 53 45 |ISK. PLEASE INSE| 00000070: 52 54 20 41 5D 0D 20 50 52 49 4E 54 20 5B 42 4C |RT A]. PRINT [BL| 00000080: 41 4E 4B 20 44 49 53 4B 20 49 4E 20 54 48 45 20 |ANK DISK IN THE | 00000090: 44 52 49 56 45 20 41 4E 44 20 50 52 45 53 53 20 |DRIVE AND PRESS | 000000A0: 52 45 54 55 52 4E 5D 0D 20 49 47 4E 4F 52 45 20 |RETURN]. IGNORE | 000000B0: 52 45 51 55 45 53 54 0D 45 4E 44 0D 0D 54 4F 20 |REQUEST.END..TO | 000000C0: 4D 41 59 42 45 2E 46 4F 52 4D 41 54 0D 20 4C 4F |MAYBE.FORMAT. LO| 000000D0: 43 41 4C 20 22 52 45 53 50 4F 4E 53 45 0D 20 50 |CAL "RESPONSE. P| 000000E0: 52 49 4E 54 20 5B 54 48 45 20 44 49 53 4B 20 49 |RINT [THE DISK I| 000000F0: 4E 20 54 48 45 20 44 52 49 56 45 20 57 49 4C 4C |N THE DRIVE WILL| 00000100: 20 42 45 20 45 52 41 53 45 44 2E 5D 0D 20 50 52 | BE ERASED.]. PR| 00000110: 49 4E 54 20 5B 57 4F 55 4C 44 20 59 4F 55 20 4C |INT [WOULD YOU L| 00000120: 49 4B 45 20 54 4F 20 46 4F 52 4D 41 54 20 54 48 |IKE TO FORMAT TH| 00000130: 45 20 44 49 53 4B 3F 5D 0D 20 50 52 49 4E 54 20 |E DISK?]. PRINT | 00000140: 5B 28 49 46 20 59 4F 55 20 53 41 59 20 59 45 53 |[(IF YOU SAY YES| 00000150: 2C 20 49 54 20 57 49 4C 4C 20 42 45 20 46 4F 52 |, IT WILL BE FOR| 00000160: 4D 41 54 54 45 44 5D 0D 20 50 52 49 4E 54 20 5B |MATTED]. PRINT [| 00000170: 4E 4F 57 29 2E 5D 0D 20 4D 41 4B 45 20 22 52 45 |NOW).]. MAKE "RE| 00000180: 53 50 4F 4E 53 45 20 41 53 4B 20 5B 5D 0D 20 49 |SPONSE ASK []. I| 00000190: 46 20 4E 4F 54 20 46 49 52 53 54 20 46 49 52 53 |F NOT FIRST FIRS| 000001A0: 54 20 3A 52 45 53 50 4F 4E 53 45 20 3D 20 22 59 |T :RESPONSE = "Y| 000001B0: 20 53 54 4F 50 0D 20 50 52 49 4E 54 20 5B 50 4C | STOP. PRINT [PL| 000001C0: 45 41 53 45 20 57 41 49 54 20 41 42 4F 55 54 20 |EASE WAIT ABOUT | 000001D0: 4F 4E 45 20 4D 49 4E 55 54 45 2E 5D 0D 20 44 4F |ONE MINUTE.]. DO| 000001E0: 53 20 5B 4E 30 3A 4C 4F 47 4F 20 55 54 49 4C 49 |S [N0:LOGO UTILI| 000001F0: 54 49 45 53 2C 30 31 5D 0D 20 50 52 49 4E 54 20 |TIES,01]. PRINT | 00000200: 5B 44 49 53 4B 20 46 4F 52 4D 41 54 54 45 44 2E |[DISK FORMATTED.| 00000210: 5D 0D 45 4E 44 0D 0D 54 4F 20 41 53 4B 20 3A 51 |].END..TO ASK :Q| 00000220: 55 45 53 54 49 4F 4E 0D 20 4C 4F 43 41 4C 20 22 |UESTION. LOCAL "| 00000230: 41 4E 53 57 45 52 0D 20 50 52 49 4E 54 31 20 3A |ANSWER. PRINT1 :| 00000240: 51 55 45 53 54 49 4F 4E 0D 20 4D 41 4B 45 20 22 |QUESTION. MAKE "| 00000250: 41 4E 53 57 45 52 20 52 45 51 55 45 53 54 0D 20 |ANSWER REQUEST. | 00000260: 49 46 20 45 4D 50 54 59 3F 20 3A 41 4E 53 57 45 |IF EMPTY? :ANSWE| 00000270: 52 20 4F 50 20 41 53 4B 20 3A 51 55 45 53 54 49 |R OP ASK :QUESTI| 00000280: 4F 4E 0D 20 4F 50 20 3A 41 4E 53 57 45 52 0D 45 |ON. OP :ANSWER.E| 00000290: 4E 44 0D 0D 54 4F 20 43 4F 50 59 0D 20 52 45 41 |ND..TO COPY. REA| 000002A0: 44 20 22 4C 47 2D 46 49 4C 45 53 0D 20 49 4E 53 |D "LG-FILES. INS| 000002B0: 54 52 55 43 54 49 4F 4E 53 0D 20 4D 41 59 42 45 |TRUCTIONS. MAYBE| 000002C0: 2E 46 4F 52 4D 41 54 0D 20 43 4F 50 59 2E 46 49 |.FORMAT. COPY.FI| 000002D0: 4C 45 53 0D 45 4E 44 0D 0D 54 4F 20 43 4F 50 59 |LES.END..TO COPY| 000002E0: 2E 46 49 4C 45 53 0D 20 4E 44 0D 20 43 4F 50 59 |.FILES. ND. COPY| 000002F0: 2E 4C 49 53 54 20 3A 46 49 4C 45 53 0D 20 50 52 |.LIST :FILES. PR| 00000300: 49 4E 54 20 5B 43 4F 50 59 20 43 4F 4D 50 4C 45 |INT [COPY COMPLE| 00000310: 54 45 2E 20 54 59 50 45 5D 0D 20 50 52 49 4E 54 |TE. TYPE]. PRINT| 00000320: 20 5B 43 4F 50 59 5D 0D 20 50 52 49 4E 54 20 5B | [COPY]. PRINT [| 00000330: 54 4F 20 4D 41 4B 45 20 41 4E 4F 54 48 45 52 20 |TO MAKE ANOTHER | 00000340: 43 4F 50 59 2E 5D 0D 45 4E 44 0D 0D 54 4F 20 49 |COPY.].END..TO I| 00000350: 47 4E 4F 52 45 20 3A 4C 49 53 54 0D 45 4E 44 0D |GNORE :LIST.END.| 00000360: 0D 54 4F 20 43 4F 50 59 2E 4C 49 53 54 20 3A 4C |.TO COPY.LIST :L| 00000370: 49 53 54 0D 20 49 46 20 45 4D 50 54 59 3F 20 3A |IST. IF EMPTY? :| 00000380: 4C 49 53 54 20 53 54 4F 50 0D 20 50 52 49 4E 54 |LIST STOP. PRINT| 00000390: 20 5B 49 4E 53 45 52 54 20 54 48 45 20 4F 52 49 | [INSERT THE ORI| 000003A0: 47 49 4E 41 4C 20 44 49 53 4B 3B 20 50 52 45 53 |GINAL DISK; PRES| 000003B0: 53 20 52 45 54 55 52 4E 2E 5D 0D 20 49 47 4E 4F |S RETURN.]. IGNO| 000003C0: 52 45 20 52 45 51 55 45 53 54 0D 20 52 45 41 44 |RE REQUEST. READ| 000003D0: 54 45 58 54 20 46 49 52 53 54 20 3A 4C 49 53 54 |TEXT FIRST :LIST| 000003E0: 0D 20 50 52 49 4E 54 20 5B 49 4E 53 45 52 54 20 |. PRINT [INSERT | 000003F0: 54 48 45 20 4E 45 57 20 44 49 53 4B 20 41 4E 44 |THE NEW DISK AND| 00000400: 20 50 52 45 53 53 20 52 45 54 55 52 4E 2E 5D 0D | PRESS RETURN.].| 00000410: 20 49 47 4E 4F 52 45 20 52 45 51 55 45 53 54 0D | IGNORE REQUEST.| 00000420: 20 53 41 56 45 54 45 58 54 20 46 49 52 53 54 20 | SAVETEXT FIRST | 00000430: 3A 4C 49 53 54 0D 20 43 4F 50 59 2E 4C 49 53 54 |:LIST. COPY.LIST| 00000440: 20 42 46 20 3A 4C 49 53 54 0D 45 4E 44 0D 0D 54 | BF :LIST.END..T| 00000450: 4F 20 52 45 41 44 54 45 58 54 20 3A 46 49 4C 45 |O READTEXT :FILE| 00000460: 0D 20 2E 4F 50 54 49 4F 4E 20 22 52 45 41 44 20 |. .OPTION "READ | 00000470: 30 20 31 0D 20 50 52 49 4E 54 20 53 45 20 22 52 |0 1. PRINT SE "R| 00000480: 45 41 44 49 4E 47 20 3A 46 49 4C 45 0D 20 52 45 |EADING :FILE. RE| 00000490: 41 44 20 3A 46 49 4C 45 0D 20 2E 4F 50 54 49 4F |AD :FILE. .OPTIO| 000004A0: 4E 20 22 52 45 41 44 20 30 20 30 0D 45 4E 44 0D |N "READ 0 0.END.| 000004B0: 0D 54 4F 20 53 41 56 45 54 45 58 54 20 3A 46 49 |.TO SAVETEXT :FI| 000004C0: 4C 45 0D 20 2E 4F 50 54 49 4F 4E 20 22 53 41 56 |LE. .OPTION "SAV| 000004D0: 45 20 30 20 31 0D 20 50 52 49 4E 54 20 53 45 20 |E 0 1. PRINT SE | 000004E0: 22 53 41 56 49 4E 47 20 3A 46 49 4C 45 0D 20 53 |"SAVING :FILE. S| 000004F0: 41 56 45 20 3A 46 49 4C 45 0D 20 2E 4F 50 54 49 |AVE :FILE. .OPTI| 00000500: 4F 4E 20 22 53 41 56 45 20 30 20 30 0D 45 4E 44 |ON "SAVE 0 0.END| 00000510: 0D 0D |.. |
. TO INSTRUCTIONS. NODRAW. PRINT [THIS P ROGRAM WILL MAKE A COPY OF THE]. PRINT [ LOGO UTILITIES DISK. PLEASE INSERT A]. P RINT [BLANK DISK IN THE DRIVE AND PRESS RETURN]. IGNORE REQUEST.END..TO MAYBE.FO RMAT. LOCAL "RESPONSE. PRINT [THE DISK I N THE DRIVE WILL BE ERASED.]. PRINT [WOU LD YOU LIKE TO FORMAT THE DISK?]. PRINT [(IF YOU SAY YES, IT WILL BE FORMATTED]. PRINT [NOW).]. MAKE "RESPONSE ASK []. I F NOT FIRST FIRST :RESPONSE = "Y STOP. P RINT [PLEASE WAIT ABOUT ONE MINUTE.]. DO S [N0:LOGO UTILITIES,01]. PRINT [DISK FO RMATTED.].END..TO ASK :QUESTION. LOCAL " ANSWER. PRINT1 :QUESTION. MAKE "ANSWER R EQUEST. IF EMPTY? :ANSWER OP ASK :QUESTI ON. OP :ANSWER.END..TO COPY. READ "LG-FI LES. INSTRUCTIONS. MAYBE.FORMAT. COPY.FI LES.END..TO COPY.FILES. ND. COPY.LIST :F ILES. PRINT [COPY COMPLETE. TYPE]. PRINT [COPY]. PRINT [TO MAKE ANOTHER COPY.].E ND..TO IGNORE :LIST.END..TO COPY.LIST :L IST. IF EMPTY? :LIST STOP. PRINT [INSERT THE ORIGINAL DISK; PRESS RETURN.]. IGNO RE REQUEST. READTEXT FIRST :LIST. PRINT [INSERT THE NEW DISK AND PRESS RETURN.]. IGNORE REQUEST. SAVETEXT FIRST :LIST. C OPY.LIST BF :LIST.END..TO READTEXT :FILE . .OPTION "READ 0 1. PRINT SE "READING : FILE. READ :FILE. .OPTION "READ 0 0.END. .TO SAVETEXT :FILE. .OPTION "SAVE 0 1. P RINT SE "SAVING :FILE. SAVE :FILE. .OPTI ON "SAVE 0 0.END..
> CLICK IMAGE PREVIEW FOR FULL MODAL