Sorry your browser is not supported!

`Set up an array to store the Jokes
dim Joke$(9)

`Read the Jokes in to the array
for k = 0 to 9
	read Joke$(k)
next k


Do
	`Display question and get user input
	input "Press keys 0 - 9 to read a 'Yo Momma' Joke : " , number$
	
	`Ensure that the user inputted a number between 0 and 9
	`To do it we convert the entry to its ASCII value and
	`subtract 48 from it ... because the ASCII value of
	`the number 0 is 48
	Entry = asc(number$) - 48
	if Entry > -1 and Entry < 10
		`They did so show the Joke
		print Joke$(Entry)
	else
		`The user didn't enter a valid number
		
		`Did they type 'END'
		`Convert input to uppercase so that we can trap
		`any entry like end, END or End
		if upper$(number$) = "END" 
			end
		else
			`They didn't type 'END'
			print "Command not recognised!"
		endif
	endif
	`Put a blank line between Joke and next question
	print
	
	`now update the screen
	sync
	
	` ... and finally repeat the whole thing by returning
	` to the DO command
loop

		

`Data statements to hold the Jokes.
`Most of them are on seperate lines to make it
`easier to read but the last two are on the
`same line to demostrate that it can be done like that.
data "yo momma so fat i went to go watch the never ending story and she walked by and i missed the whole thing"
data "yo momma so ugly she looked out the window and got aressted for mooning"
data "yo momma so stupid she got locked in a grocery store and died of starvation"
data "yo momma so stupid she tripped over a cordless phone"
data "yo momma so stupid she sat on the TV and watched the couch"
data "yo momma so fat i didnt just sit by her the whole class did" 
data "yo momma so fat she stood on the scale and it said wait limit exeded"
data "yo momma so nasty she gave me a virus"
data "yo momma so ugly she looked in the mirror and her own image flicked her off" , "yo momma so stupid because when someone said superbowl she went and got a spoon"

dim Joke$(9)

for k = 0 to 9
	read Joke$(k)
next k

Do
	input "Press keys 0 - 9 to read a 'Yo Momma' Joke : " , number$
	Entry = asc(number$) - 48
	if Entry > -1 and Entry < 10
		print Joke$(Entry)
	else
		if upper$(number$) = "END" 
			end
		else
			print "Command not recognised!"
		endif
	endif
	print
	sync
loop

data "yo momma so fat i went to go watch the never ending story and she walked by and i missed the whole thing"
data "yo momma so ugly she looked out the window and got aressted for mooning"
data "yo momma so stupid she got locked in a grocery store and died of starvation"
data "yo momma so stupid she tripped over a cordless phone"
data "yo momma so stupid she sat on the TV and watched the couch"
data "yo momma so fat i didnt just sit by her the whole class did" 
data "yo momma so fat she stood on the scale and it said wait limit exeded"
data "yo momma so nasty she gave me a virus"
data "yo momma so ugly she looked in the mirror and her own image flicked her off" , "yo momma so stupid because when someone said superbowl she went and got a spoon"