%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:8827
File Name:MEDAWAR
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\If \List 6[4]\<=0
\Then {10,3,10,10,100,0}\->\List 5
{10,3,10,10}\->\List 6
\IfEnd
\ClrText
\Locate 6,1,"A"
\Locate 13,7,"T"
\For 2\->A \To 4
\Locate 6,A,"A"
\Locate 6,A-1," "
\Locate 15-2A,8-A,"T"
\Locate 17-2A,9-A," "
\Getkey=31\=>\Goto0
\Next 
\For 21\->X \To 9 \Step -1
\Locate X,4,"Presents "
\Next 
\For 1\->A \To 5
\For 21\->X \To 1 \Step -2
A=2\=>\Locate X,4,"  "
A=3\=>\Locate X,2,"  The Adventures of  "
A=4\=>\Locate X,4," the Mighty  \Medawar "
A=5\=>\Locate X,7," [1] Game  [2] Intro "
\Next 
\Next 
\Do
\Getkey\->X
\LpWhile X\<>72\ And X\<>62
X=72\=>\Goto0
" "
" "
" "
" "
" "
" "
" "
\For 1\->A \To 21
\For 21\->X \To 1 \Step -4
A=1\=>\Locate X,5,"  Once upon a time,  "
A=2\=>\Locate X,5," a small town called "
A=3\=>\Locate X,5,"Eastville was haunted"
A=4\=>\Locate X,5,"by dangerous monsters"
A=6\=>\Locate X,5,"  The king promised  "
A=7\=>\Locate X,5," his people  all his "
A=8\=>\Locate X,5,"  gold \and  his own  "
A=9\=>\Locate X,5," daughter to the one "
A=10\=>\Locate X,5," who could manage to "
A=11\=>\Locate X,5,"  put an end to the  "
A=12\=>\Locate X,5,"    h\orribleness.    "
A=14\=>\Locate X,5," A young  man called "
A=15\=>\Locate X,5,"\Medawar wanted to try"
A=16\=>\Locate X,5,"      his luck.      "
\Next 
\For 1\->X \To 80
\Next 
" "
\Next 
\Lbl 0
\ClrText
\Locate 1,1,"~~~~~~Eastville~~~~~~"
\Locate 1,2,"1 - Old Towne Tavern"
\Locate 1,3,"2 - Blacksmith's Shop"
\Locate 1,4,"3 - The Bank"
\Locate 1,5,"4 - Whitch's Hut"
\Locate 1,6,"5 - Klamath F\orest"
\Locate 1,7,"6 - Stats"
\Do
\Getkey
\LpWhile \Ans=0
\ClrText
\Ans=72\=>\Goto1
\Ans=62\=>\Goto2
\Ans=52\=>\Goto3
\Ans=73\=>\Goto4
\Ans=63\=>\Goto5
\Ans=53\=>\Goto6
\Goto0
\Lbl 4
\ClrText
\Locate 1,1,"~~~~Whitch's~~Hut~~~~"
\Locate 1,3,"1 - Upgrade staff"
\Locate 1,4,"2 - Recharge staff"
\Locate 1,6,"3 - Exit Hut"
\Do
\Getkey\->X
\LpWhile X=0
X=52\=>\Goto0
X=62\=>\GotoH
X\<>72\=>\Goto4
\Lbl J
\ClrText
\Locate 1,1,"~~~~Upgrade~Staff~~~~"
\Locate 1,3,"Gold     Level"
\Locate 1,4,"Cost"
\Locate 6,3,\List 5[5]
\Locate 16,3,\List 5[3]
\List 5[3]*10+20\->A
\Locate 6,4,A
\Locate 1,6,"1 - Upgrade staff"
\Locate 1,7,"2 - Exit"
\Do
\Getkey
\LpWhile \Ans=0
\Ans=62\=>\Goto4
\Ans\<>72\=>\GotoJ
\List 5[5]<A\=>\GotoJ
\List 5[5]-A\->\List 5[5]
\List 5[3]+1\->\List 5[3]
\GotoJ
\Lbl H
\ClrText
\Locate 1,1,"~~~Recharge~~staff~~~"
\Locate 1,3,"Level      \Power"
\Locate 1,4,"Gold"
\Locate 7,3,\List 5[3]
\Locate 19,3,\List 6[3]
\Locate 6,4,\List 5[5]
\Locate 1,5,"1 - Recharge one    5"
\Locate 1,6,"2 - Recharge all"
(\List 5[3]-\List 6[3])*5\->B
\Locate 19,6,B
\Locate 1,7,"3 - EXIT"
\Do
\Getkey\->X
\LpWhile X=0
X=52\=>\Goto0
\List 5[5]<5\=>\GotoH
\List 5[3]=\List 6[3]\=>\GotoH
\If X=72
\Then \List 5[5]-5\->\List 5[5]
\List 6[3]+1\->\List 6[3]
\GotoH
\IfEnd
\If X=62
\Then \List 5[5]-B<0\=>\GotoH
\List 5[5]-B\->\List 5[5]
\List 5[3]\->\List 6[3]
\GotoH
\IfEnd
\Lbl 1
\ClrText
\Locate 1,1,"~~Old~Towne~Tavern~~"
\Locate 1,2,"The tavern is crowded"
\Locate 3,3,"People are eating"
\Locate 1,4,"laughing \and gambling"
\Locate 1,5,"1 - Rent a room     2"
\Locate 1,6,"2 - Join the gamblers"
\Locate 1,7,"3 - Exit the tavern"
\Do
\Getkey
\LpWhile \Ans=0
\Ans=62\=>\GotoG
\Ans=52\=>\Goto0
\Ans\<>72\=>\Goto1
\ClrText
\List 5[4]=\List 6[4]\=>\Goto1
\List 5[5]<2\=>\Goto1
\Locate 1,2,"You sleep over the"
\Locate 1,3,"night, \and wake up"
\Locate 1,4,"refreshed"
\List 5[5]-2\->\List 5[5]
\List 5[4]\->\List 6[4]
\Locate 8,6,\List 5[4]
\Locate 11,6,"\slash"
\Locate 13,6,\List 6[4]
\Do
\Getkey
\LpWhile \Ans=0
\Goto1
\Lbl G
\ClrText
" "
" "
" "
" "
" "
\Locate 1,1,"~~~~~G~A~M~B~L~E~~~~~"
\Locate 6,2,\List 5[5]
\Locate 1,2,"Gold"
\Locate 1,4,"The gamblers look at"
\Locate 1,5,"you... How much will"
"you bet"?\->X
\Int X\->B
B\<=0\=>\Goto1
B>\List 5[5]\=>\GotoG
\ClrText
\If 11\Ran#<5
\Then \Locate 7,4,"You  win!"
\List 5[5]+B\->\List 5[5]
\Else \Locate 7,4,"You  lose"
\List 5[5]-B\->\List 5[5]
\IfEnd
\For 1\->K \To 150
\Next 
\Do
\Getkey
\LpWhile \Ans=0
\GotoG
\Lbl 2
\ClrText
\Locate 2,1,",----,  Hello Sir."
\Locate 1,2,"(~^^^~^) What can I"
\Locate 1,3,"\Rc  . . } do f\or you?"
\Locate 1,4,"(   O  ) 1 - Upgrade"
\Locate 2,5,"(  - )  2 - Repair"
\Locate 3,6,"',,'   3 - Bye bye"
\Locate 4,7,"Weapon  [  \slash  ]"
0\->L
\List 6[2]<10\=>1\->L
\Locate 13+L,7,\List 6[2]
\Locate 16,7,\List 5[2]
\Do
13\Ran#<1\=>\Locate 4,3,"   "
2\Ran#<1\=>\Locate 4,3,". ."
2\Ran#<1\=>\Locate 5,5,"-"
2\Ran#<1\=>\Locate 5,5,"="
\Getkey
\LpWhile \Ans=0
\Ans=52\=>\Goto0
\Ans=72\=>\GotoU
\Ans=62\=>\GotoF
\Goto2
\Lbl U
\ClrText
\Locate 1,1,"~~~Upgrade~~Weapon~~~"
\Locate 1,3,"Gold"
\Locate 13,3,"Level"
\Locate 1,4,"Cost"
\Locate 6,3,\List 5[5]
\Locate 19,3,\List 5[2]
\List 5[2]*5+20\->X
\Locate 6,4,X
\Locate 1,5,"1 - Upgrade"
\Locate 1,6,"2 - Exit"
\Do
\Getkey
\LpWhile \Ans=0
\Ans=62\=>\Goto2
\Ans\<>72\=>\GotoU
\ClrText
X>\List 5[5]\=>\GotoU
\Locate 4,4,"Weapon upgraded"
\List 5[2]+1\->\List 5[2]
\List 5[5]-X\->\List 5[5]
\Do
\Getkey
\LpWhile \Ans\<>31
\GotoU
\Lbl F
\ClrText
\List 5[2]=\List 6[2]\=>\Goto2
\Locate 1,1,"~~~~Weapon~Repair~~~~"
\Locate 1,3,"Level     Strength"
\Locate 7,3,\List 5[2]
\Locate 20,3,\List 6[2]
\Locate 1,4,"Gold"
\Locate 6,4,\List 5[5]
\Locate 1,5,"1 - Repair one   3"
\Locate 1,6,"2 - Repair all"
\List 5[2]-\List 6[2]\->X
\Locate 18,6,3X
\Locate 1,7,"3 - Exit"
\Do
\Getkey
\LpWhile \Ans=0
\ClrText
\Ans=52\=>\Goto2
\Ans=72\=>\GotoO
\Ans\<>62\=>\GotoF
\List 5[5]<3X\=>\GotoF
\List 5[5]-3X\->\List 5[5]
\List 5[2]\->\List 6[2]
\GotoF
\Lbl O
\List 5[5]<3\=>\GotoF
\List 5[2]=\List 6[2]\=>\GotoF
\List 5[5]-3\->\List 5[5]
\List 6[2]+1\->\List 6[2]
\GotoF
\Lbl 6
\ClrText
\Locate 1,1,"~~~~~~~~StatS~~~~~~~~"
\Locate 7,2,"Life   \slash"
\Locate 12,2,\List 6[4]
\Locate 15,2,\List 5[4]
\Locate 5,3,"Weapon   \slash"
\Locate 12,3,\List 6[2]
\Locate 15,3,\List 5[2]
\Locate 6,4,"Magic   \slash"
\Locate 12,4,\List 6[3]
\Locate 15,4,\List 5[3]
\Locate 3,5,"Strength"
\Locate 12,5,\List 5[1]
\Locate 7,6,"Gold"
\Locate 12,6,\List 5[5]
\Locate 7,7,"Bank"
\Locate 12,7,\List 5[6]
\Do
\Getkey
\LpWhile \Ans\<>31
\Goto0
\Lbl 3
\ClrText
" "
" "
" "
\Locate 1,1,"~~~~~~~B~A~N~K~~~~~~~"
\Locate 1,2,"Gold"
\Locate 9,3,"Account"
\Locate 6,2,\List 5[5]
\Locate 17,3,\List 5[6]
\Locate 1,5,"2 - Deposit"
\Locate 1,4,"1 - Withdrawal"
\Locate 1,7,"3 - Exit the Bank"
\Do
\Getkey\->X
\LpWhile X=0
X=52\=>\Goto0
X\<>72\ And X\<>62\=>\Goto3
\For 4\->I \To 7
\Locate 1,I,"                     "
\Next 
\If X=72
\Then \List 5[6]=0\=>\Goto3
"Amount"?\->A
A>\List 5[6]\=>\Goto3
\List 5[6]-A\->\List 5[6]
\List 5[5]+A\->\List 5[5]
\Else \List 5[5]=0\=>\Goto3
"Amount"?\->A
A>\List 5[5]\=>\Goto3
\List 5[5]-A\->\List 5[5]
\List 5[6]+A\->\List 5[6]
\IfEnd
\Goto3
\Lbl 5
\ClrText
\Locate 1,1,"~~~Klamath~~F\orest~~~"
\Locate 1,4,"1 - Search around"
\Locate 1,5,"2 - Go to Town"
\Do
\Getkey\->X
\LpWhile X=0
X\<>62\ And X\<>72\=>\Goto5
X=72\=>\GotoS
5\Ran#>1\=>\Goto0
\ClrText
\Locate 1,1,"~~~~~~~Monster~~~~~~~"
\Locate 2,4,"On your way  out of"
\Locate 4,5,"the f\orest, you"
\Locate 5,6,"suddenly meet"
\Locate 7,7,"a monster"
\Do
\Getkey
\LpWhile \Ans\<>31
\GotoM
\Lbl S
\ClrText
7\Ran#\->X
X<2\=>\GotoT
X>6\=>\GotoQ
X<6\ And X>5\=>\GotoY
\If X>2\ And X<2.5\ And \List 5[4]>\List 6[4]
\Then \Locate 1,1,"  ^   I see you are"
\Locate 1,2," ^^^  wounded \Medwar."
\Locate 1,3,"^^^^^ Take this"
\Locate 1,4,"{.^.} potion of"
\Locate 1,5," {-}  healing."
\Locate 1,6,"  '"
\Locate 15,7,"[  \slash  ]"
\Locate 16,7,\List 5[4]
\Locate 19,7,\List 5[4]
\List 5[4]\->\List 6[4]
\Do
\Getkey\->Q
9\Ran#<1\=>\Locate 3,5,"-"
6\Ran#<1\=>\Locate 3,5,"="
\LpWhile Q\<>31
\Goto5
\IfEnd
\Lbl M
\Int (((\List 5[2]+\List 5[3])/1.5)\Ran#)+1\->L
L\->M
\Int (((\List 5[4]-L\ab/c4)\Ran#)+1\->B
0\->Z
0\->G
3\Ran#<1\=>1\->G
\ClrText
\For 21\->X \To 9 \Step -3
\Locate X,4,"FIGHT   "
\Locate 22-X,5,"-\(-)-"
\Locate 28-X,3,"\(-)-\(-)"
\Next 
" "
" "
" "
" "
" "
" "
" "
\For 1\->A \To 6
\For 21\->X \To 9 \Step -4
A=1\=>\Locate X,7,"Monster...."
A=2\=>\Locate X,7,"  ...."
A=3\=>\Locate X,7,"Life...."
A=4\=>\Locate X,7,"Hit Pts...."
A=5\=>\Locate X,7,"Carries...."
\Next 
" "
\Next 
\Locate 19,3,L
\Locate 19,4,H
G\=>\Locate 19,5,"Gem"
\If L<6
\Then \Locate 11,2,"Goblin"
\Locate 1,1,"() ()"
\Locate 2,2,"\theta \theta"
\Locate 3,3,"O"
\Locate 2,4,"---"
\Locate 3,5,"'"
\Do
9\Ran#<1\=>\Locate 2,2,"~ \theta"
5\Ran#<1\=>\Locate 2,2,"\theta \theta"
8\Ran#<1\=>\Locate 2,4,"---"
4\Ran#<1\=>\Locate 2,4,"\(-)-\(-)"
\Getkey
\LpWhile \Ans=0
\IfEnd
\If L>5\ And L<11
\Then \Locate 11,2,"Zombie"
\Locate 1,2,"'''''"
\Locate 1,3,"'O O'"
\Locate 1,4,"I ^ I"
\Locate 1,5,"I~~~I"
\Locate 1,6," \aster\aster\aster "
\Do
3\Ran#<1\=>\Locate 2,3,"O O"
3\Ran#<1\=>\Locate 2,3,"# #"
\Getkey
\LpWhile \Ans=0
\IfEnd
\If L>10\ And L<16
\Then \Locate 11,2,"Gargoyle"
\Locate 1,1,"(o  O)"
\Locate 2,2,"<..>"
\Locate 3,3,"--"
\Do
\Getkey
15\Ran#<1\=>\Locate 2,1,"O  o"
15\Ran#<1\=>\Locate 2,1,"o  O"
15\Ran#<1\=>\Locate 2,1,"="
\LpWhile \Ans=0
\IfEnd
\If L>15\ And L<21
\Then \Locate 11,2,"Gnom"
\Locate 1,1," (==)"
\Locate 1,2,"( \>=\<= )"
\Locate 1,3,"((  ))"
\Locate 1,4," (~~)"
\Locate 1,5,"  '' "
\Do
9\Ran#<1\=>\Locate 3,2,"\(-)\(-)"
2\Ran#<1\=>\Locate 3,2,"\>=\<="
\Getkey
\LpWhile \Ans=0
\IfEnd
\If L>20\ And L<26
\Then \Locate 11,2,"\Medusa"
\Locate 1,1,"~~~~~~"
\Locate 1,2,"~\aster  \aster~"
\Locate 1,3,"~    ~"
\Locate 1,4," ~  ~ "
\Locate 1,5,"  ^^  "
0\->\r
\Do
\r+1\->\r
\r\>=7\=>1\->\r
\Locate \r,1,"~ "
15\Ran#<1\=>\Locate 3,2,"  "
3\Ran#<1\=>\Locate 3,2,")("
\Getkey
\LpWhile \Ans=0
\IfEnd
\If L>25\ And L<46
\Then \Locate 11,2,"Orce"
\Locate 1,2,"}  { "
\Locate 1,3,"(\>=\<=)  "
\Locate 1,4,"(())  "
\Locate 1,5," --   "
\Do
9\Ran#<1\=>\Locate 2,3,"~~"
3\Ran#<1\=>\Locate 2,3,"\>=\<="
\Getkey
\LpWhile \Ans=0
\IfEnd
\If L>45
\Then \Locate 11,2,"Giant."
\Locate 1,1,"  ,-=-,"
\Locate 1,2," {~~,~~}"
\Locate 1,3,"[{()Y()}]"
\Locate 1,4," { \<=,\>= } "
\Locate 1,5,"  \(-)~~~\(-)"
\Locate 1,6,"  {,,,}"
\Do
9\Ran#<1\=>\Locate 4,5,"(O)"
9\Ran#<1\=>\Locate 4,5,"~~~"
4\Ran#<1\=>\Locate 3,3,"()Y()"
9\Ran#<1\=>\Locate 3,3,"[]Y[]"
\Getkey
\LpWhile \Ans=0
\IfEnd
\Do
\Getkey
\LpWhile \Ans=0
\ClrText
\Lbl W
\Locate 1,1,"~~~~~~~~Fight~~~~~~~~"
\Locate 1,2,"Life         Weapn   "
\Locate 11,2,\List 6[4]
\Locate 20,2,\List 6[2]
\Locate 1,3,"Strength     Magic   "
\Locate 11,3,\List 6[1]
\Locate 20,3,\List 6[3]
\Locate 1,4,"Enm. Life    HitPt   "
\Locate 11,4,L
\Locate 20,4,B
\If \List 6[4]\<=0
\Then \For 1\->X \To 150
\Next 
\ClrText
\Locate 1,1,"~~~~~~Game~Over~~~~~~"
\Locate 1,3,"You have  failed your"
\Locate 1,4,"mission, \and the town"
\Locate 3,5,"of Eastville will"
\Locate 1,6," surely suffer under"
\Locate 1,7,"the terrible monsters"
\Do
\Getkey
\LpWhile \Ans\<>31
\Stop
\IfEnd
Z=0\=>\Locate 1,6," 1-Hit 2-Spell 3-Run "
Z\=>\Locate 1,6,"                    "
Z\=>\GotoR
\Do
\Getkey\->X
\LpWhile X=0
X\<>72\ And X\<>62\ And X\<>52\=>\GotoW
X=62\ And \List 6[3]<5\=>\GotoW
\If X=72
\Then \Int (\List 5[1]+\List 6[2])/2\->H
\Int 3\Ran#<1\=>\List 6[2]>0\=>\List 6[2]-1\->\List 6[2]
\Int H\Ran#\->D
\Locate 1,7,"Damage"
\Locate 8,7,D
L-D\->L
\IfEnd
\If X=62
\Then \List 6[3]-5\->\List 6[3]
\Int (\List 5[3]*3)\Ran#\->D
\Locate 1,7,"Damage"
\Locate 8,7,D
L-D\->L
\IfEnd
\For 1\->K \To 150
\Next 
\Locate 1,7,"            "
\If X=52
\Then 2.5\Ran#<1\=>\Goto5
\Locate 5,7,"Unable to run"
\For 1\->K \To 100
\Next 
\Locate 1,7,"                     "
\IfEnd
1\->Z
\GotoW
\Lbl R
0\->Z
\If L<1
\Then \ClrText
\Locate 1,1,"~~~~~~~Vict\ory~~~~~~~"
\Locate 1,2,"You study the monster"
\Locate 1,3," carefully \and find"
\Locate 1,4,"  these items on it"
\Locate 7,5,"Gold"
\Int (M*10\Ran#)+1\->X
X+\List 5[5]\->\List 5[5]
\Locate 12,5,X
\If G
\Then \If 2\Ran#<1
\Then \Locate 4,7,"Gem of strength"
\List 5[1]+1\->\List 5[1]
\Else \Locate 6,6,"Gem of life"
\List 5[4]+1\->\List 5[4]
\IfEnd
\IfEnd
\Do
\Getkey
\LpWhile \Ans\<>31
\Goto5
\IfEnd
\Int B\Ran#\->D
\List 6[4]-D\->\List 6[4]
\Locate 11,7,"Damage"
\Locate 18,7,D
\For 1\->K \To 150
\Next 
\Locate 11,7,"            "
\GotoW
\Lbl T
\Locate 1,1,"~~~T~R~E~A~S~U~R~E~~~"
\Locate 7,3,"You  find"
\If 2\Ran#<1
\Then \Int ((\List 5[2]+\List 5[1])*25)\Ran#+1\->X
\Locate 8,4,"Gold"
\Locate 13,4,X
X+\List 5[5]\->\List 5[5]
\Do
\Getkey
\LpWhile \Ans\<>31
\Goto5
\IfEnd
\Locate 7,4,"A gem of"
\Int 4\Ran#+1\->X
X=2\=>4\->X
X=1\=>\Locate 7,5,"Strength"
X=3\=>\Locate 9,5,"Magic"
X=4\=>\Locate 9,5,"Life"
\List 5[X]+1\->\List 5[X]
\Locate 8,7,"[+1]"
\Locate 13,7,\List 5[X]
\Do
\Getkey
\LpWhile \Ans\<>31
\Goto5
\Lbl Q
\ClrText
\Locate 1,1,"~~~~~~~Goblin~~~~~~~~"
\Locate 4,3,"A goblin steals"
\Int \List 5[5]\Ran#\->S
\List 5[5]-S\->\List 5[5]
\Locate 7,4,S
\Locate 12,4,"gold"
\Locate 7,5,"from you"
\Do
\Getkey
\LpWhile \Ans\<>31
\Goto5
\Lbl Y
\ClrText
\Lbl 9
\Locate 1,1,"  (V)  Hi there."
\Locate 1,2," (\Deg> \Deg>) \Do you want"
\Locate 1,3," ( U ) to buy this"
\Locate 1,4,"  (-)  secret package"
\Locate 1,5,"   W   f\or only"
\Locate 1,6,"--You-have-----gold--"
\Locate 12,6,\List 5[5]
\List 5[2]*10\->B
\Locate 17,5,B
\Locate 1,7,"1-Deal 2-\Not a chance"
\Do
\Getkey
9\Ran#<1\=>\Locate 4,4,"-"
6\Ran#<1\=>\Locate 4,4,"="
4\Ran#<1\=>\Locate 3,2,"\Deg> \Deg>"
15\Ran#<1\=>\Locate 3,2,"\(-) \(-)"
\LpWhile \Ans=0
\Ans\<>62\ And \Ans\<>72\=>\Goto9
\Ans=62\=>\Goto5
\List 5[5]<b\=>\Goto9
\List 5[5]-B\->\List 5[5]
\ClrText
\Locate 1,1,"~~~~~~~Package~~~~~~~"
\Locate 1,2,"It contains"
\Int 5\Ran#+1\->P
P<5\=>\GotoC
\Int 5\Ran#\->\theta
\theta=0\=>\Locate 6,4,"a rotten apple"
\theta=1\=>\Locate 8,4,"a stone"
\theta=2\=>\Locate 6,4,"a dead  rat"
\theta=3\=>\Locate 7,4,"nothing.."
\theta=4\=>\Locate 3,4,"a broken sw\ord..."
\Do
\Getkey
\LpWhile \Ans=0
\Goto5

\Lbl C
\Int 4\Ran#+1\->P
\Locate 6,4,"A scroll of"
P=1\=>\Locate 6,5,"strength"
P=2\=>\Locate 3,5,"weapon techniques"
P=3\=>\Locate 9,5,"magic"
P=4\=>\Locate 9,5,"life"
\Int 2\Ran#+1\->O
\Locate 9,7,"[+  ]
\Locate 12,7,O
\List 5[P]+O\->\List 5[P]
\Do
\Getkey
\LpWhile \Ans=0
\Goto5




%End
<!--'"</title></head>-->

<script type="text/javascript">
//OwnerIQ
var __oiq_pct = 50;
if( __oiq_pct>=100 || Math.floor(Math.random()*100/(100-__oiq_pct)) > 0 ) {
var _oiqq = _oiqq || [];
_oiqq.push(['oiq_addPageBrand','Lycos']);
_oiqq.push(['oiq_addPageCat','Internet > Websites']);
_oiqq.push(['oiq_addPageLifecycle','Intend']);
_oiqq.push(['oiq_doTag']);
(function() {
var oiq = document.createElement('script'); oiq.type = 'text/javascript'; oiq.async = true;
oiq.src = document.location.protocol + '//px.owneriq.net/stas/s/lycosn.js';
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(oiq, s);
})();
}
//Google Analytics
var _gaq = _gaq || [];
_gaq.push(['_setAccount','UA-21402695-19']);
_gaq.push(['_setDomainName','tripod.com']);
_gaq.push(['_setCustomVar',1,'member_name','cabbresson',3]);
_gaq.push(['_trackPageview']);
(function() {
var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
})();
//Lycos Init
function getReferrer() {
var all= this.document.cookie;
if (all== '') return false;
var cookie_name = 'REFERRER=';
var start = all.lastIndexOf(cookie_name);
if (start == -1) return false;
start += cookie_name.length;
var end = all.indexOf(';', start);
if (end == -1) end = all.length;
return all.substring(start, end);
}
function getQuery() {
var rfr = getReferrer();
if (rfr == '') return false;
var q = extractQuery(rfr, 'yahoo.com', 'p=');
if (q) return q;
q = extractQuery(rfr, '', 'q=');
return q ? q : "";
}
function extractQuery(full, site, q_param) {
var start = full.lastIndexOf(site);
if (start == -1) return false;
start = full.lastIndexOf(q_param);
if (start == -1) return false;
start += q_param.length;
var end = full.indexOf('&', start);
if (end == -1) end = full.length;
return unescape(full.substring(start, end)).split(" ").join("+");
}
function generateHref(atag, template){
atag.href=template.replace('_MYURL_', window.location.href.replace('http://', '')).replace('_MYTITLE_','Check%20out%20this%20Tripod%20Member%20site!'); 
}
var lycos_ad = Array();
var lycos_onload_timer;
var cm_role = "live";
var cm_host = "tripod.lycos.com";
var cm_taxid = "/memberembedded";
var tripod_member_name = "cabbresson";
var tripod_member_page = "cabbresson/Casio/mightymedawar.cat";
var tripod_ratings_hash = "1713498391:8cb0460773b33f9c441a7715b785165e";

var lycos_ad_category = null;

var lycos_ad_remote_addr = "209.202.244.9";
var lycos_ad_www_server = "www.tripod.lycos.com";
var lycos_ad_track_small = "";
var lycos_ad_track_served = "";
var lycos_search_query = getQuery();
</script>

<script type="text/javascript" src="https://scripts.lycos.com/catman/init.js"></script>

<script type='text/javascript'>
 var googletag = googletag || {};
 googletag.cmd = googletag.cmd || [];
 (function() {
   var gads = document.createElement('script');
   gads.async = true;
   gads.type = 'text/javascript';
   var useSSL = 'https:' == document.location.protocol;
   gads.src = (useSSL ? 'https:' : 'http:') +
     '//www.googletagservices.com/tag/js/gpt.js';
   var node = document.getElementsByTagName('script')[0];
   node.parentNode.insertBefore(gads, node);
 })();
</script>

<script type='text/javascript'>
 googletag.cmd.push(function() {
   googletag.defineSlot('/95963596/TRI_300X250_dfp', [300, 250], 'div-gpt-ad-1450204159126-0').addService(googletag.pubads());
   googletag.defineSlot('/95963596/TRI_above_728x90_dfp', [728, 90], 'div-gpt-ad-1450204159126-1').addService(googletag.pubads());
   googletag.defineSlot('/95963596/TRI_below_728x90_dfp', [728, 90], 'div-gpt-ad-1450204159126-2').addService(googletag.pubads());
   googletag.pubads().enableSingleRequest();
   googletag.enableServices();
 });
</script>


<script type="text/javascript"> 
(function(isV)
{
    if( !isV )
    {
        return;
    }
    var adMgr = new AdManager();
    var lycos_prod_set = adMgr.chooseProductSet();
    var slots = ["leaderboard", "leaderboard2", "toolbar_image", "toolbar_text", "smallbox", "top_promo", "footer2", "slider"];
    var adCat = this.lycos_ad_category;
    adMgr.setForcedParam('page', (adCat && adCat.dmoz) ? adCat.dmoz : 'member');
    if (this.lycos_search_query)
    {
        adMgr.setForcedParam("keyword", this.lycos_search_query);
    } 
    else if(adCat && adCat.find_what)
    {
        adMgr.setForcedParam('keyword', adCat.find_what);
    }
    
    for (var s in slots)
    {
        var slot = slots[s];
        if (adMgr.isSlotAvailable(slot))
        {
            this.lycos_ad[slot] = adMgr.getSlot(slot);
        }
    }

    adMgr.renderHeader();
    adMgr.renderFooter();
}((function() {

var w = 0, h = 0, minimumThreshold = 300;

if (top == self)
{
    return true;
}
if (typeof(window.innerWidth) == 'number' )
{
    w = window.innerWidth;
    h = window.innerHeight;
}
else if (document.documentElement && (document.documentElement.clientWidth || document.documentElement.clientHeight))
{
    w = document.documentElement.clientWidth;
    h = document.documentElement.clientHeight;
}
else if (document.body && (document.body.clientWidth || document.body.clientHeight))
{
    w = document.body.clientWidth;
    h = document.body.clientHeight;
}
return ((w > minimumThreshold) && (h > minimumThreshold));
}())));




window.onload = function()
{
    var f = document.getElementById("FooterAd");
    var b = document.getElementsByTagName("body")[0];
    b.appendChild(f);
    f.style.display = "block";
    document.getElementById('lycosFooterAdiFrame').src = '/adm/ad/footerAd.iframe.html';
    


    
    // DOM Inj Ad
    (function(isTrellix)
    {
        var e = document.createElement('iframe');
        e.style.border = '0';
        e.style.margin = 0;
        e.style.display = 'block';
        e.style.cssFloat = 'right';
        e.style.height = '254px';
        e.style.overflow = 'hidden';
        e.style.padding = 0;
        e.style.width = '300px';


        var isBlokedByDomain = function( href )
        {
            var blockedDomains = [
                "ananyaporn13000.tripod.com",
                "xxxpornxxx.tripod.com"
            ];
            var flag = false;
            
            for( var i=0; i<blockedDomains.length; i++ )
            {
                if( href.search( blockedDomains[ i ] ) >= 0 )
                {
                    flag = true;
                }
            }
            return flag;
        }

        var getMetaContent = function( metaName )
        {
            var metas = document.getElementsByTagName('meta');
            for (i=0; i<metas.length; i++)
            { 
                if( metas[i].getAttribute("name") == metaName )
                { 
                    return metas[i].getAttribute("content"); 
                } 
            }
            return false;
        }
        
        var getCommentNodes = function(regexPattern)
        {
            var nodes = {};
            var nodesA = [];
            var preferredNodesList = ['a', 'c', 'b'];
        
            (function getNodesThatHaveComments(n, pattern)
            {
                if (n.hasChildNodes())
                {
                    if (n.tagName === 'IFRAME')
                    {
                        return false;
                    }
                    for (var i = 0; i < n.childNodes.length; i++)
                    {
                        if ((n.childNodes[i].nodeType === 8) && (pattern.test(n.childNodes[i].nodeValue)))
                        {
                            var areaName = pattern.exec(n.childNodes[i].nodeValue)[1];
                            nodes[areaName] = n;
                        }
                        else if (n.childNodes[i].nodeType === 1)
                        {
                            getNodesThatHaveComments(n.childNodes[i], pattern);
                        }
                    }
                }
            }(document.body, regexPattern));

            for (var i in preferredNodesList)
            {
                if (nodes[preferredNodesList[i]])
                {
                    if( isTrellix && nodes[preferredNodesList[i]].parentNode.parentNode.parentNode.parentNode )
                    {
                        nodesA.push(nodes[preferredNodesList[i]].parentNode.parentNode.parentNode.parentNode);
                    }
                    else
                    {
                        nodesA.push( nodes[preferredNodesList[i]] );
                    }
                }
            }
            return nodesA;
        }
        
        
        var properNode = null;
        var areaNodes = getCommentNodes( new RegExp( '^area Type="area_(\\w+)"' ) );

        for (var i = 0; i < areaNodes.length; i++)
        {
            var a = parseInt(getComputedStyle(areaNodes[i]).width);
            if ((a >= 300) && (a <= 400))
            {
                properNode = areaNodes[i];
                break;
            }
        }


        var propertyName = getMetaContent("property") || false;
        if( isTrellix && (properNode) )
        {
            e.src = '/adm/ad/injectAd.iframe.html';
            properNode.insertBefore(e, properNode.firstChild);
        }
        else if( isTrellix && !( properNode ) ) // Slap the ad eventhought there is no alocated slot
        {
            e.src = '/adm/ad/injectAd.iframe.html';
            e.style.cssFloat = 'none';
            var cdiv = document.createElement('div');
            cdiv.style = "width:300px;margin:10px auto;";
            cdiv.appendChild( e );
            b.insertBefore(cdiv, b.lastChild);
        }
        else if( !isBlokedByDomain( location.href ) )
        {
            var injF = document.createElement('iframe');
            injF.style.border = '0';
            injF.style.margin = 0;
            injF.style.display = 'block';
            injF.style.cssFloat = 'none';
            injF.style.height = '254px';
            injF.style.overflow = 'hidden';
            injF.style.padding = 0;
            injF.style.width = '300px';
            injF.src = '/adm/ad/injectAd.iframe.html';

            if( b && ( !isTrellix || ( typeof isTrellix == "undefined" ) ) ) // All other tripod props
            {
                var cdiv = document.createElement('div');
                cdiv.style = "width:300px;margin:10px auto;";
                cdiv.appendChild( injF );
                b.insertBefore(cdiv, b.lastChild);
            } 
        }
  }( document.isTrellix ));
}

</script>

<div id="tb_container" style="background:#DFDCCF; border-bottom:1px solid #393939; position:relative; z-index:999999999!important">
<!--form name="search" onSubmit="return searchit()" id='header_search' >
<input type="text" placeholder="Search" size=30 name="search2" value="">
<input type="button" value="Go!" onClick="searchit()">
</form>
<style>
form#header_search {
    width: 916px;
    margin: 0 auto 8px;
    position: relative;
}


form#header_search input {
    height: 40px;
    font-size: 14px;
    line-height: 40px;
    padding: 0 8px;
    box-sizing: border-box;
    background: #F4F2E9;
    border: 1px solid #BBB8B8;
    transition: background-color 300ms ease-out,
                color 300ms ease;
}

form#header_search input[type="text"] {
    width: 100%;
}
form#header_search input[type="text"]:focus {
    border-color: #A2D054;
    background-color: #fff;
    box-shadow: 0 0px 12px -4px #A2D054;
}



