WEDGE-64-$9000.C
FILE INFORMATION
FILENAME(S): WEDGE-64-$9000.C
FILE TYPE(S): PRG
FILE SIZE: 7.1K
FIRST SEEN: 2025-12-01 01:48:23
APPEARS ON: 1 disk(s)
FILE HASH
0ff466ab42badf84edb18e446534f8eb76e4041c098b03df5f68f8c1c571c307
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CCS 64 3 | WEDGE-64-$9000.C | PRG | hedning, Mattias H00r | 15 | 17 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0C 99 22 11 11 12 C4 C5 D3 D4 C9 CE C1 D4 C9 CF |..".............|
00000010: CE 20 D4 D2 C1 C3 CB 2C D3 C5 C3 D4 CF D2 92 20 |. .....,....... |
00000020: 20 20 22 3B 54 22 2C 22 53 00 47 13 6D 0C 85 22 | ";T","S.G.m.."|
00000030: 91 12 C4 C5 D3 D4 C9 CE C1 D4 C9 CF CE 20 D4 D2 |............. ..|
00000040: C1 C3 CB 2C D3 C5 C3 D4 CF D2 92 1D 1D 22 3B 54 |...,.........";T|
00000050: 2C 53 3A 8B 28 54 B3 31 29 B0 28 54 B1 54 54 29 |,S:.(T.1).(T.TT)|
00000060: A7 33 31 38 30 00 6B 13 76 0C 99 22 11 11 11 12 |.3180.k.v.."....|
00000070: C4 C5 D3 D4 C9 CE C1 D4 C9 CF CE 20 C4 D2 C9 D6 |........... ....|
00000080: C5 92 A0 A0 A0 22 3B 44 52 00 AF 13 77 0C 85 22 |.....";DR...w.."|
00000090: 91 12 C4 C5 D3 D4 C9 CE C1 D4 C9 CF CE 20 C4 D2 |............. ..|
000000A0: C9 D6 C5 92 1D 1D 22 3B 44 52 24 3A 44 52 B2 C5 |......";DR$:DR..|
000000B0: 28 44 52 24 29 3A 8B 44 52 24 B3 B1 22 30 22 AF |(DR$):.DR$.."0".|
000000C0: 44 52 24 B3 B1 22 31 22 A7 33 31 39 30 00 C3 13 |DR$.."1".3190...|
000000D0: 80 0C A0 33 3A A0 31 35 3A 9F 31 35 2C 38 2C 31 |...3:.15:.15,8,1|
000000E0: 35 00 D9 13 8A 0C 9F 33 2C 38 2C 33 2C 22 23 22 |5......3,8,3,"#"|
000000F0: 3A 8D 36 33 39 30 30 00 0E 14 8F 0C A1 23 33 2C |:.63900......#3,|
00000100: 42 4E 24 3A 42 4E B2 C6 28 42 4E 24 29 3A 99 22 |BN$:BN..(BN$):."|
00000110: 93 22 53 44 24 22 11 11 11 11 46 49 4C 4C 49 4E |."SD$"....FILLIN|
00000120: 47 20 C2 D5 C6 C6 C5 D2 23 22 42 4E 00 1B 14 99 |G ......#"BN....|
00000130: 0C 81 49 B2 30 A4 32 35 35 00 39 14 9E 0C 98 31 |..I.0.255.9....1|
00000140: 35 2C 22 42 2D 50 22 2C 33 2C 49 3A 98 33 2C C7 |5,"B-P",3,I:.3,.|
00000150: 28 43 28 49 29 29 3B 00 49 14 A8 0C 99 22 13 20 |(C(I));.I....". |
00000160: 20 20 9D 9D 9D 22 49 00 4F 14 B2 0C 82 00 66 14 | ..."I.O.....f.|
00000170: D0 0C 98 31 35 2C 22 55 32 3A 22 3B 33 3B 44 52 |...15,"U2:";3;DR|
00000180: 3B 54 3B 53 00 84 14 DA 0C 98 31 35 2C 22 49 22 |;T;S......15,"I"|
00000190: AA 44 52 24 3A 8D 36 33 39 30 30 3A A0 33 3A A0 |.DR$:.63900:.3:.|
000001A0: 31 35 00 8F 14 E4 0C 99 22 93 22 3A 8E 00 A7 14 |15......".":....|
000001B0: A0 0F 8F 20 53 54 4F 52 45 20 43 28 49 29 20 49 |... STORE C(I) I|
000001C0: 4E 20 52 41 4D 00 BF 14 A1 0F 8F 22 B8 B8 B8 B8 |N RAM......"....|
000001D0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 CF 14 |................|
000001E0: A5 0F 99 22 93 22 3B 3A 8D 32 30 30 30 00 F6 14 |...".";:.2000...|
000001F0: B4 0F 85 22 12 D3 D4 C1 D2 D4 C9 CE C7 A0 D6 C1 |..."............|
00000200: CC D5 C5 A0 CF C6 20 49 92 20 20 20 A6 9D 9D 9D |...... I. ....|
00000210: 22 3B 49 31 00 23 15 BE 0F 99 22 12 D3 D4 C1 D2 |";I1.#....".....|
00000220: D4 C9 CE C7 A0 CD C5 CD CF D2 D9 A0 CC CF C3 27 |...............'|
00000230: CE 92 28 24 3D C8 C5 D8 29 20 20 24 37 30 30 30 |..($=...) $7000|
00000240: 22 00 53 15 C3 0F 85 22 91 12 D3 D4 C1 D2 D4 C9 |".S...."........|
00000250: CE C7 A0 CD C5 CD CF D2 D9 A0 CC CF C3 27 CE 92 |.............'..|
00000260: 28 24 3D C8 C5 D8 29 22 3B 4D 24 3A 8D 39 30 30 |($=...)";M$:.900|
00000270: 30 00 73 15 C8 0F 81 4B 31 B2 49 31 A4 32 35 35 |0.s....K1.I1.255|
00000280: 3A 97 4D AB 49 31 AA 4B 31 2C 43 28 4B 31 29 3A |:.M.I1.K1,C(K1):|
00000290: 82 00 A8 15 D2 0F 4D B2 4D AB 49 31 AA 32 35 36 |......M.M.I1.256|
000002A0: 3A 99 22 12 CE C5 D8 D4 92 20 4D 45 4D 27 59 20 |:."...... MEM'Y |
000002B0: 4C 4F 43 27 4E 3D 22 4D 3B 3A 8D 39 35 30 30 3A |LOC'N="M;:.9500:|
000002C0: 99 22 12 22 4D 24 00 B1 15 DC 0F 8D 33 30 30 00 |."."M$......300.|
000002D0: C1 15 E6 0F 99 22 93 22 3B 3A 8E 20 20 20 20 00 |.....".";:. .|
000002E0: D9 15 88 13 8F 20 57 52 49 54 45 20 52 41 4D 20 |..... WRITE RAM |
000002F0: 54 4F 20 44 49 53 4B 00 F1 15 89 13 8F 22 B8 B8 |TO DISK......"..|
00000300: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 |................|
00000310: 26 16 9C 13 85 22 12 CD C5 CD 27 D9 20 CC CF C3 |&...."....'. ...|
00000320: 27 CE 20 CF C6 20 C2 CC CF C3 CB 92 28 24 3D C8 |'. .. ......($=.|
00000330: C5 D8 29 20 20 20 A6 9D 9D 9D 22 3B 4D 24 3A 8D |..) ....";M$:.|
00000340: 39 30 30 30 00 48 16 A6 13 85 22 11 12 D3 D4 C1 |9000.H....".....|
00000350: D2 D4 20 D7 C9 D4 C8 20 49 92 3D A0 A0 A0 A6 9D |.. .... I.=.....|
00000360: 9D 9D 22 3B 49 31 00 68 16 B0 13 85 22 11 12 C5 |..";I1.h...."...|
00000370: CE C4 20 D7 C9 D4 C8 20 49 92 3D A0 A0 A0 A6 9D |.. .... I.=.....|
00000380: 9D 9D 22 3B 49 32 00 83 16 C4 13 81 49 B2 49 31 |..";I2......I.I1|
00000390: A4 49 32 3A 43 28 49 29 B2 C2 28 4D AA 49 29 3A |.I2:C(I)..(M.I):|
000003A0: 82 00 C6 16 CE 13 85 22 93 11 11 12 C4 C5 D3 D4 |......."........|
000003B0: C9 CE C1 D4 C9 CF CE 20 D4 D2 C1 C3 CB 2C D3 C5 |....... .....,..|
000003C0: C3 D4 CF D2 92 20 20 20 A6 9D 9D 9D 22 3B 54 2C |..... ....";T,|
000003D0: 53 3A 8B 28 54 B3 31 29 B0 28 54 B1 54 54 29 A7 |S:.(T.1).(T.TT).|
000003E0: 35 30 37 30 00 07 17 D8 13 85 22 11 11 11 12 C4 |5070......".....|
000003F0: C5 D3 D4 C9 CE C1 D4 C9 CF CE 20 C4 D2 C9 D6 C5 |.......... .....|
00000400: 92 A0 A0 A0 A6 9D 9D 9D 22 3B 44 52 24 3A 44 52 |........";DR$:DR|
00000410: B2 C5 28 44 52 24 29 3A 8B 44 52 24 B2 22 A6 22 |..(DR$):.DR$."."|
00000420: A7 35 30 38 30 00 47 17 E2 13 9F 33 2C 38 2C 33 |.5080.G....3,8,3|
00000430: 2C 22 23 22 3A A1 23 33 2C 42 4E 24 3A 42 4E B2 |,"#":.#3,BN$:BN.|
00000440: C6 28 42 4E 24 29 3A 99 22 93 22 53 44 24 22 11 |.(BN$):."."SD$".|
00000450: 11 11 11 46 49 4C 4C 49 4E 47 20 C2 D5 C6 C6 C5 |...FILLING .....|
00000460: D2 23 22 42 4E 00 60 17 EC 13 81 49 B2 49 31 A4 |.#"BN.`....I.I1.|
00000470: 49 32 3A 99 22 13 20 20 20 9D 9D 9D 22 49 00 7E |I2:.". ..."I.~|
00000480: 17 F6 13 98 31 35 2C 22 42 2D 50 22 3B 33 3B 49 |....15,"B-P";3;I|
00000490: 3A 98 33 2C C7 28 43 28 49 29 29 3B 00 84 17 0A |:.3,.(C(I));....|
000004A0: 14 82 00 9B 17 14 14 98 31 35 2C 22 55 32 3A 22 |........15,"U2:"|
000004B0: 3B 33 3B 44 52 3B 54 3B 53 00 B9 17 1E 14 98 31 |;3;DR;T;S......1|
000004C0: 35 2C 22 49 22 AA 44 52 24 3A 8D 36 33 39 30 30 |5,"I".DR$:.63900|
000004D0: 3A A0 33 3A A0 31 35 00 C4 17 28 14 99 22 93 22 |:.3:.15...(.."."|
000004E0: 3A 8E 00 CE 17 70 17 8F 20 42 41 4D 00 D8 17 7A |:....p.. BAM...z|
000004F0: 17 8F 22 B8 B8 B8 00 F2 17 84 17 96 20 A5 42 28 |.."......... .B(|
00000500: 49 29 B2 28 5A AF 50 28 49 29 29 AD 50 28 49 29 |I).(Z.P(I)).P(I)|
00000510: 00 01 18 8E 17 A0 31 35 3A 8D 35 38 30 32 30 00 |......15:.58020.|
00000520: 1B 18 98 17 99 22 93 11 11 12 31 92 3A 44 49 53 |....."....1.:DIS|
00000530: 50 4C 41 59 20 42 41 4D 22 00 32 18 A2 17 99 22 |PLAY BAM".2...."|
00000540: 11 12 32 92 3A 43 48 41 4E 47 45 20 42 41 4D 22 |..2.:CHANGE BAM"|
00000550: 00 53 18 AC 17 99 56 43 24 22 11 11 11 12 52 45 |.S....VC$"....RE|
00000560: 54 55 52 4E 92 20 54 4F 20 45 58 49 54 22 54 43 |TURN. TO EXIT"TC|
00000570: 24 00 71 18 B6 17 8D 33 31 30 3A 99 22 93 22 3A |$.q....310:.".":|
00000580: 8B 49 4E 24 B2 C7 28 31 33 29 A7 36 30 39 35 00 |.IN$..(13).6095.|
00000590: 83 18 C0 17 91 49 4E 8D 36 31 30 30 2C 36 32 38 |.....IN.6100,628|
000005A0: 30 00 8D 18 CA 17 89 36 30 33 30 00 B8 18 CF 17 |0......6030.....|
000005B0: A0 32 3A A0 33 3A 9F 31 35 2C 38 2C 31 35 2C 22 |.2:.3:.15,8,15,"|
000005C0: 49 22 AA 44 52 24 3A 8D 35 38 30 31 30 3A 8D 36 |I".DR$:.58010:.6|
000005D0: 33 39 30 30 3A 8E 00 CA 18 D4 17 8F 20 44 49 53 |3900:....... DIS|
000005E0: 50 4C 41 59 20 42 41 4D 00 DC 18 DE 17 8F 22 A3 |PLAY BAM......".|
000005F0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 00 01 19 E8 17 99 |................|
00000600: 22 11 11 57 48 49 43 48 20 54 52 41 43 4B 53 22 |"..WHICH TRACKS"|
00000610: 3A 99 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 |:.".............|
00000620: 28 19 F2 17 85 22 11 11 46 49 52 53 54 2C 4C 41 |(...."..FIRST,LA|
00000630: 53 54 20 54 52 41 43 4B 20 20 20 A6 9D 9D 9D 22 |ST TRACK ...."|
00000640: 3B 54 53 2C 54 45 00 58 19 FC 17 8B 28 54 53 B3 |;TS,TE.X....(TS.|
00000650: 31 29 B0 28 54 53 B1 54 54 29 B0 28 54 45 B3 31 |1).(TS.TT).(TE.1|
00000660: 29 B0 28 54 45 B1 54 54 29 B0 28 54 45 B3 54 53 |).(TE.TT).(TE.TS|
00000670: 29 A7 36 31 33 30 00 77 19 06 18 99 22 93 12 52 |).6130.w...."..R|
00000680: 45 54 55 52 4E 92 92 20 54 4F 20 53 54 4F 50 22 |ETURN.. TO STOP"|
00000690: 3A 99 53 30 24 00 93 19 10 18 9F 31 35 2C 38 2C |:.S0$......15,8,|
000006A0: 31 35 2C 22 49 22 AA 44 52 24 3A 8D 36 33 39 30 |15,"I".DR$:.6390|
000006B0: 30 00 AD 19 1A 18 9F 32 2C 38 2C 32 2C 22 24 22 |0......2,8,2,"$"|
000006C0: AA 44 52 24 3A 8D 36 33 39 30 30 00 C1 19 24 18 |.DR$:.63900...$.|
000006D0: 46 46 B2 44 31 AA 28 54 53 AB 31 29 AC 53 33 00 |FF.D1.(TS.1).S3.|
000006E0: D6 19 2E 18 81 4B B2 30 A4 46 46 3A A1 23 32 2C |.....K.0.FF:.#2,|
000006F0: 41 24 3A 82 00 F9 19 38 18 81 54 B2 54 53 A4 54 |A$:....8..T.TS.T|
00000700: 45 3A 8B 54 B2 35 31 A7 A1 23 32 2C 41 24 2C 41 |E:.T.51..#2,A$,A|
00000710: 24 2C 41 24 2C 41 24 00 03 1A 42 18 8D 36 34 30 |$,A$,A$...B..640|
00000720: 30 00 1A 1A 4C 18 A1 41 24 3A 8B 41 24 B3 B1 22 |0...L..A$:.A$.."|
00000730: 22 A7 54 B2 54 54 AA 31 00 34 1A 56 18 82 3A A0 |".T.TT.1.4.V..:.|
00000740: 32 3A A0 31 35 3A 8D 36 38 37 30 3A 8D 33 31 30 |2:.15:.6870:.310|
00000750: 3A 8E 00 45 1A 60 18 8F 20 43 48 41 4E 47 45 20 |:..E.`.. CHANGE |
00000760: 42 41 4D 00 56 1A 6A 18 8F 22 A3 A3 A3 A3 A3 A3 |BAM.V.j.."......|
00000770: A3 A3 A3 A3 00 75 1A 74 18 85 22 93 4D 4F 52 45 |.....u.t..".MORE|
00000780: 20 43 48 41 4E 47 45 53 20 20 20 59 9D 9D 9D 22 | CHANGES Y..."|
00000790: 3B 49 24 00 84 1A 7E 18 8B 49 24 B3 B1 22 59 22 |;I$...~..I$.."Y"|
000007A0: A7 8E 00 C1 1A 88 18 8B 44 54 B2 36 37 A7 99 22 |........DT.67.."|
000007B0: 93 53 4F 52 52 59 2E 2E 43 41 4E 27 54 20 43 48 |.SORRY..CAN'T CH|
000007C0: 41 4E 47 45 20 42 41 4D 20 46 4F 52 20 54 48 49 |ANGE BAM FOR THI|
000007D0: 53 20 44 49 53 4B 2E 22 3A 8D 33 31 30 3A 8E 00 |S DISK.":.310:..|
000007E0: EC 1A 8D 18 85 22 93 54 52 41 43 4B 20 20 20 D6 |.....".TRACK .|
000007F0: 9D 9D 9D 22 3B 54 3A 8B 28 54 B3 31 29 B0 28 54 |...";T:.(T.1).(T|
00000800: B1 54 54 29 A7 4E 36 32 38 30 00 FD 1A 92 18 A0 |.TT).N6280......|
00000810: 31 35 3A 9F 31 35 2C 38 2C 31 35 00 16 1B 9C 18 |15:.15,8,15.....|
00000820: A0 32 3A 9F 32 2C 38 2C 32 2C 22 23 22 3A 8D 36 |.2:.2,8,2,"#":.6|
00000830: 33 39 30 30 00 2E 1B A6 18 98 31 35 2C 22 55 31 |3900......15,"U1|
00000840: 3A 22 3B 32 3B 44 52 3B 44 49 3B 30 00 42 1B B0 |:";2;DR;DI;0.B..|
00000850: 18 98 31 35 2C 22 42 2D 50 22 3B 32 3B 54 AC 34 |..15,"B-P";2;T.4|
00000860: 00 72 1B BA 18 99 56 43 24 22 93 48 49 54 20 12 |.r....VC$".HIT .|
00000870: 52 45 54 55 52 4E 92 20 54 4F 20 51 55 49 54 11 |RETURN. TO QUIT.|
00000880: 22 54 43 24 3A 8D 36 34 30 30 3A 8D 36 35 38 30 |"TC$:.6400:.6580|
00000890: 00 B2 1B C4 18 85 22 13 11 11 11 11 11 11 11 11 |......".........|
000008A0: 11 43 48 41 4E 47 45 20 57 48 49 43 48 20 53 45 |.CHANGE WHICH SE|
000008B0: 43 54 4F 52 20 20 20 20 20 9D 9D D6 9D 9D 9D 22 |CTOR ......"|
000008C0: 3B 53 24 3A 8B 53 24 B2 22 D6 22 A7 36 32 36 30 |;S$:.S$.".".6260|
000008D0: 00 D1 1B CE 18 53 B2 C5 28 53 24 29 3A 8B 53 B3 |.....S..(S$):.S.|
000008E0: 30 B0 53 B1 B2 53 43 28 54 29 A7 36 32 36 30 00 |0.S..SC(T).6260.|
000008F0: E1 1B D8 18 A0 32 3A A0 31 35 3A 99 53 44 24 00 |.....2:.15:.SD$.|
00000900: 10 1C E2 18 8D 36 36 32 30 3A 8D 36 34 38 30 3A |.....6620:.6480:|
00000910: 8D 36 35 38 30 3A 99 3A 99 4D 44 24 22 12 4F 4B |.6580:.:.MD$".OK|
00000920: 3F 92 22 3B 3A 8D 33 31 30 3A 99 43 4C 24 00 23 |?.";:.310:.CL$.#|
00000930: 1C EC 18 8B 49 4E 24 B2 22 59 22 A7 8D 36 37 33 |....IN$."Y"..673|
00000940: 30 00 32 1C F1 18 99 4D 44 24 43 4C 24 53 44 24 |0.2....MD$CL$SD$|
00000950: 00 42 1C F6 18 8D 36 34 38 30 3A 89 36 33 34 30 |.B....6480:.6340|
00000960: 00 55 1C 00 19 81 4B B2 30 A4 53 32 3A A1 23 32 |.U....K.0.S2:.#2|
00000970: 2C 41 24 00 68 1C 0A 19 8B 41 24 B2 22 22 A7 41 |,A$.h....A$."".A|
00000980: 24 B2 C7 28 30 29 00 77 1C 14 19 42 28 4B 29 B2 |$..(0).w...B(K).|
00000990: C6 28 41 24 29 00 7D 1C 1E 19 82 00 8F 1C 50 19 |.(A$).}.......P.|
000009A0: 8F 20 50 52 49 4E 54 20 54 52 41 43 4B 00 A1 1C |. PRINT TRACK...|
000009B0: 5A 19 8F 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 00 |Z.."............|
000009C0: B4 1C 64 19 81 4B B2 31 A4 53 31 3A 5A B2 42 28 |..d..K.1.S1:Z.B(|
000009D0: 4B 29 00 BF 1C 6E 19 81 49 B2 30 A4 37 00 D6 1C |K)...n..I.0.7...|
000009E0: 78 19 58 B2 A5 42 28 49 29 3A 99 58 24 28 58 29 |x.X..B(I):.X$(X)|
000009F0: 3B 3A 82 49 00 DD 1C 82 19 82 4B 00 FA 1C 8C 19 |;:.I......K.....|
00000A00: 5A B2 42 28 4B 29 3A 81 49 B2 30 A4 53 43 28 54 |Z.B(K):.I.0.SC(T|
00000A10: 29 AB 53 43 28 54 54 29 00 13 1D 96 19 58 B2 A5 |).SC(TT).....X..|
00000A20: 42 28 49 29 3A 99 58 24 28 58 29 3B 3A 82 49 3A |B(I):.X$(X);:.I:|
00000A30: 99 00 36 1D A0 19 99 22 91 22 A3 32 32 29 22 54 |..6....".".22)"T|
00000A40: 52 41 43 4B 12 22 54 22 92 9D 46 52 45 45 3D 22 |RACK."T"..FREE="|
00000A50: 42 28 30 29 00 3C 1D AA 19 8E 00 4E 1D B4 19 99 |B(0).<.....N....|
00000A60: C8 28 53 31 24 2C 53 43 28 54 29 29 00 75 1D BE |.(S1$,SC(T)).u..|
00000A70: 19 99 C8 28 53 32 24 2C 53 43 28 54 29 29 A3 32 |...(S2$,SC(T)).2|
00000A80: 33 29 22 23 20 53 45 43 54 4F 52 53 3D 22 53 43 |3)"# SECTORS="SC|
00000A90: 28 54 29 00 99 1D C8 19 8B 53 43 28 54 29 B2 32 |(T)......SC(T).2|
00000AA0: 31 A7 99 C8 28 53 33 24 2C 53 43 28 54 29 AA 31 |1...(S3$,SC(T).1|
00000AB0: 29 3A 89 36 36 31 30 00 AB 1D CD 19 99 C8 28 53 |):.6610.......(S|
00000AC0: 33 24 2C 53 43 28 54 29 29 00 B6 1D D2 19 99 53 |3$,SC(T))......S|
00000AD0: 30 24 3A 8E 00 CA 1D DC 19 8F 20 43 48 41 4E 47 |0$:....... CHANG|
00000AE0: 45 20 53 45 43 54 4F 52 00 DE 1D E6 19 8F 22 A3 |E SECTOR......".|
00000AF0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 00 F9 1D F0 |................|
00000B00: 19 8B 53 B3 38 A7 5A B2 42 28 31 29 3A 53 53 B2 |..S.8.Z.B(1):SS.|
00000B10: 53 3A 89 36 36 37 30 00 17 1E FA 19 8B 53 B3 31 |S:.6670......S.1|
00000B20: 36 A7 5A B2 42 28 32 29 3A 53 53 B2 53 AB 38 3A |6.Z.B(2):SS.S.8:|
00000B30: 89 36 36 37 30 00 2A 1E 04 1A 5A B2 42 28 33 29 |.6670.*...Z.B(3)|
00000B40: 3A 53 53 B2 53 AB 31 36 00 47 1E 0E 1A 4E 5A B2 |:SS.S.16.G...NZ.|
00000B50: 28 A8 5A AF 50 28 53 53 29 29 B0 28 5A AF A8 50 |(.Z.P(SS)).(Z..P|
00000B60: 28 53 53 29 29 00 63 1E 18 1A 42 28 30 29 B2 42 |(SS)).c...B(0).B|
00000B70: 28 30 29 AA 28 4E 5A B3 5A 29 AB 28 4E 5A B1 5A |(0).(NZ.Z).(NZ.Z|
00000B80: 29 00 7A 1E 22 1A 8B 53 B3 38 A7 42 28 31 29 B2 |).z."..S.8.B(1).|
00000B90: 4E 5A 3A 89 36 37 32 30 00 92 1E 2C 1A 8B 53 B3 |NZ:.6720...,..S.|
00000BA0: 31 36 A7 42 28 32 29 B2 4E 5A 3A 89 36 37 32 30 |16.B(2).NZ:.6720|
00000BB0: 00 9E 1E 36 1A 42 28 33 29 B2 4E 5A 00 A4 1E 40 |...6.B(3).NZ...@|
00000BC0: 1A 8E 00 B1 1E 4A 1A 9F 31 35 2C 38 2C 31 35 00 |.....J..15,8,15.|
00000BD0: E9 1E 54 1A 99 4D 44 24 56 43 24 22 12 41 52 45 |..T..MD$VC$".ARE|
00000BE0: 20 59 4F 55 20 53 55 52 45 3F 92 22 54 43 24 3B | YOU SURE?."TC$;|
00000BF0: 3A 8D 33 31 30 3A 99 49 4E 24 3B 3A 8B 49 4E 24 |:.310:.IN$;:.IN$|
00000C00: B3 B1 22 59 22 A7 8E 00 03 1F 5E 1A 99 22 2E 2E |.."Y".....^.."..|
00000C10: 12 43 48 41 4E 47 49 4E 47 20 42 41 4D 2E 2E 22 |.CHANGING BAM.."|
00000C20: 3B 00 19 1F 68 1A 9F 33 2C 38 2C 33 2C 22 23 22 |;...h..3,8,3,"#"|
00000C30: 3A 8D 36 33 39 30 30 00 2F 1F 72 1A A1 23 33 2C |:.63900./.r..#3,|
00000C40: 42 4E 24 3A 42 4E B2 C6 28 42 4E 24 29 00 3B 1F |BN$:BN..(BN$).;.|
00000C50: 86 1A 81 49 B2 30 A4 53 32 00 5F 1F 90 1A 98 31 |...I.0.S2._....1|
00000C60: 35 2C 22 42 2D 50 22 3B 33 3B 49 AA 54 AC 34 3A |5,"B-P";3;I.T.4:|
00000C70: 98 33 2C C7 28 42 28 49 29 29 3B 3A 82 00 77 1F |.3,.(B(I));:..w.|
00000C80: B8 1A 98 31 35 2C 22 55 32 3A 22 3B 33 3B 44 52 |...15,"U2:";3;DR|
00000C90: 3B 44 49 3B 30 00 95 1F C2 1A 98 31 35 2C 22 49 |;DI;0......15,"I|
00000CA0: 22 AA 44 52 24 3A 8D 36 33 39 30 30 3A A0 33 3A |".DR$:.63900:.3:|
00000CB0: A0 31 35 00 9B 1F CC 1A 8E 00 D3 1F D6 1A 99 22 |.15............"|
00000CC0: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000CD0: 11 11 11 11 11 11 11 11 11 12 52 45 54 55 52 4E |..........RETURN|
00000CE0: 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 3B 3A |. TO CONTINUE";:|
00000CF0: 8E 00 E7 1F 58 1B 8F 20 44 49 53 4B 20 43 4F 4D |....X.. DISK COM|
00000D00: 4D 41 4E 44 53 00 FB 1F 59 1B 8F 22 B8 B8 B8 B8 |MANDS...Y.."....|
00000D10: B8 B8 B8 B8 B8 B8 B8 B8 B8 00 0F 20 5A 1B 8D 35 |........... Z..5|
00000D20: 38 30 31 30 3A A0 31 35 3A 99 22 93 22 00 26 20 |8010:.15:.".".& |
00000D30: 5B 1B 44 24 28 31 29 B2 22 C9 4E 49 54 49 41 4C |[.D$(1).".NITIAL|
00000D40: 49 5A 45 22 00 3B 20 5C 1B 44 24 28 32 29 B2 22 |IZE".; \.D$(2)."|
00000D50: D6 41 4C 49 44 41 54 45 22 00 54 20 5D 1B 44 24 |.ALIDATE".T ].D$|
00000D60: 28 33 29 B2 22 C3 48 41 4E 47 45 20 C4 D2 C9 D6 |(3).".HANGE ....|
00000D70: C5 23 00 72 20 5E 1B 44 24 28 34 29 B2 22 C4 49 |.#.r ^.D$(4).".I|
00000D80: 53 50 4C 41 59 20 C4 49 52 45 43 54 4F 52 59 22 |SPLAY .IRECTORY"|
00000D90: 00 8F 20 61 1B 81 49 B2 31 A4 34 3A 99 22 11 12 |.. a..I.1.4:."..|
00000DA0: 22 49 22 92 3A 22 44 24 28 49 29 3A 82 00 B0 20 |"I".:"D$(I):... |
00000DB0: 62 1B 99 56 43 24 22 11 11 11 12 D2 C5 D4 D5 D2 |b..VC$".........|
00000DC0: CE 92 20 54 4F 20 45 58 49 54 22 54 43 24 00 C6 |.. TO EXIT"TC$..|
00000DD0: 20 63 1B 8D 33 31 30 3A 8B 49 4E 24 B2 C7 28 31 | c..310:.IN$..(1|
00000DE0: 33 29 A7 8E 00 DA 20 64 1B 8B 49 4E B3 31 B0 49 |3).... d..IN.1.I|
00000DF0: 4E B1 35 A7 37 30 30 30 00 10 21 65 1B 99 22 13 |N.5.7000..!e..".|
00000E00: 22 3B 3A 81 49 B2 31 A4 49 4E 3A 99 22 11 11 22 |";:.I.1.IN:.".."|
00000E10: 3B 3A 82 3A 99 22 1D 1D 1D 1D 12 22 44 24 28 49 |;:.:."....."D$(I|
00000E20: 4E 29 3A 81 54 39 B2 31 A4 33 30 30 3A 82 00 2E |N):.T9.1.300:...|
00000E30: 21 67 1B 91 20 49 4E 20 8D 37 30 32 30 2C 37 30 |!g.. IN .7020,70|
00000E40: 33 30 2C 37 30 34 30 2C 37 30 35 30 00 38 21 68 |30,7040,7050.8!h|
00000E50: 1B 89 37 30 30 30 00 56 21 6C 1B 9F 31 35 2C 38 |..7000.V!l..15,8|
00000E60: 2C 31 35 2C 22 49 22 AA 44 52 24 3A 8D 36 33 39 |,15,"I".DR$:.639|
00000E70: 30 30 3A 8E 00 74 21 76 1B 9F 31 35 2C 38 2C 31 |00:..t!v..15,8,1|
00000E80: 35 2C 22 56 22 AA 44 52 24 3A 8D 36 33 39 30 30 |5,"V".DR$:.63900|
00000E90: 3A 8E 00 9F 21 80 1B 44 52 B2 31 AB 44 52 3A 44 |:...!..DR.1.DR:D|
00000EA0: 52 24 B2 CA 28 C4 28 44 52 29 2C 32 29 3A 99 22 |R$..(.(DR),2):."|
00000EB0: 93 11 44 52 49 56 45 20 23 22 44 52 24 00 D8 21 |..DRIVE #"DR$..!|
00000EC0: 81 1B 4D 48 24 B2 22 12 44 52 49 56 45 23 22 AA |..MH$.".DRIVE#".|
00000ED0: 44 52 24 AA 22 3A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |DR$.":**********|
00000EE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000EF0: 2A 2A 2A 2A 92 22 00 E1 21 82 1B 8D 32 36 31 00 |****."..!...261.|
00000F00: ED 21 83 1B 8D 38 30 34 30 3A 8E 00 1A 22 8A 1B |.!...8040:..."..|
00000F10: 99 22 93 22 48 44 24 3A 99 22 48 49 54 20 41 20 |."."HD$:."HIT A |
00000F20: 4B 45 59 20 54 4F 20 53 54 4F 50 11 22 56 43 24 |KEY TO STOP."VC$|
00000F30: 3A 5A 24 B2 C7 28 30 29 00 4D 22 8C 1B 99 22 12 |:Z$..(0).M"...".|
00000F40: C2 CC CB D3 20 20 20 20 20 20 20 CE C1 CD C5 20 |.... .... |
00000F50: 20 20 20 20 20 20 20 20 D4 D9 D0 C5 20 20 20 28 | .... (|
00000F60: 20 D4 2C D3 20 29 20 22 54 43 24 00 68 22 8D 1B | .,. ) "TC$.h"..|
00000F70: 99 53 30 24 3A A0 33 3A 9F 33 2C 38 2C 33 2C 22 |.S0$:.3:.3,8,3,"|
00000F80: 24 22 AA 44 52 24 00 AD 22 8E 1B 54 59 24 28 30 |$".DR$.."..TY$(0|
00000F90: 29 B2 22 C4 C5 CC 22 3A 54 59 24 28 31 29 B2 22 |)."...":TY$(1)."|
00000FA0: D3 C5 D1 22 3A 54 59 24 28 32 29 B2 22 D0 D2 C7 |...":TY$(2)."...|
00000FB0: 22 3A 54 59 24 28 33 29 B2 22 D5 D3 D2 22 3A 54 |":TY$(3)."...":T|
00000FC0: 59 24 28 34 29 B2 22 D2 C5 CC 22 00 C3 22 90 1B |Y$(4)."...".."..|
00000FD0: 81 49 B2 30 A4 32 35 33 3A A1 23 33 2C 41 24 3A |.I.0.253:.#3,A$:|
00000FE0: 82 00 FC 22 92 1B 81 50 B2 31 A4 38 3A A1 23 33 |..."...P.1.8:.#3|
00000FF0: 2C 41 24 3A 41 B2 C6 28 41 24 AA C7 28 30 29 29 |,A$:A..(A$..(0))|
00001000: AB 31 32 38 3A 41 33 24 B2 54 59 24 28 AB 41 AC |.128:A3$.TY$(.A.|
00001010: 28 41 B1 30 AF 41 B3 35 29 29 00 26 23 94 1B A1 |(A.0.A.5)).&#...|
00001020: 23 33 2C 41 24 2C 42 24 3A 41 B2 C6 28 41 24 AA |#3,A$,B$:A..(A$.|
00001030: 5A 24 29 3A 42 B2 C6 28 42 24 AA 5A 24 29 3A 4B |Z$):B..(B$.Z$):K|
00001040: 39 B2 53 54 00 5A 23 95 1B 41 24 B2 C9 28 C4 28 |9.ST.Z#..A$..(.(|
00001050: 41 29 2C 32 29 3A 42 24 B2 C9 28 C4 28 42 29 2C |A),2):B$..(.(B),|
00001060: 32 29 3A 41 34 24 B2 22 28 22 AA 41 24 AA 22 2C |2):A4$."(".A$.",|
00001070: 22 AA 42 24 AA 22 29 22 00 69 23 96 1B 8B 20 4B |".B$.")".i#... K|
00001080: 39 20 A7 37 30 37 35 00 9D 23 98 1B 41 32 24 B2 |9 .7075..#..A2$.|
00001090: 22 12 22 3A 81 49 B2 31 A4 31 36 3A A1 23 33 2C |".":.I.1.16:.#3,|
000010A0: 41 24 3A 41 32 24 B2 41 32 24 AA 41 24 3A 82 3A |A$:A2$.A2$.A$:.:|
000010B0: 41 32 24 B2 41 32 24 AA 22 92 22 00 C0 23 9A 1B |A2$.A2$."."..#..|
000010C0: A1 23 33 2C 41 24 2C 41 24 2C 41 24 2C 41 24 2C |.#3,A$,A$,A$,A$,|
000010D0: 41 24 2C 41 24 2C 41 24 2C 41 24 2C 41 24 00 FC |A$,A$,A$,A$,A$..|
000010E0: 23 9C 1B A1 23 33 2C 41 24 2C 42 24 3A 41 B2 C6 |#...#3,A$,B$:A..|
000010F0: 28 41 24 AA C7 28 30 29 29 3A 42 B2 C6 28 42 24 |(A$..(0)):B..(B$|
00001100: AA C7 28 30 29 29 3A 43 B2 41 AA 32 35 36 AC 42 |..(0)):C.A.256.B|
00001110: 3A 8B 43 B2 30 A7 50 B2 31 30 00 14 24 9D 1B 41 |:.C.0.P.10..$..A|
00001120: 31 24 B2 C9 28 22 20 20 20 22 AA C4 28 43 29 2C |1$..(" "..(C),|
00001130: 33 29 00 27 24 9E 1B 8B 50 B3 38 A7 A1 23 33 2C |3).'$...P.8..#3,|
00001140: 41 24 2C 41 24 00 4E 24 A0 1B 8B 20 43 20 A7 20 |A$,A$.N$... C . |
00001150: 99 41 31 24 22 20 20 20 22 41 32 24 22 20 20 20 |.A1$" "A2$" |
00001160: 22 41 33 24 22 20 20 20 22 41 34 24 00 63 24 A1 |"A3$" "A4$.c$.|
00001170: 1B A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 50 B2 31 |..A$:.A$.."".P.1|
00001180: 30 00 74 24 A2 1B 82 3A 8B 50 B3 31 30 A7 37 30 |0.t$...:.P.10.70|
00001190: 35 38 00 8F 24 A3 1B A0 33 3A 99 3A 8D 37 30 38 |58..$...3:.:.708|
000011A0: 30 3A 99 53 30 24 3A 8D 33 30 30 3A 8E 00 A1 24 |0:.S0$:.300:...$|
000011B0: A8 1B 8F 20 42 4C 4F 43 4B 53 20 46 52 45 45 00 |... BLOCKS FREE.|
000011C0: B8 24 A9 1B 9F 31 2C 38 2C 30 2C 22 24 22 AA 44 |.$...1,8,0,"$".D|
000011D0: 52 24 AA 22 3A 22 00 C2 24 AA 1B 8D 37 30 38 35 |R$.":"..$...7085|
000011E0: 00 E2 24 AB 1B 4C B2 58 AA 59 AC 32 35 36 3A 99 |..$..L.X.Y.256:.|
000011F0: 4C 3B 22 20 C2 CC CF C3 CB D3 20 C6 D2 C5 C5 22 |L;" ...... ...."|
00001200: 00 EB 24 AC 1B A0 31 3A 8E 00 05 25 AD 1B A1 23 |..$...1:...%...#|
00001210: 31 2C 58 24 2C 58 24 2C 58 24 2C 58 24 2C 58 24 |1,X$,X$,X$,X$,X$|
00001220: 2C 58 24 00 1D 25 AE 1B A1 23 31 2C 58 24 3A 8B |,X$..%...#1,X$:.|
00001230: 58 24 B3 B1 22 22 89 37 30 38 36 00 31 25 AF 1B |X$.."".7086.1%..|
00001240: A1 23 31 2C 58 24 2C 58 24 2C 58 24 2C 59 24 00 |.#1,X$,X$,X$,Y$.|
00001250: 48 25 B0 1B 58 B2 C3 28 58 24 29 3A 8B 58 A7 58 |H%..X..(X$):.X.X|
00001260: B2 C6 28 58 24 29 00 5F 25 B1 1B 59 B2 C3 28 59 |..(X$)._%..Y..(Y|
00001270: 24 29 3A 8B 59 A7 59 B2 C6 28 59 24 29 00 65 25 |$):.Y.Y..(Y$).e%|
00001280: B2 1B 8E 00 78 25 BC 1B 8F 20 54 52 41 43 45 20 |....x%... TRACE |
00001290: 42 4C 4F 43 4B 53 00 8B 25 BD 1B 8F 22 B8 B8 B8 |BLOCKS..%..."...|
000012A0: B8 B8 B8 B8 B8 B8 B8 B8 B8 00 B8 25 C1 1B 85 22 |...........%..."|
000012B0: 93 12 53 54 41 52 54 49 4E 47 20 D4 D2 C1 C3 CB |..STARTING .....|
000012C0: 2C D3 C5 C3 D4 CF D2 92 20 20 20 A6 9D 9D 9D 22 |,....... ...."|
000012D0: 3B 54 38 2C 53 38 00 E4 25 C2 1B 8B 28 54 38 B3 |;T8,S8..%...(T8.|
000012E0: 31 29 B0 28 54 38 B1 54 54 29 B0 28 53 38 B3 30 |1).(T8.TT).(S8.0|
000012F0: 29 B0 28 53 38 B1 53 43 28 54 38 29 29 A7 37 31 |).(S8.SC(T8)).71|
00001300: 30 35 00 1C 26 C6 1B A0 33 3A A0 31 35 3A 9F 31 |05..&...3:.15:.1|
00001310: 35 2C 38 2C 31 35 3A 9F 33 2C 38 2C 33 2C 22 23 |5,8,15:.3,8,3,"#|
00001320: 22 3A 8D 36 33 39 30 30 3A A1 23 33 2C 42 4E 24 |":.63900:.#3,BN$|
00001330: 3A 42 4E B2 C6 28 42 4E 24 29 00 2D 26 C7 1B 42 |:BN..(BN$).-&..B|
00001340: 4E 24 B2 CA 28 42 4E 24 2C 32 29 00 54 26 CB 1B |N$..(BN$,2).T&..|
00001350: 99 3A 99 22 28 22 54 38 22 2C 22 53 38 22 29 5F |.:."("T8","S8")_|
00001360: 20 C6 C9 D2 D3 D4 20 C2 CC CF C3 CB 22 3A 4E 39 | ..... .....":N9|
00001370: B2 31 00 6D 26 D0 1B 98 31 35 2C 22 42 2D 52 22 |.1.m&...15,"B-R"|
00001380: 3B 33 3B 44 52 3B 54 38 3B 53 38 00 7F 26 DA 1B |;3;DR;T8;S8..&..|
00001390: 98 31 35 2C 22 42 2D 50 22 3B 33 3B 30 00 99 26 |.15,"B-P";3;0..&|
000013A0: E4 1B A1 23 33 2C 5A 24 3A 8B 5A 24 B2 22 22 A7 |...#3,Z$:.Z$."".|
000013B0: 5A 24 B2 C7 28 30 29 00 B1 26 EE 1B 54 38 B2 C6 |Z$..(0)..&..T8..|
000013C0: 28 5A 24 29 3A 8B 54 38 B2 30 A7 37 32 30 30 00 |(Z$):.T8.0.7200.|
000013D0: CB 26 F8 1B A1 23 33 2C 5A 24 3A 8B 5A 24 B2 22 |.&...#3,Z$:.Z$."|
000013E0: 22 A7 5A 24 B2 C7 28 30 29 00 D8 26 02 1C 53 38 |".Z$..(0)..&..S8|
000013F0: B2 C6 28 5A 24 29 00 FA 26 07 1C 54 38 24 B2 CA |..(Z$)..&..T8$..|
00001400: 28 C4 28 54 38 29 2C 32 29 3A 53 38 24 B2 CA 28 |(.(T8),2):S8$..(|
00001410: C4 28 53 38 29 2C 32 29 00 10 27 0C 1C 99 22 28 |.(S8),2)..'..."(|
00001420: 22 54 38 24 22 2C 22 53 38 24 22 29 22 3B 00 22 |"T8$","S8$")";."|
00001430: 27 16 1C 4E 39 B2 4E 39 AA 31 3A 89 37 31 32 30 |'..N9.N9.1:.7120|
00001440: 00 38 27 20 1C 99 22 5F 20 CC C1 D3 D4 20 C2 CC |.8' .."_ .... ..|
00001450: CF C3 CB 11 11 22 00 51 27 2A 1C 99 4E 39 22 20 |.....".Q'*..N9" |
00001460: 42 4C 4F 43 4B 53 11 22 3A 8D 33 30 30 3A 8E 00 |BLOCKS.":.300:..|
00001470: 61 27 4C 1D 8F 20 55 4E 53 43 52 41 54 43 48 00 |a'L.. UNSCRATCH.|
00001480: 71 27 4D 1D 8F 22 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 |q'M.."..........|
00001490: 91 27 56 1D 99 22 93 D7 45 27 4C 4C 20 44 4F 20 |.'V.."..E'LL DO |
000014A0: 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 3A 22 00 |THE FOLLOWING:".|
000014B0: C0 27 57 1D 99 22 11 12 31 92 3A C7 4F 20 54 48 |.'W.."..1.:.O TH|
000014C0: 52 55 27 20 44 49 52 45 43 54 4F 52 59 20 54 52 |RU' DIRECTORY TR|
000014D0: 41 43 4B 22 44 49 22 20 55 4E 54 49 4C 22 00 EA |ACK"DI" UNTIL"..|
000014E0: 27 58 1D 99 22 20 20 57 45 20 46 49 4E 44 20 54 |'X.." WE FIND T|
000014F0: 48 45 20 53 43 52 41 54 43 48 45 44 20 46 49 4C |HE SCRATCHED FIL|
00001500: 45 20 4E 41 4D 45 2E 22 00 13 28 59 1D 99 22 11 |E NAME."..(Y..".|
00001510: 12 32 92 3A D4 52 41 43 45 20 54 48 45 20 C2 4C |.2.:.RACE THE .L|
00001520: 4F 43 4B 53 20 41 4E 44 20 43 4F 4D 50 41 52 45 |OCKS AND COMPARE|
00001530: 22 00 39 28 5A 1D 99 22 20 20 54 48 45 20 C2 4C |".9(Z.." THE .L|
00001540: 4F 43 4B 53 20 4F 42 54 41 49 4E 45 44 20 57 49 |OCKS OBTAINED WI|
00001550: 54 48 20 54 48 45 22 00 59 28 5B 1D 99 22 20 20 |TH THE".Y([.." |
00001560: C4 49 52 45 43 54 4F 52 59 20 C2 4C 4F 43 4B 20 |.IRECTORY .LOCK |
00001570: C3 4F 55 4E 54 2E 22 00 87 28 5C 1D 99 22 11 12 |.OUNT."..(\.."..|
00001580: 33 92 3A CC 4F 4F 4B 20 41 54 20 54 48 45 20 C2 |3.:.OOK AT THE .|
00001590: 4C 4F 43 4B 20 C1 56 41 49 4C 41 42 49 4C 54 59 |LOCK .VAILABILTY|
000015A0: 20 CD 41 50 22 00 B3 28 5D 1D 99 22 20 20 54 4F | .AP"..(].." TO|
000015B0: 20 53 45 45 20 49 46 20 41 4C 4C 20 54 48 45 20 | SEE IF ALL THE |
000015C0: 42 4C 4F 43 4B 53 20 41 52 45 20 46 52 45 45 2E |BLOCKS ARE FREE.|
000015D0: 22 00 D8 28 5E 1D 99 22 11 3E 3E C9 46 20 41 4C |"..(^..".>>.F AL|
000015E0: 4C 20 4F 46 20 54 48 45 20 41 42 4F 56 45 20 41 |L OF THE ABOVE A|
000015F0: 52 45 20 CF CB 22 00 FF 28 5F 1D 99 22 20 20 59 |RE .."..(_.." Y|
00001600: 4F 55 20 54 48 45 4E 20 CD 4F 44 49 46 59 20 54 |OU THEN .ODIFY T|
00001610: 48 45 20 C4 49 52 45 43 54 4F 52 59 22 00 19 29 |HE .IRECTORY"..)|
00001620: 60 1D 99 22 20 20 41 53 20 46 4F 4C 4C 4F 57 53 |`.." AS FOLLOWS|
00001630: 3A 22 3A 8D 33 30 30 00 3E 29 74 1D 99 22 93 CD |:":.300.>)t.."..|
00001640: 4F 44 49 46 59 20 54 48 45 20 42 4C 4F 43 4B 20 |ODIFY THE BLOCK |
00001650: 53 4F 20 54 48 41 54 20 54 48 45 22 00 51 29 79 |SO THAT THE".Q)y|
00001660: 1D 99 22 12 4D 41 47 49 43 20 42 59 54 45 22 00 |..".MAGIC BYTE".|
00001670: 7E 29 7E 1D 99 22 20 20 57 48 49 43 48 20 4F 43 |~)~.." WHICH OC|
00001680: 43 55 52 53 20 4A 55 53 54 20 12 33 92 20 50 4C |CURS JUST .3. PL|
00001690: 41 43 45 53 20 42 45 46 4F 52 45 22 00 9F 29 88 |ACES BEFORE"..).|
000016A0: 1D 99 22 20 20 54 48 45 20 4E 41 4D 45 20 49 53 |.." THE NAME IS|
000016B0: 20 41 53 20 46 4F 4C 4C 4F 57 53 3A 22 00 B5 29 | AS FOLLOWS:"..)|
000016C0: 92 1D 99 22 20 20 31 32 39 3D D3 C5 D1 20 46 49 |..." 129=... FI|
000016D0: 4C 45 22 00 CC 29 93 1D 99 22 20 20 31 33 30 3D |LE"..)..." 130=|
000016E0: D0 D2 CF C7 20 46 49 4C 45 22 00 E2 29 94 1D 99 |.... FILE"..)...|
000016F0: 22 20 20 31 33 31 3D D5 D3 D2 20 46 49 4C 45 22 |" 131=... FILE"|
00001700: 00 F8 29 95 1D 99 22 20 20 31 33 32 3D D2 C5 CC |..)..." 132=...|
00001710: 20 46 49 4C 45 22 00 27 2A 9C 1D 99 22 11 C5 58 | FILE".'*..."..X|
00001720: 41 4D 50 4C 45 3A 54 4F 20 55 4E 53 43 52 41 54 |AMPLE:TO UNSCRAT|
00001730: 43 48 20 41 20 D0 D2 CF C7 20 46 49 4C 45 20 27 |CH A .... FILE '|
00001740: C1 C2 DA 27 22 00 53 2A A6 1D 99 22 46 49 4E 44 |...'".S*..."FIND|
00001750: 20 49 54 27 53 20 4E 41 4D 45 20 4F 4E 20 54 48 | IT'S NAME ON TH|
00001760: 45 20 C4 C9 D2 C5 C3 D4 CF D2 D9 2C 20 41 4E 44 |E ........., AND|
00001770: 22 00 79 2A B0 1D 99 22 53 45 4C 45 43 54 20 CD |".y*..."SELECT .|
00001780: C5 CE D5 20 49 54 45 4D 3D CD 4F 44 49 46 59 20 |... ITEM=.ODIFY |
00001790: C2 4C 4F 43 4B 2E 22 00 8E 2A BA 1D 99 22 D9 4F |.LOCK."..*...".O|
000017A0: 55 20 57 49 4C 4C 20 53 45 45 3A 22 00 C8 2A C4 |U WILL SEE:"..*.|
000017B0: 1D 99 22 11 2E 2E 20 30 12 20 30 92 20 30 22 56 |.."... 0. 0. 0"V|
000017C0: 43 24 22 12 20 30 22 54 43 24 22 92 20 31 39 12 |C$". 0"TC$". 19.|
000017D0: 20 33 92 20 36 35 12 20 36 36 92 20 39 30 2E 2E | 3. 65. 66. 90..|
000017E0: 2E 2E 45 54 43 22 00 E8 2A CE 1D 99 22 20 20 20 |..ETC"..*..." |
000017F0: 20 20 20 20 20 20 5E 20 20 5E 20 5E 20 20 5E 20 | ^ ^ ^ ^ |
00001800: 20 5E 20 20 5E 22 00 08 2B D8 1D 99 22 20 53 48 | ^ ^"..+..." SH|
00001810: 4F 55 4C 44 20 42 45 20 DD D4 52 43 4B DD C1 20 |OULD BE ..RCK.. |
00001820: 20 C2 20 20 DA 22 00 33 2B E2 1D 99 22 20 20 20 | . .".3+..." |
00001830: 20 20 41 20 31 33 30 20 DD 26 D3 45 43 DD C6 49 | A 130 .&.EC..I|
00001840: 4C 45 4E 41 4D 45 28 49 4E 20 C1 D3 C3 C9 C9 29 |LENAME(IN .....)|
00001850: 22 00 44 2B EC 1D 8D 33 30 30 3A 99 22 91 22 53 |".D+...300:."."S|
00001860: 30 24 00 72 2B F6 1D 99 22 11 CD 4F 44 49 46 59 |0$.r+..."..ODIFY|
00001870: 20 54 48 45 20 42 59 54 45 20 57 48 49 43 48 20 | THE BYTE WHICH |
00001880: 49 44 45 4E 54 49 46 49 45 53 20 54 48 45 20 22 |IDENTIFIES THE "|
00001890: 00 99 2B 00 1E 99 22 46 49 4C 45 20 54 59 50 45 |..+..."FILE TYPE|
000018A0: 2E 2E 54 4F 20 31 33 30 2E 2E 53 4F 20 49 54 20 |..TO 130..SO IT |
000018B0: 52 45 41 44 53 3A 22 00 D4 2B 05 1E 99 22 11 2E |READS:"..+..."..|
000018C0: 2E 20 30 12 20 30 92 20 30 22 56 43 24 22 12 31 |. 0. 0. 0"VC$".1|
000018D0: 33 30 22 54 43 24 22 92 20 31 39 12 20 33 92 20 |30"TC$". 19. 3. |
000018E0: 36 35 12 20 36 36 92 20 39 30 2E 2E 2E 2E 45 54 |65. 66. 90....ET|
000018F0: 43 22 00 02 2C 0A 1E 99 22 11 12 34 92 3A D7 52 |C"..,..."..4.:.R|
00001900: 49 54 45 20 54 48 45 20 42 4C 4F 43 4B 20 42 41 |ITE THE BLOCK BA|
00001910: 43 4B 20 54 4F 20 54 48 45 20 44 49 53 4B 2E 22 |CK TO THE DISK."|
00001920: 00 21 2C 14 1E 99 22 11 12 35 92 3A D6 C1 CC C9 |.!,..."..5.:....|
00001930: C4 C1 D4 C5 20 54 48 45 20 44 49 53 4B 2E 22 00 |.... THE DISK.".|
00001940: 33 2C 19 1E 99 22 20 20 B8 B8 B8 B8 B8 B8 B8 B8 |3,..." ........|
00001950: 22 00 4A 2C 1E 1E 99 22 12 35 92 3A D0 52 41 59 |".J,...".5.:.RAY|
00001960: 2E 2E 22 3A 8D 33 31 30 00 73 2C C8 1E 85 22 11 |..":.310.s,...".|
00001970: D7 C1 CE D4 20 D4 CF 20 D4 D2 D9 20 20 20 59 9D |.... .. ... Y.|
00001980: 9D 9D 22 3B 41 24 3A 8B 41 24 B3 B1 22 59 22 A7 |..";A$:.A$.."Y".|
00001990: 8E 00 7E 2C D2 1E 89 31 32 30 30 30 00 A8 2C DC |..~,...12000..,.|
000019A0: 1E A0 31 35 3A 8D 35 38 30 32 30 3A 99 22 93 11 |..15:.58020:."..|
000019B0: 11 11 11 11 42 59 45 11 11 11 22 3A 99 48 44 24 |....BYE...":.HD$|
000019C0: 22 11 11 22 3A 80 00 B9 2C 40 1F 8F 20 49 4E 49 |"..":...,@.. INI|
000019D0: 54 49 41 4C 49 5A 45 00 CA 2C 41 1F 8F 22 B8 B8 |TIALIZE..,A.."..|
000019E0: B8 B8 B8 B8 B8 B8 B8 B8 00 00 2D 42 1F 99 22 93 |..........-B..".|
000019F0: 22 3A 8D 35 38 30 32 30 3A 97 35 33 32 38 31 2C |":.58020:.53281,|
00001A00: 46 31 3A 97 35 33 32 38 30 2C 46 31 3A 86 20 46 |F1:.53280,F1:. F|
00001A10: 33 24 28 31 35 29 2C 46 35 24 28 31 35 29 00 24 |3$(15),F5$(15).$|
00001A20: 2D 43 1F 81 49 B2 30 A4 31 35 3A 87 46 33 24 28 |-C..I.0.15:.F3$(|
00001A30: 49 29 3A 46 35 24 28 49 29 B2 46 33 24 28 49 29 |I):F5$(I).F3$(I)|
00001A40: 3A 82 00 49 2D 44 1F 83 22 90 22 2C 22 05 22 2C |:..I-D..".",".",|
00001A50: 22 1C 22 2C 22 9F 22 2C 22 9C 22 2C 22 1E 22 2C |".",".",".",".",|
00001A60: 22 1F 22 2C 22 9E 22 00 6E 2D 45 1F 83 22 81 22 |".",".".n-E.."."|
00001A70: 2C 22 95 22 2C 22 96 22 2C 22 97 22 2C 22 98 22 |,".",".",".","."|
00001A80: 2C 22 99 22 2C 22 9A 22 2C 22 9B 22 00 8F 2D 46 |,".",".","."..-F|
00001A90: 1F 54 43 24 B2 46 33 24 28 46 33 29 3A 99 54 43 |.TC$.F3$(F3):.TC|
00001AA0: 24 3A 56 43 24 B2 46 35 24 28 46 35 29 00 B5 2D |$:VC$.F5$(F5)..-|
00001AB0: 47 1F 86 43 28 32 35 35 29 2C 54 28 31 32 30 29 |G..C(255),T(120)|
00001AC0: 2C 53 28 31 32 30 29 2C 53 43 20 50 52 4F 47 52 |,S(120),SC PROGR|
00001AD0: 41 4D 20 4F 4E 20 44 49 53 4B 20 54 48 41 54 20 |AM ON DISK THAT |
00001AE0: 59 4F 55 20 20 20 3A 00 3C 0C D4 00 8F 12 3A 20 |YOU :.<.....: |
00001AF0: 20 20 43 41 52 45 20 54 4F 20 43 48 45 43 4B 2E | CARE TO CHECK.|
00001B00: 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 00 63 | :.c|
00001B10: 0C D5 00 8F 12 3A 20 20 20 20 20 20 20 20 20 20 |.....: |
00001B20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001B30: 20 20 20 20 3A 00 8A 0C D6 00 8F 12 3A 20 20 20 | :.......: |
00001B40: 49 4E 46 4F 52 4D 41 54 49 4F 4E 3A 20 20 20 20 |INFORMATION: |
00001B50: 20 20 20 20 20 20 20 20 20 20 20 3A 00 B1 0C D7 | :....|
00001B60: 00 8F 12 3A 20 20 20 20 20 20 20 20 20 20 20 20 |...: |
00001B70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001B80: 20 20 3A 00 D8 0C D8 00 8F 12 3A 20 20 20 20 20 | :.......: |
00001B90: 4C 4F 41 44 20 46 52 4F 4D 3A 20 24 48 48 48 48 |LOAD FROM: $HHHH|
00001BA0: 20 20 44 44 44 44 44 20 20 3A 00 FF 0C D9 00 8F | DDDDD :......|
00001BB0: 12 3A 20 20 20 20 20 20 20 20 20 20 20 20 54 4F |.: TO|
00001BC0: 3A 20 24 48 48 48 48 20 20 44 44 44 44 44 20 20 |: $HHHH DDDDD |
00001BD0: 3A 00 26 0D DA 00 8F 12 3A 20 20 20 20 20 20 20 |:.&.....: |
00001BE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001BF0: 20 20 20 20 20 20 20 3A 00 4D 0D DB 00 8F 12 3A | :.M.....:|
00001C00: 20 20 20 20 20 4E 55 4D 42 45 52 20 4F 46 20 42 | NUMBER OF B|
00001C10: 59 54 45 53 3A 20 44 44 44 44 44 20 20 20 3A 00 |YTES: DDDDD :.|
00001C20: 74 0D DC 00 8F 12 3A 20 20 20 20 20 20 20 20 20 |t.....: |
00001C30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001C40: 20 20 20 20 20 3A 00 9B 0D DD 00 8F 12 3A 20 20 | :.......: |
00001C50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001C60: 20 20 20 20 20 20 20 20 20 20 20 20 3A 00 C2 0D | :...|
00001C70: DE 00 8F 12 3A 20 20 20 20 20 20 20 20 20 20 20 |....: |
00001C80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001C90: 20 20 20 3A 00 00 00 | :... |
.."...DESTINATION TRACK,SECTOR. ";T","
S.G.M.."..DESTINATION TRACK,SECTOR...";T
,S:.(T.1).(T.TT).3180.K.V.."....DESTINAT
ION DRIVE. ";DR...W.."..DESTINATION DR
IVE...";DR$:DR.E(DR$):.DR$.."0".DR$.."1"
.3190.C... 3: 15:.15,8,15.Y....3,8,3,"#"
:.63900......#3,BN$:BN.F(BN$):."."SD$"..
..FILLING BUFFER#"BN......I.0.255.9....1
5,"B-P",3,I:.3,G(C(I));.I....". ..."I.
O.....F.P..15,"U2:";3;DR;T;S...Z..15,"I"
.DR$:.63900: 3: 15......".":.... .. STOR
E C(I) IN RAM......"..................O.
...".";:.2000......".STARTING VALUE OF I
. ....";I1.#....".STARTING MEMORY LOC'
N.($=HEX) $7000".S.C.."..STARTING MEMOR
Y LOC'N.($=HEX)";M$:.9000.S.H..K1.I1.255
:.M.I1.K1,C(K1):....R.M.M.I1.256:.".NEXT
. MEM'Y LOC'N="M;:.9500:."."M$......300.
A....".";:. .Y.... WRITE RAM TO DISK.
....."..................&....".MEM'Y LOC
'N OF BLOCK.($=HEX) ....";M$:.9000.H..
.."..START WITH I.= ....";I1.H...."..E
ND WITH I.= ....";I2...D..I.I1.I2:C(I)
.B(M.I):..F.N.."....DESTINATION TRACK,SE
CTOR. ....";T,S:.(T.1).(T.TT).5070...X
.."....DESTINATION DRIVE. ....";DR$:DR
.E(DR$):.DR$.".".5080.G....3,8,3,"#":.#3
,BN$:BN.F(BN$):."."SD$"....FILLING BUFFE
R#"BN.`....I.I1.I2:.". ..."I.~....15,"
B-P";3;I:.3,G(C(I));............15,"U2:"
;3;DR;T;S......15,"I".DR$:.63900: 3: 15.
D.(..".":..N.P.. BAM.X.Z.."......... .B(
I).(Z.P(I)).P(I)..... 15:.58020......"..
..1.:DISPLAY BAM".2...."..2.:CHANGE BAM"
.S....VC$"....RETURN. TO EXIT"TC$.Q....3
10:.".":.IN$.G(13).6095......IN.6100,628
0...J..6030...O. 2: 3:.15,8,15,"I".DR$:.
58010:.63900:..J.T.. DISPLAY BAM......".
................"..WHICH TRACKS":.".....
........(...."..FIRST,LAST TRACK ...."
;TS,TE.X....(TS.1).(TS.TT).(TE.1).(TE.TT
).(TE.TS).6130.W...."..RETURN.. TO STOP"
:.S0$......15,8,15,"I".DR$:.63900......2
,8,2,"$".DR$:.63900.A.$.FF.D1.(TS.1).S3.
V....K.0.FF:.#2,A$:....8..T.TS.TE:.T.51.
.#2,A$,A$,A$,A$...B..6400...L..A$:.A$.."
".T.TT.1.4.V..: 2: 15:.6870:.310:..E.`..
CHANGE BAM.V.J.."...........U.T..".MORE
CHANGES Y...";I$...~..I$.."Y"...A....
DT.67..".SORRY..CAN'T CHANGE BAM FOR THI
S DISK.":.310:.......".TRACK V...";T:.
(T.1).(T.TT).N6280..... 15:.15,8,15.....
2:.2,8,2,"#":.63900......15,"U1:";2;DR;
DI;0.B....15,"B-P";2;T.4.R....VC$".HIT .
RETURN. TO QUIT."TC$:.6400:.6580...D..".
.........CHANGE WHICH SECTOR ..V..."
;S$:.S$."V".6260.Q.N.S.E(S$):.S.0.S..SC(
T).6260...X. 2: 15:.SD$......6620:.6480:
.6580:.:.MD$".OK?.";:.310:.CL$.#....IN$.
"Y"..6730.2....MD$CL$SD$.B....6480:.6340
.U....K.0.S2:.#2,A$.H....A$."".A$.G(0).W
...B(K).F(A$).}.......P.. PRINT TRACK...
Z.."..............D..K.1.S1:Z.B(K)...N..
I.0.7.V.X.X..B(I):.X$(X);:.I......K.....
Z.B(K):.I.0.SC(T).SC(TT).....X..B(I):.X$
(X);:.I:..6. ..".".22)"TRACK."T"..FREE="
B(0).<.....N....H(S1$,SC(T)).U....H(S2$,
SC(T)).23)"# SECTORS="SC(T)...H..SC(T).2
1..H(S3$,SC(T).1):.6610...M..H(S3$,SC(T)
)...R..S0$:..J.... CHANGE SECTOR......".
..................S.8.Z.B(1):SS.S:.6670.
.....S.16.Z.B(2):SS.S.8:.6670.*...Z.B(3)
:SS.S.16.G...NZ.(.Z.P(SS)).(Z..P(SS)).C.
..B(0).B(0).(NZ.Z).(NZ.Z).Z."..S.8.B(1).
NZ:.6720...,..S.16.B(2).NZ:.6720...6.B(3
).NZ...@.....J..15,8,15...T..MD$VC$".ARE
YOU SURE?."TC$;:.310:.IN$;:.IN$.."Y"...
..^.."...CHANGING BAM..";...H..3,8,3,"#"
:.63900./.R..#3,BN$:BN.F(BN$).;....I.0.S
2._....15,"B-P";3;I.T.4:.3,G(B(I));:..W.
...15,"U2:";3;DR;DI;0...B..15,"I".DR$:.6
3900: 3: 15...L...S.V.."................
..........RETURN. TO CONTINUE";:....X..
DISK COMMANDS...Y.."............... Z..5
8010: 15:.".".& [.D$(1)."INITIALIZE".; \
.D$(2)."VALIDATE".T ].D$(3)."CHANGE DRIV
E#.R ^.D$(4)."DISPLAY DIRECTORY".. A..I.
1.4:.".."I".:"D$(I):... B..VC$"....RETUR
N. TO EXIT"TC$.F C..310:.IN$.G(13)...Z D
..IN.1.IN.5.7000..!E..".";:.I.1.IN:.".."
;:.:."....."D$(IN):.T9.1.300:...!G.. IN
.7020,7030,7040,7050.8!H..7000.V!L..15,8
,15,"I".DR$:.63900:..T!V..15,8,15,"V".DR
$:.63900:...!..DR.1.DR:DR$.J(D(DR),2):."
..DRIVE #"DR$.X!..MH$.".DRIVE#".DR$.":**
****************************."..!...261.
.!...8040:..."..."."HD$:."HIT A KEY TO S
TOP."VC$:Z$.G(0).M"...".BLKS NAME
TYPE ( T,S ) "TC$.H"...S0$: 3:
.3,8,3,"$".DR$.."..TY$(0)."DEL":TY$(1)."
SEQ":TY$(2)."PRG":TY$(3)."USR":TY$(4)."R
EL".C"...I.0.253:.#3,A$:..."...P.1.8:.#3
,A$:A.F(A$.G(0)).128:A3$.TY$(.A.(A.0.A.5
)).&#...#3,A$,B$:A.F(A$.Z$):B.F(B$.Z$):K
9.ST.Z#..A$.I(D(A),2):B$.I(D(B),2):A4$."
(".A$.",".B$.")".I#... K9 .7075..#..A2$.
".":.I.1.16:.#3,A$:A2$.A2$.A$:.:A2$.A2$.
"."..#...#3,A$,A$,A$,A$,A$,A$,A$,A$,A$..
#...#3,A$,B$:A.F(A$.G(0)):B.F(B$.G(0)):C
.A.256.B:.C.0.P.10..$..A1$.I(" ".D(C),
3).'$...P.8..#3,A$,A$.N$ .. C . .A1$"
"A2$" "A3$" "A4$.C$...A$:.A$.."".P.1
0.T$...:.P.10.7058..$.. 3:.:.7080:.S0$:.
300:...$... BLOCKS FREE..$...1,8,0,"$".D
R$.":".B$...7085..$..L.X.Y.256:.L;" BLOC
KS FREE"..$.. 1:...%...#1,X$,X$,X$,X$,X$
,X$..%...#1,X$:.X$.."".7086.1%...#1,X$,X
$,X$,Y$.H%..X.C(X$):.X.X.F(X$)._%..Y.C(Y
$):.Y.Y.F(Y$).E%....X%... TRACE BLOCKS..
%..."..............%A.."..STARTING TRACK
,SECTOR. ....";T8,S8..%B..(T8.1).(T8.T
T).(S8.0).(S8.SC(T8)).7105..&F. 3: 15:.1
5,8,15:.3,8,3,"#":.63900:.#3,BN$:BN.F(BN
$).-&G.BN$.J(BN$,2).T&K..:."("T8","S8")_
FIRST BLOCK":N9.1.M&P..15,"B-R";3;DR;T8
;S8.&Z..15,"B-P";3;0..&...#3,Z$:.Z$."".
Z$.G(0)..&..T8.F(Z$):.T8.0.7200.K&...#3,
Z$:.Z$."".Z$.G(0).X&..S8.F(Z$)..&..T8$.J
(D(T8),2):S8$.J(D(S8),2)..'..."("T8$","S
8$")";."'..N9.N9.1:.7120.8' .."_ LAST BL
OCK..".Q'*..N9" BLOCKS.":.300:..A'L.. UN
SCRATCH.Q'M.."...........'V..".WE'LL DO
THE FOLLOWING:"..'W.."..1.:GO THRU' DIRE
CTORY TRACK"DI" UNTIL"..'X.." WE FIND T
HE SCRATCHED FILE NAME."..(Y.."..2.:TRAC
E THE BLOCKS AND COMPARE".9(Z.." THE BL
OCKS OBTAINED WITH THE".Y([.." DIRECTOR
Y BLOCK COUNT."..(\.."..3.:LOOK AT THE B
LOCK AVAILABILTY MAP"..(].." TO SEE IF
ALL THE BLOCKS ARE FREE.".X(^..".>>IF AL
L OF THE ABOVE ARE OK"..(_.." YOU THEN
MODIFY THE DIRECTORY"..)`.." AS FOLLOWS
:":.300.>)T..".MODIFY THE BLOCK SO THAT
THE".Q)Y..".MAGIC BYTE".~)~.." WHICH OC
CURS JUST .3. PLACES BEFORE"..)..." THE
NAME IS AS FOLLOWS:"..)..." 129=SEQ FI
LE".L)..." 130=PROG FILE"..)..." 131=U
SR FILE"..)..." 132=REL FILE".'*...".EX
AMPLE:TO UNSCRATCH A PROG FILE 'ABZ'".S*
..."FIND IT'S NAME ON THE DIRECTORY, AND
".Y*..."SELECT MENU ITEM=MODIFY BLOCK.".
.*..."YOU WILL SEE:".H*D.."... 0. 0. 0"V
C$". 0"TC$". 19. 3. 65. 66. 90....ETC"..
*N.." ^ ^ ^ ^ ^ ^"..+X.." SH
OULD BE .TRCK.A B Z".3+..." A 130
.&SEC.FILENAME(IN ASCII)".D+...300:."."S
0$.R+...".MODIFY THE BYTE WHICH IDENTIFI
ES THE "..+..."FILE TYPE..TO 130..SO IT
READS:".T+..."... 0. 0. 0"VC$".130"TC$".
19. 3. 65. 66. 90....ETC"..,..."..4.:WR
ITE THE BLOCK BACK TO THE DISK.".!,...".
.5.:VALIDATE THE DISK.".3,..." ........
".J,...".5.:PRAY..":.310.S,H..".WANT TO
TRY Y...";A$:.A$.."Y"...~,R..12000..,.
. 15:.58020:."......BYE...":.HD$"..":...
,@.. INITIALIZE.J,A.."............-B..".
":.58020:.53281,F1:.53280,F1:. F3$(15),F
5$(15).$-C..I.0.15:.F3$(I):F5$(I).F3$(I)
:..I-D..".",".",".",".",".",".",".",".".
N-E..".",".",".",".",".",".",".","."..-F
.TC$.F3$(F3):.TC$:VC$.F5$(F5)..-G..C(255
),T(120),S(120),SC PROGRAM ON DISK THAT
YOU :.<.T...: CARE TO CHECK.
:.C.U...:
:...V...: INFORMATION:
:...W...:
:.X.X...: LOAD FROM: $HHHH DDDDD
:...Y...: TO: $HHHH DDDDD
:.&.Z...: :
.M.....: NUMBER OF BYTES: DDDDD :.
T.....: :..
.....: :.B.
....: :...
> CLICK IMAGE PREVIEW FOR FULL MODAL