FASTBACK
FILE INFORMATION
FILENAME(S): FASTBACK
FILE TYPE(S): PRG
FILE SIZE: 4.5K
FIRST SEEN: 2025-11-30 20:09:34
APPEARS ON: 1 disk(s)
FILE HASH
af1436c29ea2d63315d881d42b3c191b4fac5e66108ddbf6fac12b5c00d84849
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK 43 SIDE B | FASTBACK | PRG | Curtcool, Klaus & Jan | 15 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0C 08 01 00 8D 34 30 30 30 30 00 26 08 02 |.......40000.&..|
00000010: 00 4D 58 B2 31 36 30 AB C2 28 35 36 29 3A 8B 4D |.MX.160..(56):.M|
00000020: 58 B3 B1 30 A7 37 00 4F 08 03 00 46 52 B2 B8 28 |X..0.7.O...FR..(|
00000030: 30 29 3A 46 52 B2 46 52 AB 32 34 30 30 3A 8B 46 |0):FR.FR.2400:.F|
00000040: 52 B3 30 A7 46 52 B2 46 52 AA 36 35 35 33 35 00 |R.0.FR.FR.65535.|
00000050: 86 08 04 00 4D 58 B2 B5 28 46 52 AD 32 35 36 29 |....MX..(FR.256)|
00000060: 3A 54 50 B2 31 36 30 AB 4D 58 AB 31 3A 97 35 31 |:TP.160.MX.1:.51|
00000070: 2C 30 3A 97 35 32 2C 54 50 3A 97 35 35 2C 30 3A |,0:.52,TP:.55,0:|
00000080: 97 35 36 2C 54 50 00 B2 08 07 00 86 4C 25 28 35 |.56,TP......L%(5|
00000090: 30 29 2C 42 42 25 28 35 30 29 2C 45 42 25 28 35 |0),BB%(50),EB%(5|
000000A0: 30 29 2C 4C 42 25 28 35 30 29 2C 4E 41 24 28 39 |0),LB%(50),NA$(9|
000000B0: 30 29 00 DD 08 08 00 42 53 B2 32 35 36 AC C2 28 |0).....BS.256..(|
000000C0: 35 36 29 3A 4C 49 B2 30 3A 50 24 B2 22 40 4F 3A |56):LI.0:P$."@O:|
000000D0: 22 3A 4E 41 24 28 30 29 B2 22 24 30 22 00 02 09 |":NA$(0)."$0"...|
000000E0: 09 00 9F 32 2C 38 2C 31 35 3A 43 4F 24 B2 22 2C |...2,8,15:CO$.",|
000000F0: 22 3A 8D 31 30 30 30 30 3A 8B 4D 4F B2 33 A7 31 |":.10000:.MO.3.1|
00000100: 38 30 00 33 09 0A 00 8D 33 30 30 30 30 3A 9F 31 |80.3....30000:.1|
00000110: 2C 38 2C 30 2C 4E 41 24 28 46 4C 29 3A 8D 32 35 |,8,0,NA$(FL):.25|
00000120: 30 30 30 3A 8B A8 28 41 B2 30 29 A7 A0 20 31 3A |000:..(A.0).. 1:|
00000130: 89 31 30 00 41 09 14 00 A1 23 31 2C 41 24 2C 42 |.10.A....#1,A$,B|
00000140: 24 00 4F 09 1E 00 A1 23 31 2C 41 24 2C 42 24 00 |$.O....#1,A$,B$.|
00000150: 6D 09 28 00 A1 23 31 2C 41 24 2C 42 24 3A 43 B2 |m.(..#1,A$,B$:C.|
00000160: 30 3A 4E 24 B2 22 22 3A 43 24 B2 22 22 00 84 09 |0:N$."":C$.""...|
00000170: 3C 00 8B 20 41 24 B3 B1 22 22 20 A7 20 43 B2 C6 |<.. A$.."" . C..|
00000180: 28 41 24 29 00 A1 09 46 00 8B 20 42 24 B3 B1 22 |(A$)...F.. B$.."|
00000190: 22 20 A7 20 43 B2 43 AA C6 28 42 24 29 AC 32 35 |" . C.C..(B$).25|
000001A0: 36 00 B3 09 50 00 42 4C 24 B2 CA 28 C4 28 43 29 |6...P.BL$..(.(C)|
000001B0: 2C 32 29 00 CC 09 5A 00 A1 23 31 2C 42 24 3A 8B |,2)...Z..#1,B$:.|
000001C0: 20 53 54 B3 B1 30 20 A7 20 31 38 30 00 E1 09 64 | ST..0 . 180...d|
000001D0: 00 8B 20 42 24 B3 B1 C7 28 33 34 29 20 A7 20 39 |.. B$...(34) . 9|
000001E0: 30 00 07 0A 6E 00 A1 23 31 2C 42 24 3A 8B 20 42 |0...n..#1,B$:. B|
000001F0: 24 B3 B1 C7 28 33 34 29 A7 20 4E 24 B2 4E 24 AA |$...(34). N$.N$.|
00000200: 42 24 3A 89 31 31 30 00 23 0A 78 00 A1 23 31 2C |B$:.110.#.x..#1,|
00000210: 42 24 3A 8B 20 42 24 B2 C7 28 33 32 29 20 A7 20 |B$:. B$..(32) . |
00000220: 31 32 30 00 44 0A 8C 00 43 24 B2 43 24 AA 42 24 |120.D...C$.C$.B$|
00000230: 3A A1 23 31 2C 42 24 3A 8B 42 24 B3 B1 22 22 A7 |:.#1,B$:.B$.."".|
00000240: 20 31 34 30 00 5F 0A A0 00 4E 41 24 28 4C 49 29 | 140._...NA$(LI)|
00000250: B2 4E 24 AA 43 4F 24 AA C8 28 43 24 2C 33 29 00 |.N$.CO$..(C$,3).|
00000260: 71 0A A5 00 4C 25 28 4C 49 29 B2 C5 28 42 4C 24 |q...L%(LI)..(BL$|
00000270: 29 00 88 0A A6 00 8B 4C 49 B2 30 A7 4C 49 B2 4C |)......LI.0.LI.L|
00000280: 49 AA 31 3A 89 31 37 35 00 A5 0A A7 00 8B 4D 4F |I.1:.175......MO|
00000290: B2 32 A7 8D 32 30 30 30 30 3A 8B 41 4E 24 B2 22 |.2..20000:.AN$."|
000002A0: 4E 22 A7 33 30 00 BB 0A A8 00 8B 4D 4F B2 32 AF |N".30......MO.2.|
000002B0: 41 4E 24 B2 22 1A 22 A7 31 38 30 00 D5 0A A9 00 |AN$.".".180.....|
000002C0: 8B 4D 4F B2 32 AF 41 4E 24 B2 22 59 22 A7 4C 49 |.MO.2.AN$."Y".LI|
000002D0: B2 4C 49 AA 31 00 E7 0A AA 00 8B 4D 4F B2 31 A7 |.LI.1......MO.1.|
000002E0: 4C 49 B2 4C 49 AA 31 00 F7 0A AF 00 8B 20 53 54 |LI.LI.1...... ST|
000002F0: B2 30 20 A7 20 33 30 00 06 0B B4 00 4C 49 B2 4C |.0 . 30.....LI.L|
00000300: 49 AB 31 3A A0 31 00 0C 0B EA 01 8F 00 12 0B EB |I.1:.1..........|
00000310: 01 8F 00 37 0B EC 01 8F 20 57 45 20 4E 4F 57 20 |...7.... WE NOW |
00000320: 48 41 56 45 20 41 20 4C 49 53 54 20 4F 46 20 46 |HAVE A LIST OF F|
00000330: 49 4C 45 53 20 54 4F 00 58 0B ED 01 8F 20 42 41 |ILES TO.X.... BA|
00000340: 43 4B 55 50 2E 20 54 48 45 53 45 20 46 49 4C 45 |CKUP. THESE FILE|
00000350: 53 20 41 52 45 20 49 4E 00 77 0B EE 01 8F 20 4E |S ARE IN.w.... N|
00000360: 41 24 28 4C 4F 29 20 54 4F 20 4E 41 24 28 4C 49 |A$(LO) TO NA$(LI|
00000370: 29 2E 20 54 48 49 53 00 9A 0B EF 01 8F 20 52 4F |). THIS...... RO|
00000380: 55 54 49 4E 45 20 4D 55 53 54 20 4E 4F 57 20 53 |UTINE MUST NOW S|
00000390: 45 47 4D 45 4E 54 20 54 48 45 00 BD 0B F0 01 8F |EGMENT THE......|
000003A0: 20 4C 49 53 54 20 49 4E 54 4F 20 42 49 54 45 2D | LIST INTO BITE-|
000003B0: 53 49 5A 45 44 20 43 48 55 4E 4B 53 2E 00 E2 0B |SIZED CHUNKS....|
000003C0: F1 01 8F 20 49 2E 45 2E 20 54 48 45 20 4E 45 58 |... I.E. THE NEX|
000003D0: 54 20 4E 20 46 49 4C 45 53 20 54 48 41 54 20 41 |T N FILES THAT A|
000003E0: 44 44 00 FB 0B F2 01 8F 20 55 50 20 54 4F 20 3C |DD...... UP TO <|
000003F0: 3D 20 4D 58 20 42 4C 4F 43 4B 53 00 20 0C F4 01 |= MX BLOCKS. ...|
00000400: 4C 4F B2 31 3A 48 49 B2 31 3A 54 54 B2 30 3A 42 |LO.1:HI.1:TT.0:B|
00000410: 4C B2 30 3A 54 49 24 B2 22 30 30 30 30 30 30 22 |L.0:TI$."000000"|
00000420: 00 2E 0C FE 01 81 46 49 B2 4C 4F A4 4C 49 00 42 |......FI.LO.LI.B|
00000430: 0C 03 02 8B 4C 25 28 46 49 29 B3 B2 4D 58 A7 35 |....L%(FI)..MX.5|
00000440: 32 30 00 74 0C 05 02 99 22 46 49 4C 45 20 22 4E |20.t...."FILE "N|
00000450: 41 24 28 46 49 29 22 20 49 53 20 54 4F 4F 20 4C |A$(FI)" IS TOO L|
00000460: 41 52 47 45 20 54 4F 20 43 4F 50 59 22 3A 89 33 |ARGE TO COPY":.3|
00000470: 30 30 34 30 00 90 0C 08 02 54 54 B2 54 54 AA 4C |0040.....TT.TT.L|
00000480: 25 28 46 49 29 3A 8B 54 54 B3 4D 58 A7 35 38 30 |%(FI):.TT.MX.580|
00000490: 00 A1 0C 12 02 48 49 B2 46 49 AB 31 3A 8D 36 30 |.....HI.FI.1:.60|
000004A0: 30 00 BB 0C 1C 02 4C 4F B2 46 49 3A 48 49 B2 4C |0.....LO.FI:HI.L|
000004B0: 4F 3A 54 54 B2 4C 25 28 46 49 29 00 E9 0C 30 02 |O:TT.L%(FI)...0.|
000004C0: 8D 33 30 30 30 30 3A 99 22 49 4E 53 45 52 54 20 |.30000:."INSERT |
000004D0: 12 53 4F 55 52 43 45 92 20 44 49 53 4B 45 54 54 |.SOURCE. DISKETT|
000004E0: 45 20 41 47 41 49 4E 20 22 00 07 0D 32 02 99 22 |E AGAIN "...2.."|
000004F0: 54 59 50 45 20 27 47 27 20 57 48 45 4E 20 52 45 |TYPE 'G' WHEN RE|
00000500: 41 44 59 20 4F 52 22 00 26 0D 34 02 99 22 54 59 |ADY OR".&.4.."TY|
00000510: 50 45 20 27 58 27 20 57 48 45 4E 20 46 49 4E 49 |PE 'X' WHEN FINI|
00000520: 53 48 45 44 11 22 00 3B 0D 36 02 A1 4A 4A 24 3A |SHED.".;.6..JJ$:|
00000530: 8B 4A 4A 24 B2 22 22 A7 35 36 36 00 4E 0D 38 02 |.JJ$."".566.N.8.|
00000540: 8B 4A 4A 24 B2 22 58 22 A7 33 30 30 34 30 00 62 |.JJ$."X".30040.b|
00000550: 0D 3A 02 8B A8 28 4A 4A 24 B2 22 47 22 29 A7 35 |.:...(JJ$."G").5|
00000560: 36 36 00 6A 0D 44 02 82 46 49 00 9B 0D 4E 02 48 |66.j.D..FI...N.H|
00000570: 49 B2 46 49 AB 31 3A 8D 36 30 30 3A 8D 33 30 30 |I.FI.1:.600:.300|
00000580: 30 30 3A 99 22 2A 2A 45 4E 44 20 4F 46 20 4A 4F |00:."**END OF JO|
00000590: 42 2A 2A 22 3A 89 33 30 30 34 30 00 A4 0D 58 02 |B**":.30040...X.|
000005A0: 42 4C B2 30 00 AF 0D 60 02 8D 33 30 30 30 30 00 |BL.0...`..30000.|
000005B0: BD 0D 61 02 81 46 4C B2 4C 4F A4 48 49 00 E2 0D |..a..FL.LO.HI...|
000005C0: 62 02 54 46 24 B2 22 4F 3A 22 AA 4E 41 24 28 46 |b.TF$."O:".NA$(F|
000005D0: 4C 29 AA 22 2C 52 22 3A 42 42 25 28 46 4C 29 B2 |L).",R":BB%(FL).|
000005E0: 42 4C 00 FF 0D 67 02 99 22 4F 50 45 4E 49 4E 47 |BL...g.."OPENING|
000005F0: 20 49 4E 50 55 54 20 22 4E 41 24 28 46 4C 29 00 | INPUT "NA$(FL).|
00000600: 2B 0E 68 02 81 49 B2 31 A4 C3 28 54 46 24 29 3A |+.h..I.1..(TF$):|
00000610: 97 34 39 31 35 39 AA 49 AB 31 2C C6 28 CA 28 54 |.49159.I.1,.(.(T|
00000620: 46 24 2C 49 2C 31 29 29 3A 82 49 00 4F 0E 69 02 |F$,I,1)):.I.O.i.|
00000630: 97 34 39 31 35 38 2C C3 28 54 46 24 29 3A 97 34 |.49158,.(TF$):.4|
00000640: 39 31 35 35 2C 30 3A 97 34 39 31 35 36 2C 30 00 |9155,0:.49156,0.|
00000650: 7B 0E 6A 02 97 34 39 31 35 37 2C 30 3A 97 31 33 |{.j..49157,0:.13|
00000660: 39 2C 32 3A 97 31 34 30 2C B5 28 28 42 53 AA 32 |9,2:.140,.((BS.2|
00000670: 35 36 AC 42 4C 29 AD 32 35 36 29 00 8E 0E 6C 02 |56.BL).256)...l.|
00000680: 9E 34 39 31 35 32 3A 52 44 B2 52 44 AA 31 00 9F |.49152:RD.RD.1..|
00000690: 0E 6E 02 41 44 B2 42 53 AA 32 35 36 AC 42 4C 00 |.n.AD.BS.256.BL.|
000006A0: B8 0E 6F 02 97 41 44 2C C2 28 34 39 31 35 37 29 |..o..AD,.(49157)|
000006B0: 3A 97 41 44 AA 31 2C 30 00 D4 0E 71 02 42 4C B2 |:.AD.1,0...q.BL.|
000006C0: 42 4C AA 31 3A 8B C2 28 34 39 31 35 36 29 B2 30 |BL.1:..(49156).0|
000006D0: A7 36 31 38 00 05 0F 73 02 45 52 B2 C2 28 34 39 |.618...s.ER..(49|
000006E0: 31 35 36 29 3A 8B 45 52 B3 B1 36 34 A7 99 22 2A |156):.ER..64.."*|
000006F0: 2A 46 41 54 41 4C 20 45 52 52 4F 52 20 2A 2A 22 |*FATAL ERROR **"|
00000700: 3B 45 52 3A 80 00 29 0F 76 02 45 42 25 28 46 4C |;ER:..).v.EB%(FL|
00000710: 29 B2 42 4C AB 31 3A 4C 42 25 28 46 4C 29 B2 C2 |).BL.1:LB%(FL)..|
00000720: 28 34 39 31 35 37 29 AB 31 00 31 0F 80 02 82 46 |(49157).1.1....F|
00000730: 4C 00 66 0F 8A 02 8D 33 30 30 30 30 3A 99 22 49 |L.f....30000:."I|
00000740: 4E 53 45 52 54 20 12 4E 45 58 54 20 44 45 53 54 |NSERT .NEXT DEST|
00000750: 49 4E 41 54 49 4F 4E 92 20 44 49 53 4B 45 54 54 |INATION. DISKETT|
00000760: 45 20 41 4E 44 22 00 82 0F 94 02 99 22 54 59 50 |E AND"......"TYP|
00000770: 45 20 27 47 27 20 54 4F 20 43 4F 4E 54 49 4E 55 |E 'G' TO CONTINU|
00000780: 45 22 00 A5 0F 9E 02 99 22 54 59 50 45 20 27 58 |E"......"TYPE 'X|
00000790: 27 20 49 46 20 4E 4F 20 4D 4F 52 45 20 44 49 53 |' IF NO MORE DIS|
000007A0: 4B 53 11 11 22 00 BA 0F A8 02 A1 4A 4A 24 3A 8B |KS.."......JJ$:.|
000007B0: 4A 4A 24 B2 22 22 A7 36 38 30 00 CB 0F B2 02 8B |JJ$."".680......|
000007C0: 4A 4A 24 B2 22 47 22 A7 37 30 30 00 DA 0F B5 02 |JJ$."G".700.....|
000007D0: 8B 4A 4A 24 B2 22 58 22 A7 8E 00 E3 0F B7 02 89 |.JJ$."X"........|
000007E0: 36 38 30 00 F8 0F BC 02 8D 33 30 30 30 30 3A 81 |680......30000:.|
000007F0: 46 4C B2 4C 4F A4 48 49 00 10 10 BD 02 54 4D 24 |FL.LO.HI.....TM$|
00000800: B2 50 24 AA 4E 41 24 28 46 4C 29 AA 22 2C 57 22 |.P$.NA$(FL).",W"|
00000810: 00 4A 10 BE 02 81 49 B2 31 A4 C3 28 54 4D 24 29 |.J....I.1..(TM$)|
00000820: 3A 97 34 39 31 35 39 AA 49 AB 31 2C C6 28 CA 28 |:.49159.I.1,.(.(|
00000830: 54 4D 24 2C 49 2C 31 29 29 3A 82 49 3A 97 34 39 |TM$,I,1)):.I:.49|
00000840: 31 35 38 2C C3 28 54 4D 24 29 00 68 10 C6 02 99 |158,.(TM$).h....|
00000850: 22 4F 50 45 4E 49 4E 47 20 4F 55 54 50 55 54 20 |"OPENING OUTPUT |
00000860: 22 4E 41 24 28 46 4C 29 00 80 10 D0 02 81 42 4C |"NA$(FL)......BL|
00000870: B2 42 42 25 28 46 4C 29 A4 45 42 25 28 46 4C 29 |.BB%(FL).EB%(FL)|
00000880: 00 96 10 DA 02 97 34 39 31 35 35 2C 30 3A 97 34 |......49155,0:.4|
00000890: 39 31 35 36 2C 30 00 B4 10 DF 02 41 44 B2 42 53 |9156,0.....AD.BS|
000008A0: AA 32 35 36 AC 42 4C 3A 97 34 39 31 35 37 2C C2 |.256.BL:.49157,.|
000008B0: 28 41 44 29 00 D2 10 E1 02 48 31 B2 B5 28 41 44 |(AD).....H1..(AD|
000008C0: AD 32 35 36 29 3A 4C 31 B2 41 44 AB 32 35 36 AC |.256):L1.AD.256.|
000008D0: 48 31 00 E8 10 E2 02 97 31 33 39 2C 4C 31 AA 32 |H1......139,L1.2|
000008E0: 3A 97 31 34 30 2C 48 31 00 F3 10 E4 02 9E 34 39 |:.140,H1......49|
000008F0: 31 35 32 00 0D 11 E5 02 45 52 B2 C2 28 34 39 31 |152.....ER..(491|
00000900: 35 36 29 3A 8B 45 52 B2 30 A7 37 35 30 00 39 11 |56):.ER.0.750.9.|
00000910: E9 02 8B 45 52 B3 B1 36 34 A7 99 22 45 52 52 4F |...ER..64.."ERRO|
00000920: 52 20 4F 4E 20 4F 55 54 50 55 54 20 3D 3E 22 3B |R ON OUTPUT =>";|
00000930: 45 52 3A 8D 32 35 30 33 30 00 41 11 EE 02 82 42 |ER:.25030.A....B|
00000940: 4C 00 5F 11 F3 02 97 34 39 31 35 37 2C 32 35 35 |L._....49157,255|
00000950: 3A 9E 34 39 31 35 32 3A 57 52 B2 57 52 AA 31 00 |:.49152:WR.WR.1.|
00000960: 67 11 F8 02 82 46 4C 00 70 11 02 03 89 36 35 30 |g....FL.p....650|
00000970: 00 76 11 06 27 8F 00 7C 11 07 27 8F 00 A1 11 08 |.v..'..|..'.....|
00000980: 27 8F 20 20 49 4E 50 55 54 53 20 2D 20 4C 4F 20 |'. INPUTS - LO |
00000990: 3D 20 4C 4F 20 49 4E 44 45 58 45 44 20 46 49 4C |= LO INDEXED FIL|
000009A0: 45 00 C6 11 09 27 8F 20 20 20 20 20 20 20 20 20 |E....'. |
000009B0: 20 20 48 49 20 3D 20 48 49 20 49 4E 44 45 58 45 | HI = HI INDEXE|
000009C0: 44 20 46 49 4C 45 00 EA 11 0A 27 8F 20 20 52 45 |D FILE....'. RE|
000009D0: 41 44 20 44 41 54 41 20 46 4F 52 20 46 49 4C 45 |AD DATA FOR FILE|
000009E0: 53 20 4C 4F 20 54 4F 20 48 49 00 0F 12 0B 27 8F |S LO TO HI....'.|
000009F0: 20 20 49 4E 54 4F 20 42 25 20 42 55 46 46 45 52 | INTO B% BUFFER|
00000A00: 2E 20 41 46 54 45 52 20 52 45 41 44 49 4E 47 00 |. AFTER READING.|
00000A10: 33 12 0C 27 8F 20 20 46 49 4C 45 20 4E 41 24 28 |3..'. FILE NA$(|
00000A20: 48 49 29 20 54 48 45 4E 20 57 52 49 54 45 20 45 |HI) THEN WRITE E|
00000A30: 41 43 48 00 4D 12 0D 27 8F 20 20 46 49 4C 45 20 |ACH.M..'. FILE |
00000A40: 46 52 4F 4D 20 4C 4F 20 54 4F 20 48 49 00 58 12 |FROM LO TO HI.X.|
00000A50: 10 27 8D 33 30 30 30 30 00 72 12 2E 27 99 22 11 |.'.30000.r..'.".|
00000A60: 11 20 20 46 31 20 2D 20 43 4F 50 59 20 41 4C 4C |. F1 - COPY ALL|
00000A70: 11 22 00 90 12 38 27 99 22 20 20 46 33 20 2D 20 |."...8'." F3 - |
00000A80: 43 4F 50 59 20 53 45 4C 45 43 54 49 56 45 11 22 |COPY SELECTIVE."|
00000A90: 00 B1 12 42 27 99 22 20 20 46 35 20 2D 20 43 4F |...B'." F5 - CO|
00000AA0: 50 59 20 50 41 52 54 49 43 55 4C 41 52 11 11 11 |PY PARTICULAR...|
00000AB0: 22 00 C8 12 4C 27 A1 4A 4A 24 3A 8B 4A 4A 24 B2 |"...L'.JJ$:.JJ$.|
00000AC0: 22 22 A7 31 30 30 36 30 00 DA 12 51 27 8B 4A 4A |"".10060...Q'.JJ|
00000AD0: 24 B2 22 85 22 A7 4D 4F B2 31 00 EC 12 56 27 8B |$.".".MO.1...V'.|
00000AE0: 4A 4A 24 B2 22 86 22 A7 4D 4F B2 32 00 FE 12 60 |JJ$.".".MO.2...`|
00000AF0: 27 8B 4A 4A 24 B2 22 87 22 A7 4D 4F B2 33 00 0E |'.JJ$.".".MO.3..|
00000B00: 13 65 27 8B 4D 4F B2 30 A7 31 30 30 36 30 00 1D |.e'.MO.0.10060..|
00000B10: 13 6A 27 8B A8 28 4D 4F B2 33 29 A7 8E 00 2D 13 |.j'..(MO.3)...-.|
00000B20: 74 27 8D 33 30 30 30 30 3A 4C 49 B2 31 00 47 13 |t'.30000:LI.1.G.|
00000B30: 7E 27 99 22 45 4E 54 45 52 20 46 49 4C 45 2C 20 |~'."ENTER FILE, |
00000B40: 54 59 50 45 20 22 3B 00 56 13 88 27 85 22 22 3B |TYPE ";.V..'."";|
00000B50: 46 24 2C 54 59 24 00 64 13 8D 27 8B 20 46 24 B2 |F$,TY$.d..'. F$.|
00000B60: 22 22 A7 8E 00 7B 13 92 27 4E 41 24 28 4C 49 29 |""...{..'NA$(LI)|
00000B70: B2 46 24 AA 22 2C 22 AA 54 59 24 00 9B 13 9C 27 |.F$.",".TY$....'|
00000B80: 4C 49 B2 4C 49 AA 31 3A 46 24 B2 22 22 3A 54 59 |LI.LI.1:F$."":TY|
00000B90: 24 B2 22 22 3A 89 31 30 31 31 30 00 BF 13 20 4E |$."":.10110... N|
00000BA0: 99 22 49 4E 43 4C 55 44 45 20 22 4E 41 24 28 4C |."INCLUDE "NA$(L|
00000BB0: 49 29 22 20 5B 59 2F 4E 5D 20 3F 20 20 22 3B 00 |I)" [Y/N] ? ";.|
00000BC0: D6 13 2A 4E A1 41 4E 24 3A 8B 41 4E 24 B2 22 22 |..*N.AN$:.AN$.""|
00000BD0: A7 32 30 30 31 30 00 FB 13 2F 4E 8B 41 4E 24 B2 |.20010.../N.AN$.|
00000BE0: 22 59 22 B0 41 4E 24 B2 22 4E 22 B0 41 4E 24 B2 |"Y".AN$."N".AN$.|
00000BF0: 22 1A 22 A7 99 41 4E 24 3A 20 8E 00 06 14 34 4E |"."..AN$: ....4N|
00000C00: 89 32 30 30 31 30 00 1E 14 A8 61 84 32 2C 41 2C |.20010....a.2,A,|
00000C10: 42 24 2C 43 2C 44 3A 8B 41 B2 30 A7 20 8E 00 29 |B$,C,D:.A.0. ..)|
00000C20: 14 B2 61 8D 33 30 30 30 30 00 3C 14 BC 61 99 42 |..a.30000.<..a.B|
00000C30: 24 22 2D 20 22 4E 41 24 28 46 4C 29 00 5A 14 C6 |$"- "NA$(FL).Z..|
00000C40: 61 99 22 50 4C 45 41 53 45 20 43 4F 52 52 45 43 |a."PLEASE CORREC|
00000C50: 54 20 50 52 4F 42 4C 45 4D 22 00 79 14 D0 61 99 |T PROBLEM".y..a.|
00000C60: 22 54 59 50 45 20 27 47 27 20 54 4F 20 43 4F 4E |"TYPE 'G' TO CON|
00000C70: 54 49 4E 55 45 20 4F 52 22 00 92 14 DA 61 99 22 |TINUE OR"....a."|
00000C80: 54 59 50 45 20 27 58 27 20 54 4F 20 45 58 49 54 |TYPE 'X' TO EXIT|
00000C90: 11 22 00 B5 14 E4 61 A1 41 4E 24 3A 8B A8 28 41 |."....a.AN$:..(A|
00000CA0: 4E 24 B2 22 47 22 B0 41 4E 24 B2 22 58 22 29 A7 |N$."G".AN$."X").|
00000CB0: 32 35 30 36 30 00 C8 14 EE 61 8B 41 4E 24 B2 22 |25060....a.AN$."|
00000CC0: 58 22 A7 33 30 30 34 30 00 CE 14 F8 61 8E 00 EF |X".30040....a...|
00000CD0: 14 30 75 99 20 20 20 22 93 C0 C0 C0 C0 C0 C0 C0 |.0u. "........|
00000CE0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 |..............".|
00000CF0: 0B 15 35 75 99 20 20 20 20 22 20 20 20 20 20 53 |..5u. " S|
00000D00: 49 4E 47 4C 45 2D 44 49 53 4B 22 00 2A 15 3A 75 |INGLE-DISK".*.:u|
00000D10: 99 20 20 20 20 22 20 20 20 20 42 41 43 4B 55 50 |. " BACKUP|
00000D20: 20 55 54 49 4C 49 54 59 20 22 00 47 15 3B 75 99 | UTILITY ".G.;u.|
00000D30: 20 20 20 20 22 20 20 20 20 20 42 59 20 4A 4F 45 | " BY JOE|
00000D40: 20 53 43 48 45 59 22 00 68 15 3C 75 99 20 20 20 | SCHEY".h.<u. |
00000D50: 20 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | "..............|
00000D60: C0 C0 C0 C0 C0 C0 C0 22 00 87 15 3F 75 99 20 20 |......."...?u. |
00000D70: 20 20 22 20 42 4C 4F 43 4B 49 4E 47 20 46 41 43 | " BLOCKING FAC|
00000D80: 54 4F 52 22 3B 4D 58 00 A5 15 41 75 99 20 20 20 |TOR";MX...Au. |
00000D90: 20 22 20 20 46 52 45 45 20 53 50 41 43 45 20 22 | " FREE SPACE "|
00000DA0: 3B B8 28 30 29 00 C6 15 44 75 99 20 20 20 20 22 |;.(0)...Du. "|
00000DB0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000DC0: C0 C0 C0 C0 C0 22 00 CC 15 4E 75 8E 00 E3 15 58 |....."...Nu....X|
00000DD0: 75 A0 32 3A 97 35 32 2C 31 36 30 3A 97 35 36 2C |u.2:.52,160:.56,|
00000DE0: 31 36 30 00 FC 15 62 75 41 56 B2 54 49 AD 28 52 |160...buAV.TI.(R|
00000DF0: 44 AA 57 52 29 AC 28 31 AD 36 30 29 00 17 16 6C |D.WR).(1.60)...l|
00000E00: 75 99 22 45 4C 41 50 53 45 44 20 54 49 4D 45 20 |u."ELAPSED TIME |
00000E10: 22 3B 54 49 AD 36 30 00 34 16 76 75 99 22 41 56 |";TI.60.4.vu."AV|
00000E20: 47 20 42 4C 4F 43 4B 20 52 2F 57 20 54 49 4D 45 |G BLOCK R/W TIME|
00000E30: 22 3B 41 56 00 3A 16 80 75 80 00 72 16 40 9C 41 |";AV.:..u..r.@.A|
00000E40: B2 C2 28 36 31 29 AA 32 35 36 AC C2 28 36 32 29 |..(61).256..(62)|
00000E50: AA 33 3A 97 37 38 36 2C B5 28 41 AD 32 35 36 29 |.3:.786,.(A.256)|
00000E60: 3A 97 37 38 35 2C 41 AB 32 35 36 AC C2 28 37 38 |:.785,A.256..(78|
00000E70: 36 29 00 A3 16 45 9C 8B 45 52 A7 97 41 AB 32 2C |6)...E..ER..A.2,|
00000E80: 30 3A 97 41 AB 31 2C 30 3A 97 34 35 2C C2 28 37 |0:.A.1,0:.45,.(7|
00000E90: 38 35 29 3A 97 34 36 2C C2 28 37 38 36 29 3A 9C |85):.46,.(786):.|
00000EA0: 3A 8A 32 00 D0 16 46 9C 99 22 93 11 11 11 11 52 |:.2...F..".....R|
00000EB0: 45 41 44 49 4E 47 20 44 41 54 41 2C 20 50 4C 45 |EADING DATA, PLE|
00000EC0: 41 53 45 20 53 54 41 4E 44 42 59 21 2E 2E 2E 22 |ASE STANDBY!..."|
00000ED0: 00 E3 16 4A 9C 81 49 B2 34 39 31 35 32 A4 34 39 |...J..I.49152.49|
00000EE0: 33 32 37 00 F1 16 54 9C 87 41 3A 97 49 2C 41 3A |327...T..A:.I,A:|
00000EF0: 82 00 01 17 59 9C 45 52 B2 31 3A 89 34 30 30 30 |....Y.ER.1:.4000|
00000F00: 30 00 28 17 72 9C 83 37 36 2C 33 37 2C 31 39 32 |0.(.r..76,37,192|
00000F10: 2C 30 2C 30 2C 30 2C 30 2C 32 35 35 2C 32 35 35 |,0,0,0,0,255,255|
00000F20: 2C 32 35 35 2C 32 35 35 00 55 17 77 9C 83 32 35 |,255,255.U.w..25|
00000F30: 35 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 |5,255,255,255,25|
00000F40: 35 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 31 39 |5,255,255,255,19|
00000F50: 31 2C 32 35 35 00 82 17 7C 9C 83 32 35 35 2C 32 |1,255...|..255,2|
00000F60: 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 |55,255,255,255,2|
00000F70: 35 35 2C 32 35 35 2C 32 35 35 2C 32 35 35 2C 32 |55,255,255,255,2|
00000F80: 35 35 00 A5 17 81 9C 83 32 33 39 2C 30 2C 30 2C |55......239,0,0,|
00000F90: 31 32 38 2C 30 2C 30 2C 31 37 33 2C 33 2C 31 39 |128,0,0,173,3,19|
00000FA0: 32 2C 32 30 38 00 CB 17 86 9C 83 35 38 2C 31 36 |2,208......58,16|
00000FB0: 39 2C 30 2C 33 32 2C 31 38 39 2C 32 35 35 2C 31 |9,0,32,189,255,1|
00000FC0: 36 39 2C 31 35 2C 31 36 32 2C 38 00 F3 17 8B 9C |69,15,162,8.....|
00000FD0: 83 31 36 30 2C 31 35 2C 33 32 2C 31 38 36 2C 32 |.160,15,32,186,2|
00000FE0: 35 35 2C 33 32 2C 31 39 32 2C 32 35 35 2C 31 37 |55,32,192,255,17|
00000FF0: 33 2C 36 00 1B 18 90 9C 83 31 39 32 2C 31 36 30 |3,6......192,160|
00001000: 2C 31 39 32 2C 31 36 32 2C 37 2C 33 32 2C 31 38 |,192,162,7,32,18|
00001010: 39 2C 32 35 35 2C 31 36 39 2C 35 00 42 18 95 9C |9,255,169,5.B...|
00001020: 83 31 36 32 2C 38 2C 31 36 30 2C 35 2C 33 32 2C |.162,8,160,5,32,|
00001030: 31 38 36 2C 32 35 35 2C 33 32 2C 31 39 32 2C 32 |186,255,32,192,2|
00001040: 35 35 00 67 18 9A 9C 83 31 34 31 2C 33 2C 31 39 |55.g....141,3,19|
00001050: 32 2C 31 36 32 2C 35 2C 31 37 33 2C 35 2C 31 39 |2,162,5,173,5,19|
00001060: 32 2C 32 34 30 2C 36 00 91 18 9F 9C 83 33 32 2C |2,240,6......32,|
00001070: 32 30 31 2C 32 35 35 2C 37 36 2C 31 30 30 2C 31 |201,255,76,100,1|
00001080: 39 32 2C 33 32 2C 31 39 38 2C 32 35 35 2C 31 36 |92,32,198,255,16|
00001090: 30 00 B8 18 A4 9C 83 30 2C 31 37 34 2C 35 2C 31 |0......0,174,5,1|
000010A0: 39 32 2C 32 34 30 2C 32 31 2C 32 32 34 2C 32 35 |92,240,21,224,25|
000010B0: 35 2C 32 34 30 2C 34 31 00 E1 18 A9 9C 83 31 37 |5,240,41......17|
000010C0: 37 2C 31 33 39 2C 33 32 2C 31 36 38 2C 32 35 35 |7,139,32,168,255|
000010D0: 2C 33 32 2C 31 38 33 2C 32 35 35 2C 32 30 31 2C |,32,183,255,201,|
000010E0: 30 00 0B 19 AE 9C 83 32 30 38 2C 32 36 2C 32 30 |0......208,26,20|
000010F0: 30 2C 32 30 32 2C 32 30 38 2C 32 34 30 2C 39 36 |0,202,208,240,96|
00001100: 2C 33 32 2C 31 36 35 2C 32 35 35 00 35 19 B3 9C |,32,165,255.5...|
00001110: 83 31 34 35 2C 31 33 39 2C 32 30 30 2C 31 34 30 |.145,139,200,140|
00001120: 2C 35 2C 31 39 32 2C 33 32 2C 31 38 33 2C 32 35 |,5,192,32,183,25|
00001130: 35 2C 32 30 31 00 5B 19 B8 9C 83 30 2C 32 30 38 |5,201.[....0,208|
00001140: 2C 35 2C 31 39 32 2C 32 35 34 2C 32 30 38 2C 32 |,5,192,254,208,2|
00001150: 33 36 2C 39 36 2C 31 34 31 2C 34 00 83 19 BD 9C |36,96,141,4.....|
00001160: 83 31 39 32 2C 33 32 2C 32 30 34 2C 32 35 35 2C |.192,32,204,255,|
00001170: 31 36 39 2C 30 2C 31 34 31 2C 33 2C 31 39 32 2C |169,0,141,3,192,|
00001180: 31 36 39 00 AA 19 C2 9C 83 35 2C 33 32 2C 31 39 |169......5,32,19|
00001190: 35 2C 32 35 35 2C 31 36 39 2C 31 35 2C 33 32 2C |5,255,169,15,32,|
000011A0: 31 39 35 2C 32 35 35 2C 39 36 00 CC 19 C7 9C 83 |195,255,96......|
000011B0: 31 32 37 2C 30 2C 36 34 2C 30 2C 31 32 37 2C 30 |127,0,64,0,127,0|
000011C0: 2C 31 32 37 2C 30 2C 31 32 37 2C 30 00 00 45 00 |,127,0,127,0..E.|
.......40000.&...MX.160.B(56):.MX..0.7.O
...FR..(0):FR.FR.2400:.FR.0.FR.FR.65535.
....MX..(FR.256):TP.160.MX.1:.51,0:.52,T
P:.55,0:.56,TP......L%(50),BB%(50),EB%(5
0),LB%(50),NA$(90).....BS.256.B(56):LI.0
:P$."@O:":NA$(0)."$0"......2,8,15:CO$.",
":.10000:.MO.3.180.3....30000:.1,8,0,NA$
(FL):.25000:..(A.0). 1:.10.A....#1,A$,B
$.O....#1,A$,B$.M.(..#1,A$,B$:C.0:N$."":
C$.""...<.. A$.."" . C.F(A$)...F.. B$.."
" . C.C.F(B$).256...P.BL$.J(D(C),2).L.Z.
.#1,B$:. ST..0 . 180...D.. B$..G(34) . 9
0...N..#1,B$:. B$..G(34). N$.N$.B$:.110.
#.X..#1,B$:. B$.G(32) . 120.D...C$.C$.B$
:.#1,B$:.B$.."". 140._. .NA$(LI).N$.CO$.
H(C$,3).Q...L%(LI).E(BL$)......LI.0.LI.L
I.1:.175......MO.2..20000:.AN$."N".30...
...MO.2.AN$.".".180.U....MO.2.AN$."Y".LI
.LI.1......MO.1.LI.LI.1...... ST.0 . 30.
....LI.LI.1: 1.............7.... WE NOW
HAVE A LIST OF FILES TO.X.... BACKUP. TH
ESE FILES ARE IN.W.... NA$(LO) TO NA$(LI
). THIS...... ROUTINE MUST NOW SEGMENT T
HE...... LIST INTO BITE-SIZED CHUNKS....
... I.E. THE NEXT N FILES THAT ADD......
UP TO <= MX BLOCKS. ...LO.1:HI.1:TT.0:B
L.0:TI$."000000"......FI.LO.LI.B....L%(F
I)..MX.520.T...."FILE "NA$(FI)" IS TOO L
ARGE TO COPY":.30040.....TT.TT.L%(FI):.T
T.MX.580.....HI.FI.1:.600.....LO.FI:HI.L
O:TT.L%(FI)...0..30000:."INSERT .SOURCE.
DISKETTE AGAIN "...2.."TYPE 'G' WHEN RE
ADY OR".&.4.."TYPE 'X' WHEN FINISHED.".;
.6..JJ$:.JJ$."".566.N.8..JJ$."X".30040.B
.:...(JJ$."G").566.J.D..FI...N.HI.FI.1:.
600:.30000:."**END OF JOB**":.30040...X.
BL.0...`..30000...A..FL.LO.HI...B.TF$."O
:".NA$(FL).",R":BB%(FL).BL...G.."OPENING
INPUT "NA$(FL).+.H..I.1.C(TF$):.49159.I
.1,F(J(TF$,I,1)):.I.O.I..49158,C(TF$):.4
9155,0:.49156,0.{.J..49157,0:.139,2:.140
,.((BS.256.BL).256)...L..49152:RD.RD.1..
.N.AD.BS.256.BL...O..AD,B(49157):.AD.1,0
.T.Q.BL.BL.1:.B(49156).0.618...S.ER.B(49
156):.ER..64.."**FATAL ERROR **";ER:..).
V.EB%(FL).BL.1:LB%(FL).B(49157).1.1....F
L.F....30000:."INSERT .NEXT DESTINATION.
DISKETTE AND"......"TYPE 'G' TO CONTINU
E"......"TYPE 'X' IF NO MORE DISKS.."...
...JJ$:.JJ$."".680.K....JJ$."G".700.Z...
.JJ$."X"........680......30000:.FL.LO.HI
.....TM$.P$.NA$(FL).",W".J....I.1.C(TM$)
:.49159.I.1,F(J(TM$,I,1)):.I:.49158,C(TM
$).H.F.."OPENING OUTPUT "NA$(FL)...P..BL
.BB%(FL).EB%(FL)...Z..49155,0:.49156,0..
...AD.BS.256.BL:.49157,B(AD).R...H1..(AD
.256):L1.AD.256.H1......139,L1.2:.140,H1
......49152.....ER.B(49156):.ER.0.750.9.
...ER..64.."ERROR ON OUTPUT =>";ER:.2503
0.A....BL._....49157,255:.49152:WR.WR.1.
G....FL.P....650.V..'..|..'.....'. INPU
TS - LO = LO INDEXED FILE.F..'.
HI = HI INDEXED FILE....'. READ DATA
FOR FILES LO TO HI....'. INTO B% BUFFER
. AFTER READING.3..'. FILE NA$(HI) THEN
WRITE EACH.M..'. FILE FROM LO TO HI.X.
.'.30000.R..'.".. F1 - COPY ALL."...8'.
" F3 - COPY SELECTIVE."...B'." F5 - CO
PY PARTICULAR...".H.L'.JJ$:.JJ$."".10060
.Z.Q'.JJ$.".".MO.1...V'.JJ$.".".MO.2...`
'.JJ$.".".MO.3...E'.MO.0.10060...J'..(MO
.3)...-.T'.30000:LI.1.G.~'."ENTER FILE,
TYPE ";.V..'."";F$,TY$.D..'. F$.""...{..
'NA$(LI).F$.",".TY$....'LI.LI.1:F$."":TY
$."":.10110... N."INCLUDE "NA$(LI)" [Y/N
] ? ";.V.*N.AN$:.AN$."".20010.../N.AN$.
"Y".AN$."N".AN$."."..AN$: ....4N.20010..
..A.2,A,B$,C,D:.A.0. ..)..A.30000.<..A.B
$"- "NA$(FL).Z.FA."PLEASE CORRECT PROBLE
M".Y.PA."TYPE 'G' TO CONTINUE OR"...ZA."
TYPE 'X' TO EXIT."....A.AN$:..(AN$."G".A
N$."X").25060.H..A.AN$."X".30040.N..A...
.0U. "......................"...5U.
" SINGLE-DISK".*.:U. " BACKUP
UTILITY ".G.;U. " BY JOE SCHEY".
H.<U. "....................."...?U.
" BLOCKING FACTOR";MX...AU. " FREE
SPACE ";.(0).F.DU. "................
.....".L.NU....XU 2:.52,160:.56,160...BU
AV.TI.(RD.WR).(1.60)...LU."ELAPSED TIME
";TI.60.4.VU."AVG BLOCK R/W TIME";AV.:..
U..R.@.A.B(61).256.B(62).3:.786,.(A.256)
:.785,A.256.B(786)...E..ER..A.2,0:.A.1,0
:.45,B(785):.46,B(786):.:.2.P.F..".....R
EADING DATA, PLEASE STANDBY!..."...J..I.
49152.49327...T..A:.I,A:....Y.ER.1:.4000
0.(.R..76,37,192,0,0,0,0,255,255,255,255
.U.W..255,255,255,255,255,255,255,255,19
1,255...|..255,255,255,255,255,255,255,2
55,255,255......239,0,0,128,0,0,173,3,19
2,208.K....58,169,0,32,189,255,169,15,16
2,8......160,15,32,186,255,32,192,255,17
3,6......192,160,192,162,7,32,189,255,16
9,5.B....162,8,160,5,32,186,255,32,192,2
55.G....141,3,192,162,5,173,5,192,240,6.
.....32,201,255,76,100,192,32,198,255,16
0......0,174,5,192,240,21,224,255,240,41
......177,139,32,168,255,32,183,255,201,
0......208,26,200,202,208,240,96,32,165,
255.5....145,139,200,140,5,192,32,183,25
5,201.[....0,208,5,192,254,208,236,96,14
1,4......192,32,204,255,169,0,141,3,192,
169...B..5,32,195,255,169,15,32,195,255,
96.L.G..127,0,64,0,127,0,127,0,127,0..E.
> CLICK IMAGE PREVIEW FOR FULL MODAL