0010 ! Copyright Nigel Davies, Sydney. V<870328>
0100 SUB DUMPFILE(F$,T$) ! F$=file to dump, T$=file to dump F$ into
0110 N=75 @ DIM B$[N+5] ! N>37 !
0120 S=HTD(ADDR$(F$)) @ L=HTD(REV$(PEEK$(DTH$(S+32),5)))+32
0130 CREATE TEXT T$,L+(L DIV N+1)*7+2 @ ASSIGN #1 TO T$
0140 B$=PEEK$(DTH$(S),MIN(L,N)) @ PRINT #1;DTH$(STRSUM(B$))&B$ @ S=S+N @ L=L-N @ IF L>0 THEN 140
0150 ASSIGN #1 TO *
0500 SUB MAKEFILE(T$) ! T$=dump of file to be made (ie. T$ from DUMPFILE)
0510 DIM B$[256]
0520 ASSIGN #1 TO T$
0530 GOSUB 560 @ N=LEN(B$) @ L=HTD(REV$(B$[33,37]))+32
0540 S=MAKEFILE(L) @ POKE DTH$(S),B$[1,32] @ IF N>37 THEN POKE DTH$(S+37),B$[38]
0550 S=S+N @ L=L-N @ IF L>0 THEN GOSUB 560 @ POKE DTH$(S),B$ @ GOTO 550 ELSE END 
0560 READ #1;B$ @ IF HTD(B$[1,5])#STRSUM(B$[6]) THEN BEEP @ DISP 'CHECKSUM ERROR' @ PAUSE 
0570 B$=B$[6] @ RETURN