DESCTXT22  R o b o t ' s   n a m e :   Q u e e n b o t  
  
 W h a t   i t   l o o k s   l i k e :   I t   s l i g h t l y   r e s e m b l e s   a   r e c o r d   p l a y e r .  
  
 W h a t   i t   c a n   d o :   P l a y   t h e   f i r s t   p h a s e   o f   " B o h e m i a n   R h a p s o d y "  
  
  
 PROGTXT1T  // Queenbot.rcx                                                                                    

#source RIS1.5
#target RCX

main [
  output motorA on 1
  output motorB on 2
  output motorC on 3
  forward [motorA motorB motorC]
  power [motorA motorB motorC] 7
  start progTask
  wait 10
  forever []
]

task progTask [
  power motorA 5
  on motorA for 10
  on motorB
  power motorB 0
  repeat 3 [
    tone 523 for 30
    wait 40
  ]
  tone 523 for 50
  wait 60
  tone 523 for 60
  wait 100
  tone 494 for 30
  wait 40
  tone 494 for 30
  wait 40
  tone 523 for 30
  wait 40
  tone 494 for 40
  tone 440 for 20
  tone 392 for 60
  wait 150
  tone 587 for 30
  wait 40
  tone 587 for 30
  wait 40
  tone 587 for 30
  wait 40
  tone 660 for 50
  wait 60
  tone 587 for 50
  wait 60
  tone 294 for 30
  wait 40
  tone 294 for 30
  wait 40
  tone 392 for 30
  wait 40
  tone 392 for 30
  wait 40
  tone 440 for 30
  wait 40
  tone 392 for 20
  wait 30
  tone 370 for 20
  wait 30
  tone 392 for 80
  wait 200
  repeat 3 [
    tone 523 for 30
    wait 40
  ]
  tone 523 for 50
  wait 80
  repeat 4 [
    tone 523 for 30
    wait 40
  ]
  tone 587 for 40
  wait 50
  tone 392 for 40
  wait 50
  tone 785 for 100
  wait 150
  repeat 3 [
    tone 660 for 30
    wait 40
  ]
  tone 660 for 40
  wait 50
  tone 660 for 50
  wait 60
  repeat 2 [
    tone 587 for 30
    wait 40
  ]
  tone 660 for 40
  wait 50
  tone 587 for 20
  tone 523 for 20
  tone 440 for 50
  wait 100
  tone 440 for 20
  wait 30
  tone 440 for 20
  wait 30
  repeat 2 [
    tone 587 for 20
    wait 30
    tone 587 for 20
    wait 30
    tone 554 for 30
    wait 50
    tone 523 for 20
    wait 30
    tone 523 for 20
    wait 30
    tone 554 for 30
    wait 50
  ]
  repeat 4 [
    tone 660 for 20
    wait 30
  ]
  tone 587 for 40
  wait 50
  tone 785 for 40
  wait 50
  repeat 4 [
    tone 523 for 20
    wait 30
  ]
  tone 587 for 30
  wait 40
  tone 494 for 30
  tone 392 for 30
  tone 785 for 100
  wait 150
  tone 494 for 40
  wait 50
  repeat 2 [
    tone 523 for 30
    tone 392 for 30
    tone 523 for 30
    wait 100
    tone 660 for 30
    tone 880 for 50
    tone 785 for 60
    wait 160
  ]
  tone 660 for 20
  wait 30
  tone 660 for 100
  wait 150
  tone 587 for 20
  wait 30
  tone 587 for 40
  tone 660 for 10
  wait 60
  tone 660 for 50
  wait 100
  tone 660 for 30
  wait 40
  tone 660 for 30
  wait 40
  tone 699 for 30
  tone 785 for 30
  tone 699 for 30
  tone 660 for 30
  tone 587 for 30
  wait 170
  tone 587 for 30
  tone 660 for 30
  wait 70
  tone 699 for 30
  tone 785 for 30
  tone 699 for 30
  tone 660 for 30
  tone 587 for 30
  wait 200
  tone 660 for 20
  wait 30
  tone 660 for 100
  wait 150
  tone 523 for 30
  wait 40
  tone 660 for 30
  wait 40
  tone 988 for 40
  wait 50
  tone 880 for 30
  wait 40
  tone 880 for 50
  wait 70
  tone 880 for 30
  wait 40
  repeat 5 [
    tone 1047 for 30
    wait 40
  ]
  tone 880 for 30
  wait 40
  tone 660 for 50
  wait 60
  tone 587 for 20
  wait 30
  tone 587 for 50
  wait 100
  tone 880 for 30
  wait 40
  tone 880 for 50
  wait 70
  tone 785 for 30
  wait 40
  tone 880 for 100
  wait 120
  repeat 2 [
    tone 880 for 30
    wait 40
  ]
  tone 932 for 30
  wait 40
  tone 1047 for 30
  wait 40
  tone 932 for 30
  wait 40
  tone 880 for 30
  wait 40
  tone 785 for 50
  wait 70
  tone 622 for 30
  wait 40
  tone 587 for 30
  wait 40
  repeat 2 [
    tone 880 for 30
    wait 40
  ]
  tone 988 for 20
  wait 30
  repeat 3 [
    tone 988 for 30
    wait 40
  ]
  tone 1047 for 20
  wait 30
  tone 988 for 30
  tone 932 for 40
  wait 80
  tone 932 for 20
  tone 1047 for 20
  tone 1245 for 50
  wait 100
  tone 988 for 20
  tone 1047 for 20
  tone 832 for 50
  wait 100
  repeat 2 [
    tone 622 for 20
    wait 30
  ]
  repeat 3 [
    tone 699 for 30
    wait 40
  ]
  tone 785 for 20
  tone 699 for 30
  tone 622 for 50
  power motorC 7
  on motorC for 10
]

