REPAIR

00000000: 01 04 24 04 00 00 9C 3A  50 47 24 B2 22 52 45 50  |..$....:PG$."REP|
00000010: 41 49 52 22 3A 4E 4D 24  B2 22 32 35 22 3A 89 36  |AIR":NM$."25":.6|
00000020: 32 30 30 30 00 34 04 01  00 22 20 4B 49 4D 20 4C  |2000.4..." KIM L|
00000030: 41 4E 54 5A 00 4D 04 02  00 22 20 31 35 20 43 4C  |ANTZ.M..." 15 CL|
00000040: 49 46 46 4F 52 44 20 53  54 52 45 45 54 00 73 04  |IFFORD STREET.s.|
00000050: 03 00 22 20 4E 4F 52 54  48 20 53 59 44 4E 45 59  |.." NORTH SYDNEY|
00000060: 2C 20 4E 53 20 43 41 4E  41 44 41 20 42 32 41 20  |, NS CANADA B2A |
00000070: 31 58 32 00 79 04 04 00  22 00 97 04 05 00 22 20  |1X2.y..."....." |
00000080: 43 55 52 53 4F 52 20 23  32 35 2C 20 41 50 52 49  |CURSOR #25, APRI|
00000090: 4C 2C 20 31 39 38 31 00  BD 04 06 00 22 20 43 4F  |L, 1981....." CO|
000000A0: 50 59 52 49 47 48 54 28  43 29 31 39 38 31 20 54  |PYRIGHT(C)1981 T|
000000B0: 48 45 20 43 4F 44 45 20  57 4F 52 4B 53 00 DE 04  |HE CODE WORKS...|
000000C0: 07 00 22 20 42 4F 58 20  35 35 30 2C 20 47 4F 4C  |.." BOX 550, GOL|
000000D0: 45 54 41 2C 20 43 41 2E  20 39 33 31 31 36 00 E4  |ETA, CA. 93116..|
000000E0: 04 08 00 22 00 F7 04 0A  00 22 20 41 53 20 4F 46  |..."....." AS OF|
000000F0: 20 31 4D 41 59 38 31 00  16 05 64 00 46 44 B2 38  | 1MAY81...d.FD.8|
00000100: 3A 44 52 24 B2 22 30 3A  22 3A 8F 20 49 2F 4F 20  |:DR$."0:":. I/O |
00000110: 44 45 56 49 43 45 00 36  05 69 00 54 44 24 B2 22  |DEVICE.6.i.TD$."|
00000120: 54 41 50 45 22 3A 8B 46  44 B2 38 A7 54 44 24 B2  |TAPE":.FD.8.TD$.|
00000130: 22 44 49 53 4B 22 00 4E  05 6E 00 4D 41 58 B2 35  |"DISK".N.n.MAX.5|
00000140: 30 3A 53 56 B2 30 3A 4D  4D B2 31 30 30 30 00 6C  |0:SV.0:MM.1000.l|
00000150: 05 82 00 49 B2 30 3A 41  B2 30 3A 53 44 24 B2 22  |...I.0:A.0:SD$."|
00000160: 13 22 3A 51 55 24 B2 C7  28 33 34 29 00 90 05 8C  |.":QU$..(34)....|
00000170: 00 81 49 B2 31 A4 33 39  3A 42 4C 24 B2 42 4C 24  |..I.1.39:BL$.BL$|
00000180: AA 22 20 22 3A 53 44 24  B2 53 44 24 AA 22 11 22  |." ":SD$.SD$."."|
00000190: 00 A0 05 96 00 82 3A 43  52 24 B2 C7 28 31 33 29  |......:CR$..(13)|
000001A0: 00 C4 05 A0 00 86 20 41  4D 54 24 28 4D 41 58 29  |...... AMT$(MAX)|
000001B0: 2C 54 41 47 28 4D 41 58  29 2C 4E 41 4D 45 24 28  |,TAG(MAX),NAME$(|
000001C0: 4D 41 58 29 00 E5 05 AA  00 86 20 4C 4F 43 24 28  |MAX)...... LOC$(|
000001D0: 4D 41 58 29 2C 54 54 24  28 34 29 2C 4C 28 34 29  |MAX),TT$(4),L(4)|
000001E0: 2C 57 28 34 29 00 FA 05  AF 00 83 22 20 20 20 20  |,W(4)......"    |
000001F0: 20 20 20 20 22 2C 30 20  2C 30 00 0F 06 B4 00 83  |    ",0 ,0......|
00000200: 22 54 41 47 20 23 20 20  20 22 2C 36 20 2C 38 00  |"TAG #   ",6 ,8.|
00000210: 25 06 BE 00 83 22 4E 41  4D 45 20 20 20 20 22 2C  |%...."NAME    ",|
00000220: 38 20 2C 32 30 00 3A 06  C8 00 83 22 41 4D 4F 55  |8 ,20.:...."AMOU|
00000230: 4E 54 20 20 22 2C 31 30  2C 38 00 50 06 D2 00 83  |NT  ",10,8.P....|
00000240: 22 4C 4F 43 41 54 49 4F  4E 22 2C 31 32 2C 32 30  |"LOCATION",12,20|
00000250: 00 56 06 DC 00 8C 00 75  06 E6 00 81 49 B2 30 A4  |.V.....u....I.0.|
00000260: 34 3A 87 54 54 24 28 49  29 2C 4C 28 49 29 2C 57  |4:.TT$(I),L(I),W|
00000270: 28 49 29 3A 82 00 7E 06  F0 00 89 36 34 30 00 84  |(I):..~....640..|
00000280: 06 0E 01 99 00 A3 06 18  01 99 22 50 52 45 53 53  |.........."PRESS|
00000290: 20 12 52 45 54 55 52 4E  92 20 46 4F 52 20 4D 45  | .RETURN. FOR ME|
000002A0: 4E 55 22 00 AE 06 22 01  8D 35 32 30 30 30 00 B8  |NU"..."..52000..|
000002B0: 06 2C 01 89 20 36 35 30  00 D2 06 36 01 41 24 B2  |.,.. 650...6.A$.|
000002C0: CA 28 C4 28 41 31 29 2C  32 29 3A 4C B2 C3 28 41  |.(.(A1),2):L..(A|
000002D0: 24 29 00 EA 06 40 01 8B  4C B2 31 A7 41 24 B2 22  |$)...@..L.1.A$."|
000002E0: 24 30 2E 30 22 AA 41 24  3A 8E 00 01 07 4A 01 8B  |$0.0".A$:....J..|
000002F0: 4C B2 32 A7 41 24 B2 22  24 30 2E 22 AA 41 24 3A  |L.2.A$."$0.".A$:|
00000300: 8E 00 28 07 54 01 41 24  B2 C8 28 41 24 2C 4C AB  |..(.T.A$..(A$,L.|
00000310: 32 29 AA 22 2E 22 AA C9  28 41 24 2C 32 29 3A 41  |2)."."..(A$,2):A|
00000320: 24 B2 22 24 22 AA 41 24  00 2E 07 5E 01 8E 00 54  |$."$".A$...^...T|
00000330: 07 68 01 99 50 52 24 3B  22 3F 20 22 3B 3A 8D 36  |.h..PR$;"? ";:.6|
00000340: 30 30 30 30 3A 8B 49 4E  24 B2 22 22 A7 54 47 B2  |0000:.IN$."".TG.|
00000350: AB 31 3A 8E 00 8A 07 72  01 54 47 B2 C5 28 49 4E  |.1:....r.TG..(IN|
00000360: 24 29 3A 8B 54 47 B3 31  B0 54 47 B1 39 39 39 39  |$):.TG.1.TG.9999|
00000370: 39 39 39 39 A7 99 22 11  49 4C 4C 45 47 41 4C 20  |9999..".ILLEGAL |
00000380: 54 41 47 2E 22 3A 54 47  B2 30 00 90 07 7C 01 8E  |TAG.":TG.0...|..|
00000390: 00 B9 07 86 01 8D 34 34  30 3A 8B 45 4E B2 30 A7  |......440:.EN.0.|
000003A0: 99 22 11 54 41 47 22 3B  54 47 3B 22 49 53 4E 27  |.".TAG";TG;"ISN'|
000003B0: 54 20 54 48 45 52 45 2E  22 00 BF 07 90 01 8E 00  |T THERE.".......|
000003C0: ED 07 9A 01 8D 34 34 30  3A 8B 45 4E B1 30 A7 99  |.....440:.EN.0..|
000003D0: 22 11 54 41 47 22 3B 54  47 3B 22 49 53 20 41 4C  |".TAG";TG;"IS AL|
000003E0: 52 45 41 44 59 20 54 48  45 52 45 2E 22 00 F3 07  |READY THERE."...|
000003F0: A4 01 8E 00 0B 08 B8 01  8B 4D 41 58 B3 31 AF 54  |.........MAX.1.T|
00000400: 47 B3 B1 30 A7 45 4E B2  30 3A 8E 00 27 08 C2 01  |G..0.EN.0:..'...|
00000410: 81 45 4E B2 31 A4 4D 41  58 3A 8B 54 41 47 28 45  |.EN.1.MAX:.TAG(E|
00000420: 4E 29 B2 54 47 A7 8E 00  36 08 CC 01 82 45 4E 3A  |N).TG...6....EN:|
00000430: 45 4E B2 30 3A 8E 00 4D  08 E0 01 99 22 93 22 3B  |EN.0:..M....".";|
00000440: C8 28 53 44 24 2C 4C 28  31 29 AB 31 29 00 6C 08  |.(SD$,L(1).1).l.|
00000450: EA 01 99 54 54 24 28 31  29 22 3A 22 3B CA 28 C4  |...TT$(1)":";.(.|
00000460: 28 54 41 47 28 45 4E 29  29 2C 32 29 00 89 08 FE  |(TAG(EN)),2)....|
00000470: 01 99 22 11 22 3B 54 54  24 28 32 29 22 3A 22 3B  |..".";TT$(2)":";|
00000480: 4E 41 4D 45 24 28 45 4E  29 00 A5 08 08 02 99 22  |NAME$(EN)......"|
00000490: 11 22 3B 54 54 24 28 33  29 22 3A 22 3B 41 4D 54  |.";TT$(3)":";AMT|
000004A0: 24 28 45 4E 29 00 C0 08  1C 02 99 22 11 22 3B 54  |$(EN)......".";T|
000004B0: 54 24 28 34 29 22 3A 22  4C 4F 43 24 28 45 4E 29  |T$(4)":"LOC$(EN)|
000004C0: 00 C6 08 26 02 8E 00 E3  08 30 02 99 C8 28 53 44  |...&.....0...(SD|
000004D0: 24 2C 4C 28 46 49 29 29  54 54 24 28 46 49 29 22  |$,L(FI))TT$(FI)"|
000004E0: 3A 22 3B 00 08 09 3A 02  8B 4F 56 24 B3 B1 22 22  |:";...:..OV$..""|
000004F0: A7 99 22 12 22 4F 56 24  22 92 22 3A 99 54 54 24  |.."."OV$".":.TT$|
00000500: 28 30 29 3B 22 20 22 3B  00 27 09 44 02 4C B2 57  |(0);" ";.'.D.L.W|
00000510: 28 46 49 29 3A 8D 36 30  30 30 30 3A 8B 4F 56 24  |(FI):.60000:.OV$|
00000520: B2 22 22 A7 35 39 30 00  38 09 49 02 99 22 91 22  |."".590.8.I.."."|
00000530: 3B 42 4C 24 3B 22 91 22  00 51 09 4B 02 8B 49 4E  |;BL$;".".Q.K..IN|
00000540: 24 B2 22 22 A7 49 4E 24  B2 4F 56 24 3A 89 36 30  |$."".IN$.OV$:.60|
00000550: 35 00 6D 09 4E 02 41 B2  C5 28 49 4E 24 29 3A 41  |5.m.N.A..(IN$):A|
00000560: 31 B2 B5 28 41 AC 31 30  30 AA 2E 35 29 00 83 09  |1..(A.100..5)...|
00000570: 58 02 8B 46 49 B2 33 A7  8D 33 31 30 3A 49 4E 24  |X..FI.3..310:IN$|
00000580: B2 41 24 00 99 09 5D 02  99 22 91 22 3B 54 54 24  |.A$...]..".";TT$|
00000590: 28 46 49 29 3B 22 3A 22  3B 00 CA 09 62 02 8B 4F  |(FI);":";...b..O|
000005A0: 56 24 B3 B1 22 22 A7 99  C8 28 42 4C 24 2C C3 28  |V$..""...(BL$,.(|
000005B0: 4F 56 24 29 29 3B 22 91  22 3A 99 A3 C3 28 54 54  |OV$));".":...(TT|
000005C0: 24 28 46 49 29 29 AA 31  29 3B 00 E0 09 67 02 99  |$(FI)).1);...g..|
000005D0: C8 28 49 4E 24 AA 42 4C  24 2C 57 28 46 49 29 29  |.(IN$.BL$,W(FI))|
000005E0: 00 E6 09 6C 02 8E 00 EC  09 76 02 3A 00 08 0A 80  |...l.....v.:....|
000005F0: 02 8F 20 57 41 52 4D 20  53 54 41 52 54 20 4F 46  |.. WARM START OF|
00000600: 20 52 45 50 41 49 52 53  00 1E 0A 8A 02 99 22 93  | REPAIRS......".|
00000610: 22 3B 4E 52 3B 22 52 45  43 4F 52 44 53 22 00 4E  |";NR;"RECORDS".N|
00000620: 0A 8F 02 8B B8 28 30 29  B3 4D 4D A7 99 22 91 22  |.....(0).MM.."."|
00000630: 3B A3 31 38 29 3B 22 4F  4E 4C 59 22 3B B8 28 30  |;.18);"ONLY";.(0|
00000640: 29 3B 22 42 59 54 45 53  20 4C 45 46 54 22 00 6C  |);"BYTES LEFT".l|
00000650: 0A 94 02 81 49 B2 31 20  A4 20 31 33 3A 99 22 C0  |....I.1 . 13:.".|
00000660: C0 C0 22 3B 3A 82 20 49  3A 99 3A 99 00 83 0A 99  |..";:. I:.:.....|
00000670: 02 99 22 91 A4 9D 11 12  41 92 44 44 20 44 41 54  |..".....A.DD DAT|
00000680: 41 11 22 00 98 0A 9E 02  99 22 91 A4 9D 11 12 4D  |A."......".....M|
00000690: 92 4F 44 49 46 59 11 22  00 AD 0A A8 02 99 22 91  |.ODIFY."......".|
000006A0: A4 9D 11 12 44 92 45 4C  45 54 45 11 22 00 D4 0A  |....D.ELETE."...|
000006B0: B2 02 99 22 91 A4 9D 11  12 4C 92 49 53 54 20 52  |...".....L.IST R|
000006C0: 45 43 4F 52 44 53 20 28  4F 4E 20 53 43 52 45 45  |ECORDS (ON SCREE|
000006D0: 4E 29 11 22 00 EE 0A BC  02 99 22 91 A4 9D 11 12  |N)."......".....|
000006E0: 4E 92 41 4D 45 20 53 45  41 52 43 48 11 22 00 07  |N.AME SEARCH."..|
000006F0: 0B C6 02 99 22 91 A4 9D  11 12 54 92 41 47 20 53  |....".....T.AG S|
00000700: 45 41 52 43 48 11 22 00  30 0B D0 02 99 22 91 A4  |EARCH.".0...."..|
00000710: 9D 11 12 50 92 52 49 4E  54 20 52 45 43 4F 52 44  |...P.RINT RECORD|
00000720: 53 20 28 4F 4E 20 50 52  49 4E 54 45 52 29 11 22  |S (ON PRINTER)."|
00000730: 00 53 0B DA 02 99 22 91  A4 9D 11 12 52 92 45 41  |.S....".....R.EA|
00000740: 44 20 46 49 4C 45 20 46  52 4F 4D 20 22 54 44 24  |D FILE FROM "TD$|
00000750: 22 11 22 00 75 0B E4 02  99 22 91 A4 9D 11 12 57  |".".u....".....W|
00000760: 92 52 49 54 45 20 46 49  4C 45 20 54 4F 20 22 54  |.RITE FILE TO "T|
00000770: 44 24 22 11 22 00 87 0B  EE 02 99 22 91 A4 9D 11  |D$"."......"....|
00000780: 12 51 92 55 49 54 22 00  8D 0B F8 02 3A 00 AD 0B  |.Q.UIT".....:...|
00000790: 02 03 99 22 11 57 48 41  54 20 44 4F 20 59 4F 55  |...".WHAT DO YOU|
000007A0: 20 57 41 4E 54 20 54 4F  20 44 4F 22 3B 00 BB 0B  | WANT TO DO";...|
000007B0: 0C 03 4C B2 31 3A 8D 33  30 30 30 00 D4 0B 16 03  |..L.1:.3000.....|
000007C0: 4F 43 24 B2 49 4E 24 3A  4F 43 B2 30 3A 81 49 B2  |OC$.IN$:OC.0:.I.|
000007D0: 31 A4 31 30 00 FB 0B 20  03 8B CA 28 22 52 57 41  |1.10... ...("RWA|
000007E0: 4D 44 4E 54 50 4C 51 22  2C 49 2C 31 29 B2 49 4E  |MDNTPLQ",I,1).IN|
000007F0: 24 A7 4F 43 B2 49 3A 49  B2 39 39 00 01 0C 2A 03  |$.OC.I:I.99...*.|
00000800: 82 00 19 0C 34 03 8B 4F  43 B2 30 A7 99 22 9D 9D  |....4..OC.0.."..|
00000810: 9D 22 3B 3A 89 20 37 38  30 00 4B 0C 39 03 8B 4E  |.";:. 780.K.9..N|
00000820: 52 B2 30 AF 4F 43 24 B3  B1 22 52 22 AF 4F 43 24  |R.0.OC$.."R".OC$|
00000830: B3 B1 22 41 22 AF 4F 43  24 B3 B1 22 51 22 A7 99  |.."A".OC$.."Q"..|
00000840: 22 9D 9D 9D 22 3B 3A 89  37 38 30 00 5A 0C 3B 03  |"...";:.780.Z.;.|
00000850: 99 22 93 11 22 3A 46 49  B2 30 00 8E 0C 3D 03 8F  |."..":FI.0...=..|
00000860: 20 20 20 20 20 20 52 20  20 20 57 20 20 20 20 41  |      R   W    A|
00000870: 20 20 20 20 4D 20 20 20  20 44 20 20 20 20 4E 20  |    M    D    N |
00000880: 20 20 20 54 20 20 20 20  50 20 20 20 20 4C 00 C1  |   T    P    L..|
00000890: 0C 3E 03 91 4F 43 89 38  35 30 2C 39 34 30 2C 31  |.>..OC.850,940,1|
000008A0: 30 38 30 2C 31 36 34 30  2C 31 32 35 30 2C 31 33  |080,1640,1250,13|
000008B0: 33 30 2C 31 35 37 30 2C  31 33 32 30 2C 31 33 31  |30,1570,1320,131|
000008C0: 30 00 D5 0C 48 03 8B 53  56 B0 4E 52 B2 30 A7 99  |0...H..SV.NR.0..|
000008D0: 22 93 22 3A 80 00 00 0D  4C 03 99 22 93 11 59 4F  |".":....L.."..YO|
000008E0: 55 20 48 41 56 45 20 4E  4F 54 20 53 41 56 45 44  |U HAVE NOT SAVED|
000008F0: 20 59 4F 55 52 20 46 49  4C 45 20 59 45 54 2E 11  | YOUR FILE YET..|
00000900: 00 26 0D 4D 03 99 22 41  52 45 20 59 4F 55 20 53  |.&.M.."ARE YOU S|
00000910: 55 52 45 20 59 4F 55 20  57 41 4E 54 20 54 4F 20  |URE YOU WANT TO |
00000920: 51 55 49 54 22 3B 00 40  0D 4E 03 8D 33 30 30 30  |QUIT";.@.N..3000|
00000930: 3A 8B 49 4E 24 B2 22 59  22 A7 99 22 93 22 3A 80  |:.IN$."Y"..".":.|
00000940: 00 49 0D 50 03 89 36 34  30 00 7F 0D 52 03 99 22  |.I.P..640...R.."|
00000950: 52 45 41 44 20 46 52 4F  4D 20 57 48 41 54 20 46  |READ FROM WHAT F|
00000960: 49 4C 45 3F 20 22 3B 3A  4C B2 32 30 3A 8D 36 30  |ILE? ";:L.20:.60|
00000970: 30 30 30 3A 8B 49 4E 24  B2 22 22 A7 36 34 30 00  |000:.IN$."".640.|
00000980: 9F 0D 5C 03 46 49 24 B2  49 4E 24 3A 44 52 B2 30  |..\.FI$.IN$:DR.0|
00000990: 3A 8D 35 30 31 30 30 3A  8B 45 52 A7 32 37 30 00  |:.50100:.ER.270.|
000009A0: A9 0D 61 03 84 31 2C 54  24 00 E6 0D 62 03 8B 54  |..a..1,T$...b..T|
000009B0: 24 B3 B1 22 2A 52 45 50  41 49 52 2A 22 A7 8D 35  |$.."*REPAIR*"..5|
000009C0: 30 33 30 30 3A 99 22 11  49 20 44 49 44 4E 27 54  |0300:.".I DIDN'T|
000009D0: 20 57 52 49 54 45 20 54  48 41 54 20 46 49 4C 45  | WRITE THAT FILE|
000009E0: 22 3A 89 32 37 30 00 01  0E 70 03 84 31 2C 54 3A  |":.270...p..1,T:|
000009F0: 8B 54 B3 B2 4D 41 58 A7  4E 52 B2 54 3A 89 38 39  |.T..MAX.NR.T:.89|
00000A00: 30 00 0C 0E 74 03 8D 35  30 33 30 30 00 50 0E 75  |0...t..50300.P.u|
00000A10: 03 99 22 11 22 46 49 24  3B 22 20 48 41 53 22 3B  |.."."FI$;" HAS";|
00000A20: 54 3B 22 52 45 43 4F 52  44 53 2E 22 3A 99 22 11  |T;"RECORDS.":.".|
00000A30: 49 20 43 41 4E 20 48 41  4E 44 4C 45 20 4F 4E 4C  |I CAN HANDLE ONL|
00000A40: 59 22 3B 4D 41 58 3B 22  9D 2E 22 3A 89 32 37 30  |Y";MAX;"..":.270|
00000A50: 00 5C 0E 7A 03 81 49 B2  31 A4 4E 52 00 83 0E 7F  |.\.z..I.1.NR....|
00000A60: 03 84 31 2C 54 41 47 28  49 29 2C 4E 41 4D 45 24  |..1,TAG(I),NAME$|
00000A70: 28 49 29 2C 41 4D 54 24  28 49 29 2C 4C 4F 43 24  |(I),AMT$(I),LOC$|
00000A80: 28 49 29 00 9A 0E 84 03  8B 54 41 47 28 49 29 B2  |(I)......TAG(I).|
00000A90: 30 AF 53 54 B2 30 A7 38  39 30 00 A4 0E 8E 03 99  |0.ST.0.890......|
00000AA0: 22 2E 22 3B 00 B2 0E 98  03 8B 53 54 B1 30 A7 39  |".";......ST.0.9|
00000AB0: 33 30 00 BA 0E 9D 03 82  20 49 00 E5 0E 9F 03 8B  |30...... I......|
00000AC0: 20 4E 52 B3 4D 41 58 20  A7 20 81 20 49 B2 4E 52  | NR.MAX . . I.NR|
00000AD0: AA 31 20 A4 20 4D 41 58  3A 54 41 47 28 49 29 B2  |.1 . MAX:TAG(I).|
00000AE0: 30 3A 82 20 49 00 F5 0E  A2 03 8D 35 30 33 30 30  |0:. I......50300|
00000AF0: 3A 89 36 34 30 00 18 0F  AC 03 8B 4E 52 B2 30 A7  |:.640......NR.0.|
00000B00: 99 22 11 4E 4F 54 48 49  4E 47 20 54 4F 20 53 41  |.".NOTHING TO SA|
00000B10: 56 45 22 3A 89 32 37 30  00 4F 0F B6 03 99 22 57  |VE":.270.O...."W|
00000B20: 52 49 54 45 20 49 4E 54  4F 20 57 48 41 54 20 46  |RITE INTO WHAT F|
00000B30: 49 4C 45 3F 20 22 3B 3A  4C B2 32 30 3A 8D 36 30  |ILE? ";:L.20:.60|
00000B40: 30 30 30 3A 8B 49 4E 24  B2 22 22 A7 36 34 30 00  |000:.IN$."".640.|
00000B50: 60 0F B7 03 8B 20 46 44  B3 38 20 A7 20 39 36 30  |`.... FD.8 . 960|
00000B60: 00 78 0F B8 03 54 24 B2  C8 28 49 4E 24 2C 31 32  |.x...T$..(IN$,12|
00000B70: 29 AA 22 2E 4F 4C 44 22  00 94 0F B9 03 9F 31 35  |).".OLD"......15|
00000B80: 2C 38 2C 31 35 3A 98 31  35 2C 22 53 22 3B 44 52  |,8,15:.15,"S";DR|
00000B90: 24 3B 54 24 00 AF 0F BA  03 98 31 35 2C 22 52 22  |$;T$......15,"R"|
00000BA0: 3B 44 52 24 3B 54 24 3B  22 3D 22 3B 49 4E 24 00  |;DR$;T$;"=";IN$.|
00000BB0: B7 0F BB 03 A0 31 35 00  CF 0F C0 03 46 49 24 B2  |.....15.....FI$.|
00000BC0: 49 4E 24 3A 44 52 B2 31  3A 8D 35 30 31 30 30 00  |IN$:DR.1:.50100.|
00000BD0: E1 0F C5 03 98 31 2C 22  2A 52 45 50 41 49 52 2A  |.....1,"*REPAIR*|
00000BE0: 22 00 F4 0F D4 03 98 31  2C 4E 52 3A 81 49 B2 31  |"......1,NR:.I.1|
00000BF0: A4 4D 41 58 00 07 10 DE  03 8B 54 41 47 28 49 29  |.MAX......TAG(I)|
00000C00: B2 30 A7 31 30 36 30 00  1C 10 E8 03 98 31 2C 54  |.0.1060......1,T|
00000C10: 41 47 28 49 29 3A 8D 35  30 30 30 30 00 37 10 F2  |AG(I):.50000.7..|
00000C20: 03 98 31 2C 51 55 24 3B  4E 41 4D 45 24 28 49 29  |..1,QU$;NAME$(I)|
00000C30: 3A 8D 35 30 30 30 30 00  4D 10 FC 03 98 31 2C 41  |:.50000.M....1,A|
00000C40: 4D 54 24 28 49 29 3A 8D  35 30 30 30 30 00 67 10  |MT$(I):.50000.g.|
00000C50: 06 04 98 31 2C 51 55 24  3B 4C 4F 43 24 28 49 29  |...1,QU$;LOC$(I)|
00000C60: 3A 8D 35 30 30 30 30 00  71 10 10 04 99 22 2E 22  |:.50000.q...."."|
00000C70: 3B 00 78 10 1A 04 82 49  00 81 10 24 04 53 56 B2  |;.x....I...$.SV.|
00000C80: 31 00 91 10 2E 04 8D 35  30 33 30 30 3A 89 36 34  |1......50300:.64|
00000C90: 30 00 B2 10 38 04 8B 4E  52 B3 4D 41 58 A7 54 47  |0...8..NR.MAX.TG|
00000CA0: B2 30 3A 8D 34 34 30 3A  8B 45 4E B1 30 A7 31 30  |.0:.440:.EN.0.10|
00000CB0: 39 30 00 D1 10 3D 04 99  22 11 4E 4F 20 52 4F 4F  |90...=..".NO ROO|
00000CC0: 4D 20 46 4F 52 20 4D 4F  52 45 2E 22 3A 89 32 37  |M FOR MORE.":.27|
00000CD0: 30 00 00 11 42 04 50 52  24 B2 22 57 48 41 54 27  |0...B.PR$."WHAT'|
00000CE0: 53 20 54 48 45 20 54 41  47 22 3A 8D 33 36 30 3A  |S THE TAG":.360:|
00000CF0: 91 B4 28 54 47 29 AA 32  89 36 34 30 2C 32 37 30  |..(TG).2.640,270|
00000D00: 00 19 11 56 04 49 49 B2  45 4E 3A 8D 34 31 30 3A  |...V.II.EN:.410:|
00000D10: 8B 45 4E B1 30 A7 32 37  30 00 2E 11 60 04 45 4E  |.EN.0.270...`.EN|
00000D20: B2 49 49 3A 54 41 47 28  45 4E 29 B2 54 47 00 4A  |.II:TAG(EN).TG.J|
00000D30: 11 6A 04 46 49 B2 32 3A  8D 35 36 30 3A 4E 41 4D  |.j.FI.2:.560:NAM|
00000D40: 45 24 28 45 4E 29 B2 49  4E 24 00 65 11 74 04 46  |E$(EN).IN$.e.t.F|
00000D50: 49 B2 33 3A 8D 35 36 30  3A 41 4D 54 24 28 45 4E  |I.3:.560:AMT$(EN|
00000D60: 29 B2 49 4E 24 00 80 11  7E 04 46 49 B2 34 3A 8D  |).IN$...~.FI.4:.|
00000D70: 35 36 30 3A 4C 4F 43 24  28 45 4E 29 B2 49 4E 24  |560:LOC$(EN).IN$|
00000D80: 00 91 11 88 04 4E 52 B2  4E 52 AA 31 3A 89 36 35  |.....NR.NR.1:.65|
00000D90: 30 00 C2 11 E2 04 50 52  24 B2 22 44 45 4C 45 54  |0.....PR$."DELET|
00000DA0: 45 20 57 48 49 43 48 20  54 41 47 22 3A 8D 33 36  |E WHICH TAG":.36|
00000DB0: 30 3A 91 B4 28 54 47 29  AA 32 89 36 35 30 2C 32  |0:..(TG).2.650,2|
00000DC0: 37 30 00 D5 11 EC 04 8D  33 39 30 3A 8B 45 4E B2  |70......390:.EN.|
00000DD0: 30 A7 32 37 30 00 DE 11  F6 04 8D 34 38 30 00 FE  |0.270......480..|
00000DE0: 11 00 05 99 22 11 52 45  41 4C 4C 59 20 44 45 4C  |....".REALLY DEL|
00000DF0: 45 54 45 20 49 54 22 3B  3A 8D 33 30 30 30 00 36  |ETE IT";:.3000.6|
00000E00: 12 0A 05 8B 49 4E 24 B2  22 59 22 A7 4E 52 B2 4E  |....IN$."Y".NR.N|
00000E10: 52 AB 31 3A 54 41 47 28  45 4E 29 B2 30 3A 4E 41  |R.1:TAG(EN).0:NA|
00000E20: 4D 45 24 28 45 4E 29 B2  22 22 3A 4C 4F 43 24 28  |ME$(EN)."":LOC$(|
00000E30: 45 4E 29 B2 22 22 00 3F  12 14 05 89 36 34 30 00  |EN)."".?....640.|
00000E40: 56 12 1E 05 56 B2 33 3A  46 47 B2 31 3A 4E B2 30  |V...V.3:FG.1:N.0|
00000E50: 3A 89 31 33 36 30 00 6D  12 28 05 56 B2 34 3A 46  |:.1360.m.(.V.4:F|
00000E60: 47 B2 31 3A 4E B2 30 3A  89 31 33 36 30 00 9F 12  |G.1:N.0:.1360...|
00000E70: 32 05 99 22 53 45 41 52  43 48 20 46 4F 52 20 57  |2.."SEARCH FOR W|
00000E80: 48 41 54 20 4E 41 4D 45  3F 20 22 3B 3A 8D 36 30  |HAT NAME? ";:.60|
00000E90: 30 30 30 3A 8B 49 4E 24  B2 22 22 A7 36 34 30 00  |000:.IN$."".640.|
00000EA0: BC 12 46 05 56 B2 33 3A  46 47 B2 30 3A 4E 24 B2  |..F.V.3:FG.0:N$.|
00000EB0: 49 4E 24 3A 4E B2 C3 28  49 4E 24 29 00 C5 12 50  |IN$:N..(IN$)...P|
00000EC0: 05 9F 34 2C 56 00 DB 12  5A 05 46 B2 30 3A 8B 20  |..4,V...Z.F.0:. |
00000ED0: 56 B2 33 20 A7 20 99 22  93 22 3B 00 E9 12 64 05  |V.3 . .".";...d.|
00000EE0: 81 49 B2 31 20 A4 4D 41  58 00 FC 12 69 05 8B 54  |.I.1 .MAX...i..T|
00000EF0: 41 47 28 49 29 B2 30 A7  31 35 32 30 00 23 13 6E  |AG(I).0.1520.#.n|
00000F00: 05 8B 20 4E B1 30 20 A7  20 8B 20 C8 28 4E 41 4D  |.. N.0 . . .(NAM|
00000F10: 45 24 28 49 29 2C 4E 29  B3 B1 4E 24 20 A7 20 31  |E$(I),N)..N$ . 1|
00000F20: 35 32 30 00 3A 13 78 05  8B 20 46 B3 34 20 B0 20  |520.:.x.. F.4 . |
00000F30: 56 B2 34 20 A7 20 31 34  34 30 00 6D 13 82 05 99  |V.4 . 1440.m....|
00000F40: 22 11 50 52 45 53 53 20  12 52 45 54 55 52 4E 92  |".PRESS .RETURN.|
00000F50: 20 46 4F 52 20 4D 4F 52  45 2E 22 3B 3A 8D 35 32  | FOR MORE.";:.52|
00000F60: 30 30 30 3A 46 B2 30 3A  99 22 93 22 3B 00 80 13  |000:F.0:.".";...|
00000F70: 8C 05 8B 49 4E 24 B3 B1  43 52 24 A7 31 35 35 30  |...IN$..CR$.1550|
00000F80: 00 96 13 A0 05 41 24 B2  CA 28 C4 28 54 41 47 28  |.....A$..(.(TAG(|
00000F90: 49 29 29 2C 32 29 00 AE  13 AA 05 98 34 3A 98 34  |I)),2)......4:.4|
00000FA0: 2C 54 54 24 28 31 29 3B  22 3A 22 3B 41 24 00 C9  |,TT$(1);":";A$..|
00000FB0: 13 AF 05 98 34 2C 54 54  24 28 32 29 3B 22 3A 22  |....4,TT$(2);":"|
00000FC0: 3B 4E 41 4D 45 24 28 49  29 00 E3 13 B4 05 98 34  |;NAME$(I)......4|
00000FD0: 2C 54 54 24 28 33 29 3B  22 3A 22 3B 41 4D 54 24  |,TT$(3);":";AMT$|
00000FE0: 28 49 29 00 FD 13 B9 05  98 34 2C 54 54 24 28 34  |(I)......4,TT$(4|
00000FF0: 29 3B 22 3A 22 3B 4C 4F  43 24 28 49 29 00 0C 14  |);":";LOC$(I)...|
00001000: BE 05 46 47 B2 31 3A 46  B2 46 AA 31 00 13 14 F0  |..FG.1:F.F.1....|
00001010: 05 82 49 00 38 14 FA 05  8B 46 47 B2 30 A7 99 22  |..I.8....FG.0.."|
00001020: 11 27 22 3B 4E 24 3B 22  27 20 57 41 53 4E 27 54  |.'";N$;"' WASN'T|
00001030: 20 46 4F 55 4E 44 2E 22  00 4E 14 04 06 8B 56 B2  | FOUND.".N....V.|
00001040: 33 B0 46 47 B2 30 A7 A0  34 3A 89 32 37 30 00 5A  |3.FG.0..4:.270.Z|
00001050: 14 0E 06 A0 34 3A 89 36  34 30 00 8E 14 22 06 50  |....4:.640...".P|
00001060: 52 24 B2 22 53 45 41 52  43 48 20 46 4F 52 20 57  |R$."SEARCH FOR W|
00001070: 48 41 54 20 54 41 47 22  3A 8D 33 36 30 3A 91 B4  |HAT TAG":.360:..|
00001080: 28 54 47 29 AA 32 89 36  34 30 2C 32 37 30 00 A1  |(TG).2.640,270..|
00001090: 14 4A 06 8D 33 39 30 3A  8B 45 4E B2 30 A7 32 37  |.J..390:.EN.0.27|
000010A0: 30 00 AF 14 5E 06 8D 34  38 30 3A 89 32 37 30 00  |0...^..480:.270.|
000010B0: DD 14 68 06 50 52 24 B2  22 54 41 47 20 54 4F 20  |..h.PR$."TAG TO |
000010C0: 4D 4F 44 49 46 59 22 3A  8D 33 36 30 3A 91 B4 28  |MODIFY":.360:..(|
000010D0: 54 47 29 AA 32 89 36 34  30 2C 32 37 30 00 F0 14  |TG).2.640,270...|
000010E0: 72 06 8D 33 39 30 3A 8B  45 4E B2 30 A7 32 37 30  |r..390:.EN.0.270|
000010F0: 00 F9 14 A4 06 8D 34 38  30 00 15 15 AE 06 46 49  |......480.....FI|
00001100: B2 32 3A 4F 56 24 B2 4E  41 4D 45 24 28 45 4E 29  |.2:OV$.NAME$(EN)|
00001110: 3A 8D 35 36 30 00 27 15  B8 06 4E 41 4D 45 24 28  |:.560.'...NAME$(|
00001120: 45 4E 29 B2 49 4E 24 00  42 15 CC 06 46 49 B2 33  |EN).IN$.B...FI.3|
00001130: 3A 4F 56 24 B2 41 4D 54  24 28 45 4E 29 3A 8D 35  |:OV$.AMT$(EN):.5|
00001140: 36 30 00 53 15 D6 06 41  4D 54 24 28 45 4E 29 B2  |60.S...AMT$(EN).|
00001150: 49 4E 24 00 6E 15 EA 06  46 49 B2 34 3A 4F 56 24  |IN$.n...FI.4:OV$|
00001160: B2 4C 4F 43 24 28 45 4E  29 3A 8D 35 36 30 00 7F  |.LOC$(EN):.560..|
00001170: 15 F4 06 4C 4F 43 24 28  45 4E 29 B2 49 4E 24 00  |...LOC$(EN).IN$.|
00001180: 88 15 08 07 89 36 34 30  00 9E 15 B8 0B 99 22 3F  |.....640......"?|
00001190: 20 22 3B 3A 5A 54 B2 54  49 3A 5A 43 B2 31 00 B5  | ";:ZT.TI:ZC.1..|
000011A0: 15 C2 0B A1 49 4E 24 3A  8B 49 4E 24 B3 B1 22 22  |....IN$:.IN$..""|
000011B0: A7 33 30 35 30 00 E4 15  CC 0B 8B 54 49 B1 5A 54  |.3050......TI.ZT|
000011C0: A7 99 CA 28 22 3F 20 22  2C 5A 43 2C 31 29 3B 22  |...("? ",ZC,1);"|
000011D0: 9D 22 3B 3A 5A 54 B2 54  49 AA 32 30 3A 5A 43 B2  |.";:ZT.TI.20:ZC.|
000011E0: 33 AB 5A 43 00 EF 15 D6  0B 89 20 33 30 31 30 00  |3.ZC...... 3010.|
000011F0: 18 16 EA 0B 5A 54 B2 C6  28 49 4E 24 29 AF 31 32  |....ZT..(IN$).12|
00001200: 37 3A 99 22 20 22 3B 3A  8B 5A 54 B1 33 31 A7 99  |7:." ";:.ZT.31..|
00001210: 22 9D 22 3B 49 4E 24 3B  00 1E 16 F4 0B 8E 00 37  |".";IN$;.......7|
00001220: 16 50 C3 8B 54 49 AB 5A  39 B3 32 30 B0 46 44 B1  |.P..TI.Z9.20.FD.|
00001230: 32 A7 35 30 30 39 30 00  5F 16 5A C3 8B 46 44 B2  |2.50090._.Z..FD.|
00001240: 31 A7 97 35 39 34 31 31  2C 35 33 3A 81 5A B2 31  |1..59411,53:.Z.1|
00001250: A4 36 30 3A 82 3A 97 35  39 34 31 31 2C 36 31 00  |.60:.:.59411,61.|
00001260: 97 16 64 C3 8B 46 44 B2  32 A7 5A 5A B2 C2 28 35  |..d..FD.2.ZZ..(5|
00001270: 39 34 35 36 29 3A 97 35  39 34 35 36 2C 5A 5A AF  |9456):.59456,ZZ.|
00001280: 32 33 39 3A 81 5A B2 31  A4 36 30 3A 82 3A 97 35  |239:.Z.1.60:.:.5|
00001290: 39 34 35 36 2C 5A 5A 00  A3 16 AA C3 5A 39 B2 54  |9456,ZZ.....Z9.T|
000012A0: 49 3A 8E 00 B3 16 B4 C3  8B 46 44 B1 32 A7 35 30  |I:.......FD.2.50|
000012B0: 32 30 30 00 ED 16 BE C3  99 22 11 50 4C 45 41 53  |200......".PLEAS|
000012C0: 45 20 52 45 57 49 4E 44  20 54 41 50 45 22 46 44  |E REWIND TAPE"FD|
000012D0: 22 9D 2C 22 3A 99 22 41  4E 44 20 54 48 45 4E 20  |".,":."AND THEN |
000012E0: 50 52 45 53 53 20 12 52  45 54 55 52 4E 00 1D 17  |PRESS .RETURN...|
000012F0: D2 C3 8D 35 32 30 30 30  3A 97 51 42 2C 31 32 32  |...52000:.QB,122|
00001300: 3A 97 51 42 AA 31 2C 32  3A 8B 46 44 B2 32 A7 97  |:.QB.1,2:.FD.2..|
00001310: 51 42 2C 35 38 3A 97 51  42 AA 31 2C 33 00 36 17  |QB,58:.QB.1,3.6.|
00001320: E6 C3 9F 31 2C 46 44 2C  44 52 2C 46 49 24 3A 5A  |...1,FD,DR,FI$:Z|
00001330: 50 B2 54 49 3A 8E 00 60  17 18 C4 46 4C 24 B2 44  |P.TI:..`...FL$.D|
00001340: 52 24 AA 46 49 24 3A 9F  31 35 2C 38 2C 31 35 3A  |R$.FI$:.15,8,15:|
00001350: 8B 44 52 B2 31 A7 98 31  35 2C 22 53 22 46 4C 24  |.DR.1..15,"S"FL$|
00001360: 00 8D 17 22 C4 46 4C 24  B2 46 4C 24 AA 22 2C 53  |...".FL$.FL$.",S|
00001370: 2C 22 AA CA 28 22 52 52  57 22 2C 44 52 AA 32 2C  |,"..("RRW",DR.2,|
00001380: 31 29 3A 9F 31 2C 38 2C  32 2C 46 4C 24 00 BE 17  |1):.1,8,2,FL$...|
00001390: 36 C4 84 31 35 2C 45 52  2C 45 52 24 2C 54 4B 2C  |6..15,ER,ER$,TK,|
000013A0: 53 43 3A 8B 45 52 B2 30  B0 28 44 52 B3 30 AF 45  |SC:.ER.0.(DR.0.E|
000013B0: 52 B2 36 32 29 A7 45 52  24 B2 22 22 3A 8E 00 CF  |R.62).ER$."":...|
000013C0: 17 40 C4 8B 45 52 B2 36  32 A7 35 30 32 38 30 00  |.@..ER.62.50280.|
000013D0: 09 18 4A C4 A0 31 3A 99  22 11 22 45 52 3B 45 52  |..J..1:."."ER;ER|
000013E0: 24 54 4B 3B 53 43 3A 99  22 11 46 49 58 20 50 52  |$TK;SC:.".FIX PR|
000013F0: 4F 42 4C 45 4D 20 41 4E  44 20 54 59 50 45 20 27  |OBLEM AND TYPE '|
00001400: 43 4F 4E 54 27 2E 22 3A  80 00 14 18 5E C4 89 35  |CONT'.":....^..5|
00001410: 30 32 31 30 00 3F 18 68  C4 99 22 11 43 41 4E 27  |0210.?.h..".CAN'|
00001420: 54 20 4F 50 45 4E 20 22  46 49 24 22 20 4F 4E 20  |T OPEN "FI$" ON |
00001430: 44 52 49 56 45 20 22 C8  28 46 4C 24 2C 31 29 00  |DRIVE ".(FL$,1).|
00001440: 4C 18 7C C4 A0 31 3A A0  31 35 3A 8E 00 63 18 20  |L.|..1:.15:..c. |
00001450: CB A1 49 4E 24 3A 8B 49  4E 24 B2 22 22 A7 35 32  |..IN$:.IN$."".52|
00001460: 30 30 30 00 69 18 2A CB  8E 00 8A 18 60 EA 49 4E  |000.i.*.....`.IN|
00001470: 24 B2 22 20 22 3A 5A 54  B2 54 49 3A 5A 43 B2 32  |$." ":ZT.TI:ZC.2|
00001480: 3A 5A 44 24 B2 C7 28 32  30 29 00 A0 18 6A EA A1  |:ZD$..(20)...j..|
00001490: 5A 24 3A 8B 5A 24 B3 B1  22 22 A7 36 30 30 37 30  |Z$:.Z$.."".60070|
000014A0: 00 D0 18 74 EA 8B 5A 54  B3 B2 54 49 A7 99 CA 28  |...t..ZT..TI...(|
000014B0: 22 20 A6 22 2C 5A 43 2C  31 29 3B 22 9D 22 3B 3A  |" .",ZC,1);".";:|
000014C0: 5A 43 B2 33 AB 5A 43 3A  5A 54 B2 54 49 AA 31 35  |ZC.3.ZC:ZT.TI.15|
000014D0: 00 DB 18 7E EA 89 36 30  30 31 30 00 0B 19 A6 EA  |...~..60010.....|
000014E0: 5A B2 C6 28 5A 24 29 3A  5A 4C B2 C3 28 49 4E 24  |Z..(Z$):ZL..(IN$|
000014F0: 29 3A 8B 28 5A AF 31 32  37 29 B3 33 32 A7 99 22  |):.(Z.127).32.."|
00001500: 20 9D 22 3B 3A 89 36 30  31 31 30 00 3B 19 B0 EA  | .";:.60110.;...|
00001510: 8B 46 4C AF 28 5A AF 31  32 37 29 B1 36 34 AF 28  |.FL.(Z.127).64.(|
00001520: 5A AF 31 32 37 29 B3 39  31 A7 5A 24 B2 C7 28 28  |Z.127).91.Z$..((|
00001530: 5A AA 31 32 38 29 AF 32  35 35 29 00 4D 19 BA EA  |Z.128).255).M...|
00001540: 8B 5A 4C B1 32 35 34 A7  36 30 30 31 30 00 68 19  |.ZL.254.60010.h.|
00001550: C4 EA 49 4E 24 B2 49 4E  24 AA 5A 24 3A 99 5A 24  |..IN$.IN$.Z$:.Z$|
00001560: 3B 5A 44 24 3B 5A 24 3B  00 87 19 CE EA 8B 5A B2  |;ZD$;Z$;......Z.|
00001570: 31 33 A7 49 4E 24 B2 CA  28 49 4E 24 2C 32 29 3A  |13.IN$..(IN$,2):|
00001580: 99 43 52 24 3B 3A 8E 00  B3 19 D8 EA 8B 5A B2 32  |.CR$;:.......Z.2|
00001590: 30 AF 5A 4C B1 31 A7 49  4E 24 B2 C8 28 49 4E 24  |0.ZL.1.IN$..(IN$|
000015A0: 2C 5A 4C AB 31 29 3A 99  22 9D 22 3B 3A 89 36 30  |,ZL.1):.".";:.60|
000015B0: 30 31 30 00 E6 19 E2 EA  8B 5A B2 31 34 31 A7 5A  |010......Z.141.Z|
000015C0: 24 B2 C7 28 AB 32 30 AC  28 5A 4C B1 31 29 29 3A  |$..(.20.(ZL.1)):|
000015D0: 81 5A B2 32 A4 5A 4C 3A  99 5A 24 3B 3A 82 5A 3A  |.Z.2.ZL:.Z$;:.Z:|
000015E0: 89 36 30 30 30 30 00 F1  19 EC EA 89 36 30 30 31  |.60000......6001|
000015F0: 30 00 08 1A 8C EB 99 22  93 22 3A 9C 3A 8D 36 30  |0......".":.:.60|
00001600: 34 30 30 3A 89 31 30 30  00 20 1A F0 EB 43 52 54  |400:.100. ...CRT|
00001610: B2 33 32 37 36 38 3A 43  52 24 B2 C7 28 31 33 29  |.32768:CR$..(13)|
00001620: 00 52 1A FA EB 57 44 B2  34 30 3A 97 43 52 54 2C  |.R...WD.40:.CRT,|
00001630: 39 36 3A 8B C2 28 43 52  54 AA 31 30 32 34 29 B3  |96:..(CRT.1024).|
00001640: B1 39 36 A7 57 44 B2 38  30 3A 99 C7 28 31 34 32  |.96.WD.80:..(142|
00001650: 29 3B 00 58 1A 04 EC 8E  00 78 1A 54 EC 81 49 B2  |);.X.....x.T..I.|
00001660: 31 A4 31 33 3A 99 22 C0  C0 C0 22 3B 3A 82 49 3A  |1.13:."...";:.I:|
00001670: 99 22 9D 94 C0 22 3A 8E  00 86 1A 30 F2 97 35 39  |."...":....0..59|
00001680: 34 36 38 2C 31 32 00 B1  1A 35 F2 99 22 93 11 11  |468,12...5.."...|
00001690: 22 3B A3 31 35 AB C3 28  50 47 24 29 29 3B 50 47  |";.15..(PG$));PG|
000016A0: 24 3B 22 20 20 42 59 20  4B 49 4D 20 4C 41 4E 54  |$;"  BY KIM LANT|
000016B0: 5A 00 E2 1A 3A F2 99 22  11 20 20 20 20 20 43 55  |Z...:..".     CU|
000016C0: 52 53 4F 52 20 23 22 3B  4E 4D 24 3B 22 20 20 43  |RSOR #";NM$;"  C|
000016D0: 4F 50 59 52 49 47 48 54  20 28 43 29 20 31 39 38  |OPYRIGHT (C) 198|
000016E0: 31 11 00 ED 1A 44 F2 8D  36 30 35 30 30 00 0E 1B  |1....D..60500...|
000016F0: 4E F2 99 22 11 4D 41 49  4E 54 41 49 4E 20 52 45  |N..".MAINTAIN RE|
00001700: 50 41 49 52 20 44 49 52  45 43 54 4F 52 59 00 34  |PAIR DIRECTORY.4|
00001710: 1B 80 F2 99 22 11 11 11  50 52 45 53 53 20 12 52  |...."...PRESS .R|
00001720: 45 54 55 52 4E 92 20 54  4F 20 43 4F 4E 54 49 4E  |ETURN. TO CONTIN|
00001730: 55 45 22 3B 00 4B 1B 8A  F2 A1 49 4E 24 3A 8B 49  |UE";.K....IN$:.I|
00001740: 4E 24 B2 22 22 A7 36 32  30 39 30 00 56 1B 94 F2  |N$."".62090.V...|
00001750: 89 36 30 33 30 30 00 00  00                       |.60300...       |

..$....:PG$."REPAIR":NM$."25":.62000.4..
." KIM LANTZ.M..." 15 CLIFFORD STREET.S.
.." NORTH SYDNEY, NS CANADA B2A 1X2.Y...
"....." CURSOR #25, APRIL, 1981....." CO
PYRIGHT(C)1981 THE CODE WORKS....." BOX 
550, GOLETA, CA. 93116....."....." AS OF
 1MAY81...D.FD.8:DR$."0:":. I/O DEVICE.6
.I.TD$."TAPE":.FD.8.TD$."DISK".N.N.MAX.5
0:SV.0:MM.1000.L...I.0:A.0:SD$.".":QU$.G
(34)......I.1.39:BL$.BL$." ":SD$.SD$."."
. ....:CR$.G(13).D. .. AMT$(MAX),TAG(MAX
),NAME$(MAX)...... LOC$(MAX),TT$(4),L(4)
,W(4)......"        ",0 ,0......"TAG #  
 ",6 ,8.%...."NAME    ",8 ,20.:.H.."AMOU
NT  ",10,8.P.R.."LOCATION",12,20.V.....U
....I.0.4:.TT$(I),L(I),W(I):..~....640..
.........."PRESS .RETURN. FOR MENU"...".
.52000...,.. 650.R.6.A$.J(D(A1),2):L.C(A
$)...@..L.1.A$."$0.0".A$:....J..L.2.A$."
$0.".A$:..(.T.A$.H(A$,L.2).".".I(A$,2):A
$."$".A$...^...T.H..PR$;"? ";:.60000:.IN
$."".TG..1:....R.TG.E(IN$):.TG.1.TG.9999
9999..".ILLEGAL TAG.":TG.0...|........44
0:.EN.0..".TAG";TG;"ISN'T THERE.".......
.....440:.EN.0..".TAG";TG;"IS ALREADY TH
ERE."............MAX.1.TG..0.EN.0:..'.B.
.EN.1.MAX:.TAG(EN).TG...6.L..EN:EN.0:..M
....".";H(SD$,L(1).1).L....TT$(1)":";J(D
(TAG(EN)),2)......".";TT$(2)":";NAME$(EN
)......".";TT$(3)":";AMT$(EN)......".";T
T$(4)":"LOC$(EN).F.&.....0..H(SD$,L(FI))
TT$(FI)":";...:..OV$.."".."."OV$".":.TT$
(0);" ";.'.D.L.W(FI):.60000:.OV$."".590.
8.I..".";BL$;".".Q.K..IN$."".IN$.OV$:.60
5.M.N.A.E(IN$):A1..(A.100..5)...X..FI.3.
.310:IN$.A$...]..".";TT$(FI);":";.J.B..O
V$..""..H(BL$,C(OV$));".":..C(TT$(FI)).1
);...G..H(IN$.BL$,W(FI))...L.....V.:....
.. WARM START OF REPAIRS......".";NR;"RE
CORDS".N.....(0).MM..".";.18);"ONLY";.(0
);"BYTES LEFT".L....I.1 . 13:."...";:. I
:.:.......".....A.DD DATA."......".....M
.ODIFY."......".....D.ELETE.".T...."....
.L.IST RECORDS (ON SCREEN)."......".....
N.AME SEARCH."...F..".....T.AG SEARCH.".
0.P..".....P.RINT RECORDS (ON PRINTER)."
.S.Z..".....R.EAD FILE FROM "TD$".".U...
.".....W.RITE FILE TO "TD$"."......"....
.Q.UIT".....:......".WHAT DO YOU WANT TO
 DO";.....L.1:.3000.T...OC$.IN$:OC.0:.I.
1.10... ..J("RWAMDNTPLQ",I,1).IN$.OC.I:I
.99...*.....4..OC.0.."...";:. 780.K.9..N
R.0.OC$.."R".OC$.."A".OC$.."Q".."...";:.
780.Z.;.."..":FI.0...=..      R   W    A
    M    D    N    T    P    L.A.>..OC.8
50,940,1080,1640,1250,1330,1570,1320,131
0.U.H..SV.NR.0..".":....L.."..YOU HAVE N
OT SAVED YOUR FILE YET...&.M.."ARE YOU S
URE YOU WANT TO QUIT";.@.N..3000:.IN$."Y
"..".":..I.P..640..R.."READ FROM WHAT F
ILE? ";:L.20:.60000:.IN$."".640...\.FI$.
IN$:DR.0:.50100:.ER.270...A..1,T$...B..T
$.."*REPAIR*"..50300:.".I DIDN'T WRITE T
HAT FILE":.270...P..1,T:.T..MAX.NR.T:.89
0...T..50300.P.U.."."FI$;" HAS";T;"RECOR
DS.":.".I CAN HANDLE ONLY";MAX;"..":.270
.\.Z..I.1.NR.....1,TAG(I),NAME$(I),AMT$
(I),LOC$(I)......TAG(I).0.ST.0.890......
".";......ST.0.930...... I...... NR.MAX 
. . I.NR.1 . MAX:TAG(I).0:. I......50300
:.640......NR.0..".NOTHING TO SAVE":.270
.O...."WRITE INTO WHAT FILE? ";:L.20:.60
000:.IN$."".640.`.... FD.8 . 960.X...T$.
H(IN$,12).".OLD"......15,8,15:.15,"S";DR
$;T$......15,"R";DR$;T$;"=";IN$..... 15.
O...FI$.IN$:DR.1:.50100...E..1,"*REPAIR*
"...T..1,NR:.I.1.MAX......TAG(I).0.1060.
.....1,TAG(I):.50000.7....1,QU$;NAME$(I)
:.50000.M....1,AMT$(I):.50000.G....1,QU$
;LOC$(I):.50000.Q....".";.X....I...$.SV.
1......50300:.640...8..NR.MAX.TG.0:.440:
.EN.0.1090.Q.=..".NO ROOM FOR MORE.":.27
0...B.PR$."WHAT'S THE TAG":.360:..(TG).2
.640,270...V.II.EN:.410:.EN.0.270...`.EN
.II:TAG(EN).TG.J.J.FI.2:.560:NAME$(EN).I
N$.E.T.FI.3:.560:AMT$(EN).IN$...~.FI.4:.
560:LOC$(EN).IN$.....NR.NR.1:.650.B...PR
$."DELETE WHICH TAG":.360:..(TG).2.650,2
70.U....390:.EN.0.270......480......".RE
ALLY DELETE IT";:.3000.6....IN$."Y".NR.N
R.1:TAG(EN).0:NAME$(EN)."":LOC$(EN)."".?
....640.V...V.3:FG.1:N.0:.1360.M.(.V.4:F
G.1:N.0:.1360...2.."SEARCH FOR WHAT NAME
? ";:.60000:.IN$."".640...F.V.3:FG.0:N$.
IN$:N.C(IN$).E.P..4,V...Z.F.0:. V.3 . ."
.";...D..I.1 .MAX...I..TAG(I).0.1520.#.N
.. N.0 . . H(NAME$(I),N)..N$ . 1520.:.X.
. F.4 . V.4 . 1440.M....".PRESS .RETURN.
 FOR MORE.";:.52000:F.0:.".";......IN$..
CR$.1550... .A$.J(D(TAG(I)),2)......4:.4
,TT$(1);":";A$.I....4,TT$(2);":";NAME$(I
)......4,TT$(3);":";AMT$(I)......4,TT$(4
);":";LOC$(I).....FG.1:F.F.1......I.8...
.FG.0..".'";N$;"' WASN'T FOUND.".N....V.
3.FG.0. 4:.270.Z... 4:.640...".PR$."SEAR
CH FOR WHAT TAG":.360:..(TG).2.640,270..
.J..390:.EN.0.270...^..480:.270...H.PR$.
"TAG TO MODIFY":.360:..(TG).2.640,270...
R..390:.EN.0.270......480.....FI.2:OV$.N
AME$(EN):.560.'...NAME$(EN).IN$.B.L.FI.3
:OV$.AMT$(EN):.560.S.V.AMT$(EN).IN$.N...
FI.4:OV$.LOC$(EN):.560....LOC$(EN).IN$.
.....640......"? ";:ZT.TI:ZC.1...B..IN$:
.IN$.."".3050...L..TI.ZT..J("? ",ZC,1);"
.";:ZT.TI.20:ZC.3.ZC...V.. 3010.....ZT.F
(IN$).127:." ";:.ZT.31..".";IN$;.......7
.PC.TI.Z9.20.FD.2.50090._.ZC.FD.1..59411
,53:.Z.1.60:.:.59411,61...DC.FD.2.ZZ.B(5
9456):.59456,ZZ.239:.Z.1.60:.:.59456,ZZ.
...CZ9.TI:.....C.FD.2.50200....C.".PLEAS
E REWIND TAPE"FD".,":."AND THEN PRESS .R
ETURN...RC.52000:.QB,122:.QB.1,2:.FD.2..
QB,58:.QB.1,3.6..C.1,FD,DR,FI$:ZP.TI:..`
..DFL$.DR$.FI$:.15,8,15:.DR.1..15,"S"FL$
..."DFL$.FL$.",S,".J("RRW",DR.2,1):.1,8,
2,FL$...6D.15,ER,ER$,TK,SC:.ER.0.(DR.0.E
R.62).ER$."":..O.@D.ER.62.50280...JD 1:.
"."ER;ER$TK;SC:.".FIX PROBLEM AND TYPE '
CONT'.":....^D.50210.?.HD.".CAN'T OPEN "
FI$" ON DRIVE "H(FL$,1).L.|D 1: 15:..C. 
K.IN$:.IN$."".52000.I.*K....`.IN$." ":ZT
.TI:ZC.2:ZD$.G(20). .J..Z$:.Z$.."".60070
.P.T..ZT..TI..J(" .",ZC,1);".";:ZC.3.ZC:
ZT.TI.15...~..60010.....Z.F(Z$):ZL.C(IN$
):.(Z.127).32.." .";:.60110.;....FL.(Z.1
27).64.(Z.127).91.Z$.G((Z.128).255).M...
.ZL.254.60010.H.D.IN$.IN$.Z$:.Z$;ZD$;Z$;
...N..Z.13.IN$.J(IN$,2):.CR$;:....X..Z.2
0.ZL.1.IN$.H(IN$,ZL.1):.".";:.60010.....
.Z.141.Z$.G(.20.(ZL.1)):.Z.2.ZL:.Z$;:.Z:
.60000......60010......".":.:.60400:.100
. ...CRT.32768:CR$.G(13).R...WD.40:.CRT,
96:.B(CRT.1024)..96.WD.80:.G(142);.X....
.X.T..I.1.13:."...";:.I:."...":....0..59
468,12...5.."...";.15.C(PG$));PG$;"  BY 
KIM LANTZ...:..".     CURSOR #";NM$;"  C
OPYRIGHT (C) 1981....D..60500...N..".MAI
NTAIN REPAIR DIRECTORY.4...."...PRESS .R
ETURN. TO CONTINUE";.K....IN$:.IN$."".62
090.V....60300...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL