The 2 instances of .jpg files below are the graphics I'm trying to call.
Greg
'[newClient]
'fix problem where program cannot locate resources
'mis entry of name ck for dupe only compares name and not file extension - see 222
'practice questions
'autosave results p: test completed, every 5 minutes, escape trigger
'escape trigger: complete all tests, or ><><><><>< exits testing and goes to pw
'[oldClient]
'[resume]
'[results]
'items completed by test; critical items with norms interp for sui; Rx rejection; enable wireless printing from tablet
'SECURITY
'disable browser back button, alt-[arrow], and history: reason 1) secuirty; reason 2) it screws up all counters
'browser setting removes browser back and close buttons
'run in full screen mode to remove browser and back buttons
'administrator clears cache before handing tablet to client
'add prompt screen to do this
'Carl: As with many other web apps, the back button is not really a supported feature of Run BASIC. As the internal state of the application
'changes you cannot really go back to the p revious page without getting out of sync. As we move forward with Ajax features this will
'become non-relevant since you will not switch pages, but sections of the page will be replaced dynamically.
'expire page
'run a different program and close current?
'do not implement data access from tablet
'tablet can access only file generated this session
' MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU
' MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU
' MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU MENU
MyDefaultDir$ = "c:\common\_rbdummydata\"
[newOldClient]
cls
html "<font face=Arial><font size=5><font color = black>" : print : print : print : print : print : print : print
html "<p align=center>"
link #action, "NEW CLIENT", [newClient] : html " " : print : print : print : print
link #action, "PREVIOUS CLIENT", [oldClient] : html " "
wait
[newClient]
cls
print : print " "; : graphic #g, 800,20 : #g fill("darkgreen") : render #g
print
html "<font face=Arial><font size=4><font color = black>" : print
html " Name " : textbox #name, "", 40
html " DOB " : textbox #dob, "", 8
html " "
radiogroup #gender, "Male, Female", genderChoice$
#gender horizontal(1)
print : print : print
cssid #bx1, "{float:left;}"
cssid #bx2, "{float:left;}"
cssid #bx3, "{float:left;}"
cssid #bx4, "{float:left;}"
cssid #bx5, "{float:left;}"
cssid #subm, "{Width: 1px;Clear: Left;}"
div one
div bx1
end div
end div
div subm
end div
cssid #rg1, "{float:left;}"
cssid #rg2, "{float:left;}"
cssid #rg3, "{float:left;}"
cssid #rg4, "{float:left;}"
cssid #subm, "{Width: 1px;Clear: Left;}"
print
div one
div rg1
html " " : checkbox #bdi, "BDI ", x : print : print : print
html " " : checkbox #amas, "AMAS ", x : print : print : print
html " " : checkbox #daps, "DAPS ", x : print : print : print
end div
div rg2
html " " : checkbox #pai, "PAI ", x : print : print : print
html " " : checkbox #mcmi, "MCMI-III ", x : print : print : print
end div
div rg3
html " " : checkbox #pcs, "PCS ", x : print : print : print
html " " : checkbox #tsk, "TSK ", x : print : print : print
html " " : checkbox #pdi, "PDI ", x : print : print : print
html " " : checkbox #mpq, "MPQ ", x : print : print : print
end div
div rg4
html " " : checkbox #rcklist, "Rehabilitation Checklist", x : print : print : print
html " " : checkbox #rsopac, "R-SOPAC", x : print : print : print
end div
end div
div subm
end div
print : html " " : link #beginTesting, "BEGIN TESTING", [beginTesting]
print
print : print " "; : graphic #g, 800,20 : #g fill("darkgreen") : render #g : print
wait
[oldClient]
titlebar "Questionnaire"
'use line below to restrict program to being run from specified url
'url$="http://www.networksecuritytoolkit.org/nst/cgi-bin/ip.cgi" : r$=httpget$(url$) : print r$
cls
html "<font face=Arial><font size=5><font color = black><p align=center>" : print : print : print : print : print : print : print
pw$ = "" : passwordbox #PWbox, pw$ : html " " : print : print : print
link #action, "Please enter password.", [PwCheck] : html " "
'#PWbox setfocus() 'it is documented that setfocus doesn't work on passwordbox
wait
[PwCheck]
pw$ = #PWbox contents$()
if pw$ = "dallas" then goto [pwVerified]
if pw$ <> "dallas" then goto [oldClient]
[pwVerified]
cls
cssid #bx1, "{float:left;}"
cssid #bx2, "{float:left;}"
cssid #bx3, "{float:left;}"
cssid #bx4, "{float:left;}"
cssid #bx5, "{float:left;}"
cssid #subm, "{Width: 1px;Clear: Left;}"
html "<font face=Arial><font size=4><font color = black>" : print
div one
div bx1
html " " : link #go2newClient, "Resume Testing", [resume] : print : print
html " " : link #results, "Display Results", [results] : print : print : print : print
end div
div bx2
html "<font face=Arial><font size=4><font color = black>"
html " "
MyDefaultDir$ = "c:\common\_rbdummydata\"
files #dir, MyDefaultDir$ + "*.txt"
dim client$(1000) : dim name$(1000) : number = 1
while #dir hasAnswer()
#dir nextFile$()
client$(number) = #dir name$()
number = number+1
wend
selected$=""
end div
div rg4
listbox #nameSelect, client$(), 6
end div
div rg5
print
print
print
end div
end div
div subm
end div
cssid #rg1, "{float:left;}"
cssid #rg2, "{float:left;}"
cssid #rg3, "{float:left;}"
cssid #rg4, "{float:left;}"
cssid #subm, "{Width: 1px;Clear: Left;}"
wait
[resume]
if #nameSelect SELECTION$() = "" then wait
temp$=#nameSelect SELECTION$()
fullName$ = left$(temp$,(len(temp$)-4))
'open MyDefaultDir$ + #nameSelect selection$() for input as #read
'line input #read, dob$
'line input #read, sex$
'close #read
print : print
html " "
link #verifyName, fullName$, [oldClientBeginTestingHere]
wait
[beginTesting]
'VERIFY NAME ENTERED
fullName$ = #name contents$()
if fullName$ = "" then
print " Please enter a name."
wait
end if
'VERIFY FILE DOES NOT EXIST WITH THIS NAME 2222
fileName$=MyDefaultDir$ + fullName$
If fileExists(fileName$) then '<<<NOTE: THIS USES A FUNCTION FOUND BELOW: fileExists(file$)
print " "; fullName$;" - A file with this name already exists."
wait
end if
'VERIFY DOB ENTERED
dob$ = #dob contents$()
if dob$ = "" then
print " Please enter DOB."
wait
end if
'VERIFY DOB STRING LENGTH
dobLength = len(dob$)
if dobLength <> 8 then
print " DOB is invalid - should be 8 numerals (yyyymmdd)"
wait
end if
'VERIFY DOB STRING CONTAINS ONLY NUMERALS
a$(1) = left$(dob$, 1)
a$(2) = mid$(dob$, 2,1)
a$(3) = mid$(dob$, 3,1)
a$(4) = mid$(dob$, 4,1)
a$(5) = mid$(dob$, 5,1)
a$(6) = mid$(dob$, 6,1)
a$(7) = mid$(dob$, 7,1)
a$(8) = right$(dob$, 1)
numberDetected = 0
for i = 1 to 8
if a$(i) = "0" then numberDetected = 1
if a$(i) = "1" then numberDetected = 1
if a$(i) = "2" then numberDetected = 1
if a$(i) = "3" then numberDetected = 1
if a$(i) = "4" then numberDetected = 1
if a$(i) = "5" then numberDetected = 1
if a$(i) = "6" then numberDetected = 1
if a$(i) = "7" then numberDetected = 1
if a$(i) = "8" then numberDetected = 1
if a$(i) = "9" then numberDetected = 1
if numberDetected = 0 then
print " Non-numerical data entered in DOB!"
wait
end if
numberDetected = 0
next
'VERIFY YEAR VALIDITY
year$ = left$(dob$,(4))
year = VAL(year$)
currentYear$ = right$(date$(), 4)
currentYear = VAL(currentYear$)
yearInvalid = 0
if currentYear - year > 125 then yearInvalid = 1
if currentYear - year < 5 then yearInvalid = 1
if yearInvalid = 1 then
print " Year is not valid!"
wait
end if
if currentYear - year < 5 then
print " Year is not valid!"
wait
end if
'VERIFY MONTH VALIDITY
month$ = mid$(dob$, 5, 2)
month = val(month$)
monthInvalid = 0
if month > 12 then monthInvalid = 1
if month < 1 then monthInvalid = 1
if monthInvalid = 1 then
print " Month is not valid!"
wait
end if
'VERIFY DAY VALIDITY
day$ = right$(dob$,(2))
day = VAL(day$)
dayInvalid = 0
if day > 31 then dayInvalid = 1
if day < 1 then dayInvalid = 1
if dayInvalid = 1 then
print " Day is not valid!"
wait
end if
'VERIFY GENDER SELECTED
gender$ = #gender selection$() : sexPresent = 0
if gender$ <> "Male" then
if gender$ <> "Female" then
print " Please select gender."
wait
end if
end if
'VERIFY CHECKBOXES SELECTED
administerBDI = 0
administerAMAS = 0
administerDAPS = 0
administerPAI = 0
administerMCMI = 0
administerPCS = 0
administerTSK = 0
administerPDI = 0
administerMPQ = 0
administerRCKLIST = 0
administerRSOPAC = 0
if #bdi value() then administerBDI = 1
if #amas value() then administerAMAS = 1
if #daps value() then administerDAPS = 1
if #pai value() then administerPAI = 1
if #mcmi value() then administerMCMI = 1
if #pcs value() then administerPCS = 1
if #tsk value() then administerTSK = 1
if #pdi value() then administerPDI = 1
if #mpq value() then administerMPQ = 1
if #rcklist value() then administerRCKLIST = 1
if #rsopac value() then administerRSOPAC = 1
totalTestsSelected = administerBDI + administerAMAS + administerDAPS + administerPAI + administerMCMI + administerPCS + administerTSK + administerPDI + administerMPQ + administerRCKLIST + administerRSOPAC
if totalTestsSelected = 0 then
print " Please select tests to be administered."
wait
end if
' BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI
' BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI
' BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI
' BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI BDI
[oldClientBeginTestingHere]
gosub [BDIdata]
[newQuestion]
cls
html "<font face=calibri><font size=5><font color = darkblue><i><b>" : print
if i <> 0 then
print test$; " - "; i; " of 21"
else
print test$; " - Instructions"
end if
html "</i></b><font face=calibri><font size=6><font color = black><b>" : if i <> 0 then print
print " "; itemChoice$(i,0) : html "</b>"
if i = 0 then
html "<font face=calibri><font size=5><font color = black>"
for j = 1 to 12
if instructions$(j) <> "" then print " "; instructions$(j)
next j
html "<font face=calibri; font size=6; font color = black; Font-Weight: 200>"
print : print
end if
if i <> 0 then
html "<table><font face=calibri; font size=6; font color = black; Font-Weight: 200>"
if itemChoice$(i,1) <> "" then
html "<tr><td>"
link #one, "> ", [one]
html "</td><td>"
print itemChoice$(i,1)
html "</td></tr>"
end if
if itemChoice$(i,2) <> "" then
html "<tr><td>"
link #two, "> ", [two]
html "</td><td>"
print itemChoice$(i,2)
html "</td></tr>"
end if
if itemChoice$(i,3) <> "" then
html "<tr><td>"
link #three, "> ", [three]
html "</td><td>"
print itemChoice$(i,3)
html "</td></tr>"
end if
if itemChoice$(i,4) <> "" then
html "<tr><td>"
link #four, "> ", [four]
html "</td><td>"
print itemChoice$(i,4)
html "</td></tr>"
end if
if itemChoice$(i,5) <> "" then
html "<tr><td>"
link #five, "> ", [five]
html "</td><td>"
print itemChoice$(i,5)
html "</td></tr>"
end if
if itemChoice$(i,6) <> "" then
html "<tr><td>"
link #six, "> ", [six]
html "</td><td>"
print itemChoice$(i,6)
html "</td></tr>"
end if
if itemChoice$(i,7) <> "" then
html "<tr><td>"
link #seven, "> ", [seven]
html "</td><td>"
print itemChoice$(i,7)
html "</td></tr>"
end if
html "</table>" : print
end if
[drawButtons]
html "<table><table border=0><tr><td> "
imagebutton #prevbut, "\arrowprev.jpg", [previous]
#prevbut tooltip("Go to previous question.")
html "</td><td> "
imagebutton #nextbut, "\arrownext.jpg", [next]
#nextbut tooltip("Go to next question.")
html "</td><tr></tr></table>"
if i = 0 then wait
'\\\\\ BUTTON STYLE BEGIN \\\\\
'see
www.w3.org/TR/REC-CSS1 for style choices
CSSClass "a.oneButton", "{ Text-Decoration: None; font-family: sans-serif; Width: 150px; Display: Block; Background: #C0C0C00; Color: #FFFFFF; Text-Align: Right; Border-Style: None; Border-Color: #FFFFFF; }"
CSSClass "a.twoButton", "{ Text-Decoration: None; font-family: sans-serif; Width: 150px; Display: Block; Background: #C0C0C00; Color: #FFFFFF; Text-Align: Right; Border-Style: None; Border-Color: #FFFFFF; }"
CSSClass "a.threeButton", "{ Text-Decoration: None; font-family: sans-serif; Width: 150px; Display: Block; Background: #C0C0C00; Color: #FFFFFF; Text-Align: Right; Border-Style: None; Border-Color: #FFFFFF; }"
CSSClass "a.fourButton", "{ Text-Decoration: None; font-family: sans-serif; Width: 150px; Display: Block; Background: #C0C0C00; Color: #FFFFFF; Text-Align: Right; Border-Style: None; Border-Color: #FFFFFF; }"
CSSClass "a.fiveButton", "{ Text-Decoration: None; font-family: sans-serif; Width: 150px; Display: Block; Background: #C0C0C00; Color: #FFFFFF; Text-Align: Right; Border-Style: None; Border-Color: #FFFFFF; }"
CSSClass "a.sixButton", "{ Text-Decoration: None; font-family: sans-serif; Width: 150px; Display: Block; Background: #C0C0C00; Color: #FFFFFF; Text-Align: Right; Border-Style: None; Border-Color: #FFFFFF; }"
CSSClass "a.sevenButton", "{ Text-Decoration: None; font-family: sans-serif; Width: 150px; Display: Block; Background: #C0C0C00; Color: #FFFFFF; Text-Align: Right; Border-Style: None; Border-Color: #FFFFFF; }"
if itemChoice$(i,1) <> "" then #one CSSCLASS("oneButton")
if itemChoice$(i,2) <> "" then #two CSSCLASS("twoButton")
if itemChoice$(i,3) <> "" then #three CSSCLASS("threeButton")
if itemChoice$(i,4) <> "" then #four CSSCLASS("fourButton")
if itemChoice$(i,5) <> "" then #five CSSCLASS("fiveButton")
if itemChoice$(i,6) <> "" then #six CSSCLASS("sixButton")
if itemChoice$(i,7) <> "" then #seven CSSCLASS("sevenButton")
if item(i) = 1 then goto [one]
if item(i) = 2 then goto [two]
if item(i) = 3 then goto [three]
if item(i) = 4 then goto [four]
if item(i) = 5 then goto [five]
if item(i) = 6 then goto [six]
if item(i) = 7 then goto [seven]
wait
[one]
CSSClass "a.oneButton", "{ Color: #191970; Border-Color: #191970; Font-Weight: 200 }"
CSSClass "a.twoButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.threeButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.fourButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.fiveButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.sixButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.sevenButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
item(i) = 1 : wait
[two]
CSSClass "a.twoButton", "{ Color: #191970; Border-Color: #191970; Font-Weight: 200 }"
CSSClass "a.oneButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.threeButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.fourButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.fiveButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.sixButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.sevenButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
item(i) = 2 : wait
[three]
CSSClass "a.threeButton", "{ Color: #191970; Border-Color: #191970; Font-Weight: 200 }"
CSSClass "a.oneButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.twoButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.fourButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.fiveButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.sixButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.sevenButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
item(i) = 3 : wait
[four]
CSSClass "a.fourButton", "{ Color: #191970; Border-Color: #191970; Font-Weight: 200 }"
CSSClass "a.oneButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.twoButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.threeButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.fiveButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.sixButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.sevenButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
item(i) = 4 : wait
[five]
CSSClass "a.fiveButton", "{ Color: #191970; Border-Color: #191970; Font-Weight: 200 }"
CSSClass "a.oneButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.twoButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.threeButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.fourButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.sixButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.sevenButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
item(i) = 5 : wait
[six]
CSSClass "a.sixButton", "{ Color: #191970; Border-Color: #191970; Font-Weight: 200 }"
CSSClass "a.oneButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.twoButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.threeButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.fourButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.fiveButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.sevenButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
item(i) = 6 : wait
[seven]
CSSClass "a.sevenButton", "{ Color: #191970; Border-Color: #191970; Font-Weight: 200 }"
CSSClass "a.oneButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.twoButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.threeButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.fourButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.fiveButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
CSSClass "a.sixButton", "{ Color: #FFFFFF; Border-Color: #FFFFFF; Font-Weight: 200 }"
item(i) = 7 : wait
'///// BUTTON STYLE END /////
[previous]
if i > 0 then
i = i-1
goto [newQuestion]
end if
wait
[next]
if i <> items then
i = i+1
goto [newQuestion]
end if
'SAVE BDI
if test$="BDI" then
open "C:\COMMON\_rbDummyData\" + fullName$ for append as #write
print #write, "bdi_start"
for b = 1 to 21
print #write, item(b)
next b
print #write, "endendend"
close #write
end if
'[nextTest]
' i = 0
' wait
'CONGRATULATIONS
cls
html "</i></b><font face=arial><font size=5><font color = black><b>"
PRINT : PRINT : PRINT : PRINT
html "<p align=center>"
link #go2menu, "You have finished testing. Please notify staff.", [password]
wait
[results]
cls : print : html "</b><font face=arial><font size=4><font color = black>TESTING RESULTS</b>" : print : print : print
wait
[BDIdata]
test$ = "BDI"
items = 21
choices = 8
dim item(items)
dim itemChoice$(items,choices)
dim instructions$(12)
instructions$(1) = "This questionnaire consists of 21 groups of statements. Please read each group"
instructions$(2) = "of statements carefully, and then select the statement in each group that best"
instructions$(3) = "describes the way you have been feeling during the past two weeks, including today."
instructions$(4) = " "
instructions$(5) = "If multiple statements seem to apply equally well, select the one closest to the"
instructions$(6) = "bottom of the screen that applies."
itemChoice$(1,0) = "Sadness"
itemChoice$(1,1) = "I do not feel sad."
itemChoice$(1,2) = "I feel sad much of the time."
itemChoice$(1,3) = "I am sad all the time."
itemChoice$(1,4) = "I am so sad or unhappy that I can't stand it."
itemChoice$(2,0) = "Pessimism"
itemChoice$(2,1) = "I am not discouraged about my future."
itemChoice$(2,2) = "I feel more discouraged about my future than I used to."
itemChoice$(2,3) = "I do not expect things to work out for me."
itemChoice$(2,4) = "I feel my future is hopeless and will only get worse."
itemChoice$(3,0) = "Past Failure"
itemChoice$(3,1) = "I do not feel like a failure."
itemChoice$(3,2) = "I have failed more than I should have."
itemChoice$(3,3) = "As I look back, I see a lot of failures."
itemChoice$(3,4) = "I feel I am a total failure as a person."
itemChoice$(4,0) = "Loss of Pleasure"
itemChoice$(4,1) = "I get as much pleasure as I ever did from the things I enjoy."
itemChoice$(4,2) = "I don't enjoy things as much as I used to."
itemChoice$(4,3) = "I get very little pleasure from the things I used to enjoy."
itemChoice$(4,4) = "I can't get any pleasure from the things I used to enjoy."
itemChoice$(5,0) = "Guilty Feelings"
itemChoice$(5,1) = "I don't feel particularly guilty."
itemChoice$(5,2) = "I feel guilty over many things I have done or should have done."
itemChoice$(5,3) = "I feel quite guilty most of the time."
itemChoice$(5,4) = "I feel guilty all of the time."
itemChoice$(6,0) = "Punishment Feelings"
itemChoice$(6,1) = "I don't feel I am being punished."
itemChoice$(6,2) = "I feel I may be punished."
itemChoice$(6,3) = "I expect to be punished."
itemChoice$(6,4) = "I feel like I am being punished."
itemChoice$(7,0) = "Self-Dislike"
itemChoice$(7,1) = "I feel the same about myself as ever."
itemChoice$(7,2) = "I have lost confidence in myself."
itemChoice$(7,3) = "I am disappointed in myself."
itemChoice$(7,4) = "I dislike myself."
itemChoice$(8,0) = "Self-Criticalness"
itemChoice$(8,1) = "I don't criticize or blame myself more than usual."
itemChoice$(8,2) = "I am more critical of myself than I used to be."
itemChoice$(8,3) = "I criticize myself for all of my faults."
itemChoice$(8,4) = "I blame myself for everything bad that happens."
itemChoice$(9,0) = "Suicidal Thoughts or Wishes"
itemChoice$(9,1) = "I don't have any thoughts of killing myself."
itemChoice$(9,2) = "I have thoughts of killing myself, but I would not carry them out."
itemChoice$(9,3) = "I would like to kill myself."
itemChoice$(9,4) = "I would kill myself if I had the chance."
itemChoice$(10,0) = "Crying"
itemChoice$(10,1) = "I don't cry anymore than I used to."
itemChoice$(10,2) = "I cry more than I used to."
itemChoice$(10,3) = "I cry over every little thing."
itemChoice$(10,4) = "I feel like crying, but I can't."
itemChoice$(11,0) = "Agitation"
itemChoice$(11,1) = "I am no more restless or wound up than usual."
itemChoice$(11,2) = "I feel more restless or wound up than usual."
itemChoice$(11,3) = "I am so restless or agitated that it's hard to stay still."
itemChoice$(11,4) = "I am so restless or agitated that I have to keep moving or doing something."
itemChoice$(12,0) = "Loss of Interest"
itemChoice$(12,1) = "I have not lost interest in other people or activities."
itemChoice$(12,2) = "I am less interested in other people or things than before."
itemChoice$(12,3) = "I have lost most of my interest in other people or things."
itemChoice$(12,4) = "It's hard to get interested in anything."
itemChoice$(13,0) = "Indecisiveness"
itemChoice$(13,1) = "I make decisions about as well as ever."
itemChoice$(13,2) = "I find it more difficult to make decisions than usual."
itemChoice$(13,3) = "I have much greater difficulty in making decisions than I used to."
itemChoice$(13,4) = "I have trouble making decisions."
itemChoice$(14,0) = "Worthlessness"
itemChoice$(14,1) = "I do not feel I am worthless."
itemChoice$(14,2) = "I don't consider myself as worthwhile and useful as I used to."
itemChoice$(14,3) = "I feel more worthless as compared to other people."
itemChoice$(14,4) = "I feel utterly worthless."
itemChoice$(15,0) = "Loss of Energy"
itemChoice$(15,1) = "I have as much energy as ever."
itemChoice$(15,2) = "I have less energy than I used to have."
itemChoice$(15,3) = "I don't have enough energy to do very much."
itemChoice$(15,4) = "I don't have enough energy to do anything."
itemChoice$(16,0) = "Changes in Sleeping Pattern"
itemChoice$(16,1) = "I have not experienced any change in my sleeping pattern."
itemChoice$(16,2) = "I sleep somewhat less than usual."
itemChoice$(16,3) = "I sleep a lot less than usual."
itemChoice$(16,4) = "I wake up 1-2 hours early and can't get back to sleep."
itemChoice$(16,5) = "I sleep somewhat more than usual."
itemChoice$(16,6) = "I sleep a lot more than usual."
itemChoice$(16,7) = "I sleep most of the day."
itemChoice$(17,0) = "Irritability"
itemChoice$(17,1) = "I am no more irritable than usual."
itemChoice$(17,2) = "I am more irritable than usual."
itemChoice$(17,3) = "I am much more irritable than usual."
itemChoice$(17,4) = "I am irritable all the time."
itemChoice$(18,0) = "Changes in Appetite"
itemChoice$(18,1) = "I have not experienced any change in my appetite."
itemChoice$(18,2) = "My appetite is somewhat less than usual."
itemChoice$(18,3) = "My appetite is much less than before."
itemChoice$(18,4) = "I have no appetite at all."
itemChoice$(18,5) = "My appetite is somewhat greater than usual."
itemChoice$(18,6) = "My appetite is much greater than usual."
itemChoice$(18,7) = "I crave food all the time."
itemChoice$(19,0) = "Concentration Difficulty"
itemChoice$(19,1) = "I can concentrate as well as ever."
itemChoice$(19,2) = "I can't concentrate as well as usual."
itemChoice$(19,3) = "It's hard to keep my mind on anything for very long."
itemChoice$(19,4) = "I find I can't concentrate on anything."
itemChoice$(20,0) = "Tiredness or Fatigue"
itemChoice$(20,1) = "I am no more tired or fatigued than usual."
itemChoice$(20,2) = "I get more tired or fatigued more easily than usual."
itemChoice$(20,3) = "I am too tired or fatigued to do a lot of the things I used to do."
itemChoice$(20,4) = "I am too tired or fatigued to do most of the things I used to do."
itemChoice$(21,0) = "Loss of Interest in Sex"
itemChoice$(21,1) = "I have not noticed any recent change in my interest in sex."
itemChoice$(21,2) = "I am less interested in sex than I used to be."
itemChoice$(21,3) = "I am much less interested in sex now."
itemChoice$(21,4) = "I have lost interest in sex completely."
return
''''''''' SUBS 'N FUNCTIONS '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''' SUBS 'N FUNCTIONS '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''' SUBS 'N FUNCTIONS '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''' SUBS 'N FUNCTIONS '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
function fileExists(file$)
files #f, file$
isfile = #f rowcount()
fileExists = isfile
end function
end
