'===========================================================================
' Subject: Change RTF to Text                 Date: 09-15-02 (  :  )       
'  Author: David Wosnitza                     Code: QB, Qbasic, PDS        
'  Origin: dc-ware@onlinehome.de            Packet: TEXT.ABC
'===========================================================================
'*********************************        ********                    '
'*      RTF TO TXT CHANGER      **             **                     '
'* PROGRAMMED BY DAVID WOSNITZA **           **   -+- ZaPPa never die! '
'*  COPYRIGHT @2002 BY DC-WARE  **         **                         '
'*********************************        ********                    '
ON ERROR GOTO errorcheck
DIM a$(-1 TO 10000)
start:
CLS
COLOR 2: LOCATE 7, 15: PRINT "Choose your language."
COLOR 1: LOCATE 8, 15: PRINT "W�hle deine Sprache."
COLOR 2: LOCATE 11, 20: PRINT "<1> English / Englisch."
COLOR 1: LOCATE 12, 20: PRINT "<2> German  /  Deutsch."
COLOR 4: LOCATE 13, 20: PRINT "<3>   END   /   ENDE"
SLEEP
kbd$ = INKEY$
IF kbd$ = "1" THEN GOTO emenu
IF kbd$ = "2" THEN GOTO dmenu
IF kbd$ = "3" THEN SYSTEM
GOTO start
emenu:
men$ = "e"
CLS
COLOR 4
PRINT "RTF to TXT changer!!!"
PRINT : PRINT
PRINT "Please input the full path and"
PRINT "the name without the extensoin '.RTF'!"
PRINT "The aim file will be found in the same directory"
PRINT "as the source file!"
COLOR 20: PRINT : PRINT "'�', '�', '�', '�', '�', '�'  <---- Won't be printed!"
PRINT
COLOR 4
INPUT " Type now:", file$
PRINT : PRINT : PRINT : PRINT
COLOR 20: PRINT "                  Please wait..."
GOTO change
dmenu:
men$ = "d"
CLS
COLOR 4
PRINT "RTF in TXT wandler!!!"
PRINT : PRINT
PRINT "Tipp den kompletten Pfad und den Namen der"
PRINT ".RTF-Datei ohne den Anhang '.RTF' ein!"
PRINT "Die Zieldatei befindet sich dann im selben"
PRINT "Verzeichnis wie die Quelldatei!"
PRINT
COLOR 20: PRINT "'�', '�', '�', '�', '�', '�'   <---- Werden nicht �bernommen!"
COLOR 4: PRINT
INPUT " Jetzt:", file$
PRINT : PRINT : PRINT : PRINT
COLOR 20: PRINT "                  Bitte Warten..."
GOTO change
change:
c = 0
q = 1
COLOR 15
OPEN file$ + ".rtf" FOR INPUT AS #1
DO WHILE NOT EOF(1)
c = c + 1
LINE INPUT #1, a$(c)
LOOP
CLOSE
OPEN file$ + ".txt" FOR OUTPUT AS #2
DO
q = q + 1
IF q = c - 1 THEN EXIT DO
IF LEFT$(a$(q), 2) = "\f" THEN PRINT #2, MID$(a$(q), 10, LEN(a$(q)) - 13): GOTO again
IF q = 2 THEN PRINT #2, MID$(a$(2), 29, LEN(a$(2)) - 32)
IF q > 2 THEN PRINT #2, LEFT$(a$(q), LEN(a$(q)) - 4)
again:
LOOP
CLOSE
COLOR 18: PRINT "                  FERTIG / FINISHED !!!"
SYSTEM
errorcheck:
CLOSE
IF men$ = "d" THEN PRINT "Fehler: Keine Lust noch Fehler�berpr�fung zu machen...NEUSTART! ERR="; ERR
IF men$ = "e" THEN PRINT "Error: Don't wanna code Errorcheck... RESTART!!! ERR="; ERR
SLEEP
GOTO start
RESUME