form#header_search input[type="button"] {
    position: absolute;
    top: 1px;
    right: 1px;
    opacity: 1;
    background: #DFDCCF;
    color: #463734;
    width: 125px;
    cursor: pointer;
    height: 38px;
    border: none;
}
form#header_search input[type="text"]:focus ~ input[type='button']:hover,
form#header_search input[type='button']:hover {
    background-color: #A5CE56;
    color: #fff;
}
form#header_search input[type="text"]:focus ~ input[type='button'] {
    background-color: #52AEDF;
    color: #fff;
}

</style>

<script>
function searchit(){
    
    // determine environment 
    var search_env 
    if (lycos_ad_www_server.indexOf(".pd.") > -1) {
       search_env = 'http://search51.pd.lycos.com/a/';
    } else if (lycos_ad_www_server.indexOf(".qa.") > -1) {
       search_env = 'http://search51.qa.lycos.com/a/';
    } else {
       search_env = 'http://search51.lycos.com/a/';
    }

var search_term = encodeURIComponent(document.search.search2.value)
var search_url = search_env+search_term;
window.open(search_url);

return false
}
</script-->
<style>
    .adCenterClass{margin:0 auto}
</style>
<div id="tb_ad" class="adCenterClass" style="display:block!important; overflow:hidden; width:916px;">

<div id="ad_container" style="display:block!important; float:left; width:728px ">
<script type="text/javascript">
if (typeof lycos_ad !== "undefined" && "leaderboard" in lycos_ad) {
  document.write(lycos_ad['leaderboard']);
}
</script>
</div>
</div>
</div>
<script type="text/javascript">
if (typeof lycos_ad !== "undefined" && "slider" in lycos_ad) {
  document.write(lycos_ad['slider']);
}
</script> <!-- added 7/22 -->
<div id="FooterAd" style="background:#DFDCCF; border-top:1px solid #393939; clear:both; display:none; width:100%!important; position:relative; z-index:999999!important; height:90px!important"> 
<div class="adCenterClass" style="display:block!important; overflow:hidden; width:916px;">
<div id="footerAd_container" style="display:block!important; float:left; width:728px">
<iframe id="lycosFooterAdiFrame" style="border:0; display:block; float:left; height:96px; overflow:hidden; padding:0; width:750px"></iframe>
</div>
</div>
</div>