home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 35.dms / 35.adf / striper.bas < prev    next >
Encoding:
BASIC Source File  |  1988-05-22  |  1.1 KB  |  33 lines
  1. 10    ? "XMODEM Padding Remover"
  2. 20    ? "    By Jim Nangano"
  3. 30    ? "This program will produce"
  4. 40    ? "a loadable file from the "
  5. 50    ? "file downloaded by Xmodem"
  6. 60    ? :? "You will be prompted for"
  7. 70    ? "the input filename. The program"
  8. 80    ? "will output the same filename"
  9. 90    ? "with a '.OBJ' extension":?
  10. 100   INPUT "NAME OF FILE TO BE STRIPPED ? ",IN$
  11. 110   OPEN "N",#1,IN$,128
  12. 120   ON ERROR GOTO 140
  13. 140   ON ERROR GOTO 0
  14. 150   OPEN "N",#2,IN$+".OBJ"
  15. 160   FIELD #1,128 AS IBUFF$
  16. 170   FIELD #2,128 AS OBUFF$
  17. 180   NRECS=(LOF(1)/128)-1
  18. 185   rput #2,0
  19. 190   FOR I=1 TO NRECS
  20. 200   ? nrecs-i+1;"Records remaining ";chr$(13);
  21. 210   RGET #1,I:LSET OBUFF$=IBUFF$:RPUT #2,I
  22. 240   NEXT I:CLOSE #2
  23. 260   OPEN "A",#2,IN$+".OBJ":RGET #1,I:PTR=1
  24. 290   ? "CORRECTING LAST RECORD"
  25. 300   while mid$(ibuff$,ptr,2)<>chr$(3)+chr$(&hf2)
  26. 310   PRINT #2,MID$(IBUFF$,PTR,1);:PTR=PTR+1
  27. 330   WEND
  28. 332   print#2,mid$(ibuff$,ptr,2);
  29. 340   CLOSE #1: CLOSE #2
  30. 350   ? "Done!"
  31. 360   ? "at the CLI prompt enter"
  32. 370   ? IN$;".OBJ to run the program"
  33.