FILE CREATE

00000000: 01 08 47 08 64 00 9C 3A  97 37 37 30 2C 32 32 36  |..G.d..:.770,226|
00000010: 3A 97 37 37 31 2C 32 35  32 3A 8F 20 46 4F 52 20  |:.771,252:. FOR |
00000020: 44 45 53 43 52 49 50 54  49 4F 4E 20 26 20 53 59  |DESCRIPTION & SY|
00000030: 4D 42 4F 4C 53 20 53 45  45 20 31 30 30 30 30 20  |MBOLS SEE 10000 |
00000040: 4F 4E 57 41 52 44 53 00  56 08 69 00 8D 31 31 30  |ONWARDS.V.i..110|
00000050: 3A 89 31 30 30 30 00 71  08 6E 00 4B 4C B2 31 30  |:.1000.q.n.KL.10|
00000060: 3A 8F 20 4D 41 58 20 4B  45 59 20 4C 45 4E 47 54  |:. MAX KEY LENGT|
00000070: 48 00 94 08 78 00 4E 4D  24 B2 22 45 41 53 59 53  |H...x.NM$."EASYS|
00000080: 54 4F 43 4B 22 3A 8F 20  50 41 43 4B 41 47 45 20  |TOCK":. PACKAGE |
00000090: 4E 41 4D 45 00 B1 08 82  00 4C 4E 24 B2 22 45 53  |NAME.....LN$."ES|
000000A0: 54 22 3A 8F 20 50 52 4F  47 52 41 4D 20 4E 41 4D  |T":. PROGRAM NAM|
000000B0: 45 00 D5 08 8C 00 43 46  24 B2 22 45 53 54 43 46  |E.....CF$."ESTCF|
000000C0: 22 3A 8F 20 43 4F 4E 54  52 4F 4C 20 46 49 4C 45  |":. CONTROL FILE|
000000D0: 20 4E 41 4D 45 00 F7 08  96 00 55 B2 38 3A 8F 20  | NAME.....U.8:. |
000000E0: 44 49 53 4B 20 55 4E 49  54 20 44 45 56 49 43 45  |DISK UNIT DEVICE|
000000F0: 20 4E 55 4D 42 45 52 00  19 09 A0 00 46 49 B2 31  | NUMBER.....FI.1|
00000100: 3A 8F 20 44 41 54 41 20  46 49 4C 45 20 4E 4F 20  |:. DATA FILE NO |
00000110: 28 44 49 53 4B 20 49 44  29 00 1F 09 AA 00 8E 00  |(DISK ID).......|
00000120: 3A 09 E8 03 8D 35 30 30  30 3A 8F 20 49 4E 49 54  |:....5000:. INIT|
00000130: 49 41 4C 49 53 41 54 49  4F 4E 00 54 09 4C 04 8D  |IALISATION.T.L..|
00000140: 38 30 30 30 3A 8F 20 4F  50 45 4E 20 43 48 41 4E  |8000:. OPEN CHAN|
00000150: 4E 45 4C 53 00 6C 09 B0  04 8D 34 30 30 30 3A 8F  |NELS.l....4000:.|
00000160: 20 43 52 45 41 54 45 20  46 49 4C 45 00 87 09 14  | CREATE FILE....|
00000170: 05 8D 37 30 30 30 3A 8F  20 43 4C 4F 53 45 20 43  |..7000:. CLOSE C|
00000180: 48 41 4E 4E 45 4C 53 00  BF 09 78 05 99 22 11 11  |HANNELS...x.."..|
00000190: 22 4E 4D 24 22 20 44 41  54 41 20 46 49 4C 45 22  |"NM$" DATA FILE"|
000001A0: C4 28 46 49 29 3A 99 22  11 53 55 43 43 45 53 53  |.(FI):.".SUCCESS|
000001B0: 46 55 4C 4C 59 20 43 52  45 41 54 45 44 2E 22 00  |FULLY CREATED.".|
000001C0: EF 09 DC 05 99 22 11 11  50 52 45 53 53 20 27 43  |....."..PRESS 'C|
000001D0: 27 20 54 4F 20 43 52 45  41 54 45 20 41 4E 4F 54  |' TO CREATE ANOT|
000001E0: 48 45 52 20 44 41 54 41  20 46 49 4C 45 2C 22 00  |HER DATA FILE,".|
000001F0: 0A 0A E6 05 99 22 11 4F  52 20 27 4C 27 20 54 4F  |.....".OR 'L' TO|
00000200: 20 4C 4F 41 44 20 22 4E  4D 24 00 1E 0A F0 05 A1  | LOAD "NM$......|
00000210: 57 24 3A 8B 57 24 B2 22  22 A7 31 35 32 30 00 38  |W$:.W$."".1520.8|
00000220: 0A FA 05 8B 57 24 B2 22  43 22 A7 46 49 B2 46 49  |....W$."C".FI.FI|
00000230: AA 31 3A 89 31 30 30 30  00 4A 0A 04 06 8B 57 24  |.1:.1000.J....W$|
00000240: B3 B1 22 4C 22 A7 31 35  30 30 00 74 0A 4A 06 99  |.."L".1500.t.J..|
00000250: 22 11 11 50 4C 45 41 53  45 20 52 45 4D 4F 56 45  |"..PLEASE REMOVE|
00000260: 20 44 41 54 41 20 44 49  53 4B 45 54 54 45 2C 20  | DATA DISKETTE, |
00000270: 41 4E 44 22 00 94 0A 54  06 99 22 49 4E 53 45 52  |AND"...T.."INSER|
00000280: 54 20 50 52 4F 47 52 41  4D 20 44 49 53 4B 45 54  |T PROGRAM DISKET|
00000290: 54 45 2E 22 00 B9 0A 5E  06 99 22 11 11 50 52 45  |TE."...^.."..PRE|
000002A0: 53 53 20 53 50 41 43 45  20 42 41 52 20 57 48 45  |SS SPACE BAR WHE|
000002B0: 4E 20 52 45 41 44 59 2E  22 00 CD 0A 68 06 A1 57  |N READY."...h..W|
000002C0: 24 3A 8B 57 24 B2 22 22  A7 31 36 34 30 00 DF 0A  |$:.W$."".1640...|
000002D0: 72 06 8B 57 24 B3 B1 22  20 22 A7 31 36 34 30 00  |r..W$.." ".1640.|
000002E0: F3 0A 7C 06 A0 55 3A 9F  55 2C 55 2C 31 35 2C 22  |..|..U:.U,U,15,"|
000002F0: 49 30 22 00 0E 0B 86 06  9F 33 2C 55 2C 33 2C 22  |I0"......3,U,3,"|
00000300: 30 3A 22 AA 43 46 24 AA  22 2C 53 2C 52 22 00 1B  |0:".CF$.",S,R"..|
00000310: 0B 90 06 8D 32 35 30 30  3A A0 33 00 2E 0B 9A 06  |....2500:.3.....|
00000320: 8B 45 4E B2 30 A7 A0 55  3A 89 31 36 31 30 00 49  |.EN.0..U:.1610.I|
00000330: 0B EA 06 9F 33 2C 55 2C  33 2C 22 30 3A 22 AA 4C  |....3,U,3,"0:".L|
00000340: 4E 24 AA 22 2C 50 2C 52  22 00 59 0B F4 06 8D 32  |N$.",P,R".Y....2|
00000350: 35 30 30 3A A0 33 3A A0  55 00 69 0B FE 06 8B 45  |500:.3:.U.i....E|
00000360: 4E B3 B1 30 A7 31 36 31  30 00 89 0B 02 07 8D 31  |N..0.1610......1|
00000370: 31 30 3A 8F 20 52 45 2D  49 4E 49 54 49 41 4C 49  |10:. RE-INITIALI|
00000380: 53 45 20 56 41 4C 55 45  53 00 96 0B 08 07 93 4C  |SE VALUES......L|
00000390: 4E 24 2C 55 2C 31 00 B7  0B D0 07 8F 20 43 48 45  |N$,U,1...... CHE|
000003A0: 43 4B 20 4C 41 53 54 20  44 49 53 4B 20 43 4F 4D  |CK LAST DISK COM|
000003B0: 4D 41 4E 44 20 4F 4B 00  C9 0B DA 07 8D 32 35 30  |MAND OK......250|
000003C0: 30 3A 8B 45 4E B2 30 A7  8E 00 D3 0B E4 07 89 39  |0:.EN.0........9|
000003D0: 30 30 30 00 EC 0B C4 09  8F 20 52 45 41 44 20 45  |000...... READ E|
000003E0: 52 52 4F 52 20 43 48 41  4E 4E 45 4C 00 02 0C CE  |RROR CHANNEL....|
000003F0: 09 84 55 2C 45 4E 2C 45  4D 24 2C 45 54 2C 45 53  |..U,EN,EM$,ET,ES|
00000400: 3A 8E 00 19 0C B8 0B 8F  20 41 4C 4C 4F 43 41 54  |:....... ALLOCAT|
00000410: 45 20 41 20 42 4C 4F 43  4B 00 2C 0C C2 0B 98 55  |E A BLOCK.,....U|
00000420: 2C 22 42 2D 41 22 3B 44  3B 54 3B 53 00 36 0C CC  |,"B-A";D;T;S.6..|
00000430: 0B 8D 32 35 30 30 00 42  0C D6 0B 8B 45 4E B2 30  |..2500.B....EN.0|
00000440: A7 8E 00 53 0C E0 0B 8B  45 4E B3 B1 36 35 A7 39  |...S....EN..65.9|
00000450: 30 30 30 00 5F 0C EA 0B  8B 45 54 B2 30 A7 8E 00  |000._....ET.0...|
00000460: 73 0C F4 0B 54 B2 45 54  3A 53 B2 45 53 3A 89 33  |s...T.ET:S.ES:.3|
00000470: 30 31 30 00 85 0C A0 0F  8F 20 43 52 45 41 54 45  |010...... CREATE|
00000480: 20 46 49 4C 45 00 C1 0C  04 10 8F 20 41 4C 4C 4F  | FILE...... ALLO|
00000490: 43 41 54 45 20 44 49 52  45 43 54 4F 52 59 20 43  |CATE DIRECTORY C|
000004A0: 4F 4E 54 52 4F 4C 20 42  4C 4F 43 4B 2C 20 43 52  |ONTROL BLOCK, CR|
000004B0: 45 41 54 45 20 43 4F 4E  54 52 4F 4C 20 46 49 4C  |EATE CONTROL FIL|
000004C0: 45 00 D1 0C 0E 10 44 B2  30 3A 54 B2 31 3A 53 B2  |E.....D.0:T.1:S.|
000004D0: 30 00 DB 0C 13 10 8D 33  30 30 30 00 EB 0C 18 10  |0......3000.....|
000004E0: 8B 45 4E B3 B1 30 A7 39  30 30 30 00 FE 0C 22 10  |.EN..0.9000...".|
000004F0: 43 44 B2 44 3A 43 54 B2  54 3A 43 53 B2 53 00 1F  |CD.D:CT.T:CS.S..|
00000500: 0D 4A 10 9F 31 2C 55 2C  33 2C 22 30 3A 22 AA 43  |.J..1,U,3,"0:".C|
00000510: 46 24 AA 22 2C 53 2C 57  22 3A 8D 32 30 30 30 00  |F$.",S,W":.2000.|
00000520: 3E 0D 54 10 98 31 2C C7  28 43 44 29 3B C7 28 43  |>.T..1,.(CD);.(C|
00000530: 54 29 3B C7 28 43 53 29  3A 8D 32 30 30 30 00 4B  |T);.(CS):.2000.K|
00000540: 0D 5E 10 A0 31 3A 8D 32  30 30 30 00 6D 0D 68 10  |.^..1:.2000.m.h.|
00000550: 8F 20 41 4C 4C 4F 43 41  54 45 20 4D 41 53 54 45  |. ALLOCATE MASTE|
00000560: 52 20 49 4E 44 45 58 20  42 4C 4F 43 4B 00 77 0D  |R INDEX BLOCK.w.|
00000570: 72 10 8D 33 30 30 30 00  87 0D 7C 10 8B 45 4E B3  |r..3000...|..EN.|
00000580: B1 30 A7 33 31 30 30 00  9F 0D 86 10 49 44 B2 44  |.0.3100.....ID.D|
00000590: 3A 49 54 B2 54 3A 49 53  B2 53 3A 42 4C B2 31 00  |:IT.T:IS.S:BL.1.|
000005A0: BD 0D 90 10 42 4C 24 B2  C7 28 31 29 AA C7 28 32  |....BL$..(1)..(2|
000005B0: 29 AA C8 28 4C 56 24 2C  4B 4C AA 34 29 00 DB 0D  |)..(LV$,KL.4)...|
000005C0: 9A 10 42 4C 24 B2 42 4C  24 AA C8 28 48 56 24 2C  |..BL$.BL$..(HV$,|
000005D0: 32 35 35 AB C3 28 42 4C  24 29 29 00 F2 0D A4 10  |255..(BL$)).....|
000005E0: 98 55 2C 22 42 2D 50 22  3B 32 3B 31 3A 8D 32 30  |.U,"B-P";2;1:.20|
000005F0: 30 30 00 06 0E AE 10 98  55 AA 38 2C 42 4C 24 3B  |00......U.8,BL$;|
00000600: 3A 8D 32 30 30 30 00 23  0E B8 10 98 55 2C 22 55  |:.2000.#....U,"U|
00000610: 32 22 3B 32 3B 49 44 3B  49 54 3B 49 53 3A 8D 32  |2";2;ID;IT;IS:.2|
00000620: 30 30 30 00 44 0E CC 10  8F 20 41 4C 4C 4F 43 41  |000.D.... ALLOCA|
00000630: 54 45 20 46 52 45 45 20  51 55 45 55 45 20 42 4C  |TE FREE QUEUE BL|
00000640: 4F 43 4B 53 00 4E 0E D6  10 8D 33 30 30 30 00 5E  |OCKS.N....3000.^|
00000650: 0E E0 10 8B 45 4E B3 B1  30 A7 33 31 30 30 00 80  |....EN..0.3100..|
00000660: 0E EA 10 4C 44 B2 44 3A  4C 54 B2 54 3A 4C 53 B2  |...LD.D:LT.T:LS.|
00000670: 53 3A 46 44 B2 44 3A 46  54 B2 54 3A 46 53 B2 53  |S:FD.D:FT.T:FS.S|
00000680: 00 C7 0E EF 10 99 22 93  12 22 3B 4E 4D 24 3B 22  |......"..";NM$;"|
00000690: 20 46 49 4C 45 20 43 52  45 41 54 45 20 50 52 4F  | FILE CREATE PRO|
000006A0: 47 52 41 4D 22 3A 99 22  11 11 11 11 41 4C 4C 4F  |GRAM":."....ALLO|
000006B0: 43 41 54 49 4E 47 20 41  4E 44 20 43 48 41 49 4E  |CATING AND CHAIN|
000006C0: 49 4E 47 20 2D 11 22 00  D1 0E 12 11 8D 33 30 30  |ING -."......300|
000006D0: 30 00 EA 0E 1C 11 8B 45  4E B3 B1 30 A7 54 B2 31  |0......EN..0.T.1|
000006E0: 3A 53 B2 30 3A 89 34 35  30 30 00 01 0F 30 11 98  |:S.0:.4500...0..|
000006F0: 55 2C 22 42 2D 50 22 3B  32 3B 31 3A 8D 32 30 30  |U,"B-P";2;1:.200|
00000700: 30 00 33 0F 3A 11 98 55  AA 38 2C C7 28 28 55 AB  |0.3.:..U.8,.((U.|
00000710: 38 29 AC 32 AA 44 29 3B  C7 28 54 29 3B C7 28 53  |8).2.D);.(T);.(S|
00000720: 29 3B C8 28 4C 56 24 2C  32 35 32 29 3B 3A 8D 32  |);.(LV$,252);:.2|
00000730: 30 30 30 00 50 0F 44 11  98 55 2C 22 55 32 22 3B  |000.P.D..U,"U2";|
00000740: 32 3B 4C 44 3B 4C 54 3B  4C 53 3A 8D 32 30 30 30  |2;LD;LT;LS:.2000|
00000750: 00 6B 0F 4E 11 42 4C B2  42 4C AA 31 3A 4C 44 B2  |.k.N.BL.BL.1:LD.|
00000760: 44 3A 4C 54 B2 54 3A 4C  53 B2 53 00 94 0F 58 11  |D:LT.T:LS.S...X.|
00000770: 99 22 42 4C 4F 43 4B 22  3B C9 28 22 20 20 20 20  |."BLOCK";.("    |
00000780: 22 AA C4 28 42 4C 29 2C  34 29 3B 22 20 54 52 41  |"..(BL),4);" TRA|
00000790: 43 4B 22 3B 00 C9 0F 6C  11 99 C9 28 22 20 20 22  |CK";...l...("  "|
000007A0: AA C4 28 4C 54 29 2C 33  29 3B 22 20 53 45 43 54  |..(LT),3);" SECT|
000007B0: 4F 52 22 3B C9 28 22 20  20 22 AA C4 28 4C 53 29  |OR";.("  "..(LS)|
000007C0: 2C 33 29 3A 99 22 91 22  3B 00 D3 0F 76 11 89 34  |,3):.".";...v..4|
000007D0: 33 37 30 00 EA 0F 94 11  98 55 2C 22 42 2D 50 22  |370......U,"B-P"|
000007E0: 3B 32 3B 31 3A 8D 32 30  30 30 00 0E 10 B2 11 98  |;2;1:.2000......|
000007F0: 55 AA 38 2C C8 28 48 56  24 2C 33 29 3B C8 28 4C  |U.8,.(HV$,3);.(L|
00000800: 56 24 2C 32 35 32 29 3B  3A 8D 32 30 30 30 00 2B  |V$,252);:.2000.+|
00000810: 10 BC 11 98 55 2C 22 55  32 22 3B 32 3B 4C 44 3B  |....U,"U2";2;LD;|
00000820: 4C 54 3B 4C 53 3A 8D 32  30 30 30 00 37 10 C6 11  |LT;LS:.2000.7...|
00000830: 42 4C B2 42 4C AA 31 00  60 10 D0 11 99 22 42 4C  |BL.BL.1.`...."BL|
00000840: 4F 43 4B 22 3B C9 28 22  20 20 20 20 22 AA C4 28  |OCK";.("    "..(|
00000850: 42 4C 29 2C 34 29 3B 22  20 54 52 41 43 4B 22 3B  |BL),4);" TRACK";|
00000860: 00 95 10 E4 11 99 C9 28  22 20 20 22 AA C4 28 4C  |.......("  "..(L|
00000870: 54 29 2C 33 29 3B 22 20  53 45 43 54 4F 52 22 3B  |T),3);" SECTOR";|
00000880: C9 28 22 20 20 22 AA C4  28 4C 53 29 2C 33 29 3A  |.("  "..(LS),3):|
00000890: 99 22 91 22 3B 00 BD 10  EE 11 99 22 11 11 43 4F  |.".";......"..CO|
000008A0: 4D 50 4C 45 54 49 4E 47  20 46 49 4C 45 20 43 52  |MPLETING FILE CR|
000008B0: 45 41 54 49 4F 4E 20 2E  2E 2E 2E 2E 22 00 E2 10  |EATION ....."...|
000008C0: F8 11 8F 20 55 50 44 41  54 45 20 44 49 52 45 43  |... UPDATE DIREC|
000008D0: 54 4F 52 59 20 43 4F 4E  54 52 4F 4C 20 42 4C 4F  |TORY CONTROL BLO|
000008E0: 43 4B 00 F9 10 0C 12 98  55 2C 22 42 2D 50 22 3B  |CK......U,"B-P";|
000008F0: 32 3B 31 3A 8D 32 30 30  30 00 17 11 16 12 42 4C  |2;1:.2000.....BL|
00000900: 24 B2 C7 28 31 32 38 AA  49 44 29 AA C7 28 49 54  |$..(128.ID)..(IT|
00000910: 29 AA C7 28 49 53 29 00  35 11 20 12 42 4C 24 B2  |)..(IS).5. .BL$.|
00000920: 42 4C 24 AA C7 28 46 44  29 AA C7 28 46 54 29 AA  |BL$..(FD)..(FT).|
00000930: C7 28 46 53 29 00 53 11  2A 12 42 4C 24 B2 42 4C  |.(FS).S.*.BL$.BL|
00000940: 24 AA C7 28 4C 44 29 AA  C7 28 4C 54 29 AA C7 28  |$..(LD)..(LT)..(|
00000950: 4C 53 29 00 8C 11 34 12  42 4C 24 B2 42 4C 24 AA  |LS)...4.BL$.BL$.|
00000960: C7 28 28 42 4C AB 31 29  AB B5 28 28 42 4C AB 31  |.((BL.1)..((BL.1|
00000970: 29 AD 32 35 36 29 AC 32  35 36 29 AA C7 28 B5 28  |).256).256)..(.(|
00000980: 28 42 4C AB 31 29 AD 32  35 36 29 29 00 AB 11 3E  |(BL.1).256))...>|
00000990: 12 42 4C 24 B2 42 4C 24  AA C8 28 4C 56 24 2C 38  |.BL$.BL$..(LV$,8|
000009A0: 29 AA C7 28 31 29 AA C7  28 30 29 00 D8 11 48 12  |)..(1)..(0)...H.|
000009B0: 42 4C 24 B2 42 4C 24 AA  C7 28 42 4C AB B5 28 42  |BL$.BL$..(BL..(B|
000009C0: 4C AD 32 35 36 29 AC 32  35 36 29 AA C7 28 B5 28  |L.256).256)..(.(|
000009D0: 42 4C AD 32 35 36 29 29  00 03 12 52 12 42 4C 24  |BL.256))...R.BL$|
000009E0: B2 42 4C 24 AA C7 28 31  29 AA C7 28 4B 4C AA 34  |.BL$..(1)..(KL.4|
000009F0: 29 AA C7 28 4E 45 29 AA  C7 28 42 53 29 AA C7 28  |)..(NE)..(BS)..(|
00000A00: 4F 50 29 00 21 12 5C 12  42 4C 24 B2 42 4C 24 AA  |OP).!.\.BL$.BL$.|
00000A10: C8 28 4C 56 24 2C 32 35  35 AB C3 28 42 4C 24 29  |.(LV$,255..(BL$)|
00000A20: 29 00 35 12 66 12 98 55  AA 38 2C 42 4C 24 3B 3A  |).5.f..U.8,BL$;:|
00000A30: 8D 32 30 30 30 00 52 12  70 12 98 55 2C 22 55 32  |.2000.R.p..U,"U2|
00000A40: 22 3B 32 3B 43 44 3B 43  54 3B 43 53 3A 8D 32 30  |";2;CD;CT;CS:.20|
00000A50: 30 30 00 58 12 24 13 8E  00 7D 12 88 13 99 22 93  |00.X.$...}....".|
00000A60: 12 22 3B 4E 4D 24 3B 22  20 46 49 4C 45 20 43 52  |.";NM$;" FILE CR|
00000A70: 45 41 54 45 20 50 52 4F  47 52 41 4D 22 00 AA 12  |EATE PROGRAM"...|
00000A80: 92 13 99 22 11 11 50 4C  45 41 53 45 20 52 45 4D  |..."..PLEASE REM|
00000A90: 4F 56 45 20 43 55 52 52  45 4E 54 20 44 49 53 4B  |OVE CURRENT DISK|
00000AA0: 45 54 54 45 2C 20 41 4E  44 22 00 DC 12 9C 13 99  |ETTE, AND"......|
00000AB0: 22 11 49 4E 53 45 52 54  20 4E 45 57 20 44 49 53  |".INSERT NEW DIS|
00000AC0: 4B 45 54 54 45 20 46 4F  52 20 44 41 54 41 20 46  |KETTE FOR DATA F|
00000AD0: 49 4C 45 22 C4 28 46 49  29 22 2E 22 00 01 13 A6  |ILE".(FI)"."....|
00000AE0: 13 99 22 11 11 50 52 45  53 53 20 53 50 41 43 45  |.."..PRESS SPACE|
00000AF0: 20 42 41 52 20 57 48 45  4E 20 52 45 41 44 59 2E  | BAR WHEN READY.|
00000B00: 22 00 15 13 B0 13 A1 57  24 3A 8B 57 24 B2 22 22  |"......W$:.W$.""|
00000B10: A7 35 30 34 30 00 27 13  BA 13 8B 57 24 B3 B1 22  |.5040.'....W$.."|
00000B20: 20 22 A7 35 30 34 30 00  3B 13 C4 13 A0 55 3A 9F  | ".5040.;....U:.|
00000B30: 55 2C 55 2C 31 35 2C 22  49 30 22 00 5A 13 CE 13  |U,U,15,"I0".Z...|
00000B40: 9F 33 2C 55 2C 33 2C 22  30 3A 46 49 4C 45 20 43  |.3,U,3,"0:FILE C|
00000B50: 52 45 41 54 45 2C 50 2C  52 22 00 6A 13 D8 13 8D  |REATE,P,R".j....|
00000B60: 32 35 30 30 3A A0 33 3A  A0 55 00 79 13 E2 13 8B  |2500:.3:.U.y....|
00000B70: 45 4E B2 30 A7 35 30 30  30 00 AF 13 EC 13 99 22  |EN.0.5000......"|
00000B80: 11 11 46 4F 52 4D 41 54  54 49 4E 47 20 44 49 53  |..FORMATTING DIS|
00000B90: 4B 45 54 54 45 20 46 4F  52 20 44 41 54 41 20 46  |KETTE FOR DATA F|
00000BA0: 49 4C 45 22 C4 28 46 49  29 22 20 2E 2E 2E 22 00  |ILE".(FI)" ...".|
00000BB0: EB 13 F6 13 9F 55 2C 55  2C 31 35 2C 22 4E 30 3A  |.....U,U,15,"N0:|
00000BC0: 44 41 54 41 22 AA C4 28  46 49 29 AA 22 20 22 AA  |DATA"..(FI)." ".|
00000BD0: 4E 4D 24 AA 22 2C 22 AA  C9 28 22 30 22 AA CA 28  |NM$.","..("0"..(|
00000BE0: C4 28 46 49 29 2C 32 29  2C 32 29 00 03 14 00 14  |.(FI),2),2).....|
00000BF0: 8D 32 35 30 30 3A A0 55  3A 8B 45 4E B2 30 A7 35  |.2500:.U:.EN.0.5|
00000C00: 31 39 30 00 2A 14 0A 14  99 22 11 11 12 44 49 53  |190.*...."...DIS|
00000C10: 4B 45 54 54 45 20 46 4F  52 4D 41 54 54 49 4E 47  |KETTE FORMATTING|
00000C20: 20 46 41 49 4C 45 44 20  2D 22 00 3F 14 14 14 99  | FAILED -".?....|
00000C30: 22 11 22 45 4E 3B 45 4D  24 3B 45 54 3B 45 53 00  |"."EN;EM$;ET;ES.|
00000C40: 71 14 1E 14 99 22 11 11  12 54 52 59 20 41 47 41  |q...."...TRY AGA|
00000C50: 49 4E 20 57 49 54 48 20  41 4E 4F 54 48 45 52 20  |IN WITH ANOTHER |
00000C60: 44 49 53 4B 45 54 54 45  2E 11 22 3A 89 35 30 32  |DISKETTE..":.502|
00000C70: 30 00 98 14 46 14 99 22  11 11 46 49 4C 45 20 43  |0...F.."..FILE C|
00000C80: 52 45 41 54 49 4F 4E 20  43 4F 4D 4D 45 4E 43 49  |REATION COMMENCI|
00000C90: 4E 47 20 2E 2E 2E 2E 22  00 A1 14 50 14 4F 50 B2  |NG ...."...P.OP.|
00000CA0: 31 00 C1 14 5A 14 4E 45  B2 B5 28 32 35 33 AD 28  |1...Z.NE..(253.(|
00000CB0: 4B 4C AA 34 29 29 3A 42  53 B2 B5 28 4E 45 AD 32  |KL.4)):BS..(NE.2|
00000CC0: 29 00 F7 14 64 14 4C 56  24 B2 C7 28 30 29 3A 81  |)...d.LV$..(0):.|
00000CD0: 57 4B B2 31 A4 37 3A 4C  56 24 B2 4C 56 24 AA 4C  |WK.1.7:LV$.LV$.L|
00000CE0: 56 24 3A 82 3A 4C 56 24  B2 4C 56 24 AA C8 28 4C  |V$:.:LV$.LV$..(L|
00000CF0: 56 24 2C 31 32 37 29 00  2F 15 6E 14 48 56 24 B2  |V$,127)./.n.HV$.|
00000D00: C7 28 32 35 35 29 3A 81  57 4B B2 31 A4 37 3A 48  |.(255):.WK.1.7:H|
00000D10: 56 24 B2 48 56 24 AA 48  56 24 3A 82 3A 48 56 24  |V$.HV$.HV$:.:HV$|
00000D20: B2 48 56 24 AA C8 28 48  56 24 2C 31 32 37 29 00  |.HV$..(HV$,127).|
00000D30: 35 15 78 14 8E 00 5B 15  58 1B 8F 20 43 4C 4F 53  |5.x...[.X.. CLOS|
00000D40: 45 20 45 52 52 4F 52 20  41 4E 44 20 44 49 52 45  |E ERROR AND DIRE|
00000D50: 43 54 20 43 48 41 4E 4E  45 4C 53 00 64 15 62 1B  |CT CHANNELS.d.b.|
00000D60: A0 55 AA 38 00 6B 15 6C  1B A0 55 00 71 15 76 1B  |.U.8.k.l..U.q.v.|
00000D70: 8E 00 96 15 40 1F 8F 20  4F 50 45 4E 20 45 52 52  |....@.. OPEN ERR|
00000D80: 4F 52 20 41 4E 44 20 44  49 52 45 43 54 20 43 48  |OR AND DIRECT CH|
00000D90: 41 4E 4E 45 4C 53 00 AD  15 4A 1F 9F 55 2C 55 2C  |ANNELS...J..U,U,|
00000DA0: 31 35 2C 22 49 30 22 3A  8D 32 30 30 30 00 C4 15  |15,"I0":.2000...|
00000DB0: 54 1F 9F 55 AA 38 2C 55  2C 32 2C 22 23 22 3A 8D  |T..U.8,U,2,"#":.|
00000DC0: 32 30 30 30 00 CA 15 5E  1F 8E 00 EB 15 28 23 8F  |2000...^.....(#.|
00000DD0: 20 42 41 44 20 45 52 52  4F 52 20 4E 55 4D 42 45  | BAD ERROR NUMBE|
00000DE0: 52 20 46 52 4F 4D 20 44  49 53 4B 00 19 16 32 23  |R FROM DISK...2#|
00000DF0: 99 22 11 11 12 52 55 4E  20 54 45 52 4D 49 4E 41  |."...RUN TERMINA|
00000E00: 54 45 44 20 44 55 45 20  54 4F 20 44 49 53 4B 20  |TED DUE TO DISK |
00000E10: 45 52 52 4F 52 20 2D 92  22 00 29 16 3C 23 99 22  |ERROR -.".).<#."|
00000E20: 11 22 3B 45 4E 3B 45 4D  24 00 55 16 46 23 99 22  |.";EN;EM$.U.F#."|
00000E30: 11 55 4E 49 54 22 3B 55  3B 22 44 52 49 56 45 22  |.UNIT";U;"DRIVE"|
00000E40: 3B 44 3B 22 54 52 4B 22  3B 45 54 3B 22 53 45 43  |;D;"TRK";ET;"SEC|
00000E50: 54 22 3B 45 53 00 5F 16  50 23 8D 37 30 30 30 00  |T";ES._.P#.7000.|
00000E60: 69 16 5A 23 89 35 31 35  30 00 96 16 8C 23 99 22  |i.Z#.5150....#."|
00000E70: 11 12 43 4F 4E 54 52 4F  4C 20 46 49 4C 45 20 43  |..CONTROL FILE C|
00000E80: 52 45 41 54 45 20 45 52  52 4F 52 92 22 3A A0 32  |REATE ERROR.":.2|
00000E90: 3A 89 39 30 30 30 00 B7  16 10 27 8F 20 52 4F 55  |:.9000....'. ROU|
00000EA0: 54 49 4E 45 20 54 4F 20  43 52 45 41 54 45 20 41  |TINE TO CREATE A|
00000EB0: 20 44 49 52 45 43 54 00  D7 16 1A 27 8F 20 46 49  | DIRECT....'. FI|
00000EC0: 4C 45 2C 20 44 49 52 45  43 54 20 41 43 43 45 53  |LE, DIRECT ACCES|
00000ED0: 53 20 49 4E 44 45 58 00  FB 16 24 27 8F 20 41 4E  |S INDEX...$'. AN|
00000EE0: 44 20 41 20 53 45 51 55  45 4E 54 49 41 4C 20 43  |D A SEQUENTIAL C|
00000EF0: 4F 4E 54 52 4F 4C 20 46  49 4C 45 00 20 17 2E 27  |ONTROL FILE. ..'|
00000F00: 8F 20 46 4F 52 20 41 4E  20 41 4E 41 47 52 41 4D  |. FOR AN ANAGRAM|
00000F10: 20 53 59 53 54 45 4D 53  20 50 41 43 4B 41 47 45  | SYSTEMS PACKAGE|
00000F20: 00 3B 17 38 27 8F 20 4F  50 20 3D 20 4F 50 54 49  |.;.8'. OP = OPTI|
00000F30: 4F 4E 20 53 45 4C 45 43  54 45 44 00 5B 17 42 27  |ON SELECTED.[.B'|
00000F40: 8F 20 55 20 3D 20 57 4F  52 4B 20 55 4E 49 54 20  |. U = WORK UNIT |
00000F50: 4E 55 4D 42 45 52 20 38  2D 31 35 00 73 17 4C 27  |NUMBER 8-15.s.L'|
00000F60: 8F 20 44 20 3D 20 57 4F  52 4B 20 44 52 49 56 45  |. D = WORK DRIVE|
00000F70: 20 4E 4F 00 8B 17 56 27  8F 20 54 20 3D 20 57 4F  | NO...V'. T = WO|
00000F80: 52 4B 20 54 52 41 43 4B  20 4E 4F 00 A4 17 60 27  |RK TRACK NO...`'|
00000F90: 8F 20 53 20 3D 20 57 4F  52 4B 20 53 45 43 54 4F  |. S = WORK SECTO|
00000FA0: 52 20 4E 4F 00 CE 17 74  27 8F 20 4E 45 20 3D 20  |R NO...t'. NE = |
00000FB0: 4E 4F 20 4F 46 20 45 4E  54 52 49 45 53 20 49 4E  |NO OF ENTRIES IN|
00000FC0: 20 44 49 52 45 43 54 4F  52 59 20 42 4C 4B 00 EC  | DIRECTORY BLK..|
00000FD0: 17 7E 27 8F 20 4B 4C 20  3D 20 4D 41 58 49 4D 55  |.~'. KL = MAXIMU|
00000FE0: 4D 20 4B 45 59 20 4C 45  4E 47 54 48 00 1C 18 88  |M KEY LENGTH....|
00000FF0: 27 8F 20 43 44 20 3D 20  44 49 52 45 43 54 4F 52  |'. CD = DIRECTOR|
00001000: 59 20 43 4F 4E 54 52 4F  4C 20 42 4C 4F 43 4B 20  |Y CONTROL BLOCK |
00001010: 44 52 49 56 45 20 4E 55  4D 42 45 52 00 4C 18 92  |DRIVE NUMBER.L..|
00001020: 27 8F 20 43 54 20 3D 20  44 49 52 45 43 54 4F 52  |'. CT = DIRECTOR|
00001030: 59 20 43 4F 4E 54 52 4F  4C 20 42 4C 4F 43 4B 20  |Y CONTROL BLOCK |
00001040: 54 52 41 43 4B 20 4E 55  4D 42 45 52 00 7D 18 9C  |TRACK NUMBER.}..|
00001050: 27 8F 20 43 53 20 3D 20  44 49 52 45 43 54 4F 52  |'. CS = DIRECTOR|
00001060: 59 20 43 4F 4E 54 52 4F  4C 20 42 4C 4F 43 4B 20  |Y CONTROL BLOCK |
00001070: 53 45 43 54 4F 52 20 4E  55 4D 42 45 52 00 9B 18  |SECTOR NUMBER...|
00001080: A6 27 8F 20 45 4E 20 3D  20 45 52 52 4F 52 20 4E  |.'. EN = ERROR N|
00001090: 4F 20 46 52 4F 4D 20 44  49 53 4B 00 BC 18 B0 27  |O FROM DISK....'|
000010A0: 8F 20 45 54 20 3D 20 45  52 52 4F 52 20 54 52 41  |. ET = ERROR TRA|
000010B0: 43 4B 20 46 52 4F 4D 20  44 49 53 4B 00 DE 18 BA  |CK FROM DISK....|
000010C0: 27 8F 20 45 53 20 3D 20  45 52 52 4F 52 20 53 45  |'. ES = ERROR SE|
000010D0: 43 54 4F 52 20 46 52 4F  4D 20 44 49 53 4B 00 03  |CTOR FROM DISK..|
000010E0: 19 C4 27 8F 20 42 53 20  3D 20 42 4C 4F 43 4B 20  |..'. BS = BLOCK |
000010F0: 53 50 4C 49 54 20 4E 4F  20 4F 46 20 45 4E 54 52  |SPLIT NO OF ENTR|
00001100: 49 45 53 00 12 19 D8 27  8F 20 41 20 3D 20 57 4F  |IES....'. A = WO|
00001110: 52 4B 00 3D 19 EC 27 8F  20 49 44 20 3D 20 4D 41  |RK.=..'. ID = MA|
00001120: 53 54 45 52 20 49 4E 44  45 58 20 42 4C 4F 43 4B  |STER INDEX BLOCK|
00001130: 20 44 52 49 56 45 20 4E  55 4D 42 45 52 00 68 19  | DRIVE NUMBER.h.|
00001140: F6 27 8F 20 49 54 20 3D  20 4D 41 53 54 45 52 20  |.'. IT = MASTER |
00001150: 49 4E 44 45 58 20 42 4C  4F 43 4B 20 54 52 41 43  |INDEX BLOCK TRAC|
00001160: 4B 20 4E 55 4D 42 45 52  00 94 19 00 28 8F 20 49  |K NUMBER....(. I|
00001170: 53 20 3D 20 4D 41 53 54  45 52 20 49 4E 44 45 58  |S = MASTER INDEX|
00001180: 20 42 4C 4F 43 4B 20 53  45 43 54 4F 52 20 4E 55  | BLOCK SECTOR NU|
00001190: 4D 42 45 52 00 B6 19 0A  28 8F 20 46 49 20 3D 20  |MBER....(. FI = |
000011A0: 44 41 54 41 20 46 49 4C  45 20 4E 4F 20 28 44 49  |DATA FILE NO (DI|
000011B0: 53 4B 20 49 44 29 00 D5  19 14 28 8F 20 42 4C 20  |SK ID)....(. BL |
000011C0: 3D 20 46 49 4C 45 20 53  49 5A 45 20 49 4E 20 42  |= FILE SIZE IN B|
000011D0: 4C 4F 43 4B 53 00 F8 19  28 28 8F 20 4C 44 20 3D  |LOCKS...((. LD =|
000011E0: 20 4C 41 53 54 20 42 4C  4F 43 4B 20 44 52 49 56  | LAST BLOCK DRIV|
000011F0: 45 20 4E 55 4D 42 45 52  00 1B 1A 32 28 8F 20 4C  |E NUMBER...2(. L|
00001200: 54 20 3D 20 4C 41 53 54  20 42 4C 4F 43 4B 20 54  |T = LAST BLOCK T|
00001210: 52 41 43 4B 20 4E 55 4D  42 45 52 00 3F 1A 3C 28  |RACK NUMBER.?.<(|
00001220: 8F 20 4C 53 20 3D 20 4C  41 53 54 20 42 4C 4F 43  |. LS = LAST BLOC|
00001230: 4B 20 53 45 43 54 4F 52  20 4E 55 4D 42 45 52 00  |K SECTOR NUMBER.|
00001240: 64 1A 46 28 8F 20 46 44  20 3D 20 46 52 45 45 20  |d.F(. FD = FREE |
00001250: 51 55 45 55 45 20 53 54  41 52 54 20 44 52 49 56  |QUEUE START DRIV|
00001260: 45 20 4E 4F 00 89 1A 50  28 8F 20 46 54 20 3D 20  |E NO...P(. FT = |
00001270: 46 52 45 45 20 51 55 45  55 45 20 53 54 41 52 54  |FREE QUEUE START|
00001280: 20 54 52 41 43 4B 20 4E  4F 00 AF 1A 5A 28 8F 20  | TRACK NO...Z(. |
00001290: 46 53 20 3D 20 46 52 45  45 20 51 55 45 55 45 20  |FS = FREE QUEUE |
000012A0: 53 54 41 52 54 20 53 45  43 54 4F 52 20 4E 4F 00  |START SECTOR NO.|
000012B0: BF 1A A0 28 8F 20 57 24  20 3D 20 57 4F 52 4B 00  |...(. W$ = WORK.|
000012C0: E3 1A B4 28 8F 20 45 4D  24 20 3D 20 45 52 52 4F  |...(. EM$ = ERRO|
000012D0: 52 20 4D 45 53 53 41 47  45 20 46 52 4F 4D 20 44  |R MESSAGE FROM D|
000012E0: 49 53 4B 00 20 1B BE 28  8F 20 4C 56 24 20 3D 20  |ISK. ..(. LV$ = |
000012F0: 32 35 35 20 42 59 54 45  53 20 4F 46 20 4C 4F 57  |255 BYTES OF LOW|
00001300: 20 56 41 4C 55 45 53 20  46 4F 52 20 42 4C 4F 43  | VALUES FOR BLOC|
00001310: 4B 20 49 4E 49 54 49 41  4C 49 53 41 54 49 4F 4E  |K INITIALISATION|
00001320: 00 5E 1B C8 28 8F 20 48  56 24 20 3D 20 32 35 35  |.^..(. HV$ = 255|
00001330: 20 42 59 54 45 53 20 4F  46 20 48 49 47 48 20 56  | BYTES OF HIGH V|
00001340: 41 4C 55 45 53 20 46 4F  52 20 42 4C 4F 43 4B 20  |ALUES FOR BLOCK |
00001350: 49 4E 49 54 49 41 4C 49  53 41 54 49 4F 4E 00 79  |INITIALISATION.y|
00001360: 1B D2 28 8F 20 42 4C 24  20 3D 20 32 35 35 20 42  |..(. BL$ = 255 B|
00001370: 59 54 45 20 42 4C 4F 43  4B 00 00 00              |YTE BLOCK...    |

..G.D..:.770,226:.771,252:. FOR DESCRIPT
ION & SYMBOLS SEE 10000 ONWARDS.V.I..110
:.1000.Q.N.KL.10:. MAX KEY LENGTH...X.NM
$."EASYSTOCK":. PACKAGE NAME.....LN$."ES
T":. PROGRAM NAME.U...CF$."ESTCF":. CONT
ROL FILE NAME.....U.8:. DISK UNIT DEVICE
 NUMBER... .FI.1:. DATA FILE NO (DISK ID
).......:....5000:. INITIALISATION.T.L..
8000:. OPEN CHANNELS.L....4000:. CREATE 
FILE......7000:. CLOSE CHANNELS...X.."..
"NM$" DATA FILE"D(FI):.".SUCCESSFULLY CR
EATED."......"..PRESS 'C' TO CREATE ANOT
HER DATA FILE,"......".OR 'L' TO LOAD "N
M$......W$:.W$."".1520.8....W$."C".FI.FI
.1:.1000.J....W$.."L".1500.T.J.."..PLEAS
E REMOVE DATA DISKETTE, AND"...T.."INSER
T PROGRAM DISKETTE."...^.."..PRESS SPACE
 BAR WHEN READY.".M.H..W$:.W$."".1640...
R..W$.." ".1640...|. U:.U,U,15,"I0".....
.3,U,3,"0:".CF$.",S,R"......2500: 3.....
.EN.0. U:.1610.I....3,U,3,"0:".LN$.",P,R
".Y....2500: 3: U.I....EN..0.1610......1
10:. RE-INITIALISE VALUES......LN$,U,1..
.P.. CHECK LAST DISK COMMAND OK.I.Z..250
0:.EN.0...S....9000...D.. READ ERROR CHA
NNEL...N..U,EN,EM$,ET,ES:....... ALLOCAT
E A BLOCK.,.B..U,"B-A";D;T;S.6.L..2500.B
.V..EN.0...S....EN..65.9000._....ET.0...
S...T.ET:S.ES:.3010... .. CREATE FILE.A.
... ALLOCATE DIRECTORY CONTROL BLOCK, CR
EATE CONTROL FILE.Q...D.0:T.1:S.0......3
000......EN..0.9000...".CD.D:CT.T:CS.S..
.J..1,U,3,"0:".CF$.",S,W":.2000.>.T..1,G
(CD);G(CT);G(CS):.2000.K.^. 1:.2000.M.H.
. ALLOCATE MASTER INDEX BLOCK.W.R..3000.
..|..EN..0.3100.....ID.D:IT.T:IS.S:BL.1.
....BL$.G(1).G(2).H(LV$,KL.4).....BL$.BL
$.H(HV$,255.C(BL$))......U,"B-P";2;1:.20
00......U.8,BL$;:.2000.#....U,"U2";2;ID;
IT;IS:.2000.D.L.. ALLOCATE FREE QUEUE BL
OCKS.N.V..3000.^....EN..0.3100.....LD.D:
LT.T:LS.S:FD.D:FT.T:FS.S.G...."..";NM$;"
 FILE CREATE PROGRAM":."....ALLOCATING A
ND CHAINING -.".Q....3000......EN..0.T.1
:S.0:.4500...0..U,"B-P";2;1:.2000.3.:..U
.8,G((U.8).2.D);G(T);G(S);H(LV$,252);:.2
000.P.D..U,"U2";2;LD;LT;LS:.2000.K.N.BL.
BL.1:LD.D:LT.T:LS.S...X.."BLOCK";I("    
".D(BL),4);" TRACK";.I.L..I("  ".D(LT),3
);" SECTOR";I("  ".D(LS),3):.".";.S.V..4
370......U,"B-P";2;1:.2000......U.8,H(HV
$,3);H(LV$,252);:.2000.+....U,"U2";2;LD;
LT;LS:.2000.7.F.BL.BL.1.`.P.."BLOCK";I("
    ".D(BL),4);" TRACK";......I("  ".D(L
T),3);" SECTOR";I("  ".D(LS),3):.".";...
..."..COMPLETING FILE CREATION ....."...
... UPDATE DIRECTORY CONTROL BLOCK......
U,"B-P";2;1:.2000.....BL$.G(128.ID).G(IT
).G(IS).5. .BL$.BL$.G(FD).G(FT).G(FS).S.
*.BL$.BL$.G(LD).G(LT).G(LS)...4.BL$.BL$.
G((BL.1)..((BL.1).256).256).G(.((BL.1).2
56))...>.BL$.BL$.H(LV$,8).G(1).G(0).X.H.
BL$.BL$.G(BL..(BL.256).256).G(.(BL.256))
...R.BL$.BL$.G(1).G(KL.4).G(NE).G(BS).G(
OP).!.\.BL$.BL$.H(LV$,255.C(BL$)).5.F..U
.8,BL$;:.2000.R.P..U,"U2";2;CD;CT;CS:.20
00.X.$...}...."..";NM$;" FILE CREATE PRO
GRAM"......"..PLEASE REMOVE CURRENT DISK
ETTE, AND"......".INSERT NEW DISKETTE FO
R DATA FILE"D(FI)"."......"..PRESS SPACE
 BAR WHEN READY."......W$:.W$."".5040.'.
...W$.." ".5040.;.D. U:.U,U,15,"I0".Z.N.
.3,U,3,"0:FILE CREATE,P,R".J.X..2500: 3:
 U.Y....EN.0.5000......"..FORMATTING DIS
KETTE FOR DATA FILE"D(FI)" ..."......U,U
,15,"N0:DATA".D(FI)." ".NM$.",".I("0".J(
D(FI),2),2)......2500: U:.EN.0.5190.*...
."...DISKETTE FORMATTING FAILED -".?....
"."EN;EM$;ET;ES.Q...."...TRY AGAIN WITH 
ANOTHER DISKETTE..":.5020...F.."..FILE C
REATION COMMENCING ...."...P.OP.1.A.Z.NE
..(253.(KL.4)):BS..(NE.2)...D.LV$.G(0):.
WK.1.7:LV$.LV$.LV$:.:LV$.LV$.H(LV$,127).
/.N.HV$.G(255):.WK.1.7:HV$.HV$.HV$:.:HV$
.HV$.H(HV$,127).5.X...[.X.. CLOSE ERROR 
AND DIRECT CHANNELS.D.B. U.8.K.L. U.Q.V.
....@.. OPEN ERROR AND DIRECT CHANNELS..
.J..U,U,15,"I0":.2000.D.T..U.8,U,2,"#":.
2000.J.^.....(#. BAD ERROR NUMBER FROM D
ISK...2#."...RUN TERMINATED DUE TO DISK 
ERROR -.".).<#.".";EN;EM$.U.F#.".UNIT";U
;"DRIVE";D;"TRK";ET;"SECT";ES._.P#.7000.
I.Z#.5150....#."..CONTROL FILE CREATE ER
ROR.": 2:.9000....'. ROUTINE TO CREATE A
 DIRECT.W..'. FILE, DIRECT ACCESS INDEX.
..$'. AND A SEQUENTIAL CONTROL FILE. ..'
. FOR AN ANAGRAM SYSTEMS PACKAGE.;.8'. O
P = OPTION SELECTED.[.B'. U = WORK UNIT 
NUMBER 8-15.S.L'. D = WORK DRIVE NO...V'
. T = WORK TRACK NO...`'. S = WORK SECTO
R NO.N.T'. NE = NO OF ENTRIES IN DIRECTO
RY BLK...~'. KL = MAXIMUM KEY LENGTH....
'. CD = DIRECTORY CONTROL BLOCK DRIVE NU
MBER.L..'. CT = DIRECTORY CONTROL BLOCK 
TRACK NUMBER.}..'. CS = DIRECTORY CONTRO
L BLOCK SECTOR NUMBER....'. EN = ERROR N
O FROM DISK....'. ET = ERROR TRACK FROM 
DISK....'. ES = ERROR SECTOR FROM DISK..
.D'. BS = BLOCK SPLIT NO OF ENTRIES...X'
. A = WORK.=..'. ID = MASTER INDEX BLOCK
 DRIVE NUMBER.H..'. IT = MASTER INDEX BL
OCK TRACK NUMBER....(. IS = MASTER INDEX
 BLOCK SECTOR NUMBER....(. FI = DATA FIL
E NO (DISK ID).U..(. BL = FILE SIZE IN B
LOCKS...((. LD = LAST BLOCK DRIVE NUMBER
...2(. LT = LAST BLOCK TRACK NUMBER.?.<(
. LS = LAST BLOCK SECTOR NUMBER.D.F(. FD
 = FREE QUEUE START DRIVE NO...P(. FT = 
FREE QUEUE START TRACK NO...Z(. FS = FRE
E QUEUE START SECTOR NO... (. W$ = WORK.
...(. EM$ = ERROR MESSAGE FROM DISK. ..(
. LV$ = 255 BYTES OF LOW VALUES FOR BLOC
K INITIALISATION.^.H(. HV$ = 255 BYTES O
F HIGH VALUES FOR BLOCK INITIALISATION.Y
.R(. BL$ = 255 BYTE BLOCK...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL