home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / BOZOL2 / BOZOL2.ZIP / CUSTOM.CMD < prev    next >
Encoding:
Text File  |  1994-02-08  |  1.5 KB  |  70 lines
  1. CASE "ASK"
  2.         i%=0
  3.     FOR y%=1 TO UBOUND(VAR$)
  4.                 IF LEN(VAR$(y%)) THEN
  5.                 INCR i%:IF i%=20 THEN CWAIT:I%=0
  6.             BOZOPRINT "{"+VAR$(y%)+"}"+CHR$(9)+"["+VALUE$(y%)+"]"+CrLf$
  7.                 END IF
  8.         NEXT y%
  9.  
  10. CASE "PUTFILE"
  11.         Buf=FREEFILE
  12.     OPEN POPARG$ FOR APPEND AS #buf
  13.         WHILE ArgPtr%>0
  14.             PRINT #buf, POPARG$;
  15.         WEND
  16. CASE "MORE"
  17.     more=val(poparg$)
  18. CASE "TYPE"
  19. LET TypeBuffer = FREEFILE: LET lns = 0
  20. Prg$=POPARG$
  21. IF INSTR(Prg$,".") = 0 THEN Prg$ = Prg$ +".TYP"
  22.  
  23. IF LEN(DIR$(Prg$)) THEN
  24. OPEN Prg$ FOR INPUT SHARED AS #TypeBuffer
  25. typing% = 0
  26. DO WHILE NOT EOF(TypeBuffer)
  27. LINE INPUT #TypeBuffer, A$
  28. IF LEFT$(LTRIM$(A$), 1) <>"$" THEN BOZOPRINT A$+CrLf$: lns = lns + 1:  ELSE CALL BOZOL(MID$(LTRIM$(A$), 2))
  29.  
  30. IF more THEN
  31.     IF lns >= more THEN
  32.     lns = 0
  33.     BOZOPRINT"- more -"
  34.     CWAIT
  35.     BOZOPRINT STRING$(8, 8)
  36.     END IF
  37. END IF
  38.  
  39.  
  40. IF typing% THEN EXIT DO
  41. LOOP
  42. CLOSE #TypeBuffer
  43. ELSE
  44. CALL BOZOPRINT(CrLf$ + CHR$(7) + Prg$ +" not found." + CrLf$)
  45. END IF
  46.  
  47. CASE "ENDTYPE"
  48. LET typing% = 1
  49.  
  50.  
  51. CASE "CD","CHDIR"
  52.     CHDIR POPARG$
  53. CASE "MD","MKDIR"
  54.     MKDIR POPARG$
  55. CASE "RD"
  56.     A$=POPARG$
  57.         IF LEN(DIR$(A$,16)) THEN KILL A$
  58. CASE "HOME"
  59.     BOZOPRINT "^0@CLS()"
  60.  
  61. CASE "UNLOCK"
  62. CLOSE #22
  63.  
  64. CASE "LOCK"
  65. CLOSE #22
  66. OPEN PopArg$ FOR OUTPUT AS #22:PRINT #22, TIME$, DATE$
  67. ' we open the file for output and write to it, then leave it open
  68. ' so any other user attempting lock the same file gets a big fat error
  69.  
  70.