PRINT "This program creates a daily sales report file named SALES.DAT"
  OPEN "SALES.DAT" FOR OUTPUT AS FILE #4%
  PRINT #4%, "Salesperson","Sales Area","Items Sold"
  PRINT #4%
  INPUT "How many salespersons for today's report"; sales_persons%
  FOR I% = 1% TO sales_persons%
        INPUT "Salesperson's name"; s_name$
        INPUT "Sales area"; area$
        INPUT "Number of items sold"; items_sold%
        PRINT #4%, s_name$, area$, items_sold%
  NEXT I%
  CLOSE #4%
  END