home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / CATLOG / NUMBERIT.LBR / NUMBERIT.BZS / NUMBERIT.BAS
BASIC Source File  |  2000-06-30  |  1KB  |  38 lines
  1. 10 PRINT "This program will create empty file names like -.001"
  2. 20 PRINT "that are useful for disk catalog programs.  The file will"
  3. 30 PRINT "take up 0K and the extension will be incremented automatically"
  4. 40 PRINT "Between file creations, a disk reset is done to ensure no"
  5. 50 PRINT "BDOS errors occur"
  6. 60 PRINT "Thanks to Bruce Tonkin for BCBC Basic Compiler..."
  7. 70 PRINT "                       Pierre Kerr, Ottawa Nov 1986"
  8. 80 P$="."
  9. 90 PRINT:PRINT "Enter the filename including disk drive ID (EG. B:-DATA) ";
  10. 100 INPUT FIN$
  11. 110 REM Since BCBC doesn't allow FIN$=C$+"." we need to define P$="."
  12. 120 C$=FIN$+P$
  13. 130 PRINT:PRINT "Now enter the starting value for the extension "
  14. 140 INPUT EXT
  15. 150 PRINT "To stop enter a CNTRL-C "
  16. 160 REM   Make up the file name
  17. 170 REM Note: it's always a good idea to keep statements VERY simple in BCBC
  18. 180    A$=STR$(EXT)
  19. 190    B$=RIGHT$(A$,3)
  20. 200    FI$=C$+B$
  21. 210 PRINT "Creating ";:PRINT FI$:PRINT "Type RETURN to proceed or CNTRL-C to QUIT"
  22. 220    INPUT T$
  23. 230 REM    Insert Inline ASM to do a disk reset
  24. 240 #ASM
  25. 250 MVI   C,13
  26. 260 CALL  5
  27. 270 #ENDASM
  28. 280   OPEN 1,FI$
  29. 290   EXT=EXT+1
  30. 300 GOTO 160
  31. 310 END
  32. do a disk reset
  33. 240 #ASM
  34. 250 MVI   C,13
  35. 260 CALL  5
  36. 270 #ENDASM
  37. 280   OPEN 1,FI$
  38. 290   EXT=EXT+