ChipMaster
/
bwBASIC
1
0
Fork 0
Code Issues 22 Pull Requests 0 Releases 17 Wiki Activity
ChipMaster's bwBASIC This also includes history going back to v2.10. *WARN* some binary files might have been corrupted by CRLF.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
11 Commits
3 Branches
4.5 MiB
 
 
 
 
 
 
Tree: 5a220d5b6b
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '5a220d5b6b'
${ noResults }
bwBASIC/C77B/INVENT.BAS

20 lines
506 B
Raw Blame History 

  1. 1     rem This is the Invoice Number Sequencing Entry Program

  2. 

  3.      if end #1 then 2000

  4.      open "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 "inv" as 1

  14.      print #1;n

  15.      close 1

  16.      stop

  17. 2000 create "inv" as 1

  18.      close 1

  19.      goto 1040