main
;;

global [cardvalue flagvalue x ]

to getcard
	loop [
		setflagvalue (bsr $181) 
		if flagvalue = 1 
		[
		setcardvalue ( cardvalue + (bsr $180) ) 
						
		stop
		 ]
	]
end


;------------------------------- main function ------------------------------;
;---------------------------------------------------------------------------------;

to main

	setcardvalue 0
	setflagvalue 0

	;; its blackjack ,so you get two cards no matter what
	;send cardvalue
	getcard
	;send cardvalue
	getcard
	;send cardvalue 
	
	loop [
	
		ifelse cardvalue < 17 
			[ wait 15 
			a, onfor 15 
			getcard 
			a, off ]
			[ b, onfor 15
			 b, off]
		]	
	main

end