home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The C Users' Group Library 1994 August
/
wc-cdrom-cusersgrouplibrary-1994-08.iso
/
listings
/
v_02_04
/
2n04075b
< prev
next >
Wrap
Text File
|
1991-03-20
|
287b
|
9 lines
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