home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / cebit_91 / dirwin / dwdemo.bas < prev   
Encoding:
BASIC Source File  |  1990-08-23  |  1.2 KB  |  60 lines
  1. $CPU 8086
  2. $LIB ALL -
  3. $COM 0
  4. $SOUND 0
  5. $FLOAT EMULATE
  6. $ERROR ALL -
  7. $LINK"DIRWIN.PBU"
  8. cfg$ = "DWDEMO.CFG"
  9. CALL InitDirwin(cfg$)
  10. COLOR 7, 0
  11.  
  12. DO
  13.   COLOR 7, 0
  14.   CLS
  15.   PRINT "Bitte wählen Sie eine Datei zum Auflisten aus: ";
  16.   FileName$ = GetFile$("*.BAS", -1, -1)
  17.   IF FileName$ = "<ESC>" THEN
  18.     PRINT : PRINT "DWDEMO mit '<ESC>' abgebrochen." : END
  19.   ELSE
  20.     CALL ReadFile(FileName$)
  21.   END IF
  22.   COLOR 7, 0
  23. LOOP
  24.  
  25. SUB ReadFile(listfile$)
  26. LOCAL counter%, x%, ReadStr$
  27.   counter% = 0 : x% = FREEFILE
  28.   OPEN "I", x%, Listfile$
  29.   WHILE NOT EOF(x%)
  30.     LINE INPUT #x%, ReadStr$
  31.     IF LEN(ReadStr$) > 79 THEN INCR counter%
  32.     IF LEN(ReadStr$) > 159 THEN INCR counter%
  33.     PRINT ReadStr$ : INCR counter%
  34.     IF counter% MOD 23 = 0 AND counter% > 1 THEN
  35.       COLOR 14, 0
  36.       PRINT "Weiter mit jeder Taste ...";
  37.       COLOR 7, 0
  38.       ch$ = ""
  39.       DO
  40.         ch$ = INKEY$
  41.       LOOP UNTIL ch$ <> ""
  42.       IF ch$ = CHR$(27) THEN
  43.         COLOR 7, 0 : CLS
  44.         PRINT "Listen wurde abgebrochen."
  45.         CLOSE : EXIT SUB
  46.       ELSE
  47.         CLS
  48.       END IF
  49.     END IF
  50.   WEND
  51.   CLOSE
  52.   ch$ = ""
  53.   DO
  54.     ch$ = INKEY$
  55.   LOOP UNTIL ch$ <> ""
  56.   CLS
  57. END SUB
  58.  
  59.  
  60.