SIN DISK COPY.C
FILE INFORMATION
FILENAME(S): SIN DISK COPY.C
FILE TYPE(S): PRG
FILE SIZE: 3K
FIRST SEEN: 2025-12-01 02:03:32
APPEARS ON: 1 disk(s)
FILE HASH
345d1bab151cb1b35eb17d82a479460d0cb0153ef9ae2e5cf9e40e0075cdc5a7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DIVERSE PROGRAM | SIN DISK COPY.C | PRG | hedning, pewp | 13 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 18 08 5A 00 97 35 33 32 38 31 2C 30 3A 97 |....Z..53281,0:.|
00000010: 35 33 32 38 30 2C 31 31 00 38 08 64 00 8F 20 31 |53280,11.8.d.. 1|
00000020: 20 53 49 4E 2B 2D 2D 53 49 4E 47 4C 45 20 44 52 | SIN+--SINGLE DR|
00000030: 49 56 45 20 43 4F 50 59 00 4A 08 69 00 8F 20 52 |IVE COPY.J.i.. R|
00000040: 49 43 4B 20 59 4F 55 4E 49 45 00 57 08 6E 00 97 |ICK YOUNIE.W.n..|
00000050: 35 36 2C 33 30 3A 9C 00 87 08 6F 00 99 22 93 0E |56,30:....o.."..|
00000060: 9F 20 20 20 20 12 C1 A0 C4 C9 D2 C5 C3 D4 CF D2 |. ...........|
00000070: D9 A0 D3 C5 CC C5 C3 D4 A0 C3 CF D0 D9 A0 D0 D2 |................|
00000080: CF C7 D2 C1 CD 92 11 00 B3 08 70 00 99 22 20 31 |..........p.." 1|
00000090: 35 34 31 2D 4C 4F 41 44 20 41 4E 44 20 52 55 4E |541-LOAD AND RUN|
000000A0: 20 43 2D 36 34 20 57 45 44 47 45 20 46 49 52 53 | C-64 WEDGE FIRS|
000000B0: 54 11 22 00 00 09 71 00 99 22 20 32 30 33 31 2D |T."...q.." 2031-|
000000C0: 52 45 4C 4F 43 41 54 45 20 43 2D 4C 49 4E 4B 20 |RELOCATE C-LINK |
000000D0: 54 4F 20 24 43 30 30 30 20 26 20 43 48 41 4E 47 |TO $C000 & CHANG|
000000E0: 45 20 20 20 20 20 20 20 4C 49 4E 45 20 31 33 30 |E LINE 130|
000000F0: 20 54 4F 20 54 4D 3D 31 32 2A 34 30 39 36 2D 31 | TO TM=12*4096-1|
00000100: 00 0B 09 73 00 8D 35 39 30 30 30 00 34 09 78 00 |...s..59000.4.x.|
00000110: 99 A3 35 29 22 12 49 4E 53 45 52 54 20 53 4F 55 |..5)".INSERT SOU|
00000120: 52 43 45 20 44 49 53 4B 20 41 4E 44 20 52 45 54 |RCE DISK AND RET|
00000130: 55 52 4E 22 00 4B 09 79 00 A1 41 24 3A 8B 41 24 |URN".K.y..A$:.A$|
00000140: B3 B1 C7 28 31 33 29 A7 31 32 31 00 7B 09 7C 00 |...(13).121.{.|.|
00000150: 99 22 93 20 53 45 4C 45 43 54 20 50 52 4F 47 53 |.". SELECT PROGS|
00000160: 20 28 59 2F 4E 29 20 2A 20 54 4F 20 42 45 47 49 | (Y/N) * TO BEGI|
00000170: 4E 20 54 52 41 4E 53 46 45 52 22 00 C1 09 7D 00 |N TRANSFER"...}.|
00000180: 4D 41 58 B2 32 30 3A 86 4E 41 24 28 4D 41 58 29 |MAX.20:.NA$(MAX)|
00000190: 2C 54 59 24 28 4D 41 58 29 2C 42 4C 28 4D 41 58 |,TY$(MAX),BL(MAX|
000001A0: 29 2C 20 20 20 20 20 45 4F 46 28 4D 41 58 29 3A |), EOF(MAX):|
000001B0: 57 41 53 54 45 B2 39 33 33 3A 5A 24 B2 C7 28 30 |WASTE.933:Z$..(0|
000001C0: 29 00 EF 09 82 00 54 4D B2 31 32 AC 34 30 39 36 |).....TM.12.4096|
000001D0: AA 31 32 AC 32 35 36 AB 31 3A 8F 20 24 43 42 46 |.12.256.1:. $CBF|
000001E0: 46 20 57 49 54 48 20 43 36 34 57 45 44 47 45 00 |F WITH C64WEDGE.|
000001F0: 08 0A 87 00 42 43 B2 B5 28 54 4D AD 32 35 36 AB |....BC..(TM.256.|
00000200: C2 28 35 36 29 AB 31 29 00 1A 0A 8C 00 9F 31 35 |.(56).1)......15|
00000210: 2C 38 2C 31 35 2C 22 49 30 22 00 2A 0A 91 00 9F |,8,15,"I0".*....|
00000220: 32 2C 38 2C 32 2C 22 24 30 22 00 42 0A 96 00 84 |2,8,2,"$0".B....|
00000230: 31 35 2C 45 30 24 2C 45 31 24 2C 45 32 24 2C 45 |15,E0$,E1$,E2$,E|
00000240: 33 24 00 6E 0A 9B 00 8B 45 30 24 B3 B1 22 30 30 |3$.n....E0$.."00|
00000250: 22 A7 99 C7 28 35 29 45 30 24 22 20 22 45 31 24 |"...(5)E0$" "E1$|
00000260: 22 20 22 45 32 24 22 20 22 45 33 24 3A 80 00 82 |" "E2$" "E3$:...|
00000270: 0A A0 00 97 37 38 31 2C 32 35 34 3A 9E 57 41 53 |....781,254:.WAS|
00000280: 54 45 00 8A 0A A5 00 4E B2 31 00 92 0A AA 00 4A |TE.....N.1.....J|
00000290: B2 31 00 9E 0A AF 00 A1 23 32 2C 54 59 24 00 BB |.1......#2,TY$..|
000002A0: 0A B4 00 8B 54 59 24 B2 C7 28 31 32 39 29 A7 54 |....TY$..(129).T|
000002B0: 59 24 B2 22 53 22 3A 89 32 30 30 00 D8 0A B9 00 |Y$."S":.200.....|
000002C0: 8B 54 59 24 B2 C7 28 31 33 30 29 A7 54 59 24 B2 |.TY$..(130).TY$.|
000002D0: 22 50 22 3A 89 32 30 30 00 F5 0A BE 00 8B 54 59 |"P":.200......TY|
000002E0: 24 B2 C7 28 31 33 31 29 A7 54 59 24 B2 22 55 22 |$..(131).TY$."U"|
000002F0: 3A 89 32 30 30 00 0D 0B C3 00 97 37 38 31 2C 32 |:.200......781,2|
00000300: 38 3A 9E 57 41 53 54 45 3A 89 32 38 30 00 1B 0B |8:.WASTE:.280...|
00000310: C8 00 A1 23 32 2C 41 24 2C 41 24 00 26 0B CD 00 |...#2,A$,A$.&...|
00000320: 4E 41 24 B2 22 22 00 50 0B D2 00 81 49 B2 35 A4 |NA$."".P....I.5.|
00000330: 32 30 3A A1 23 32 2C 41 24 3A 8B 41 24 B3 B1 C7 |20:.#2,A$:.A$...|
00000340: 28 31 36 30 29 A7 4E 41 24 B2 4E 41 24 AA 41 24 |(160).NA$.NA$.A$|
00000350: 00 56 0B D7 00 82 00 6C 0B DC 00 81 49 B2 32 31 |.V.....l....I.21|
00000360: A4 32 39 3A A1 23 32 2C 41 24 3A 82 00 85 0B E1 |.29:.#2,A$:.....|
00000370: 00 A1 23 32 2C 42 4C 24 3A 42 4C B2 C6 28 42 4C |..#2,BL$:BL..(BL|
00000380: 24 AA 5A 24 29 00 9E 0B E6 00 99 A3 34 29 4E 41 |$.Z$).......4)NA|
00000390: 24 A3 32 31 29 54 59 24 A3 32 33 29 42 4C 00 B1 |$.21)TY$.23)BL..|
000003A0: 0B EB 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 32 33 |....A$:.A$."".23|
000003B0: 35 00 EE 0B F0 00 8B 41 24 B2 22 4E 22 A7 99 22 |5......A$."N".."|
000003C0: 91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
000003D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 C7 | ".|
000003E0: 28 31 34 31 29 22 91 91 22 3A 89 32 38 30 00 20 |(141)"..":.280. |
000003F0: 0C F5 00 8B 41 24 B2 22 2A 22 A7 99 A3 34 29 22 |....A$."*"...4)"|
00000400: 91 2D 2D 2D 2D 2D 2D 2D 4C 4F 41 44 49 4E 47 20 |.-------LOADING |
00000410: 43 36 34 2D 2D 2D 2D 2D 2D 2D 22 3A 89 33 30 30 |C64-------":.300|
00000420: 00 31 0C FA 00 8B 41 24 B3 B1 22 59 22 A7 32 33 |.1....A$.."Y".23|
00000430: 35 00 74 0C FF 00 8B 42 4C B1 42 43 A7 99 22 91 |5.t....BL.BC..".|
00000440: 20 4E 4F 20 4D 4F 52 45 20 52 4F 4F 4D 2D 2D 2A | NO MORE ROOM--*|
00000450: 20 54 4F 20 4C 4F 41 44 20 43 36 34 22 3A 81 57 | TO LOAD C64":.W|
00000460: B2 31 A4 35 30 30 3A 82 3A 41 24 B2 22 4E 22 3A |.1.500:.:A$."N":|
00000470: 89 32 34 30 00 86 0C 04 01 99 22 91 22 A3 33 30 |.240......".".30|
00000480: 29 42 43 AB 42 4C 00 93 0C 09 01 42 43 B2 42 43 |)BC.BL.....BC.BC|
00000490: AB 42 4C 00 BC 0C 0E 01 4E 41 24 28 4E 29 B2 4E |.BL.....NA$(N).N|
000004A0: 41 24 3A 54 59 24 28 4E 29 B2 54 59 24 3A 42 4C |A$:TY$(N).TY$:BL|
000004B0: 28 4E 29 B2 42 4C 3A 4E B2 4E AA 31 00 EF 0C 13 |(N).BL:N.N.1....|
000004C0: 01 8B 4E B1 4D 41 58 A7 99 22 20 20 20 20 20 4D |..N.MAX.." M|
000004D0: 41 58 20 4E 4F 2E 20 50 52 4F 47 53 20 20 20 20 |AX NO. PROGS |
000004E0: 20 20 20 20 3D 20 22 4D 41 58 3A 89 33 30 30 00 | = "MAX:.300.|
000004F0: 02 0D 18 01 A1 23 32 2C 41 24 3A 8B 53 54 A7 32 |.....#2,A$:.ST.2|
00000500: 39 35 00 20 0D 1D 01 4A B2 4A AA 31 3A 8B 4A B3 |95. ...J.J.1:.J.|
00000510: 39 A7 A1 23 32 2C 41 24 2C 41 24 3A 89 31 37 35 |9..#2,A$,A$:.175|
00000520: 00 29 0D 22 01 89 31 37 30 00 51 0D 27 01 99 A3 |.)."..170.Q.'...|
00000530: 36 29 22 4E 4F 20 4D 4F 52 45 20 50 52 4F 47 52 |6)"NO MORE PROGR|
00000540: 41 4D 53 2D 2D 4C 4F 41 44 49 4E 47 20 43 36 34 |AMS--LOADING C64|
00000550: 22 00 58 0D 2C 01 A0 32 00 7F 0D 31 01 4E B2 4E |".X.,..2...1.N.N|
00000560: AB 31 3A 8B 4E B2 30 A7 99 A3 32 34 29 22 91 4E |.1:.N.0...24)".N|
00000570: 4F 4E 45 20 53 45 4C 45 43 54 45 44 22 3A 80 00 |ONE SELECTED":..|
00000580: 85 0D 36 01 3A 00 8B 0D 3B 01 3A 00 C3 0D 40 01 |..6.:...;.:...@.|
00000590: 58 53 41 56 B2 37 38 31 3A 59 53 41 56 B2 37 38 |XSAV.781:YSAV.78|
000005A0: 32 3A 47 49 54 B2 38 32 38 3A 50 49 54 B2 38 37 |2:GIT.828:PIT.87|
000005B0: 36 3A 20 20 20 20 20 20 20 20 20 20 53 55 50 B2 |6: SUP.|
000005C0: 38 36 39 00 DB 0D 45 01 58 46 52 B2 C2 28 35 36 |869...E.XFR..(56|
000005D0: 29 AC 32 35 36 AA C2 28 35 35 29 00 E1 0D 4A 01 |).256..(55)...J.|
000005E0: 3A 00 E9 0D 4F 01 49 B2 31 00 0B 0E 54 01 9F 32 |:...O.I.1...T..2|
000005F0: 2C 38 2C 32 2C 4E 41 24 28 49 29 AA 22 2C 22 AA |,8,2,NA$(I).",".|
00000600: 54 59 24 28 49 29 AA 22 2C 52 22 00 24 0E 59 01 |TY$(I).",R".$.Y.|
00000610: 99 22 20 22 4E 41 24 28 49 29 A3 31 38 29 54 59 |." "NA$(I).18)TY|
00000620: 24 28 49 29 00 58 0E 5E 01 84 31 35 2C 45 30 24 |$(I).X.^..15,E0$|
00000630: 2C 45 31 24 3A 8B 45 30 24 B3 B1 22 30 30 22 A7 |,E1$:.E0$.."00".|
00000640: 99 A3 32 30 29 22 91 22 45 31 24 3A 42 4C 28 49 |..20)"."E1$:BL(I|
00000650: 29 B2 30 3A 89 33 38 30 00 9A 0E 63 01 48 49 B2 |).0:.380...c.HI.|
00000660: B5 28 58 46 52 AD 32 35 36 29 3A 4C 4F B2 58 46 |.(XFR.256):LO.XF|
00000670: 52 AB 48 49 AC 32 35 36 3A 20 20 20 20 20 20 20 |R.HI.256: |
00000680: 20 20 20 20 97 59 53 41 56 2C 48 49 3A 97 58 53 | .YSAV,HI:.XS|
00000690: 41 56 2C 4C 4F 3A 9E 47 49 54 00 CE 0E 68 01 84 |AV,LO:.GIT...h..|
000006A0: 31 35 2C 45 30 24 2C 45 31 24 3A 8B 45 30 24 B3 |15,E0$,E1$:.E0$.|
000006B0: B1 22 30 30 22 A7 99 A3 32 30 29 22 91 22 45 31 |."00"...20)"."E1|
000006C0: 24 3A 42 4C 28 49 29 B2 30 3A 89 33 38 30 00 ED |$:BL(I).0:.380..|
000006D0: 0E 6D 01 45 4F 46 28 49 29 B2 C2 28 58 53 41 56 |.m.EOF(I)..(XSAV|
000006E0: 29 AA C2 28 59 53 41 56 29 AC 32 35 36 00 FE 0E |)..(YSAV).256...|
000006F0: 72 01 58 46 52 B2 45 4F 46 28 49 29 AA 31 00 2E |r.XFR.EOF(I).1..|
00000700: 0F 77 01 99 22 91 20 20 20 20 20 20 20 20 20 20 |.w..". |
00000710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000720: 20 20 20 22 C7 28 31 34 31 29 22 91 91 22 00 35 | ".(141)"..".5|
00000730: 0F 7C 01 A0 32 00 49 0F 81 01 49 B2 49 AA 31 3A |.|..2.I...I.I.1:|
00000740: 8B 49 B3 B2 4E A7 33 34 30 00 51 0F 86 01 A0 31 |.I..N.340.Q....1|
00000750: 35 00 57 0F 8B 01 3A 00 8A 0F 90 01 97 31 39 38 |5.W...:......198|
00000760: 2C 30 3A 99 22 91 1D 1D 1D 1D 49 4E 53 45 52 54 |,0:.".....INSERT|
00000770: 20 44 45 53 54 49 4E 41 54 49 4F 4E 20 44 49 53 | DESTINATION DIS|
00000780: 4B 20 26 20 52 45 54 55 52 4E 00 A1 0F 95 01 A1 |K & RETURN......|
00000790: 41 24 3A 8B 41 24 B3 B1 C7 28 31 33 29 A7 34 30 |A$:.A$...(13).40|
000007A0: 35 00 B9 0F 9A 01 58 46 52 B2 C2 28 35 36 29 AC |5.....XFR..(56).|
000007B0: 32 35 36 AA C2 28 35 35 29 00 BF 0F 9F 01 3A 00 |256..(55).....:.|
000007C0: D1 0F A4 01 9F 31 35 2C 38 2C 31 35 2C 22 49 30 |.....15,8,15,"I0|
000007D0: 22 00 E1 0F A9 01 84 31 35 2C 45 30 24 2C 45 31 |"......15,E0$,E1|
000007E0: 24 00 F3 0F AE 01 8B 45 30 24 B2 22 30 30 22 A7 |$......E0$."00".|
000007F0: 34 34 35 00 2A 10 B3 01 99 22 20 44 49 53 4B 20 |445.*...." DISK |
00000800: 50 52 4F 42 4C 45 4D 2D 46 49 58 20 41 4E 44 20 |PROBLEM-FIX AND |
00000810: 54 59 50 45 20 43 4F 4E 54 3C 52 45 54 3E 22 3A |TYPE CONT<RET>":|
00000820: A0 31 35 3A 90 3A 89 34 32 30 00 30 10 B8 01 3A |.15:.:.420.0...:|
00000830: 00 3B 10 BD 01 81 49 B2 31 A4 4E 00 4C 10 C2 01 |.;....I.1.N.L...|
00000840: 8B 42 4C 28 49 29 B2 30 A7 34 39 35 00 6E 10 C7 |.BL(I).0.495.n..|
00000850: 01 9F 32 2C 38 2C 31 2C 4E 41 24 28 49 29 AA 22 |..2,8,1,NA$(I)."|
00000860: 2C 22 AA 54 59 24 28 49 29 AA 22 2C 57 22 00 7E |,".TY$(I).",W".~|
00000870: 10 CC 01 84 31 35 2C 45 30 24 2C 45 31 24 00 9D |....15,E0$,E1$..|
00000880: 10 D1 01 99 22 20 22 4E 41 24 28 49 29 A3 31 38 |...." "NA$(I).18|
00000890: 29 54 59 24 28 49 29 22 20 22 45 31 24 00 B0 10 |)TY$(I)" "E1$...|
000008A0: D6 01 8B 45 30 24 B3 B1 22 30 30 22 A7 34 39 30 |...E0$.."00".490|
000008B0: 00 E7 10 DB 01 48 49 B2 B5 28 58 46 52 AD 32 35 |.....HI..(XFR.25|
000008C0: 36 29 3A 4C 4F B2 58 46 52 AB 48 49 AC 32 35 36 |6):LO.XFR.HI.256|
000008D0: 3A 97 59 53 41 56 2C 48 49 3A 97 58 53 41 56 2C |:.YSAV,HI:.XSAV,|
000008E0: 4C 4F 3A 9E 53 55 50 00 2B 11 E0 01 58 46 52 B2 |LO:.SUP.+...XFR.|
000008F0: 45 4F 46 28 49 29 AA 31 3A 48 49 B2 B5 28 58 46 |EOF(I).1:HI..(XF|
00000900: 52 AD 32 35 36 29 3A 4C 4F B2 58 46 52 AB 48 49 |R.256):LO.XFR.HI|
00000910: AC 32 35 36 3A 97 59 53 41 56 2C 48 49 3A 97 58 |.256:.YSAV,HI:.X|
00000920: 53 41 56 2C 4C 4F 3A 9E 50 49 54 00 67 11 E5 01 |SAV,LO:.PIT.g...|
00000930: 84 31 35 2C 45 30 24 2C 45 31 24 3A 8B 45 30 24 |.15,E0$,E1$:.E0$|
00000940: B3 B1 22 30 30 22 A7 99 A3 35 29 22 12 46 41 54 |.."00"...5)".FAT|
00000950: 41 4C 20 45 52 52 4F 52 20 22 45 30 24 22 20 22 |AL ERROR "E0$" "|
00000960: 45 31 24 3A 49 B2 4E 00 6E 11 EA 01 A0 32 00 74 |E1$:I.N.n....2.t|
00000970: 11 EF 01 82 00 7C 11 F4 01 A0 31 35 00 A0 11 F9 |.....|....15....|
00000980: 01 99 22 11 50 4F 4B 45 35 36 2C 31 36 30 20 3A |..".POKE56,160 :|
00000990: 52 45 4D 20 49 46 20 46 49 4E 49 53 48 45 44 22 |REM IF FINISHED"|
000009A0: 00 EC 11 FE 01 99 22 11 47 4F 54 4F 34 30 30 20 |......".GOTO400 |
000009B0: 20 20 20 3A 52 45 4D 20 54 4F 20 53 41 56 45 20 | :REM TO SAVE |
000009C0: 50 52 4F 47 53 20 54 4F 20 20 20 20 20 20 20 20 |PROGS TO |
000009D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000009E0: 41 4E 4F 54 48 45 52 20 44 49 53 4B 00 F2 11 03 |ANOTHER DISK....|
000009F0: 02 80 00 02 12 78 E6 81 49 B2 38 32 38 A4 31 30 |.....x..I.828.10|
00000A00: 30 30 00 12 12 82 E6 87 20 41 3A 8B 41 B3 30 A7 |00...... A:.A.0.|
00000A10: 20 8E 00 1B 12 8C E6 97 49 2C 41 00 21 12 96 E6 | .......I,A.!...|
00000A20: 82 00 5F 12 60 EA 83 20 31 34 32 2C 37 35 2C 33 |.._.`.. 142,75,3|
00000A30: 2C 31 34 30 2C 37 36 2C 33 2C 31 36 32 2C 32 2C |,140,76,3,162,2,|
00000A40: 33 32 2C 31 39 38 2C 32 35 35 2C 33 32 2C 32 32 |32,198,255,32,22|
00000A50: 38 2C 32 35 35 2C 31 34 31 2C 37 37 2C 34 37 00 |8,255,141,77,47.|
00000A60: A1 12 61 EA 83 20 31 36 36 2C 31 34 34 2C 32 30 |..a.. 166,144,20|
00000A70: 38 2C 31 30 2C 32 33 38 2C 37 35 2C 33 2C 32 30 |8,10,238,75,3,20|
00000A80: 38 2C 32 34 31 2C 32 33 38 2C 37 36 2C 33 2C 32 |8,241,238,76,3,2|
00000A90: 30 38 2C 32 33 36 2C 33 32 2C 32 30 34 2C 32 35 |08,236,32,204,25|
00000AA0: 35 00 DD 12 62 EA 83 20 31 37 34 2C 37 35 2C 33 |5...b.. 174,75,3|
00000AB0: 2C 31 37 32 2C 37 36 2C 33 2C 39 36 2C 31 34 32 |,172,76,3,96,142|
00000AC0: 2C 31 32 34 2C 33 2C 31 34 30 2C 31 32 35 2C 33 |,124,3,140,125,3|
00000AD0: 2C 39 36 2C 31 34 32 2C 31 35 34 2C 33 00 1C 13 |,96,142,154,3...|
00000AE0: 63 EA 83 20 31 34 30 2C 31 34 37 2C 33 2C 31 36 |c.. 140,147,3,16|
00000AF0: 39 2C 35 34 2C 31 33 33 2C 31 2C 31 36 32 2C 32 |9,54,133,1,162,2|
00000B00: 2C 33 32 2C 32 30 31 2C 32 35 35 2C 31 37 33 2C |,32,201,255,173,|
00000B10: 37 38 2C 34 37 2C 33 32 2C 32 31 30 00 5B 13 64 |78,47,32,210.[.d|
00000B20: EA 83 20 32 35 35 2C 32 34 2C 31 37 33 2C 31 32 |.. 255,24,173,12|
00000B30: 34 2C 33 2C 31 30 35 2C 31 2C 31 34 31 2C 31 32 |4,3,105,1,141,12|
00000B40: 34 2C 33 2C 31 37 33 2C 31 32 35 2C 33 2C 31 30 |4,3,173,125,3,10|
00000B50: 35 2C 30 2C 31 34 31 2C 31 32 35 00 9D 13 65 EA |5,0,141,125...e.|
00000B60: 83 20 33 2C 32 30 31 2C 34 37 2C 32 30 38 2C 32 |. 3,201,47,208,2|
00000B70: 32 39 2C 31 37 33 2C 31 32 34 2C 33 2C 32 30 31 |29,173,124,3,201|
00000B80: 2C 37 38 2C 32 30 38 2C 32 32 32 2C 33 32 2C 32 |,78,208,222,32,2|
00000B90: 30 34 2C 32 35 35 2C 31 36 39 2C 35 35 00 B6 13 |04,255,169,55...|
00000BA0: 66 EA 83 20 31 33 33 2C 31 2C 39 36 2C 31 34 32 |f.. 133,1,96,142|
00000BB0: 2C 31 37 34 2C 33 00 FA 13 67 EA 83 31 36 32 2C |,174,3...g..162,|
00000BC0: 32 2C 33 32 2C 31 39 38 2C 32 35 35 2C 31 36 32 |2,32,198,255,162|
00000BD0: 2C 31 2C 33 32 2C 32 32 38 2C 32 35 35 2C 32 30 |,1,32,228,255,20|
00000BE0: 32 2C 32 30 38 2C 32 35 30 2C 33 32 2C 32 30 34 |2,208,250,32,204|
00000BF0: 2C 32 35 35 2C 39 36 2C 2D 31 00 00 08 FB |,255,96,-1.... |
....Z..53281,0:.53280,11.8.D.. 1 SIN+--S
INGLE DRIVE COPY.J.I.. RICK YOUNIE.W.N..
56,30:....O.."... .A DIRECTORY SELECT
COPY PROGRAM.....P.." 1541-LOAD AND RUN
C-64 WEDGE FIRST."...Q.." 2031-RELOCATE
C-LINK TO $C000 & CHANGE LINE 130
TO TM=12*4096-1...S..59000.4.X...5)".IN
SERT SOURCE DISK AND RETURN".K.Y..A$:.A$
..G(13).121.{.|..". SELECT PROGS (Y/N) *
TO BEGIN TRANSFER".A.}.MAX.20:.NA$(MAX)
,TY$(MAX),BL(MAX), EOF(MAX):WASTE.93
3:Z$.G(0).....TM.12.4096.12.256.1:. $CBF
F WITH C64WEDGE.....BC..(TM.256.B(56).1)
......15,8,15,"I0".*....2,8,2,"$0".B....
15,E0$,E1$,E2$,E3$.N....E0$.."00"..G(5)E
0$" "E1$" "E2$" "E3$:.... ..781,254:.WAS
TE.....N.1.....J.1......#2,TY$......TY$.
G(129).TY$."S":.200.X....TY$.G(130).TY$.
"P":.200......TY$.G(131).TY$."U":.200...
C..781,28:.WASTE:.280...H..#2,A$,A$.&.M.
NA$."".P.R..I.5.20:.#2,A$:.A$..G(160).NA
$.NA$.A$.V.W...L....I.21.29:.#2,A$:.....
..#2,BL$:BL.F(BL$.Z$).......4)NA$.21)TY$
.23)BL......A$:.A$."".235......A$."N".."
. "G(141)"..
":.280. ....A$."*"...4)".-------LOADING
C64-------":.300.1....A$.."Y".235.T....B
L.BC..". NO MORE ROOM--* TO LOAD C64":.W
.1.500:.:A$."N":.240......".".30)BC.BL..
...BC.BC.BL.....NA$(N).NA$:TY$(N).TY$:BL
(N).BL:N.N.1......N.MAX.." MAX NO. P
ROGS = "MAX:.300......#2,A$:.ST.2
95. ...J.J.1:.J.9..#2,A$,A$:.175.)."..17
0.Q.'...6)"NO MORE PROGRAMS--LOADING C64
".X.,. 2..1.N.N.1:.N.0...24)".NONE SELE
CTED":....6.:...;.:.C.@.XSAV.781:YSAV.78
2:GIT.828:PIT.876: SUP.869...E.
XFR.B(56).256.B(55)...J.:...O.I.1...T..2
,8,2,NA$(I).",".TY$(I).",R".$.Y.." "NA$(
I).18)TY$(I).X.^..15,E0$,E1$:.E0$.."00".
..20)"."E1$:BL(I).0:.380...C.HI..(XFR.25
6):LO.XFR.HI.256: .YSAV,HI:.XS
AV,LO:.GIT.N.H..15,E0$,E1$:.E0$.."00"...
20)"."E1$:BL(I).0:.380...M.EOF(I).B(XSAV
).B(YSAV).256...R.XFR.EOF(I).1...W..".
"G(141)"..".5
.|. 2.I...I.I.1:.I..N.340.Q... 15.W...:.
.....198,0:.".....INSERT DESTINATION DIS
K & RETURN......A$:.A$..G(13).405.....XF
R.B(56).256.B(55).....:.Q....15,8,15,"I0
"......15,E0$,E1$......E0$."00".445.*...
." DISK PROBLEM-FIX AND TYPE CONT<RET>":
15:.:.420.0...:.;....I.1.N.L.B..BL(I).0
.495.N.G..2,8,1,NA$(I).",".TY$(I).",W".~
.L..15,E0$,E1$...Q.." "NA$(I).18)TY$(I)"
"E1$...V..E0$.."00".490.....HI..(XFR.25
6):LO.XFR.HI.256:.YSAV,HI:.XSAV,LO:.SUP.
+...XFR.EOF(I).1:HI..(XFR.256):LO.XFR.HI
.256:.YSAV,HI:.XSAV,LO:.PIT.G....15,E0$,
E1$:.E0$.."00"...5)".FATAL ERROR "E0$" "
E1$:I.N.N... 2.T.....|... 15. ....".POKE
56,160 :REM IF FINISHED"......".GOTO400
:REM TO SAVE PROGS TO
ANOTHER DISK.........X..I.828.10
00...... A:.A.0. .......I,A.!....._.`..
142,75,3,140,76,3,162,2,32,198,255,32,22
8,255,141,77,47...A.. 166,144,208,10,238
,75,3,208,241,238,76,3,208,236,32,204,25
5...B.. 174,75,3,172,76,3,96,142,124,3,1
40,125,3,96,142,154,3...C.. 140,147,3,16
9,54,133,1,162,2,32,201,255,173,78,47,32
,210.[.D.. 255,24,173,124,3,105,1,141,12
4,3,173,125,3,105,0,141,125...E.. 3,201,
47,208,229,173,124,3,201,78,208,222,32,2
04,255,169,55...F.. 133,1,96,142,174,3..
.G..162,2,32,198,255,162,1,32,228,255,20
2,208,250,32,204,255,96,-1....
> CLICK IMAGE PREVIEW FOR FULL MODAL