'Program 2
'Andrew L
'1-30-08
'
'
'Variable Dictionary
'Variable           What it means
'x$                 Decision yes or no
'tc                 Total Cities
'firstrecord        First Record
'fnum               Passenger number
'an$                Another Record?
'tc                 Total Counter
'sub1               Subtotal 1
'sub2               Subtotal 2
'a
'c
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'

CLS
PRINT "This is the Federal Aviation Administration Program... Do you want to run this program?"
INPUT x$
LET x$ = UCASE$(x$)
DO UNTIL x$ = "YES" OR x$ = "NO" OR x$ = "Y" OR x$ = "N"
  PRINT "Error"
  PRINT "Please Type Yes (Y) or No (N)"
  INPUT x$
  LET x$ = UCASE$(x$)
LOOP
DO UNTIL x$ = "NO" OR x$ = "N"
  GOSUB setup
  PRINT "Would you like to build a file?"
  INPUT x$
  LET x$ = UCASE$(x$)
    DO UNTIL x$ = "YES" OR x$ = "NO" OR x$ = "Y" OR x$ = "N"
      PRINT "Error"
      PRINT "Please Type Yes (Y) or No (N)"
      INPUT x$
      LET x$ = UCASE$(x$)
    LOOP
  DO UNTIL x$ = "NO" OR x$ = "N"
    GOSUB build
  LOOP
  GOSUB hdg
  GOSUB report
  'GOSUB total
LOOP
END

setup:
LET firstrecord = 1
LET tc = 1
LET pnum = 300
RETURN

build:
OPEN "f:\data.dat" FOR OUTPUT AS #1
  DO UNTIL an$ = "NO" OR an$ = "N"
    PRINT "Please Enter a City"
    INPUT c$
    PRINT "Please Enter the Airline"
    INPUT a$
    LET a$ = UCASE$(a$)
       DO UNTIL a$ = "USA" OR a$ = "AAL" OR a$ = "DAL"
          PRINT "Error"
          PRINT "Please enter USA or AAL or DAL"
          INPUT a$
          LET a$ = UCASE$(a$)
       LOOP
    PRINT "Please Enter the ammount of Passengers"
    INPUT p
       DO UNTIL p <= pnum
          PRINT "Error"
          PRINT "Please enter a number below "; pnum
          INPUT p
       LOOP
       WRITE #1, c$, a$, p
    PRINT "Would you like to write another record?"
    INPUT an$
    LET an$ = UCASE$(an$)
      DO UNTIL an$ = "YES" OR an$ = "Y" OR an$ = "NO" OR an$ = "N"
        PRINT "Error"
        PRINT "Please enter Yes (Y) or No (N)"
        INPUT an$
        LET an$ = UCASE$(an$)
      LOOP
  LOOP
CLOSE
RETURN

hdg:
PRINT
PRINT TAB(30); "AIRLINE USAGE REPORT"
PRINT
PRINT
PRINT TAB(1); "City"; TAB(34); "Airline"; TAB(67); "Passenger Load"
RETURN

report:
OPEN "F:\data.dat" FOR INPUT AS #1
DO UNTIL EOF(1)
  INPUT #1, c$, a$, p
  IF firstrecord = 1 THEN
    LET comp$ = c$
    LET firstrecord = 0
  END IF
  IF com$ <> c$ THEN
    PRINT sub1
    LET com$ = c$
    PRINT sub2
    LET c = 0
    LET a = 0
    LET tc = tc + 1
  END IF
GOSUB process
PRINT sub1
PRINT sub2
CLOSE
LOOP

process:
IF a$ = "AAL" THEN
  AAL = AAL + 1
  a$ = "American Air Lines"
END IF
IF a$ = "USA" THEN
  USA = USA + 1
  a$ = "U.S. Air Lines"
  ELSE
  DAL = DAL + 1
  a$ = "Delta Air Lines"
END IF


RETURN

using System;
using System.IO;
using System.Linq;
using System.Collections.Generic;

namespace MahProgram
{
    public class AirlineData
    {
        private string _sCity;
        private string _sAirline;
        private string _sPassenger;  //What the **** is this anyway? Passenger name or total passengers?

        public string City
        {
            get { return _sCity; }
            set { _sCity = value; }
        }

        public string Airline
        {
            get { return _sAirline; }
            set { _sAirline = value; }
        }

        public string Passenger
        {
            get { return _sPassenger; }
            set { _sPassenger = value; }
        }
    }

    public class TheProgram
    {
        private int _wPassengerCount;
        private AirlineData _ad;
        List<AirlineData> _lstAirline****;

        private const string FILE_PATH = @"c:\path\to\DATA1.DAT";

        private void LoadFile()
        {
            string sLine = string.Empty;
            string[] saStrings;
            AirlineData ad;
            using (TextReader tr = new StreamReader(FILE_PATH))
            {
                while ((sLine = tr.ReadLine()) != string.Empty)
                {
                    saStrings = sLine.Split('\t');  //Assuming tab delimited, specs never said otherwise.

                    if (saStrings.Count == 3)
                    {
                        ad = new AirlineData();
                        ad.City = saStrings[0];
                        ad.Airline = saStrings[1];
                        ad.Passenger = saStrings[2];

                        _lstAirline****.Insert(ad);
                    }
                }
            }
        }

        /// <summary>
        /// LINQ is ****ing badass.
        /// </summary>
        private void GenerateReport()
        {
            var vAirports = from air in _lstAirline****
                            group air by air.City;

            foreach (IGrouping<string, AirlineData> airData in vAirports)
            {
                Console.WriteLine("City {0}", airData.Key);
                foreach (var data in vAirports)
                    Console.WriteLine("\t {0} on {1}", data.Passenger, data.Airline);
            }
        }
    }
}

public string Name { get; private set; }