This is the file Get.Tools.BAS
--
---
Brian Campbell
e-mail: brian.campbell@worldnet.att.net


10 REM Create Binary Files
20 N$="TOOL.DATA"
30 LET D$=CHR$(4)
40 PRINT D$; "OPEN ";N$
70 LET SL = 16
90 LET A = 8192
100 DIM B(SL)
110 LET LN = 0
120 PRINT "WORKING";
140 REM Loop here to create each file
150 PRINT D$; "READ ";N$
160 LET LN = LN + 1
170 INPUT F$,T$,L
180 IF F$<"A" THEN 500
190 LET NL = INT((L+SL-1)/SL)
200 FOR I = A TO A+(NL-1)*SL STEP SL
210 LET LN = LN + 1
220 INPUT
B(0),B(1),B(2),B(3),B(4),B(5),B(6),B(7),B(8),B(9),B(10),B(11),B(12),B(13),B(14),B(15),CS
230 LET ST=0
300 FOR J = 0 TO SL-1
310	POKE I+J,B(J)
320	LET ST=ST+B(J)
330 NEXT J
340 IF ST <> CS THEN PRINT:PRINT "CHECK-SUM ERROR AT LINE NUMBER:"; LN 350 PRINT
".";
380 NEXT I
390 INPUT Z$
400 PRINT D$; "CREATE ";F$; ",T";T$
410 PRINT D$; "BSAVE ";F$; ",T";T$; ",A";A; ",L";L 420 GOTO 150
500 REM End Loop
510 PRINT
520 PRINT D$; "CLOSE ";N$
590 END