home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 August / WPCAUG97.ISO / dxrs / artwaug.dxr / 00028_ARTPlayFILM.ls < prev    next >
Encoding:
Text File  |  1997-06-05  |  268 b   |  12 lines

  1. on ARTPlayFILM
  2.   global REFINTER, ADDKindList, ADDThisNum, addlist, addPallist, REFAddWatch, DriveLtr
  3.   set REFINTER to 1
  4.   updateStage()
  5.   if the machineType > 200 then
  6.     play movie DriveLtr & "ICV\THESAINT"
  7.   else
  8.     put "play Film"
  9.   end if
  10.   go("ADDBLACK")
  11. end
  12.