home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / BOZOL2 / BOZOL2.ZIP / FILE_A.CMD < prev    next >
Encoding:
Text File  |  1994-02-09  |  750 b   |  25 lines
  1.         CASE "SHELL"
  2.                 FOR n = 1 TO ArgPtr%
  3.                 A$=A$+POPARG$ + " "
  4.                 NEXT n
  5.                 SHELL A$
  6.  
  7.         CASE "BROWSE"
  8.         ' browse filename, top, left, bottom, right
  9.         F$=POPARG$
  10.         IF DIR$(F$)="" THEN PRINT "file not found":EXIT SELECT
  11.         buf=freefile
  12.         OPEN F$ FOR BINARY AS #buf
  13.         IF LOF(1)>32000 THEN GET$ #buf, 32000, A$ ELSE GET$ #buf, lof(buf), A$
  14.         close #buf
  15.         A%=VAL(POPARG$): B%=VAL(POPARG$):C%=VAL(POPARG$):D%=VAL(POPARG$)
  16.         IF A%=0 THEN A%=1
  17.         IF B%=0 THEN B%=1
  18.         IF C%=0 THEN C%=24
  19.         IF D%=0 THEN D%=80
  20.         LOCATE ,,0
  21.         CALL BROWSE (A$, A%, B%, C%, D%)
  22.         LOCATE ,,1
  23.         A$=""
  24.  
  25.