BATCH ENTRY

00000000: 01 04 15 04 00 00 8F 20  35 2F 31 30 2F 38 30 20  |....... 5/10/80 |
00000010: 20 39 3A 32 30 00 20 04  01 00 89 20 31 31 30 30  | 9:20. .... 1100|
00000020: 00 58 04 02 00 A0 31 35  3A 9F 20 31 35 2C 38 2C  |.X....15:. 15,8,|
00000030: 31 35 2C 22 53 30 3A 42  41 54 43 48 20 45 4E 54  |15,"S0:BATCH ENT|
00000040: 52 59 22 3A 94 22 30 3A  42 41 54 43 48 20 45 4E  |RY":."0:BATCH EN|
00000050: 54 52 59 22 2C 38 3A 80  00 84 04 03 00 99 22 43  |TRY",8:......."C|
00000060: 4F 52 52 45 43 54 49 4F  4E 53 3F 28 12 59 92 2F  |ORRECTIONS?(.Y./|
00000070: 12 4E 92 29 22 3A 47 31  24 B2 22 59 4E 22 3A 8D  |.N.)":G1$."YN":.|
00000080: 20 35 3A 8E 00 9A 04 04  00 9F 34 2C 34 3A 9D 34  | 5:.......4,4:.4|
00000090: 3A 99 22 93 22 3B 3A 9B  3A AC 00 C4 04 05 00 A1  |:.".";:.:.......|
000000A0: 47 24 3A 81 56 B2 31 A4  C3 28 47 31 24 29 3A 8B  |G$:.V.1..(G1$):.|
000000B0: 47 24 B3 B1 CA 28 47 31  24 2C 56 2C 31 29 A7 82  |G$...(G1$,V,1)..|
000000C0: 56 3A 89 35 00 CA 04 06  00 8E 00 E6 04 08 00 84  |V:.5............|
000000D0: 4B 4B 28 56 4F 29 2C 45  2C 45 24 2C 53 2C 54 3A  |KK(VO),E,E$,S,T:|
000000E0: 8B 45 B3 32 A7 8E 00 01  05 09 00 99 22 44 49 53  |.E.2........"DIS|
000000F0: 4B 20 45 52 52 4F 52 3A  22 45 3B 45 24 3B 53 3B  |K ERROR:"E;E$;S;|
00000100: 54 00 1F 05 0A 00 99 22  11 12 52 92 45 41 44 59  |T......"..R.EADY|
00000110: 3F 22 3A 47 31 24 B2 22  52 22 3A 8D 35 3A 8E 00  |?":G1$."R":.5:..|
00000120: 2A 05 0B 00 8F 20 4D 41  49 4E 00 38 05 0C 00 8F  |*.... MAIN.8....|
00000130: 20 53 45 54 55 50 20 32  00 48 05 13 00 8F 20 53  | SETUP 2.H.... S|
00000140: 41 56 45 20 42 4F 4F 4B  00 59 05 15 00 8F 20 41  |AVE BOOK.Y.... A|
00000150: 44 44 20 52 45 43 4F 52  44 00 6B 05 17 00 8F 20  |DD RECORD.k.... |
00000160: 53 41 56 45 20 46 4F 52  4D 41 54 00 7D 05 19 00  |SAVE FORMAT.}...|
00000170: 8F 20 4C 4F 41 44 20 46  4F 52 4D 41 54 00 91 05  |. LOAD FORMAT...|
00000180: 1B 00 8F 20 43 48 41 4E  47 45 20 46 4F 52 4D 41  |... CHANGE FORMA|
00000190: 54 00 A5 05 21 00 8F 20  42 49 4E 41 52 59 20 53  |T...!.. BINARY S|
000001A0: 45 41 52 43 48 00 B7 05  23 00 8F 20 44 49 53 50  |EARCH...#.. DISP|
000001B0: 4C 41 59 20 52 45 43 00  C5 05 25 00 8F 20 41 53  |LAY REC...%.. AS|
000001C0: 4B 20 52 45 43 00 D7 05  29 00 8F 20 57 52 49 54  |K REC...).. WRIT|
000001D0: 45 20 41 20 52 45 43 00  EE 05 2B 00 8F 20 50 4F  |E A REC...+.. PO|
000001E0: 53 49 54 49 4F 4E 20 50  4F 49 4E 54 45 52 00 F9  |SITION POINTER..|
000001F0: 05 2C 00 8F 20 59 45 53  3F 00 08 06 34 00 8F 20  |.,.. YES?...4.. |
00000200: 43 48 55 4E 4B 20 55 50  00 18 06 35 00 8F 20 4F  |CHUNK UP...5.. O|
00000210: 50 45 4E 20 46 4F 52 4D  00 2A 06 3B 00 8F 20 50  |PEN FORM.*.;.. P|
00000220: 41 53 53 20 50 41 52 41  4D 53 00 36 06 3D 00 8F  |ASS PARAMS.6.=..|
00000230: 20 45 4E 54 52 59 00 48  06 3E 00 8F 20 4D 45 52  | ENTRY.H.>.. MER|
00000240: 47 45 20 42 41 54 43 48  00 59 06 40 00 8F 20 4F  |GE BATCH.Y.@.. O|
00000250: 50 45 4E 20 42 41 54 43  48 00 64 06 5B 00 8F 20  |PEN BATCH.d.[.. |
00000260: 45 58 49 54 00 6F 06 4C  04 8F 20 4D 41 49 4E 00  |EXIT.o.L.. MAIN.|
00000270: 89 06 4E 04 8D 20 39 33  30 30 3A 8D 20 31 32 30  |..N.. 9300:. 120|
00000280: 30 3A 8F 20 53 45 54 55  50 00 AB 06 51 04 99 22  |0:. SETUP...Q.."|
00000290: 93 11 1D 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 1D 12 42  |...............B|
000002A0: 41 54 43 48 20 45 4E 54  52 59 22 00 C1 06 53 04  |ATCH ENTRY"...S.|
000002B0: 99 22 11 12 4C 92 4F 41  44 20 46 4F 52 4D 41 54  |."..L.OAD FORMAT|
000002C0: 22 00 E3 06 56 04 99 22  11 12 43 92 52 45 41 54  |"...V.."..C.REAT|
000002D0: 45 20 4F 52 20 43 48 41  4E 47 45 20 46 4F 52 4D  |E OR CHANGE FORM|
000002E0: 41 54 22 00 F9 06 5B 04  99 22 11 12 53 92 41 56  |AT"...[.."..S.AV|
000002F0: 45 20 46 4F 52 4D 41 54  22 00 0E 07 60 04 99 22  |E FORMAT"...`.."|
00000300: 11 12 45 92 4E 54 45 52  20 44 41 54 41 22 00 2E  |..E.NTER DATA"..|
00000310: 07 62 04 99 22 11 12 5E  92 20 52 45 54 55 52 4E  |.b.."..^. RETURN|
00000320: 20 54 4F 20 46 49 4C 45  20 4D 45 4E 55 22 00 61  | TO FILE MENU".a|
00000330: 07 65 04 47 31 24 B2 22  4C 43 53 45 5E 22 3A 8D  |.e.G1$."LCSE^":.|
00000340: 20 35 3A 91 20 56 20 8D  20 32 35 30 30 2C 32 37  | 5:. V . 2500,27|
00000350: 30 30 2C 32 33 30 30 2C  36 31 30 30 2C 39 31 30  |00,2300,6100,910|
00000360: 30 00 6C 07 6A 04 89 20  31 31 30 35 00 78 07 B0  |0.l.j.. 1105.x..|
00000370: 04 8F 20 53 45 54 55 50  00 94 07 B5 04 81 20 58  |.. SETUP...... X|
00000380: B2 31 20 A4 20 4D 44 3A  41 52 25 28 58 29 B2 58  |.1 . MD:AR%(X).X|
00000390: 3A 82 20 58 00 A7 07 BA  04 8B 20 48 51 B2 30 20  |:. X...... HQ.0 |
000003A0: A7 20 48 51 B2 48 46 00  BB 07 BF 04 8B 4E 32 24  |. HQ.HF......N2$|
000003B0: B2 22 22 A7 4E 32 24 B2  4E 41 24 00 E2 07 C4 04  |."".N2$.NA$.....|
000003C0: 3A 81 20 58 B2 31 20 A4  20 48 46 3A 41 52 25 28  |:. X.1 . HF:AR%(|
000003D0: 58 29 B2 AB 31 3A 46 24  28 58 29 B2 22 22 3A 82  |X)..1:F$(X)."":.|
000003E0: 20 58 00 F8 07 D3 04 8B  4C 49 B3 32 35 33 A7 97  | X......LI.253..|
000003F0: 20 49 56 2C 4C 49 AA 33  00 FE 07 13 05 8E 00 0E  | IV,LI.3........|
00000400: 08 6C 07 8F 20 53 41 56  45 20 42 4F 4F 4B 00 3E  |.l.. SAVE BOOK.>|
00000410: 08 71 07 A0 20 53 45 3A  55 4B B2 57 4B 3A 99 22  |.q.. SE:UK.WK:."|
00000420: 11 28 53 43 52 41 54 43  48 49 4E 47 20 4F 4C 44  |.(SCRATCHING OLD|
00000430: 20 42 4F 4F 4B 4B 45 45  50 49 4E 47 29 22 00 76  | BOOKKEEPING)".v|
00000440: 08 76 07 3A 98 4B 4B 28  52 56 29 2C 22 53 22 AA  |.v.:.KK(RV),"S".|
00000450: 44 52 24 28 52 56 29 AA  22 3A 44 42 A2 22 AA 4E  |DR$(RV).":DB.".N|
00000460: 41 24 3A 56 4F B2 52 56  3A 8D 20 38 3A 8B 20 45  |A$:VO.RV:. 8:. E|
00000470: B1 31 20 A7 20 8E 00 B4  08 7C 07 9F 20 53 45 2C  |.1 . ....|.. SE,|
00000480: 44 56 28 52 56 29 2C 53  45 2C 44 52 24 28 52 56  |DV(RV),SE,DR$(RV|
00000490: 29 AA 22 3A 44 42 A2 22  AA 4E 41 24 AA 22 2C 53  |).":DB.".NA$.",S|
000004A0: 2C 57 22 3A 56 4F B2 52  56 3A 8D 20 38 3A 8B 45  |,W":VO.RV:. 8:.E|
000004B0: 20 A7 20 8E 00 FA 08 80  07 98 53 45 2C 4D 52 3B  | . .......SE,MR;|
000004C0: 52 24 48 52 3B 52 24 52  53 3B 52 24 48 42 3B 52  |R$HR;R$RS;R$HB;R|
000004D0: 24 48 46 3B 52 24 53 46  3B 52 24 52 42 3B 52 24  |$HF;R$SF;R$RB;R$|
000004E0: 48 4B 3B 52 24 57 4B 3B  52 24 44 4B 3B 52 24 44  |HK;R$WK;R$DK;R$D|
000004F0: 45 3B 52 24 4D 43 3B 52  24 3B 00 22 09 85 07 81  |E;R$MC;R$;."....|
00000500: 20 57 46 B2 31 20 A4 20  48 46 3A 98 53 45 2C 51  | WF.1 . HF:.SE,Q|
00000510: 24 3B 46 54 24 28 57 46  29 3B 52 24 3B 3A 82 20  |$;FT$(WF);R$;:. |
00000520: 57 46 00 4E 09 8A 07 81  20 44 B2 30 A4 35 3A 81  |WF.N.... D.0.5:.|
00000530: 20 58 B2 30 A4 48 4B 3A  98 53 45 2C 53 46 25 28  | X.0.HK:.SE,SF%(|
00000540: 58 2C 44 29 3B 52 24 3B  3A 82 20 58 2C 44 00 67  |X,D);R$;:. X,D.g|
00000550: 09 8F 07 99 22 28 53 41  56 49 4E 47 20 50 4F 49  |...."(SAVING POI|
00000560: 4E 54 45 52 53 29 22 00  9B 09 94 07 3A 81 20 58  |NTERS)".....:. X|
00000570: B2 30 A4 48 4B 3A 81 20  52 52 B2 31 20 A4 20 48  |.0.HK:. RR.1 . H|
00000580: 52 3A 98 53 45 2C 50 4F  25 28 52 52 2C 58 29 3B  |R:.SE,PO%(RR,X);|
00000590: 52 24 3B 3A 82 20 52 52  3A 82 58 00 C9 09 99 07  |R$;:. RR:.X.....|
000005A0: 8B 20 52 33 20 A7 20 99  22 28 53 41 56 49 4E 47  |. R3 . ."(SAVING|
000005B0: 20 42 4C 4F 43 4B 20 4D  41 50 29 22 3A 81 20 58  | BLOCK MAP)":. X|
000005C0: B2 31 A4 31 30 3A 82 20  58 00 01 0A 9E 07 3A 8B  |.1.10:. X.....:.|
000005D0: 20 52 33 20 A7 20 81 20  57 42 B2 31 20 A4 20 48  | R3 . . WB.1 . H|
000005E0: 42 3A 98 53 45 2C 22 20  22 54 25 28 57 42 29 52  |B:.SE," "T%(WB)R|
000005F0: 24 22 20 22 53 25 28 57  42 29 52 24 3B 3A 82 57  |$" "S%(WB)R$;:.W|
00000600: 42 00 33 0A A3 07 8B 52  34 A7 CE 23 28 52 41 29  |B.3....R4..#(RA)|
00000610: 3A CD 23 28 52 41 29 2C  28 22 52 41 A2 22 AA 4E  |:.#(RA),("RA.".N|
00000620: 41 24 29 2C 4C 28 52 53  29 2C 44 28 44 52 28 52  |A$),L(RS),D(DR(R|
00000630: 56 29 29 00 53 0A A8 07  81 58 B2 31 A4 48 46 3A  |V)).S....X.1.HF:|
00000640: 98 53 45 2C 22 20 22 4D  46 25 28 58 29 52 24 3B  |.SE," "MF%(X)R$;|
00000650: 3A 82 58 00 6D 0A AD 07  53 50 B2 30 3A A0 20 53  |:.X.m...SP.0:. S|
00000660: 45 3A 56 4F B2 52 56 3A  8D 20 38 3A 8E 00 7E 0A  |E:VO.RV:. 8:..~.|
00000670: 34 08 8F 20 41 44 44 20  52 45 43 4F 52 44 00 A9  |4.. ADD RECORD..|
00000680: 0A 39 08 45 B2 31 3A 8B  20 44 44 20 A7 20 99 22  |.9.E.1:. DD . ."|
00000690: 11 12 44 45 41 4C 45 52  20 44 45 4D 4F 20 43 41  |..DEALER DEMO CA|
000006A0: 4E 54 20 41 44 44 22 3A  8E 00 C8 0A 3E 08 8B 48  |NT ADD":....>..H|
000006B0: 52 B2 4D 52 20 A7 20 99  22 46 49 4C 45 20 49 53  |R.MR . ."FILE IS|
000006C0: 20 46 55 4C 4C 22 3A 8E  00 E7 0A 43 08 99 22 28  | FULL":....C.."(|
000006D0: 41 44 44 49 4E 47 20 52  45 43 4F 52 44 23 22 48  |ADDING RECORD#"H|
000006E0: 52 AA 31 22 9D 29 22 00  0D 0B 48 08 57 52 B2 48  |R.1".)"...H.WR.H|
000006F0: 52 AA 31 3A 8D 34 31 30  30 3A 8B 20 45 20 A7 20  |R.1:.4100:. E . |
00000700: 8E 3A 8F 20 41 53 4B 2C  57 52 49 54 45 00 2D 0B  |.:. ASK,WRITE.-.|
00000710: 4D 08 53 50 B2 31 3A 55  4B B2 57 4B 3A 81 20 57  |M.SP.1:UK.WK:. W|
00000720: 4B B2 30 A4 48 4B 3A 46  49 24 B2 22 22 00 6A 0B  |K.0.HK:FI$."".j.|
00000730: 52 08 3A 81 20 44 B2 31  20 A4 20 53 46 25 28 57  |R.:. D.1 . SF%(W|
00000740: 4B 2C 30 29 3A 46 49 24  B2 46 49 24 AA 46 24 28  |K,0):FI$.FI$.F$(|
00000750: 53 46 25 28 57 4B 2C 44  29 29 AA 5A 24 3A 82 20  |SF%(WK,D)).Z$:. |
00000760: 44 3A 8D 20 33 33 30 30  3A 8F 00 99 0B 57 08 3A  |D:. 3300:....W.:|
00000770: 8B 20 46 52 B3 48 52 AA  31 20 A7 20 42 52 B2 46  |. FR.HR.1 . BR.F|
00000780: 52 3A 54 52 B2 48 52 3A  8D 20 35 32 30 30 3A 8F  |R:TR.HR:. 5200:.|
00000790: 20 43 48 55 4E 4B 20 55  50 00 BC 0B 5C 08 3A 50  | CHUNK UP...\.:P|
000007A0: 4F 25 28 46 52 2C 57 4B  29 B2 48 52 AA 31 3A 8B  |O%(FR,WK).HR.1:.|
000007B0: 57 4B B2 55 4B A7 20 52  52 B2 46 52 00 D3 0B 61  |WK.UK. RR.FR...a|
000007C0: 08 82 20 57 4B 3A 48 52  B2 48 52 AA 31 3A 57 4B  |.. WK:HR.HR.1:WK|
000007D0: B2 55 4B 00 E4 0B 66 08  8E 3A 8F 20 57 52 54 2C  |.UK...f..:. WRT,|
000007E0: 44 49 53 50 00 F6 0B FC  08 8F 20 53 41 56 45 20  |DISP...... SAVE |
000007F0: 46 4F 52 4D 41 54 00 18  0C FD 08 99 22 93 20 20  |FORMAT......".  |
00000800: 20 20 20 20 20 20 20 20  20 20 20 12 53 41 56 45  |           .SAVE|
00000810: 20 46 4F 52 4D 41 54 22  00 33 0C 01 09 58 31 24  | FORMAT".3...X1$|
00000820: B2 22 57 22 3A 8D 20 35  33 30 30 3A 8B 20 45 20  |."W":. 5300:. E |
00000830: A7 20 8E 00 59 0C 47 09  3A 81 20 57 46 B2 31 20  |. ..Y.G.:. WF.1 |
00000840: A4 20 48 46 3A 98 53 45  2C 41 52 25 28 57 46 29  |. HF:.SE,AR%(WF)|
00000850: 3B 52 24 3B 3A 82 20 57  46 00 64 0C 4C 09 A0 20  |;R$;:. WF.d.L.. |
00000860: 53 45 3A 8E 00 76 0C C4  09 8F 20 4C 4F 41 44 20  |SE:..v.... LOAD |
00000870: 46 4F 52 4D 41 54 00 92  0C C5 09 99 22 93 20 20  |FORMAT......".  |
00000880: 20 20 20 20 20 12 4C 4F  41 44 20 46 4F 52 4D 41  |     .LOAD FORMA|
00000890: 54 22 00 AD 0C C9 09 58  31 24 B2 22 52 22 3A 8D  |T".....X1$."R":.|
000008A0: 20 35 33 30 30 3A 8B 20  45 20 A7 20 8E 00 CC 0C  | 5300:. E . ....|
000008B0: DD 09 81 20 57 46 B2 31  A4 48 46 3A 84 53 45 2C  |... WF.1.HF:.SE,|
000008C0: 41 52 25 28 57 46 29 3A  82 20 57 46 00 D7 0C E2  |AR%(WF):. WF....|
000008D0: 09 A0 20 53 45 3A 8E 00  EB 0C 8C 0A 8F 20 43 48  |.. SE:....... CH|
000008E0: 41 4E 47 45 20 46 4F 52  4D 41 54 00 14 0D AA 0A  |ANGE FORMAT.....|
000008F0: 99 22 93 1D 1D 1D 1D 1D  1D 12 43 48 41 4E 47 45  |."........CHANGE|
00000900: 20 46 4F 52 4D 41 54 22  3A 81 20 57 46 B2 31 20  | FORMAT":. WF.1 |
00000910: A4 20 48 46 00 58 0D AC  0A 99 22 11 46 49 45 4C  |. HF.X....".FIEL|
00000920: 44 20 23 22 57 46 22 3D  20 22 46 54 24 28 57 46  |D #"WF"= "FT$(WF|
00000930: 29 3A 99 20 22 57 49 4C  4C 20 59 4F 55 20 4E 45  |):. "WILL YOU NE|
00000940: 45 44 20 54 4F 20 45 4E  54 45 52 20 54 48 49 53  |ED TO ENTER THIS|
00000950: 20 46 49 45 4C 44 3F 22  00 7D 0D B4 0A 58 B2 41  | FIELD?".}...X.A|
00000960: 52 25 28 57 46 29 3A 58  33 B2 AB 31 3A 8D 20 34  |R%(WF):X3..1:. 4|
00000970: 34 30 30 3A 41 52 25 28  57 46 29 B2 58 00 88 0D  |400:AR%(WF).X...|
00000980: EF 0A 82 20 57 46 3A 8E  00 9C 0D E4 0C 8F 20 42  |... WF:....... B|
00000990: 49 4E 41 52 59 20 53 45  41 52 43 48 00 C1 0D E6  |INARY SEARCH....|
000009A0: 0C 54 4C B2 30 3A 54 48  B2 48 52 AA 31 3A 8F 20  |.TL.0:TH.HR.1:. |
000009B0: 54 4F 4F 20 4C 4F 57 2C  20 54 4F 4F 20 48 49 47  |TOO LOW, TOO HIG|
000009C0: 48 00 D6 0D EE 0C 8B 54  48 AB 54 4C B2 31 A7 46  |H......TH.TL.1.F|
000009D0: 52 B2 54 48 3A 8E 00 0E  0E F3 0C 3A 50 25 B2 28  |R.TH:......:P%.(|
000009E0: 54 4C AA 54 48 29 AD 32  AA 2E 31 3A 57 52 B2 50  |TL.TH).2..1:WR.P|
000009F0: 4F 25 28 50 25 2C 57 4B  29 3A 8B 20 52 34 20 A7  |O%(P%,WK):. R4 .|
00000A00: 20 8D 20 33 33 35 30 3A  89 20 33 33 31 37 00 3A  | . 3350:. 3317.:|
00000A10: 0E F4 0C 3A 8D 20 34 33  30 30 3A 81 20 58 B2 31  |...:. 4300:. X.1|
00000A20: 20 A4 20 44 4B 3A 84 52  41 2C 58 24 28 58 29 3A  | . DK:.RA,X$(X):|
00000A30: 82 20 58 3A 46 4F 24 B2  22 22 00 6A 0E F5 0C 3A  |. X:FO$."".j...:|
00000A40: 81 58 B2 31 A4 53 46 25  28 57 4B 2C 30 29 3A 46  |.X.1.SF%(WK,0):F|
00000A50: 4F 24 B2 46 4F 24 AA 58  24 28 53 46 25 28 57 4B  |O$.FO$.X$(SF%(WK|
00000A60: 2C 58 29 29 AA 5A 24 3A  82 58 00 88 0E 02 0D 3A  |,X)).Z$:.X.....:|
00000A70: 8B 20 46 49 24 B3 B2 46  4F 24 20 A7 20 54 48 B2  |. FI$..FO$ . TH.|
00000A80: 50 25 3A 89 33 33 31 30  00 99 0E 07 0D 3A 54 4C  |P%:.3310.....:TL|
00000A90: B2 50 25 3A 89 33 33 31  30 00 D5 0E 16 0D 4C B2  |.P%:.3310.....L.|
00000AA0: 31 3A 81 58 B2 31 A4 44  4B 3A CF 23 28 52 41 29  |1:.X.1.DK:.#(RA)|
00000AB0: 2C 28 57 52 29 2C 28 4C  29 3A 84 52 41 2C 58 24  |,(WR),(L):.RA,X$|
00000AC0: 28 58 29 3A 4C B2 4C AA  C3 28 58 24 28 58 29 29  |(X):L.L..(X$(X))|
00000AD0: AA 32 3A 82 58 00 DB 0E  1B 0D 8E 00 ED 0E AC 0D  |.2:.X...........|
00000AE0: 8F 20 44 49 53 50 4C 41  59 20 52 45 43 00 18 0F  |. DISPLAY REC...|
00000AF0: B1 0D 99 22 12 4B 45 59  23 22 57 4B AA 31 22 9D  |...".KEY#"WK.1".|
00000B00: 20 3D 22 46 54 24 28 53  46 29 22 20 20 20 52 45  | ="FT$(SF)"   RE|
00000B10: 43 4F 52 44 23 22 52 52  00 45 0F B6 0D 81 20 57  |CORD#"RR.E.... W|
00000B20: 46 B2 31 20 A4 20 48 46  3A 58 24 B2 46 54 24 28  |F.1 . HF:X$.FT$(|
00000B30: 57 46 29 AA 22 3A 22 3A  58 24 B2 22 12 22 AA 58  |WF).":":X$.".".X|
00000B40: 24 AA 22 92 22 00 6A 0F  B8 0D 3A 8B C3 28 58 24  |$.".".j...:..(X$|
00000B50: 29 B3 31 35 AF 4D 54 B3  B1 32 A7 58 24 B2 C8 28  |).15.MT..2.X$..(|
00000B60: 58 24 AA 53 50 24 2C 31  35 29 00 79 0F BB 0D 3A  |X$.SP$,15).y...:|
00000B70: 99 58 24 46 24 28 57 46  29 00 A3 0F BD 0D 8B 57  |.X$F$(WF)......W|
00000B80: 46 B2 32 30 AF 48 46 B1  32 30 A7 99 22 12 43 92  |F.20.HF.20..".C.|
00000B90: 4F 4E 54 49 55 45 3F 22  3A 47 31 24 B2 22 43 22  |ONTIUE?":G1$."C"|
00000BA0: 3A 8D 35 00 AE 0F C0 0D  82 20 57 46 3A 8E 00 C1  |:.5...... WF:...|
00000BB0: 0F 74 0E 43 4B B2 30 3A  8F 20 41 53 4B 20 52 45  |.t.CK.0:. ASK RE|
00000BC0: 43 00 E5 0F 7E 0E 99 22  93 22 3B 3A 4C B2 30 3A  |C...~..".";:L.0:|
00000BD0: 81 20 57 46 B2 31 20 A4  20 48 46 3A 58 24 B2 46  |. WF.1 . HF:X$.F|
00000BE0: 24 28 57 46 29 00 0B 10  83 0E 3A 8B 41 52 25 28  |$(WF).....:.AR%(|
00000BF0: 57 46 29 B2 30 A7 46 24  28 57 46 29 B2 22 22 3A  |WF).0.F$(WF)."":|
00000C00: 4C B2 4C AA 32 3A 89 33  37 34 35 00 2D 10 88 0E  |L.L.2:.3745.-...|
00000C10: 3A 20 99 46 54 24 28 57  46 29 22 3A 22 3A 58 24  |: .FT$(WF)":":X$|
00000C20: B2 46 24 28 57 46 29 3A  8D 34 35 30 30 00 4F 10  |.F$(WF):.4500.O.|
00000C30: 8A 0E 3A 20 20 58 B2 C3  28 58 24 29 AB 4D 46 25  |..:  X..(X$).MF%|
00000C40: 28 57 46 29 3A 8B 58 B3  31 A7 20 33 37 33 35 00  |(WF):.X.1. 3735.|
00000C50: 85 10 8B 0E 3A 20 20 99  C7 28 37 29 22 12 46 49  |....:  ..(7)".FI|
00000C60: 45 4C 44 20 54 4F 4F 20  4C 4F 4E 47 20 42 59 22  |ELD TOO LONG BY"|
00000C70: 58 22 9D 20 43 48 41 52  41 43 54 45 52 53 22 3A  |X". CHARACTERS":|
00000C80: 89 33 37 32 30 00 C6 10  97 0E 3A 20 8B 58 24 B3  |.3720.....: .X$.|
00000C90: B1 46 24 28 57 46 29 A7  81 58 B2 30 A4 48 4B 3A  |.F$(WF)..X.0.HK:|
00000CA0: 81 44 B2 31 A4 53 46 25  28 58 2C 30 29 3A 43 4B  |.D.1.SF%(X,0):CK|
00000CB0: B2 43 4B AB 28 57 46 B2  53 46 25 28 58 2C 44 29  |.CK.(WF.SF%(X,D)|
00000CC0: 29 3A 82 44 2C 58 00 E2  10 9C 0E 3A 20 4C B2 4C  |):.D,X.....: L.L|
00000CD0: AA C3 28 58 24 29 AA 32  3A 46 24 28 57 46 29 B2  |..(X$).2:F$(WF).|
00000CE0: 58 24 00 0C 11 A1 0E 82  20 57 46 3A 8B 20 4C B1  |X$...... WF:. L.|
00000CF0: 52 53 20 A7 20 99 22 52  45 43 20 54 4F 4F 20 4C  |RS . ."REC TOO L|
00000D00: 41 52 47 45 22 3A 89 20  33 37 31 30 00 2F 11 A6  |ARGE":. 3710./..|
00000D10: 0E 99 22 93 22 3B 3A 8D  33 35 30 30 3A 8D 33 3A  |..".";:.3500:.3:|
00000D20: 8B 20 47 24 B2 22 59 22  20 A7 20 33 37 31 30 00  |. G$."Y" . 3710.|
00000D30: 35 11 AB 0E 8E 00 47 11  3C 0F 8F 20 4D 45 52 47  |5.....G.<.. MERG|
00000D40: 45 20 45 52 52 4F 52 00  7B 11 41 0F 99 22 59 4F  |E ERROR.{.A.."YO|
00000D50: 55 20 48 41 56 45 20 48  41 44 20 41 20 44 49 53  |U HAVE HAD A DIS|
00000D60: 4B 20 45 52 52 4F 52 20  44 55 52 52 49 4E 47 20  |K ERROR DURRING |
00000D70: 41 20 4D 45 52 47 45 2E  20 22 3B 00 AC 11 46 0F  |A MERGE. ";...F.|
00000D80: 99 22 54 48 45 20 52 45  43 4F 52 44 53 20 59 4F  |."THE RECORDS YO|
00000D90: 55 20 45 4E 54 45 52 44  20 41 52 45 20 53 54 49  |U ENTERD ARE STI|
00000DA0: 4C 4C 20 49 4E 20 54 48  45 20 22 3B 00 C1 11 4B  |LL IN THE ";...K|
00000DB0: 0F 99 22 42 41 54 43 48  20 46 49 4C 45 2E 20 20  |.."BATCH FILE.  |
00000DC0: 22 00 F0 11 50 0F 99 22  54 4F 20 47 45 54 20 54  |"...P.."TO GET T|
00000DD0: 48 45 4D 20 49 4E 20 54  48 45 20 52 41 4E 44 4F  |HEM IN THE RANDO|
00000DE0: 4D 20 41 43 43 45 53 53  20 46 49 4C 45 20 22 3B  |M ACCESS FILE ";|
00000DF0: 00 1D 12 55 0F 99 22 59  4F 55 20 4D 55 53 54 20  |...U.."YOU MUST |
00000E00: 42 41 43 4B 55 50 20 54  48 49 53 20 44 49 53 4B  |BACKUP THIS DISK|
00000E10: 2C 20 54 48 45 4E 20 55  53 45 20 22 3B 00 4E 12  |, THEN USE ";.N.|
00000E20: 5A 0F 99 22 54 48 45 20  27 4C 4F 41 44 20 46 52  |Z.."THE 'LOAD FR|
00000E30: 4F 4D 20 53 45 51 27 20  50 52 4F 47 52 41 4D 20  |OM SEQ' PROGRAM |
00000E40: 54 4F 20 4C 4F 41 44 20  54 48 45 20 22 3B 00 77  |TO LOAD THE ";.w|
00000E50: 12 5F 0F 99 22 52 45 43  4F 52 44 53 20 49 4E 54  |._.."RECORDS INT|
00000E60: 4F 20 54 48 45 20 46 49  4C 45 2E 20 20 53 45 45  |O THE FILE.  SEE|
00000E70: 20 54 48 45 20 22 3B 00  AF 12 64 0F 99 22 4D 41  | THE ";...d.."MA|
00000E80: 4E 55 41 4C 20 53 45 43  54 49 4F 4E 20 27 57 48  |NUAL SECTION 'WH|
00000E90: 45 4E 20 54 48 49 4E 47  53 20 47 4F 20 57 52 4F  |EN THINGS GO WRO|
00000EA0: 4E 47 27 20 46 4F 52 20  44 45 54 41 49 4C 53 00  |NG' FOR DETAILS.|
00000EB0: CB 12 69 0F 8D 20 31 30  3A 8B 20 4C 49 B3 32 35  |..i.. 10:. LI.25|
00000EC0: 33 20 A7 20 97 20 49 56  2C 4C 49 00 D1 12 6E 0F  |3 . . IV,LI...n.|
00000ED0: A2 00 E3 12 04 10 8F 20  57 52 49 54 45 20 41 20  |....... WRITE A |
00000EE0: 52 45 43 00 0E 13 0E 10  58 24 B2 22 22 3A 81 20  |REC.....X$."":. |
00000EF0: 58 B2 31 20 A4 20 48 46  3A 58 24 B2 58 24 AA 51  |X.1 . HF:X$.X$.Q|
00000F00: 24 AA 46 24 28 58 29 AA  52 24 3A 82 20 58 00 31  |$.F$(X).R$:. X.1|
00000F10: 13 18 10 8B 20 52 34 20  A7 20 CF 23 28 52 41 29  |.... R4 . .#(RA)|
00000F20: 2C 28 57 52 29 3A 98 28  52 41 29 2C 58 24 3B 3A  |,(WR):.(RA),X$;:|
00000F30: 8E 00 44 13 22 10 8D 20  34 33 30 30 3A 98 52 41  |..D.".. 4300:.RA|
00000F40: 2C 58 24 3B 00 79 13 27  10 98 4B 4B 28 52 56 29  |,X$;.y.'..KK(RV)|
00000F50: 2C 22 55 32 3A 22 52 41  3B 44 52 28 52 56 29 3B  |,"U2:"RA;DR(RV);|
00000F60: 54 25 28 42 4C 29 3B 53  25 28 42 4C 29 3A 56 4F  |T%(BL);S%(BL):VO|
00000F70: B2 52 56 3A 8D 20 38 3A  8E 00 90 13 CC 10 8F 20  |.RV:. 8:....... |
00000F80: 50 4F 53 49 54 49 4F 4E  20 50 4F 49 4E 54 45 52  |POSITION POINTER|
00000F90: 00 BA 13 D1 10 58 B2 B5  28 28 57 52 AB 31 29 AD  |.....X..((WR.1).|
00000FA0: 52 42 AA 2E 30 30 30 30  31 29 AA 31 3A 8B 20 42  |RB..00001).1:. B|
00000FB0: 4C B2 58 20 A7 20 34 33  31 35 00 F7 13 D4 10 3A  |L.X . 4315.....:|
00000FC0: 42 4C B2 58 3A 98 4B 4B  28 52 56 29 2C 22 55 31  |BL.X:.KK(RV),"U1|
00000FD0: 3A 22 52 41 3B 44 52 28  52 56 29 3B 54 25 28 42  |:"RA;DR(RV);T%(B|
00000FE0: 4C 29 3B 53 25 28 42 4C  29 3A 56 4F B2 52 56 3A  |L);S%(BL):VO.RV:|
00000FF0: 8D 38 3A 8B 45 A7 8E 00  32 14 DB 10 58 B2 28 57  |.8:.E...2...X.(W|
00001000: 52 AB 31 29 AB 28 42 4C  AB 31 29 AC 52 42 3A 8F  |R.1).(BL.1).RB:.|
00001010: 20 4E 4F 2E 20 52 45 43  53 20 42 45 46 4F 52 20  | NO. RECS BEFOR |
00001020: 54 48 49 53 20 49 4E 20  54 48 49 53 20 42 4C 4F  |THIS IN THIS BLO|
00001030: 43 4B 00 57 14 DF 10 42  50 B2 31 AA 52 53 AC 58  |CK.W...BP.1.RS.X|
00001040: 3A 98 4B 4B 28 52 56 29  2C 22 42 2D 50 3A 22 3B  |:.KK(RV),"B-P:";|
00001050: 52 41 3B 42 50 3A 8E 00  62 14 30 11 8F 20 59 45  |RA;BP:..b.0.. YE|
00001060: 53 3F 00 86 14 35 11 58  24 B2 CA 28 22 59 4E 22  |S?...5.X$..("YN"|
00001070: 2C 31 AB 28 28 58 AF 58  33 29 B2 30 29 2C 31 29  |,1.((X.X3).0),1)|
00001080: 3A 8D 34 35 30 30 00 BE  14 37 11 8B 20 58 24 B3  |:.4500...7.. X$.|
00001090: B1 22 59 22 AF 58 24 B3  B1 22 4E 22 A7 99 22 12  |."Y".X$.."N"..".|
000010A0: 50 4C 45 41 53 45 20 41  4E 53 57 45 52 20 20 59  |PLEASE ANSWER  Y|
000010B0: 20 20 4F 52 20 20 4E 22  3A 89 34 34 30 30 00 EC  |  OR  N":.4400..|
000010C0: 14 3A 11 58 24 B2 C8 28  58 24 2C 31 29 3A 58 B2  |.:.X$..(X$,1):X.|
000010D0: 28 20 58 AF 28 A8 20 58  33 29 20 B0 20 28 58 24  |( X.(. X3) . (X$|
000010E0: B2 22 59 22 29 AF 58 33  20 29 3A 8E 00 11 15 94  |."Y").X3 ):.....|
000010F0: 11 99 58 24 C8 28 4C 45  24 2C C3 28 58 24 29 29  |..X$.(LE$,.(X$))|
00001100: 3B 3A 43 58 B2 31 3A 8F  20 47 41 52 44 20 49 4E  |;:CX.1:. GARD IN|
00001110: 50 00 44 15 99 11 4D 24  B2 CA 28 58 24 AA 22 20  |P.D...M$..(X$." |
00001120: 22 2C 43 58 2C 31 29 3A  99 22 12 22 4D 24 22 92  |",CX,1):."."M$".|
00001130: 9D 22 3B 3A A1 47 24 3A  8B 47 24 B2 22 22 A7 8D  |.";:.G$:.G$.""..|
00001140: 34 35 36 35 00 77 15 9E  11 3A 41 B2 C6 28 47 24  |4565.w...:A..(G$|
00001150: 29 3A 99 4D 24 22 9D 22  3B 3A 8B 28 41 20 AF 20  |):.M$".";:.(A . |
00001160: 31 32 37 29 B3 33 32 B0  43 58 B1 37 37 B0 41 B2  |127).32.CX.77.A.|
00001170: 33 34 A7 34 35 32 30 00  AC 15 A3 11 3A 20 99 47  |34.4520.....: .G|
00001180: 24 3B 3A 58 24 B2 C8 28  58 24 2C 43 58 AB 31 29  |$;:X$..(X$,CX.1)|
00001190: AA 47 24 AA CA 28 58 24  2C 43 58 AA 31 29 3A 43  |.G$..(X$,CX.1):C|
000011A0: 58 B2 43 58 AA 31 3A 89  34 35 30 35 00 D6 15 A8  |X.CX.1:.4505....|
000011B0: 11 3A 8B 41 B2 31 35 37  A7 8B 43 58 B1 31 A7 43  |.:.A.157..CX.1.C|
000011C0: 58 B2 43 58 AB 31 3A 99  47 24 3B 3A 89 34 35 30  |X.CX.1:.G$;:.450|
000011D0: 35 3A 8F 20 4C 46 00 01  16 AD 11 3A 8B 41 B2 32  |5:. LF.....:.A.2|
000011E0: 39 AF 43 58 B3 B2 C3 28  58 24 29 A7 43 58 B2 43  |9.CX...(X$).CX.C|
000011F0: 58 AA 31 3A 99 47 24 3B  3A 89 34 35 30 35 3A 52  |X.1:.G$;:.4505:R|
00001200: 49 00 17 16 B2 11 3A 8B  41 B2 31 33 A7 34 35 38  |I.....:.A.13.458|
00001210: 30 3A 8F 20 52 45 54 00  4C 16 B7 11 3A 8B 41 B2  |0:. RET.L...:.A.|
00001220: 32 30 A7 8B 43 58 B1 31  A7 99 47 24 3B 3A 58 24  |20..CX.1..G$;:X$|
00001230: B2 C8 28 58 24 2C 43 58  AB 32 29 AA CA 28 58 24  |..(X$,CX.2)..(X$|
00001240: 2C 43 58 29 3A 43 58 B2  43 58 AB 31 00 67 16 BC  |,CX):CX.CX.1.g..|
00001250: 11 3A 8B 41 B2 31 34 38  AF C3 28 58 24 29 B3 37  |.:.A.148..(X$).7|
00001260: 38 A7 8D 34 35 35 35 00  8C 16 C1 11 3A 8B 41 B2  |8..4555.....:.A.|
00001270: 31 34 37 A7 4C B2 C3 28  58 24 29 3A 8D 34 35 36  |147.L..(X$):.456|
00001280: 30 3A 43 58 B2 31 3A 58  24 B2 22 22 00 97 16 C6  |0:CX.1:X$.""....|
00001290: 11 3A 89 34 35 30 35 00  C6 16 CB 11 58 24 B2 C8  |.:.4505.....X$..|
000012A0: 28 58 24 2C 43 58 AB 31  29 AA 22 20 22 AA CA 28  |(X$,CX.1)." "..(|
000012B0: 58 24 2C 43 58 29 3A 99  47 24 22 20 9D 22 3B 3A  |X$,CX):.G$" .";:|
000012C0: 8E 3A 8F 20 49 4E 00 EF  16 D0 11 99 C8 28 4C 45  |.:. IN.......(LE|
000012D0: 24 2C 43 58 AB 31 29 C8  28 53 50 24 2C 4C 29 C8  |$,CX.1).(SP$,L).|
000012E0: 28 4C 45 24 2C 4C 29 3B  3A 8E 3A 8F 20 43 4C 00  |(LE$,L);:.:. CL.|
000012F0: 1D 17 D5 11 99 22 12 22  4D 24 22 9D 92 22 3B 3A  |....."."M$"..";:|
00001300: 81 57 B2 31 A4 35 30 3A  A1 47 24 3A 8B 47 24 B3  |.W.1.50:.G$:.G$.|
00001310: B1 22 22 A7 99 4D 24 22  9D 22 3B 3A 8E 00 43 17  |.""..M$".";:..C.|
00001320: DA 11 3A 82 57 3A 99 4D  24 22 9D 22 3B 3A 81 57  |..:.W:.M$".";:.W|
00001330: B2 31 A4 35 30 3A A1 47  24 3A 8B 47 24 B3 B1 22  |.1.50:.G$:.G$.."|
00001340: 22 A7 8E 00 51 17 DF 11  3A 82 57 3A 89 34 35 36  |"...Q...:.W:.456|
00001350: 35 00 73 17 E4 11 8B C8  28 58 24 2C 31 29 B2 22  |5.s.....(X$,1)."|
00001360: 20 22 A7 58 24 B2 CA 28  58 24 2C 32 29 3A 89 34  | ".X$..(X$,2):.4|
00001370: 35 38 30 00 9C 17 E9 11  3A 8B C9 28 58 24 2C 31  |580.....:..(X$,1|
00001380: 29 B2 22 20 22 A7 58 24  B2 C8 28 58 24 2C C3 28  |)." ".X$..(X$,.(|
00001390: 58 24 29 AB 31 29 3A 89  34 35 38 35 00 A5 17 EE  |X$).1):.4585....|
000013A0: 11 3A 99 3A 8E 00 B4 17  50 14 8F 20 43 48 55 4E  |.:.:....P.. CHUN|
000013B0: 4B 20 55 50 00 FB 17 55  14 3A 8F 20 20 20 20 20  |K UP...U.:.     |
000013C0: 20 20 46 4F 52 20 58 3D  54 52 20 54 4F 20 42 52  |  FOR X=TR TO BR|
000013D0: 20 53 54 45 50 2D 31 3A  50 4F 25 28 58 2B 31 2C  | STEP-1:PO%(X+1,|
000013E0: 57 4B 29 3D 50 4F 25 28  58 2C 57 4B 29 3A 4E 45  |WK)=PO%(X,WK):NE|
000013F0: 58 54 20 58 3A 52 45 54  55 52 4E 00 1D 18 5A 14  |XT X:RETURN...Z.|
00001400: 53 B2 28 54 52 29 AC 32  3A 44 B2 28 54 52 AA 31  |S.(TR).2:D.(TR.1|
00001410: 29 AC 32 3A 45 31 B2 28  42 52 29 AC 32 00 30 18  |).2:E1.(BR).2.0.|
00001420: 5F 14 8D 35 39 30 30 3A  9E 20 4D 4C AB 36 3A 8E  |_..5900:. ML.6:.|
00001430: 00 40 18 B4 14 8F 20 4F  50 45 4E 20 46 4F 52 4D  |.@.... OPEN FORM|
00001440: 00 6B 18 B9 14 99 22 4E  41 4D 45 20 4F 46 20 46  |.k...."NAME OF F|
00001450: 4F 52 4D 41 54 3A 22 3A  58 24 B2 4E 32 24 3A 8D  |ORMAT:":X$.N2$:.|
00001460: 34 35 30 30 3A 4E 32 24  B2 58 24 00 9D 18 BE 14  |4500:N2$.X$.....|
00001470: 45 B2 31 3A 4C B2 C3 28  4E 32 24 29 3A 8B 20 4C  |E.1:L..(N2$):. L|
00001480: B1 31 32 20 A7 20 99 22  46 49 4C 45 20 4E 41 4D  |.12 . ."FILE NAM|
00001490: 45 20 54 4F 4F 20 4C 4F  4E 47 22 3A 8E 00 CC 18  |E TOO LONG":....|
000014A0: C3 14 81 20 58 B2 31 20  A4 20 4C 3A 8B 20 CA 28  |... X.1 . L:. .(|
000014B0: 4E 32 24 2C 31 29 B2 22  2A 22 A7 20 99 22 27 2A  |N2$,1)."*". ."'*|
000014C0: 27 20 49 4C 4C 45 47 41  4C 22 3A 8E 00 DF 18 C4  |' ILLEGAL":.....|
000014D0: 14 3A 82 20 58 3A 8B 20  4C B2 30 20 A7 20 8E 00  |.:. X:. L.0 . ..|
000014E0: F9 18 C8 14 8B 20 44 54  B2 31 20 A7 20 51 56 B2  |..... DT.1 . QV.|
000014F0: 52 56 3A 89 20 35 33 33  30 00 2B 19 CA 14 3A 45  |RV:. 5330.+...:E|
00001500: B2 30 3A 99 22 44 52 49  56 45 28 12 31 92 2F 12  |.0:."DRIVE(.1./.|
00001510: 30 92 29 3F 22 3A 47 31  24 B2 22 30 31 22 3A 8D  |0.)?":G1$."01":.|
00001520: 20 35 3A 51 56 B2 C5 28  47 24 29 00 4F 19 CD 14  | 5:QV..(G$).O...|
00001530: 3A 8B 20 51 56 B3 B1 52  56 20 A7 20 98 4B 4B 28  |:. QV..RV . .KK(|
00001540: 51 56 29 2C 22 49 22 AA  44 52 24 28 51 56 29 00  |QV),"I".DR$(QV).|
00001550: 83 19 D2 14 8B 20 58 31  24 B2 22 57 22 A7 20 98  |..... X1$."W". .|
00001560: 4B 4B 28 51 56 29 2C 22  53 22 AA 44 52 24 28 51  |KK(QV),"S".DR$(Q|
00001570: 56 29 AA 22 3A 42 41 22  AA C7 28 31 36 32 29 AA  |V).":BA"..(162).|
00001580: 4E 32 24 00 B3 19 DC 14  9F 20 53 45 2C 44 56 28  |N2$...... SE,DV(|
00001590: 51 56 29 2C 53 45 2C 44  52 24 28 51 56 29 AA 22  |QV),SE,DR$(QV)."|
000015A0: 3A 42 41 A2 22 AA 4E 32  24 AA 22 2C 53 2C 22 AA  |:BA.".N2$.",S,".|
000015B0: 58 31 24 00 CC 19 DE 14  56 4F B2 51 56 3A 8D 20  |X1$.....VO.QV:. |
000015C0: 38 3A 8B 20 45 20 A7 20  A0 20 53 45 00 D2 19 E1  |8:. E . . SE....|
000015D0: 14 8E 00 E4 19 0C 17 8F  20 50 41 53 53 20 50 41  |........ PASS PA|
000015E0: 52 41 4D 53 00 15 1A 11  17 58 B2 C2 28 5A 56 AA  |RAMS.....X..(ZV.|
000015F0: 32 29 AA 32 35 36 AC C2  28 5A 56 AA 33 29 AA 39  |2).256..(ZV.3).9|
00001600: AA 41 4F 3A 8F 20 50 4F  53 20 4F 46 20 50 4F 25  |.AO:. POS OF PO%|
00001610: 28 30 2C 30 29 00 47 1A  12 17 58 B2 58 AA 28 4D  |(0,0).G...X.X.(M|
00001620: 52 AA 31 29 AC 32 AC 57  4B 3A 8F 20 50 4F 53 20  |R.1).2.WK:. POS |
00001630: 4F 46 20 50 4F 25 28 30  2C 57 4B 29 20 48 49 20  |OF PO%(0,WK) HI |
00001640: 4C 4F 20 42 59 54 45 00  6B 1A 16 17 97 20 42 37  |LO BYTE.k.... B7|
00001650: 2C 28 58 AA 53 29 AF 32  35 35 3A 97 20 42 37 AA  |,(X.S).255:. B7.|
00001660: 31 2C 28 58 AA 53 29 AD  32 35 36 00 91 1A 1B 17  |1,(X.S).256.....|
00001670: 97 20 42 37 AA 32 2C 28  58 AA 44 29 AF 32 35 35  |. B7.2,(X.D).255|
00001680: 3A 97 20 42 37 AA 33 2C  28 58 AA 44 29 AD 32 35  |:. B7.3,(X.D).25|
00001690: 36 00 B9 1A 20 17 97 20  42 37 AA 34 2C 28 58 AA  |6... .. B7.4,(X.|
000016A0: 45 31 29 AF 32 35 35 3A  97 20 42 37 AA 35 2C 28  |E1).255:. B7.5,(|
000016B0: 58 AA 45 31 29 AD 32 35  36 00 BF 1A 25 17 8E 00  |X.E1).256...%...|
000016C0: CB 1A D4 17 8F 20 45 4E  54 52 59 00 F4 1A D6 17  |..... ENTRY.....|
000016D0: 54 52 B2 48 52 3A 8D 20  36 34 30 30 3A 8B 20 45  |TR.HR:. 6400:. E|
000016E0: 20 A7 20 8E 3A 8F 20 54  4F 50 20 52 45 43 2C 20  | . .:. TOP REC, |
000016F0: 4F 50 45 4E 00 2A 1B D9  17 99 22 93 12 41 92 44  |OPEN.*...."..A.D|
00001700: 44 2C 12 52 92 45 50 4C  49 43 41 54 45 2C 12 4D  |D,.R.EPLICATE,.M|
00001710: 92 45 52 47 45 22 3A 47  31 24 B2 22 41 52 4D 22  |.ERGE":G1$."ARM"|
00001720: 3A 8D 20 35 3A 99 22 93  22 3B 00 50 1B DE 17 8B  |:. 5:.".";.P....|
00001730: 20 47 24 B2 22 41 22 20  B0 20 47 24 B2 22 52 22  | G$."A" . G$."R"|
00001740: 20 A7 20 8D 20 36 35 30  30 3A 89 20 36 31 30 35  | . . 6500:. 6105|
00001750: 00 89 1B E4 17 99 22 41  52 45 20 59 4F 55 20 53  |......"ARE YOU S|
00001760: 55 52 45 3F 28 12 59 92  2F 12 4E 92 29 22 3A 47  |URE?(.Y./.N.)":G|
00001770: 31 24 B2 22 59 4E 22 3A  8D 20 35 3A 8B 47 24 B2  |1$."YN":. 5:.G$.|
00001780: 22 4E 22 A7 20 36 31 30  35 00 A4 1B E5 17 8D 20  |"N". 6105...... |
00001790: 36 32 30 30 3A 8E 3A 8F  20 4D 45 52 47 45 20 42  |6200:.:. MERGE B|
000017A0: 41 54 43 48 00 B6 1B 38  18 8F 20 4D 45 52 47 45  |ATCH...8.. MERGE|
000017B0: 20 42 41 54 43 48 00 DD  1B 3C 18 45 46 B2 30 3A  | BATCH...<.EF.0:|
000017C0: 8B 54 52 B2 48 52 20 A7  20 A0 20 53 45 3A 8E 3A  |.TR.HR . . SE:.:|
000017D0: 8F 20 4E 4F 4E 45 20 54  4F 20 41 44 44 00 23 1C  |. NONE TO ADD.#.|
000017E0: 3E 18 53 50 B2 31 3A A0  20 53 45 3A 9F 20 53 45  |>.SP.1:. SE:. SE|
000017F0: 2C 44 56 28 51 56 29 2C  53 45 2C 44 52 24 28 51  |,DV(QV),SE,DR$(Q|
00001800: 56 29 AA 22 3A 42 41 54  43 48 2C 53 2C 52 22 3A  |V).":BATCH,S,R":|
00001810: 8F 47 4F 53 55 42 38 3A  49 46 45 54 48 45 4E 33  |.GOSUB8:IFETHEN3|
00001820: 39 30 30 00 48 1C 47 18  81 20 58 B2 31 A4 20 48  |900.H.G.. X.1. H|
00001830: 46 3A 84 53 45 2C 46 24  28 58 29 3A 82 20 58 3A  |F:.SE,F$(X):. X:|
00001840: 45 46 B2 45 46 AA 53 54  00 69 1C 4C 18 3A 8D 20  |EF.EF.ST.i.L.:. |
00001850: 32 31 30 30 3A 8B 20 45  20 A7 20 33 39 30 30 3A  |2100:. E . 3900:|
00001860: 8F 20 41 44 44 20 52 45  43 00 7B 1C 51 18 8B 20  |. ADD REC.{.Q.. |
00001870: 45 46 B2 30 20 A7 20 36  32 31 35 00 8D 1C 56 18  |EF.0 . 6215...V.|
00001880: A0 20 53 45 3A 8D 20 31  39 30 30 3A 8E 00 9E 1C  |. SE:. 1900:....|
00001890: 00 19 8F 20 4F 50 45 4E  20 42 41 54 43 48 00 B8  |... OPEN BATCH..|
000018A0: 1C 05 19 8B 20 44 54 B2  31 20 A7 20 51 56 B2 52  |.... DT.1 . QV.R|
000018B0: 56 3A 89 20 36 34 35 35  00 FD 1C 0F 19 3A 99 22  |V:. 6455.....:."|
000018C0: 93 44 52 49 56 45 20 4E  55 4D 42 45 52 20 46 4F  |.DRIVE NUMBER FO|
000018D0: 52 20 42 41 54 43 48 20  46 49 4C 45 3F 28 12 31  |R BATCH FILE?(.1|
000018E0: 92 2F 12 30 92 29 22 3A  47 31 24 B2 22 31 30 22  |./.0.)":G1$."10"|
000018F0: 3A 8D 20 35 3A 51 56 B2  C5 28 47 24 29 00 21 1D  |:. 5:QV..(G$).!.|
00001900: 14 19 3A 8B 20 51 56 B3  B1 52 56 20 A7 20 98 4B  |..:. QV..RV . .K|
00001910: 4B 28 51 56 29 2C 22 49  22 AA 44 52 24 28 51 56  |K(QV),"I".DR$(QV|
00001920: 29 00 56 1D 37 19 98 4B  4B 28 51 56 29 2C 22 53  |).V.7..KK(QV),"S|
00001930: 22 AA 44 52 24 28 51 56  29 AA 22 3A 42 41 54 43  |".DR$(QV).":BATC|
00001940: 48 22 3A 56 4F B2 51 56  3A 8D 20 38 3A 8B 20 45  |H":VO.QV:. 8:. E|
00001950: B1 31 20 A7 20 8E 00 88  1D 3D 19 9F 20 53 45 2C  |.1 . ....=.. SE,|
00001960: 44 56 28 51 56 29 2C 53  45 2C 44 52 24 28 51 56  |DV(QV),SE,DR$(QV|
00001970: 29 AA 22 3A 42 41 54 43  48 2C 53 2C 57 22 3A 56  |).":BATCH,S,W":V|
00001980: 4F B2 51 56 3A 8D 20 38  00 8E 1D 63 19 8E 00 9F  |O.QV:. 8...c....|
00001990: 1D 64 19 8F 20 41 44 44  20 4F 52 20 52 45 50 00  |.d.. ADD OR REP.|
000019A0: C4 1D 69 19 3A 8B 47 24  B2 22 41 22 A7 20 81 58  |..i.:.G$."A". .X|
000019B0: B2 31 20 A4 20 48 46 3A  46 24 28 58 29 B2 22 22  |.1 . HF:F$(X).""|
000019C0: 3A 82 20 58 00 EB 1D 6E  19 3A 8B 20 54 52 B2 B1  |:. X...n.:. TR..|
000019D0: 4D 52 20 A7 20 99 22 12  11 46 49 4C 45 20 49 53  |MR . ."..FILE IS|
000019E0: 20 46 55 4C 4C 20 21 21  22 3A 8E 00 11 1E 73 19  | FULL !!":....s.|
000019F0: 3A 54 52 B2 54 52 AA 31  3A 99 22 93 22 3B 3A 8D  |:TR.TR.1:.".";:.|
00001A00: 20 33 37 30 30 3A 99 22  93 22 3B 3A 8F 20 41 53  | 3700:.".";:. AS|
00001A10: 4B 00 34 1E 75 19 3A 81  58 B2 31 A4 48 46 3A 98  |K.4.u.:.X.1.HF:.|
00001A20: 53 45 2C 51 24 46 24 28  58 29 52 24 3B 3A 8D 20  |SE,Q$F$(X)R$;:. |
00001A30: 38 3A 82 58 00 3A 1E 78  19 8E 00 45 1E 8C 23 8F  |8:.X.:.x...E..#.|
00001A40: 20 45 58 49 54 00 66 1E  8D 23 58 24 B2 22 46 49  | EXIT.f..#X$."FI|
00001A50: 4C 45 20 4D 45 4E 55 22  3A 8D 20 39 32 30 30 3A  |LE MENU":. 9200:|
00001A60: 89 20 39 31 30 31 00 76  1E F0 23 8F 20 4C 4F 41  |. 9101.v..#. LOA|
00001A70: 44 20 50 52 4F 47 00 AD  1E F1 23 A0 20 52 41 3A  |D PROG....#. RA:|
00001A80: 8B 20 44 54 B2 31 20 AF  20 52 56 B2 31 20 A7 20  |. DT.1 . RV.1 . |
00001A90: 99 22 11 12 49 4E 53 45  52 54 20 50 52 4F 47 52  |."..INSERT PROGR|
00001AA0: 41 4D 20 44 49 53 4B 22  3A 8D 20 31 30 00 D0 1E  |AM DISK":. 10...|
00001AB0: F5 23 98 4B 4B 28 30 29  2C 22 49 30 22 3A 99 22  |.#.KK(0),"I0":."|
00001AC0: 11 28 4C 4F 41 44 49 4E  47 20 22 58 24 22 29 22  |.(LOADING "X$")"|
00001AD0: 00 03 1F FA 23 9F 20 53  45 2C 38 2C 53 45 2C 22  |....#. SE,8,SE,"|
00001AE0: 30 3A 22 AA 58 24 AA 22  2C 50 2C 52 22 3A 56 4F  |0:".X$.",P,R":VO|
00001AF0: B2 30 3A 8D 20 38 3A A0  20 53 45 3A 8B 20 45 20  |.0:. 8:. SE:. E |
00001B00: A7 20 8E 00 1A 1F FF 23  8B 20 4C 49 B3 32 35 33  |. .....#. LI.253|
00001B10: 20 A7 20 97 20 49 56 2C  4C 49 00 2C 1F 04 24 93  | . . IV,LI.,..$.|
00001B20: 20 22 30 3A 22 AA 58 24  2C 38 3A 90 00 3A 1F 54  | "0:".X$,8:..:.T|
00001B30: 24 8F 20 4F 50 45 4E 20  52 41 00 69 1F 59 24 8B  |$. OPEN RA.i.Y$.|
00001B40: 20 44 54 B2 31 20 AF 20  52 56 B2 31 20 A7 20 99  | DT.1 . RV.1 . .|
00001B50: 22 11 12 49 4E 53 45 52  54 20 44 41 54 41 20 44  |"..INSERT DATA D|
00001B60: 49 53 4B 22 3A 8D 20 31  30 00 80 1F 5B 24 98 4B  |ISK":. 10...[$.K|
00001B70: 4B 28 52 56 29 2C 22 49  22 44 52 24 28 52 56 29  |K(RV),"I"DR$(RV)|
00001B80: 00 B6 1F 5E 24 9F 20 53  45 2C 44 56 28 52 56 29  |...^$. SE,DV(RV)|
00001B90: 2C 53 45 2C 44 52 24 28  52 56 29 AA 22 3A 44 42  |,SE,DR$(RV).":DB|
00001BA0: 22 AA C7 28 33 34 AA 31  32 38 29 AA 4E 41 24 AA  |"..(34.128).NA$.|
00001BB0: 22 2C 53 2C 52 22 00 D1  1F 60 24 56 4F B2 52 56  |",S,R"...`$VO.RV|
00001BC0: 3A 8D 20 38 3A A0 20 53  45 3A 8B 20 45 20 A7 20  |:. 8:. SE:. E . |
00001BD0: 8E 00 EF 1F 63 24 9F 20  52 41 2C 44 56 28 52 56  |....c$. RA,DV(RV|
00001BE0: 29 2C 52 41 2C 22 23 22  3A 42 4C B2 30 3A 8E 00  |),RA,"#":BL.0:..|
00001BF0: 00 00                                             |..              |

....... 5/10/80  9:20. .... 1100.X... 15
:. 15,8,15,"S0:BATCH ENTRY":."0:BATCH EN
TRY",8:......."CORRECTIONS?(.Y./.N.)":G1
$."YN":. 5:.......4,4:.4:.".";:.:..D....
G$:.V.1.C(G1$):.G$..J(G1$,V,1)..V:.5.J..
........KK(VO),E,E$,S,T:.E.2........"DIS
K ERROR:"E;E$;S;T......"..R.EADY?":G1$."
R":.5:..*.... MAIN.8.... SETUP 2.H.... S
AVE BOOK.Y.... ADD RECORD.K.... SAVE FOR
MAT.}.... LOAD FORMAT...... CHANGE FORMA
T...!.. BINARY SEARCH...#.. DISPLAY REC.
E.%.. ASK REC.W.).. WRITE A REC...+.. PO
SITION POINTER...,.. YES?...4.. CHUNK UP
...5.. OPEN FORM.*.;.. PASS PARAMS.6.=..
 ENTRY.H.>.. MERGE BATCH.Y.@.. OPEN BATC
H.D.[.. EXIT.O.L.. MAIN...N.. 9300:. 120
0:. SETUP...Q.."...............BATCH ENT
RY".A.S.."..L.OAD FORMAT"...V.."..C.REAT
E OR CHANGE FORMAT"...[.."..S.AVE FORMAT
"...`.."..E.NTER DATA"...B.."..^. RETURN
 TO FILE MENU".A.E.G1$."LCSE^":. 5:. V .
 2500,2700,2300,6100,9100.L.J.. 1105.X..
.. SETUP...... X.1 . MD:AR%(X).X:. X....
.. HQ.0 . HQ.HF......N2$."".N2$.NA$...D.
:. X.1 . HF:AR%(X)..1:F$(X)."":. X...S..
LI.253.. IV,LI.3.........L.. SAVE BOOK.>
.Q.  SE:UK.WK:.".(SCRATCHING OLD BOOKKEE
PING)".V.V.:.KK(RV),"S".DR$(RV).":DB.".N
A$:VO.RV:. 8:. E.1 . ....|.. SE,DV(RV),S
E,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.N....
 D.0.5:. X.0.HK:.SE,SF%(X,D);R$;:. X,D.G
