'===========================================================================
' 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