LOAD SEQ

00000000: 01 08 07 08 00 00 8F 00  12 08 01 00 89 20 31 31  |............. 11|
00000010: 30 30 00 48 08 02 00 9F  31 35 2C 38 2C 31 35 2C  |00.H....15,8,15,|
00000020: 22 49 30 22 3A 98 31 35  2C 22 53 30 3A 4C 4F 41  |"I0":.15,"S0:LOA|
00000030: 44 20 53 45 51 22 3A 94  22 30 3A 4C 4F 41 44 20  |D SEQ":."0:LOAD |
00000040: 53 45 51 22 2C 38 3A 80  00 71 08 03 00 99 22 43  |SEQ",8:..q...."C|
00000050: 4F 52 52 45 43 54 49 4F  4E 53 3F 28 12 59 92 2F  |ORRECTIONS?(.Y./|
00000060: 12 4E 92 29 22 3A 47 31  24 B2 22 59 4E 22 3A 89  |.N.)":G1$."YN":.|
00000070: 35 00 7F 08 04 00 9F 34  2C 34 3A 9D 34 3A 9B 00  |5......4,4:.4:..|
00000080: A9 08 05 00 A1 47 24 3A  81 56 B2 31 A4 C3 28 47  |.....G$:.V.1..(G|
00000090: 31 24 29 3A 8B 47 24 B3  B1 CA 28 47 31 24 2C 56  |1$):.G$...(G1$,V|
000000A0: 2C 31 29 A7 82 56 3A 89  35 00 AF 08 06 00 8E 00  |,1)..V:.5.......|
000000B0: CB 08 08 00 84 4B 4B 28  56 4F 29 2C 45 2C 45 24  |.....KK(VO),E,E$|
000000C0: 2C 53 2C 54 3A 8B 45 B3  32 A7 8E 00 E6 08 09 00  |,S,T:.E.2.......|
000000D0: 99 22 44 49 53 4B 20 45  52 52 4F 52 3A 22 45 3B  |."DISK ERROR:"E;|
000000E0: 45 24 3B 53 3B 54 00 04  09 0A 00 99 22 11 12 52  |E$;S;T......"..R|
000000F0: 92 45 41 44 59 3F 22 3A  47 31 24 B2 22 52 22 3A  |.EADY?":G1$."R":|
00000100: 8D 35 3A 8E 00 0F 09 0B  00 8F 20 4D 41 49 4E 00  |.5:....... MAIN.|
00000110: 20 09 0C 00 8F 20 52 45  4D 20 53 45 54 20 55 50  | .... REM SET UP|
00000120: 00 31 09 15 00 8F 20 41  44 44 20 52 45 43 4F 52  |.1.... ADD RECOR|
00000130: 44 00 40 09 19 00 8F 20  52 45 43 4F 56 45 52 59  |D.@.... RECOVERY|
00000140: 00 4A 09 1B 00 8F 20 41  53 4B 00 59 09 1C 00 8F  |.J.... ASK.Y....|
00000150: 20 4C 4F 41 44 20 53 45  51 00 67 09 1D 00 8F 20  | LOAD SEQ.g.... |
00000160: 54 4F 54 20 54 45 58 00  7B 09 21 00 8F 20 42 49  |TOT TEX.{.!.. BI|
00000170: 4E 41 52 59 20 53 45 41  52 43 48 00 86 09 23 00  |NARY SEARCH...#.|
00000180: 8F 20 4F 50 45 4E 00 94  09 25 00 8F 20 41 53 4B  |. OPEN...%.. ASK|
00000190: 20 52 45 43 00 A4 09 29  00 8F 20 57 52 49 54 45  | REC...).. WRITE|
000001A0: 20 52 45 43 00 BB 09 2B  00 8F 20 50 4F 53 49 54  | REC...+.. POSIT|
000001B0: 49 4F 4E 20 50 4F 49 4E  54 45 52 00 C6 09 2C 00  |ION POINTER...,.|
000001C0: 8F 20 59 45 53 3F 00 D7  09 30 00 8F 20 41 53 4B  |. YES?...0.. ASK|
000001D0: 20 4E 55 4D 42 45 52 00  E6 09 34 00 8F 20 43 48  | NUMBER...4.. CH|
000001E0: 55 4E 4B 20 55 50 00 F8  09 3B 00 8F 20 50 41 53  |UNK UP...;.. PAS|
000001F0: 53 20 50 41 52 41 4D 53  00 08 0A 5C 00 8F 20 4C  |S PARAMS...\.. L|
00000200: 4F 41 44 20 50 52 4F 47  00 16 0A 5D 00 8F 20 4F  |OAD PROG...].. O|
00000210: 50 45 4E 20 52 41 00 21  0A 4C 04 8F 20 4D 41 49  |PEN RA.!.L.. MAI|
00000220: 4E 00 3C 0A 51 04 8D 20  39 33 30 30 3A 8D 20 31  |N.<.Q.. 9300:. 1|
00000230: 32 30 30 3A 8F 20 53 45  54 20 55 50 00 58 0A 56  |200:. SET UP.X.V|
00000240: 04 8D 20 32 37 30 30 3A  8B 20 45 20 A7 20 31 31  |.. 2700:. E . 11|
00000250: 35 30 3A 8F 20 41 53 4B  00 7D 0A 60 04 3A 8D 20  |50:. ASK.}.`.:. |
00000260: 33 35 30 30 3A 8B 20 45  20 A7 20 A0 20 53 45 3A  |3500:. E . . SE:|
00000270: 89 20 31 31 35 30 3A 8F  20 4F 50 45 4E 00 9A 0A  |. 1150:. OPEN...|
00000280: 65 04 3A 8D 20 32 38 30  30 3A 53 50 B2 31 3A A0  |e.:. 2800:SP.1:.|
00000290: 20 53 45 3A 8F 20 4C 4F  41 44 00 BF 0A 6F 04 8D  | SE:. LOAD...o..|
000002A0: 20 31 39 30 30 3A 8B 20  44 54 B2 31 20 A7 20 89  | 1900:. DT.1 . .|
000002B0: 20 31 31 35 30 3A 8F 20  53 41 56 45 20 42 4B 00  | 1150:. SAVE BK.|
000002C0: 04 0B 74 04 3A 99 22 07  07 07 07 07 07 07 07 07  |..t.:.".........|
000002D0: 07 12 11 52 45 50 4C 41  43 45 20 54 48 45 20 50  |...REPLACE THE P|
000002E0: 52 4F 47 52 41 4D 20 44  49 53 4B 20 49 4E 20 44  |ROGRAM DISK IN D|
000002F0: 52 49 56 45 20 30 20 49  46 20 4E 45 43 45 53 53  |RIVE 0 IF NECESS|
00000300: 41 52 59 22 00 24 0B 79  04 3A 8D 20 31 30 3A 8B  |ARY".$.y.:. 10:.|
00000310: 20 52 56 B3 B1 30 20 A7  20 98 4B 4B 28 30 29 2C  | RV..0 . .KK(0),|
00000320: 22 49 30 22 00 46 0B 7E  04 8B 20 43 41 20 A7 20  |"I0".F.~.. CA . |
00000330: 8D 20 31 33 30 30 3A 8F  20 54 45 53 54 20 52 45  |. 1300:. TEST RE|
00000340: 43 4F 52 44 45 52 00 67  0B 83 04 58 24 B2 22 46  |CORDER.g...X$."F|
00000350: 49 4C 45 20 4D 45 4E 55  22 3A 8D 20 39 32 30 30  |ILE MENU":. 9200|
00000360: 3A 89 20 31 31 35 30 00  78 0B B0 04 8F 20 52 45  |:. 1150.x.... RE|
00000370: 4D 20 53 45 54 20 55 50  00 91 0B B5 04 8B 20 4C  |M SET UP...... L|
00000380: 49 B3 32 35 33 20 A7 20  97 20 49 56 2C 4C 49 AA  |I.253 . . IV,LI.|
00000390: 33 00 C1 0B BA 04 43 41  B2 30 3A 8B 20 48 51 B2  |3.....CA.0:. HQ.|
000003A0: 30 20 A7 20 48 51 B2 48  46 3A 81 20 58 B2 31 20  |0 . HQ.HF:. X.1 |
000003B0: A4 20 4D 44 3A 41 52 25  28 58 29 B2 58 3A 82 20  |. MD:AR%(X).X:. |
000003C0: 58 00 C7 0B BF 04 8E 00  D8 0B 14 05 8F 20 52 45  |X............ RE|
000003D0: 43 4F 52 44 20 4F 46 46  00 F2 0B 19 05 3A 9E 20  |CORD OFF.....:. |
000003E0: 4D 4C AB 34 34 3A 8B 20  C2 28 42 37 AA 38 29 A7  |ML.44:. .(B7.8).|
000003F0: 20 8E 00 1C 0C 23 05 99  22 11 50 52 45 53 53 20  | ....#..".PRESS |
00000400: 53 54 4F 50 20 4F 4E 20  52 45 43 4F 52 44 45 52  |STOP ON RECORDER|
00000410: 22 3A 8D 31 30 3A 89 20  31 33 30 35 00 2C 0C 6C  |":.10:. 1305.,.l|
00000420: 07 8F 20 53 41 56 45 20  42 4F 4F 4B 00 5C 0C 71  |.. SAVE BOOK.\.q|
00000430: 07 A0 20 53 45 3A 55 4B  B2 57 4B 3A 99 22 11 28  |.. SE:UK.WK:.".(|
00000440: 53 43 52 41 54 43 48 49  4E 47 20 4F 4C 44 20 42  |SCRATCHING OLD B|
00000450: 4F 4F 4B 4B 45 45 50 49  4E 47 29 22 00 94 0C 76  |OOKKEEPING)"...v|
00000460: 07 3A 98 4B 4B 28 52 56  29 2C 22 53 22 AA 44 52  |.:.KK(RV),"S".DR|
00000470: 24 28 52 56 29 AA 22 3A  44 42 A2 22 AA 4E 41 24  |$(RV).":DB.".NA$|
00000480: 3A 56 4F B2 52 56 3A 8D  20 38 3A 8B 20 45 B1 31  |:VO.RV:. 8:. E.1|
00000490: 20 A7 20 8E 00 D2 0C 7C  07 9F 20 53 45 2C 44 56  | . ....|.. SE,DV|
000004A0: 28 52 56 29 2C 53 45 2C  44 52 24 28 52 56 29 AA  |(RV),SE,DR$(RV).|
000004B0: 22 3A 44 42 A2 22 AA 4E  41 24 AA 22 2C 53 2C 57  |":DB.".NA$.",S,W|
000004C0: 22 3A 56 4F B2 52 56 3A  8D 20 38 3A 8B 45 20 A7  |":VO.RV:. 8:.E .|
000004D0: 20 8E 00 18 0D 80 07 98  53 45 2C 4D 52 3B 52 24  | .......SE,MR;R$|
000004E0: 48 52 3B 52 24 52 53 3B  52 24 48 42 3B 52 24 48  |HR;R$RS;R$HB;R$H|
000004F0: 46 3B 52 24 53 46 3B 52  24 52 42 3B 52 24 48 4B  |F;R$SF;R$RB;R$HK|
00000500: 3B 52 24 57 4B 3B 52 24  44 4B 3B 52 24 44 45 3B  |;R$WK;R$DK;R$DE;|
00000510: 52 24 4D 43 3B 52 24 3B  00 40 0D 85 07 81 20 57  |R$MC;R$;.@.... W|
00000520: 46 B2 31 20 A4 20 48 46  3A 98 53 45 2C 51 24 3B  |F.1 . HF:.SE,Q$;|
00000530: 46 54 24 28 57 46 29 3B  52 24 3B 3A 82 20 57 46  |FT$(WF);R$;:. WF|
00000540: 00 6C 0D 8A 07 81 20 44  B2 30 A4 35 3A 81 20 58  |.l.... D.0.5:. X|
00000550: B2 30 A4 48 4B 3A 98 53  45 2C 53 46 25 28 58 2C  |.0.HK:.SE,SF%(X,|
00000560: 44 29 3B 52 24 3B 3A 82  20 58 2C 44 00 85 0D 8F  |D);R$;:. X,D....|
00000570: 07 99 22 28 53 41 56 49  4E 47 20 50 4F 49 4E 54  |.."(SAVING POINT|
00000580: 45 52 53 29 22 00 B9 0D  94 07 3A 81 20 58 B2 30  |ERS)".....:. X.0|
00000590: A4 48 4B 3A 81 20 52 52  B2 31 20 A4 20 48 52 3A  |.HK:. RR.1 . HR:|
000005A0: 98 53 45 2C 50 4F 25 28  52 52 2C 58 29 3B 52 24  |.SE,PO%(RR,X);R$|
000005B0: 3B 3A 82 20 52 52 3A 82  58 00 E7 0D 99 07 8B 20  |;:. RR:.X...... |
000005C0: 52 33 20 A7 20 99 22 28  53 41 56 49 4E 47 20 42  |R3 . ."(SAVING B|
000005D0: 4C 4F 43 4B 20 4D 41 50  29 22 3A 81 20 58 B2 31  |LOCK MAP)":. X.1|
000005E0: A4 31 30 3A 82 20 58 00  1F 0E 9E 07 3A 8B 20 52  |.10:. X.....:. R|
000005F0: 33 20 A7 20 81 20 57 42  B2 31 20 A4 20 48 42 3A  |3 . . WB.1 . HB:|
00000600: 98 53 45 2C 22 20 22 54  25 28 57 42 29 52 24 22  |.SE," "T%(WB)R$"|
00000610: 20 22 53 25 28 57 42 29  52 24 3B 3A 82 57 42 00  | "S%(WB)R$;:.WB.|
00000620: 51 0E A3 07 8B 52 34 A7  CE 23 28 52 41 29 3A CD  |Q....R4..#(RA):.|
00000630: 23 28 52 41 29 2C 28 22  52 41 A2 22 AA 4E 41 24  |#(RA),("RA.".NA$|
00000640: 29 2C 4C 28 52 53 29 2C  44 28 44 52 28 52 56 29  |),L(RS),D(DR(RV)|
00000650: 29 00 71 0E A8 07 81 58  B2 31 A4 48 46 3A 98 53  |).q....X.1.HF:.S|
00000660: 45 2C 22 20 22 4D 46 25  28 58 29 52 24 3B 3A 82  |E," "MF%(X)R$;:.|
00000670: 58 00 8B 0E AD 07 53 50  B2 30 3A A0 20 53 45 3A  |X.....SP.0:. SE:|
00000680: 56 4F B2 52 56 3A 8D 20  38 3A 8E 00 9C 0E 34 08  |VO.RV:. 8:....4.|
00000690: 8F 20 41 44 44 20 52 45  43 4F 52 44 00 BA 0E 35  |. ADD RECORD...5|
000006A0: 08 8B 48 52 B2 4D 52 20  A7 20 99 22 4F 55 54 20  |..HR.MR . ."OUT |
000006B0: 4F 46 20 52 4F 4F 4D 22  3A 8E 00 EF 0E 36 08 99  |OF ROOM":....6..|
000006C0: 22 41 44 44 49 4E 47 20  52 45 43 4F 52 44 23 22  |"ADDING RECORD#"|
000006D0: 48 52 AA 31 3A 4C B2 30  3A 8F 20 20 20 20 20 20  |HR.1:L.0:.      |
000006E0: 20 20 20 20 20 3A 47 4F  53 55 42 34 35 30 30 00  |     :GOSUB4500.|
000006F0: 2A 0F 39 08 8F 20 20 20  20 20 20 49 46 20 47 24  |*.9..      IF G$|
00000700: 3C 3E 22 52 22 54 48 45  4E 20 46 4F 52 20 57 46  |<>"R"THEN FOR WF|
00000710: 3D 31 20 54 4F 20 48 46  3A 46 24 28 57 46 29 3D  |=1 TO HF:F$(WF)=|
00000720: 22 22 3A 4E 45 58 54 20  57 46 00 51 0F 3E 08 8F  |"":NEXT WF.Q.>..|
00000730: 20 20 20 20 20 47 4F 53  55 42 20 33 37 30 30 3A  |     GOSUB 3700:|
00000740: 52 45 4D 20 4B 42 44 20  52 45 43 20 49 4E 50 55  |REM KBD REC INPU|
00000750: 54 00 6C 0F 43 08 55 4B  B2 57 4B 3A 81 20 57 4B  |T.l.C.UK.WK:. WK|
00000760: B2 30 A4 48 4B 3A 46 49  24 B2 22 22 00 AB 0F 44  |.0.HK:FI$.""...D|
00000770: 08 3A 81 20 44 B2 31 A4  53 46 25 28 57 4B 2C 30  |.:. D.1.SF%(WK,0|
00000780: 29 3A 46 49 24 B2 46 49  24 AA 46 24 28 53 46 25  |):FI$.FI$.F$(SF%|
00000790: 28 57 4B 2C 44 29 29 AA  5A 24 3A 82 20 44 3A 8D  |(WK,D)).Z$:. D:.|
000007A0: 20 33 33 30 30 3A 8F 53  52 43 48 00 DA 0F 48 08  | 3300:.SRCH...H.|
000007B0: 3A 8B 20 46 52 B3 48 52  AA 31 20 A7 20 42 52 B2  |:. FR.HR.1 . BR.|
000007C0: 46 52 3A 54 52 B2 48 52  3A 8D 20 35 32 30 30 3A  |FR:TR.HR:. 5200:|
000007D0: 8F 20 43 48 55 4E 4B 20  55 50 00 FD 0F 4D 08 3A  |. CHUNK UP...M.:|
000007E0: 50 4F 25 28 46 52 2C 57  4B 29 B2 48 52 AA 31 3A  |PO%(FR,WK).HR.1:|
000007F0: 8B 57 4B B2 55 4B A7 20  52 52 B2 46 52 00 14 10  |.WK.UK. RR.FR...|
00000800: 4E 08 82 20 57 4B 3A 48  52 B2 48 52 AA 31 3A 57  |N.. WK:HR.HR.1:W|
00000810: 4B B2 55 4B 00 31 10 52  08 57 52 B2 48 52 3A 8D  |K.UK.1.R.WR.HR:.|
00000820: 34 31 30 30 3A 8E 3A 8F  20 57 52 54 2C 44 49 53  |4100:.:. WRT,DIS|
00000830: 50 00 3B 10 8C 0A 8F 20  41 53 4B 00 65 10 91 0A  |P.;.... ASK.e...|
00000840: 45 B2 30 3A 99 22 93 20  20 20 20 12 4C 4F 41 44  |E.0:.".    .LOAD|
00000850: 20 46 52 4F 4D 20 53 45  51 55 45 4E 54 49 41 4C  | FROM SEQUENTIAL|
00000860: 20 46 49 4C 45 00 A4 10  96 0A 99 22 11 4E 41 4D  | FILE......".NAM|
00000870: 45 20 4F 46 20 53 45 51  20 46 49 4C 45 3F 20 28  |E OF SEQ FILE? (|
00000880: 4C 45 41 56 45 20 42 4C  41 4E 4B 20 54 4F 20 52  |LEAVE BLANK TO R|
00000890: 45 54 55 52 4E 20 54 4F  20 46 49 4C 45 20 4D 45  |ETURN TO FILE ME|
000008A0: 4E 55 29 22 00 CC 10 9B  0A 58 24 B2 4E 53 24 3A  |NU)".....X$.NS$:|
000008B0: 8D 34 35 30 30 3A 4E 53  24 B2 58 24 3A 8B 20 4E  |.4500:NS$.X$:. N|
000008C0: 53 24 B2 22 22 A7 20 45  B2 31 3A 8E 00 E3 10 9C  |S$."". E.1:.....|
000008D0: 0A 8B 4E 53 24 B2 22 4D  59 53 45 4C 46 22 A7 32  |..NS$."MYSELF".2|
000008E0: 37 36 35 00 23 11 9D 0A  99 22 11 49 53 20 53 45  |765.#....".IS SE|
000008F0: 51 20 46 49 4C 45 20 49  4E 20 12 50 52 41 43 54  |Q FILE IN .PRACT|
00000900: 49 43 41 4C 43 92 20 46  4F 52 4D 41 54 3F 22 3A  |ICALC. FORMAT?":|
00000910: 58 B2 30 3A 58 33 B2 31  3A 8D 34 34 30 30 3A 50  |X.0:X3.1:.4400:P|
00000920: 43 B2 58 00 30 11 9E 0A  8B 50 43 A7 32 37 32 30  |C.X.0....PC.2720|
00000930: 00 74 11 9F 0A 99 22 11  44 4F 45 53 20 53 45 51  |.t....".DOES SEQ|
00000940: 20 46 49 4C 45 20 52 45  51 55 49 52 45 20 53 49  | FILE REQUIRE SI|
00000950: 4E 47 4C 45 20 43 48 41  52 20 52 45 41 44 3F 22  |NGLE CHAR READ?"|
00000960: 3A 58 B2 30 3A 58 33 B2  31 3A 8D 34 34 30 30 3A  |:X.0:X3.1:.4400:|
00000970: 43 4F B2 58 00 AD 11 A0  0A 99 22 11 46 49 4C 45  |CO.X......".FILE|
00000980: 20 4F 4E 20 43 41 53 53  45 54 54 45 3F 20 28 4E  | ON CASSETTE? (N|
00000990: 3D 44 49 53 4B 29 22 3A  58 B2 43 41 3A 58 33 B2  |=DISK)":X.CA:X3.|
000009A0: AB 31 3A 8D 34 34 30 30  3A 43 41 B2 58 00 E1 11  |.1:.4400:CA.X...|
000009B0: A1 0A 99 22 11 52 41 4E  44 4F 4D 20 46 49 45 4C  |...".RANDOM FIEL|
000009C0: 44 53 3A 22 3A 81 20 57  46 B2 31 20 A4 20 48 46  |DS:":. WF.1 . HF|
000009D0: 3A 99 57 46 3B 46 54 24  28 57 46 29 3A 82 20 57  |:.WF;FT$(WF):. W|
000009E0: 46 00 10 12 A5 0A 99 22  48 4F 57 20 4D 41 4E 59  |F......"HOW MANY|
000009F0: 20 46 49 45 4C 44 53 20  44 4F 45 53 20 54 48 45  | FIELDS DOES THE|
00000A00: 20 53 45 51 20 46 49 4C  45 20 48 41 56 45 3F 22  | SEQ FILE HAVE?"|
00000A10: 00 2F 12 AA 0A 58 B2 48  51 3A 58 31 B2 31 3A 58  |./...X.HQ:X1.1:X|
00000A20: 32 B2 4D 44 3A 8D 34 38  30 30 3A 48 51 B2 58 00  |2.MD:.4800:HQ.X.|
00000A30: 4F 12 AF 0A 3A 81 20 57  46 B2 31 20 A4 20 48 46  |O...:. WF.1 . HF|
00000A40: 3A 46 24 28 57 46 29 B2  22 22 3A 82 20 57 46 00  |:F$(WF)."":. WF.|
00000A50: 5F 12 B4 0A 81 20 57 46  B2 31 20 A4 20 48 46 00  |_.... WF.1 . HF.|
00000A60: 9E 12 B9 0A 3A 99 20 22  52 41 4E 20 46 49 45 4C  |....:. "RAN FIEL|
00000A70: 44 20 4E 4F 22 20 57 46  20 22 53 48 4F 55 4C 44  |D NO" WF "SHOULD|
00000A80: 20 42 45 20 4C 4F 41 44  45 44 20 57 49 54 48 20  | BE LOADED WITH |
00000A90: 53 45 51 20 46 49 45 4C  44 20 4E 4F 3A 22 00 C7  |SEQ FIELD NO:"..|
00000AA0: 12 BE 0A 3A 99 22 28 45  4E 54 45 52 20 20 30 20  |...:."(ENTER  0 |
00000AB0: 20 54 4F 20 4C 45 41 56  45 20 46 49 45 4C 44 20  | TO LEAVE FIELD |
00000AC0: 42 4C 41 4E 4B 29 22 00  F1 12 C3 0A 3A 58 B2 41  |BLANK)".....:X.A|
00000AD0: 52 25 28 57 46 29 3A 58  31 B2 30 3A 58 32 B2 48  |R%(WF):X1.0:X2.H|
00000AE0: 51 3A 8D 34 38 30 30 3A  41 52 25 28 57 46 29 B2  |Q:.4800:AR%(WF).|
00000AF0: 58 00 FA 12 C8 0A 82 20  57 46 00 11 13 CD 0A 8D  |X...... WF......|
00000B00: 33 3A 8B 20 47 24 B2 22  59 22 20 A7 20 32 37 30  |3:. G$."Y" . 270|
00000B10: 30 00 18 13 D2 0A 3A 8E  00 27 13 F0 0A 8F 20 4C  |0.....:..'.... L|
00000B20: 4F 41 44 20 53 45 51 00  56 13 13 0B 45 46 B2 30  |OAD SEQ.V...EF.0|
00000B30: 3A 8B 50 43 A7 8D 32 38  39 30 3A 58 34 B2 C5 28  |:.PC..2890:X4..(|
00000B40: 58 24 29 AA 31 3A 8D 32  38 39 30 3A 48 51 B2 C5  |X$).1:.2890:HQ..|
00000B50: 28 58 24 29 AA 31 00 92  13 1D 0B 8B 20 48 52 B2  |(X$).1...... HR.|
00000B60: B1 4D 52 20 A7 20 99 22  12 11 4E 4F 54 20 45 4E  |.MR . ."..NOT EN|
00000B70: 4F 55 47 48 20 52 4F 4F  4D 20 49 4E 20 52 41 4E  |OUGH ROOM IN RAN|
00000B80: 20 46 49 4C 45 22 3A 8D  20 31 30 3A 89 20 32 38  | FILE":. 10:. 28|
00000B90: 38 35 00 AD 13 1E 0B 8B  50 43 A7 58 34 B2 58 34  |85......PC.X4.X4|
00000BA0: AB 31 3A 8B 58 34 B3 30  A7 32 38 38 35 00 C4 13  |.1:.X4.0.2885...|
00000BB0: 22 0B 3A 81 20 57 51 B2  31 20 A4 20 48 51 3A 8D  |".:. WQ.1 . HQ:.|
00000BC0: 32 38 39 30 00 DD 13 2C  0B 58 B2 30 3A 8B 50 43  |2890...,.X.0:.PC|
00000BD0: B2 30 A7 41 B2 36 34 3A  89 32 38 36 36 00 07 14  |.0.A.64:.2866...|
00000BE0: 2D 0B 58 B2 58 AA 31 3A  41 B2 C6 28 CA 28 58 24  |-.X.X.1:A..(.(X$|
00000BF0: AA 52 24 2C 58 29 29 3A  8B 41 B2 39 32 B0 41 B2  |.R$,X)):.A.92.A.|
00000C00: 33 34 A7 32 38 36 31 00  17 14 2E 0B 8B 41 B2 32  |34.2861......A.2|
00000C10: 35 35 A7 32 38 38 35 00  2D 14 2F 0B 8B 41 AF 36  |55.2885.-./..A.6|
00000C20: 34 A7 8D 32 38 39 30 3A  89 32 38 36 36 00 43 14  |4..2890:.2866.C.|
00000C30: 30 0B 8B 41 AF 31 36 A7  8D 32 38 39 30 3A 89 32  |0..A.16..2890:.2|
00000C40: 38 36 38 00 62 14 31 0B  58 24 B2 CA 28 58 24 2C  |868.b.1.X$..(X$,|
00000C50: 58 AA 31 29 3A 8B 58 24  B2 22 22 A7 58 24 B2 22  |X.1):.X$."".X$."|
00000C60: 20 22 00 8D 14 32 0B 3A  20 81 20 57 46 B2 31 20  | "...2.: . WF.1 |
00000C70: A4 20 48 46 3A 8B 20 41  52 25 28 57 46 29 B2 57  |. HF:. AR%(WF).W|
00000C80: 51 20 A7 20 46 24 28 57  46 29 B2 58 24 00 A5 14  |Q . F$(WF).X$...|
00000C90: 33 0B 82 57 46 3A 8B 28  41 AF 36 34 29 B2 30 A7  |3..WF:.(A.64).0.|
00000CA0: 8D 32 38 39 30 00 CD 14  34 0B 82 57 51 3A 8B 20  |.2890...4..WQ:. |
00000CB0: 43 41 20 A7 20 81 58 B2  30 A4 37 3A 4D 4D 25 28  |CA . .X.0.7:MM%(|
00000CC0: 58 29 B2 C2 28 42 37 AA  58 29 3A 82 58 00 F0 14  |X)..(B7.X):.X...|
00000CD0: 36 0B 3A 4C B2 30 3A 81  58 B2 31 A4 48 46 3A 4C  |6.:L.0:.X.1.HF:L|
00000CE0: B2 4C AA 32 AA C3 28 46  24 28 58 29 29 3A 82 58  |.L.2..(F$(X)):.X|
00000CF0: 00 00 15 37 0B 8B 4C B3  B2 52 53 A7 32 38 37 35  |...7..L..RS.2875|
00000D00: 00 39 15 38 0B 99 22 12  52 45 43 4F 52 44 20 54  |.9.8..".RECORD T|
00000D10: 4F 4F 20 4C 41 52 47 45  2C 20 53 4B 49 50 20 49  |OO LARGE, SKIP I|
00000D20: 54 22 3A 58 B2 30 3A 58  33 B2 31 3A 8D 34 34 30  |T":X.0:X3.1:.440|
00000D30: 30 3A 8B 58 A7 32 38 38  30 00 43 15 39 0B 8D 33  |0:.X.2880.C.9..3|
00000D40: 37 30 30 00 77 15 3B 0B  3A 8D 20 32 31 30 30 3A  |700.w.;.:. 2100:|
00000D50: 8B 20 43 41 20 A7 20 81  58 B2 30 A4 37 3A 97 42  |. CA . .X.0.7:.B|
00000D60: 37 AA 58 2C 4D 4D 25 28  58 29 3A 82 58 3A 8F 20  |7.X,MM%(X):.X:. |
00000D70: 41 44 44 20 52 45 43 00  91 15 40 0B 3A 8B 20 45  |ADD REC...@.:. E|
00000D80: 46 B2 30 20 A7 20 89 20  32 38 34 35 3A 8F 2D 2D  |F.0 . . 2845:.--|
00000D90: 2D 00 A0 15 45 0B 8E 3A  8F 20 4E 4F 20 45 52 52  |-...E..:. NO ERR|
00000DA0: 00 BE 15 4A 0B 8B 43 4F  A7 58 24 B2 22 22 3A 89  |...J..CO.X$."":.|
00000DB0: 32 39 30 30 3A 8F 20 54  4F 54 20 54 45 58 00 DA  |2900:. TOT TEX..|
00000DC0: 15 4C 0B 3A 58 24 B2 22  20 22 3A 84 53 45 2C 58  |.L.:X$." ":.SE,X|
00000DD0: 24 3A 45 46 B2 45 46 AA  53 54 00 E0 15 4E 0B 8E  |$:EF.EF.ST...N..|
00000DE0: 00 EE 15 54 0B 8F 20 54  4F 54 20 54 45 58 00 1C  |...T.. TOT TEX..|
00000DF0: 16 59 0B A1 23 53 45 2C  47 24 3A 8B 47 24 B3 B1  |.Y..#SE,G$:.G$..|
00000E00: 52 24 AF 47 24 B3 B1 C7  28 31 36 36 29 A7 58 24  |R$.G$...(166).X$|
00000E10: B2 58 24 AA 47 24 3A 89  32 39 30 35 00 2B 16 5E  |.X$.G$:.2905.+.^|
00000E20: 0B 45 46 B2 45 46 AA 53  54 3A 8E 00 3F 16 E4 0C  |.EF.EF.ST:..?...|
00000E30: 8F 20 42 49 4E 41 52 59  20 53 45 41 52 43 48 00  |. BINARY SEARCH.|
00000E40: 64 16 E6 0C 54 4C B2 30  3A 54 48 B2 48 52 AA 31  |d...TL.0:TH.HR.1|
00000E50: 3A 8F 20 54 4F 4F 20 4C  4F 57 2C 20 54 4F 4F 20  |:. TOO LOW, TOO |
00000E60: 48 49 47 48 00 79 16 EE  0C 8B 54 48 AB 54 4C B2  |HIGH.y....TH.TL.|
00000E70: 31 A7 46 52 B2 54 48 3A  8E 00 B1 16 F3 0C 3A 50  |1.FR.TH:......:P|
00000E80: 25 B2 28 54 4C AA 54 48  29 AD 32 AA 2E 31 3A 57  |%.(TL.TH).2..1:W|
00000E90: 52 B2 50 4F 25 28 50 25  2C 57 4B 29 3A 8B 20 52  |R.PO%(P%,WK):. R|
00000EA0: 34 20 A7 20 8D 20 33 33  35 30 3A 89 20 33 33 31  |4 . . 3350:. 331|
00000EB0: 37 00 DD 16 F4 0C 3A 8D  20 34 33 30 30 3A 81 20  |7.....:. 4300:. |
00000EC0: 58 B2 31 20 A4 20 44 4B  3A 84 52 41 2C 58 24 28  |X.1 . DK:.RA,X$(|
00000ED0: 58 29 3A 82 20 58 3A 46  4F 24 B2 22 22 00 0D 17  |X):. X:FO$.""...|
00000EE0: F5 0C 3A 81 58 B2 31 A4  53 46 25 28 57 4B 2C 30  |..:.X.1.SF%(WK,0|
00000EF0: 29 3A 46 4F 24 B2 46 4F  24 AA 58 24 28 53 46 25  |):FO$.FO$.X$(SF%|
00000F00: 28 57 4B 2C 58 29 29 AA  5A 24 3A 82 58 00 2B 17  |(WK,X)).Z$:.X.+.|
00000F10: 02 0D 3A 8B 20 46 49 24  B3 B2 46 4F 24 20 A7 20  |..:. FI$..FO$ . |
00000F20: 54 48 B2 50 25 3A 89 33  33 31 30 00 3C 17 07 0D  |TH.P%:.3310.<...|
00000F30: 3A 54 4C B2 50 25 3A 89  33 33 31 30 00 78 17 16  |:TL.P%:.3310.x..|
00000F40: 0D 4C B2 31 3A 81 58 B2  31 A4 44 4B 3A CF 23 28  |.L.1:.X.1.DK:.#(|
00000F50: 52 41 29 2C 28 57 52 29  2C 28 4C 29 3A 84 52 41  |RA),(WR),(L):.RA|
00000F60: 2C 58 24 28 58 29 3A 4C  B2 4C AA C3 28 58 24 28  |,X$(X):L.L..(X$(|
00000F70: 58 29 29 AA 32 3A 82 58  00 7E 17 1B 0D 8E 00 89  |X)).2:.X.~......|
00000F80: 17 AC 0D 8F 20 4F 50 45  4E 00 A3 17 AE 0D 8B 20  |.... OPEN...... |
00000F90: 43 41 20 A7 20 9F 20 53  45 2C 31 2C 30 2C 4E 53  |CA . . SE,1,0,NS|
00000FA0: 24 3A 8E 00 BD 17 B1 0D  8B 20 44 54 B2 31 20 A7  |$:....... DT.1 .|
00000FB0: 20 51 56 B2 52 56 3A 89  20 33 35 34 30 00 06 18  | QV.RV:. 3540...|
00000FC0: B6 0D 3A 99 22 11 12 49  46 20 52 41 4E 44 4F 4D  |..:."..IF RANDOM|
00000FD0: 20 44 49 53 4B 20 49 53  20 49 4E 20 44 52 49 56  | DISK IS IN DRIV|
00000FE0: 45 20 31 20 22 52 24 22  12 41 4E 44 20 49 46 20  |E 1 "R$".AND IF |
00000FF0: 54 48 45 20 53 45 51 55  45 4E 54 49 41 4C 20 46  |THE SEQUENTIAL F|
00001000: 49 4C 45 20 22 3B 00 49  18 BB 0D 3A 99 22 49 53  |ILE ";.I...:."IS|
00001010: 20 4F 4E 20 41 20 53 45  50 41 52 41 54 45 20 44  | ON A SEPARATE D|
00001020: 49 53 4B 2C 20 22 52 24  22 12 54 48 45 4E 20 59  |ISK, "R$".THEN Y|
00001030: 4F 55 20 4D 55 53 54 20  4E 4F 57 20 52 45 4D 4F  |OU MUST NOW REMO|
00001040: 56 45 20 54 48 45 20 22  3B 00 6B 18 C0 0D 3A 99  |VE THE ";.k...:.|
00001050: 22 50 52 4F 47 52 41 4D  20 44 49 53 4B 20 46 52  |"PROGRAM DISK FR|
00001060: 4F 4D 20 44 52 49 56 45  20 30 22 00 9C 18 C5 0D  |OM DRIVE 0".....|
00001070: 3A 99 22 12 41 4E 44 20  52 45 50 4C 41 43 45 20  |:.".AND REPLACE |
00001080: 49 54 20 57 49 54 48 20  54 48 45 20 53 45 51 55  |IT WITH THE SEQU|
00001090: 45 4E 54 49 41 4C 20 44  49 53 4B 22 00 D6 18 CA  |ENTIAL DISK"....|
000010A0: 0D 3A 99 22 53 45 51 20  46 49 4C 45 20 44 52 49  |.:."SEQ FILE DRI|
000010B0: 56 45 20 4E 4F 3F 28 12  31 92 2F 12 30 92 29 22  |VE NO?(.1./.0.)"|
000010C0: 3A 47 31 24 B2 22 30 31  22 3A 8D 20 35 3A 51 56  |:G1$."01":. 5:QV|
000010D0: B2 C5 28 47 24 29 00 FA  18 CF 0D 3A 8B 20 51 56  |..(G$).....:. QV|
000010E0: B3 B1 52 56 20 A7 20 98  4B 4B 28 51 56 29 2C 22  |..RV . .KK(QV),"|
000010F0: 49 22 AA 44 52 24 28 51  56 29 00 24 19 D4 0D 9F  |I".DR$(QV).$....|
00001100: 20 53 45 2C 44 56 28 51  56 29 2C 53 45 2C 44 52  | SE,DV(QV),SE,DR|
00001110: 24 28 51 56 29 AA 22 3A  22 AA 4E 53 24 AA 22 2C  |$(QV).":".NS$.",|
00001120: 53 2C 52 22 00 32 19 D9  0D 56 4F B2 51 56 3A 8D  |S,R".2...VO.QV:.|
00001130: 20 38 00 38 19 DE 0D 8E  00 46 19 74 0E 8F 20 41  | 8.8.....F.t.. A|
00001140: 53 4B 20 52 45 43 00 5A  19 78 0E 43 4B B2 30 3A  |SK REC.Z.x.CK.0:|
00001150: 8F 20 43 4E 47 20 46 4C  47 47 00 6E 19 79 0E 4C  |. CNG FLGG.n.y.L|
00001160: B2 30 3A 81 20 57 46 B2  31 20 A4 20 48 46 00 90  |.0:. WF.1 . HF..|
00001170: 19 7E 0E 3A 99 20 46 54  24 28 57 46 29 22 3A 22  |.~.:. FT$(WF)":"|
00001180: 3A 58 24 B2 46 24 28 57  46 29 3A 8D 34 35 30 30  |:X$.F$(WF):.4500|
00001190: 00 D0 19 83 0E 3A 8B 58  24 B3 B1 46 24 28 57 46  |.....:.X$..F$(WF|
000011A0: 29 A7 81 58 B2 30 A4 48  4B 3A 81 44 B2 31 A4 53  |)..X.0.HK:.D.1.S|
000011B0: 46 25 28 58 2C 30 29 3A  43 4B B2 43 4B AB 28 57  |F%(X,0):CK.CK.(W|
000011C0: 46 B2 53 46 25 28 58 2C  44 29 29 3A 82 44 2C 58  |F.SF%(X,D)):.D,X|
000011D0: 00 EB 19 85 0E 3A 4C B2  4C AA C3 28 58 24 29 AA  |.....:L.L..(X$).|
000011E0: 32 3A 46 24 28 57 46 29  B2 58 24 00 16 1A 88 0E  |2:F$(WF).X$.....|
000011F0: 3A 82 20 57 46 3A 8B 20  4C B1 52 53 20 A7 20 99  |:. WF:. L.RS . .|
00001200: 22 52 45 43 20 54 4F 4F  20 4C 41 52 47 45 22 3A  |"REC TOO LARGE":|
00001210: 89 20 33 37 30 35 00 2D  1A 8D 0E 8D 33 3A 8B 20  |. 3705.-....3:. |
00001220: 47 24 B2 22 59 22 20 A7  20 33 37 30 35 00 33 1A  |G$."Y" . 3705.3.|
00001230: 92 0E 8E 00 45 1A 04 10  8F 20 57 52 49 54 45 20  |....E.... WRITE |
00001240: 41 20 52 45 43 00 70 1A  0E 10 58 24 B2 22 22 3A  |A REC.p...X$."":|
00001250: 81 20 58 B2 31 20 A4 20  48 46 3A 58 24 B2 58 24  |. X.1 . HF:X$.X$|
00001260: AA 51 24 AA 46 24 28 58  29 AA 52 24 3A 82 20 58  |.Q$.F$(X).R$:. X|
00001270: 00 93 1A 18 10 8B 20 52  34 20 A7 20 CF 23 28 52  |...... R4 . .#(R|
00001280: 41 29 2C 28 57 52 29 3A  98 28 52 41 29 2C 58 24  |A),(WR):.(RA),X$|
00001290: 3B 3A 8E 00 A6 1A 22 10  8D 20 34 33 30 30 3A 98  |;:....".. 4300:.|
000012A0: 52 41 2C 58 24 3B 00 DB  1A 27 10 98 4B 4B 28 52  |RA,X$;...'..KK(R|
000012B0: 56 29 2C 22 55 32 3A 22  52 41 3B 44 52 28 52 56  |V),"U2:"RA;DR(RV|
000012C0: 29 3B 54 25 28 42 4C 29  3B 53 25 28 42 4C 29 3A  |);T%(BL);S%(BL):|
000012D0: 56 4F B2 52 56 3A 8D 20  38 3A 8E 00 F2 1A CC 10  |VO.RV:. 8:......|
000012E0: 8F 20 50 4F 53 49 54 49  4F 4E 20 50 4F 49 4E 54  |. POSITION POINT|
000012F0: 45 52 00 0F 1B D1 10 42  4C B2 B5 28 28 57 52 AB  |ER.....BL..((WR.|
00001300: 31 29 AD 52 42 AA 2E 30  30 30 30 31 29 AA 31 00  |1).RB..00001).1.|
00001310: 46 1B D4 10 98 4B 4B 28  52 56 29 2C 22 55 31 3A  |F....KK(RV),"U1:|
00001320: 22 52 41 3B 44 52 28 52  56 29 3B 54 25 28 42 4C  |"RA;DR(RV);T%(BL|
00001330: 29 3B 53 25 28 42 4C 29  3A 56 4F B2 52 56 3A 8D  |);S%(BL):VO.RV:.|
00001340: 38 3A 8B 45 A7 8E 00 81  1B DB 10 58 B2 28 57 52  |8:.E.......X.(WR|
00001350: AB 31 29 AB 28 42 4C AB  31 29 AC 52 42 3A 8F 20  |.1).(BL.1).RB:. |
00001360: 4E 4F 2E 20 52 45 43 53  20 42 45 46 4F 52 20 54  |NO. RECS BEFOR T|
00001370: 48 49 53 20 49 4E 20 54  48 49 53 20 42 4C 4F 43  |HIS IN THIS BLOC|
00001380: 4B 00 A6 1B DF 10 42 50  B2 31 AA 52 53 AC 58 3A  |K.....BP.1.RS.X:|
00001390: 98 4B 4B 28 52 56 29 2C  22 42 2D 50 3A 22 3B 52  |.KK(RV),"B-P:";R|
000013A0: 41 3B 42 50 3A 8E 00 B1  1B 30 11 8F 20 59 45 53  |A;BP:....0.. YES|
000013B0: 3F 00 D5 1B 35 11 58 24  B2 CA 28 22 59 4E 22 2C  |?...5.X$..("YN",|
000013C0: 31 AB 28 28 58 AF 58 33  29 B2 30 29 2C 31 29 3A  |1.((X.X3).0),1):|
000013D0: 8D 34 35 30 30 00 0D 1C  37 11 8B 20 58 24 B3 B1  |.4500...7.. X$..|
000013E0: 22 59 22 AF 58 24 B3 B1  22 4E 22 A7 99 22 12 50  |"Y".X$.."N"..".P|
000013F0: 4C 45 41 53 45 20 41 4E  53 57 45 52 20 20 59 20  |LEASE ANSWER  Y |
00001400: 20 4F 52 20 20 4E 22 3A  89 34 34 30 30 00 3B 1C  | OR  N":.4400.;.|
00001410: 3A 11 58 24 B2 C8 28 58  24 2C 31 29 3A 58 B2 28  |:.X$..(X$,1):X.(|
00001420: 20 58 AF 28 A8 20 58 33  29 20 B0 20 28 58 24 B2  | X.(. X3) . (X$.|
00001430: 22 59 22 29 AF 58 33 20  29 3A 8E 00 60 1C 94 11  |"Y").X3 ):..`...|
00001440: 99 58 24 C8 28 4C 45 24  2C C3 28 58 24 29 29 3B  |.X$.(LE$,.(X$));|
00001450: 3A 43 58 B2 31 3A 8F 20  47 41 52 44 20 49 4E 50  |:CX.1:. GARD INP|
00001460: 00 93 1C 99 11 4D 24 B2  CA 28 58 24 AA 22 20 22  |.....M$..(X$." "|
00001470: 2C 43 58 2C 31 29 3A 99  22 12 22 4D 24 22 92 9D  |,CX,1):."."M$"..|
00001480: 22 3B 3A A1 47 24 3A 8B  47 24 B2 22 22 A7 8D 34  |";:.G$:.G$.""..4|
00001490: 35 36 35 00 C6 1C 9E 11  3A 41 B2 C6 28 47 24 29  |565.....:A..(G$)|
000014A0: 3A 99 4D 24 22 9D 22 3B  3A 8B 28 41 20 AF 20 31  |:.M$".";:.(A . 1|
000014B0: 32 37 29 B3 33 32 B0 43  58 B1 37 37 B0 41 B2 33  |27).32.CX.77.A.3|
000014C0: 34 A7 34 35 32 30 00 FB  1C A3 11 3A 20 99 47 24  |4.4520.....: .G$|
000014D0: 3B 3A 58 24 B2 C8 28 58  24 2C 43 58 AB 31 29 AA  |;:X$..(X$,CX.1).|
000014E0: 47 24 AA CA 28 58 24 2C  43 58 AA 31 29 3A 43 58  |G$..(X$,CX.1):CX|
000014F0: B2 43 58 AA 31 3A 89 34  35 30 35 00 25 1D A8 11  |.CX.1:.4505.%...|
00001500: 3A 8B 41 B2 31 35 37 A7  8B 43 58 B1 31 A7 43 58  |:.A.157..CX.1.CX|
00001510: B2 43 58 AB 31 3A 99 47  24 3B 3A 89 34 35 30 35  |.CX.1:.G$;:.4505|
00001520: 3A 8F 20 4C 46 00 50 1D  AD 11 3A 8B 41 B2 32 39  |:. LF.P...:.A.29|
00001530: AF 43 58 B3 B2 C3 28 58  24 29 A7 43 58 B2 43 58  |.CX...(X$).CX.CX|
00001540: AA 31 3A 99 47 24 3B 3A  89 34 35 30 35 3A 52 49  |.1:.G$;:.4505:RI|
00001550: 00 66 1D B2 11 3A 8B 41  B2 31 33 A7 34 35 38 30  |.f...:.A.13.4580|
00001560: 3A 8F 20 52 45 54 00 9B  1D B7 11 3A 8B 41 B2 32  |:. RET.....:.A.2|
00001570: 30 A7 8B 43 58 B1 31 A7  99 47 24 3B 3A 58 24 B2  |0..CX.1..G$;:X$.|
00001580: C8 28 58 24 2C 43 58 AB  32 29 AA CA 28 58 24 2C  |.(X$,CX.2)..(X$,|
00001590: 43 58 29 3A 43 58 B2 43  58 AB 31 00 B6 1D BC 11  |CX):CX.CX.1.....|
000015A0: 3A 8B 41 B2 31 34 38 AF  C3 28 58 24 29 B3 37 38  |:.A.148..(X$).78|
000015B0: A7 8D 34 35 35 35 00 DB  1D C1 11 3A 8B 41 B2 31  |..4555.....:.A.1|
000015C0: 34 37 A7 4C B2 C3 28 58  24 29 3A 8D 34 35 36 30  |47.L..(X$):.4560|
000015D0: 3A 43 58 B2 31 3A 58 24  B2 22 22 00 E6 1D C6 11  |:CX.1:X$."".....|
000015E0: 3A 89 34 35 30 35 00 15  1E CB 11 58 24 B2 C8 28  |:.4505.....X$..(|
000015F0: 58 24 2C 43 58 AB 31 29  AA 22 20 22 AA CA 28 58  |X$,CX.1)." "..(X|
00001600: 24 2C 43 58 29 3A 99 47  24 22 20 9D 22 3B 3A 8E  |$,CX):.G$" .";:.|
00001610: 3A 8F 20 49 4E 00 3E 1E  D0 11 99 C8 28 4C 45 24  |:. IN.>.....(LE$|
00001620: 2C 43 58 AB 31 29 C8 28  53 50 24 2C 4C 29 C8 28  |,CX.1).(SP$,L).(|
00001630: 4C 45 24 2C 4C 29 3B 3A  8E 3A 8F 20 43 4C 00 6C  |LE$,L);:.:. CL.l|
00001640: 1E D5 11 99 22 12 22 4D  24 22 9D 92 22 3B 3A 81  |...."."M$"..";:.|
00001650: 57 B2 31 A4 35 30 3A A1  47 24 3A 8B 47 24 B3 B1  |W.1.50:.G$:.G$..|
00001660: 22 22 A7 99 4D 24 22 9D  22 3B 3A 8E 00 92 1E DA  |""..M$".";:.....|
00001670: 11 3A 82 57 3A 99 4D 24  22 9D 22 3B 3A 81 57 B2  |.:.W:.M$".";:.W.|
00001680: 31 A4 35 30 3A A1 47 24  3A 8B 47 24 B3 B1 22 22  |1.50:.G$:.G$..""|
00001690: A7 8E 00 A0 1E DF 11 3A  82 57 3A 89 34 35 36 35  |.......:.W:.4565|
000016A0: 00 C2 1E E4 11 8B C8 28  58 24 2C 31 29 B2 22 20  |.......(X$,1)." |
000016B0: 22 A7 58 24 B2 CA 28 58  24 2C 32 29 3A 89 34 35  |".X$..(X$,2):.45|
000016C0: 38 30 00 EB 1E E9 11 3A  8B C9 28 58 24 2C 31 29  |80.....:..(X$,1)|
000016D0: B2 22 20 22 A7 58 24 B2  C8 28 58 24 2C C3 28 58  |." ".X$..(X$,.(X|
000016E0: 24 29 AB 31 29 3A 89 34  35 38 35 00 F4 1E EE 11  |$).1):.4585.....|
000016F0: 3A 99 3A 8E 00 05 1F C0  12 8F 20 41 53 4B 20 4E  |:.:....... ASK N|
00001700: 55 4D 42 45 52 00 36 1F  CA 12 58 24 B2 CA 28 C4  |UMBER.6...X$..(.|
00001710: 28 58 29 2C 32 29 3A 8D  34 35 30 30 3A 58 B2 C5  |(X),2):.4500:X..|
00001720: 28 58 24 29 3A 8B 58 B2  30 AF 58 24 B3 B1 22 30  |(X$):.X.0.X$.."0|
00001730: 22 A7 34 38 31 32 00 49  1F CB 12 8B 58 B2 B1 58  |".4812.I....X..X|
00001740: 31 AF 58 B2 B3 58 32 A7  8E 00 77 1F CC 12 99 22  |1.X..X2...w...."|
00001750: 12 49 4C 4C 45 47 41 4C  20 45 4E 54 52 59 20 2D  |.ILLEGAL ENTRY -|
00001760: 20 50 4C 45 41 53 45 20  45 4E 54 45 52 20 41 20  | PLEASE ENTER A |
00001770: 4E 55 4D 42 45 52 22 00  9F 1F CF 12 99 22 12 49  |NUMBER"......".I|
00001780: 4E 20 54 48 45 20 52 41  4E 47 45 20 4F 46 22 58  |N THE RANGE OF"X|
00001790: 31 22 9D 20 54 4F 22 58  32 3A 89 34 38 30 30 00  |1". TO"X2:.4800.|
000017A0: AE 1F 50 14 8F 20 43 48  55 4E 4B 20 55 50 00 F0  |..P.. CHUNK UP..|
000017B0: 1F 55 14 8F 20 20 20 46  4F 52 20 58 3D 54 52 20  |.U..   FOR X=TR |
000017C0: 54 4F 20 42 52 20 53 54  45 50 2D 31 3A 50 4F 25  |TO BR STEP-1:PO%|
000017D0: 28 58 2B 31 2C 57 4B 29  3D 50 4F 25 28 58 2C 57  |(X+1,WK)=PO%(X,W|
000017E0: 4B 29 3A 4E 45 58 54 20  58 3A 52 45 54 55 52 4E  |K):NEXT X:RETURN|
000017F0: 00 11 20 5A 14 53 B2 28  54 52 29 AC 32 3A 44 B2  |.. Z.S.(TR).2:D.|
00001800: 28 54 52 AA 31 29 AC 32  3A 45 B2 28 42 52 29 AC  |(TR.1).2:E.(BR).|
00001810: 32 00 25 20 5F 14 8D 35  39 30 30 3A 9E 20 4D 4C  |2.% _..5900:. ML|
00001820: AA 35 31 3A 8E 00 37 20  0C 17 8F 20 50 41 53 53  |.51:..7 ... PASS|
00001830: 20 50 41 52 41 4D 53 00  68 20 11 17 58 B2 C2 28  | PARAMS.h ..X..(|
00001840: 5A 56 AA 32 29 AA 32 35  36 AC C2 28 5A 56 AA 33  |ZV.2).256..(ZV.3|
00001850: 29 AA 39 AA 41 4F 3A 8F  20 50 4F 53 20 4F 46 20  |).9.AO:. POS OF |
00001860: 50 4F 25 28 30 2C 30 29  00 9A 20 12 17 58 B2 58  |PO%(0,0).. ..X.X|
00001870: AA 28 4D 52 AA 31 29 AC  32 AC 57 4B 3A 8F 20 50  |.(MR.1).2.WK:. P|
00001880: 4F 53 20 4F 46 20 50 4F  25 28 30 2C 57 4B 29 20  |OS OF PO%(0,WK) |
00001890: 48 49 20 4C 4F 20 42 59  54 45 00 BE 20 16 17 97  |HI LO BYTE.. ...|
000018A0: 20 42 37 2C 28 58 AA 53  29 AF 32 35 35 3A 97 20  | B7,(X.S).255:. |
000018B0: 42 37 AA 31 2C 28 58 AA  53 29 AD 32 35 36 00 E4  |B7.1,(X.S).256..|
000018C0: 20 1B 17 97 20 42 37 AA  32 2C 28 58 AA 44 29 AF  | ... B7.2,(X.D).|
000018D0: 32 35 35 3A 97 20 42 37  AA 33 2C 28 58 AA 44 29  |255:. B7.3,(X.D)|
000018E0: AD 32 35 36 00 0A 21 20  17 97 20 42 37 AA 34 2C  |.256..! .. B7.4,|
000018F0: 28 58 AA 45 29 AF 32 35  35 3A 97 20 42 37 AA 35  |(X.E).255:. B7.5|
00001900: 2C 28 58 AA 45 29 AD 32  35 36 00 10 21 25 17 8E  |,(X.E).256..!%..|
00001910: 00 20 21 F0 23 8F 20 4C  4F 41 44 20 50 52 4F 47  |. !.#. LOAD PROG|
00001920: 00 57 21 F1 23 A0 20 52  41 3A 8B 20 44 54 B2 31  |.W!.#. RA:. DT.1|
00001930: 20 AF 20 52 56 B2 31 20  A7 20 99 22 11 12 49 4E  | . RV.1 . ."..IN|
00001940: 53 45 52 54 20 50 52 4F  47 52 41 4D 20 44 49 53  |SERT PROGRAM DIS|
00001950: 4B 22 3A 8D 20 31 30 00  7A 21 F5 23 98 4B 4B 28  |K":. 10.z!.#.KK(|
00001960: 30 29 2C 22 49 30 22 3A  99 22 11 28 4C 4F 41 44  |0),"I0":.".(LOAD|
00001970: 49 4E 47 20 22 58 24 22  29 22 00 AD 21 FA 23 9F  |ING "X$")"..!.#.|
00001980: 20 53 45 2C 38 2C 53 45  2C 22 30 3A 22 AA 58 24  | SE,8,SE,"0:".X$|
00001990: AA 22 2C 50 2C 52 22 3A  56 4F B2 30 3A 8D 20 38  |.",P,R":VO.0:. 8|
000019A0: 3A A0 20 53 45 3A 8B 20  45 20 A7 20 8E 00 C4 21  |:. SE:. E . ...!|
000019B0: FF 23 8B 20 4C 49 B3 32  35 33 20 A7 20 97 20 49  |.#. LI.253 . . I|
000019C0: 56 2C 4C 49 00 D6 21 04  24 93 20 22 30 3A 22 AA  |V,LI..!.$. "0:".|
000019D0: 58 24 2C 38 3A 90 00 E4  21 54 24 8F 20 4F 50 45  |X$,8:...!T$. OPE|
000019E0: 4E 20 52 41 00 13 22 59  24 8B 20 44 54 B2 31 20  |N RA.."Y$. DT.1 |
000019F0: AF 20 52 56 B2 31 20 A7  20 99 22 11 12 49 4E 53  |. RV.1 . ."..INS|
00001A00: 45 52 54 20 44 41 54 41  20 44 49 53 4B 22 3A 8D  |ERT DATA DISK":.|
00001A10: 20 31 30 00 2A 22 5B 24  98 4B 4B 28 52 56 29 2C  | 10.*"[$.KK(RV),|
00001A20: 22 49 22 44 52 24 28 52  56 29 00 60 22 5E 24 9F  |"I"DR$(RV).`"^$.|
00001A30: 20 53 45 2C 44 56 28 52  56 29 2C 53 45 2C 44 52  | SE,DV(RV),SE,DR|
00001A40: 24 28 52 56 29 AA 22 3A  44 42 22 AA C7 28 33 34  |$(RV).":DB"..(34|
00001A50: AA 31 32 38 29 AA 4E 41  24 AA 22 2C 53 2C 52 22  |.128).NA$.",S,R"|
00001A60: 00 7B 22 60 24 56 4F B2  52 56 3A 8D 20 38 3A A0  |.{"`$VO.RV:. 8:.|
00001A70: 20 53 45 3A 8B 20 45 20  A7 20 8E 00 99 22 63 24  | SE:. E . ..."c$|
00001A80: 9F 20 52 41 2C 44 56 28  52 56 29 2C 52 41 2C 22  |. RA,DV(RV),RA,"|
00001A90: 23 22 3A 42 4C B2 30 3A  8E 00 00 00 29 97 20 45  |#":BL.0:....). E|
00001AA0: 49                                                |I               |

