home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 06 / heimwerk / si_erw_1.inc < prev    next >
Encoding:
Text File  |  1989-03-29  |  1.5 KB  |  35 lines
  1. '* ------------------------------------------------------- *
  2. '*                      SI-ERW-1.INC                       *
  3. '* ------------------------------------------------------- *
  4.     CASE "E"
  5.       CALL ClrScr
  6.       CALL SubMen ("Environment") ' Untermenünamen anzeigen
  7.       j = 6                       ' Erste Displayzeile
  8.       FOR i = 1 TO 15             ' die ersten 15 Einträge
  9.         IF ENVIRON$(i)<>"" THEN   ' erlaubt sind 255
  10.                                   ' normal sind 5 bis  10
  11.           CALL QPrint (j, 1, "SET " + ENVIRON$(i), 7)
  12.           INCR j                  ' Anzeigezeile erhöhen
  13.         END IF
  14.         IF LEN(ENVIRON$(i))>78 THEN
  15.           INCR j                  ' Zeilensprung
  16.         END IF                    ' (nötig z.B. für PATH)
  17.       NEXT i
  18.       enlength = 0                ' Länge des Environments
  19.       FOR i = 1 TO 255            ' Für die maximale Zahl
  20.         IF LEN(ENVIRON$(i))=0 THEN EXIT FOR
  21.                                   ' Ausstieg, wenn
  22.                                   ' Environment-String leer
  23.         enlength=enlength+LEN(ENVIRON$(i))
  24.       NEXT i
  25.       IF j>21 THEN j=21           ' Tiefer als Zeile 21?
  26.                                   ' maximal Zeile 23 erlaubt
  27.       CALL QPrint (j+2,1,"Im DOS-Umgebungsspeicher sind"+_
  28.             STR$(enlength)+" Bytes belegt.",15)
  29.     CASE "S"
  30.       CALL ClrScr
  31.       CALL ClearBuffer
  32.       CALL Benchmark
  33. '* ------------------------------------------------------- *
  34. '*                Ende von SI-ERW-1.INC                    *
  35.