D-pad to choose and change.
Or 'END' for random.
restore names
read title
dim noun$(title)
dim name$(title)
for a=1 to title
read noun$(a)
read name$(a)
next a
restore pain
read level
dim con$(level)
dim hurt$(level)
for a=1 to level
read con$(a)
read hurt$(a)
next a
restore body
read part
dim human$(part)
for a=1 to part
read human$(a)
next a
restore keys
read button
dim key$(button)
dim ctrl$(button)
for a=1 to button
read key$(a)
read ctrl$(a)
next a
restore friends
read past
dim names$(past)
dim surnames$(past)
for a=1 to past
read names$(a)
read surnames$(a)
next a
dim g(16)
dim go(16)
wrd=1
sel1=1
sel2=1
sel3=1
off=1
com=1
open window 640,512
repeat
setdispbuf vm
vm=1-vm
setdrawbuf vm
clear window
c=peek("port1")
for a=1 to 16
if and(c,2^(a-1))<>0 go(a)=1
if go(a)=1 g(a)=g(a)+1
if g(a)>2 g(a)=2
if g(a)=2 go(a)=0
if and(c,2^(a-1))=0 g(a)=0
next a
if go(4)=1 com=com+1
if com>2 com=1
if go(11)=1 off=off+1
if off>2 off=1
for a=1 to 16
if off=2 text 480,a*12+12,str$(a,"##")+" "+str$(2^(a-1))
next a
for a=1 to button
if off=2 and com=1 text 470-len(key$(a))*10,a*12+12,key$(a)
if off=2 and com=2 text 470-len(ctrl$(a))*10,a*12+12,ctrl$(a)
next a
if off=2 then
setrgb 1,256,256,256
text 00,260,"sentence "+str$(len(medical$))
text 40,275,"name "+str$(len(name$),"##")
text 40,290,"pain "+str$(len(hurt$),"##")
text 40,305,"body "+str$(len(human$),"##")
endif
if off=2 text 500,268,"past friends"
if off=2 then
text 500,280,"("+str$(past)+")"
for a=1 to past
text 530-len(names$(a))*10,a*12+280,names$(a)+" "+surnames$(a)
next a
endif
if go(8)=1 wrd=wrd-1
if go(6)=1 wrd=wrd+1
if wrd<1 wrd=1
if wrd>3 wrd=3
if off=1 then
if wrd=1 hilite=1
if wrd=2 hilite=4
if wrd=3 hilite=8
endif
if off=1 then
if wrd=1 and go(5)=1 sel1=sel1-1
if wrd=1 and go(7)=1 sel1=sel1+1
if sel1<1 sel1=1
if sel1>title sel1=title
if wrd=2 and go(5)=1 sel2=sel2-1
if wrd=2 and go(7)=1 sel2=sel2+1
if sel2<1 sel2=1
if sel2>level sel2=level
if wrd=3 and go(5)=1 sel3=sel3-1
if wrd=3 and go(7)=1 sel3=sel3+1
if sel3<1 sel3=1
if sel3>part sel3=part
endif
for a=1 to title
if sel1=a name$=name$(a)
if sel1=a and off=2 text 90,150,str$(a,"##")+" of "+str$(title)
if sel1=a and noun$(a)="m" noun$="his"
if sel1=a and noun$(a)="f" noun$="her"
next a
for a=1 to level
if sel2=a hurt$=hurt$(a)
if sel2=a and off=2 text 90,165,str$(a,"##")+" of "+str$(level)
if sel2=a and con$(a)="s" con$="a"
if sel2=a and con$(a)="p" con$="an"
next a
for a=1 to part
if sel3=a human$=human$(a)
if sel3=a and off=2 text 90,180,str$(a,"##")+" of "+str$(part)
next a
if go(14)=1 then
sel1=int(ran(title))+1
sel2=int(ran(level))+1
sel3=int(ran(part))+1
endif
'if go(1)=1 hilite=hilite+1
'if hilite>8 hilite=1
'if go(4)=1 hilite=int(ran(8))+1
medical$=" "+name$+" has "+con$+" "+hurt$+" pain in "+noun$+" "+human$
gap=0
for a=1 to len(medical$)
if mid$(medical$,a,1)=" " gap=gap+1
if hilite=gap and off=1 then
setrgb 1,0,256,0
else
setrgb 1,256,256,256
endif
text a*10+10,240,mid$(medical$,a,1)
next a
until (1=0)
label names
data 100
data "m","vance"
data "f","ruth"
data "m","paul"
data "f","rachael"
data "f","marilyn"
data "m","patrick"
data "m","kelly"
data "f","penny"
data "m","brian"
data "m","chris"
data "f","caroline"
data "f","joanne"
data "f","sarah"
data "m","pender"
data "m","dennis"
data "f","iris"
data "m","mark"
data "f","shannon"
data "f","debbie"
data "f","estelle"
data "f","joanne"
data "m","jason"
data "m","nick"
data "f","linda"
data "m","fred"
data "m","chris"
data "m","daryl"
data "m","thom"
data "m","raymond"
data "f","joanne"
data "m","alex"
data "m","graham"
data "f","christine"
data "f","marion"
data "f","helene"
data "f","diane"
data "f","annette"
data "m","don"
data "m","john"
data "m","anthony"
data "m","geoffrey"
data "f","jaya"
data "f","lynette"
data "f","jessica"
data "m","jason"
data "f","raera"
data "f","melanie"
data "f","melody"
data "f","carmen"
data "f","ida"
data "m","rough guy"
data "m","greek guy"
data "m","chris"
data "m","arthur"
data "m","ian"
data "m","a.k."
data "m","bruce"
data "m","peter"
data "m","nigel"
data "m","manwell"
data "m","andy"
data "f","sarah"
data "f","karen"
data "m","darryl"
data "f","ethel"
data "f","moana"
data "m","martyn"
data "m","sandy"
data "m","twink"
data "m","patrick"
data "m","peter"
data "m","jamie"
data "m","robert"
data "m","richard"
data "f","janice"
data "m","lance"
data "m","nigel"
data "m","ben"
data "m","lyall"
data "m","david"
data "f","chrissy"
data "m","kevin"
data "m","roger"
data "m","kerri"
data "m","eric"
data "m","pray guy"
data "m","darian"
data "m","graeme"
data "m","jeremy"
data "m","jim"
data "m","pete"
data "m","sean"
data "m","peter"
data "m","dave"
data "m","mark"
data "m","ashwad"
data "m","sarne"
data "f","andrea"
data "f","erika"
data "m","angelo"
label pain
data 51
data "s","sharp"
data "p","undetectable"
data "s","minor"
data "p","insignificant"
data "s","worrisome"
data "p","acute"
data "s","moderate"
data "p","important"
data "s","troublesome"
data "p","important"
data "s","throbbing"
data "p","undesirable"
data "s","grave"
data "p","untreated"
data "s","painful"
data "p","increasing"
data "s","terrible"
data "p","unsufferable"
data "s","dangerous"
data "p","irritating"
data "s","worrying"
data "p","inflamed"
data "s","major"
data "p","unsightly"
data "s","life-threatening"
data "p","incredible"
data "s","stinging"
data "p","itchy"
data "s","bearable"
data "p","ongoing"
data "s","piercing"
data "p","odd"
data "s","grim"
data "p","extruciating"
data "s","sensitive"
data "p","unsafe"
data "s","critical"
data "p","alarming"
data "s","significant"
data "p","unpleasant"
data "s","severe"
data "p","annoying"
data "s","serious"
data "p","aggrevating"
data "s","stabbing"
data "p","awful"
data "s","dull"
data "p","intense"
data "s","dire"
data "p","unbearable"
data "s","delicate"
label body
data 36
data "head"
data "eyes"
data "ears"
data "cheeks"
data "mouth"
data "nose"
data "neck"
data "shoulders"
data "back"
data "ribs"
data "torso"
data "left-arm"
data "right-arm"
data "left-hand"
data "right-hand"
data "upperarms"
data "forearms"
data "elbows"
data "hands"
data "wrists"
data "fingers"
data "chest"
data "waist"
data "hip"
data "buttocks"
data "ass"
data "left-leg"
data "right-leg"
data "thighs"
data "knees"
data "shins"
data "ankles"
data "left-foot"
data "right-foot"
data "feet"
data "toes"
label keys
data 16
data "page up","select"
data "F1","L3"
data "F2","R3"
data "page down","start"
data "up arrow","up"
data "right arrow","right"
data "down arrow","down"
data "left arrow","left"
data "menu","L2"
data "tab","R2"
data "control","L1"
data "capitals","R1"
data "home","triangle"
data "end","circle"
data "delete","cross"
data "insert","square"
label friends
data 19
data "david","teleai"
data "joanna","teleai"
data "tobey","hall"
data "nicola","hall"
data "lego","electronic"
data "mark","norris"
data "terry","flowers"
data "shane","brown"
data "victor","sutherland"
data "rodney","elmes"
data "gary","muddle"
data "dale","swift"
data "jan","morrison"
data "richard","deslauriers"
data "patrick","cadogen"
data "bernadette","cadogen"
data "martyn","salisbury"
data "mark","maloney"
data "vicky","?"
data "roger","rush"
