home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 03 / tricks / man.bas < prev    next >
BASIC Source File  |  1989-11-28  |  1KB  |  43 lines
  1. '* ------------------------------------------------------- *
  2. '*                       MAN.BAS                           *
  3. '*              UNIX-ähnliches Online-Manual               *
  4. '*        (c) 1990 Maximillian Dornseif  &  TOOLBOX        *
  5. '* ------------------------------------------------------- *
  6. '* Manualdatei öffnen
  7. OPEN "MANUAL.MAN" FOR INPUT AS #1
  8. PRINT "Online Manual V 1.0"
  9. PRINT
  10. C$ = LTRIM$(COMMAND$)
  11. C$ = RTRIM$(C$)      ' Stichwort hervorgehoben ausgeben
  12. COLOR 15
  13. PRINT "   "; C$
  14. COLOR 7
  15. DO
  16.   LINE INPUT #1, inputline$
  17.   ' Prüfen ob Zeile Stichwort ist und
  18.   ' ob das Stichwort das gesuchte ist
  19.   IF LEFT$(inputline$, 1) = "~" AND UCASE$(MID$(inputline$, 2, LEN(C$))) = UCASE$(C$) THEN
  20.    ' Wenn ja, nächste Zeile lesen
  21.     LINE INPUT #1, inputline$
  22.    ' Schleife zum nächsten Suchbegriff
  23.     WHILE LEFT$(inputline$, 1) <> "~"
  24.     ' Zeile ausgeben und bei Bedarf
  25.     ' 'MORE' - Ausgabe
  26.       PRINT inputline$
  27.       l = l + 1
  28.       IF l = 25 THEN
  29.         PRINT "*** Weiter ***"
  30.         DO: LOOP WHILE INKEY$ <> ""
  31.         l = 0
  32.       END IF
  33.       LINE INPUT #1, inputline$
  34.     WEND
  35.     END
  36.   END IF
  37. LOOP WHILE NOT EOF(1)
  38.  
  39. PRINT "Stichwort nicht gefunden"
  40. '* ------------------------------------------------------- *
  41. '*                  Ende von MAN.BAS                       *
  42.  
  43.