COPY.LOGO
FILE INFORMATION
FILENAME(S): COPY.LOGO
FILE TYPE(S): PRG
FILE SIZE: 1.3K
FIRST SEEN: 2025-11-30 21:09:48
APPEARS ON: 1 disk(s)
FILE HASH
9d3886c07ec0a0ff926eba088aec4c64791a0b12bafff87f2098faba842cefa4
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SIMONS BASIC PRO | COPY.LOGO | PRG | DuncanTwain | 33 | 15 | 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 2E 46 49 4C 45 |ND..TO COPY.FILE| 000002A0: 53 0D 20 4E 44 0D 20 43 4F 50 59 2E 4C 49 53 54 |S. ND. COPY.LIST| 000002B0: 20 3A 46 49 4C 45 53 0D 20 50 52 49 4E 54 20 5B | :FILES. PRINT [| 000002C0: 43 4F 50 59 20 43 4F 4D 50 4C 45 54 45 2E 20 54 |COPY COMPLETE. T| 000002D0: 59 50 45 5D 0D 20 50 52 49 4E 54 20 5B 43 4F 50 |YPE]. PRINT [COP| 000002E0: 59 5D 0D 20 50 52 49 4E 54 20 5B 54 4F 20 4D 41 |Y]. PRINT [TO MA| 000002F0: 4B 45 20 41 4E 4F 54 48 45 52 20 43 4F 50 59 2E |KE ANOTHER COPY.| 00000300: 5D 0D 45 4E 44 0D 0D 54 4F 20 49 47 4E 4F 52 45 |].END..TO IGNORE| 00000310: 20 3A 4C 49 53 54 0D 45 4E 44 0D 0D 54 4F 20 43 | :LIST.END..TO C| 00000320: 4F 50 59 2E 4C 49 53 54 20 3A 4C 49 53 54 0D 20 |OPY.LIST :LIST. | 00000330: 49 46 20 45 4D 50 54 59 3F 20 3A 4C 49 53 54 20 |IF EMPTY? :LIST | 00000340: 53 54 4F 50 0D 20 50 52 49 4E 54 20 5B 49 4E 53 |STOP. PRINT [INS| 00000350: 45 52 54 20 54 48 45 20 4F 52 49 47 49 4E 41 4C |ERT THE ORIGINAL| 00000360: 20 44 49 53 4B 3B 20 50 52 45 53 53 20 52 45 54 | DISK; PRESS RET| 00000370: 55 52 4E 2E 5D 0D 20 49 47 4E 4F 52 45 20 52 45 |URN.]. IGNORE RE| 00000380: 51 55 45 53 54 0D 20 52 45 41 44 54 45 58 54 20 |QUEST. READTEXT | 00000390: 46 49 52 53 54 20 3A 4C 49 53 54 0D 20 50 52 49 |FIRST :LIST. PRI| 000003A0: 4E 54 20 5B 49 4E 53 45 52 54 20 54 48 45 20 4E |NT [INSERT THE N| 000003B0: 45 57 20 44 49 53 4B 20 41 4E 44 20 50 52 45 53 |EW DISK AND PRES| 000003C0: 53 20 52 45 54 55 52 4E 2E 5D 0D 20 49 47 4E 4F |S RETURN.]. IGNO| 000003D0: 52 45 20 52 45 51 55 45 53 54 0D 20 53 41 56 45 |RE REQUEST. SAVE| 000003E0: 54 45 58 54 20 46 49 52 53 54 20 3A 4C 49 53 54 |TEXT FIRST :LIST| 000003F0: 0D 20 43 4F 50 59 2E 4C 49 53 54 20 42 46 20 3A |. COPY.LIST BF :| 00000400: 4C 49 53 54 0D 45 4E 44 0D 0D 54 4F 20 53 41 56 |LIST.END..TO SAV| 00000410: 45 54 45 58 54 20 3A 46 49 4C 45 0D 20 2E 4F 50 |ETEXT :FILE. .OP| 00000420: 54 49 4F 4E 20 22 53 41 56 45 20 30 20 31 0D 20 |TION "SAVE 0 1. | 00000430: 50 52 49 4E 54 20 53 45 20 22 53 41 56 49 4E 47 |PRINT SE "SAVING| 00000440: 20 3A 46 49 4C 45 0D 20 53 41 56 45 20 3A 46 49 | :FILE. SAVE :FI| 00000450: 4C 45 0D 20 2E 4F 50 54 49 4F 4E 20 22 53 41 56 |LE. .OPTION "SAV| 00000460: 45 20 30 20 30 0D 45 4E 44 0D 0D 54 4F 20 52 45 |E 0 0.END..TO RE| 00000470: 41 44 54 45 58 54 20 3A 46 49 4C 45 0D 20 2E 4F |ADTEXT :FILE. .O| 00000480: 50 54 49 4F 4E 20 22 52 45 41 44 20 30 20 31 0D |PTION "READ 0 1.| 00000490: 20 50 52 49 4E 54 20 53 45 20 22 52 45 41 44 49 | PRINT SE "READI| 000004A0: 4E 47 20 3A 46 49 4C 45 0D 20 52 45 41 44 20 3A |NG :FILE. READ :| 000004B0: 46 49 4C 45 0D 20 2E 4F 50 54 49 4F 4E 20 22 52 |FILE. .OPTION "R| 000004C0: 45 41 44 20 30 20 30 0D 45 4E 44 0D 0D 54 4F 20 |EAD 0 0.END..TO | 000004D0: 43 4F 50 59 0D 20 52 45 41 44 20 22 55 54 49 4C |COPY. READ "UTIL| 000004E0: 49 54 59 2E 46 49 4C 45 53 0D 20 49 4E 53 54 52 |ITY.FILES. INSTR| 000004F0: 55 43 54 49 4F 4E 53 0D 20 4D 41 59 42 45 2E 46 |UCTIONS. MAYBE.F| 00000500: 4F 52 4D 41 54 0D 20 43 4F 50 59 2E 46 49 4C 45 |ORMAT. COPY.FILE| 00000510: 53 0D 45 4E 44 0D 0D 80 |S.END... |
. 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.FILES. ND. C OPY.LIST :FILES. PRINT [COPY COMPLETE. T YPE]. PRINT [COPY]. PRINT [TO MAKE ANOTH ER COPY.].END..TO IGNORE :LIST.END..TO C OPY.LIST :LIST. IF EMPTY? :LIST STOP. PR INT [INSERT THE ORIGINAL DISK; PRESS RET URN.]. IGNORE REQUEST. READTEXT FIRST :L IST. PRINT [INSERT THE NEW DISK AND PRES S RETURN.]. IGNORE REQUEST. SAVETEXT FIR ST :LIST. COPY.LIST BF :LIST.END..TO SAV ETEXT :FILE. .OPTION "SAVE 0 1. PRINT SE "SAVING :FILE. SAVE :FILE. .OPTION "SAV E 0 0.END..TO READTEXT :FILE. .OPTION "R EAD 0 1. PRINT SE "READING :FILE. READ : FILE. .OPTION "READ 0 0.END..TO COPY. RE AD "UTILITY.FILES. INSTRUCTIONS. MAYBE.F ORMAT. COPY.FILES.END...
> CLICK IMAGE PREVIEW FOR FULL MODAL