...."(SAVING POINTERS)".....:. X.0.HK:. 
RR.1 . HR:.SE,PO%(RR,X);R$;:. RR:.X.I...
. R3 . ."(SAVING BLOCK MAP)":. X.1.10:. 
X.....:. R3 . . WB.1 . HB:.SE," "T%(WB)R
$" "S%(WB)R$;:.WB.3....R4.N#(RA):M#(RA),
("RA.".NA$),L(RS),D(DR(RV)).S....X.1.HF:
.SE," "MF%(X)R$;:.X.M...SP.0:  SE:VO.RV:
. 8:..~.4.. ADD RECORD...9.E.1:. DD . ."
..DEALER DEMO CANT ADD":..H.>..HR.MR . .
"FILE IS FULL":....C.."(ADDING RECORD#"H
R.1".)"...H.WR.HR.1:.4100:. E . .:. ASK,
WRITE.-.M.SP.1:UK.WK:. WK.0.HK:FI$."".J.
R.:. D.1 . SF%(WK,0):FI$.FI$.F$(SF%(WK,D
)).Z$:. D:. 3300:....W.:. FR.HR.1 . BR.F
R:TR.HR:. 5200:. CHUNK UP...\.:PO%(FR,WK
).HR.1:.WK.UK. RR.FR.S.A.. WK:HR.HR.1:WK
.UK...F..:. WRT,DISP...... SAVE FORMAT..
....".             .SAVE FORMAT".3...X1$
."W":. 5300:. E . ..Y.G.:. WF.1 . HF:.SE
,AR%(WF);R$;:. WF.D.L.  SE:..V.D.. LOAD 
FORMAT...E..".       .LOAD FORMAT"...I.X
1$."R":. 5300:. E . ..L.... WF.1.HF:.SE,
AR%(WF):. WF.W...  SE:....... CHANGE FOR
MAT......"........CHANGE FORMAT":. WF.1 
. HF.X....".FIELD #"WF"= "FT$(WF):. "WIL
L YOU NEED TO ENTER THIS FIELD?".}...X.A
R%(WF):X3..1:. 4400:AR%(WF).X...... WF:.
...... BINARY SEARCH.A...TL.0:TH.HR.1:. 
TOO LOW, TOO HIGH.V....TH.TL.1.FR.TH:...
...:P%.(TL.TH).2..1:WR.PO%(P%,WK):. R4 .
 . 3350:. 3317.:...:. 4300:. X.1 . DK:.R
