home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / sigisoft / bas_help / bas_help.lst next >
Encoding:
File List  |  1987-04-21  |  6.5 KB  |  235 lines
  1. CLEAR
  2. CLOSE #1
  3. CLOSE #2
  4. ON ERROR GOSUB fehler
  5. BOX 10,10,630,390
  6. RBOX 12,12,628,388
  7. RBOX 13,13,627,387
  8. PRINT AT(9,2);"Basic Hilfsprogramm   Public Domain Version 1.0"
  9. PRINT CHR$(27)+"p";
  10. PRINT AT(3,3);" ---- (c) 1990 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ----- "
  11. PRINT CHR$(27)+"q";
  12. PRINT AT(9,5);"Beachte Gro₧ und Kleinschreibung nicht"
  13. PRINT AT(9,7);"1 = Suchen nach Zeile in dem Wort steht und Ausgabe auf Bildschirm"
  14. PRINT AT(9,8);"2 = Suchen nach Zeile in dem Wort steht und Ausgabe auf Drucker"
  15. PRINT AT(9,9);"3 = Suchen nach Zeile in dem Wort steht und Ausgabe in Datei"
  16. PRINT AT(9,11);"Beachte Gro₧ und Kleinschreibung"
  17. PRINT AT(9,13);"4 = Suchen nach Zeile in dem Wort steht und Ausgabe auf Bildschirm"
  18. PRINT AT(9,14);"5 = Suchen nach Zeile in dem Wort steht und Ausgabe auf Drucker"
  19. PRINT AT(9,15);"6 = Suchen nach Zeile in dem Wort steht und Ausgabe in Datei"
  20. PRINT CHR$(27)+"p";
  21. PRINT AT(9,17);"7 = Verlassen des Programms ";
  22. PRINT CHR$(27)+"q"
  23. DO
  24.   taste$=INKEY$
  25.   IF taste$="4"
  26.     GOSUB bildschirm
  27.     PRINT CHR$(27)+"p";
  28.     PRINT "Warte auf Tastendruck";
  29.     PRINT CHR$(27)+"q";
  30.     REPEAT
  31.     UNTIL INKEY$>CHR$(0) OR MOUSEK>0
  32.     RUN
  33.   ENDIF
  34.   IF taste$="5"
  35.     IF GEMDOS(17)=-1
  36.       GOSUB drucker
  37.     ENDIF
  38.     RUN
  39.   ENDIF
  40.   IF taste$="6"
  41.     GOSUB datei
  42.     RUN
  43.   ENDIF
  44.   IF taste$="1"
  45.     GOSUB bildschirm_1
  46.     PRINT CHR$(27)+"p";
  47.     PRINT "Warte auf Tastendruck";
  48.     PRINT CHR$(27)+"q";
  49.     REPEAT
  50.     UNTIL INKEY$>CHR$(0) OR MOUSEK>0
  51.     RUN
  52.   ENDIF
  53.   IF taste$="2"
  54.     IF GEMDOS(17)=-1
  55.       GOSUB drucker_1
  56.     ENDIF
  57.     RUN
  58.   ENDIF
  59.   IF taste$="3"
  60.     GOSUB datei_1
  61.     RUN
  62.   ENDIF
  63.   IF taste$="7"
  64.     CLS
  65.     PRINT AT(1,1);"Basic Hilfsprogramm   Public Domain Version 1.0"
  66.     PRINT CHR$(27)+"p";
  67.     PRINT " ------ (c) 1990 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ------- ";
  68.     PRINT CHR$(27)+"q";
  69.     PRINT "               Dieses Programm ist frei kopierbar (Public Domain)"
  70.     PRINT " Jeder der dieses Programm benützt sollte mir aber fairerweise ein kleines"
  71.     PRINT "             Anerkennungshonorar von ca 5 - 10 DM zukommen lassen."
  72.     PRINT
  73.     PRINT "    Sollte das Konzept mit dem Anerkennungshonorar klappen, so werden mit "
  74.     PRINT "   zimlicher Sicherheit noch viele weitere PD Programme von mir erscheinen"
  75.     PRINT "   und falls es nicht klappen sollte, dann mü₧en sie sich Ihre Programme halt "
  76.     PRINT "   selbst schreiben, denn ich hab bald keine Lust mehr PD Programme zu "
  77.     PRINT " schreiben, die jeder Verwendet aber keiner den Programmautoren  Anerkennungs-"
  78.     PRINT " honorar zukommen lä₧t. Das Entwickeln eines Programmes kostet schlieslich auch"
  79.     PRINT " viel Zeit und Strom."
  80.     PRINT
  81.     PRINT " Also denkt mal darüber nach."
  82.     PRINT STRING$(80,45);
  83.     PRINT "Falls Sie mir Schreiben bitte immer mit angeben"
  84.     PRINT
  85.     PRINT "                 Computermodell Atari ST oder MS-DOS Rechner"
  86.     PRINT "                 Programmname   Basic Hilfsprogramm Version 1.0"
  87.     PRINT "                 Monitor        Monochrome"
  88.     PRINT "                 PD Vertreiber  wo Ihr dieses Programm herhabt"
  89.     PRINT
  90.     PRINT " Viele Grü₧e an alle ehrlichen PD Anwendern."
  91.     PRINT CHR$(27)+"p";
  92.     PRINT AT(50,24);" --->Bitte eine Taste drücken ";
  93.     PRINT CHR$(27)+"q";
  94.     REPEAT
  95.     UNTIL INKEY$>CHR$(0) OR MOUSEK>0
  96.     END
  97.   ENDIF
  98. LOOP
  99. PROCEDURE bildschirm
  100.   CLS
  101.   PRINT AT(1,1);"File auswählen, das bearbeitet werden soll"
  102.   FILESELECT "\*.*",file$,file$
  103.   IF EXIST(file$)
  104.     PRINT AT(1,1);"Welches Wort soll ich Suchen ?            "
  105.     FORM INPUT 255,wort$
  106.     CLS
  107.     OPEN "I",#1,file$
  108.     REPEAT
  109.       LINE INPUT #1,a$
  110.       IF INSTR(a$,wort$)
  111.         zahl=zahl+1
  112.         IF zahl=10
  113.           zahl=0
  114.           PRINT CHR$(27)+"p";
  115.           PRINT "Warte auf Tastendruck";
  116.           PRINT CHR$(27)+"q";
  117.           REPEAT
  118.           UNTIL INKEY$>CHR$(0) OR MOUSEK>0
  119.           CLS
  120.         ENDIF
  121.         PRINT a$
  122.       ENDIF
  123.     UNTIL EOF(#1)
  124.     CLOSE #1
  125.   ENDIF
  126. RETURN
  127. PROCEDURE drucker
  128.   CLS
  129.   PRINT AT(1,1);"File auswählen, das bearbeitet werden soll"
  130.   FILESELECT "\*.*",file$,file$
  131.   IF EXIST(file$)
  132.     PRINT AT(1,1);"Welches Wort soll ich Suchen ?            "
  133.     FORM INPUT 255,wort$
  134.     OPEN "I",#1,file$
  135.     REPEAT
  136.       LINE INPUT #1,a$
  137.       IF INSTR(a$,wort$)
  138.         LPRINT a$
  139.       ENDIF
  140.     UNTIL EOF(#1)
  141.     CLOSE #1
  142.   ENDIF
  143. RETURN
  144. PROCEDURE bildschirm_1
  145.   CLS
  146.   PRINT AT(1,1);"File auswählen, das bearbeitet werden soll"
  147.   FILESELECT "\*.*",file$,file$
  148.   IF EXIST(file$)
  149.     PRINT AT(1,1);"Welches Wort soll ich Suchen ?            "
  150.     FORM INPUT 255,wort$
  151.     wort$=UPPER$(wort$)
  152.     OPEN "I",#1,file$
  153.     REPEAT
  154.       LINE INPUT #1,a$
  155.       a$=UPPER$(a$)
  156.       IF INSTR(a$,wort$)
  157.         PRINT a$
  158.         zahl=zahl+1
  159.         IF zahl=10
  160.           zahl=0
  161.           PRINT CHR$(27)+"p";
  162.           PRINT "Warte auf Tastendruck";
  163.           PRINT CHR$(27)+"q";
  164.           REPEAT
  165.           UNTIL INKEY$>CHR$(0) OR MOUSEK>0
  166.           CLS
  167.         ENDIF
  168.       ENDIF
  169.     UNTIL EOF(#1)
  170.     CLOSE #1
  171.   ENDIF
  172. RETURN
  173. PROCEDURE drucker_1
  174.   CLS
  175.   PRINT AT(1,1);"File auswählen, das bearbeitet werden soll"
  176.   FILESELECT "\*.*",file$,file$
  177.   IF EXIST(file$)
  178.     PRINT AT(1,1);"Welches Wort soll ich Suchen ?            "
  179.     FORM INPUT 255,wort$
  180.     wort$=UPPER$(wort$)
  181.     OPEN "I",#1,file$
  182.     REPEAT
  183.       LINE INPUT #1,a$
  184.       a$=UPPER$(a$)
  185.       IF INSTR(a$,wort$)
  186.         LPRINT a$
  187.       ENDIF
  188.     UNTIL EOF(#1)
  189.     CLOSE #1
  190.   ENDIF
  191. RETURN
  192. PROCEDURE datei_1
  193.   CLS
  194.   PRINT AT(1,1);"File auswählen, das bearbeitet werden soll"
  195.   FILESELECT "\*.*",file$,file$
  196.   IF EXIST(file$)
  197.     PRINT AT(1,1);"Welches Wort soll ich Suchen ?            "
  198.     FORM INPUT 255,wort$
  199.     wort$=UPPER$(wort$)
  200.     OPEN "I",#1,file$
  201.     OPEN "O",#2,wort$+".LST"
  202.     REPEAT
  203.       LINE INPUT #1,a$
  204.       a$=UPPER$(a$)
  205.       IF INSTR(a$,wort$)
  206.         PRINT #2,a$
  207.       ENDIF
  208.     UNTIL EOF(#1)
  209.     CLOSE #1
  210.     CLOSE #2
  211.   ENDIF
  212. RETURN
  213. PROCEDURE datei
  214.   CLS
  215.   PRINT AT(1,1);"File auswählen, das bearbeitet werden soll"
  216.   FILESELECT "\*.*",file$,file$
  217.   IF EXIST(file$)
  218.     PRINT AT(1,1);"Welches Wort soll ich Suchen ?            "
  219.     FORM INPUT 255,wort$
  220.     OPEN "I",#1,file$
  221.     OPEN "O",#2,wort$+"LST"
  222.     REPEAT
  223.       LINE INPUT #1,a$
  224.       IF INSTR(a$,wort$)
  225.         PRINT #2,a$
  226.       ENDIF
  227.     UNTIL EOF(#1)
  228.     CLOSE #1
  229.     CLOSE #2
  230.   ENDIF
  231. RETURN
  232. PROCEDURE fehler
  233.   RUN
  234. RETURN
  235.