home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Yerk 3.6.6 / Module source / vol < prev   
Encoding:
Text File  |  1994-01-01  |  1006 b   |  22 lines  |  [TEXT/YERK]
  1. ame addr
  2.     pad 64 blanks getdirid: ffcb -> dirid
  3.     fFcb fcall PBHGetFInfo
  4.     0= IF true ELSE  false THEN
  5.     dirid setdirid: ffcb
  6.     13 pad count + 1+ c! ;
  7.  
  8. \ Print directory for current volume
  9. : Dir
  10.     0 -> curs  clear: fFcb Filecount  1+ 1
  11.     ." Directory for Volume: "
  12.     Pad count type cr
  13.     DO   I Getidxfile Pad count Type CR ?Pause LOOP
  14.     Filecount .  ."  Files." CR  1 -> curs  ;
  15.  
  16. : FlushVol
  17.     clear: fFcb
  18.     volinfo abort" GetVolInfo failed"
  19.     0 fFcb 12 + !
  20.     fFcb fcall PBFlushVol abort" FlushVol failed"
  21. ;
  22.