
    OPEN "COM1:9600,N,8,1"
    PLAY "o3 l8 e. l16 d l8 cdee l4e" 'Mary had a little lamb
    FOR X = 1 TO 10: READ A$: B$ = B$ + A$: NEXT
    CIRCLE (230, 130), 150, 9, -.6, -5.8
    OPEN FileName$ FOR ISAM RecType Table$ AS #1
    REDIM PRESERVE Array(-10 TO 32000) AS DOUBLE

