bwBASIC/C77B/POENT.BAS

1     rem This is the Purchase Order Number Sequencing Entry Program

     if end #1 then 2000
     open "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 "poe" as 1
     print #1;n
     close 1
     stop
2000 create "poe" as 1
     close 1
     goto 1040