home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / scripts / pov / jackodat / makbat.bas < prev    next >
Encoding:
BASIC Source File  |  1992-10-23  |  654 b   |  23 lines
  1. INPUT "HOW MANY frames DO YOU have? ", FIN
  2. INPUT "Start file number? ", bs
  3. INPUT "What options do you want? ", opt$
  4. OPEN "makeit.bat" FOR OUTPUT AS 1
  5. FOR J = 1 TO FIN
  6. bas$ = RTRIM$(LTRIM$(STR$(bs)))
  7. zero$ = ""
  8. FOR k = 1 TO (4 - LEN(bas$))
  9.           zero$ = zero$ + "0"
  10. NEXT k
  11. file1$ = "PUMP" + zero$ + bas$ + ".inc"
  12. file2$ = "FLAM" + zero$ + bas$ + ".inc"
  13. PRINT "copy " + file1$ + "+" + file2$ + " pumpdefs.inc"
  14. PRINT "CALL DOX PUMPKIN " + "PUMP" + zero$ + bas$ + " " + opt$
  15. PRINT #1, "copy " + file1$ + "+" + file2$ + " pumpdefs.inc"
  16. PRINT #1, "CALL DOX PUMPKIN " + "PUMP" + zero$ + bas$ + " " + opt$
  17. bs = bs + 1
  18. NEXT J
  19. CLOSE 1
  20.  
  21.  
  22.  
  23.