[OpenBIOS] About the local variable patch

Programmingkid programmingkidx at gmail.com
Fri Nov 9 16:27:27 CET 2012


I ran Mark's local variable patch thru all these test and it past.

: myword { ; dog cat }
	4 -> dog
	33 -> cat
	cr ." dog = " dog .
	cr ." cat = " cat . 
;

4
: myword2 { hamster }
cr ." hamster = " hamster . 
;

8
: myword3 { car ; truck }
 5 -> truck
cr ." truck = " truck . 
cr ." car = " car . 
;

9 10
: myword4 { bevus butthead ; homer }
cr ." bevus = " bevus .
3 -> homer
cr ." homer = " homer .
cr ." butthead = " butthead . 
;

100 1 do I I 1 + myword4 loop

: myword6 { ; bart }
19 -> bart
cr ." bart in myword6 = " bart .
;

: myword5 { ; bart }
10 -> bart
myword6
cr ." bart in myword5 = " bart .
;

Good job :)



More information about the OpenBIOS mailing list