BATCH ENTRY
FILE INFORMATION
FILENAME(S): BATCH ENTRY
FILE TYPE(S): PRG
FILE SIZE: 7K
FIRST SEEN: 2025-11-30 20:14:52
APPEARS ON: 1 disk(s)
FILE HASH
324abd0bda800b00176fc6863ef421380df3c373fce858688eb6f6da8c97b519
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PRACTIFILE | BATCH ENTRY | PRG | Curtcool, LPN | 7 | 17 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
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 88 |ELD TOO LONG BY.|
00000C70: FF F8 CF 9F F8 0F 0F AF 2F FF FF FF FF 8F F9 F2 |......../.......|
00000C80: 08 F0 FF F2 F8 02 22 6F 6F F4 FD FA 20 8B 58 8F |......"oo... .X.|
00000C90: C9 DF 71 8F 8F 7B 71 8F D1 FF 7F D9 80 63 32 16 |..q..{q......c2.|
00000CA0: FF 8F C9 B4 00 7F FF F4 62 52 85 82 C3 02 93 A4 |........bR......|
00000CB0: 34 BB 24 34 BA B2 85 74 6B 25 34 62 52 85 82 C4 |4.$4...tk%4bR...|
00000CC0: 42 92 93 A8 24 42 C5 80 0E 21 09 C0 E3 A2 04 CB |B...$B...!......|
00000CD0: 24 CA AC 32 85 82 42 9A A3 23 A4 62 42 85 74 62 |$..2..B..#.bB.tb|
00000CE0: 9B 25 82 40 00 C1 0E 82 20 57 46 3A 8B 20 4C B1 |.%.@.... 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...O...../.......
......"OO... .X.I.Q..{Q.Q.Y.C2...I....
BR..C...4.$4...TK%4BR..DB...$BE..!.....K
$J.2..B..#.BB.TB.%.@.A.. 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:....
> CLICK IMAGE PREVIEW FOR FULL MODAL