Sample TrueBasic Program by Zandrea Stone Using Cartesian Graphing

5 REM Created by Zandrea Stone 12/17/97
6 REM Kennedy Middle School
7 REM Albuquerque, New Mexico
10 set mode "graphics"
20 set window -32,32,-24,24
30 plot -6,15;-5,16;-4,17;-3,18;2,18;3,17;4,16;5,15;5,7;3,5;-1,5;-2,6;-3,7;-4,8;
35 plot -6,8;-6,15
40 plot 1,13;2,12;2,10;1,9;-1,9;-2,10;-2,12;-1,13;1,13
50 plot -6,15;-7,16;-8,17;-9,18;-14,18;-17,14;-17,7;-15,5;-10,5;-7,8;-6,8
60 plot -10,12;-10,10;-11,9;-13,9;-14,10;-14,12;-13,13;-11,13;-10,12
70 plot -1,5;-1,-1;-3,-3;-8,-3;-10,-1;-10,5 
80 plot 8,-5;3,-13;-12,-13;-17,-5;-13,-9;4,-9;8,-5
90 plot -19,-7;-15,-3 
100 plot 6,-3;10,-7
110 plot -17,7;-29,-4;-26,-3;-29,-6;-22,-13;-20,-13;-19,-14;-17,-14;-14,-17;5,-17;
120 plot 16,-7;13,-3;16,-4;5,7
130 flood 0,10
140 flood -12,10
150 flood 0,-10
155 flood 20,0
160 set color "red" 
170 flood 0,0
180 set color "yellow"
190 flood -5,0 
195 goto 999               
200 set color rnd*256
210 flood 20,0
220 goto 200
999 end