Sorry your browser is not supported!

a$="abcdefabcsaefdscacbda"

` Go through every character of a$
for t=1 to len(a$)

 ` Check the character (change the character to higher case)
 CheckLetter(upper$(mid$(a$,t)))

next t

wait key

end



function CheckLetter(Tex$)
 
 select Tex$

  ` A
  case "A"
   print "A"
  endcase

  ` B
  case "B"
   print "B"
  endcase

  ` C
  case "C"
   print "C"
  endcase
 
  ` D 
  case "D"
   print "D"
  endcase

  case default
   print "Something Else"
  endcase

 endselect

endfunction

` Dimensionalize the array
dim TestWord$(49,1)    ` 50 Questions and Answers
` TestWord$(xx,0) = Question
` TestWord$(xx,1) = Answer

` Define the array
TestWord$(0,0)="COMER 2S"    ` Question #0
TestWord$(0,1)="COMES"       ` Answer #0

TestWord$(1,0)="COMER 1S"    ` Question #1
TestWord$(1,1)="COMO"        ` Answer #1

TestWord$(2,0)="COMER 3P"    ` Question #2
TestWord$(2,1)="COMEN"       ` Answer #2

` Change the text size so its bigger
set text size 50

` Go through each question
for t=0 to 2

 ` Clear the screen
 cls

 ` Show the question
 center text screen width()/2,50,TestWord$(t,0) 

 ` Set the x and y for the input
 set cursor 100,200
 ` Get the answer
 input "> ",a$
 
 ` Change the user input to higher case
 a$=upper$(a$)
  
 ` Check if the answer is right
 if a$=TestWord$(t,1)
  ` Right answer
  center text screen width()/2,400,"Correct!"
  ` Increase the right answers
  inc Right
  else
  ` Wrong answer
  center text screen width()/2,400,"Wrong!"
  ` Increase the wrong answers
  inc Wrong
 endif

 ` Wait for half a second   1000 = 1 second
 wait 500

next t

` Change the text size back to normal
set text size 20

` Show the test results
cls
print "Test Results"
print ""
print "Right = "+str$(Right)
print "Wrong = "+str$(Wrong)
print ""

if Right=3 then print "One more right answer and you get to teach the class for me."

if Wrong=3 then print "Sleeping in class doesn't seem to be working for you, eh?"

wait key

NumberOfEndings = 3
dim array$(NumberOfEndings,7)

for Ending = 1 to NumberOfEndings
   for EndingAnswer = 1 to 7
      read array$(Ending,EndingAnswer)
   next EndingAnswer
next Ending

REM        1s    2s   3s    1p      2p    3p
data "er", "o", "es", "e", "emos", "en", "en"
data "ar", "o", "as", "a", "amos", "an", "an"
data "ir", "o", "es", "e", "imos", "en", "en"

REM You have an array that has 7 elements for each ending:
REM The first element is what you check the
REM last two characters of your word against.
REM Elements 2 to 7 contain the correct answer for each condition.

chain$="aZeRt YuIoP"
lon=LEN(chain$)

PRINT "chain$ =";chain$
PRINT "lon =";lon;" characters"
PRINT
PRINT

PRINT "UPPER$(chain$) =";UPPER$(chain$)
PRINT "LOWER$(chain$) =";LOWER$(chain$)

PRINT "LEFT$(chain$,2) =";LEFT$(chain$,2)
PRINT "RIGHT$(chain$,3) =";RIGHT$(chain$,3)
PRINT
PRINT "XTRCT(chain$,0,3) =";XTRCT(chain$,0,3)
PRINT "XTRCT(chain$,3,8) =";XTRCT(chain$,3,8)
PRINT "XTRCT(chain$,8,lon) =";XTRCT(chain$,8,lon)

PRINT : PRINT

FOR i=1 TO lon
   scan$=MID$(chain$,i)
   IF scan$=" "
      PRINT scan$;"   <--- space!"
   ELSE
      PRINT scan$
   ENDIF
NEXT i

WAIT KEY
END



FUNCTION XTRCT(phrase$,debu,fin)
`la fonction extrait un mot d'une chaine de caractere
   lenght=LEN(phrase$)
   IF debu<1
      debu=0
   ELSE
      IF debu>lenght THEN debu=lenght
   ENDIF
   
   IF fin>lenght
      fin=lenght
   ELSE
      IF fin<1 THEN fin=0
   ENDIF
   
   IF fin>debu
      mot$=RIGHT$(LEFT$(phrase$,fin),fin-debu)
   ELSE
      mot$=RIGHT$(LEFT$(phrase$,debu),debu-fin)
   ENDIF
ENDFUNCTION mot$

randomize timer()

REM Put all the words into an array.
REM You will have much more than 10, correct?
NumberOfWords = 10
dim Words$(NumberOfWords)
for EachWord = 1 to NumberOfWords
    read Words$(EachWord)
next EachWord

REM Your words. Obviously you will have many different words.
REM The NumberOfWords variable above must match how many words you have.
data "comer","comer","comer","comer","comer"
data "comer","comer","comer","comer","comer"

REM Put the conditions in an array, you can choose one at random.
Dim Condition$(6)
for Condition = 1 to 6
    read Condition$(Condition)
next Condition

REM Your possible conditions.
data "1S","2S","3S","1P","2P","3P"

REM Put the endings for each condition in an array.
NumberOfEndings = 3
dim PossibleEndings$(NumberOfEndings,7)

for Ending = 1 to NumberOfEndings
   for Condition = 1 to 7
      read PossibleEndings$(Ending,Condition)
   next Condition
next Ending

REM   1s   2s    3s   1p      2p    3p   ending
data "o", "es", "e", "emos", "en", "en", "er"
data "o", "as", "a", "amos", "an", "an", "ar"
data "o", "es", "e", "imos", "en", "en", "ir"

REM You now have an array that has 7 elements for each ending:
REM Elements 1 - 6 are the proper endings for each condition.
REM Element 7 is the 2 letter ending to check agains each word.

REM Your main loop.
do
    
REM Choose a random word.
REM (The -1 and +1 are there simply because I don't
REM like using element zero for numbered lists of things.)
Question$ = Words$(rnd(NumberOfWords-1)+1)

REM Choose a random condition for the question.
REM This is a random number between zero and 5.
REM Adding one gives a range of one to six.
Condition = rnd(5)+1

REM Construct the correct answer for this word
REM and condition, by replacing the last two
REM characters of the word with the proper ending

REM Determine the last two characters.
LastTwo$=right$(Question$,2)

REM Find the correct ending for the condition.
select LastTwo$
    case "er":
        CorrectEnding$=PossibleEndings$(1,Condition)
    endcase
    
    case "ar":
        CorrectEnding$ = PossibleEndings$(2,Condition)
    endcase
    
    case "ir":
        CorrectEnding$ = PossibleEndings$(3,Condition)
    endcase
    
    case default:
    endcase
endselect
    
REM Construct the correct answer.
Answer$ = left$(Question$, len(Question$)-2) + CorrectEnding$

REM Ask the question.
cls
ink rgb(200,200,200),0
print " "
print " What is the ";Condition$(Condition);" form of ";
ink rgb(255,255,255),0
print Question$;
ink rgb(200,200,200),0
input "? ",StudentAnswer$

REM Convert to lower case for an exact match.
StudentAnswer$ = lower$(StudentAnswer$)

REM Check the answer and keep score.
if StudentAnswer$ = Answer$
    ink rgb(0,255,0),0
    print " Correct!"
    inc CorrectAnswers
else
    ink rgb(255,0,0),0
    print " Wrong!"
    ink rgb(200,200,200),0
    print " The correct answer is ";
    ink rgb(255,255,255),0
    print Answer$
    inc WrongAnswers
endif

REM Display the score and pause until a key is pressed.
ink rgb(200,200,200),0
print " Your score so far is ";CorrectAnswers;" correct and ";WrongAnswers;" wrong"
print " (press any key to continue)"
wait key
loop

` Make all text overwrite previous text (for backspace)
set text opaque

