100 rem - example of sending an appleEvent from MacOS Chipmunk Basic 3.4.5
110 rem -  to clip2gif 0.7.2 from cbas 3.4.4
120 dim ss$(10)' array for event info
130 file2$ = "temp3.pict" : call filecheck(file2$)
140 '
160 rem clip2gif convert gif to PICT
180 app$ = "c2gf"
200 f$ = "ae>fss :foo2.gif"
220 ss$(0) = "aE>type<>fltp<PICT"
240 rem gosub 200
260 ss$(1) = "aE>fss <>kfil<"+file2$
280 ss$(2) = "aE>shor<>scle<100"
300 ss$(3) = "aE>bool<>Uniq<false"
320   ss$(4) = "aE>list<>Crop<4"
340   ss$(5) = "aE>shor<>Crop<0"
360   ss$(6) = "aE>shor<>Crop<0"
380   ss$(7) = "aE>shor<>Crop<48"
400   ss$(8) = "aE>shor<>Crop<48"
420 ss$(9) = "" : ss$ = ""
440 c$ = macfunction("doscript",app$,f$,"core","save",ss$)
460 if len(c$) > 0 then print "error = ";c$
470 '
480 call "wait",2
500 macfunction("doscript",app$,f$,"aevt","quit")
520 graphics 0 : graphics pict 0,0,"foo3.pict"
540 end
550 '
800 sub filecheck(file1$)
810 open file1$ for input as #1 else goto 850
820 close #1
830 return
850 open file1$ for data output as #2
860 close #2
880 return
990 end