00000000: 01 04 2F 04 64 00 8F 20 44 49 53 50 4C 41 59 20 |../.d.. DISPLAY |
00000010: 41 20 42 4C 4F 43 4B 20 41 56 41 49 4C 41 42 49 |A BLOCK AVAILABI|
00000020: 4C 49 54 59 20 4D 41 50 20 2D 20 31 35 34 31 00 |LITY MAP - 1541.|
00000030: 3B 04 6E 00 86 4E 24 28 31 36 29 00 61 04 78 00 |;.n..N$(16).a.x.|
00000040: 96 A5 53 28 49 29 B2 32 AE 28 53 AB B5 28 53 AD |..S(I).2.(S..(S.|
00000050: 38 29 AC 38 29 AF 28 42 28 B5 28 53 AD 38 29 29 |8).8).(B(.(S.8))|
00000060: 29 00 7E 04 82 00 99 22 93 44 49 53 50 4C 41 59 |).~....".DISPLAY|
00000070: 20 41 20 42 41 4D 20 2D 20 31 35 34 31 22 00 9F | A BAM - 1541"..|
00000080: 04 8C 00 99 22 11 49 4E 53 45 52 54 20 44 49 53 |....".INSERT DIS|
00000090: 4B 45 54 54 45 20 49 4E 20 44 52 49 56 45 22 00 |KETTE IN DRIVE".|
000000A0: C2 04 96 00 99 22 11 50 52 45 53 53 20 12 52 45 |.....".PRESS .RE|
000000B0: 54 55 52 4E 92 20 54 4F 20 43 4F 4E 54 49 4E 55 |TURN. TO CONTINU|
000000C0: 45 22 00 D5 04 A0 00 A1 43 24 3A 8B 43 24 B2 22 |E"......C$:.C$."|
000000D0: 22 A7 31 36 30 00 E8 04 AA 00 8B 43 24 B3 B1 C7 |".160......C$...|
000000E0: 28 31 33 29 89 31 36 30 00 F2 04 B4 00 99 22 4F |(13).160......"O|
000000F0: 4B 22 00 FF 04 BE 00 9F 31 35 2C 38 2C 31 35 00 |K"......15,8,15.|
00000100: 0C 05 C8 00 98 31 35 2C 22 49 30 22 00 24 05 D2 |.....15,"I0".$..|
00000110: 00 84 31 35 2C 45 4E 24 2C 45 4D 24 2C 45 54 24 |..15,EN$,EM$,ET$|
00000120: 2C 45 53 24 00 48 05 DC 00 8B 45 4E 24 B2 22 30 |,ES$.H....EN$."0|
00000130: 30 22 B0 45 4E 24 B2 22 32 32 22 B0 45 4E 24 B2 |0".EN$."22".EN$.|
00000140: 22 32 33 22 89 32 36 30 00 67 05 E6 00 99 22 11 |"23".260.g....".|
00000150: 22 45 4E 24 22 2C 20 22 45 4D 24 22 2C 22 45 54 |"EN$", "EM$","ET|
00000160: 24 22 2C 22 45 53 24 00 6F 05 F0 00 A0 31 35 00 |$","ES$.o....15.|
00000170: 75 05 FA 00 80 00 84 05 04 01 9F 32 2C 38 2C 32 |u..........2,8,2|
00000180: 2C 22 23 22 00 9A 05 0E 01 98 31 35 2C 22 55 31 |,"#"......15,"U1|
00000190: 22 3B 32 3B 30 3B 31 38 3B 30 00 B2 05 18 01 84 |";2;0;18;0......|
000001A0: 31 35 2C 45 4E 24 2C 45 4D 24 2C 45 54 24 2C 45 |15,EN$,EM$,ET$,E|
000001B0: 53 24 00 C0 05 22 01 8F 20 47 45 54 20 44 4F 53 |S$...".. GET DOS|
000001C0: 00 D2 05 2C 01 98 31 35 2C 22 42 2D 50 22 3B 32 |...,..15,"B-P";2|
000001D0: 3B 32 00 DD 05 36 01 A1 23 32 2C 42 24 00 F0 05 |;2...6..#2,B$...|
000001E0: 40 01 8B 42 24 B2 22 22 A7 42 24 B2 C7 28 30 29 |@..B$."".B$..(0)|
000001F0: 00 FE 05 4A 01 44 4F 53 B2 C6 28 42 24 29 00 1B |...J.DOS..(B$)..|
00000200: 06 54 01 8B 44 4F 53 B2 36 35 A7 44 4F 53 24 B2 |.T..DOS.65.DOS$.|
00000210: 22 56 32 2E 36 22 3A 89 33 38 30 00 37 06 5E 01 |"V2.6":.380.7.^.|
00000220: 8B 44 4F 53 B2 31 A7 44 4F 53 24 B2 22 56 31 2E |.DOS.1.DOS$."V1.|
00000230: 32 22 3A 89 33 38 30 00 47 06 68 01 44 4F 53 24 |2":.380.G.h.DOS$|
00000240: B2 22 56 3F 2E 3F 22 00 5D 06 72 01 8F 20 47 45 |."V?.?".].r.. GE|
00000250: 54 20 42 4C 4F 43 4B 53 20 46 52 45 45 00 66 06 |T BLOCKS FREE.f.|
00000260: 7C 01 42 46 B2 30 00 6E 06 86 01 42 B2 34 00 7A ||.BF.0.n...B.4.z|
00000270: 06 90 01 81 49 B2 31 A4 33 35 00 90 06 9A 01 8B |....I.1.35......|
00000280: 49 B2 31 38 A7 49 B2 49 AA 31 3A 42 B2 42 AA 34 |I.18.I.I.1:B.B.4|
00000290: 00 A2 06 A4 01 98 31 35 2C 22 42 2D 50 22 3B 32 |......15,"B-P";2|
000002A0: 3B 42 00 AD 06 AE 01 A1 23 32 2C 42 24 00 C0 06 |;B......#2,B$...|
000002B0: B8 01 8B 42 24 B2 22 22 A7 42 24 B2 C7 28 30 29 |...B$."".B$..(0)|
000002C0: 00 CC 06 C2 01 41 B2 C6 28 42 24 29 00 D8 06 CC |.....A..(B$)....|
000002D0: 01 42 46 B2 42 46 AA 41 00 E2 06 D6 01 42 B2 42 |.BF.BF.A.....B.B|
000002E0: AA 34 00 E9 06 E0 01 82 49 00 FD 06 EA 01 8F 20 |.4......I...... |
000002F0: 47 45 54 20 44 49 53 4B 20 4E 41 4D 45 00 11 07 |GET DISK NAME...|
00000300: F4 01 98 31 35 2C 22 42 2D 50 22 3B 32 3B 31 34 |...15,"B-P";2;14|
00000310: 34 00 1D 07 FE 01 81 49 B2 31 A4 31 36 00 27 07 |4......I.1.16.'.|
00000320: 08 02 8D 31 31 34 30 00 36 07 12 02 4E 24 28 49 |...1140.6...N$(I|
00000330: 29 B2 C7 28 41 29 00 3D 07 1C 02 82 49 00 53 07 |)..(A).=....I.S.|
00000340: 26 02 8F 20 47 45 54 20 43 4F 53 4D 45 54 49 43 |&.. GET COSMETIC|
00000350: 20 49 44 00 5E 07 30 02 49 44 24 B2 22 22 00 72 | ID.^.0.ID$."".r|
00000360: 07 3A 02 98 31 35 2C 22 42 2D 50 22 3B 32 3B 31 |.:..15,"B-P";2;1|
00000370: 36 32 00 7D 07 44 02 81 49 B2 31 A4 32 00 87 07 |62.}.D..I.1.2...|
00000380: 4E 02 8D 31 31 34 30 00 98 07 58 02 49 44 24 B2 |N..1140...X.ID$.|
00000390: 49 44 24 AA C7 28 41 29 00 9F 07 62 02 82 49 00 |ID$..(A)...b..I.|
000003A0: D0 07 6C 02 99 22 93 20 20 20 12 54 52 41 43 4B |..l..". .TRACK|
000003B0: 92 20 20 20 20 31 31 31 31 31 31 31 31 31 31 32 |. 11111111112|
000003C0: 32 32 32 32 32 32 32 32 32 33 33 33 33 33 33 22 |222222222333333"|
000003D0: 00 FE 07 76 02 99 22 20 20 20 31 32 33 34 35 36 |...v.." 123456|
000003E0: 37 38 39 30 31 32 33 34 35 36 37 38 39 30 31 32 |7890123456789012|
000003F0: 33 34 35 36 37 38 39 30 31 32 33 34 35 22 00 35 |3456789012345".5|
00000400: 08 80 02 99 22 12 53 92 30 20 20 20 20 20 20 20 |....".S.0 |
00000410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 4E | "N|
00000430: 24 28 31 29 3B 00 6C 08 8A 02 99 22 12 45 92 31 |$(1);.l....".E.1|
00000440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000460: 20 20 20 20 20 22 4E 24 28 32 29 3B 00 A3 08 94 | "N$(2);....|
00000470: 02 99 22 12 43 92 32 20 20 20 20 20 20 20 20 20 |..".C.2 |
00000480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000490: 20 20 20 20 20 20 20 20 20 20 20 20 22 4E 24 28 | "N$(|
000004A0: 33 29 3B 00 DA 08 9E 02 99 22 12 54 92 33 20 20 |3);......".T.3 |
000004B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004D0: 20 20 20 22 4E 24 28 34 29 3B 00 11 09 A8 02 99 | "N$(4);......|
000004E0: 22 12 4F 92 34 20 20 20 20 20 20 20 20 20 20 20 |".O.4 |
000004F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000500: 20 20 20 20 20 20 20 20 20 20 22 4E 24 28 35 29 | "N$(5)|
00000510: 3B 00 48 09 B2 02 99 22 12 52 92 35 20 20 20 20 |;.H....".R.5 |
00000520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000540: 20 22 4E 24 28 36 29 3B 00 7D 09 BC 02 99 22 20 | "N$(6);.}...." |
00000550: 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |6 |
00000560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000570: 20 20 20 20 20 20 22 4E 24 28 37 29 3B 00 B2 09 | "N$(7);...|
00000580: C6 02 99 22 20 37 20 20 20 20 20 20 20 20 20 20 |..." 7 |
00000590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005A0: 20 20 20 20 20 20 20 20 20 20 20 22 4E 24 28 38 | "N$(8|
000005B0: 29 3B 00 E7 09 D0 02 99 22 20 38 20 20 20 20 20 |);......" 8 |
000005C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005E0: 22 4E 24 28 39 29 3B 00 1D 0A DA 02 99 22 20 39 |"N$(9);......" 9|
000005F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000610: 20 20 20 20 20 22 4E 24 28 31 30 29 3B 00 53 0A | "N$(10);.S.|
00000620: E4 02 99 22 31 30 20 20 20 20 20 20 20 20 20 20 |..."10 |
00000630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000640: 20 20 20 20 20 20 20 20 20 20 20 22 4E 24 28 31 | "N$(1|
00000650: 31 29 3B 00 89 0A EE 02 99 22 31 31 20 20 20 20 |1);......"11 |
00000660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000680: 20 22 4E 24 28 31 32 29 3B 00 BF 0A F8 02 99 22 | "N$(12);......"|
00000690: 31 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |12 |
000006A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006B0: 20 20 20 20 20 20 20 22 4E 24 28 31 33 29 3B 00 | "N$(13);.|
000006C0: F5 0A 02 03 99 22 31 33 20 20 20 20 20 20 20 20 |....."13 |
000006D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 4E 24 | "N$|
000006F0: 28 31 34 29 3B 00 2B 0B 0C 03 99 22 31 34 20 20 |(14);.+...."14 |
00000700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000720: 20 20 20 22 4E 24 28 31 35 29 3B 00 61 0B 16 03 | "N$(15);.a...|
00000730: 99 22 31 35 20 20 20 20 20 20 20 20 20 20 20 20 |."15 |
00000740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000750: 20 20 20 20 20 20 20 20 20 22 4E 24 28 31 36 29 | "N$(16)|
00000760: 3B 00 6B 0B 20 03 99 22 31 36 22 00 75 0B 2A 03 |;.k. .."16".u.*.|
00000770: 99 22 31 37 22 00 B2 0B 34 03 99 22 31 38 20 20 |."17"...4.."18 |
00000780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B | ";|
000007A0: 44 4F 53 24 3B 22 20 22 3B C8 28 49 44 24 2C 31 |DOS$;" ";.(ID$,1|
000007B0: 29 3B 00 ED 0B 3E 03 99 22 31 39 20 20 20 20 20 |);...>.."19 |
000007C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007D0: 20 20 20 20 20 12 20 92 4F 52 A6 3D 45 4D 50 54 | . .OR.=EMPT|
000007E0: 59 20 22 3B C9 28 49 44 24 2C 31 29 3B 00 0D 0C |Y ";.(ID$,1);...|
000007F0: 48 03 99 22 32 30 20 20 20 20 20 20 20 20 20 20 |H.."20 |
00000800: 20 20 20 20 20 20 20 20 20 20 20 22 3B 00 33 0C | ";.3.|
00000810: 52 03 42 46 24 B2 C9 28 22 20 20 22 AA C9 28 C4 |R.BF$..(" "..(.|
00000820: 28 42 46 29 2C C3 28 C4 28 42 46 29 29 AB 31 29 |(BF),.(.(BF)).1)|
00000830: 2C 33 29 00 59 0C 5C 03 8B 42 46 B2 31 A7 99 22 |,3).Y.\..BF.1.."|
00000840: 20 22 3B 42 46 24 3B 22 20 42 4C 4F 43 4B 20 46 | ";BF$;" BLOCK F|
00000850: 52 45 45 22 3A 89 38 38 30 00 71 0C 66 03 99 42 |REE":.880.q.f..B|
00000860: 46 24 3B 22 20 42 4C 4F 43 4B 53 20 46 52 45 45 |F$;" BLOCKS FREE|
00000870: 22 00 7C 0C 70 03 41 24 B2 22 2E 22 00 AA 0C 7A |".|.p.A$."."...z|
00000880: 03 43 52 24 B2 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.CR$."..........|
00000890: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000008A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 00 BC 0C 84 03 98 |........."......|
000008B0: 31 35 2C 22 42 2D 50 22 3B 32 3B 34 00 C8 0C 8E |15,"B-P";2;4....|
000008C0: 03 81 54 B2 31 A4 33 35 00 E7 0C 98 03 8B 54 AD |..T.1.35......T.|
000008D0: 32 B3 B1 B5 28 54 AD 32 29 A7 46 24 B2 22 12 20 |2...(T.2).F$.". |
000008E0: 92 22 3A 89 39 34 30 00 F2 0C A2 03 46 24 B2 22 |.":.940.....F$."|
000008F0: A6 22 00 FD 0C AC 03 A1 23 32 2C 42 24 00 08 0D |."......#2,B$...|
00000900: B6 03 81 49 B2 30 A4 32 00 13 0D C0 03 A1 23 32 |...I.0.2......#2|
00000910: 2C 42 24 00 26 0D CA 03 8B 42 24 B2 22 22 A7 42 |,B$.&....B$."".B|
00000920: 24 B2 C7 28 30 29 00 35 0D D4 03 42 28 49 29 B2 |$..(0).5...B(I).|
00000930: C6 28 42 24 29 00 3C 0D DE 03 82 49 00 53 0D E8 |.(B$).<....I.S..|
00000940: 03 99 22 13 11 11 1D 1D 22 3B C8 28 43 52 24 2C |..".....";.(CR$,|
00000950: 54 29 3B 00 74 0D F2 03 4E 53 B2 32 30 AA 32 AC |T);.t...NS.20.2.|
00000960: 28 54 B1 31 37 29 AA 28 54 B1 32 34 29 AA 28 54 |(T.17).(T.24).(T|
00000970: B1 33 30 29 00 80 0D FC 03 81 53 B2 30 A4 4E 53 |.30)......S.0.NS|
00000980: 00 98 0D 06 04 8B A5 53 28 53 29 B2 30 A7 99 41 |.......S(S).0..A|
00000990: 24 3B 3A 89 31 30 35 30 00 A1 0D 10 04 99 46 24 |$;:.1050......F$|
000009A0: 3B 00 AC 0D 1A 04 99 22 11 9D 22 3B 00 B3 0D 24 |;......"..";...$|
000009B0: 04 82 53 00 BA 0D 2E 04 82 54 00 DA 0D 38 04 99 |..S......T...8..|
000009C0: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
000009D0: 11 11 11 11 11 11 11 11 22 3B 00 E1 0D 42 04 A0 |........";...B..|
000009E0: 32 00 F9 0D 4C 04 84 31 35 2C 45 4E 24 2C 45 4D |2...L..15,EN$,EM|
000009F0: 24 2C 45 54 24 2C 45 53 24 00 01 0E 56 04 A0 31 |$,ET$,ES$...V..1|
00000A00: 35 00 07 0E 60 04 80 00 18 0E 6A 04 8F 20 47 45 |5...`.....j.. GE|
00000A10: 54 20 41 20 42 59 54 45 00 23 0E 74 04 A1 23 32 |T A BYTE.#.t..#2|
00000A20: 2C 42 24 00 36 0E 7E 04 8B 42 24 B2 22 22 A7 42 |,B$.6.~..B$."".B|
00000A30: 24 B2 C7 28 30 29 00 42 0E 88 04 41 B2 C6 28 42 |$..(0).B...A..(B|
00000A40: 24 29 00 55 0E 92 04 8B 41 B1 31 32 37 A7 41 B2 |$).U....A.127.A.|
00000A50: 41 AB 31 32 38 00 69 0E 9C 04 8B 41 B3 33 32 B0 |A.128.i....A.32.|
00000A60: 41 B1 39 35 A7 41 B2 36 33 00 78 0E A6 04 8B 41 |A.95.A.63.x....A|
00000A70: B2 33 34 A7 41 B2 36 33 00 7E 0E B0 04 8E 00 00 |.34.A.63.~......|
00000A80: 00 |. |
../.D.. DISPLAY A BLOCK AVAILABILITY MAP
- 1541.;.N..N$(16).A.X...S(I).2.(S..(S.
8).8).(B(.(S.8))).~....".DISPLAY A BAM -
1541"......".INSERT DISKETTE IN DRIVE".
B....".PRESS .RETURN. TO CONTINUE".U. ..
C$:.C$."".160......C$..G(13).160......"O
K"......15,8,15...H..15,"I0".$.R..15,EN$
,EM$,ET$,ES$.H....EN$."00".EN$."22".EN$.
"23".260.G...."."EN$", "EM$","ET$","ES$.
O... 15.U..........2,8,2,"#"......15,"U1
";2;0;18;0......15,EN$,EM$,ET$,ES$..."..
GET DOS.R.,..15,"B-P";2;2...6..#2,B$...
@..B$."".B$.G(0)...J.DOS.F(B$)...T..DOS.
65.DOS$."V2.6":.380.7.^..DOS.1.DOS$."V1.
2":.380.G.H.DOS$."V?.?".].R.. GET BLOCKS
FREE.F.|.BF.0.N...B.4.Z....I.1.35......
I.18.I.I.1:B.B.4......15,"B-P";2;B......
#2,B$......B$."".B$.G(0).L.B.A.F(B$).X.L
.BF.BF.A...V.B.B.4......I...... GET DISK
NAME......15,"B-P";2;144......I.1.16.'.
...1140.6...N$(I).G(A).=....I.S.&.. GET
COSMETIC ID.^.0.ID$."".R.:..15,"B-P";2;1
62.}.D..I.1.2...N..1140...X.ID$.ID$.G(A)
...B..I.P.L..". .TRACK. 11111111112
222222222333333"...V.." 12345678901234
567890123456789012345".5....".S.0
"N$(1);.L.
...".E.1
"N$(2);......".C.2
"N$(3);.Z....".T.3
"N$(4
);......".O.4
"N$(5);.H....".R.5
"N$(6);.}...."
6 "N
$(7);...F.." 7
"N$(8);...P.." 8
"N$(9);...Z.." 9
"N$
(10);.S...."10
"N$(11);......"11
"N$(12);......"
12 "
N$(13);......"13
"N$(14);.+...."14
"N$(15);.A...
."15
"N$(16);.K. .."16".U.*.."17"...4.."18
";DOS$;" "
;H(ID$,1);...>.."19
. .OR.=EMPTY ";I(ID$,1);...H.."20
";.3.R.BF$.I(" ".I(D
(BF),C(D(BF)).1),3).Y.\..BF.1.." ";BF$;"
BLOCK FREE":.880.Q.F..BF$;" BLOCKS FREE
".|.P.A$."."...Z.CR$."..................
................."......15,"B-P";2;4.H..
..T.1.35......T.2...(T.2).F$.". .":.940.
....F$."."......#2,B$......I.0.2......#2
,B$.&.J..B$."".B$.G(0).5.T.B(I).F(B$).<.
...I.S....".....";H(CR$,T);.T...NS.20.2.
(T.17).(T.24).(T.30)......S.0.NS.......S
(S).0..A$;:.1050......F$;......"..";...$
..S......T.Z.8..".......................
";...B. 2...L..15,EN$,EM$,ET$,ES$...V. 1
5...`.....J.. GET A BYTE.#.T..#2,B$.6.~.
.B$."".B$.G(0).B...A.F(B$).U....A.127.A.
A.128.I....A.32.A.95.A.63.X....A.34.A.63
.~.......
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL