home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 2: Collection B / 17Bit_Collection_B.iso / files / 1565.dms / in.adf / UTILITIES / DateDiary / ca < prev    next >
Encoding:
Text File  |  1987-06-04  |  683 b   |  26 lines
  1. failat 30
  2. :othercomms/fb
  3. :othercomms/spectype screen2
  4. :othercomms/button
  5. :othercomms/spectype screent
  6. :othercomms/button
  7. echo " "
  8. if not exists ram:appointments.dd
  9.  echo "You have not used datediary yet,"
  10.  echo "There is no point in running this program!!!"
  11.  echo "Left mouse!"
  12.  :othercomms/button
  13.  endcli
  14. endif
  15. if not exists df0:apps/
  16.   echo "Creating directory apps on df0:"
  17.   makedir df0:apps
  18.   echo " "
  19. endif
  20. echo "Directory is on df0: , copying appointments file into it."
  21. copy ram:appointments.dd df0:apps/
  22. echo "Done...  Use 'APPSRAM' to transfer appointments file to ram:, before"
  23. echo "editing..."
  24. echo "Press left mouse-button to return to Radbench1.4!"
  25. :othercomms/button
  26.