home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / sigisoft / doc_txt / doc_txt.lst next >
Encoding:
File List  |  1987-04-21  |  1.9 KB  |  66 lines
  1. ON ERROR GOSUB fehler
  2. CLOSE #1
  3. CLOSE #2
  4. PRINT AT(1,1);"        DOC ---> TXT Text Umwandler        Public Domain Version Nr 1.0           "
  5. PRINT CHR$(27)+"p";
  6. PRINT AT(1,2);" ------ (c) 1990 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ------- "
  7. PRINT CHR$(27)+"q";
  8. FILESELECT "\*.DOC",a$,a$
  9. IF EXIST(a$)
  10.   s$="TXT"
  11.   alt$=LEFT$(a$,LEN(a$)-3)
  12.   neu$=alt$+s$
  13.   OPEN "I",#1,a$
  14.   OPEN "O",#2,neu$
  15.   FOR x=1 TO 5
  16.     LINE INPUT #1,d$
  17.   NEXT x
  18.   PRINT AT(20,4);"Lese     Datei ";a$
  19.   PRINT AT(20,5);"Schreibe Datei ";neu$
  20.   REPEAT
  21.     INC d%
  22.     a=INP(#1)
  23.     IF a=30
  24.       a=32
  25.     ENDIF
  26.     PRINT #2,CHR$(a);
  27.     PRINT AT(20,3);"Konvertiere Text-Zeichen Nr.";d%
  28.   UNTIL EOF(#1)
  29. ENDIF
  30. CLOSE #1
  31. CLOSE #2
  32. ALERT 3,"Noch einen Text| Konvertieren| DOC ---> TXT",1,"Ja|Nein",d%
  33. IF d%=1
  34.   RUN
  35. ELSE
  36.   CLS
  37.   PRINT CHR$(27)+"p";
  38.   PRINT STRING$(24,45);" B e n u t z e r h i n w e i s e ";STRING$(23,45)
  39.   PRINT CHR$(27)+"q";
  40.   PRINT "Dieses Programm ist frei kopierbar (Public Domain)"
  41.   PRINT
  42.   PRINT "Jeder der dieses Programm benützt, und möchte das in Zukunft noch PD Programme"
  43.   PRINT "von mir Programmiert werden, der sollte mir ein kleines Anerkennungshonorar"
  44.   PRINT "von ca 5 - 10 DM zusenden."
  45.   PRINT
  46.   PRINT "Bitte Computermodell angeben (Atari ST) oder (MS-DOS) und Name des Programms"
  47.   PRINT "Also bei diesem Programm DOC ---> TXT Konverter sowie PD Vertreiber von den Ihr"
  48.   PRINT "dieses Programm herhabt."
  49.   PRINT
  50.   PRINT STRING$(80,45);
  51.   PRINT "Adresse des Programmierers             Siegfried Hübner"
  52.   PRINT "                                       Obere Vorstadt 21"
  53.   PRINT "                                       8812 Windsbach"
  54.   PRINT STRING$(80,45)
  55.   PRINT AT(15,20);
  56.   PRINT CHR$(27)+"p";
  57.   PRINT "----- Bitte eine Taste drücken oder Mausklick -----"
  58.   PRINT CHR$(27)+"q";
  59.   REPEAT
  60.   UNTIL INKEY$>CHR$(0) OR MOUSEK>0
  61.   END
  62. ENDIF
  63. PROCEDURE fehler
  64.   RUN
  65. RETURN
  66.