58K DISK COPY
FILE INFORMATION
FILENAME(S): 58K DISK COPY
FILE TYPE(S): PRG
FILE SIZE: 4.6K
FIRST SEEN: 2025-11-02 16:54:40
APPEARS ON: 1 disk(s)
FILE HASH
a10d86b4b29c4c6c84282d480b12496f535674ca231112dd2fe098437ef41c83
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C 64 MENUE | 58K DISK COPY | PRG | Treasure Chest - Reamigation | 32 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 64 00 8F 20 4D 4F 44 20 46 52 20 36 |..&.d.. MOD FR 6|
00000010: 2F 38 33 20 47 41 5A 45 54 54 45 20 42 59 20 4A |/83 GAZETTE BY J|
00000020: 20 52 55 42 49 4E 00 2F 08 6E 00 89 37 30 30 00 | RUBIN./.n..700.|
00000030: 43 08 C7 00 8F 20 52 45 41 44 20 44 49 53 4B 20 |C.... READ DISK |
00000040: 45 52 52 00 5B 08 C8 00 84 31 2C 45 52 2C 45 52 |ERR.[....1,ER,ER|
00000050: 24 2C 45 32 25 2C 45 33 25 3A 8E 00 6C 08 2B 01 |$,E2%,E3%:..l.+.|
00000060: 8F 20 52 45 41 44 20 42 4C 4F 43 4B 00 7A 08 2C |. READ BLOCK.z.,|
00000070: 01 97 35 33 32 38 30 2C 4E 55 00 92 08 36 01 43 |..53280,NU...6.C|
00000080: B2 2E 3A 56 B2 31 31 30 37 AA 53 31 AC 34 30 AA |..:V.1107.S1.40.|
00000090: 54 31 00 CA 08 40 01 8F 20 41 44 44 20 53 4B 49 |T1...@.. ADD SKI|
000000A0: 50 20 49 46 20 59 4F 55 20 48 41 56 45 20 50 41 |P IF YOU HAVE PA|
000000B0: 52 41 4C 4C 45 4C 20 49 45 45 45 20 49 4E 54 45 |RALLEL IEEE INTE|
000000C0: 52 46 41 43 45 20 48 45 52 45 00 D9 08 4A 01 97 |RFACE HERE...J..|
000000D0: 32 35 35 2C 42 42 AA 4E 55 00 FE 08 54 01 98 31 |255,BB.NU...T..1|
000000E0: 2C 22 55 31 22 3B 33 3B 2E 3B 54 31 3B 53 31 3A |,"U1";3;.;T1;S1:|
000000F0: 8D 32 30 30 3A 8B 45 52 B2 2E 89 33 37 30 00 11 |.200:.ER...370..|
00000100: 09 5E 01 43 B2 43 AA 31 3A 8B 43 B3 33 89 33 34 |.^.C.C.1:.C.3.34|
00000110: 30 00 22 09 68 01 97 56 2C 45 52 3A 9E 39 30 32 |0.".h..V,ER:.902|
00000120: 3A 8E 00 37 09 72 01 98 31 2C 22 42 2D 50 22 3B |:..7.r..1,"B-P";|
00000130: 33 3B 2E 3A 9E 4D 41 00 49 09 7C 01 8B 4E 55 B3 |3;.:.MA.I.|..NU.|
00000140: B1 2E A7 97 56 2C 31 32 37 00 65 09 86 01 8B 53 |....V,127.e....S|
00000150: 54 B3 B1 2E AF 53 54 B3 B1 36 34 A7 8D 32 30 30 |T....ST..64..200|
00000160: 3A 89 33 36 30 00 6B 09 90 01 8E 00 7D 09 F3 01 |:.360.k.....}...|
00000170: 8F 20 57 52 49 54 45 20 42 4C 4F 43 4B 00 8B 09 |. WRITE BLOCK...|
00000180: F4 01 97 35 33 32 38 30 2C 4E 55 00 93 09 FE 01 |...53280,NU.....|
00000190: 43 B2 2E 00 AE 09 08 02 8B 55 25 B2 2E A7 98 31 |C........U%....1|
000001A0: 2C 22 42 2D 41 22 3B 2E 3B 54 31 3B 53 31 00 BF |,"B-A";.;T1;S1..|
000001B0: 09 12 02 98 31 2C 22 42 2D 50 22 3B 33 3B 2E 00 |....1,"B-P";3;..|
000001C0: DC 09 1C 02 8B 4E 55 B3 B1 2E A7 97 31 31 30 37 |.....NU.....1107|
000001D0: AA 53 31 AC 34 30 AA 54 31 2C 33 32 00 14 0A 26 |.S1.40.T1,32...&|
000001E0: 02 8F 20 41 44 44 20 53 4B 49 50 20 49 46 20 59 |.. ADD SKIP IF Y|
000001F0: 4F 55 20 48 41 56 45 20 50 41 52 41 4C 4C 45 4C |OU HAVE PARALLEL|
00000200: 20 49 45 45 45 20 49 4E 54 45 52 46 41 43 45 20 | IEEE INTERFACE |
00000210: 48 45 52 45 00 29 0A 30 02 97 32 35 35 2C 42 42 |HERE.).0..255,BB|
00000220: AA 4E 55 3A 9E 4D 41 AA 33 00 52 0A 3A 02 8B 53 |.NU:.MA.3.R.:..S|
00000230: 54 B3 B1 2E AF 53 54 B3 B1 36 34 A7 99 22 49 45 |T....ST..64.."IE|
00000240: 45 45 20 57 52 49 54 45 22 53 54 3A 89 31 30 30 |EE WRITE"ST:.100|
00000250: 30 30 00 68 0A 44 02 98 31 2C 22 55 32 22 3B 33 |00.h.D..1,"U2";3|
00000260: 3B 2E 3B 54 31 3B 53 31 00 7B 0A 4E 02 8D 32 30 |;.;T1;S1.{.N..20|
00000270: 30 3A 8B 45 52 B2 2E 89 36 32 30 00 8E 0A 58 02 |0:.ER...620...X.|
00000280: 43 B2 43 AA 31 3A 8B 43 B3 33 89 35 38 30 00 C4 |C.C.1:.C.3.580..|
00000290: 0A 62 02 99 22 55 4E 52 45 43 4F 56 45 52 41 42 |.b.."UNRECOVERAB|
000002A0: 4C 45 20 57 52 49 54 45 20 45 52 52 4F 52 22 45 |LE WRITE ERROR"E|
000002B0: 52 2C 45 52 24 2C 45 32 25 2C 45 33 25 3A 89 31 |R,ER$,E2%,E3%:.1|
000002C0: 30 30 30 30 00 CA 0A 6C 02 8E 00 DD 0A BB 02 8F |0000...l........|
000002D0: 20 4D 41 49 4E 20 50 52 4F 47 52 41 4D 00 14 0B | MAIN PROGRAM...|
000002E0: BC 02 81 49 B2 38 32 38 A4 39 32 33 3A 87 41 3A |...I.828.923:.A:|
000002F0: 97 49 2C 41 3A 82 3A 99 22 05 22 3B 3A 97 35 33 |.I,A:.:.".";:.53|
00000300: 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 32 3A 97 |281,6:.53280,2:.|
00000310: 2E 2C 34 37 00 4D 0B C6 02 81 49 B2 30 A4 32 34 |.,47.M....I.0.24|
00000320: 3A 97 35 34 32 37 32 AA 49 2C 30 3A 82 3A 97 35 |:.54272.I,0:.:.5|
00000330: 34 32 37 33 2C 32 30 3A 97 35 34 32 37 37 2C 31 |4273,20:.54277,1|
00000340: 35 33 3A 97 35 34 32 37 38 2C 31 35 33 00 7D 0B |53:.54278,153.}.|
00000350: D0 02 97 35 35 2C 2E 3A 97 35 36 2C 33 35 3A 9C |...55,.:.56,35:.|
00000360: 3A 42 42 B2 33 35 3A 4E B2 32 32 30 3A 42 41 B2 |:BB.35:N.220:BA.|
00000370: 42 42 AC 32 35 36 3A 4D 41 B2 38 32 38 00 A0 0B |BB.256:MA.828...|
00000380: DA 02 86 42 4D 25 28 33 35 2C 32 31 29 3A 81 4A |...BM%(35,21):.J|
00000390: B2 2E A4 37 3A 54 41 28 4A 29 B2 32 AE 4A 3A 82 |...7:TA(J).2.J:.|
000003A0: 00 B4 0B E4 02 99 22 93 42 41 43 4B 55 50 20 31 |......".BACKUP 1|
000003B0: 35 34 31 22 00 E3 0B EE 02 99 22 27 47 4F 54 4F |541"......"'GOTO|
000003C0: 31 30 30 30 30 27 20 49 46 20 50 52 4F 47 52 41 |10000' IF PROGRA|
000003D0: 4D 20 51 55 49 54 53 20 41 42 4E 4F 52 4D 41 4C |M QUITS ABNORMAL|
000003E0: 4C 59 22 00 EF 0B F8 02 9F 31 2C 38 2C 31 35 00 |LY"......1,8,15.|
000003F0: F9 0B 02 03 8D 32 30 30 30 00 27 0C 0C 03 99 22 |.....2000.'...."|
00000400: 93 11 11 11 11 44 4F 20 59 4F 55 20 57 41 4E 54 |.....DO YOU WANT|
00000410: 20 54 4F 20 42 4C 41 4E 4B 20 54 48 45 20 53 43 | TO BLANK THE SC|
00000420: 52 45 45 4E 3F 22 3B 00 47 0C 16 03 8D 33 32 30 |REEN?";.G....320|
00000430: 30 3A 8B 41 24 B2 22 59 22 A7 53 42 B2 31 3A 98 |0:.A$."Y".SB.1:.|
00000440: 31 2C 22 55 49 2D 22 00 7D 0C 20 03 99 22 13 11 |1,"UI-".}. .."..|
00000450: 11 11 11 11 11 44 4F 20 59 4F 55 20 57 41 4E 54 |.....DO YOU WANT|
00000460: 20 54 4F 20 43 4F 50 59 20 12 41 4C 4C 20 36 38 | TO COPY .ALL 68|
00000470: 33 92 20 53 45 43 54 4F 52 53 3F 22 3B 00 94 0C |3. SECTORS?";...|
00000480: 2A 03 8D 33 32 30 30 3A 8B 41 24 B2 22 59 22 A7 |*..3200:.A$."Y".|
00000490: 44 42 B2 31 00 B3 0C 34 03 99 22 93 22 3B 3A 44 |DB.1...4..".";:D|
000004A0: 24 B2 22 53 22 3A 8D 33 30 30 30 3A 49 32 24 B2 |$."S":.3000:I2$.|
000004B0: 49 52 24 00 E2 0C 3E 03 8B 44 52 24 B3 B1 22 32 |IR$...>..DR$.."2|
000004C0: 41 22 A7 99 22 93 49 4C 4C 45 47 41 4C 20 44 4F |A"..".ILLEGAL DO|
000004D0: 53 20 31 2E 30 20 44 49 53 4B 22 3A 89 31 30 30 |S 1.0 DISK":.100|
000004E0: 30 30 00 23 0D 48 03 8B 49 32 24 B2 49 31 24 A7 |00.#.H..I2$.I1$.|
000004F0: 99 22 93 53 4F 55 52 43 45 20 41 4E 44 20 44 45 |.".SOURCE AND DE|
00000500: 53 54 49 4E 41 54 49 4F 4E 20 48 41 56 45 20 53 |STINATION HAVE S|
00000510: 41 4D 45 20 49 44 20 43 4F 44 45 22 3A 89 31 30 |AME ID CODE":.10|
00000520: 30 30 30 00 2D 0D 52 03 8D 32 35 30 30 00 40 0D |000.-.R..2500.@.|
00000530: 5C 03 8B 44 42 A7 54 53 B2 31 3A 54 46 B2 33 35 |\..DB.TS.1:TF.35|
00000540: 00 5C 0D 66 03 54 B2 54 53 3A 53 B2 2E 3A 4E 55 |.\.f.T.TS:S..:NU|
00000550: B2 31 3A 54 31 B2 54 3A 53 31 B2 53 00 73 0D 70 |.1:T1.T:S1.S.s.p|
00000560: 03 98 31 2C 22 49 30 22 3A 9F 33 2C 38 2C 33 2C |..1,"I0":.3,8,3,|
00000570: 22 23 22 00 90 0D 7A 03 55 25 B2 42 4D 25 28 54 |"#"...z.U%.BM%(T|
00000580: 31 2C 53 31 29 3A 8B 55 25 B2 AB 31 A7 39 32 30 |1,S1):.U%..1.920|
00000590: 00 BA 0D 84 03 8B 28 55 25 B2 2E 29 B0 28 44 42 |......(U%..).(DB|
000005A0: B2 31 29 A7 8D 33 30 30 3A 4E 55 B2 4E 55 AA 31 |.1)..300:NU.NU.1|
000005B0: 3A 8B 4E 55 B1 4E A7 39 33 30 00 CB 0D 8E 03 53 |:.NU.N.930.....S|
000005C0: 31 B2 53 31 AA 31 3A 89 38 39 30 00 E8 0D 98 03 |1.S1.1:.890.....|
000005D0: 53 31 B2 2E 3A 54 31 B2 54 31 AA 31 3A 8B 54 31 |S1..:T1.T1.1:.T1|
000005E0: B3 B2 54 46 89 38 39 30 00 EF 0D A2 03 A0 33 00 |..TF.890......3.|
000005F0: 2B 0E AC 03 44 24 B2 22 44 22 3A 8D 33 30 30 30 |+...D$."D":.3000|
00000600: 3A 41 24 B2 22 4E 22 3A 8B 49 31 24 B2 22 22 A7 |:A$."N":.I1$."".|
00000610: 49 31 24 B2 49 52 24 3A 41 24 B2 22 59 22 3A 8B |I1$.IR$:A$."Y":.|
00000620: 49 31 24 B2 49 32 24 89 38 34 30 00 5E 0E B6 03 |I1$.I2$.840.^...|
00000630: 8B 41 24 B2 22 59 22 A7 98 31 2C 22 4E 30 3A 22 |.A$."Y"..1,"N0:"|
00000640: 44 4E 24 3A 8D 32 30 30 3A 8B 45 52 B3 B1 30 A7 |DN$:.200:.ER..0.|
00000650: 99 45 52 2C 45 52 24 3A 89 31 30 30 30 30 00 77 |.ER,ER$:.10000.w|
00000660: 0E C0 03 8B 49 52 24 B3 B1 49 31 24 A7 99 22 12 |....IR$..I1$..".|
00000670: 22 3B 3A 89 39 34 30 00 8E 0E CA 03 98 31 2C 22 |";:.940......1,"|
00000680: 49 30 22 3A 9F 33 2C 38 2C 33 2C 22 23 22 00 A1 |I0":.3,8,3,"#"..|
00000690: 0E D4 03 4E 55 B2 31 3A 54 31 B2 54 3A 53 31 B2 |...NU.1:T1.T:S1.|
000006A0: 53 00 BF 0E DE 03 55 25 B2 42 4D 25 28 54 31 2C |S.....U%.BM%(T1,|
000006B0: 53 31 29 3A 8B 55 25 B2 AB 31 89 31 30 32 30 00 |S1):.U%..1.1020.|
000006C0: EA 0E E8 03 8B 28 55 25 B2 2E 29 B0 28 44 42 B2 |.....(U%..).(DB.|
000006D0: 31 29 A7 8D 35 30 30 3A 4E 55 B2 4E 55 AA 31 3A |1)..500:NU.NU.1:|
000006E0: 8B 4E 55 B1 4E 89 31 30 33 30 00 FB 0E F2 03 53 |.NU.N.1030.....S|
000006F0: 31 B2 53 31 AA 31 3A 89 39 39 30 00 18 0F FC 03 |1.S1.1:.990.....|
00000700: 53 31 B2 2E 3A 54 31 B2 54 31 AA 31 3A 8B 54 31 |S1..:T1.T1.1:.T1|
00000710: B3 B2 54 46 89 39 39 30 00 1F 0F 06 04 A0 33 00 |..TF.990......3.|
00000720: 3C 0F 10 04 53 B2 53 31 AA 31 3A 8B 53 B1 32 30 |<...S.S1.1:.S.20|
00000730: A7 53 B2 2E 3A 54 31 B2 54 31 AA 31 00 50 0F 1A |.S..:T1.T1.1.P..|
00000740: 04 54 B2 54 31 3A 8B 54 B1 54 46 89 31 30 38 30 |.T.T1:.T.TF.1080|
00000750: 00 77 0F 24 04 44 24 B2 22 53 22 3A 8D 33 30 30 |.w.$.D$."S":.300|
00000760: 30 3A 8B 49 52 24 B3 B1 49 32 24 A7 99 22 12 22 |0:.IR$..I2$.."."|
00000770: 3B 3A 89 31 30 36 30 00 8F 0F 2E 04 4E 55 B2 31 |;:.1060.....NU.1|
00000780: 3A 54 31 B2 54 3A 53 31 B2 53 3A 89 38 38 30 00 |:T1.T:S1.S:.880.|
00000790: A9 0F 38 04 97 35 33 32 36 35 2C 32 37 3A 98 31 |..8..53265,27:.1|
000007A0: 2C 22 55 49 2B 22 3A A0 31 00 BD 0F 42 04 97 35 |,"UI+":.1...B..5|
000007B0: 35 2C 30 3A 97 35 36 2C 31 36 30 3A 9C 00 DE 0F |5,0:.56,160:....|
000007C0: 4C 04 97 35 33 32 38 30 2C 36 3A 99 22 93 42 41 |L..53280,6:.".BA|
000007D0: 43 4B 55 50 20 43 4F 4D 50 4C 45 54 45 22 00 00 |CKUP COMPLETE"..|
000007E0: 10 56 04 9F 31 2C 38 2C 30 2C 22 24 30 22 3A A1 |.V..1,8,0,"$0":.|
000007F0: 23 31 2C 41 24 2C 42 24 3A 4E 24 B2 C7 28 30 29 |#1,A$,B$:N$..(0)|
00000800: 00 1A 10 60 04 A1 23 31 2C 41 24 2C 42 24 3A 8B |...`..#1,A$,B$:.|
00000810: 42 24 B2 22 22 89 31 31 36 30 00 40 10 6A 04 A1 |B$."".1160.@.j..|
00000820: 23 31 2C 41 24 2C 42 24 3A 99 C6 28 41 24 AA 4E |#1,A$,B$:..(A$.N|
00000830: 24 29 AA 32 35 36 AC C6 28 42 24 AA 4E 24 29 3B |$).256..(B$.N$);|
00000840: 00 5E 10 74 04 A1 23 31 2C 41 24 3A 8B 41 24 B3 |.^.t..#1,A$:.A$.|
00000850: B1 22 22 A7 99 41 24 3B 3A 89 31 31 34 30 00 6A |.""..A$;:.1140.j|
00000860: 10 7E 04 99 3A 89 31 31 32 30 00 73 10 88 04 A0 |.~..:.1120.s....|
00000870: 31 3A 80 00 85 10 CF 07 8F 20 46 4F 52 4D 41 54 |1:....... FORMAT|
00000880: 20 44 49 53 4B 00 AB 10 D0 07 85 22 11 11 44 45 | DISK......"..DE|
00000890: 53 54 49 4E 41 54 49 4F 4E 20 44 49 53 4B 20 4E |STINATION DISK N|
000008A0: 41 4D 45 20 20 20 22 3B 44 4E 24 00 C5 10 DA 07 |AME ";DN$.....|
000008B0: 8B 44 4E 24 B2 22 22 A7 99 22 91 91 91 91 22 3A |.DN$."".."....":|
000008C0: 89 32 30 30 30 00 DB 10 E4 07 8B C3 28 44 4E 24 |.2000.......(DN$|
000008D0: 29 B1 31 36 A7 9C 3A 89 34 30 30 00 FE 10 EE 07 |).16..:.400.....|
000008E0: 46 B2 30 3A 81 4A B2 31 A4 C3 28 44 4E 24 29 3A |F.0:.J.1..(DN$):|
000008F0: 53 31 24 B2 CA 28 44 4E 24 2C 4A 2C 31 29 00 18 |S1$..(DN$,J,1)..|
00000900: 11 F8 07 8B 53 31 24 B2 22 22 B0 53 31 24 B2 C7 |....S1$."".S1$..|
00000910: 28 33 34 29 A7 46 B2 31 00 30 11 02 08 82 4A 3A |(34).F.1.0....J:|
00000920: 8B 46 A7 99 22 91 91 91 91 22 3A 89 32 30 30 30 |.F.."....":.2000|
00000930: 00 53 11 0C 08 99 22 11 11 54 4F 54 41 4C 4C 59 |.S...."..TOTALLY|
00000940: 20 46 4F 52 4D 41 54 20 54 48 45 20 44 49 53 4B | FORMAT THE DISK|
00000950: 3F 22 3B 00 67 11 16 08 8D 33 32 30 30 3A 8B 41 |?";.g....3200:.A|
00000960: 24 B2 22 4E 22 A7 8E 00 94 11 20 08 85 22 55 4E |$."N"..... .."UN|
00000970: 49 51 55 45 20 44 49 53 4B 20 49 44 20 20 20 20 |IQUE DISK ID |
00000980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00000990: 3B 49 31 24 00 AC 11 2A 08 8B 49 31 24 B2 22 22 |;I1$...*..I1$.""|
000009A0: A7 99 22 91 91 22 3A 89 32 30 38 30 00 C7 11 34 |.."..":.2080...4|
000009B0: 08 8B C3 28 49 31 24 29 B3 B1 32 A7 99 22 91 91 |...(I1$)..2.."..|
000009C0: 22 3A 89 32 30 38 30 00 DE 11 3E 08 44 24 B2 22 |":.2080...>.D$."|
000009D0: 45 22 3A 99 22 93 22 3B 3A 8D 33 30 30 30 00 EE |E":.".";:.3000..|
000009E0: 11 48 08 8B 45 52 B3 B1 30 89 32 31 36 30 00 28 |.H..ER..0.2160.(|
000009F0: 12 52 08 97 35 34 32 37 36 2C 33 33 3A 97 35 34 |.R..54276,33:.54|
00000A00: 32 39 36 2C 31 35 3A 99 3A 99 22 11 11 12 41 4C |296,15:.:."...AL|
00000A10: 52 45 41 44 59 20 46 4F 52 4D 41 54 54 45 44 20 |READY FORMATTED |
00000A20: 44 49 53 4B 21 21 21 22 00 5B 12 5C 08 99 22 11 |DISK!!!".[.\..".|
00000A30: 12 41 52 45 20 59 4F 55 20 53 55 52 45 3F 3F 3F |.ARE YOU SURE???|
00000A40: 22 3B 3A 8D 33 32 30 30 3A 97 35 34 32 37 36 2C |";:.3200:.54276,|
00000A50: 33 32 3A 97 35 34 32 39 36 2C 2E 00 6D 12 66 08 |32:.54296,..m.f.|
00000A60: 8B 41 24 B3 B1 22 59 22 89 32 30 30 30 00 A1 12 |.A$.."Y".2000...|
00000A70: 70 08 97 35 34 32 37 36 2C 33 32 3A 97 35 34 32 |p..54276,32:.542|
00000A80: 39 36 2C 30 3A 98 31 2C 22 55 49 22 3A 98 31 2C |96,0:.1,"UI":.1,|
00000A90: 22 4E 30 3A 22 AA 44 4E 24 AA 22 2C 22 AA 49 31 |"N0:".DN$.",".I1|
00000AA0: 24 00 AA 12 7A 08 8D 32 30 30 00 BE 12 84 08 8B |$...z..200......|
00000AB0: 45 52 A7 99 45 52 24 3A 89 31 30 30 30 30 00 C4 |ER..ER$:.10000..|
00000AC0: 12 8E 08 8E 00 D2 12 C3 09 8F 20 47 45 54 20 42 |.......... GET B|
00000AD0: 41 4D 00 E0 12 C4 09 54 53 B2 31 3A 54 46 B2 2E |AM.....TS.1:TF..|
00000AE0: 00 F7 12 CE 09 98 31 2C 22 49 30 22 3A 9F 33 2C |......1,"I0":.3,|
00000AF0: 38 2C 33 2C 22 23 22 00 00 13 D8 09 53 39 B2 30 |8,3,"#".....S9.0|
00000B00: 00 1C 13 E2 09 97 35 33 32 38 31 2C 31 3A 99 22 |......53281,1:."|
00000B10: 93 22 3B 3A 97 35 33 32 38 31 2C 36 00 41 13 EC |.";:.53281,6.A..|
00000B20: 09 4E 55 B2 30 3A 54 31 B2 31 38 3A 53 31 B2 30 |.NU.0:T1.18:S1.0|
00000B30: 3A 43 30 24 B2 C7 28 2E 29 3A 8D 33 30 30 3A A0 |:C0$..(.):.300:.|
00000B40: 33 00 67 13 F6 09 81 49 B2 30 A4 32 30 3A 97 31 |3.g....I.0.20:.1|
00000B50: 31 30 34 AA 49 AC 34 30 2C C6 28 C9 28 C4 28 49 |104.I.40,.(.(.(I|
00000B60: 29 2C 31 29 29 3A 82 00 8A 13 00 0A 81 49 B2 31 |),1)):.......I.1|
00000B70: A4 33 35 3A 97 31 39 38 37 AA 49 2C C6 28 C9 28 |.35:.1987.I,.(.(|
00000B80: C4 28 49 29 2C 31 29 29 3A 82 00 9D 13 0A 0A 97 |.(I),1)):.......|
00000B90: 35 33 32 36 35 2C 32 37 3A 42 59 B2 34 00 AF 13 |53265,27:BY.4...|
00000BA0: 14 0A 54 25 B2 28 42 59 AB 34 29 AD 34 AA 31 00 |..T%.(BY.4).4.1.|
00000BB0: E3 13 1E 0A 8B C2 28 42 41 AA 42 59 29 B2 2E A7 |......(BA.BY)...|
00000BC0: 81 4A B2 2E A4 32 30 3A 42 4D 25 28 54 25 2C 4A |.J...20:BM%(T%,J|
00000BD0: 29 B2 2E 3A 82 3A 42 59 B2 42 59 AA 34 3A 89 32 |)..:.:BY.BY.4:.2|
00000BE0: 36 34 30 00 EB 13 28 0A 53 B2 30 00 1C 14 32 0A |640...(.S.0...2.|
00000BF0: 42 59 B2 42 59 AA 31 3A 41 30 B2 C2 28 42 41 AA |BY.BY.1:A0..(BA.|
00000C00: 42 59 29 3A 81 4A B2 2E A4 37 3A 55 25 B2 53 3A |BY):.J...7:U%.S:|
00000C10: 8B 55 25 B1 32 31 A7 55 25 B2 32 31 00 3C 14 37 |.U%.21.U%.21.<.7|
00000C20: 0A 42 4D 25 28 54 25 2C 55 25 29 B2 41 30 AF 54 |.BM%(T%,U%).A0.T|
00000C30: 41 28 4A 29 3A 53 B2 53 AA 31 3A 82 00 4B 14 3C |A(J):S.S.1:..K.<|
00000C40: 0A 8B 53 B3 32 32 A7 32 36 31 30 00 57 14 46 0A |..S.22.2610.W.F.|
00000C50: 42 59 B2 42 59 AA 31 00 6E 14 50 0A 45 53 B2 32 |BY.BY.1.n.P.ES.2|
00000C60: 31 3A 8B 54 25 B1 31 37 A7 45 53 B2 31 39 00 7F |1:.T%.17.ES.19..|
00000C70: 14 5A 0A 8B 54 25 B1 32 34 A7 45 53 B2 31 38 00 |.Z..T%.24.ES.18.|
00000C80: 90 14 64 0A 8B 54 25 B1 33 30 A7 45 53 B2 31 37 |..d..T%.30.ES.17|
00000C90: 00 AC 14 6E 0A 81 4A B2 45 53 A4 32 31 3A 42 4D |...n..J.ES.21:BM|
00000CA0: 25 28 54 25 2C 4A 29 B2 AB 31 3A 82 00 E9 14 78 |%(T%,J)..1:....x|
00000CB0: 0A 53 4D B2 2E 3A 81 4A B2 2E A4 32 30 3A 53 4C |.SM..:.J...20:SL|
00000CC0: 25 B2 31 31 30 37 AA 4A AC 34 30 AA 54 25 3A 97 |%.1107.J.40.T%:.|
00000CD0: 53 4C 25 2C 34 35 3A 8B 42 4D 25 28 54 25 2C 4A |SL%,45:.BM%(T%,J|
00000CE0: 29 B3 B1 2E A7 32 37 30 30 00 FE 14 82 0A 53 4D |)....2700.....SM|
00000CF0: B2 53 4D AA 31 3A 97 53 4C 25 2C 31 36 30 00 0D |.SM.1:.SL%,160..|
00000D00: 15 8C 0A 82 3A 53 39 B2 53 39 AA 53 4D 00 1E 15 |....:S9.S9.SM...|
00000D10: 96 0A 8B 54 25 B3 B2 31 37 A7 32 37 35 30 00 47 |...T%..17.2750.G|
00000D20: 15 A0 0A 97 31 39 30 37 AA 54 25 2C 34 36 3A 97 |....1907.T%,46:.|
00000D30: 31 38 36 37 AA 54 25 2C 34 36 3A 8B 54 25 B3 B2 |1867.T%,46:.T%..|
00000D40: 32 34 A7 32 37 35 30 00 64 15 AA 0A 97 31 38 32 |24.2750.d....182|
00000D50: 37 AA 54 25 2C 34 36 3A 8B 54 25 B3 B2 33 30 A7 |7.T%,46:.T%..30.|
00000D60: 32 37 35 30 00 74 15 B4 0A 97 31 37 38 37 AA 54 |2750.t....1787.T|
00000D70: 25 2C 34 36 00 92 15 BE 0A 8B 53 4D B2 2E AF 54 |%,46......SM...T|
00000D80: 53 B2 54 25 A7 54 53 B2 54 53 AA 31 3A 89 32 37 |S.T%.TS.TS.1:.27|
00000D90: 37 30 00 A3 15 C8 0A 8B 53 4D B3 B1 2E A7 54 46 |70......SM....TF|
00000DA0: B2 54 25 00 B4 15 D2 0A 8B 42 59 B3 31 34 33 89 |.T%......BY.143.|
00000DB0: 32 35 38 30 00 C5 15 DC 0A 8B 44 42 B2 31 A7 53 |2580......DB.1.S|
00000DC0: 39 B2 36 38 33 00 E2 15 E6 0A 99 22 13 22 53 39 |9.683......"."S9|
00000DD0: 3B 22 42 4C 4F 43 4B 53 20 54 4F 20 58 46 45 52 |;"BLOCKS TO XFER|
00000DE0: 22 3B 00 FE 15 F0 0A 53 38 B2 39 30 AA 32 35 AA |";.....S8.90.25.|
00000DF0: 28 2E 36 35 30 AA 2E 39 38 30 29 AC 53 39 00 13 |(.650..980).S9..|
00000E00: 16 FA 0A 8B 53 42 B2 30 A7 53 38 B2 53 38 AC 31 |....SB.0.S8.S8.1|
00000E10: 2E 32 35 00 23 16 04 0B 53 37 B2 B5 28 53 38 AD |.25.#...S7..(S8.|
00000E20: 36 30 29 00 3A 16 0E 0B 99 53 37 22 3A 22 B5 28 |60).:....S7":".(|
00000E30: 53 38 AB 53 37 AC 36 30 29 3B 00 4E 16 18 0B 8B |S8.S7.60);.N....|
00000E40: 53 42 B2 31 A7 97 35 33 32 36 35 2C 31 31 00 54 |SB.1..53265,11.T|
00000E50: 16 22 0B 8E 00 6D 16 B7 0B 8F 43 48 41 4E 47 45 |."...m....CHANGE|
00000E60: 20 44 49 53 4B 20 52 4F 55 54 49 4E 45 00 7B 16 | DISK ROUTINE.{.|
00000E70: B8 0B 97 35 33 32 36 35 2C 32 37 00 A8 16 C2 0B |...53265,27.....|
00000E80: 8B 44 24 B2 22 44 22 A7 53 31 24 B2 22 44 45 53 |.D$."D".S1$."DES|
00000E90: 54 49 4E 41 54 49 4F 4E 22 3A 97 35 33 32 38 30 |TINATION":.53280|
00000EA0: 2C 32 3A 89 33 30 34 30 00 D5 16 CC 0B 8B 44 24 |,2:.3040......D$|
00000EB0: B2 22 45 22 A7 53 31 24 B2 22 44 45 53 54 49 4E |."E".S1$."DESTIN|
00000EC0: 41 54 49 4F 4E 22 3A 97 35 33 32 38 30 2C 32 3A |ATION":.53280,2:|
00000ED0: 89 33 30 34 30 00 EF 16 D6 0B 53 31 24 B2 22 53 |.3040.....S1$."S|
00000EE0: 4F 55 52 43 45 22 3A 97 35 33 32 38 30 2C 35 00 |OURCE":.53280,5.|
00000EF0: 32 17 E0 0B 97 35 34 32 37 36 2C 33 33 3A 97 35 |2....54276,33:.5|
00000F00: 34 32 39 36 2C 31 35 3A 99 22 13 11 49 4E 53 45 |4296,15:."..INSE|
00000F10: 52 54 20 22 3B 53 31 24 3B 22 20 44 49 53 4B 2C |RT ";S1$;" DISK,|
00000F20: 20 50 52 45 53 53 20 53 48 49 46 54 20 92 BF 9D | PRESS SHIFT ...|
00000F30: 22 3B 00 57 17 EA 0B 97 32 30 34 2C 30 3A 92 36 |";.W....204,0:.6|
00000F40: 35 33 2C 31 3A 97 35 34 32 37 36 2C 33 32 3A 97 |53,1:.54276,32:.|
00000F50: 35 34 32 39 36 2C 30 00 6B 17 F4 0B 8B 53 42 B2 |54296,0.k....SB.|
00000F60: 31 A7 97 35 33 32 36 35 2C 31 31 00 82 17 FE 0B |1..53265,11.....|
00000F70: 97 32 30 34 2C 31 3A 9F 32 2C 38 2C 30 2C 22 24 |.204,1:.2,8,0,"$|
00000F80: 30 22 00 98 17 08 0C 8D 32 30 30 3A 8B 44 24 B2 |0"......200:.D$.|
00000F90: 22 45 22 A7 A0 32 3A 8E 00 B1 17 12 0C 8B 45 52 |"E"..2:.......ER|
00000FA0: B1 30 A7 A0 32 3A 99 22 12 22 3B 3A 89 33 30 30 |.0..2:.".";:.300|
00000FB0: 30 00 C7 17 1C 0C 81 4A B2 31 A4 32 36 3A A1 23 |0......J.1.26:.#|
00000FC0: 32 2C 41 24 3A 82 4A 00 E3 17 26 0C A1 23 32 2C |2,A$:.J...&..#2,|
00000FD0: 41 24 3A A1 23 32 2C 42 24 3A 49 52 24 B2 41 24 |A$:.#2,B$:IR$.A$|
00000FE0: AA 42 24 00 06 18 30 0C A1 23 32 2C 41 24 3A A1 |.B$...0..#2,A$:.|
00000FF0: 23 32 2C 41 24 3A A1 23 32 2C 42 24 3A 44 52 24 |#2,A$:.#2,B$:DR$|
00001000: B2 41 24 AA 42 24 00 39 18 3A 0C 99 22 13 11 20 |.A$.B$.9.:..".. |
00001010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001030: 20 20 20 20 20 20 20 22 3B 00 42 18 44 0C A0 32 | ";.B.D..2|
00001040: 3A 8E 00 58 18 7F 0C 8F 20 47 45 54 20 59 2F 4E |:..X.... GET Y/N|
00001050: 20 52 4F 55 54 49 4E 45 00 67 18 80 0C 99 A3 33 | ROUTINE.g.....3|
00001060: 37 29 22 BF 9D 22 3B 00 82 18 8A 0C 97 32 30 34 |7)"..";......204|
00001070: 2C 30 3A A1 41 24 3A 8B 41 24 B2 22 22 A7 33 32 |,0:.A$:.A$."".32|
00001080: 31 30 00 8D 18 94 0C 97 32 30 34 2C 31 00 A3 18 |10......204,1...|
00001090: 9E 0C 8B 41 24 B2 22 59 22 A7 99 22 12 59 45 53 |...A$."Y"..".YES|
000010A0: 22 3A 8E 00 B8 18 A8 0C 8B 41 24 B2 22 4E 22 A7 |":.......A$."N".|
000010B0: 99 22 12 4E 4F 22 3A 8E 00 C2 18 B2 0C 89 33 32 |.".NO":.......32|
000010C0: 31 30 00 D6 18 0F 27 8F 20 41 42 4E 4F 52 4D 41 |10....'. ABNORMA|
000010D0: 4C 20 45 58 49 54 00 FE 18 10 27 98 31 2C 22 55 |L EXIT....'.1,"U|
000010E0: 4A 22 3A 97 35 35 2C 30 3A 97 35 36 2C 31 36 30 |J":.55,0:.56,160|
000010F0: 3A 9C 3A 97 35 33 32 36 35 2C 32 37 3A 90 00 48 |:.:.53265,27:..H|
00001100: 19 98 3A 83 35 36 2C 31 37 36 2C 33 2C 35 36 2C |..:.56,176,3,56,|
00001110: 31 37 36 2C 33 34 2C 31 36 32 2C 33 2C 33 32 2C |176,34,162,3,32,|
00001120: 31 39 38 2C 32 35 35 2C 31 36 30 2C 30 2C 31 33 |198,255,160,0,13|
00001130: 32 2C 32 35 34 2C 33 32 2C 32 30 37 2C 32 35 35 |2,254,32,207,255|
00001140: 2C 31 32 30 2C 31 36 32 00 93 19 A2 3A 83 35 32 |,120,162....:.52|
00001150: 2C 31 33 34 2C 31 2C 31 34 35 2C 32 35 34 2C 31 |,134,1,145,254,1|
00001160: 36 32 2C 35 35 2C 31 33 34 2C 31 2C 38 38 2C 31 |62,55,134,1,88,1|
00001170: 36 35 2C 31 34 34 2C 32 30 38 2C 33 2C 32 30 30 |65,144,208,3,200|
00001180: 2C 32 30 38 2C 32 33 34 2C 37 36 2C 32 30 34 2C |,208,234,76,204,|
00001190: 32 35 35 00 DD 19 AC 3A 83 31 36 32 2C 33 2C 33 |255....:.162,3,3|
000011A0: 32 2C 32 30 31 2C 32 35 35 2C 31 36 30 2C 30 2C |2,201,255,160,0,|
000011B0: 31 33 32 2C 32 35 34 2C 31 32 30 2C 31 36 39 2C |132,254,120,169,|
000011C0: 35 32 2C 31 33 33 2C 31 2C 31 37 37 2C 32 35 34 |52,133,1,177,254|
000011D0: 2C 31 36 32 2C 35 35 2C 31 33 34 2C 31 00 23 1A |,162,55,134,1.#.|
000011E0: B6 3A 83 38 38 2C 33 32 2C 32 31 30 2C 32 35 35 |.:.88,32,210,255|
000011F0: 2C 31 36 35 2C 31 34 34 2C 32 30 38 2C 33 2C 32 |,165,144,208,3,2|
00001200: 30 30 2C 32 30 38 2C 32 33 34 2C 37 36 2C 32 30 |00,208,234,76,20|
00001210: 34 2C 32 35 35 2C 31 36 30 2C 2E 2C 31 33 32 2C |4,255,160,.,132,|
00001220: 32 35 34 00 68 1A C0 3A 83 31 36 39 2C 32 35 35 |254.h..:.169,255|
00001230: 2C 31 32 30 2C 31 36 32 2C 35 32 2C 31 33 34 2C |,120,162,52,134,|
00001240: 31 2C 31 34 35 2C 32 35 34 2C 32 30 30 2C 32 30 |1,145,254,200,20|
00001250: 38 2C 32 35 31 2C 31 36 32 2C 35 35 2C 31 33 34 |8,251,162,55,134|
00001260: 2C 31 2C 38 38 2C 39 36 00 00 00 |,1,88,96... |
..&.D.. MOD FR 6/83 GAZETTE BY J RUBIN./
.N..700.C.G.. READ DISK ERR.[.H..1,ER,ER
$,E2%,E3%:..L.+.. READ BLOCK.Z.,..53280,
NU...6.C..:V.1107.S1.40.T1.J.@.. ADD SKI
P IF YOU HAVE PARALLEL IEEE INTERFACE HE
RE.Y.J..255,BB.NU...T..1,"U1";3;.;T1;S1:
.200:.ER...370...^.C.C.1:.C.3.340.".H..V
,ER:.902:..7.R..1,"B-P";3;.:.MA.I.|..NU.
....V,127.E....ST....ST..64..200:.360.K.
....}.... WRITE BLOCK......53280,NU.....
C........U%....1,"B-A";.;T1;S1......1,"B
-P";3;.......NU.....1107.S1.40.T1,32...&
.. ADD SKIP IF YOU HAVE PARALLEL IEEE IN
TERFACE HERE.).0..255,BB.NU:.MA.3.R.:..S
T....ST..64.."IEEE WRITE"ST:.10000.H.D..
1,"U2";3;.;T1;S1.{.N..200:.ER...620...X.
C.C.1:.C.3.580.D.B.."UNRECOVERABLE WRITE
ERROR"ER,ER$,E2%,E3%:.10000.J.L........
MAIN PROGRAM......I.828.923:.A:.I,A:.:.
".";:.53281,6:.53280,2:..,47.M.F..I.0.24
:.54272.I,0:.:.54273,20:.54277,153:.5427
8,153.}.P..55,.:.56,35:.:BB.35:N.220:BA.
BB.256:MA.828. .Z..BM%(35,21):.J...7:TA(
J).2.J:.......".BACKUP 1541"......"'GOTO
10000' IF PROGRAM QUITS ABNORMALLY".....
.1,8,15......2000.'....".....DO YOU WANT
TO BLANK THE SCREEN?";.G....3200:.A$."Y
".SB.1:.1,"UI-".}. ..".......DO YOU WANT
TO COPY .ALL 683. SECTORS?";...*..3200:
.A$."Y".DB.1...4..".";:D$."S":.3000:I2$.
IR$...>..DR$.."2A"..".ILLEGAL DOS 1.0 DI
SK":.10000.#.H..I2$.I1$..".SOURCE AND DE
STINATION HAVE SAME ID CODE":.10000.-.R.
.2500.@.\..DB.TS.1:TF.35.\.F.T.TS:S..:NU
.1:T1.T:S1.S.S.P..1,"I0":.3,8,3,"#"...Z.
U%.BM%(T1,S1):.U%..1.920......(U%..).(DB
.1)..300:NU.NU.1:.NU.N.930.K...S1.S1.1:.
890.....S1..:T1.T1.1:.T1..TF.890..... 3.
+...D$."D":.3000:A$."N":.I1$."".I1$.IR$:
A$."Y":.I1$.I2$.840.^....A$."Y"..1,"N0:"
DN$:.200:.ER..0..ER,ER$:.10000.W....IR$.
.I1$..".";:.940...J..1,"I0":.3,8,3,"#"..
.T.NU.1:T1.T:S1.S.....U%.BM%(T1,S1):.U%.
.1.1020......(U%..).(DB.1)..500:NU.NU.1:
.NU.N.1030.....S1.S1.1:.990.....S1..:T1.
T1.1:.T1..TF.990..... 3.<...S.S1.1:.S.20
.S..:T1.T1.1.P...T.T1:.T.TF.1080.W.$.D$.
"S":.3000:.IR$..I2$..".";:.1060.....NU.1
:T1.T:S1.S:.880...8..53265,27:.1,"UI+":
1...B..55,0:.56,160:....L..53280,6:.".BA
CKUP COMPLETE"...V..1,8,0,"$0":.#1,A$,B$
:N$.G(0)...`..#1,A$,B$:.B$."".1160.@.J..
#1,A$,B$:.F(A$.N$).256.F(B$.N$);.^.T..#1
,A$:.A$..""..A$;:.1140.J.~..:.1120.S...
1:....O.. FORMAT DISK...P.."..DESTINATIO
N DISK NAME ";DN$.E.Z..DN$."".."....":
.2000......C(DN$).16..:.400.....F.0:.J.1
.C(DN$):S1$.J(DN$,J,1)......S1$."".S1$.G
(34).F.1.0....J:.F.."....":.2000.S....".
.TOTALLY FORMAT THE DISK?";.G....3200:.A
$."N"..... .."UNIQUE DISK ID
";I1$...*..I1$."".."..":.2080.G.4
..C(I1$)..2.."..":.2080...>.D$."E":.".";
:.3000...H..ER..0.2160.(.R..54276,33:.54
296,15:.:."...ALREADY FORMATTED DISK!!!"
.[.\.."..ARE YOU SURE???";:.3200:.54276,
32:.54296,..M.F..A$.."Y".2000...P..54276
,32:.54296,0:.1,"UI":.1,"N0:".DN$.",".I1
$...Z..200......ER..ER$:.10000.D.....R.C
.. GET BAM...D.TS.1:TF.....N..1,"I0":.3,
8,3,"#"...X.S9.0......53281,1:.".";:.532
81,6.A...NU.0:T1.18:S1.0:C0$.G(.):.300:
3.G....I.0.20:.1104.I.40,F(I(D(I),1)):..
.....I.1.35:.1987.I,F(I(D(I),1)):.......
53265,27:BY.4.....T%.(BY.4).4.1......B(B
A.BY)....J...20:BM%(T%,J)..:.:BY.BY.4:.2
640...(.S.0...2.BY.BY.1:A0.B(BA.BY):.J..
.7:U%.S:.U%.21.U%.21.<.7.BM%(T%,U%).A0.T
A(J):S.S.1:..K.<..S.22.2610.W.F.BY.BY.1.
N.P.ES.21:.T%.17.ES.19..Z..T%.24.ES.18.
..D..T%.30.ES.17...N..J.ES.21:BM%(T%,J).
.1:....X.SM..:.J...20:SL%.1107.J.40.T%:.
SL%,45:.BM%(T%,J)....2700.....SM.SM.1:.S
L%,160......:S9.S9.SM......T%..17.2750.G
. ..1907.T%,46:.1867.T%,46:.T%..24.2750.
D....1827.T%,46:.T%..30.2750.T....1787.T
%,46......SM...TS.T%.TS.TS.1:.2770...H..
SM....TF.T%...R..BY.143.2580.E....DB.1.S
9.683......"."S9;"BLOCKS TO XFER";.....S
8.90.25.(.650..980).S9......SB.0.S8.S8.1
.25.#...S7..(S8.60).:....S7":".(S8.S7.60
);.N....SB.1..53265,11.T."...M....CHANGE
DISK ROUTINE.{....53265,27...B..D$."D".
S1$."DESTINATION":.53280,2:.3040.U.L..D$
."E".S1$."DESTINATION":.53280,2:.3040...
V.S1$."SOURCE":.53280,5.2....54276,33:.5
4296,15:."..INSERT ";S1$;" DISK, PRESS S
HIFT ...";.W....204,0:.653,1:.54276,32:.
54296,0.K....SB.1..53265,11......204,1:.
2,8,0,"$0"......200:.D$."E". 2:.......ER
.0. 2:.".";:.3000.G....J.1.26:.#2,A$:.J.
..&..#2,A$:.#2,B$:IR$.A$.B$...0..#2,A$:.
#2,A$:.#2,B$:DR$.A$.B$.9.:.."..
";.B.D. 2
:..X... GET Y/N ROUTINE.G.....37)"..";.
.....204,0:.A$:.A$."".3210......204,1...
...A$."Y"..".YES":.......A$."N"..".NO":.
.B....3210.V..'. ABNORMAL EXIT....'.1,"U
J":.55,0:.56,160:.:.53265,27:..H..:.56,1
76,3,56,176,34,162,3,32,198,255,160,0,13
2,254,32,207,255,120,162....:.52,134,1,1
45,254,162,55,134,1,88,165,144,208,3,200
,208,234,76,204,255....:.162,3,32,201,25
5,160,0,132,254,120,169,52,133,1,177,254
,162,55,134,1.#..:.88,32,210,255,165,144
,208,3,200,208,234,76,204,255,160,.,132,
254.H..:.169,255,120,162,52,134,1,145,25
4,200,208,251,162,55,134,1,88,96...
> CLICK IMAGE PREVIEW FOR FULL MODAL