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 / SIMTEL / CPMUG / CPMUG089.ARK / INVENT.BAS < prev    next >
BASIC Source File  |  1984-04-29  |  530b  |  20 lines
  1.      rem This is the Invoice Number Sequencing Entry Program
  2.  
  3.      if end #1 then 2000
  4.      open "b:inv" as 1
  5.      read #1;n
  6.      close 1
  7. 1030 PRINT "CURRENT INVOICE NUMBER IS ";N
  8. 1040 PRINT:PRINT "PLEASE TYPE IN THE NEW INVOICE SEQUENCE"
  9. 1050 PRINT "STARTING NUMBER."
  10. 1060 PRINT:PRINT "A ZERO VALUE WILL ALLOW THE MANUAL ENTRY OF"
  11. 1070 PRINT "NON-SEQUENTIAL INVOICE NUMBERS."
  12. 1080 PRINT:INPUT N
  13. 1090 open "b:inv" as 1
  14.      print #1;n
  15.      close 1
  16.      stop
  17. 2000 create "b:inv" as 1
  18.      close 1
  19.      goto 1040
  20.