` Make Answer$ equal the output of the function GetInput()
Answer$=GetInput()

` Show the answer
text 0,40,"Answer = "+Answer$
wait key
` Always end before the first function so it doesn't produce an error
end


` Get the users input
function GetInput()

 ` Clear the buffer (so no previous keys are added to the string)
 clear entry buffer
 ` Create a timer for backspace
 tim=timer()
 ` Create a timer for a countdown  m=minutes   s=seconds
 m=5:s=0
 ` Create a timer for the countdown
 CountTimer=timer()

 do

   ` Check if the seconds are less than 10 (use :0 if it is or : if not)
   if s<10 then b$=":0" else b$=":"
   ` Show the timer
   text 0,20,"Time Left: "+str$(m)+b$+str$(s)
  
   ` Check if a second has gone by
   if timer()>CountTimer+1000
    ` Decrease the seconds
    dec s
    ` Check if the seconds are up
    if s=-1
     ` Decrease the minutes
     dec m
     ` Set the seconds to 59
     s=59
     ` Check if the minutes are up
     if m=-1
      ` Show that the time is up
      text 0,20,"Times Up!           "
      ` Leave the function with whatever the user entered
      exitfunction Com$
     endif
    
    endif
    ` Reset the countdown timer
    CountTimer=timer()
   endif
   
   ` Show the prompt and user input
   text 0,0,"User Input: " + Com$+"| "
   ` Get the keys typed by the user and clear the buffer again
   a$=entry$(1):clear entry buffer

   ` Check for backspace (the timer is so the text doesn't delete too quickly)
   if keystate(14) and timer()>tim+100
    ` Remove last character from the input string
    Com$ = left$(Com$,len(Com$)-1)
    ` Clear a$ and reset timer
    a$="":tim=timer()
   endif

   ` Check for enter key and leave the DO/LOOP
   if keystate(28) then exit

   ` Check if a$ is more than nothing and Com$ is no more than 30 characters
   if a$<>"" and len(Com$)<30
    ` Add a$ to Com$
    Com$ = Com$ + a$
   endif

 loop

` End the function with whatever the user entered
endfunction Com$

Your code here.

print "This is colored."

randomize timer()

REM Put all the words into an array.
REM You will have much more than 10, correct?
NumberOfWords = 10
dim Words$(NumberOfWords)
for EachWord = 1 to NumberOfWords
    read Words$(EachWord)
next EachWord

REM Your words. Obviously you will have many different words.
REM The NumberOfWords variable above must match how many words you have.
data "comer","hablar","decidir","preguntar","saltar"
data "correr","vomitar","recibir","partir","decidir"

REM Put the conditions in an array, you can choose one at random.
Dim Condition$(6)
for Condition = 1 to 6
    read Condition$(Condition)
next Condition

REM Your possible conditions.
data "1S","2S","3S","1P","2P","3P"

REM Put the endings for each condition in an array.
NumberOfEndings = 3
dim PossibleEndings$(NumberOfEndings,7)

for Ending = 1 to NumberOfEndings
   for Condition = 1 to 7
      read PossibleEndings$(Ending,Condition)
   next Condition
next Ending

REM   1s   2s    3s   1p      2p    3p   ending
data "o", "es", "e", "emos", "en", "en", "er"
data "o", "as", "a", "amos", "an", "an", "ar"
data "o", "es", "e", "imos", "en", "en", "ir"

REM You now have an array that has 7 elements for each ending:
REM Elements 1 - 6 are the proper endings for each condition.
REM Element 7 is the 2 letter ending to check agains each word.

REM Your main loop.
do
    
REM Choose a random word.
REM (The -1 and +1 are there simply because I don't
REM like using element zero for numbered lists of things.)
Question$ = Words$(rnd(NumberOfWords-1)+1)

REM Choose a random condition for the question.
REM This is a random number between zero and 5.
REM Adding one gives a range of one to six.
Condition = rnd(5)+1

REM Construct the correct answer for this word
REM and condition, by replacing the last two
REM characters of the word with the proper ending

REM Determine the last two characters.
LastTwo$=right$(Question$,2)

REM Find the correct ending for the condition.
select LastTwo$
    case "er":
        CorrectEnding$=PossibleEndings$(1,Condition)
    endcase
    
    case "ar":
        CorrectEnding$ = PossibleEndings$(2,Condition)
    endcase
    
    case "ir":
        CorrectEnding$ = PossibleEndings$(3,Condition)
    endcase
    
    case default:
    endcase
endselect
    
REM Construct the correct answer.
Answer$ = left$(Question$, len(Question$)-2) + CorrectEnding$

REM Store the timer.
StartTime = timer()

REM Ask the question.
cls
ink rgb(200,200,200),0
print " "
print " What is the ";Condition$(Condition);" form of ";
ink rgb(255,255,255),0
print Question$;
ink rgb(200,200,200),0
input "? ",StudentAnswer$

REM Find how long the user took to answer.
TimeTook# = (timer()-StartTime)/1000.0

REM Convert to lower case for an exact match.
StudentAnswer$ = lower$(StudentAnswer$)

REM Check the answer and keep score.
if StudentAnswer$ = Answer$
    ink rgb(0,255,0),0
    print " Correct!"
    inc CorrectAnswers
else
    ink rgb(255,0,0),0
    print " Wrong!"
    ink rgb(200,200,200),0
    print " The correct answer is ";
    ink rgb(255,255,255),0
    print Answer$
    inc WrongAnswers
endif

REM Display how long it took to answer.
ink rgb(200,200,200),0
print " You took ";str$(TimeTook#,2);" seconds to answer this question."
REM Display the score and pause until a key is pressed.
ink rgb(200,200,200),0
print " Your score so far is ";CorrectAnswers;" correct and ";WrongAnswers;" wrong"
print " (press any key to continue)"
wait key
loop

T= timer()
do
  time=(timer()-T)/1000
  if time=300 then end
loop

TimeLeft = 300000-(timer()-StartTime)

repeat
T=((timer()-timer())/1000)+1
seconds=60-T
S=seconds
if S=0 then S=00
if seconds=60 then S=00
if seconds<0 then seconds=60;M=M-1
cls
INK RGB(255,255,0),RGB(0,0,255)
set text size 50
print "Score: "; score;"    Time: ";M;":";S
print "Health: ";health
if bonus=0 then bonus=1
print "Multiplier: "; bonus
set text size 18
ink rgb(200,200,200),0
print " "
print " What is the ";Condition$(Condition);" form of ";
ink rgb(255,255,255),0
print Question$;
ink rgb(200,200,200),0
StudentAnswer$=entry$(1)
print "? ";   StudentAnswer$
until returnkey()=1

T=((timer()-timer())/1000)+1

` Make random number picking more random
randomize timer()

for y=0 to 480 step 20
 for x=0 to 640 step 20 

  ` Pick a random number ( 0 or 1 )
  a=rnd(1)

  ` Check if a is zero
  if a=0
   text x,y,"X"
   else
   text x,y,"O"
  endif

 next x
next y

wait key

` Added this for testing by itself
dim Condition$(0)

` Set a start time (must be out of the loop)
StartTime=timer()

repeat

 ` Time equals the current timer() minus StartTime divided by 1000 adding 1
 T=((timer()-StartTime)/1000)+1

 seconds=60-T
 S=seconds

 if S=0 then S=00
 if seconds=60 then S=00
 if seconds<0 then seconds=60:M=M-1

 cls
 INK RGB(255,255,0),RGB(0,0,255)
 set text size 50
 print "Score: "; score;"    Time: ";M;":";S
 print "Health: ";health
 ` Added this for testing
 print "Seconds Gone By = ";T
 if bonus=0 then bonus=1
 print "Multiplier: "; bonus

 set text size 18
 ink rgb(200,200,200),0
 print " "
 print " What is the ";Condition$(Condition);" form of ";

 ink rgb(255,255,255),0
 print Question$;
 ink rgb(200,200,200),0

 StudentAnswer$=entry$(1)
 print "? ";   StudentAnswer$

until returnkey()=1

randomize timer()

`load sounds

load music "dominating.mp3",4;load music "unstoppable.mp3",3;load music "excellent.mp3",1;load music "impressive.mp3",2;load music "hurt1.mp3",5;load music "hurt2.mp3",6;load music "hurt3.mp3",7;load music "hurt4.mp3",8;load music "hurt5.mp3",9
load music "bg1.mp3",90
load music "diemortal.mp3",20;load music "neverwin.mp3",21;load music "yourbest.mp3",22;
load music "epicfail.mp3",30;load music "pathetic.mp3",31



NumberOfWords = 10
dim Words$(NumberOfWords)
for EachWord = 1 to NumberOfWords
    read Words$(EachWord)
next EachWord

`words go here, quantity must match NumberofWords$
data "comer","hablar","decidir","preguntar","saltar","correr","vomitar","recibir","partir","decidir"

`Person and Number placed in array
Dim Condition$(6)
for Condition = 1 to 6
    read Condition$(Condition)
next Condition

`data set for number and person
data "1S","2S","3S","1P","2P","3P"

`verb endings placed in array
NumberOfEndings = 3
dim PossibleEndings$(NumberOfEndings,7)

for Ending = 1 to NumberOfEndings
   for Condition = 1 to 7
      read PossibleEndings$(Ending,Condition)
   next Condition
next Ending

REM   1s   2s    3s   1p      2p    3p   ending
data "o", "es", "e", "emos", "en", "en", "er"
data "o", "as", "a", "amos", "an", "an", "ar"
data "o", "es", "e", "imos", "en", "en", "ir"

`set health and score to starting value, TIMER STILL NEEDS FIXED
_1:
health=100
score=0
T=timer()
loop music 90
M=4

`MAIN LOOP
do
clear entry buffer
`set ink and countdown,print HUD
INK RGB(255,255,0),RGB(0,0,255)
seconds=60-L
   if seconds=60 then S=0
   if seconds<0 then seconds=60
   if S<0 then S=59:dec M
cls
set text size 50
   if S<10 then print "Score: "; score; "    Time: ";M;":0";S
   if S>=10 then print "Score: "; score;"    Time: ";M;":";S
print "Health: ";health
   if bonus=0 then bonus=1
print "Multiplier: "; bonus

`pick a word
Question$ = Words$(rnd(NumberOfWords-1)+1)

`choose number and person
Condition = rnd(5)+1

`subtract ending from question word
LastTwo$=right$(Question$,2)

`attach new ending to question word
select LastTwo$
    case "er":
        CorrectEnding$=PossibleEndings$(1,Condition)
    endcase

    case "ar":
        CorrectEnding$ = PossibleEndings$(2,Condition)
    endcase

    case "ir":
        CorrectEnding$ = PossibleEndings$(3,Condition)
    endcase

    case default:
    endcase
endselect

set text size 18
`make right answer
Answer$ = left$(Question$, len(Question$)-2) + CorrectEnding$

`print question
repeat
L=((timer()-T)/1000)+1
seconds=60-L
S=seconds
   if seconds=60 then S=0
   if seconds<0 then seconds=60;
   if S<0 then S=59:dec M
cls
INK RGB(255,255,0),RGB(0,0,255)
set text size 50
   if S<10 then print "Score: "; score; "    Time: ";M;":0";S
   if S>=10 then print "Score: "; score;"    Time: ";M;":";S
print "Health: ";health
   if bonus=0 then bonus=1
print "Multiplier: "; bonus
set text size 18
ink rgb(200,200,200),0
print " "
print " What is the ";Condition$(Condition);" form of ";
ink rgb(255,255,255),0
print Question$;
ink rgb(200,200,200),0
StudentAnswer$=entry$(1)
print "? ";   StudentAnswer$
until returnkey()=1



`lock in lower case for comparison of input and answer, DO THIS MORE OFTEN!
StudentAnswer$ = lower$(StudentAnswer$)

`check answer,print new HUD
   if StudentAnswer$ = Answer$
INK RGB(255,255,0),RGB(0,0,255)
cls
set text size 50
print "Score: "; score
print "Health: "; health
   if bonus=0 then bonus=1
print "Multiplier: "; bonus
set text size 18
    `show correct screen and play correct music,advance multipliers
    ink rgb(0,255,0),0
    print " Correct!"
    inc CorrectAnswers
    inc correct
    if correct<5 then play music rnd(1)+1
    if correct=5 and multiplier<=7 then multiplier=multiplier+1;correct=0;play music 4;wait 4000
    if multiplier>7 then multiplier=multiplier^2; play music 3
    if multiplier>5 then bonus=(1 + (multiplier^2))^2
    if multiplier<6 then bonus=1 + (multiplier^2)
    score=score + (500*bonus)

`print wrong screen, update multipliers, play wrong animation and music
else
    ink rgb(255,0,0),0
    print " Wrong!"
    ink rgb(200,200,200),0
    print " The correct answer is ";
    ink rgb(255,255,255),0
    print Answer$
    inc WrongAnswers
    bonus=1
    multiplier=0
    correct=0
    health=health-rnd(52)+1
    if health<0 then health=0
    play music rnd(4)+5
    wait 1000
    play music rnd(2)+20;
  for N=1 to 3
      load image "1.jpg",1; sprite 1,399,299,1;set sprite 1,1,1;wait 200;delete sprite 1
      load image "2.jpg",2; sprite 2,399,299,2;set sprite 1,1,1;wait 200;delete sprite 2
      load image "3.jpg",3; sprite 3,399,299,3;set sprite 1,1,1;wait 200;delete sprite 3
  next N
    wait 200
endif

`print HUD, wait until key is pressed for next question
ink rgb(200,200,200),0
print " Your score so far is ";CorrectAnswers;" correct and ";WrongAnswers;" wrong"
wait 2000
stop music 1;stop music 2;stop music 3;stop music 4;stop music 5;stop music 6;stop music 7;stop music 8;stop music 9;stop music 20;stop music 21;stop music 22
set text size 50
cls
print "Score: "; score
print "Health: ";health
print "Multiplier: 1";
if health=0 then wait 2000; stop music 90; wait 1500;load image "gameover.jpg",5; sprite 5,50,50,5;set sprite 1,1,1;paste sprite 5,50,50;play music rnd(1)+30;wait 5000;goto _1

`set win condition and display wingame
if score<0
   cls
   stop music 90
   set text size 18;ink rgb(100,0,0),0;print "(*FH(F)SG)(ES)(*)#_I+K )(*UJF J)( U)F(U) FJOSAFPW#__I)(u90u09u)F)()J JMPFOJWEA(8*&YRF(HNno)"
   print "MThd    
 
àMTrk   + ÿ   Demo2.MID ÿT`     ÿQ   p< ÿX‡í ÿ/ MTrk   ï ÿ"
   print "RM50 Drums ÿHihat ™,A‰,7™,-‰,YK™,,‰,^L™,,‰,TL™,S‰,%™,,‰,JL™,,‰,UL™,-‰,aK™,S‰,%™,,‰,?L™,,‰,JL™,-‰,YK™,N‰,*™,,‰,!L™.K‰.}-™,,‰,eL™,O‰,!™,-‰,]K™,-‰,FK™. ,,‰.[(,$™,6‰,,B™,,‰,aL™,Q‰,m'™,b‰,u™,+‰,>M™,-‰,cK™,,‰,KL™,K‰,|-™,,‰,OL™, .,‰,KL™,@‰,B.h™,E‰,|3™,+‰,-M™,;‰,t=™,,‰,FL™,`‰,™, ,   ‰,O ,Oo™,.‰,jJ™,3‰,aE™,e‰,™,,‰,L™,+‰,jM™,,‰,:L™,J‰,}&™.,‰.hL™,-‰,gK™,K‰,v-™,,‰,9L™,,‰,iL™,,‰,0L™,U‰,|#™,,‰,#L™,,‰,dL™,,‰,ML™,T‰,$™,-‰,AK™,-‰,fK™,,‰,<L™,S‰,x%™,y,‰,L™.-‰.pC™,A‰,7™,-‰,YK™,,‰,^L™,,‰,TL™,S‰,%™,,‰,JL™,,‰,UL™,-‰,aK™,S‰,%™,,‰,?L™,,‰,JL™,-‰,YK™,N‰,*™,,‰,!L™.K‰.}-™,,‰,eL™,O‰,!™,-‰,]K™,-‰,FK™. ,,‰.[(,$™,6‰,,B™,,‰,aL™,Q‰,m'™,b‰,u™,+‰,>M™,-‰,cK™,,‰,KL™,K‰,|-™,,‰,OL™, .,‰,KL™,@‰,B.h™,E‰,|3™,+‰,-M™,;‰,t=™,,‰,FL™,`‰,™, ,   ‰,O ,Oo™,.‰,jJ™,3‰,aE™,e‰,™,,‰,L™,+‰,jM™,,‰,:L™,J‰,}&™.,‰.hL™,-‰,gK™,K‰,v-™,,‰,9L™,,‰,iL™,,‰,0L™,U‰,|#™,,‰,#L™,,‰,dL™,,‰,ML™,T‰,$™,-‰,AK™,-‰,fK™,,‰,<L™,S‰,x%™,y,‰,L™.-‰.pC™,A‰,i™,-‰,Y™,,‰,^~™,,‰,T™,S‰,O™,,‰,J™,,‰,Uv™,-‰,a™,S‰,T™,,‰,?™,,‰,J~™,-‰,Y™,N‰,U™,,‰,!™.K‰.}Z™,,‰,e™,O‰,™,-‰,]v™,-‰,F ™. ,,‰.[(,Q™,6‰,,™,,‰,aq™,I,‰,m ,m™,+‰,> ™,-‰,cx™,,‰,K™,K‰,|]™,,‰,O&™, .,‰,Kt™,7‰.h   ,B™,E‰,|e™,+‰,- ™,;‰,to™,,‰,F™,`‰,B™, ,   ‰,O ,OE™,.‰,jt™,3‰,a™,e‰,B™,,‰,™,+‰,j™,,‰,:™,J‰,}$™.,‰.hy™,-‰,g™,K‰,v\™,,‰,9™,,‰,iw™,,‰,0!™,U‰,|P™,,‰,#'™,,‰,dq™,,‰,M™,T‰,N™,-‰,A™,-‰,fx™,,‰,<™,S‰,xU™,y,‰,&™.-‰.p>™,A‰,i™,-‰,Y™,,‰,^~™,,‰,T™,S‰,O™,,‰,J™,,‰,Uv™,-‰,a™,S‰,T™,,‰,?™,,‰,J~™,-‰,Y™,N‰,U™,,‰,!™.K‰.}Z™,,‰,e™,O‰,™,-‰,]v™,-‰,F ™. ,,‰.[(,Q™,6‰,,™,,‰,aq™,I,‰,m ,m™,+‰,> ™,-‰,cx™,,‰,K™,K‰,|]™,,‰,O&™, .,‰,Kt™,7‰.h   ,B™,E‰,|e™,+‰,- ™,;‰,to™,,‰,F™,`‰,B™, ,   ‰,O ,OE™,.‰,jt™,3‰,a™,e‰,B™,,‰,™,+‰,j™,,‰,:™,J‰,}$™.,‰.hy™,-‰,g™,K‰,v\™,,‰,9™,,‰,iw™,,‰,0!™,U‰,|P™,,‰,#'™,,‰,dq™,,‰,M™,T‰,N™,-‰,A™,-‰,fx™,,‰,<™,S‰,xU™,y,‰,&™.-‰.p>™,A‰,8™,-‰,YK™,,‰,^L™,,‰,TL™,S‰,%™,,‰,JL™,,‰,UL™,-‰,aI™,S‰,'™,,‰,?K™,,‰,JM™,-‰,YK™,N‰,*™,,‰,!L™.K‰.}-™,,‰,eJ™,O‰,#™,-‰,]K™,-‰,FJ™. ,,‰.[(,%™,6‰,,A™,,‰,aM™,Q‰,m%™,b‰,u™,+‰,>L™,-‰,cL™,,‰,KL™,K‰,|-™,,‰,OK™, .,‰,KM™,@‰,B.h™,E‰,|4™,+‰,-M™,;‰,t=™,,‰,FL™,`‰,™, ,   ‰,O ,Oo™,.‰,jJ™,3‰,aC™,e‰,™,,‰,K™,+‰,jN™,,‰,:L™,J‰,}&™.,‰.hL™,-‰,gI™,K‰,v/™,,‰,9L™,,‰,iL™,,‰,0K™,U‰,|$™,,‰,#K™,,‰,dM™,,‰,MJ™,T‰,&™,-‰,AJ™,-‰,fL™,,‰,<L™,S‰,x%™,y,‰,K™.-‰.pC™,A‰,8™,-‰,YK™,,‰,^L™,,‰,TL™,S‰,%™,,‰,JL™,,‰,UL™,-‰,aI™,S‰,'™,,‰,?K™,,‰,JM™,-‰,YK™,N‰,*™,,‰,!L™.K‰.}-™,,‰,eJ™,O‰,#™,-‰,]K™,-‰,FJ™. ,,‰.[(,%™,6‰,,A™,,‰,aM™,Q‰,m%™,b‰,u™,+‰,>L™,-‰,cL™,,‰,KL™,K‰,|-™,,‰,OK™, .,‰,KM™,@‰,B.h™,E‰,|4™,+‰,-M™,;‰,t=™,,‰,FL™,`‰,™, ,   ‰,O ,Oo™,.‰,jJ™,3‰,aC™,e‰,™,,‰,K™,+‰,jN™,,‰,:L™,J‰,}&™.,‰.hL™,-‰,gI™,K‰,v/™,,‰,9L™,,‰,iL™,,‰,0K™,U‰,|$™,,‰,#K™,,‰,dM™,,‰,MJ™,T‰,&™,-‰,AJ™,-‰,fL™,,‰,<L™,S‰,x%™,y,‰,K™.-‰.pC™,A‰,8™,-‰,YK™,,‰,^L™,,‰,TL™,S‰,%™,,‰,JL™,,‰,UL™,-‰,aI™,S‰,'™,,‰,?K™,,‰,JM™,-‰,YK™,N‰,*™,,‰,!L™.K‰.}-™,,‰,eJ™,O‰,#™,-‰,]K™,-‰,FJ™. ,,‰.[(,%™,6‰,,A™,,‰,aM™,Q‰,m%™,b‰,u™,+‰,>L™,-‰,cL™,,‰,KL™,K‰,|-™,,‰,OK™, .,‰,KM™,@‰,B.h™,E‰,|Q™,+‰,-4™,;‰,tc™,,‰,F)™,`‰,1™, ,   ‰,O ,OV™,.‰,j`™,3‰,a*™,e‰,.™,,‰,1™,+‰,jk™,,‰,:0™,J‰,}$™.,‰.he™,-‰,g2™,K‰,vH™,,‰,9.™,,‰,ie™,,‰,03™,U‰,|<™,,‰,#;™,,‰,d]™,,‰,M1™,T‰,:™,-‰,A2™,-‰,fg™,,‰,<0™,S‰,xA™,y,‰,:™.-‰.p>™,A‰,U™,-‰,Y2™,,‰,^r™,,‰,T)™,S‰,>™,,‰,J3™,,‰,Ub™,-‰,a0™,S‰,@™,,‰,?1™,,‰,Jj™,-‰,Y/™,N‰,A™,,‰,!3™.K‰.}F™,,‰,e3™,O‰,™,-‰,]d™,-‰,F2™. ,,‰.[(,=™,6‰,,1™,,‰,a]™,Q‰,m™,b‰,u,™,+‰,>4™,-‰,cg™,,‰,K0™,K‰,|I™,,‰,O:™, .,‰,K`™,@‰,B.h™,E‰,|Q™,+‰,-4™,;‰,tc™,,‰,F)™,`‰,1™, ,   ‰,O ,OV™,.‰,j`™,3‰,a*™,e‰,.™,,‰,1™,+‰,jk™,,‰,:0™,J‰,}$™.,‰.he™,-‰,g2™,K‰,vH™,,‰,9.™,,‰,ie™,,‰,03™,U‰,|<™,,‰,#;™,,‰,d]™,,‰,M1™,T‰,:™,-‰,A2™,-‰,fg™,,‰,<0™,S‰,xA™,y,‰,:™.-‰.p>™,A‰,_™,-‰,Y(™,,‰,^|™,,‰,T™,S‰,H™,,‰,J)™,,‰,Ul™,-‰,a&™,S‰,J™,,‰,?'™,,‰,Jt™,-‰,Y%™,N‰,K™,,‰,!)™.K‰.}P™,,‰,e)™,O‰,™,-‰,]n™,-‰,F(™. ,,‰.[(,G™,6‰,,'™,,‰,ag™,Q‰,m™,b‰,u6™,+‰,>*™,-‰,cq™,,‰,K&™,K‰,|S™,,‰,O0™, .,‰,Kj™,@‰,B
.h™,E‰,|[™,+‰,-*™,;‰,tm™,,‰,F™,`‰,;™, ,   ‰,O ,OL™,.‰,jj™,3‰,a ™,e‰,8™,,‰,'™,+‰,ju™,,‰,:&™,J‰,}$™.,‰.ho™,-‰,g(™,K‰,vR™,,‰,9$™,,‰,io™,,‰,0)™,U‰,|F™,,‰,#1™,,‰,dg™,,‰,M'™,T‰,D™,-‰,A(™,-‰,fq™,,‰,<&™,S‰,xK™,y,‰,0™.-‰.p>™,A‰,_™,-‰,Y(™,,‰,^|™,,‰,T™,S‰,H™,,‰,J)™,,‰,Ul™,-‰,a&™,S‰,J™,,‰,?'™,,‰,Jt™,-‰,Y%™,N‰,K™,,‰,!)™.K‰.}P™,,‰,e)™,O‰,™,-‰,]n™,-‰,F(™. ,,‰.[(,G™,6‰,,'™,,‰,ag™,Q‰,m™,b‰,u6™,+‰,>*™,-‰,cq™,,‰,K&™,K‰,|S™,,‰,O0™, .,‰,Kj™,@‰,B
.h™,E‰,|[™,+‰,-*™,;‰,tm™,,‰,F™,`‰,;™, ,   ‰,O ,OL™,.‰,jj™,3‰,a ™,e‰,8™,,‰,™,+‰,ju™,,‰,:&™,J‰,}$™.,‰.ho™,-‰,g(™,K‰,vR™,,‰,9$™,,‰,io™,,‰,0)™,U‰,|F™,,‰,#1™,,‰,dg™,,‰,M'™,T‰,D™,-‰,A(™,-‰,fq™,,‰,<&™,S‰,xK™,y,‰,0™.-‰.p>™,A‰,8™,-‰,YK™,,‰,^L™,,‰,TL™,S‰,%™,,‰,JL™,,‰,UL™,-‰,aI™,S‰,'™,,‰,?K™,,‰,JM™,-‰,YK™,N‰,*™,,‰,!L™.K‰.}-™,,‰,eJ™,O‰,#™,-‰,]K™,-‰,FJ™. ,,‰.[(,%™,6‰,,A™,,‰,aM™,Q‰,m%™,b‰,u™,+‰,>L™,-‰,cL™,,‰,KL™,K‰,|-™,,‰,OK™, .,‰,KM™,@‰,B.h™,E‰,|3™,+‰,-M™,;‰,t=™,,‰,FL™,`‰,™, ,   ‰,O ,Oo™,.‰,jJ™,3‰,aE™,e‰,™,,‰,L™,+‰,jM™,,‰,:L™,J‰,}&™.,‰.hL™,-‰,gK™,K‰,v-™,,‰,9L™,,‰,iL™,,‰,0L™,U‰,|#™,,‰,#L™,,‰,dL™,,‰,ML™,T‰,$™,-‰,AK™,-‰,fK™,,‰,<L™,S‰,x%™,y,‰,L™.-‰.pC™,A‰,7™,-‰,YK™,,‰,^L™,,‰,TL™,S‰,%™,,‰,JL™,,‰,UL™,-‰,aK™,S‰,%™,,‰,?L™,,‰,JL™,-‰,YK™,N‰,*™,,‰,!L™.K‰.}-™,,‰,eL™,O‰,!™,-‰,]K™,-‰,FK™. ,,‰.[(,$™,6‰,,B™,,‰,aL™,Q‰,m'™,b‰,u™,+‰,>M™,-‰,cK™,,‰,KL™,K‰,|-™,,‰,OL™, .,‰,KL™,@‰,B.h™,E‰,|3™,+‰,-M™,;‰,t=™,,‰,FL™,`‰,™, ,   ‰,O ,Oo™,.‰,jJ™,3‰,aE™,e‰,™,,‰,L™,+‰,jM™,,‰,:L™,J‰,}&™.,‰.hL™,-‰,gK™,K‰,v-™,,‰,9L™,,‰,iL™,,‰,0L™,U‰,|#™,,‰,#L™,,‰,dL™,,‰,ML™,T‰,$™,-‰,AK™,-‰,fK™,,‰,<L™,S‰,x%™,y,‰,L™.-‰.pC™,A‰,i™,-‰,Y™,,‰,^L™,,‰,TL™,S‰,%™,,‰,JL™,,‰,UL™,-‰,aI™,S‰,'™,,‰,?K™,,‰,JM™,-‰,YK™,N‰,*™,,‰,!L™.K‰.}-™,,‰,eJ™,O‰,#™,-‰,]K™,-‰,FJ™. ,,‰.[(,%™,6‰,,A™,,‰,aM™,Q‰,m%™,b‰,u™,+‰,>L™,-‰,cL™,,‰,KL™,K‰,|-™,,‰,OK™, .,‰,KM™,@‰,B.h™,E‰,|4™,+‰,-M™,;‰,t=™,,‰,FL™,`‰,™, ,   ‰,O ,Oo™,.‰,jJ™,3‰,aC™,e‰,™,,‰,K™,+‰,jN™,,‰,:L™,J‰,}&™.,‰.hL™,-‰,gI™,K‰,v/™,,‰,9L™,,‰,iL™,,‰,0K™,U‰,|$™,,‰,#K™,,‰,dM™,,‰,MJ™,T‰,&™,-‰,AJ™,-‰,fL™,,‰,<L™,S‰,x%™,y,‰,K™.-‰.pC™,A‰,8™,-‰,YK™,,‰,^L™,,‰,TL™,S‰,%™,,‰,JL™,,‰,UL™,-‰,aI™,S‰,'™,,‰,?K™,,‰,JM™,-‰,YK™,N‰,*™,,‰,!L™.K‰.}-™,,‰,eJ™,O‰,#™,-‰,]K™,-‰,FJ™. ,,‰.[(,%™,6‰,,A™,,‰,aM™,Q‰,m%™,b‰,u™,+‰,>L™,-‰,cL™,,‰,KL™,K‰,|-™,,‰,OK™, .,‰,KM™,@‰,B.h™,E‰,|4™,+‰,-M™,;‰,t=™,,‰,FL™,`‰,™, ,   ‰,O ,Oo™,.‰,jJ™,3‰,aC™,e‰,™,,‰,K™,+‰,jN™,,‰,:L™,J‰,}&™.,‰.hL™,-‰,gI™,K‰,v/™,,‰,9L™,,‰,iL™,,‰,0K™,U‰,|$™,,‰,#K™,,‰,dM™,,‰,MJ™,T‰,&™,-‰,AJ™,-‰,fL™,,‰,<L™,S‰,x%™,y,‰,K™.-‰.pC™,A‰,8™,-‰,YK™,,‰,^L™,,‰,TL™,S‰,%™,,‰,JL™,,‰,UL™,-‰,aI™,S‰,'™,,‰,?K™,,‰,JM™,-‰,YK™,N‰,*™,,‰,!L™.K‰.}-™,,‰,eJ™,O‰,#™,-‰,]K™,-‰,FJ™. ,,‰.[(,%™,6‰,,A™,,‰,aM™,Q‰,m%™,b‰,u™,+‰,>L™,-‰,cL™,,‰,KL™,K‰,|-™,,‰,OK™, .,‰,KM™,@‰,B.h™,E‰,|4™,+‰,-M™,;‰,t=™,,‰,FL™,`‰,™, ,   ‰,O ,Oo™,.‰,jJ™,3‰,aC™,e‰,™,,‰,K™,+‰,jN™,,‰,:L™,J‰,}&™.,‰.hL™,-‰,gI™,K‰,v/™,,‰,9L™,,‰,iL™,,‰,0K™,U‰,|$™,,‰,#K™,,‰,dM™,,‰,MJ™,T‰,&™,-‰,AJ™,-‰,fL™,,‰,<L™,S‰,x%™,y,‰,K™.-‰.pC™,A‰,8™,-‰,YK™,,‰,^L™,,‰,TL™,S‰,%™,,‰,JL™,,‰,UL™,-‰,aI™,S‰,'™,,‰,?K™,,‰,JM™,-‰,YK™,N‰,*™,,‰,!L™.K‰.}-™,,‰,eJ™,O‰,#™,-‰,]K™,-‰,FJ™. ,,‰.[(,%™,6‰,,A™,,‰,aM™,Q‰,m%™,b‰,u™,+‰,>L™,-‰,cL™,,‰,KL™,K‰,|-™,,‰,OK™, .,‰,KM™,@‰,B.h™,E‰,|4™,+‰,-M™,;‰,t=™,,‰,FL™,`‰,™, ,   ‰,O ,Oo™,.‰,jJ™,3‰,aC™,e‰,™,,‰,K™,+‰,jN™,,‰,:L™,J‰,}&™.,‰.hL™,-‰,gI™,K‰,v/™,,‰,9L™,,‰,iL™,,‰,0K™,U‰,|$™,,‰,#K™,,‰,dM™,,‰,MJ™,T‰,&™,-‰,AJ™,-‰,fL™,,‰,<L™,S‰,x%™,y,‰,K™.-‰.pC™,A‰,8™,-‰,YK™,,‰,^L™,,‰,TL™,S‰,%™,,‰,JL™,,‰,UL™,-‰,aI™,S‰,'™,,‰,?K™,,‰,JM™,-‰,YK™,N‰,*™,,‰,!L™.K‰.}-™,,‰,eJ™,O‰,#™,-‰,]K™,-‰,FJ™. ,,‰.[(,%™,6‰,,A™,,‰,aM™,Q‰,m%™,b‰,u™,+‰,>L™,-‰,cL™,,‰,KL™,K‰,|-™,,‰,OK™, .,‰,KM™,@‰,B.hÿ/ MTrk"
   print " ÿ"
   print " ™#,‰#mD™#K‰#t%™(J‰(u‚™#E‰#w‚#™#b‰#{™(K‰(q-™#=‰#i‚+™#I‰#d'™#6‰#i:™(V‰(|™(,‰(*L™#I‰#z‚™#
‰#zo™(‰(|Q™#+‰#gM™(+‰(^M™#:‰#y6™#h‰#p™(V‰(p™(,‰(:L™#=‰#|‚+™#T‰#{™(K‰(vƒ™#_‰#v™#,‰#iD™(J‰(w&™(,‰(#L™#B‰#{‚&™#w‰#my™(6‰(|‚2™(,‰(RL™#e‰#y™#2‰#h>™(@‰(w‚(™#I‰#y‚™#V‰#~™(6‰(aB™#5‰#f‚3™#J‰#w&™#,‰#ZD™(K‰(t‚™#D‰#u‚$™#s‰#u}™(O‰(t)™#:‰#p>™(,‰(/L™(;‰(o=™#6‰#m:™#J‰#[&™(Z‰(w‚™#<‰#u‚,™#Z‰#m™(G‰(p1™#3‰#i‚5™#@‰#r0™#O‰#m!™(N‰(w‚™#A‰#p‚'™#X‰#w™(G‰(r1™#6‰#n‚2™#,‰#mI™#K‰#t(™(J‰(u‚H™#E‰#wt™#b‰#{™(K‰(qX™#=‰#i~™#I‰#d$™#6‰#i:™(V‰(|™(,‰(*q™#I‰#zm™#
‰#zo™(‰(|[™#+‰#gu™(+‰(^ ™#:‰#y;™#h‰#p™(V‰(p™(,‰(:v™#=‰#||™#T‰#{™(K‰(vƒ™#_‰#v™#,‰#iD™(J‰(w.™(,‰(#q™#B‰#{t™#w‰#my™(6‰(|‚d™(,‰(R™#e‰#y™#2‰#hA™(@‰(w‚R™#I‰#yp™#V‰#~™(6‰(am™#5‰#f‚™#J‰#w#™#,‰#ZD™(K‰(t‚J™#D‰#ur™#s‰#u}™(O‰(tY™#:‰#p™(,‰(/t™(;‰(o™#6‰#m?™#J‰#[)™(Z‰(w‚8™#<‰#u}™#Z‰#m™(G‰(p\™#3‰#i‚™#@‰#r-™#O‰#m!™(N‰(w‚G™#A‰#pu™#X‰#w™(G‰(ra™#6‰#n‚™#,‰#mE™#K‰#t%™(J‰(u‚™#E‰#w‚™#b‰#{™(K‰(q-™#=‰#i‚)™#I‰#d)™#6‰#i9™(V‰(|™(,‰(*M™#I‰#z‚™#
‰#zp™(‰(|P™#+‰#gN™(+‰(^L™#:‰#y7™#h‰#p™(V‰(p™(,‰(:L™#=‰#|‚*™#T‰#{™(K‰(vƒ™#_‰#v™#,‰#iC™(J‰(w&™(,‰(#M™#B‰#{‚%™#w‰#mz™(6‰(|‚2™(,‰(RK™#e‰#y™#2‰#h>™(@‰(w‚(™#I‰#y‚™#V‰#~™(6‰(aB™#5‰#f‚1™#J‰#w(™#,‰#ZC™(K‰(t‚™#D‰#u‚#™#s‰#u~™(O‰(t)™#:‰#p=™(,‰(/M™(;‰(o<™#6‰#m;™#J‰#[&™(Z‰(w‚™#<‰#u‚+™#Z‰#m™(G‰(p1™#3‰#i‚3™#@‰#r2™#O‰#m ™(N‰(w‚™#A‰#p‚&™#X‰#w™(G‰(r1™#6‰#n‚1™#,‰#mE™#K‰#t%™(J‰(u‚™#E‰#w‚™#b‰#{™(K‰(q-™#=‰#i‚)™#I‰#d)™#6‰#i9™(V‰(|™(,‰(*M™#I‰#z‚™#
‰#zp™(‰(|P™#+‰#gN™(+‰(^L™#:‰#y;™#h‰#p™(V‰(p™(,‰(:b™#=‰#|‚™#T‰#{™(K‰(vƒ™#_‰#v™#,‰#iD™(J‰(w.™(,‰(#]™#B‰#{‚™#w‰#my™(6‰(|‚P™(,‰(R3™#e‰#y™#2‰#hA™(@‰(w‚>™#I‰#y‚™#V‰#~™(6‰(aY™#5‰#f‚™#J‰#w#™#,‰#ZD™(K‰(t‚6™#D‰#u‚™#s‰#u}™(O‰(tE™#:‰#p,™(,‰(/`™(;‰(o$™#6‰#m?™#J‰#[)™(Z‰(w‚$™#<‰#u‚™#Z‰#m™(G‰(pH™#3‰#i‚™#@‰#r-™#O‰#m!™(N‰(w‚3™#A‰#p‚   ™#X‰#w™(G‰(rM™#6‰#n‚™#,‰#mI™#K‰#t(™(J‰(u‚>™#E‰#w~™#b‰#{™(K‰(qN™#=‰#i‚™#I‰#d$™#6‰#i:™(V‰(|™(,‰(*g™#I‰#zw™#
‰#zo™(‰(|[™#+‰#gk™(+‰(^*™#:‰#y;™#h‰#p™(V‰(p™(,‰(:l™#=‰#|‚™#T‰#{™(K‰(vƒ™#_‰#v™#,‰#iD™(J‰(w.™(,‰(#g™#B‰#{~™#w‰#my™(6‰(|‚Z™(,‰(R)™#e‰#y™#2‰#hA™(@‰(w‚H™#I‰#yz™#V‰#~™(6‰(ac™#5‰#f‚™#J‰#wŽ3™#6‰#m?™#J‰#[)™(Z‰(w‚.™#<‰#u‚™#Z‰#m™(G‰(pR™#3‰#i‚™#@‰#r-™#O‰#m!™(N‰(w‚=™#A‰#p™#X‰#w™(G‰(rW™#6‰#n‚™#,‰#mE™#K‰#t%™(J‰(u‚™#E‰#w‚™#b‰#{™(K‰(q-™#=‰#i‚)™#I‰#d)™#6‰#i9™(V‰(|™(,‰(*M™#I‰#z‚™#
‰#zp™(‰(|P™#+‰#gN™(+‰(^L™#:‰#y6™#h‰#p™(V‰(p™(,‰(:L™#=‰#|‚+™#T‰#{™(K‰(vƒ™#_‰#v™#,‰#iD™(J‰(w&™(,‰(#L™#B‰#{‚&™#w‰#my™(6‰(|‚2™(,‰(RL™#e‰#y™#2‰#h>™(@‰(w‚(™#I‰#y‚™#V‰#~™(6‰(aB™#5‰#f‚3™#J‰#w&™#,‰#ZD™(K‰(t‚™#D‰#u‚$™#s‰#u}™(O‰(t)™#:‰#p>™(,‰(/L™(;‰(o=™#6‰#m:™#J‰#[&™(Z‰(w‚™#<‰#u‚,™#Z‰#m™(G‰(p1™#3‰#i‚5™#@‰#r0™#O‰#m!™(N‰(w‚™#A‰#p‚'™#X‰#w™(G‰(r1™#6‰#n‚2™#,‰#mE™#K‰#t%™(J‰(u‚™#E‰#w‚™#b‰#{™(K‰(q-™#=‰#i‚)™#I‰#d)™#6‰#i9™(V‰(|™(,‰(*M™#I‰#z‚™#
‰#zp™(‰(|P™#+‰#gN™(+‰(^L™#:‰#y7™#h‰#p™(V‰(p™(,‰(:L™#=‰#|‚*™#T‰#{™(K‰(vƒ™#_‰#v™#,‰#iC™(J‰(w&™(,‰(#M™#B‰#{‚%™#w‰#mz™(6‰(|‚2™(,‰(RK™#e‰#y™#2‰#h>™(@‰(w‚(™#I‰#y‚™#V‰#~™(6‰(aB™#5‰#f‚1™#J‰#w(™#,‰#ZC™(K‰(t‚™#D‰#u‚#™#s‰#u~™(O‰(t)™#:‰#p=™(,‰(/M™(;‰(o<™#6‰#m;™#J‰#[&™(Z‰(w‚™#<‰#u‚+™#Z‰#m™(G‰(p1™#3‰#i‚3™#@‰#r2™#O‰#m ™(N‰(w‚™#A‰#p‚&™#X‰#w™(G‰(r1™#6‰#n‚1™#,‰#mE™#K‰#t%™(J‰(u‚™#E‰#w‚™#b‰#{™(K‰(q-™#=‰#i‚)™#I‰#d)™#6‰#i9™(V‰(|™(,‰(*M™#I‰#z‚™#
‰#zp™(‰(|P™#+‰#gN™(+‰(^L™#:‰#y7™#h‰#p™(V‰(p™(,‰(:L™#=‰#|‚*™#T‰#{™(K‰(vƒ™#_‰#v™#,‰#iC™(J‰(w&™(,‰(#M™#B‰#{‚%™#w‰#mz™(6‰(|‚2™(,‰(RK™#e‰#y™#2‰#h>™(@‰(w‚(™#I‰#y‚™#V‰#~™(6‰(aB™#5‰#f‚1™#J‰#w(™#,‰#ZC™(K‰(t‚™#D‰#u‚#™#s‰#u~™(O‰(t)™#:‰#p=™(,‰(/M™(;‰(oË<ÿ/ MTrk  
A ÿ"
   print "RM50 Drums ÿ"
   print "Wood BlockÒ@™K&‰K4R™K K$‰KB KBT™K K&‰K: K:R™K K$‰KH KHT™K K&‰KY KY‚¨™K&‰K4™K&‰K,™K$‰KB™K&‰K:™K&‰KP™K$‰KH™K&‰Kc™K&‰KY   ™K&‰Kvë}™K&‰K4™K&‰K,™K$‰KB™K&‰K:™K&‰KP™K$‰KH™K&‰Kc™K&‰KY   ™K&‰Kv¯}™K&‰K4™K&‰K,™K$‰KB™K&‰K:™K&‰KP™K$‰KH™K&‰Kc™K&‰KY   ™K&‰KvÆ5ÿ/ MTrk   ÿSUPER JV ÿBassž ‘((]M‘+q+_w‘-E-O3‘/t/ht‘-^-`ƒ‘+x-+eH-W(‘((]M‘+l+c|‘-E-U3‘/^/i‚"
   print "-_-bƒ
‘+x-
+`l-a‘((fX‘+q+_w‘-E-O3‘/t/ht‘-^-`ƒ‘+x-+eH-W(‘((]M‘+l+c|‘-E-U3‘/^/i‚"
   print "-_-bƒ
‘+x-
+`l-a‘((`S‘+h+_‚ ‘-=-L;‘/Z/`‚‘-[-\ƒ‘+x-+_L-Y)‘( (jh‘+j+_~‘-5-CC‘/Y/k‚‘-[-`ƒ‘+x+g ‘-D-_4‘(}(h‚‘+d+`U‘-O-KS‘/g/cR‘-i-`‚w‘+t+h1‘-D-\‘("
   print "(\‚‘+Y+gl‘-:-Dc‘//v&‘-~-^‚l‘+.+]=‘(-(h‚;‘(I(kI‘(w(nB‘*k*c*‘*‚;(*mi(s‚]‘(D(uQ‘(o(mG‘*q*h'‘*‚=(*ka(m‚j‘(&(kl‘(l(kM‘*‚*h‘*‚;$*j$w‚<‘$M$rH‘$n$|H‘#F#zR‘#‚=(#y(h‚4‘(L(iF‘(e(eT‘*j*k+‘*‚;("
   print "*k}(m‚V‘(U(p@‘(g(pO‘*R*fF‘*‚=(*j&(m‚6‘(P(f*‘(8(o‘*f*j‘*‚ *l2‘$$‚G‘$8$xC‘$$xP‘#G#u8‘#‚K#w‘((tm‘+c+ho‘-q-Q‘/Y/jz‘-S-jƒ‘+g+_‘-G-R‘((kx‘++kL‘-/-\R/c‘-n-h‚r‘+y+g‘-D-Z ‘( (h‘+m+je‘-/-YR/e~‘-V-cƒ‘+|-+fE-_‘({(d‚‘+m+ed‘-D-EG‘/_/Yv‘-e-b‚{‘+h+^$‘-Q-T‘( (j‘+v+a\‘-D-RH‘/q/ab‘-]-Rƒ‘+w+]‘-T-Z‘(d(d‚‘+o+ab‘---7^‘/i/[l‘-`-^ƒ ‘+o+`‘-D-R ‘(s(_‚‘++cC‘-G-HE‘/r/^a‘-n-]ƒ
‘+r+_"
   print "-_-W‘(m(j‚‘+}+kT‘-F-WE‘/`/Zu‘-m-c‚s‘+Z+T2‘-I-Q‘((o‚O‘(q(o"
   print "(v(kW‘*H*j9‘*‚O(*h(e‚8‘(](k$‘(+(m‘*U*f/‘*‚Q(*f(g‚D‘(/(pO‘((mG‘*\*h%‘*‚O$*j$‚I‘$‚$w|‘$($w‘#j#y‘#‚Q(#zz(l‚R‘(8(rF‘(r(r[‘*`*m!‘*‚O(*b(m‚R‘(=(pD‘((u1‘*=*fG‘*‚Q(+*jg(p‚V‘(=(tK‘(v(xM‘*]*e.‘*‚E$*ez${‚N‘$$rr‘$ ${@‘#$#zj‘#‚G(#|e(p‚g‘(!(fg‘(q(vR‘*L*e?‘*‚2*k‘((r‚Z‘(7(oT‘(m(uS‘*X*Z6‘*‚*k0‘((u‚X‘(!(qg‘(b(va‘*N*a=‘*‚E$*b$u‚8‘$5$tV‘$l$zT‘##qu‘#‚G(#y~(m‚"
   print "+e+jV‘-;-c]‘/x/_K‘--e‚Y‘+y+e‘-U(1-[U(c‚‘+b+ak‘--T‘/x/^H‘-m-b‚}‘+m+a)‘-U(-R|(g~‘+x+kZ‘-/"
   print "-Z /bI‘--X‚^‘+r+b"
   print "-d(-VT(X‚‘+r+g_‘-_-U,‘//YP‘--Y‚L‘-]-U/‘+d(+P[(T‚c‘(:(i.‘((lb‘*`*k‘*‚g*r
‘(M(j‚‘(‚"
   print "(p^‘((cX‘*8*i0‘*‚h(*k(o‚G‘(V(j‘(
(ig‘*K*h‘*‚h$*m($_‚0‘$[$]"
   print "$|$yl‘#P#m‘#‚(#|@‘(*(l‚6‘(U(k‘(w(jq‘*d*f‘*‚F*h‘((o‚D‘(W(o‘(&(oB‘*q*pw‘*‚>*n*‘(-(j‚6‘(I(p1‘(t(W_‘*e*k‘*‚O*h‘$$z‚C‘$f$~‘$${N‘#F#{9‘#‚Q(#y(m‚D‘(8(pB‘(r(oa‘*j*j‘*‚R*m ‘($(k‚=‘(V(f%‘({(jZ‘*‚ *h‘*‚H*o   ‘((l‚J‘(3(mG‘(j(ri‘*‚   *mt‘*‚%*h-‘$$|‚C‘$*$zQ‘$g$~n‘#:#yE‘#‚D#|"
   print "(&(k‚=‘(G(j3‘(~(hU‘*}*k ‘*‚A*j‘( (n‚a‘(R(j)‘((hO‘*v*f   ‘*‚M*k‘(}(d‚f‘(8(hB‘(d(ko‘*i*f‘*‚4*j‘$&$t‚;‘$8$yC‘$}$uX‘#N#z1‘#‚J#|‘((h‚H‘(C(h7‘(g(ml‘*p*V"
   print "*‚D*a‘( (Z‚a‘(7(`D‘(g(On‘*f*\‘*‚A*W‘(2(a‚1‘(?(b;‘(w([\‘*e*^‘*‚@*W‘$$l‚C‘$$r\‘$r$rc‘#/#bP‘#‚C#yËÿ/"
   wait 3000
   print "ERROR"
   wait 500
   print "ERROR"
   wait 500
   print "ERROR"
   wait 500
   print "ERROR"
   wait 500
   cls
   print "ERROR: EXTREMELY AWESOME PLAYER DETECTED! THIS PROGRAM IS UNABLE TO HANDLE HOW AWESOME THE USER IS AND MUST REBOOT."
   wait 3000
   print "SYSTEM RESTART IN: 5"
   wait 1000
   print "SYSTEM RESTART IN: 4"
   wait 1000
   print "SYSTEM RESTART IN: 3"
   wait 1000
   print "SYSTEM RESTART IN: 2"
   wait 1000
   print "SYSTEM RESTART IN: 1"
   wait 1000
   goto _1:
 endif
loop 

` Set a start time (must be out of the loop)
StartTime=timer()
` Set starting minutes
M=4
do

 ` Calculate seconds gone by
 T=((timer()-StartTime)/1000)+1

 ` Calculate seconds
 S=60-T
  
 ` Check if the seconds are up
 if S<0
  ` Decrease Minutes
  dec M
  ` Reset StartTime
  StartTime=timer()
 endif

 cls
 INK RGB(255,255,0),RGB(0,0,255)
 set text size 50
 if S<10 then print "Score: "; score; "    Time: ";M;":0";S
 if S>=10 then print "Score: "; score;"    Time: ";M;":";S

 ` Added this for testing
 print ""
 print "Seconds Gone By = "+str$(T)
 print "Minutes = "+str$(M)
 print "Seconds = "+str$(S)

loop

 ` Calculate seconds
 S=60-T
  
 ` Check if the seconds are up
 if S<0
  ` Decrease Minutes
  dec M
  
  ` Check if the minutes are up
  if M<0
   print "Times up!"
   wait key
   end
  endif
  
  ` Reset StartTime
  StartTime=timer()
 endif