home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug089.ark / POENT.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  558 b   |  20 lines
  1.      rem This is the Purchase Order Number Sequencing Entry Program
  2.  
  3.      if end #1 then 2000
  4.      open "b:poe" as 1
  5.      read #1;n
  6.      close 1
  7. 1030 PRINT "CURRENT PURCHASE ORDER NUMBER IS ";N
  8. 1040 PRINT:PRINT "PLEASE TYPE IN THE NEW PURCHASE ORDER SEQUENCE"
  9. 1050 PRINT "STARTING NUMBER."
  10. 1060 PRINT:PRINT "A ZERO VALUE WILL ALLOW THE MANUAL ENTRY OF"
  11. 1070 PRINT "NON-SEQUENTIAL PURCHASE ORDER NUMBERS."
  12. 1080 PRINT:INPUT N
  13. 1090 open "b:poe" as 1
  14.      print #1;n
  15.      close 1
  16.      stop
  17. 2000 create "b:poe" as 1
  18.      close 1
  19.      goto 1040
  20.