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
/
POENT.BAS
< prev
next >
Wrap
BASIC Source File
|
1984-04-29
|
558b
|
20 lines
rem This is the Purchase Order Number Sequencing Entry Program
if end #1 then 2000
open "b:poe" as 1
read #1;n
close 1
1030 PRINT "CURRENT PURCHASE ORDER NUMBER IS ";N
1040 PRINT:PRINT "PLEASE TYPE IN THE NEW PURCHASE ORDER SEQUENCE"
1050 PRINT "STARTING NUMBER."
1060 PRINT:PRINT "A ZERO VALUE WILL ALLOW THE MANUAL ENTRY OF"
1070 PRINT "NON-SEQUENTIAL PURCHASE ORDER NUMBERS."
1080 PRINT:INPUT N
1090 open "b:poe" as 1
print #1;n
close 1
stop
2000 create "b:poe" as 1
close 1
goto 1040