'===========================================================================
' Subject: HELLO WORLD DEMONSTRATION         Date: 09-24-98 (12:52)       
' Author:  James Jarvis                      Code: CB                     
' Origin:  jjarvis@foster-miller.com       Packet: CHIPMUNK.ABC
'===========================================================================
REM Hello program for Chipmunk Basic
REM by James Jarvis
REM jjarvis@foster-miller.com
cls
randomize timer : REM seed random number
gf = macfunction("GetFNum","times") : REM get the font number for the font  times
for x = 1 to 40
graphics 0 : REM open the graphics window
fx = rnd(500)
fy = rnd(310)
fs = 1+(rnd(24)+rnd(200))/2   : REM randomly determine a font size
graphics color rnd(100),rnd(100),rnd(100) 
moveto fx,fy 
graphics textsetup gf,fs,1 : REM ready the font at the current size 
graphics drawtext "Hello" : REM print a friendly message 
next x 
end