Help for this page

Select Code to Download


  1. or download this
    open (MYFILE, '>>$file');
print MYFILE "$\@_[0]:$\@_[1]:$\@_[2]:$\@_[3]:$\@_[4]:$\@_[5]:$\@_[6]:
+$\@_[7]:$\@_[8]:$\@_[9]:$\@_[10]:$\@_[11]:$\@_[12]:$\@_[13]:$\@_[14]"
+;
close (MYFILE);
  2. or download this
    open (MYFILE, '>>$file');
 print MYFILE join(":",@tapes_to_eject);
close (MYFILE);