100 READ C                         
110 PRINT CHR$(C)
120 LOGO$="PACKHELP v1.00 [Packlist]" 
130 CPRT$="(c)  AB17  Remote Systems"
140 DEAD$="<ESC>  will Abort Program"
150 MODL$="Processing DISK.DIR"
160 TYPE$="Version for SD123"
170 PRINT CHR$(C):PRINT LOGO$:PRINT CPRT$:PRINT DEAD$;
180 PRINT TAB(30);MODL$;TAB(63);TYPE$
190 PRINT:PRINT:PRINT
200 OPEN "I",#1,"DISK.DIR"
210 OPEN "O",#2,"MID.DIR"
220 IF EOF(1) THEN 380
230 IF INKEY$=CHR$(27) THEN CLOSE:END
240 LINE INPUT#1,A$
250 IF MID$(A$,10,5)="Drive" THEN GOSUB 340
260 IF MID$(A$,10,5)="Drive" THEN 240
270 V1$=LEFT$(A$,12):V2$=MID$(A$,21,12):V3$=MID$(A$,41,12):V4$=MID$(A$,61,12)
280 IF V1$="" THEN 320 ELSE PRINT#2,V1$
290 IF V2$="" THEN 320 ELSE PRINT#2,V2$
300 IF V3$="" THEN 320 ELSE PRINT#2,V3$ 
310 IF V4$="" THEN 320 ELSE PRINT#2,V4$
320 PRINT"Scanning => ";DU$;:PRINT CHR$(13);
330 GOTO 220
340 DU$=MID$(A$,16,3)
350 IF RIGHT$(DU$,1)=" " THEN 360 ELSE DU$=DU$+":":GOTO 370
360 IF RIGHT$(DU$,1)=" " THEN DU$=LEFT$(DU$,1)+"0"+MID$(DU$,2,1)+":"
370 RETURN
380 CLOSE
390 OPEN"I",#1,"MID.DIR":OPEN"O",#2,"PACKLIST"
400 PRINT:PRINT:PRINT"Processing final output file as PACKLIST"
410 IF EOF(1) THEN CLOSE:GOTO 450
420 LINE INPUT#1,A$
430 PRINT#2,A$
440 GOTO 410
450 KILL"MID.DIR"
460 PRINT:PRINT"                    All Done!":SYSTEM
470 DATA 26