home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 4: The Falcon Archive / nf_archive_four_v1.0.iso / ARCHIVE / DEMOS / LAZER / LAZEROS.ZIP / LAZEROS / MAIN / ONEFILE5.BAK (.txt) < prev    next >
GFA-BASIC Atari  |  1995-10-03  |  936b  |  52 lines
  1. DIM buf|(2000000)
  2. DIM index#(100),len#(100)
  3. ptr#=V:buf|(0)
  4. len#=0
  5. '
  6. READ output$
  7. PRINT "Output filename: ";output$
  8. PRINT
  9. '
  10. cnt#=0
  11. DO
  12.   READ f$
  13.   EXIT IF f$="***"
  14.   PRINT f$;" ",
  15.   OPEN "i",#1,f$
  16.   l#=LOF(#1)
  17.   PRINT l#
  18.   BGET #1,ptr#+len#,l#
  19.   CLOSE #1
  20.   index#(cnt#)=len#
  21.   len#(cnt#)=l#
  22.   len#=len#+l#
  23.   '
  24.   len#=(len#+8) AND &H0
  25.   '
  26.   INC cnt#
  27. LOOP
  28. '
  29. PRINT
  30. PRINT "Total length: ";len#
  31. '
  32. m$=""
  33. FOR i#=0 TO cnt#-1
  34.   m$=m$+MKL$(index#(i#)+cnt#*8)
  35.   m$=m$+MKL$(len#(i#))
  36. NEXT i#
  37. '
  38. '
  39. OPEN "o",#1,output$
  40. BPUT #1,V:m$,LEN(m$)
  41. BPUT #1,ptr#,len#
  42. CLOSE #1
  43. '
  44. ~INP(2)
  45. '
  46. DATA "h:\dba\dba.dat"
  47. DATA "h:\dba\knob.mod"
  48. DATA "h:\dba\back.prg"
  49. DATA "h:\dba\3d.prg"
  50. DATA "h:\dba\rot.prg"
  51. DATA "***"
  52.