home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 11 / 11.iso / m / m111 / 2.img / GRPCT2.EXE / CDEXAMP.TXT < prev    next >
Encoding:
Text File  |  1990-02-22  |  331 b   |  21 lines
  1.  
  2.     merge cdrom.txt
  3.     cdinit
  4.     if !len(@drive)
  5.         text "CD ROM Driver not loaded"
  6.         waitkey
  7.         exit
  8.     endif
  9.  
  10.     text "CD is drive "$@drive$":"$chr(10)$chr(10)
  11.  
  12.     cdstatus
  13.     prtstatus @0        ;print out drive status
  14.     cdplay 2 120        ;play track 2 for 120 seconds
  15.     waitkey            ;wait for a keypress
  16.     cdstop            ;stop playing
  17.  
  18.     exit
  19.  
  20.  
  21.