| proper format! 
 
	 
	
		| Author | Message |   
		| bigman9 
 
 
 
 
 | 
			
				|  Posted: Tue Jan 18, 2011 7:00 pm    Post subject: proper format! |  |   
				| 
 |  
				| Hey so im a noob when it comes to formattting, 
 i finished my trivia game. can someone put like the proper indents and all that in?
 THANKS:)
 
 
 
 
 var name:string
 var number:real:= 0
 var key: string (1)
 var score:real:=0
 var restart: string (1)
 loop
 %Home screen
 Draw.FillBox(0,0,maxx,maxy,41)
 put "WELCOME TO THE ERGONOMICS TRIVIA QUIZ"
 put "Click any key to begin the game"
 getch (key)
 cls
 
 %Enter name screen
 Draw.FillBox(0,0,maxx,maxy,40)
 put "Please enter your name"
 get name
 put "Hello ",name
 delay (1000)
 put "Please select the correct answer for the following questions. Answer by hitting the correct number."
 put "click any key to continue"
 getch (key)
 cls
 %Question number 1
 Draw.FillBox(0,0,maxx,maxy,9)
 put "Q1 - How far away should a computer monitor be from your face?"
 put "1) 45cm-65cm"
 put "2) 100cm"
 put "3) 20cm-40cm"
 put "4) 200cm-210cm"
 get number
 if number = 1 then
 put "Good job, that is the correct answer!"
 put "Hit any key to continue to the next question"
 score:= score+1
 end if
 if number>1 then
 put "sorry, that is not correct"
 put "A computer screen should be 45cm - 65cm away from the face (answer 1)"
 put "Hit any key to continue to the next question"
 end if
 getch (key)
 cls
 
 %Question number 2
 Draw.FillBox(0,0,maxx,maxy,40)
 put "Q2 - The temperature of an ergonomically should be between _________________ Celsius."
 put "1) 40 - 50 degrees"
 put "2) 0 - 25 degrees"
 put "3) 15 - 22 degrees"
 put "4) 22 - 35 degrees"
 get number
 if number = 3 then
 put "Nice one! You know your stuff"
 put "Hit any key to continue to the next question"
 score:= score+1
 end if
 if number>3 then
 put "sorry, that is the wrong answer"
 put "The temperature in a workplace should be kept between 15 - 22 degrees Celsius"
 put "Hit any key to continue to the next question"
 end if
 if number<3 then
 put "sorry, that is the wrong answer"
 put "The temperature in a workplace should be kept between 15 - 22 degrees Celsius"
 put "Hit any key to continue to the next question"
 end if
 getch (key)
 cls
 
 %Question number 3
 Draw.FillBox(0,0,maxx,maxy,9)
 put "Q3 - True or False? A proper chair should allow the elbows to be bent at a 45 degree angle"
 put "1) True"
 put "2) False"
 get number
 if number = 2 then
 put "Good job, that is the correct answer"
 put "Hit any key to continue to the next question"
 score:=score + 1
 end if
 if number = 1 then
 put "Did your finger slip?"
 put "The correct answer is false. A chair should allow the elbows to bemd on a 90 degree angle"
 put "Hit any key to continue to the next question"
 end if
 getch (key)
 cls
 
 %Question number 4
 Draw.FillBox(0,0,maxx,maxy,40)
 put "Q4 - The most appropiate definition for Musculoskeletal Injuries (MSI) is..."
 put "1) A nerve in the wrist is used over and over with the wrong equipment and cannot function properly"
 put "2) When a worker hurts a part of their body"
 put "3) A sports injusry that is related to the joints in the knee"
 put "4) When a worker performs the same task over and over, causing stress on nerves, muscles, tendons, or other parts of the body"
 get number
 if number = 4 then
 put "Bingo, that is the right answer"
 put "Hit any key to continue to the next question"
 score:=score + 1
 end if
 if number< 4 then
 put "Sorry, you anwered this one wrong"
 put "The correct answer is number 4. MSI is when a worker performs the same task over and over, causing stress on nerves, muscles, tendons, or other parts of the body"
 put "Hit any key to continue to the next question"
 end if
 getch (key)
 cls
 
 %Question number 5
 Draw.FillBox(0,0,maxx,maxy,9)
 put "Q5 - CTS is short for..."
 put "1) Computer Training Software"
 put "2) Carpal Tunnel Syndrome"
 put "3) Computer Task System"
 put "4) Carpal Tendon Syndrome"
 get number
 if number = 2 then
 put "That is the correct answer!"
 put "Hit any key to continue to the next question"
 score:= score+1
 end if
 if number>2 then
 put "sorry, that is not correct"
 put "CTS is short for Carpal Tunnel Syndrome"
 put "Hit any key to continue to the next question"
 end if
 if number<2 then
 put "sorry, that is not correct"
 put "CTS is short for Carpal Tunnel Syndrome"
 put "Hit any key to continue to the next question"
 end if
 getch (key)
 cls
 
 %Question number 6
 Draw.FillBox(0,0,maxx,maxy,40)
 put "Q6 - Yes or no? Eyestrain, headaches, tiredness, allerguies, back aches and poor circulation are all results of a poorlu designed ergonomic workplace"
 put "1) Yes"
 put "2) No"
 get number
 if number = 1 then
 put "Right on!"
 put "Hit any key to continue to the next question"
 score:=score + 1
 end if
 if number = 2 then
 put "Hit the books, because that is the wrong answer?"
 put "The correct answer is True. A poorly designed ergonomic workplace can lead to many illnesses"
 put "Hit any key to continue to the next question"
 end if
 getch (key)
 cls
 
 %Question number 7
 Draw.FillBox(0,0,maxx,maxy,9)
 put "Q7 - How many legs should a chair have if it follows the rules of ergonomics"
 put "1) Five"
 put "2) Two"
 put "3) Three"
 put "4) Four"
 get number
 if number = 1 then
 put "Good job, that is the correct answer!"
 put "Hit any key to continue to the next question"
 score:= score+1
 end if
 if number>1 then
 put "sorry, that is not correct"
 put "A chair should have five legs for extera stability"
 put "Hit any key to continue to the next question"
 end if
 getch (key)
 cls
 
 %Queastion number 8
 Draw.FillBox(0,0,maxx,maxy,40)
 put "Q8 - A desk should have ________________ to be safe and proper"
 put "1) Sufficient leg room"
 put "2) Smooth edges and rounder corners"
 put "3) Medium and light coloured finishes"
 put "4) All the above"
 get number
 if number = 4 then
 put "Correct!"
 put "Hit any key to continue to the next question"
 score:=score + 1
 end if
 if number< 4 then
 put "Nope, that is incorrect"
 put "The right answer is number 4. All the above answers are important for having a safe desk area"
 put "Hit any key to continue to the next question"
 end if
 getch (key)
 cls
 
 %Question number 9
 Draw.FillBox(0,0,maxx,maxy,9)
 put "Q9 - True or False? Plently of air circulation is important in a workplace"
 put "1) True"
 put "2) False"
 get number
 if number = 1 then
 put "Good job, you're almost finished"
 put "Hit any key to continue to the next question"
 score:=score + 1
 end if
 if number = 2 then
 put "Close, but no cigar!"
 put "The correct answer is true. Plently of air circulation is important in a workplace"
 put "Hit any key to continue to the next question"
 end if
 getch (key)
 cls
 
 %Question number 10
 Draw.FillBox(0,0,maxx,maxy,40)
 put "Q10 - What is the best definition of Ergonomics?"
 put "1) The study of how the physical health of workers is affected by their workplace"
 put "2) The study of how people affect their work enviroment"
 put "3) How people hurt themselves while working"
 put "4) How much money a worker makes every year"
 get number
 if number = 1 then
 put "You finished the quiz on a good note!"
 put "Hit any key to see your final score"
 score:= score+1
 end if
 if number>1 then
 put "Sorry, i guess there is no happy ending for you"
 put "The correct choice was number 1. The definition of Ergonomics is the study of how the physical health of workers is affected by their workplace"
 put "Hit any key to zee your final score"
 end if
 getch (key)
 cls
 
 %Total score
 Draw.FillBox(0,0,maxx,maxy,9)
 put "You have completed the Ergonomics Trivia Quiz"
 put "Your final score is ",score
 if score = 1 then
 put "You scored 10%. Better luck next time!"
 end if
 if score = 2 then
 put "You scored 20. Better luck next time!%"
 end if
 if score = 3 then
 put "You scored 30%. Better luck next time!"
 end if
 if score = 4 then
 put "You scored 40%. Better luck next time!"
 end if
 if score = 5 then
 put "You scored 50%. Just passed!"
 end if
 if score = 6 then
 put "You scored 60%. Could use some improvement"
 end if
 if score = 7 then
 put "You scored 70%. Decent job!"
 end if
 if score = 8 then
 put "You scored 80%. Nice work!"
 end if
 if score = 9 then
 put "You scored 90%. You're a pro!"
 end if
 if score = 10 then
 put "You scored 100%. Unbelievable!!"
 end if
 
 %Return to main
 put ""
 put "Hit any key to return to the main menu"
 getch (restart)
 if restart = "y" then
 end if
 cls
 end loop
 |  
				|  |  |   
		|  |  |  
	  
		|  |   
		| Sponsor Sponsor
 
  
   |  |   
		|  |   
		| TokenHerbz 
 
  
 
 
 | 
			
				|  Posted: Tue Jan 18, 2011 7:15 pm    Post subject: RE:proper format! |  |   
				| 
 |  
				| just hit the indent button on your turing... |  
				|  |  |   
		|  |  |  
	  
		|  |   
		| Dragon20942 
 
  
 
 
 | 
			
				|  Posted: Tue Jan 18, 2011 7:29 pm    Post subject: RE:proper format! |  |   
				| 
 |  
				| F2 :/ thats what my teacher told me. |  
				|  |  |   
		|  |  |  
	  
		|  |   
		| bigman9 
 
 
 
 
 | 
			
				|  Posted: Tue Jan 18, 2011 7:40 pm    Post subject: RE:proper format! |  |   
				| 
 |  
				| thanks:) |  
				|  |  |   
		|  |  |  
	  
		|  |   
		| Dragon20942 
 
  
 
 
 | 
			
				|  Posted: Tue Jan 18, 2011 8:17 pm    Post subject: RE:proper format! |  |   
				| 
 |  
				| Actually, its the same thing as the indent, but I thought you meant tab, sorry. |  
				|  |  |   
		|  |  |  
	  
		|  |   
		|  |  
 |