FOR counter=startvalue TO limit

PRINT counter

NEXT

i_file = OPEN(input_file,r)  //open your input file for reading
o_file1 = OPEN(output_file,w)   //open output file for availability
o_file2 = OPEN(output_file2,w)  //open output file for over 30 males

WHILE line=readline(i_file)  //read from file 
   [name,sex,age,availability] = line

   //start tallying up stats
   IF sex=male
      IF availability=A
         num_A_male++  //# of available males
         IF age>30
            [name,age] -> o_file2  //available males over 30
      IF availability=N
         num_N_male++  //# of unavailable males

   IF sex=female
      IF availability=A
         num_A_female++  //# of available females
      IF availability=N
         num_N_female++  //# of unavailable females
   
NEXT //end looping through file

//write our values to file
[num_A_male,num_N_male,num_A_female,num_N_female] -> o_file1

'FILE VARIABLES
'==============
DIM i_file$
DIM o_file_summary$
DIM o_file_eligible$

'INPUT VARIABLES
'===============
DIM name$
DIM sex$
DIM age
DIM available$

'OUTPUT VARIABLES
'================
DIM num_A_male
DIM num_N_male
DIM num_A_female
DIM num_N_female

num_A_male = 0
num_N_male = 0
num_A_female = 0
num_N_female = 0

i_file$ = "readfile.txt"
o_file_summary$ = "summary.txt"
o_file_eligible$ = "eligible.txt"

PRINT "-----------------------"
PRINT "| PROGRAM STARTING... |"
PRINT "-----------------------"

'open our input file for reading
OPEN i_file$ FOR INPUT AS #1

'loop through file until the end
DO WHILE NOT EOF(1)

  'grab the values from the line
  INPUT #1,name$,sex$,age,available$
  
  'if male over 30 and available, write to file
  IF sex$=="M" AND available=="A" AND age>30 THEN
    OPEN o_file_eligible$ FOR APPEND AS #2
    WRITE #2,name$,age
    CLOSE #2
  END IF
  
  'tally up numbers for males
  IF sex$=="M" AND available$=="A" THEN
    num_A_male = num_A_male + 1
  END IF
  IF sex$=="M" AND available$=="N" THEN
    num_N_male = num_N_male + 1
  END IF
  
  'tally up numbers for females
  IF sex$=="F" AND available$=="A" THEN
    num_A_female = num_A_female + 1
  END IF
  IF sex$=="F" AND available$=="N" THEN
    num_N_female = num_N_female + 1
  END IF

LOOP

'we are done reading from file, close it
CLOSE #1
  
'write our results to the summary file
OPEN o_file_summary$ FOR APPEND AS #2
PRINT #2,"SINGLE FEMALES:  ",num_A_female
PRINT #2,"MARRIED FEMALES: ",num_N_female
PRINT #2,"SINGLE MALES:    ",num_A_female
PRINT #2,"MARRIED MALES:   ",num_N_female
CLOSE #2

PRINT "---------------------"
PRINT "| PROGRAM FINISHED! |"
PRINT "---------------------"