home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / BOZOL2 / BOZOL2.ZIP / LOADRUN.CMD < prev    next >
Encoding:
Text File  |  1994-02-08  |  1.8 KB  |  81 lines
  1.     CASE "RUN"
  2.         F$=POPARG$
  3.         IF LEN(F$) THEN
  4.             Fi$=DIR$(F$)
  5.             IF Fi$="" THEN
  6.                                 BOZOPRINT "File Not Found."+CrLf$
  7.                                 Prog%=0
  8.             ELSE
  9.                 Fi%=FREEFILE
  10.                 OPEN Fi$ FOR INPUT AS #Fi%
  11.                 x%=UBOUND(PROGRAM$)
  12.                 REDIM PROGRAM$(x%)
  13.                 MaxLine%=0
  14.                 DO UNTIL EOF(Fi%)
  15.                  INCR MaxLine%
  16.                  LINE INPUT #Fi%, PROGRAM$(MaxLine%)
  17.                 LOOP
  18.                 Prog%=1
  19.                 ProgLine%=0
  20.             END IF
  21.         ELSE
  22.             Prog%=1
  23.             ProgLine%=0
  24.         END IF
  25.             CLOSE #Fi%
  26.     CASE "LOAD"
  27.         F$=POPARG$
  28.         IF LEN(F$) THEN
  29.             Fi$=DIR$(F$)
  30.             IF Fi$="" THEN
  31.                                 BOZOPRINT "File Not Found." +CrLf$
  32.             ELSE
  33.                 Fi%=FREEFILE
  34.                 OPEN Fi$ FOR INPUT AS #Fi%
  35.                 x%=UBOUND(PROGRAM$)
  36.                 REDIM PROGRAM$(x%)
  37.                 MaxLine%=0
  38.                 DO UNTIL EOF(Fi%)
  39.                  INCR MaxLine%
  40.                  LINE INPUT #Fi%, PROGRAM$(MaxLine%)
  41.                 LOOP
  42.                 Prog%=0
  43.                 ProgLine%=0
  44.             END IF
  45.         END IF
  46.  
  47.         CLOSE #Fi%
  48.         CASE "QUIT", "END"
  49.  
  50.             EXIT FAR
  51.  
  52.         CASE "LIST"
  53.                 a%=val(POPARG$)
  54.                 IF a%=0 then
  55.                            a%=1:b%=MaxLine%
  56.                 ELSE
  57.                         b%=val(POPARG$)
  58.                         IF b%=0 or b%<a% then b%=a%
  59.                            if b%>MaxLine% then b%=MaxLine%
  60.         END IF
  61.  
  62.         For y%=a% TO b%
  63.                 IF LEN(PROGRAM$(y%)) THEN BOZOPRINT STR$(y%)+ " " +PROGRAM$(y%)+CrLf$
  64.                 NEXT y%
  65.  
  66.         CASE "SAVE"
  67.  
  68.                 For y%=1 to 1000
  69.                 IF LEN(RTRIM$(PROGRAM$(y%))) THEN MaxLine%=y%
  70.                 NEXT y%
  71.  
  72.                 a$=POPARG$
  73.                 Buf=FREEFILE
  74.                 OPEN a$ FOR OUTPUT AS #buf
  75.  
  76.         For y%=1 TO MaxLine%
  77.         PRINT #Buf, PROGRAM$(y%)
  78.                 NEXT y%
  79.  
  80.                 CLOSE #Buf
  81.