home *** CD-ROM | disk | FTP | other *** search
/ POWERdrive for you 3 / PFY3_D.ISO / special / dr_win / winfont.bas < prev   
BASIC Source File  |  1995-07-06  |  674b  |  33 lines
  1. OPEN "c:\windows\win.ini" FOR INPUT AS #1
  2. OPEN "c:\windows\win.tmp" FOR OUTPUT AS #2
  3. schalter = 0
  4. modus$ = ENVIRON$("WINFONT")
  5.  
  6. WHILE NOT EOF(1)
  7.      LINE INPUT #1, r$
  8.      IF LEFT$(r$, 11) = ";>>>WINFONT" THEN
  9.           schalter = NOT schalter
  10.      END IF
  11.      IF schalter THEN
  12.           IF modus$ = "0" AND LEFT$(r$, 1) <> ";" THEN
  13.                r$ = ";>WINFONT>" + r$
  14.           END IF
  15.           IF modus$ = "1" AND LEFT$(r$, 10) = ";>WINFONT>" THEN
  16.                r$ = MID$(r$, 11)
  17.           END IF
  18.      END IF
  19.      PRINT #2, r$
  20. WEND
  21. CLOSE #1, #2
  22. KILL "c:\windows\win.ini"
  23. NAME "c:\windows\win.tmp" AS "c:\windows\win.ini"
  24. SYSTEM
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.