home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / dirutl / packhelp.lbr / PACKLIST.BZS / PACKLIST.BAS
Encoding:
BASIC Source File  |  1987-11-27  |  1.4 KB  |  39 lines
  1. 100 READ C                         
  2. 110 PRINT CHR$(C)
  3. 120 LOGO$="PACKHELP v1.00 [Packlist]" 
  4. 130 CPRT$="(c)  AB17  Remote Systems"
  5. 140 DEAD$="<ESC>  will Abort Program"
  6. 150 MODL$="Processing DISK.DIR"
  7. 160 TYPE$="Version for SD123"
  8. 170 PRINT CHR$(C):PRINT LOGO$:PRINT CPRT$:PRINT DEAD$;
  9. 180 PRINT TAB(30);MODL$;TAB(63);TYPE$
  10. 190 PRINT:PRINT:PRINT
  11. 200 OPEN "I",#1,"DISK.DIR"
  12. 210 OPEN "O",#2,"MID.DIR"
  13. 220 IF EOF(1) THEN 380
  14. 230 IF INKEY$=CHR$(27) THEN CLOSE:END
  15. 240 LINE INPUT#1,A$
  16. 250 IF MID$(A$,10,5)="Drive" THEN GOSUB 340
  17. 260 IF MID$(A$,10,5)="Drive" THEN 240
  18. 270 V1$=LEFT$(A$,12):V2$=MID$(A$,21,12):V3$=MID$(A$,41,12):V4$=MID$(A$,61,12)
  19. 280 IF V1$="" THEN 320 ELSE PRINT#2,V1$
  20. 290 IF V2$="" THEN 320 ELSE PRINT#2,V2$
  21. 300 IF V3$="" THEN 320 ELSE PRINT#2,V3$ 
  22. 310 IF V4$="" THEN 320 ELSE PRINT#2,V4$
  23. 320 PRINT"Scanning => ";DU$;:PRINT CHR$(13);
  24. 330 GOTO 220
  25. 340 DU$=MID$(A$,16,3)
  26. 350 IF RIGHT$(DU$,1)=" " THEN 360 ELSE DU$=DU$+":":GOTO 370
  27. 360 IF RIGHT$(DU$,1)=" " THEN DU$=LEFT$(DU$,1)+"0"+MID$(DU$,2,1)+":"
  28. 370 RETURN
  29. 380 CLOSE
  30. 390 OPEN"I",#1,"MID.DIR":OPEN"O",#2,"PACKLIST"
  31. 400 PRINT:PRINT:PRINT"Processing final output file as PACKLIST"
  32. 410 IF EOF(1) THEN CLOSE:GOTO 450
  33. 420 LINE INPUT#1,A$
  34. 430 PRINT#2,A$
  35. 440 GOTO 410
  36. 450 KILL"MID.DIR"
  37. 460 PRINT:PRINT"                    All Done!":SYSTEM
  38. 470 DATA 26
  39.