home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / util / cli / dosk / commands / addbuffersk next >
Encoding:
Text File  |  1995-01-04  |  528 b   |  25 lines
  1. FAILAT 21
  2. LAB START
  3. REQUESTFILE >ENV:FILE TITLE="PICK A DEVICE" drawersonly
  4. REQUESTCHOICE >ENV:CHO "AddbuffersK ©January 1995 By Kenneth J. McCormick. All Rights Reserved." "Decision Time" "ADDBUFFERS" "SEE BUFFERS" "ABORT" "BYE"
  5. IF $CHO EQ "0"
  6.    SKIP FIN
  7. ENDIF
  8. IF $CHO EQ "2"
  9.    ECHO " *8 "
  10.    ADDBUFFERS $FILE
  11.    SKIP BACK START
  12. ENDIF
  13. IF $CHO EQ "3"
  14.    SKIP BACK START
  15. ENDIF
  16.  
  17. REQUESTFILE >ENV:FILEB TITLE="ENTER BUFFERS ON FILE LINE"
  18. ADDBUFFERS $FILE $FILEB
  19. SKIP BACK START
  20.  
  21. LAB FIN
  22. UNSETENV CHO
  23. UNSETENV FILE
  24. UNSETENV FILEB
  25.