2! PROGRAM : READDG.BAS 5! VERSION : V1.0 6! EDIT : 00A 7! EDIT DATE : 22-Aug-86 10 EXTEND 11 ! & & & ! C O P Y R I G H T & & & ! Copyright (C) 1985, 1986 by Terence M. Kennedy & ! & ! & ! This software is furnished under a license and may be used and & ! copied only in accordance with the terms of such license and & ! with the inclusion of the above copyright notice. This & ! software or any other copies thereof may not be provided or & ! otherwise made available to any other person. No title to and & ! ownership of the software is hereby transferred. & ! & ! The information in this software is subject to change without & ! notice and should not be construed as a commitment by either & ! Terence M. Kennedy or Saint Peter's College. & ! & !******************************************************************* & & 20 ! & & & ! M O D I F I C A T I O N H I S T O R Y & & & ! VER/ED EDIT DATE REASON & ! 00-A 29-Jun-86 Original Version & & & 100 on error goto 30000 110 open "MS0:" as file 1%, recordsize 514% & \ field #1%, 510% as mtdata$, 4% as junk$ & \ j%=magtape(3%,0%,1%) ! rewind the tape 120 file%=0 ! starting file number 130 file$="DG."+num1$(file%) 134 print 135 print "Processing ";file$ 140 open file$ for output as file 2% 150 get #1% & \ temp$=mtdata$ & \ print "."; 155 if ascii(mid(junk$,2%,1%))<>file% then print "File position error" 160 split%=instr(1%,temp$,chr$(13%)) 170 if split%=0% then goto 210 180 print #2%,mid(temp$,1%,split%-1%) ! write out left 190 temp$=mid(temp$,split%+1%,len(temp$)) ! here's rest 200 goto 160 210 print #2%,temp$; ! Print out 1st part 220 goto 150 30000 if err=11% and erl=150% then goto 30100 30010 print "error ";err;" at ";erl 30020 goto 32767 30100 close #2 30110 file%=file%+1% 30130 resume 130 32767 end