#COMPILE EXE
#DIM ALL
' a computerized version of the WHO Major Dipression Inventory
' with scoring and data capture
' gmcduffee@mcduffee-associates.us
' placed in the public domain 07 Sept 2011
' revised and expanded 14 sept 11
FUNCTION PBMAIN
  DIM i AS LONG
  DIM j AS LONG
  DIM k AS LONG
  
  ' english language items
  DIM Eitem( 0 TO 13) AS STRING
  Eitem(0) = "How much of the time "
  Eitem(1) = "have you felt low in spirits or sad?
  Eitem(2) = "have you lost interest in your daily activities?"
  Eitem(3) = "have you felt lacking in energy and strength?"
  Eitem(4) = "have you felt less selfconfident?"
  Eitem(5) = "have you had a bad conscience or feelings of guilt?
  Eitem(6) = "have you felt that life wasn't worth living?"
  Eitem(7) = "have you had difficulty in concentrating, e.g. when reading the newspaper or watching TV?"
  Eitem(8) = "have you felt very restless?"
  Eitem(9) = "have you felt subdued or slowed down?"
  Eitem(10) = "have you had trouble sleeping at night?"
  Eitem(11) = "have you suffered from reduced appetite?"
  Eitem(12) = "have you suffered from increased appetite?
  FOR i = 1 TO 12 STEP 1
      j = LEN(Eitem(i))
      Eitem(i) = Eitem(i) + SPACE$(80-j)
  NEXT i
  
  DIM ES(0 TO 5) AS STRING
  ES(5) = "All the time"
  ES(4) = "Most of the time"
  ES(3) = "Slightly more than half the time"
  ES(2) = "Slightly less than half the time"
  ES(1) = "Some of the time"
  ES(0) = "Very seldom or never"
  
  
  
  ' spanish language items
  DIM Sitem(0 TO 13) AS STRING
  Sitem(0) = "Qué parte del tiempo..."
  Sitem(1) = "¿Se ha sentido deprimido o triste?"
  Sitem(2) = "¿Ha perdido interés en sus actividades diarias?"
  Sitem(3) = "¿Ha sentido falta de energía y fuerza?"
  Sitem(4) = "¿Ha sentido menos confianza en sí mismo?"
  Sitem(5) = "¿Ha tenido usted cargos de conciencia o sentimientos de culpa?
  Sitem(6) = "¿Ha sentido que la vida no merece la pena vivirla?"
  Sitem(7) = "¿Ha tenido dificultades para concentrarse, por ejemplo cuando lee el periódico o ve la televisión?"
  Sitem(8) = "¿Se ha sentido muy inquieto?"
  Sitem(9) = "¿Se ha sentido apagado o lento?"
  Sitem(10)= "¿Ha tenido problemas para dormir por la noche?"
  Sitem(11)= "¿Ha notado falta de apetito?"
  Sitem(12)= "¿Ha notado aumento de apetito?"
  FOR i = 1 TO 12 STEP 1
      j = LEN(Sitem(i))
      Sitem(i) = Sitem(i) + SPACE$(80-j)
  NEXT i
  
  DIM SS(0 TO 5) AS STRING
  SS(5) = "Todo el tiempo"
  SS(4) = "La mayor parte del tiempo"
  SS(3) = "Poco más de la mitad del tiempo"
  SS(2) = "Poco menos de la mitad del tiempo"
  SS(1) = "Ocasional mente"
  SS(0) = "Nunca"
  
  
  
  
  
  
  ' portuguese language items
  DIM Pitem(0 TO 13) AS STRING
  Pitem(0) = "Quanto do tempo…"
  Pitem(1) = "Você sentiu baixo nos espírito ou triste?"
  Pitem(2) = "Você perdeu o interesse em suas atividades diárias?"
  Pitem(3) = "Você sentiu de falta na energia e na força? "
  Pitem(4) = "Você sentiu menos auto confiável?"
  Pitem(5) = "Tenha-o uma consciência má ou sentimentos de culpa?"
  Pitem(6) = "Você sentiu a vida não era vida do valor??"
  Pitem(7) = "Você teve a dificuldade na concentração, por exemplo ao ler o jornal ou ao prestar atenção à televisão?"
  Pitem(8) = "Você sentiu muito agitado?"
  Pitem(9) = "Você sentiu subdued ou retardado?"
  Pitem(10) = "Você teve o problema dormir na noite?"
  Pitem(11) = "Você sofreu do apetite reduzido?"
  Pitem(12) = "Você sofreu do apetite aumentado?"
  FOR i = 1 TO 12 STEP 1
      j = LEN(Pitem(i))
      Pitem(i) = Pitem(i) + SPACE$(80-j)
  NEXT i
  
  DIM PS(0 TO 5) AS STRING
  PS(5) = "Todo o tempo"
  PS(4) = "Na maioria das vezes"
  PS(3) = "Ligeiramente mais do que a metade do tempo."
  PS(2) = "Ligeiramente menos do que a metade do tempo."
  PS(1) = "Algum do tempo."
  PS(0) = "Nunca ou quase nunca."
  
  
  
  
  
  
  ' SCREEN QUERY ITEMS
  DIM sq(0 TO 13) AS STRING
  FOR i = 1 TO 12
      sq(i) = SPACE$(80)
  NEXT i
  
  
  
  ' misc program variables
  DIM Q AS STRING*1
  Q = "?"
  DIM lastname AS STRING
  lastname = "?"
  DIM firstname AS STRING
  firstname = "?"
  DIM phoneno AS STRING
  phoneno = "?"
  DIM yob AS INTEGER
  yob = -9999
  DIM gender AS STRING
  gender = "?"
  DIM maritalstatis AS STRING
  maritalstatis = "?"
  DIM studtype AS STRING
  studtype = "?"
  DIM workhrs AS LONG
  workhrs = -9999
  DIM SCH AS LONG
  sch = -9999
  DIM studenttype AS STRING
  studenttype = "?"
  '------------------------------------------------------------------------------
  DIM datastring AS STRING
  datastring = ""
  '------------------------------------------------------------------------------
  DIM response(1 TO 12) AS LONG
  FOR i = 1 TO 12 STEP 1
      response(i) = -9999
  NEXT i
  
  DIM MDIscore AS LONG
  MDIscore = -9999
  
  '------------------------------------------------------------------------------
  
  
  
  '------------------------------------------------------------------------------
  ' actual start of program
  '------------------------------------------------------------------------------
  datastring = ""
  datastring = ENVIRON$(12) + ","
  datastring = datastring + TIME$ + ","
  datastring = datastring + DATE$
  CON.NEW
  CON.FOCUS
  CON.CAPTION$ = "GCCC Student Well Being Survey"
  CON.INPUT.FLUSH
  CON.CLS
  CON.SCREEN = 43,200
  CON.VIRTUAL = 43,200
  CON.LOC = 1,1
  CLS
  LOCATE 5,10
  PRINT "All information is confidential.  A composit aggregate file is"
  LOCATE 6,10
  PRINT "kept for statistical analysis, but you do not need to leave your name or"
  LOCATE 7,10
  PRINT "demographic information, however this will be a big help."
  Q ="?"
  
  '------------------------------------------------------------------------------
  ' commented out pending review of english program
  ' LOCATE 10,10
  ' PRINT "input E for English, P for Portuguese, S for Spanish"
  ' Q = "?"
  ' LOCATE 11,10
  ' INPUT "your preferred language -->";Q
  ' Q = UCASE$(Q)
  ' WHILE (INSTR("EPS", Q) = 0)
  ' BEEP
  ' LOCATE 12,10
  ' COLOR 14,0
  ' PRINT "PLEASE ENTER ONLY E(nglish),P(ortuguese) or S(panish)"
  ' COLOR 7,0
  ' LOCATE 11,10
  ' INPUT "your preferred language -->";Q
  ' Q = UCASE$(Q)
  ' WEND
  '------------------------------------------------------------------------------
  CLS
  ' COLOR 7,0
  ' LOCATE 5,20
  ' PRINT "English only available at this time"
  Q ="?"
  COLOR 7,0
  LOCATE 8,10
  INPUT "enter Y to input your name, N to skip, Q to Quit " Q
  Q = UCASE$(q)
  WHILE (INSTR("NQY", Q) = 0)
        BEEP
        LOCATE 10,10
        COLOR 0,14
        PRINT "PLEASE ENTER ONLY Y[es], N[o] or Q[uit]"
        COLOR 0,7
        LOCATE 8,10
        INPUT "enter Y to input your name, N to skip, Q to Quit " Q
        Q = UCASE$(q)
  WEND
  
  IF (Q ="Q") THEN GOTO fini
  
  IF (Q = "Y") THEN
     CLS
     LOCATE 10,5
     INPUT "enter last name: "; lastname
     LOCATE 12,5
     INPUT "enter first name: ";firstname
     LOCATE 14,5
     INPUT "enter phone number w/area code :"phoneno
  END IF
  
  
  IF (Q = "N") THEN
     lastname = "declined"
     firstname = "declined"
     phoneno = "declined"
  END IF
  
  datastring = datastring + ",LN," + lastname
  datastring = datastring + ",FN," + firstname
  datastring = datastring + ",PN," + phoneno
  
  
  
  CLS
  idd:
  LOCATE 9,10
  Q="?"
  INPUT "enter Y to input your demographic data, N to skip, Q to Quit " Q
  Q = UCASE$(q)
  IF (INSTR("NQY", Q) = 0) THEN
     BEEP
     LOCATE 10,10
     COLOR 14,0
     PRINT "PLEASE ENTER ONLY Y[ES] OR N[O]"
     COLOR 7,0
     GOTO idd
  END IF
  
  IF (Q = "Q") GOTO fini
  
  IF (Q = "N") THEN
     yob = 9999
     gender = "declined"
     maritalstatis = "declined"
     studtype = "declined"
     workhrs = 9999
     SCH = 9999
     studenttype = "declined"
  END IF
  
  IF (Q = "Y") THEN
     CLS
     LOCATE 5,5
     INPUT "your 4 digit year of birth in the range 1920-2010 ";YOB
     WHILE (yob < 1920) OR (YOB > 2010)
           BEEP
           LOCATE 6,5
           COLOR 14,0
           PRINT "Your year of birth must be between 1920 and 2010
           COLOR 7,0
           LOCATE 5,5
           PRINT SPACE$(80)
           LOCATE 5,5
           INPUT "your 4 digit year of birth in the range 1920-2010 ";YOB
     WEND
     
     
     '------------------------------------------------------------------------------
     
     LOCATE 8,5
     INPUT "input your gender M = male, F = Female, X = declined to answer: ",Q
     LOCATE 9,5
     Q = UCASE$(q)
     WHILE (INSTR("MFX", Q) = 0)
           BEEP
           LOCATE 9,10
           COLOR 14,0
           PRINT "PLEASE ENTER ONLY M, F or X"
           COLOR 7,0
           LOCATE 8,5
           PRINT SPACE$(80)
           LOCATE 8,5
           INPUT "input your gender M = male, F = Female, X = declined to answer: ",Q
           LOCATE 9,5
           Q = UCASE$(q)
     WEND
     
     IF (Q ="M") THEN gender = "male"
     IF (Q = "F") THEN gender = "female"
     IF (Q = "X") THEN gender = "declined"
     
     
     '------------------------------------------------------------------------------
     
     
     Q="?"
     LOCATE 11,5
     PRINT "input your current marital status S = single never married, M = married,"
     LOCATE 12,5
     PRINT "D = divorced, W = widowed, X = Decline to answer: "
     LOCATE 13,1
     PRINT SPACE$(80)
     LOCATE 13,5
     INPUT "Current marital status: ";Q
     Q = UCASE$(Q)
     WHILE(INSTR("SMDWX", Q) = 0)
           BEEP
           LOCATE 14,10
           COLOR 14,0
           PRINT "PLEASE ENTER ONLY S,M,D,W or X"
           COLOR 7,0
           Q="?"
           LOCATE 13,1
           PRINT SPACE$(80)
           LOCATE 13,5
           INPUT "Current marital status: ";Q
           Q = UCASE$(Q)
     WEND
     
     IF (Q = "S") THEN maritalstatis = "singlenm"
     IF (Q = "M") THEN maritalstatis = "married"
     IF (Q = "D") THEN maritalstatis = "divorced"
     IF (Q = "W") THEN maritalstatis = "widowed"
     IF (Q = "X") THEN maritalstatis = "declined"
     
     ' -----------------------
     LOCATE 14,1
     PRINT SPACE$(120)
     
     LOCATE 15,5
     PRINT "Are you a <F>ull-time degree seeking, <P>art-time degree seeking, <C>ontinuing Ed, or <E>nrichment stident?"
     Q = "?"
     LOCATE 16,5
     INPUT "input student type --> ";Q
     Q = UCASE$(Q)
     WHILE(INSTR("FPCE", Q) = 0)
           BEEP
           LOCATE 17,10
           COLOR 14,0
           PRINT "PLEASE ENTER ONLY F, P, C or E"
           COLOR 7,0
           Q="?"
           LOCATE 16,1
           PRINT SPACE$(120)
           LOCATE 16,5
           INPUT "input student type --> ";Q
           Q = UCASE$(Q)
     WEND
     
     IF (Q = "F") THEN studtype = "FTD"
     IF (Q = "P") THEN studtype = "PTD"
     IF (Q = "C") THEN studtype = "VCE"
     IF (Q = "E") THEN studtype = "ENR"
     
     LOCATE 17,1
     PRINT SPACE$(120)
     
     LOCATE 18,5
     PRINT "How many hours a week do you typically spend in class or lab? 0 - 25"
     SCH = -9999
     LOCATE 19,5
     INPUT "input hours per week in classroom or lab --> ";SCH
     SCH = INT(SCH)
     IF ( (SCH < 0) OR (SCH > 25)) THEN
        BEEP
        LOCATE 20,5
        COLOR 14,0
        PRINT "class/lab hours per week must be between 0 and 25"
        COLOR 7,0
        SCH = -9999
        LOCATE 19,1
        PRINT SPACE$(120)
        LOCATE 18,5
        INPUT "input hours per week in classroom or lab --> ";SCH
        SCH = INT(SCH)
     END IF
     
     ' employment
     LOCATE 20,1
     PRINT SPACE$(120)
     LOCATE 21,5
     PRINT "How many hours a week do work outside the home 0 to 60"
     workhrs = -9999
     LOCATE 22,5
     INPUT "input hours per week on job outside home --> ";workhrs
     workhrs = INT(SCH)
     IF ( (workhrs < 0) OR (workhrs > 60)) THEN
        BEEP
        LOCATE 23,5
        COLOR 14,0
        PRINT "work hours per week must be between 0 and 60"
        COLOR 7,0
        SCH = -9999
        LOCATE 22,1
        PRINT SPACE$(120)
        LOCATE 22,5
        INPUT "input hours per week on job outside home --> ";workhrs
        SCH = INT(SCH)
     END IF
     
  END IF
  
  
  
  
  
  datastring = datastring + "YOB," + STR$(YOB, 4) + ","
  datastring = datastring + "gender," + gender + ","
  datastring = datastring + "MS," + maritalstatis + ","
  datastring = datastring + "ST," + studtype + ","
  datastring = datastring + "SCH," + STR$(SCH,3) + ","
  datastring = datastring + "workhrs," + STR$(workhrs, 2) + ","
  
  
  
  
  
  '------------------------------------------------------------------------------
  ' survey starts here
  
  CLS
  LOCATE 5,50
  PRINT "Student Well Being Survey -- OCD-10"
  LOCATE 7,10
  PRINT "Please use the following scale to indicate how you have been feeling"
  LOCATE 8,10
  COLOR 14,0
  PRINT "over the last 2 weeks.
  COLOR 7,0
  LOCATE 8,33
  PRINT "Enter the number from the following statement"
  LOCATE 9,10
  PRINT "that most closely matches how you have been feeling.  THERE ARE NO RIGHT"
  LOCATE 10,10
  PRINT "OR WRONG ANSWERS.
  LOCATE 12,20
  PRINT "0 -- at no time/almost never"
  LOCATE 13,20
  PRINT "1 -- some of the time"
  LOCATE 14,20
  PRINT "2 -- slightly less than half the time"
  LOCATE 15,20
  PRINT "3 -- slightly more than half the time"
  LOCATE 16,20
  PRINT "4 -- most of the time"
  LOCATE 17,20
  PRINT "5 -- all the time"
  '------------------------------------------------------------------------------
  LOCATE 18,1
  PRINT SPACE$(120)
  LOCATE 19,1
  PRINT SPACE$(120)
  LOCATE 20,1
  PRINT SPACE$(120)
  LOCATE 21,1
  PRINT SPACE$(120)
  LOCATE 22,1
  PRINT SPACE$(8)
  LOCATE 20,10
  PRINT Eitem(1)
  Q = "?"
  DO WHILE Q = "?"
        LOCATE 21,10
        INPUT "I feel this way-->",Q
        IF (INSTR("012345",Q) = 0) THEN
           Q = "?"
           BEEP
           COLOR 14,0
           LOCATE 21,10
           PRINT "please input 0,1,2,3,4,5 ONLY"
           COLOR 7,0
           Q ="?"
        END IF
  WEND
  datastring = datastring +"Q1,"+ Q + ","
  response(1)= VAL(Q)
  Q = "?"
  '------------------------------------------------------------------------------
  LOCATE 18,1
  PRINT SPACE$(120)
  LOCATE 19,1
  PRINT SPACE$(120)
  LOCATE 20,1
  PRINT SPACE$(120)
  LOCATE 21,1
  PRINT SPACE$(120)
  LOCATE 22,1
  PRINT SPACE$(8)
  LOCATE 20,10
  PRINT Eitem(2)
  Q = "?"
  DO WHILE Q = "?"
        LOCATE 21,10
        INPUT "I feel this way-->",Q
        IF (INSTR("012345",Q) = 0) THEN
           Q = "?"
           BEEP
           COLOR 14,0
           LOCATE 21,10
           PRINT "please input 0,1,2,3,4,5 ONLY"
           COLOR 7,0
           Q = "?"
        END IF
  WEND
  datastring = datastring +"Q2,"+ Q + ","
  response(2) = VAL(Q)
  Q = "?"
  
  '------------------------------------------------------------------------------
  LOCATE 18,1
  PRINT SPACE$(120)
  LOCATE 19,1
  PRINT SPACE$(120)
  LOCATE 20,1
  PRINT SPACE$(120)
  LOCATE 21,1
  PRINT SPACE$(120)
  LOCATE 22,1
  PRINT SPACE$(120)
  LOCATE 20,10
  PRINT Eitem(3)
  Q = "?"
  DO WHILE Q = "?"
        LOCATE 21,10
        INPUT "I feel this way-->",Q
        IF (INSTR("012345",Q) = 0) THEN
           Q = "?"
           BEEP
           COLOR 14,0
           LOCATE 20,10
           PRINT "please input 0,1,2,3,4,5 ONLY"
           COLOR 7,0
           Q = "?"
        END IF
  WEND
  datastring = datastring +"Q3,"+ Q  +","
  response(3) = VAL(Q)
  Q = "?"
  
  '------------------------------------------------------------------------------
  LOCATE 18,1
  PRINT SPACE$(120)
  LOCATE 19,1
  PRINT SPACE$(120)
  LOCATE 20,1
  PRINT SPACE$(120)
  LOCATE 21,1
  PRINT SPACE$(120)
  LOCATE 22,1
  PRINT SPACE$(120)
  LOCATE 20,10
  PRINT Eitem(4)
  Q = "?"
  DO WHILE Q = "?"
        LOCATE 21,10
        INPUT "I feel this way-->",Q
        IF (INSTR("012345",Q) = 0) THEN
           Q = "?"
           BEEP
           COLOR 14,0
           LOCATE 20,10
           PRINT "please input 0,1,2,3,4,5 ONLY"
           COLOR 7,0
           Q = "?"
        END IF
  WEND
  datastring = datastring +"Q4,"+ Q  + ","
  response(4) = VAL(Q)
  Q = "?"
  '------------------------------------------------------------------------------
  LOCATE 18,1
  PRINT SPACE$(120)
  LOCATE 19,1
  PRINT SPACE$(120)
  LOCATE 20,1
  PRINT SPACE$(120)
  LOCATE 21,1
  PRINT SPACE$(120)
  LOCATE 22,1
  PRINT SPACE$(120)
  LOCATE 20,10
  PRINT Eitem(5)
  Q = "?"
  DO WHILE Q = "?"
        LOCATE 21,10
        INPUT "I feel this way-->",Q
        IF (INSTR("012345",Q) = 0) THEN
           Q = "?"
           BEEP
           COLOR 14,0
           LOCATE 20,10
           PRINT "please input 0,1,2,3,4,5 ONLY"
           COLOR 7,0
        END IF
  WEND
  datastring = datastring +"Q5,"+ Q + ","
  response(5) = VAL(Q)
  Q = "?"
  '------------------------------------------------------------------------------
  LOCATE 18,1
  PRINT SPACE$(120)
  LOCATE 19,1
  PRINT SPACE$(120)
  LOCATE 20,1
  PRINT SPACE$(120)
  LOCATE 21,1
  PRINT SPACE$(120)
  LOCATE 22,1
  PRINT SPACE$(120)
  LOCATE 20,10
  PRINT Eitem(6)
  Q = "?"
  DO WHILE Q = "?"
        LOCATE 21,10
        INPUT "I feel this way-->",Q
        IF (INSTR("012345",Q) = 0) THEN
           Q = "?"
           BEEP
           COLOR 14,0
           LOCATE 20,10
           PRINT "please input 0,1,2,3,4,5 ONLY"
           COLOR 7,0
           Q = "?"
        END IF
  WEND
  datastring = datastring +"Q6,"+ Q  + ","
  response(6) = VAL(Q)
  Q = "?"
  '------------------------------------------------------------------------------
  LOCATE 18,1
  PRINT SPACE$(120)
  LOCATE 19,1
  PRINT SPACE$(120)
  LOCATE 20,1
  PRINT SPACE$(120)
  LOCATE 21,1
  PRINT SPACE$(120)
  LOCATE 22,1
  PRINT SPACE$(120)
  LOCATE 20,10
  PRINT Eitem(7)
  Q = "?"
  DO WHILE Q = "?"
        LOCATE 21,10
        INPUT "I feel this way-->",Q
        IF (INSTR("012345",Q) = 0) THEN
           Q = "?"
           BEEP
           COLOR 14,0
           LOCATE 20,10
           PRINT "please input 0,1,2,3,4,5 ONLY"
           COLOR 7,0
        END IF
  WEND
  datastring = datastring +"Q7,"+ Q +","
  response(7) = VAL(Q)
  Q = "?"
  
  '------------------------------------------------------------------------------
  LOCATE 18,1
  PRINT SPACE$(120)
  LOCATE 19,1
  PRINT SPACE$(120)
  LOCATE 20,1
  PRINT SPACE$(120)
  LOCATE 21,1
  PRINT SPACE$(120)
  LOCATE 22,1
  PRINT SPACE$(120)
  LOCATE 20,10
  PRINT Eitem(8)
  Q = "?"
  DO WHILE Q = "?"
        LOCATE 21,10
        INPUT "I feel this way-->",Q
        IF (INSTR("012345",Q) = 0) THEN
           Q = "?"
           BEEP
           COLOR 14,0
           LOCATE 20,10
           PRINT "please input 0,1,2,3,4,5 ONLY"
           COLOR 7,0
        END IF
  WEND
  datastring = datastring +"Q8,"+ Q + ","
  response(8) = VAL(Q)
  Q = "?"
  '------------------------------------------------------------------------------
  LOCATE 18,1
  PRINT SPACE$(120)
  LOCATE 19,1
  PRINT SPACE$(120)
  LOCATE 20,1
  PRINT SPACE$(120)
  LOCATE 21,1
  PRINT SPACE$(120)
  LOCATE 22,1
  PRINT SPACE$(120)
  LOCATE 20,10
  PRINT Eitem(9)
  Q = "?"
  DO WHILE Q = "?"
        LOCATE 21,10
        INPUT "I feel this way-->",Q
        IF (INSTR("012345",Q) = 0) THEN
           Q = "?"
           BEEP
           COLOR 14,0
           LOCATE 20,10
           PRINT "please input 0,1,2,3,4,5 ONLY"
           COLOR 7,0
        END IF
  WEND
  datastring = datastring +"Q9,"+ Q  + ","
  response(9) = VAL(Q)
  Q = "?"
  
  '------------------------------------------------------------------------------
  LOCATE 18,1
  PRINT SPACE$(120)
  LOCATE 19,1
  PRINT SPACE$(120)
  LOCATE 20,1
  PRINT SPACE$(120)
  LOCATE 21,1
  PRINT SPACE$(120)
  LOCATE 22,1
  PRINT SPACE$(120)
  LOCATE 20,10
  PRINT Eitem(10)
  Q = "?"
  DO WHILE Q = "?"
        LOCATE 21,10
        INPUT "I feel this way-->",Q
        IF (INSTR("012345",Q) = 0) THEN
           Q = "?"
           BEEP
           COLOR 14,0
           LOCATE 21,10
           PRINT "please input 0,1,2,3,4,5 ONLY"
           COLOR 7,0
        END IF
  WEND
  datastring = datastring +"Q10,"+ Q  + ","
  response(10) = VAL(Q)
  Q = "?"
  
  '------------------------------------------------------------------------------
  LOCATE 18,1
  PRINT SPACE$(120)
  LOCATE 19,1
  PRINT SPACE$(120)
  LOCATE 20,1
  PRINT SPACE$(120)
  LOCATE 21,1
  PRINT SPACE$(120)
  LOCATE 22,1
  PRINT SPACE$(120)
  LOCATE 20,10
  PRINT Eitem(11)
  Q = "?"
  DO WHILE Q = "?"
        LOCATE 21,10
        INPUT "I feel this way-->",Q
        IF (INSTR("012345",Q) = 0) THEN
           Q = "?"
           BEEP
           COLOR 14,0
           LOCATE 21,10
           PRINT "please input 0,1,2,3,4,5 ONLY"
           COLOR 7,0
        END IF
  WEND
  datastring = datastring +"Q11,"+ Q  + ","
  response(11) = VAL(Q)
  Q = "?"
  
  '------------------------------------------------------------------------------
  LOCATE 18,1
  PRINT SPACE$(120)
  LOCATE 19,1
  PRINT SPACE$(120)
  LOCATE 20,1
  PRINT SPACE$(120)
  LOCATE 21,1
  PRINT SPACE$(120)
  LOCATE 22,1
  PRINT SPACE$(120)
  LOCATE 20,10
  PRINT Eitem(12)
  Q = "?"
  DO WHILE Q = "?"
        LOCATE 21,10
        INPUT "I feel this way-->",Q
        IF (INSTR("012345",Q) = 0) THEN
           Q = "?"
           BEEP
           COLOR 14,0
           LOCATE 21,10
           PRINT "please input 0,1,2,3,4,5 ONLY"
           COLOR 7,0
        END IF
  WEND
  datastring = datastring +"Q12,"+ Q  + ","
  response(12) = VAL(Q)
  Q = "?"
  
  '------------------------------------------------------------------------------
  ' scoring
  
  MDIscore = 0
  
  MDIscore = response(1)
  MDIscore = MDIscore + response(2)
  MDIscore = MDIscore + response(3)
  IF (response(4) > response(5)) THEN
     MDIscore = MDIscore + response(4)
  ELSE
     MDIscore = MDIscore + response(5)
  END IF
  MDIscore = MDIscore + response(6)
  MDIscore = MDIscore + response(7)
  IF (response(8) > response(9)) THEN
     MDIscore = MDIscore + response(8)
  ELSE
     MDIscore = MDIscore + response(9)
  END IF
  MDIscore = MDIscore + response(10)
  IF (response(11) > response(12)) THEN
     MDIscore = MDIscore + response(11)
  ELSE
     MDIscore = MDIscore + response(12)
  END IF
  
  Datastring = datastring + "MDIscore," + STR$(MDIscore,2)
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  '------------------------------------------------------------------------------
  
  BEEP
  CLS
  LOCATE 10,10
  PRINT "Thank you ";firstname;" for completing the GCCC Student Well Being Survey"
  
  LOCATE 12,10
  PRINT "College is a very stressful at the best of times, and if you are juggleing:
  LOCATE 13,10
  PRINT "full or part time employment and/or a family it is even more stressful."
  
  LOCATE 15,10
  COLOR 14,0
  PRINT "Your Student Well Being Index is "; USING$("##",MDIscore)
  COLOR 7,0
  LOCATE 17,10
  PRINT "Typical catagories for the index, across a large number of students,
  LOCATE 18,10
  PRINT "and other young adults are:
  LOCATE 20,10
  PRINT "8 to 15 -- some stress but normal for the college environment"
  LOCATE 22,10
  PRINT "20 to 25 -- serious stress in your life, which may be effecting work, study and family."
  LOCATE 23,10
  PRINT "Most likely it would be helpful to visit student services and reduce your stresses."
  COLOR 15,0
  LOCATE 26,10
  PRINT "30 and above indicates very serious stress levels and it is sugested you contact student"
  LOCATE 27,10
  PRINT "services or other qualified professionals as soon as possible, as this is almost certain"
  LOCATE 28,10
  PRINT "to be seriously affectting your quality-of-life, employment, studies and family.
  COLOR 7,0
  
  LOCATE 30,10
  
  INPUT "press <enter> key to exit program " Q
  '------------------------------------------------------------------------------
  
  fini:
  ' write data and close files
  
  OPEN "MDIlog.csv" FOR APPEND AS #1
       PRINT #1, datastring
  CLOSE
  
END FUNCTION