A,X$(X):. X:FO$."".J...:.X.1.SF%(WK,0):F
O$.FO$.X$(SF%(WK,X)).Z$:.X.....:. FI$..F
O$ . TH.P%:.3310.....:TL.P%:.3310.U...L.
1:.X.1.DK:O#(RA),(WR),(L):.RA,X$(X):L.L.
C(X$(X)).2:.X............ DISPLAY REC...
...".KEY#"WK.1". ="FT$(SF)"   RECORD#"RR
.E.... WF.1 . HF:X$.FT$(WF).":":X$.".".X
$.".".J...:.C(X$).15.MT..2.X$.H(X$.SP$,1
5).Y...:.X$F$(WF)......WF.20.HF.20..".C.
ONTIUE?":G1$."C":.5...... WF:..A.T.CK.0:
. ASK REC...~..".";:L.0:. WF.1 . HF:X$.F
$(WF).....:.AR%(WF).0.F$(WF)."":L.L.2:.3
745.-...: .FT$(WF)":":X$.F$(WF):.4500.O.
..:  X.C(X$).MF%(WF):.X.1. 3735.....:  .
G(7)".FIELD TOO LONG BY"X". CHARACTERS":
.3720.F...: .X$..F$(WF)..X.0.HK:.D.1.SF%
(X,0):CK.CK.(WF.SF%(X,D)):.D,X.....: L.L
.C(X$).2:F$(WF).X$...... WF:. L.RS . ."R
EC TOO LARGE":. 3710./....".";:.3500:.3:
. G$."Y" . 3710.5.....G.<.. MERGE ERROR.
{.A.."YOU HAVE HAD A DISK ERROR DURRING 
A MERGE. ";...F.."THE RECORDS YOU ENTERD
 ARE STILL IN THE ";.A.K.."BATCH FILE.  
"...P.."TO GET THEM IN THE RANDOM ACCESS
 FILE ";...U.."YOU MUST BACKUP THIS DISK
, THEN USE ";.N.Z.."THE 'LOAD FROM SEQ' 
PROGRAM TO LOAD THE ";.W._.."RECORDS INT
O THE FILE.  SEE THE ";...D.."MANUAL SEC
TION 'WHEN THINGS GO WRONG' FOR DETAILS.
K.I.. 10:. LI.253 . . IV,LI.Q.N........ 
WRITE A REC.....X$."":. X.1 . HF:X$.X$.Q
$.F$(X).R$:. X.1.... R4 . O#(RA),(WR):.(
RA),X$;:..D.".. 4300:.RA,X$;.Y.'..KK(RV)
,"U2:"RA;DR(RV);T%(BL);S%(BL):VO.RV:. 8:
....L.. POSITION POINTER...Q.X..((WR.1).
RB..00001).1:. BL.X . 4315...T.:BL.X:.KK
(RV),"U1:"RA;DR(RV);T%(BL);S%(BL):VO.RV:
.8:.E...2...X.(WR.1).(BL.1).RB:. NO. REC
S BEFOR THIS IN THIS BLOCK.W...BP.1.RS.X
:.KK(RV),"B-P:";RA;BP:..B.0.. YES?...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.D...M$.J(X$." ",CX,1):."."M$".
.";:.G$:.G$.""..4565.W...: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.V...:.A.157..CX.1.CX.CX.1:.G$;:.450
5:. LF.....:.A.29.CX..C(X$).CX.CX.1:.G$;
:.4505:RI.....:.A.13.4580:. RET.L...:.A.
20..CX.1..G$;:X$.H(X$,CX.2).J(X$,CX):CX.
CX.1.G...:.A.148.C(X$).78..4555...A.:.A.
147.L.C(X$):.4560:CX.1:X$.""...F.:.4505.
F.K.X$.H(X$,CX.1)." ".J(X$,CX):.G$" .";:
.:. IN...P..H(LE$,CX.1)H(SP$,L)H(LE$,L);
:.:. CL...U.."."M$"..";:.W.1.50:.G$:.G$.
.""..M$".";:..C.Z.:.W:.M$".";:.W.1.50:.G
$:.G$..""...Q...:.W:.4565.S....H(X$,1)."
 ".X$.J(X$,2):.4580.....:.I(X$,1)." ".X$