............. 1100.H....15,8,15,"I0":.15
,"S0:LOAD SEQ":."0:LOAD SEQ",8:..Q...."C
ORRECTIONS?(.Y./.N.)":G1$."YN":.5.....4
,4:.4:.......G$:.V.1.C(G1$):.G$..J(G1$,V
,1)..V:.5.......K....KK(VO),E,E$,S,T:.E.
2........"DISK ERROR:"E;E$;S;T......"..R
.EADY?":G1$."R":.5:....... MAIN. .... RE
M SET UP.1.... ADD RECORD.@.... RECOVERY
.J.... ASK.Y.... LOAD SEQ.G.... TOT TEX.
{.!.. BINARY SEARCH...#.. OPEN...%.. ASK
 REC...).. WRITE REC...+.. POSITION POIN
TER.F.,.. YES?.W.0.. ASK NUMBER...4.. CH
UNK UP...;.. PASS PARAMS...\.. LOAD PROG
...].. OPEN RA.!.L.. MAIN.<.Q.. 9300:. 1
200:. SET UP.X.V.. 2700:. E . 1150:. ASK
.}.`.:. 3500:. E .   SE:. 1150:. OPEN...
E.:. 2800:SP.1:  SE:. LOAD...O.. 1900:. 
DT.1 . . 1150:. SAVE BK...T.:.".........
...REPLACE THE PROGRAM DISK IN DRIVE 0 I
F NECESSARY".$.Y.:. 10:. RV..0 . .KK(0),
"I0".F.~.. CA . . 1300:. TEST RECORDER.G
...X$."FILE MENU":. 9200:. 1150.X.... RE
M SET UP...... LI.253 . . IV,LI.3.A...CA
.0:. HQ.0 . HQ.HF:. X.1 . MD:AR%(X).X:. 
X.G.....X.... RECORD OFF.....:. ML.44:. 
B(B7.8). ....#..".PRESS STOP ON RECORDER
":.10:. 1305.,.L.. SAVE BOOK.\.Q.  SE:UK
.WK:.".(SCRATCHING OLD BOOKKEEPING)"...V
.:.KK(RV),"S".DR$(RV).":DB.".NA$:VO.RV:.
 8:. E.1 . ..R.|.. SE,DV(RV),SE,DR$(RV).
":DB.".NA$.",S,W":VO.RV:. 8:.E . .......
SE,MR;R$HR;R$RS;R$HB;R$HF;R$SF;R$RB;R$HK
;R$WK;R$DK;R$DE;R$MC;R$;.@.... WF.1 . HF
:.SE,Q$;FT$(WF);R$;:. WF.L.... D.0.5:. X
.0.HK:.SE,SF%(X,D);R$;:. X,D......"(SAVI
NG POINTERS)".....:. X.0.HK:. RR.1 . HR:
.SE,PO%(RR,X);R$;:. RR:.X...... R3 . ."(
SAVING BLOCK MAP)":. X.1.10:. X.....:. R
3 . . WB.1 . HB:.SE," "T%(WB)R$" "S%(WB)
R$;:.WB.Q....R4.N#(RA):M#(RA),("RA.".NA$
),L(RS),D(DR(RV)).Q....X.1.HF:.SE," "MF%
(X)R$;:.X.....SP.0:  SE:VO.RV:. 8:....4.
. ADD RECORD...5..HR.MR . ."OUT OF ROOM"
:....6.."ADDING RECORD#"HR.1:L.0:.      
     :GOSUB4500.*.9..      IF G$<>"R"THE
N FOR WF=1 TO HF:F$(WF)="":NEXT WF.Q.>..
     GOSUB 3700:REM KBD REC INPUT.L.C.UK
.WK:. WK.0.HK:FI$.""...D.:. D.1.SF%(WK,0
):FI$.FI$.F$(SF%(WK,D)).Z$:. D:. 3300:.S
RCH.Z.H.:. FR.HR.1 . BR.FR:TR.HR:. 5200:
. CHUNK UP...M.:PO%(FR,WK).HR.1:.WK.UK. 
RR.FR...N.. WK:HR.HR.1:WK.UK.1.R.WR.HR:.
4100:.:. WRT,DISP.;.... ASK.E...E.0:.". 
   .LOAD FROM SEQUENTIAL FILE......".NAM
E OF SEQ FILE? (LEAVE BLANK TO RETURN TO
 FILE MENU)".L...X$.NS$:.4500:NS$.X$:. N
S$."". E.1:.......NS$."MYSELF".2765.#...
.".IS SEQ FILE IN .PRACTICALC. FORMAT?":
X.0:X3.1:.4400:PC.X.0....PC.2720.T....".
DOES SEQ FILE REQUIRE SINGLE CHAR READ?"
:X.0:X3.1:.4400:CO.X... ..".FILE ON CASS
ETTE? (N=DISK)":X.CA:X3..1:.4400:CA.X...
...".RANDOM FIELDS:":. WF.1 . HF:.WF;FT$
(WF):. WF......"HOW MANY FIELDS DOES THE
 SEQ FILE HAVE?"./...X.HQ:X1.1:X2.MD:.48
00:HQ.X.O...:. WF.1 . HF:F$(WF)."":. WF.
_.... WF.1 . HF.....:. "RAN FIELD NO" WF
 "SHOULD BE LOADED WITH SEQ FIELD NO:".G
...:."(ENTER  0  TO LEAVE FIELD BLANK)".
..C.:X.AR%(WF):X1.0:X2.HQ:.4800:AR%(WF).
X...H.. WF...M..3:. G$."Y" . 2700...R.:.
.'.... LOAD SEQ.V...EF.0:.PC..2890:X4.E(
X$).1:.2890:HQ.E(X$).1...... HR..MR . ."
..NOT ENOUGH ROOM IN RAN FILE":. 10:. 28
85......PC.X4.X4.1:.X4.0.2885.D.".:. WQ.
1 . HQ:.2890...,.X.0:.PC.0.A.64:.2866...
-.X.X.1:A.F(J(X$.R$,X)):.A.92.A.34.2861.
.....A.255.2885.-./..A.64..2890:.2866.C.
0..A.16..2890:.2868.B.1.X$.J(X$,X.1):.X$
."".X$." "...2.: . WF.1 . HF:. AR%(WF).W
Q . F$(WF).X$...3..WF:.(A.64).0..2890.M.
4..WQ:. CA . .X.0.7:MM%(X).B(B7.X):.X...
6.:L.0:.X.1.HF:L.L.2.C(F$(X)):.X...7..L.
.RS.2875.9.8..".RECORD TOO LARGE, SKIP I
T":X.0:X3.1:.4400:.X.2880.C.9..3700.W.;.
:. 2100:. CA . .X.0.7:.B7.X,MM%(X):.X:. 
ADD REC...@.:. EF.0 . . 2845:.---. .E..:
. NO ERR...J..CO.X$."":.2900:. TOT TEX.Z
.L.:X$." ":.SE,X$:EF.EF.ST...N.....T.. T
OT TEX...Y..#SE,G$:.G$..R$.G$..G(166).X$
.X$.G$:.2905.+.^.EF.EF.ST:..?.... BINARY
 SEARCH.D...TL.0:TH.HR.1:. TOO LOW, TOO 
HIGH.Y....TH.TL.1.FR.TH:......:P%.(TL.TH
).2..1:WR.PO%(P%,WK):. R4 . . 3350:. 331
7.....:. 4300:. X.1 . DK:.RA,X$(X):. X:F
O$."".....:.X.1.SF%(WK,0):FO$.FO$.X$(SF%
(WK,X)).Z$:.X.+...:. FI$..FO$ . TH.P%:.3
310.<...:TL.P%:.3310.X...L.1:.X.1.DK:O#(
RA),(WR),(L):.RA,X$(X):L.L.C(X$(X)).2:.X
.~.......... OPEN...... CA . . SE,1,0,NS
$:....... DT.1 . QV.RV:. 3540.....:."..I
F RANDOM DISK IS IN DRIVE 1 "R$".AND IF 
THE SEQUENTIAL FILE ";.I...:."IS ON A SE
PARATE DISK, "R$".THEN YOU MUST NOW REMO
VE THE ";.K...:."PROGRAM DISK FROM DRIVE
 0"...E.:.".AND REPLACE IT WITH THE SEQU
ENTIAL DISK".V.J.:."SEQ FILE DRIVE NO?(.
1./.0.)":G1$."01":. 5:QV.E(G$)...O.:. QV
..RV . .KK(QV),"I".DR$(QV).$.T.. SE,DV(Q
V),SE,DR$(QV).":".NS$.",S,R".2.Y.VO.QV:.
 8.8.....F.T.. ASK REC.Z.X.CK.0:. CNG FL
GG.N.Y.L.0:. WF.1 . HF...~.:. FT$(WF)":"
:X$.F$(WF):.4500.P...:.X$..F$(WF)..X.0.H
K:.D.1.SF%(X,0):CK.CK.(WF.SF%(X,D)):.D,X
.....:L.L.C(X$).2:F$(WF).X$.....:. WF:. 
L.RS . ."REC TOO LARGE":. 3705.-....3:. 
G$."Y" . 3705.3.....E.... WRITE A REC.P.
..X$."":. X.1 . HF:X$.X$.Q$.F$(X).R$:. X
...... R4 . O#(RA),(WR):.(RA),X$;:....".
. 4300:.RA,X$;...'..KK(RV),"U2:"RA;DR(RV
);T%(BL);S%(BL):VO.RV:. 8:....L.. POSITI
ON POINTER...Q.BL..((WR.1).RB..00001).1.
F.T..KK(RV),"U1:"RA;DR(RV);T%(BL);S%(BL)
:VO.RV:.8:.E.......X.(WR.1).(BL.1).RB:. 
NO. RECS BEFOR THIS IN THIS BLOCK.....BP
.1.RS.X:.KK(RV),"B-P:";RA;BP:....0.. YES
?.U.5.X$.J("YN",1.((X.X3).0),1):.4500...
7.. X$.."Y".X$.."N"..".PLEASE ANSWER  Y 
 OR  N":.4400.;.:.X$.H(X$,1):X.( X.(. X3
) . (X$."Y").X3 ):..`....X$H(LE$,C(X$));
:CX.1:. GARD INP.....M$.J(X$." ",CX,1):.
"."M$"..";:.G$:.G$.""..4565.F...:A.F(G$)
:.M$".";:.(A . 127).32.CX.77.A.34.4520..
...: .G$;:X$.H(X$,CX.1).G$.J(X$,CX.1):CX
.CX.1:.4505.%...:.A.157..CX.1.CX.CX.1:.G
$;:.4505:. LF.P...:.A.29.CX..C(X$).CX.CX
.1:.G$;:.4505:RI.F...:.A.13.4580:. RET..
...:.A.20..CX.1..G$;:X$.H(X$,CX.2).J(X$,
CX):CX.CX.1.....:.A.148.C(X$).78..4555..
.A.:.A.147.L.C(X$):.4560:CX.1:X$.""...F.
:.4505...K.X$.H(X$,CX.1)." ".J(X$,CX):.G
$" .";:.:. IN.>.P..H(LE$,CX.1)H(SP$,L)H(
LE$,L);:.:. CL.L.U.."."M$"..";:.W.1.50:.
G$:.G$..""..M$".";:....Z.:.W:.M$".";:.W.
1.50:.G$:.G$..""... ...:.W:.4565.B....H(
X$,1)." ".X$.J(X$,2):.4580.....:.I(X$,1)
." ".X$.H(X$,C(X$).1):.4585.....:.:.....
.. ASK NUMBER.6.J.X$.J(D(X),2):.4500:X.E
(X$):.X.0.X$.."0".4812.I.K..X..X1.X..X2.
..W.L..".ILLEGAL ENTRY - PLEASE ENTER A 
NUMBER"...O..".IN THE RANGE OF"X1". TO"X
2:.4800...P.. CHUNK UP...U..   FOR X=TR 
TO BR STEP-1:PO%(X+1,WK)=PO%(X,WK):NEXT 
X:RETURN.. Z.S.(TR).2:D.(TR.1).2:E.(BR).
2.% _..5900:. ML.51:..7 ... PASS PARAMS.
H ..X.B(ZV.2).256.B(ZV.3).9.AO:. POS OF 
PO%(0,0).. ..X.X.(MR.1).2.WK:. POS OF PO
%(0,WK) HI LO BYTE.. ... B7,(X.S).255:. 
B7.1,(X.S).256.. ... B7.2,(X.D).255:. B7
.3,(X.D).256..! .. B7.4,(X.E).255:. B7.5
,(X.E).256..!%... !.#. LOAD PROG.W!.#  R
A:. DT.1 . RV.1 . ."..INSERT PROGRAM DIS
K":. 10.Z!.#.KK(0),"I0":.".(LOADING "X$"
)"..!.#. SE,8,SE,"0:".X$.",P,R":VO.0:. 8
:  SE:. E . ..D!.#. LI.253 . . IV,LI.V!.
$. "0:".X$,8:...!T$. OPEN RA.."Y$. DT.1 
. RV.1 . ."..INSERT DATA DISK":. 10.*"[$
.KK(RV),"I"DR$(RV).`"^$. SE,DV(RV),SE,DR
$(RV).":DB".G(34.128).NA$.",S,R".{"`$VO.
RV:. 8:  SE:. E . ..."C$. RA,DV(RV),RA,"
#":BL.0:....). EI

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL