11.1

'-----------------
'-----------------
DIM ID$(30), income(30), Members(30)
GOSUB InitializeVariables
GOSUB PrintTitleHeadings
GOSUB Process
GOSUB PrintData
GOSUB DoAverage
GOSUB DoPoverty

END

'-----
InitializeVariables:
   LET T$ = "           Income Survey Results"
   LET H$ = "      ID  Annual Income   #Members"
   LET D$ = "     \  \    ###,###         ##"
   LET H2$ = "     ID   Annual Income"
   LET D2$ = "    \  \    ###,###"
RETURN

'------
PrintTitleHeadings:
   CLS

   PRINT
   PRINT T$
   PRINT
   PRINT
   PRINT H$
   PRINT
RETURN

'------
Process:
   GOSUB ReadData
   DO UNTIL ID$(count) = "QUIT"
       GOSUB ReadData
   LOOP

   LET count = count - 1

RETURN

ReadData:
   count = count + 1
   READ ID$(count), income(count), Members(count)
   DATA 1111, 10000, 3
   DATA 2222, 20000,1
   DATA 3333, 2000, 5
   DATA 6666, 30000, 2
   DATA 8888, 2460, 3
   DATA QUIT, 0, 0
RETURN



'------
PrintData:

  FOR I = 1 TO count

     PRINT USING D$; ID$(I); income(I); Members(I)
  NEXT I

RETURN

'------
DoAverage:
RETURN

'------
DoPoverty:
  FOR I = 1 TO count

     IF Members(I) <= 2 THEN
        poverty = 8000
     ELSE
        poverty = 8000 + (Members(I) - 2) * 2000
     END IF

     IF income(I) < poverty THEN
        low = low + 1
     END IF


  NEXT I

 LET a$ = INPUT$(1)
 PRINT CHR$(12)

  PRINT
  PRINT "The percentage of households income less than poverty level is ";
  LET percent = low / count * 100
  PRINT USING "###.##%"; percent


RETURN