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