.H(X$,C(X$).1):.4585.....:.:....P.. CHUN
K 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:E1.(BR).2.0._..5900:
. ML.6:..@.... OPEN FORM.K...."NAME OF F
ORMAT:":X$.N2$:.4500:N2$.X$.....E.1:L.C(
N2$):. L.12 . ."FILE NAME TOO LONG":..L.
C.. X.1 . L:. J(N2$,1)."*". ."'*' ILLEGA
L":....D.:. X:. L.0 . ....H.. DT.1 . QV.
RV:. 5330.+.J.:E.0:."DRIVE(.1./.0.)?":G1
$."01":. 5:QV.E(G$).O.M.:. QV..RV . .KK(
QV),"I".DR$(QV)...R.. X1$."W". .KK(QV),"
S".DR$(QV).":BA".G(162).N2$...... SE,DV(
QV),SE,DR$(QV).":BA.".N2$.",S,".X1$.L...
VO.QV:. 8:. E .   SE.R.......... PASS PA
RAMS.....X.B(ZV.2).256.B(ZV.3).9.AO:. PO
S OF PO%(0,0).G...X.X.(MR.1).2.WK:. POS 
OF PO%(0,WK) HI LO BYTE.K.... B7,(X.S).2
55:. B7.1,(X.S).256...... B7.2,(X.D).255
:. B7.3,(X.D).256... .. B7.4,(X.E1).255:
. B7.5,(X.E1).256...%...K.T.. ENTRY...V.
TR.HR:. 6400:. E . .:. TOP REC, OPEN.*.Y
.."..A.DD,.R.EPLICATE,.M.ERGE":G1$."ARM"
:. 5:.".";.P.... G$."A" . G$."R" . . 650
0:. 6105......"ARE YOU SURE?(.Y./.N.)":G
1$."YN":. 5:.G$."N". 6105...... 6200:.:.
 MERGE BATCH...8.. MERGE BATCH...<.EF.0:
.TR.HR .   SE:.:. NONE TO ADD.#.>.SP.1: 
 SE:. SE,DV(QV),SE,DR$(QV).":BATCH,S,R":
.GOSUB8:IFETHEN3900.H.G.. X.1. HF:.SE,F$
(X):. X:EF.EF.ST.I.L.:. 2100:. E . 3900:
. ADD REC.{.Q.. EF.0 . 6215...V.  SE:. 1
900:....... OPEN BATCH...... DT.1 . QV.R
V:. 6455.....:.".DRIVE NUMBER FOR BATCH 
FILE?(.1./.0.)":G1$."10":. 5:QV.E(G$).!.
..:. QV..RV . .KK(QV),"I".DR$(QV).V.7..K
K(QV),"S".DR$(QV).":BATCH":VO.QV:. 8:. E
.1 . ....=.. SE,DV(QV),SE,DR$(QV).":BATC
H,S,W":VO.QV:. 8...C.....D.. ADD OR REP.
D.I.:.G$."A". .X.1 . HF:F$(X)."":. X...N
.:. TR..MR . ."..FILE IS FULL !!":....S.
:TR.TR.1:.".";:. 3700:.".";:. ASK.4.U.:.
X.1.HF:.SE,Q$F$(X)R$;:. 8:.X.:.X...E..#.
 EXIT.F..#X$."FILE MENU":. 9200:. 9101.V
..#. LOAD PROG....#  RA:. DT.1 . RV.1 . 
."..INSERT PROGRAM DISK":. 10.P..#.KK(0)
,"I0":.".(LOADING "X$")"....#. SE,8,SE,"
0:".X$.",P,R":VO.0:. 8:  SE:. E . .....#
. LI.253 . . IV,LI.,..$. "0:".X$,8:..:.T
$. OPEN RA.I.Y$. DT.1 . RV.1 . ."..INSER
T DATA DISK":. 10...[$.KK(RV),"I"DR$(RV)
...^$. SE,DV(RV),SE,DR$(RV).":DB".G(34.1
28).NA$.",S,R".Q.`$VO.RV:. 8:  SE:. E . 
....C$. RA,DV(RV),RA,"#":BL.0:....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL