home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Intermedia 1998 January
/
inter1_98.iso
/
www
/
rozi
/
HSC.ZIP
/
R.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1997-01-17
|
195b
|
16 lines
Uses Crt,ADVHSC;
Var i,j:Byte;
{$F+}
{$L MUSIC.OBJ}
Procedure MUSICDATA; External;
{$F-}
Begin
ClrScr;
PLAYSONGMEMORY(@MUSICDATA);
toggleraster;
readkey;
STOPSONG;
CLEARMEM;
End.