COPY250
FILE INFORMATION
FILENAME(S): COPY250
FILE TYPE(S): PRG
FILE SIZE: 4.1K
FIRST SEEN: 2025-11-30 19:36:54
APPEARS ON: 1 disk(s)
FILE HASH
684546c24af841fbfc948e2f81ffaf489635295eeccef051faad259170f5e1fc
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C 64 UTILITIES 2 | COPY250 | PRG | Curtcool, Bo | 16 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 01 00 99 20 C7 28 31 34 37 29 3A 8F |....... .(147):.|
00000010: 20 43 4C 45 41 52 20 53 43 52 45 45 4E 00 47 08 | CLEAR SCREEN.G.|
00000020: 05 00 41 24 B2 22 22 3A 85 20 22 49 4E 53 54 52 |..A$."":. "INSTR|
00000030: 55 43 54 49 4F 4E 53 20 59 20 4F 52 20 3C 43 52 |UCTIONS Y OR <CR|
00000040: 3E 2F 4E 22 3B 41 24 00 85 08 06 00 8B 20 41 24 |>/N";A$...... A$|
00000050: B2 22 59 22 20 A7 20 99 20 C7 28 31 34 37 29 3A |."Y" . . .(147):|
00000060: 8D 20 36 30 30 30 3A 8F 20 43 4C 45 41 52 20 53 |. 6000:. CLEAR S|
00000070: 43 52 45 45 4E 20 41 4E 44 20 50 52 49 4E 54 20 |CREEN AND PRINT |
00000080: 49 4E 53 54 52 00 A1 08 0A 00 99 20 C7 28 31 34 |INSTR...... .(14|
00000090: 37 29 3A 8F 20 43 4C 45 41 52 20 53 43 52 45 45 |7):. CLEAR SCREE|
000000A0: 4E 00 CE 08 28 00 41 24 B2 22 22 3A 99 20 22 49 |N...(.A$."":. "I|
000000B0: 53 20 46 49 4C 45 20 4C 4F 4E 47 45 52 20 54 48 |S FILE LONGER TH|
000000C0: 41 4E 20 32 33 30 20 42 4C 4F 43 4B 53 22 00 EB |AN 230 BLOCKS"..|
000000D0: 08 32 00 85 20 22 20 20 20 20 20 3C 43 52 3E 2F |.2.. " <CR>/|
000000E0: 4E 4F 20 4F 52 20 59 22 3B 41 24 00 FE 08 3C 00 |NO OR Y";A$...<.|
000000F0: 8B 20 41 24 B2 22 59 22 20 A7 20 33 30 30 00 10 |. A$."Y" . 300..|
00000100: 09 41 00 8B 20 41 24 B3 B1 22 22 20 A7 20 34 30 |.A.. A$.."" . 40|
00000110: 00 2F 09 46 00 8F 20 50 52 4F 47 20 55 4E 44 45 |./.F.. PROG UNDE|
00000120: 52 20 42 41 53 49 43 20 43 4F 4E 54 52 4F 4C 00 |R BASIC CONTROL.|
00000130: 5D 09 64 00 97 20 35 35 2C 30 3A 97 20 35 36 2C |].d.. 55,0:. 56,|
00000140: 32 37 3A 8A 20 31 35 30 3A 8F 20 4C 4F 57 45 52 |27:. 150:. LOWER|
00000150: 20 54 4F 50 20 4F 46 20 42 41 53 49 43 00 86 09 | TOP OF BASIC...|
00000160: 96 00 53 41 B2 32 37 3A 8F 20 48 49 47 48 20 42 |..SA.27:. HIGH B|
00000170: 59 54 45 20 4F 46 20 53 54 41 52 54 20 4F 46 20 |YTE OF START OF |
00000180: 42 55 46 46 45 52 00 AF 09 A0 00 9F 20 31 35 2C |BUFFER...... 15,|
00000190: 38 2C 31 35 3A 8D 20 33 30 30 30 3A 8F 20 4C 4F |8,15:. 3000:. LO|
000001A0: 41 44 20 4D 41 43 48 49 4E 45 20 43 4F 44 45 00 |AD MACHINE CODE.|
000001B0: E4 09 AA 00 97 20 39 31 33 2C 53 41 3A 8F 20 54 |..... 913,SA:. T|
000001C0: 45 4C 4C 20 4D 41 43 48 49 4E 45 20 43 4F 44 45 |ELL MACHINE CODE|
000001D0: 20 54 48 45 20 53 54 41 52 54 20 4F 46 20 42 55 | THE START OF BU|
000001E0: 46 46 45 52 00 2D 0A BE 00 8F 20 43 41 55 53 45 |FFER.-.... CAUSE|
000001F0: 20 4D 41 43 48 49 4E 45 20 43 4F 44 45 20 54 4F | MACHINE CODE TO|
00000200: 20 52 45 54 55 52 4E 20 54 4F 20 42 41 53 49 43 | RETURN TO BASIC|
00000210: 20 50 52 4F 47 52 41 4D 20 49 4E 53 54 45 41 44 | PROGRAM INSTEAD|
00000220: 20 4F 46 20 52 45 42 4F 4F 54 49 4E 47 00 40 0A | OF REBOOTING.@.|
00000230: C8 00 97 20 39 36 36 2C 39 36 3A 89 20 34 32 30 |... 966,96:. 420|
00000240: 00 61 0A 27 01 8F 20 50 52 4F 47 52 41 4D 20 55 |.a.'.. PROGRAM U|
00000250: 53 45 53 20 41 4C 4C 20 4F 46 20 4D 45 4D 4F 52 |SES ALL OF MEMOR|
00000260: 59 00 8A 0A 2C 01 9F 20 31 35 2C 38 2C 31 35 3A |Y...,.. 15,8,15:|
00000270: 8D 20 33 30 30 30 3A 8F 20 4C 4F 41 44 20 4D 41 |. 3000:. LOAD MA|
00000280: 43 48 49 4E 45 20 43 4F 44 45 00 AA 0A 40 01 99 |CHINE CODE...@..|
00000290: 3A 99 22 4D 41 58 20 53 49 5A 45 20 49 53 20 32 |:."MAX SIZE IS 2|
000002A0: 35 30 20 42 4C 4F 43 4B 53 22 00 D3 0A 41 01 99 |50 BLOCKS"...A..|
000002B0: 22 20 20 20 20 20 4F 54 48 45 52 57 49 53 45 20 |" OTHERWISE |
000002C0: 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 41 42 4F |PROGRAM WILL ABO|
000002D0: 52 54 22 00 DC 0A 45 01 53 41 B2 38 00 11 0B 4A |RT"...E.SA.8...J|
000002E0: 01 97 20 39 31 33 2C 53 41 3A 8F 20 54 45 4C 4C |.. 913,SA:. TELL|
000002F0: 20 4D 41 43 48 49 4E 45 20 43 4F 44 45 20 54 48 | MACHINE CODE TH|
00000300: 45 20 53 54 41 52 54 20 4F 46 20 42 55 46 46 45 |E START OF BUFFE|
00000310: 52 00 39 0B 5E 01 99 3A 41 24 B2 22 22 3A 99 20 |R.9.^..:A$."":. |
00000320: 22 4D 41 4B 45 20 4D 4F 52 45 20 54 48 41 4E 20 |"MAKE MORE THAN |
00000330: 4F 4E 45 20 43 4F 50 59 22 00 55 0B 68 01 85 20 |ONE COPY".U.h.. |
00000340: 22 20 20 20 20 20 3C 43 52 3E 2F 4E 20 4F 52 20 |" <CR>/N OR |
00000350: 59 22 3B 41 24 00 67 0B 72 01 8B 20 41 24 B2 22 |Y";A$.g.r.. A$."|
00000360: 22 20 A7 20 34 32 30 00 7B 0B 74 01 8B 20 41 24 |" . 420.{.t.. A$|
00000370: B3 B1 22 59 22 20 A7 20 33 35 30 00 C5 0B 77 01 |.."Y" . 350...w.|
00000380: 8F 20 43 41 55 53 45 20 4D 41 43 48 49 4E 45 20 |. CAUSE MACHINE |
00000390: 43 4F 44 45 20 54 4F 20 52 45 54 55 52 4E 20 54 |CODE TO RETURN T|
000003A0: 4F 20 4F 55 54 50 55 54 20 52 4F 55 54 49 4E 45 |O OUTPUT ROUTINE|
000003B0: 20 49 4E 53 54 45 41 44 20 4F 46 20 52 45 42 4F | INSTEAD OF REBO|
000003C0: 4F 54 49 4E 47 00 DA 0B 78 01 8F 20 4C 41 42 45 |OTING...x.. LABE|
000003D0: 4C 20 22 4E 58 54 46 49 4C 22 00 F0 0B 7C 01 97 |L "NXTFIL"...|..|
000003E0: 20 39 36 37 2C 31 30 31 3A 97 20 39 36 38 2C 33 | 967,101:. 968,3|
000003F0: 00 12 0C A4 01 99 3A 4E 24 B2 22 22 3A 85 20 22 |......:N$."":. "|
00000400: 45 4E 54 45 52 20 46 49 4C 45 4E 41 4D 45 22 3B |ENTER FILENAME";|
00000410: 4E 24 00 24 0C AE 01 8B 20 4E 24 B2 22 22 20 A7 |N$.$.... N$."" .|
00000420: 20 34 32 30 00 48 0C B8 01 58 24 B2 22 22 3A 85 | 420.H...X$."":.|
00000430: 20 22 20 20 20 20 20 41 4E 44 20 46 49 4C 45 20 | " AND FILE |
00000440: 54 59 50 45 22 3B 58 24 00 5A 0C CC 01 8B 20 58 |TYPE";X$.Z.... X|
00000450: 24 B2 22 22 20 A7 20 34 32 30 00 69 0C E0 01 58 |$."" . 420.i...X|
00000460: 24 B2 C8 28 58 24 2C 31 29 00 91 0C EA 01 8B 20 |$..(X$,1)...... |
00000470: 58 24 B3 B1 22 53 22 20 AF 20 58 24 B3 B1 22 50 |X$.."S" . X$.."P|
00000480: 22 20 AF 20 58 24 B3 B1 22 55 22 20 A7 20 34 34 |" . X$.."U" . 44|
00000490: 30 00 AC 0C F4 01 9F 20 35 2C 38 2C 35 2C 4E 24 |0...... 5,8,5,N$|
000004A0: AA 22 2C 22 AA 58 24 AA 22 2C 52 22 00 C0 0C 08 |.",".X$.",R"....|
000004B0: 02 84 31 35 2C 45 31 2C 45 24 2C 45 32 2C 45 33 |..15,E1,E$,E2,E3|
000004C0: 00 DC 0C 1C 02 8B 20 45 31 B3 B1 30 20 A7 20 99 |...... E1..0 . .|
000004D0: 20 45 24 3A A0 35 3A 89 20 34 32 30 00 0F 0D 30 | E$:.5:. 420...0|
000004E0: 02 99 3A 44 24 B2 22 22 3A 99 20 22 45 4E 54 45 |..:D$."":. "ENTE|
000004F0: 52 20 4F 55 54 50 55 54 20 46 49 4C 45 4E 41 4D |R OUTPUT FILENAM|
00000500: 45 20 49 46 20 44 49 46 46 45 52 45 4E 54 22 00 |E IF DIFFERENT".|
00000510: 27 0D 44 02 85 20 22 20 20 20 20 20 4F 52 20 3C |'.D.. " OR <|
00000520: 43 52 3E 22 3B 44 24 00 2D 0D 4E 02 99 00 41 0D |CR>";D$.-.N...A.|
00000530: 58 02 8B 20 44 24 B2 22 22 20 A7 20 44 24 B2 4E |X.. D$."" . D$.N|
00000540: 24 00 4D 0D 6C 02 4C B2 C3 28 44 24 29 00 6B 0D |$.M.l.L..(D$).k.|
00000550: 76 02 8B 20 4C B1 31 36 20 A7 20 44 24 B2 C8 28 |v.. L.16 . D$..(|
00000560: 44 24 2C 31 36 29 3A 4C B2 31 36 00 9A 0D 80 02 |D$,16):L.16.....|
00000570: 97 20 38 38 36 2C 4C AA 34 3A 8F 20 50 4F 4B 45 |. 886,L.4:. POKE|
00000580: 20 4C 45 4E 47 54 48 20 4F 46 20 4F 55 54 50 55 | LENGTH OF OUTPU|
00000590: 54 20 46 49 4C 45 4E 41 4D 45 00 D4 0D 94 02 81 |T FILENAME......|
000005A0: 20 43 B2 31 A4 4C 3A 97 20 37 31 38 AA 43 AB 31 | C.1.L:. 718.C.1|
000005B0: 2C C6 28 CA 28 44 24 2C 43 2C 31 29 AA C7 28 30 |,.(.(D$,C,1)..(0|
000005C0: 29 29 3A 82 3A 8F 20 50 4F 4B 45 20 46 49 4C 45 |)):.:. POKE FILE|
000005D0: 4E 41 4D 45 00 F2 0D D0 02 97 20 37 31 38 AA 4C |NAME...... 718.L|
000005E0: 2C C6 28 22 2C 22 29 3A 8F 20 50 4F 4B 45 20 22 |,.(","):. POKE "|
000005F0: 2C 22 00 1C 0E E4 02 97 20 37 31 38 AA 4C AA 31 |,"...... 718.L.1|
00000600: 2C C6 28 58 24 29 3A 8F 20 50 4F 4B 45 20 46 49 |,.(X$):. POKE FI|
00000610: 4C 45 20 45 58 54 45 4E 53 49 4F 4E 00 3C 0E F8 |LE EXTENSION.<..|
00000620: 02 97 20 37 31 38 AA 4C AA 32 2C C6 28 22 2C 22 |.. 718.L.2,.(","|
00000630: 29 3A 8F 20 50 4F 4B 45 20 22 2C 22 00 6A 0E 0C |):. POKE ",".j..|
00000640: 03 97 20 37 31 38 AA 4C AA 33 2C C6 28 22 57 22 |.. 718.L.3,.("W"|
00000650: 29 3A 8F 20 50 4F 4B 45 20 22 57 22 20 49 45 20 |):. POKE "W" IE |
00000660: 57 52 49 54 45 20 46 49 4C 45 00 9B 0E 20 03 97 |WRITE FILE... ..|
00000670: 20 32 35 31 2C 30 3A 8F 20 53 54 41 52 54 20 41 | 251,0:. START A|
00000680: 44 44 52 45 53 53 20 4F 46 20 42 55 46 46 45 52 |DDRESS OF BUFFER|
00000690: 20 4C 4F 57 45 52 20 42 59 54 45 00 B9 0E 34 03 | LOWER BYTE...4.|
000006A0: 97 20 32 35 32 2C 53 41 3A 8F 20 41 4E 44 20 55 |. 252,SA:. AND U|
000006B0: 50 50 45 52 20 42 59 54 45 00 D7 0E 5C 03 97 20 |PPER BYTE...\.. |
000006C0: 35 33 32 36 35 2C 31 31 3A 8F 20 42 4C 41 4E 4B |53265,11:. BLANK|
000006D0: 20 53 43 52 45 45 4E 00 09 0F 70 03 97 20 37 38 | SCREEN...p.. 78|
000006E0: 31 2C 35 3A 9E 20 36 35 34 37 38 3A 8F 20 53 45 |1,5:. 65478:. SE|
000006F0: 54 20 58 20 52 45 47 20 4F 46 20 35 20 41 4E 44 |T X REG OF 5 AND|
00000700: 20 44 4F 20 43 48 4B 49 4E 00 26 0F 84 03 97 20 | DO CHKIN.&.... |
00000710: 37 38 32 2C 30 3A 8F 20 53 45 54 20 59 20 52 45 |782,0:. SET Y RE|
00000720: 47 20 54 4F 20 30 00 48 0F B6 03 9E 20 38 32 30 |G TO 0.H.... 820|
00000730: 3A 8F 20 53 54 41 52 54 20 4F 46 20 4D 41 43 48 |:. START OF MACH|
00000740: 49 4E 45 20 43 4F 44 45 00 53 0F C0 03 89 20 31 |INE CODE.S.... 1|
00000750: 31 30 30 00 8C 0F E8 03 9E 20 38 36 39 3A 8F 20 |100...... 869:. |
00000760: 4D 41 43 48 49 4E 45 20 43 4F 44 45 20 4F 55 54 |MACHINE CODE OUT|
00000770: 50 55 54 20 50 41 52 54 20 4F 4E 4C 59 20 4C 41 |PUT PART ONLY LA|
00000780: 42 45 4C 20 22 4E 58 54 46 49 4C 22 00 B6 0F 4C |BEL "NXTFIL"...L|
00000790: 04 41 24 B2 22 22 3A 85 20 22 41 4E 4F 54 48 45 |.A$."":. "ANOTHE|
000007A0: 52 20 43 4F 50 59 20 3C 43 52 3E 2F 4E 20 4F 52 |R COPY <CR>/N OR|
000007B0: 20 59 22 3B 41 24 00 CA 0F B0 04 8B 20 41 24 B2 | Y";A$...... A$.|
000007C0: 22 59 22 20 A7 20 31 30 30 30 00 E2 0F E2 04 8B |"Y" . 1000......|
000007D0: 20 41 24 B3 B1 22 22 20 A7 20 99 3A 89 20 31 31 | A$.."" . .:. 11|
000007E0: 30 30 00 0F 10 14 05 99 3A 41 24 B2 22 22 3A 85 |00......:A$."":.|
000007F0: 20 22 43 4F 50 59 20 4E 45 57 20 46 49 4C 45 20 | "COPY NEW FILE |
00000800: 3C 43 52 3E 2F 4E 20 4F 52 20 59 22 3B 41 24 00 |<CR>/N OR Y";A$.|
00000810: 1F 10 78 05 8B 20 41 24 B2 22 22 20 A7 20 80 00 |..x.. A$."" . ..|
00000820: 34 10 DC 05 8B 20 41 24 B3 B1 22 59 22 20 A7 20 |4.... A$.."Y" . |
00000830: 31 33 30 30 00 63 10 D0 07 99 3A 41 24 B2 22 22 |1300.c....:A$.""|
00000840: 3A 99 20 22 49 53 20 46 49 4C 45 20 4C 4F 4E 47 |:. "IS FILE LONG|
00000850: 45 52 20 54 48 41 4E 20 32 33 30 20 42 4C 4F 43 |ER THAN 230 BLOC|
00000860: 4B 53 22 00 7F 10 34 08 85 20 22 20 20 20 20 20 |KS"...4.. " |
00000870: 3C 43 52 3E 2F 4E 20 4F 52 20 59 22 3B 41 24 00 |<CR>/N OR Y";A$.|
00000880: 91 10 98 08 8B 20 41 24 B2 22 22 20 A7 20 34 32 |..... A$."" . 42|
00000890: 30 00 A6 10 FC 08 8B 20 41 24 B3 B1 22 59 22 20 |0...... A$.."Y" |
000008A0: A7 20 32 30 30 30 00 EC 10 C4 09 97 20 39 36 36 |. 2000...... 966|
000008B0: 2C 37 36 3A 8F 20 49 46 20 4C 4F 4E 47 45 52 20 |,76:. IF LONGER |
000008C0: 43 41 55 53 45 20 4D 41 43 48 49 4E 45 20 43 4F |CAUSE MACHINE CO|
000008D0: 44 45 20 50 52 4F 47 52 41 4D 20 54 4F 20 44 4F |DE PROGRAM TO DO|
000008E0: 20 4A 4D 50 20 4E 4F 54 20 52 54 53 00 F6 10 8C | JMP NOT RTS....|
000008F0: 0A 89 20 33 32 30 00 15 11 B8 0B 81 20 43 B2 38 |.. 320...... C.8|
00000900: 32 30 20 A4 20 31 30 32 33 3A 87 20 56 3A 97 20 |20 . 1023:. V:. |
00000910: 43 2C 56 3A 82 00 33 11 B9 0B 81 20 43 B2 36 37 |C,V:..3.... C.67|
00000920: 39 20 A4 20 37 36 37 3A 87 20 56 3A 97 20 43 2C |9 . 767:. V:. C,|
00000930: 56 3A 82 00 39 11 BA 0B 8E 00 82 11 88 13 83 20 |V:..9.......... |
00000940: 33 32 2C 32 30 37 2C 32 35 35 2C 31 37 30 2C 31 |32,207,255,170,1|
00000950: 32 30 2C 31 36 39 2C 34 38 2C 31 33 33 2C 31 2C |20,169,48,133,1,|
00000960: 31 33 38 2C 31 34 35 2C 32 35 31 2C 31 36 39 2C |138,145,251,169,|
00000970: 35 35 2C 31 33 33 2C 31 2C 38 38 2C 33 32 2C 31 |55,133,1,88,32,1|
00000980: 38 33 00 C8 11 8A 13 83 20 32 35 35 2C 32 30 31 |83...... 255,201|
00000990: 2C 36 34 2C 32 34 30 2C 31 36 2C 32 30 30 2C 32 |,64,240,16,200,2|
000009A0: 30 38 2C 32 32 39 2C 32 33 30 2C 32 35 32 2C 32 |08,229,230,252,2|
000009B0: 30 38 2C 32 32 35 2C 33 32 2C 32 33 34 2C 33 2C |08,225,32,234,3,|
000009C0: 33 32 2C 32 30 37 2C 33 00 E9 11 8B 13 83 20 37 |32,207,3...... 7|
000009D0: 36 2C 32 32 36 2C 32 35 32 2C 31 33 32 2C 32 35 |6,226,252,132,25|
000009E0: 33 2C 31 36 35 2C 32 35 32 00 08 12 8C 13 83 20 |3,165,252...... |
000009F0: 31 33 33 2C 32 35 34 2C 33 32 2C 32 33 34 2C 33 |133,254,32,234,3|
00000A00: 2C 31 36 32 2C 32 32 36 00 17 12 8D 13 83 20 31 |,162,226...... 1|
00000A10: 36 30 2C 32 2C 33 32 00 63 12 8E 13 83 20 32 30 |60,2,32.c.... 20|
00000A20: 31 2C 33 2C 31 36 39 2C 35 2C 31 36 32 2C 38 2C |1,3,169,5,162,8,|
00000A30: 31 36 30 2C 35 2C 33 32 2C 31 38 36 2C 32 35 35 |160,5,32,186,255|
00000A40: 2C 31 36 39 2C 32 30 2C 31 36 32 2C 32 30 36 2C |,169,20,162,206,|
00000A50: 31 36 30 2C 32 2C 33 32 2C 31 38 39 2C 32 35 35 |160,2,32,189,255|
00000A60: 2C 33 32 00 A3 12 90 13 83 20 31 39 32 2C 32 35 |,32...... 192,25|
00000A70: 35 2C 33 32 2C 31 36 37 2C 32 2C 31 36 32 2C 35 |5,32,167,2,162,5|
00000A80: 2C 33 32 2C 32 30 31 2C 32 35 35 2C 31 36 39 2C |,32,201,255,169,|
00000A90: 31 31 2C 31 34 31 2C 31 37 2C 32 30 38 2C 31 36 |11,141,17,208,16|
00000AA0: 30 2C 30 00 B3 12 91 13 83 20 31 36 39 2C 38 2C |0,0...... 169,8,|
00000AB0: 31 33 33 00 F9 12 92 13 83 20 32 35 32 2C 31 32 |133...... 252,12|
00000AC0: 30 2C 31 36 39 2C 34 38 2C 31 33 33 2C 31 2C 31 |0,169,48,133,1,1|
00000AD0: 37 37 2C 32 35 31 2C 31 37 30 2C 31 36 39 2C 35 |77,251,170,169,5|
00000AE0: 35 2C 31 33 33 2C 31 2C 38 38 2C 31 33 38 2C 33 |5,133,1,88,138,3|
00000AF0: 32 2C 32 31 30 2C 32 35 35 00 30 13 94 13 83 20 |2,210,255.0.... |
00000B00: 31 36 35 2C 32 35 32 2C 31 39 37 2C 32 35 34 2C |165,252,197,254,|
00000B10: 32 30 38 2C 37 2C 31 39 36 2C 32 35 33 2C 32 34 |208,7,196,253,24|
00000B20: 30 2C 31 30 2C 32 30 30 2C 32 30 38 2C 32 32 36 |0,10,200,208,226|
00000B30: 00 5B 13 96 13 83 20 32 30 30 2C 32 30 38 2C 32 |.[.... 200,208,2|
00000B40: 32 33 2C 32 33 30 2C 32 35 32 2C 32 30 38 2C 32 |23,230,252,208,2|
00000B50: 31 39 2C 33 32 2C 32 33 34 2C 33 00 A0 13 98 13 |19,32,234,3.....|
00000B60: 83 20 33 32 2C 31 36 37 2C 32 2C 31 36 32 2C 32 |. 32,167,2,162,2|
00000B70: 34 39 2C 31 36 30 2C 32 2C 33 32 2C 32 30 31 2C |49,160,2,32,201,|
00000B80: 33 2C 37 36 2C 32 32 36 2C 32 35 32 2C 31 34 32 |3,76,226,252,142|
00000B90: 2C 32 31 30 2C 33 2C 31 34 30 2C 32 31 31 2C 33 |,210,3,140,211,3|
00000BA0: 00 E9 13 9A 13 83 20 31 36 32 2C 30 2C 31 38 39 |...... 162,0,189|
00000BB0: 2C 32 33 37 2C 32 2C 32 34 30 2C 36 2C 33 32 2C |,237,2,240,6,32,|
00000BC0: 32 31 30 2C 32 35 35 2C 32 33 32 2C 32 30 38 2C |210,255,232,208,|
00000BD0: 32 34 35 2C 33 32 2C 32 30 34 2C 32 35 35 2C 33 |245,32,204,255,3|
00000BE0: 32 2C 32 30 37 2C 32 35 35 00 0C 14 9C 13 83 20 |2,207,255...... |
00000BF0: 32 30 31 2C 31 33 2C 32 30 38 2C 32 34 39 2C 33 |201,13,208,249,3|
00000C00: 32 2C 32 31 30 2C 32 35 35 2C 39 36 00 53 14 9D |2,210,255,96.S..|
00000C10: 13 83 20 33 32 2C 32 30 34 2C 32 35 35 2C 31 36 |.. 32,204,255,16|
00000C20: 39 2C 32 37 2C 31 34 31 2C 31 37 2C 32 30 38 2C |9,27,141,17,208,|
00000C30: 31 36 39 2C 35 2C 33 32 2C 31 39 35 2C 32 35 35 |169,5,32,195,255|
00000C40: 2C 39 36 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |,96,0,0,0,0,0,0,|
00000C50: 30 2C 30 00 9C 14 9E 13 83 20 31 36 32 2C 31 35 |0,0...... 162,15|
00000C60: 2C 33 32 2C 31 39 38 2C 32 35 35 2C 31 36 30 2C |,32,198,255,160,|
00000C70: 30 2C 33 32 2C 32 30 37 2C 32 35 35 2C 32 30 31 |0,32,207,255,201|
00000C80: 2C 34 38 2C 32 34 30 2C 32 31 2C 33 32 2C 32 31 |,48,240,21,32,21|
00000C90: 30 2C 32 35 35 2C 33 32 2C 32 30 37 00 E6 14 A0 |0,255,32,207....|
00000CA0: 13 83 20 32 35 35 2C 32 30 31 2C 31 33 2C 32 30 |.. 255,201,13,20|
00000CB0: 38 2C 32 34 36 2C 33 32 2C 32 31 30 2C 32 35 35 |8,246,32,210,255|
00000CC0: 2C 33 32 2C 32 30 34 2C 32 35 35 2C 31 30 34 2C |,32,204,255,104,|
00000CD0: 31 30 34 2C 37 36 2C 39 38 2C 33 2C 33 32 2C 32 |104,76,98,3,32,2|
00000CE0: 30 34 2C 32 35 35 00 32 15 A2 13 83 20 39 36 2C |04,255.2.... 96,|
00000CF0: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |0,0,0,0,0,0,0,0,|
00000D00: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |0,0,0,0,0,0,0,0,|
00000D10: 30 2C 30 2C 30 2C 30 2C 36 38 2C 36 39 2C 38 33 |0,0,0,0,68,69,83|
00000D20: 2C 38 34 2C 33 32 2C 36 38 2C 37 33 2C 38 33 2C |,84,32,68,73,83,|
00000D30: 37 35 00 73 15 A4 13 83 20 31 33 2C 30 2C 37 30 |75.s.... 13,0,70|
00000D40: 2C 37 33 2C 37 36 2C 36 39 2C 33 32 2C 36 32 2C |,73,76,69,32,62,|
00000D50: 33 32 2C 35 30 2C 35 33 2C 34 38 2C 31 33 2C 30 |32,50,53,48,13,0|
00000D60: 2C 36 38 2C 37 39 2C 37 38 2C 36 39 2C 31 33 2C |,68,79,78,69,13,|
00000D70: 30 2C 30 00 A1 15 70 17 99 22 31 29 20 50 52 4F |0,0...p.."1) PRO|
00000D80: 47 52 41 4D 20 50 52 4F 4D 50 54 53 20 55 53 45 |GRAM PROMPTS USE|
00000D90: 52 20 46 4F 52 20 41 4C 4C 20 49 4E 50 55 54 53 |R FOR ALL INPUTS|
00000DA0: 22 00 BD 15 71 17 99 22 20 20 20 41 4E 44 20 4F |"...q.." AND O|
00000DB0: 50 45 52 41 54 49 4F 4E 53 2E 22 3A 99 00 EC 15 |PERATIONS.":....|
00000DC0: 72 17 99 22 32 29 20 46 49 4C 45 53 20 32 33 30 |r.."2) FILES 230|
00000DD0: 20 42 4C 4F 43 4B 53 20 4F 52 20 4C 45 53 53 20 | BLOCKS OR LESS |
00000DE0: 44 4F 20 4E 4F 54 20 57 49 50 45 22 00 19 16 73 |DO NOT WIPE"...s|
00000DF0: 17 99 22 20 20 20 4F 55 54 20 54 48 45 20 42 41 |.." OUT THE BA|
00000E00: 53 49 43 20 50 52 4F 47 52 41 4D 20 53 4F 20 4D |SIC PROGRAM SO M|
00000E10: 4F 52 45 20 54 48 41 4E 22 00 4A 16 74 17 99 22 |ORE THAN".J.t.."|
00000E20: 20 20 20 4F 4E 45 20 46 49 4C 45 20 43 41 4E 20 | ONE FILE CAN |
00000E30: 42 45 20 43 4F 50 49 45 44 20 53 55 43 43 45 53 |BE COPIED SUCCES|
00000E40: 53 49 56 45 4C 59 2E 22 3A 99 00 78 16 75 17 99 |SIVELY.":..x.u..|
00000E50: 22 33 29 20 49 46 20 46 4F 52 20 46 49 4C 45 53 |"3) IF FOR FILES|
00000E60: 20 4C 4F 4E 47 45 52 20 54 48 41 4E 20 32 33 30 | LONGER THAN 230|
00000E70: 20 42 4C 4F 43 4B 53 22 00 A3 16 76 17 99 22 20 | BLOCKS"...v.." |
00000E80: 20 20 4D 4F 52 45 20 54 48 41 4E 20 4F 4E 45 20 | MORE THAN ONE |
00000E90: 43 4F 50 59 20 49 53 20 52 45 51 55 45 53 54 45 |COPY IS REQUESTE|
00000EA0: 44 2C 22 00 D0 16 77 17 99 22 20 20 20 54 48 45 |D,"...w.." THE|
00000EB0: 4E 20 54 48 45 20 4F 4E 4C 59 20 57 41 59 20 54 |N THE ONLY WAY T|
00000EC0: 4F 20 54 45 52 4D 49 4E 41 54 45 20 54 48 45 22 |O TERMINATE THE"|
00000ED0: 00 FA 16 78 17 99 22 20 20 20 50 52 4F 47 52 41 |...x.." PROGRA|
00000EE0: 4D 20 49 53 20 42 59 20 53 54 4F 50 2F 52 45 53 |M IS BY STOP/RES|
00000EF0: 54 4F 52 45 20 4B 45 59 2E 22 00 2B 17 79 17 99 |TORE KEY.".+.y..|
00000F00: 22 20 20 20 54 48 45 4E 20 52 45 42 4F 4F 54 20 |" THEN REBOOT |
00000F10: 54 48 45 20 53 59 53 54 45 4D 20 42 59 20 53 59 |THE SYSTEM BY SY|
00000F20: 53 20 36 34 37 33 38 2E 22 3A 99 00 57 17 7A 17 |S 64738.":..W.z.|
00000F30: 99 22 34 29 20 46 49 4C 45 53 20 43 4F 4E 54 41 |."4) FILES CONTA|
00000F40: 49 4E 49 4E 47 20 4F 4E 4C 59 20 31 20 43 48 41 |INING ONLY 1 CHA|
00000F50: 52 41 43 54 45 52 22 00 83 17 7B 17 99 22 20 20 |RACTER"...{.." |
00000F60: 20 43 41 4E 4E 4F 54 20 42 45 20 43 4F 50 49 45 | CANNOT BE COPIE|
00000F70: 44 20 43 4F 52 52 45 43 54 4C 59 20 44 55 45 20 |D CORRECTLY DUE |
00000F80: 54 4F 22 00 AE 17 7C 17 99 22 20 20 20 41 20 42 |TO"...|.." A B|
00000F90: 55 47 20 49 4E 20 54 48 45 20 4F 50 45 52 41 54 |UG IN THE OPERAT|
00000FA0: 49 4E 47 20 53 59 53 54 45 4D 2E 22 3A 99 00 DB |ING SYSTEM.":...|
00000FB0: 17 7D 17 99 22 35 29 20 45 4E 54 45 52 20 41 20 |.}.."5) ENTER A |
00000FC0: 3C 43 52 3E 20 41 46 54 45 52 20 41 4C 4C 20 50 |<CR> AFTER ALL P|
00000FD0: 52 4F 4D 50 54 53 20 41 4E 44 22 00 06 18 7E 17 |ROMPTS AND"...~.|
00000FE0: 99 22 20 20 20 49 4E 50 55 54 20 50 41 52 41 4D |." INPUT PARAM|
00000FF0: 45 54 45 52 53 20 54 4F 20 50 52 4F 43 45 45 44 |ETERS TO PROCEED|
00001000: 20 57 49 54 48 22 00 21 18 7F 17 99 22 20 20 20 | WITH".!...." |
00001010: 54 48 45 20 50 52 4F 47 52 41 4D 2E 22 3A 99 3A |THE PROGRAM.":.:|
00001020: 99 00 40 18 80 17 99 22 48 49 54 20 41 4E 59 20 |..@...."HIT ANY |
00001030: 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 |KEY TO CONTINUE"|
00001040: 00 58 18 81 17 A1 20 41 24 3A 8B 20 41 24 B2 22 |.X.... A$:. A$."|
00001050: 22 20 A7 20 36 30 31 37 00 5E 18 82 17 8E 00 00 |" . 6017.^......|
00001060: 00 00 00 |... |
....... G(147):. CLEAR SCREEN.G...A$."":
. "INSTRUCTIONS Y OR <CR>/N";A$...... A$
."Y" . . G(147):. 6000:. CLEAR SCREEN AN
D PRINT INSTR...... G(147):. CLEAR SCREE
N.N.(.A$."":. "IS FILE LONGER THAN 230 B
LOCKS"...2.. " <CR>/NO OR Y";A$...<.
. A$."Y" . 300...A.. A$.."" . 40./.F.. P
ROG UNDER BASIC CONTROL.].D.. 55,0:. 56,
27:. 150:. LOWER TOP OF BASIC.....SA.27:
. HIGH BYTE OF START OF BUFFER... .. 15,
8,15:. 3000:. LOAD MACHINE CODE...... 91
3,SA:. TELL MACHINE CODE THE START OF BU
FFER.-.... CAUSE MACHINE CODE TO RETURN
TO BASIC PROGRAM INSTEAD OF REBOOTING.@.
H.. 966,96:. 420.A.'.. PROGRAM USES ALL
OF MEMORY...,.. 15,8,15:. 3000:. LOAD MA
CHINE CODE...@..:."MAX SIZE IS 250 BLOCK
S".S.A.." OTHERWISE PROGRAM WILL ABO
RT"...E.SA.8...J.. 913,SA:. TELL MACHINE
CODE THE START OF BUFFER.9.^..:A$."":.
"MAKE MORE THAN ONE COPY".U.H.. " <C
R>/N OR Y";A$.G.R.. A$."" . 420.{.T.. A$
.."Y" . 350.E.W.. CAUSE MACHINE CODE TO
RETURN TO OUTPUT ROUTINE INSTEAD OF REBO
OTING.Z.X.. LABEL "NXTFIL"...|.. 967,101
:. 968,3......:N$."":. "ENTER FILENAME";
N$.$.... N$."" . 420.H...X$."":. " A
ND FILE TYPE";X$.Z.L.. X$."" . 420.I...X
$.H(X$,1)...... X$.."S" . X$.."P" . X$..
"U" . 440...... 5,8,5,N$.",".X$.",R"....
..15,E1,E$,E2,E3...... E1..0 . . E$: 5:.
420...0..:D$."":. "ENTER OUTPUT FILENAM
E IF DIFFERENT".'.D.. " OR <CR>";D$.
-.N...A.X.. D$."" . D$.N$.M.L.L.C(D$).K.
V.. L.16 . D$.H(D$,16):L.16...... 886,L.
4:. POKE LENGTH OF OUTPUT FILENAME.T....
C.1.L:. 718.C.1,F(J(D$,C,1).G(0)):.:. P
OKE FILENAME...P.. 718.L,F(","):. POKE "
,"...... 718.L.1,F(X$):. POKE FILE EXTEN
SION.<.... 718.L.2,F(","):. POKE ",".J..
.. 718.L.3,F("W"):. POKE "W" IE WRITE FI
LE... .. 251,0:. START ADDRESS OF BUFFER
LOWER BYTE...4.. 252,SA:. AND UPPER BYT
E.W.\.. 53265,11:. BLANK SCREEN...P.. 78
1,5:. 65478:. SET X REG OF 5 AND DO CHKI
N.&.... 782,0:. SET Y REG TO 0.H.... 820
:. START OF MACHINE CODE.S.... 1100.....
. 869:. MACHINE CODE OUTPUT PART ONLY LA
BEL "NXTFIL"...L.A$."":. "ANOTHER COPY <
CR>/N OR Y";A$.J.... A$."Y" . 1000......
A$.."" . .:. 1100......:A$."":. "COPY N
EW FILE <CR>/N OR Y";A$...X.. A$."" . ..
4.... A$.."Y" . 1300.C.P..:A$."":. "IS F
ILE LONGER THAN 230 BLOCKS"..4.. "
<CR>/N OR Y";A$...... A$."" . 420......
A$.."Y" . 2000...D.. 966,76:. IF LONGER
CAUSE MACHINE CODE PROGRAM TO DO JMP NOT
RTS...... 320...... C.820 . 1023:. V:.
C,V:..3.... C.679 . 767:. V:. C,V:..9...
....... 32,207,255,170,120,169,48,133,1,
138,145,251,169,55,133,1,88,32,183.H....
255,201,64,240,16,200,208,229,230,252,2
08,225,32,234,3,32,207,3...... 76,226,25
2,132,253,165,252...... 133,254,32,234,3
,162,226...... 160,2,32.C.... 201,3,169,
5,162,8,160,5,32,186,255,169,20,162,206,
160,2,32,189,255,32...... 192,255,32,167
,2,162,5,32,201,255,169,11,141,17,208,16
0,0...... 169,8,133...... 252,120,169,48
,133,1,177,251,170,169,55,133,1,88,138,3
2,210,255.0.... 165,252,197,254,208,7,19
6,253,240,10,200,208,226.[.... 200,208,2
23,230,252,208,219,32,234,3. .... 32,167
,2,162,249,160,2,32,201,3,76,226,252,142
,210,3,140,211,3...... 162,0,189,237,2,2
40,6,32,210,255,232,208,245,32,204,255,3
2,207,255...... 201,13,208,249,32,210,25
5,96.S.... 32,204,255,169,27,141,17,208,
169,5,32,195,255,96,0,0,0,0,0,0,0,0.....
. 162,15,32,198,255,160,0,32,207,255,201
,48,240,21,32,210,255,32,207... .. 255,2
01,13,208,246,32,210,255,32,204,255,104,
104,76,98,3,32,204,255.2.... 96,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,68,69,83
,84,32,68,73,83,75.S.... 13,0,70,73,76,6
9,32,62,32,50,53,48,13,0,68,79,78,69,13,
0,0...P.."1) PROGRAM PROMPTS USER FOR AL
L INPUTS"...Q.." AND OPERATIONS.":....
R.."2) FILES 230 BLOCKS OR LESS DO NOT W
IPE"...S.." OUT THE BASIC PROGRAM SO M
ORE THAN".J.T.." ONE FILE CAN BE COPIE
D SUCCESSIVELY.":..X.U.."3) IF FOR FILES
LONGER THAN 230 BLOCKS"...V.." MORE T
HAN ONE COPY IS REQUESTED,".P.W.." THE
N THE ONLY WAY TO TERMINATE THE"...X.."
PROGRAM IS BY STOP/RESTORE KEY.".+.Y..
" THEN REBOOT THE SYSTEM BY SYS 64738.
":..W.Z.."4) FILES CONTAINING ONLY 1 CHA
RACTER"...{.." CANNOT BE COPIED CORREC
TLY DUE TO"...|.." A BUG IN THE OPERAT
ING SYSTEM.":....}.."5) ENTER A <CR> AFT
ER ALL PROMPTS AND"...~.." INPUT PARAM
ETERS TO PROCEED WITH".!..." THE PROG
RAM.":.:..@...."HIT ANY KEY TO CONTINUE"
.X.... A$:. A$."" . 6017.^.........
> CLICK IMAGE PREVIEW FOR FULL MODAL