' --------------------------------------------------------------------------
'                                   COOL-IT
' --------------------------------------------------------------------------
'  (C)1994-1997 by Marvin C. Stahl  (2:2410/330.7 oder mcs@tbx.berlinet.de)
' --------------------------------------------------------------------------
'  Wandelt normale Textdateien in 'coole' Textdateien, die man von Freaks,
'  Hackern und Crackern gew”hnt ist. Viele Programmdokumentationen sehen
'  aus, als wenn sie etwas 'durcheinander' geraten w„ren, was aber von den
'  'coolen' Typen durchaus beabsichtigt ist. Mit Hilfe dieses Programms
'  kann nun jeder seine Textdateien in eben dieses coole Format konvertiert
'  werden. Nat�rlich k”nnen coole Textdateien, die mit COOL-IT gewandelt
'  wurden, wieder mit COOL-IT in 'normalen' Text zur�ckgewandelt werden.
' --------------------------------------------------------------------------
'  Hier nun der Text in cooler Form:
' --------------------------------------------------------------------------
'  w�¤D‚Lt ¤•çM†L‚ t�‘Td�t���¤ �¥ '›••L‚' T‚‘tD†T‚�‚¥, d�‚ m�¤ v•¤ fç‚�ks,
'  h�›K‚ç¤ u¥d c熛k�ç¥ G‚W”H¤T �sTú v�‚L‚ pç•Gç�mMd•kUm�¤T†T�•¤�¤ s�h‚¤
'  †Us, �lS W‚¥¤ s�‚ ‚Tw�s 'Duç›H‚�¤�¤D‚ç' g�ç�t�¤ wŽç�¤, W†S �b�ç v•¤ d‚¤
'  '›••l�¤' T˜P‚¥ Duç›H†Us b�†Bs�›Ht�gT �sTú m�t h�lŸ‚ d�‚S‚S Pç•gç†Mms
'  k�¤¥ ¥u¥ J‚D‚ç S‚�¤� T‚‘tD†T‚�‚¥ �¤ ‚B‚¥ D��s�s ›••L‚ f•çM†T K•¥v�çT��çt
'  w�çD‚¥ú ¤�tšçL�›h k™¤¥‚¥ ›••l� T‚‘tD†T‚�‚¥, d�‚ m�t cOoœ-It g�w�¤D‚lt
'  wUçD‚¥, w�‚D‚ç M�T CoOœ-iT �¤ '¥•çm�l�¤' T‚‘t zUçš›Kg�w�¤D‚Lt w�çD‚¤ú
' --------------------------------------------------------------------------
'
$CPU        8086                    ' l„uft mit jedem Prozessor
$STRING     32                      ' 32k f�r Zeichenketten
'
DEFINT A-Z
ON ERROR GOTO Probleme              ' Programmfehler abfangen
'
A$=UCASE$(LTRIM$(RTRIM$(COMMAND$))) ' Kommandozeilenparameter holen
O$=".!?AELNRacefinorxy"             ' Zu wandelnde Originalzeichen
C$="ú­¨�䜥ž†›‚Ÿ�¤•ç‘˜"             ' 'Coole' Ersatzzeichen
Mode%=INSTR(A$,"/N")                ' <>0 dann in Normaltext wandeln
IF INSTR(A$," ")>0 THEN             ' evtl. Schalter von Kommandozeile
   A$=LEFT$(A$,INSTR(A$," ")-1)     ' trennen
END IF
PRINT				    ' Leerzeile ausgeben
IF A$<>"" THEN
   IF LEN(DIR$(A$))=0 THEN          ' Originaldatei vorhanden?
      PRINT A$" nicht vorhanden!"
      PRINT
      END
   END IF
   OPEN "B",1,A$                    ' Originaldatei leer?
   IF LOF(1)=0 THEN
      CLOSE
      PRINT "Angegebene Datei ist LEER (0 Bytes)!"
      PRINT
      END
   END IF
   CLOSE
   IF INSTR(A$,".")>0 THEN
      Datei$=A$
      Cool$=LEFT$(A$,INSTR(A$,"."))+"COL"
     ELSE
      Datei$=A$
      Cool$=A$+".COL"
   END IF
   OPEN "I",1,Datei$                ' Originaldatei zum Lesen ”ffnen
   OPEN "O",2,Cool$                 ' Zieldatei zum Schreiben ”ffnen
   PRINT "Wandle Zeile:";
   S%=POS(0)                        ' Cursorposition merken
   Z%=0                             ' Zeilenz„hler
   WHILE NOT EOF(1)
     LINE INPUT#1,Z$                ' Textzeile einlesen
     INCR Z%                        ' Zeilenz„hler erh”hen
     LOCATE ,S%                     ' aktuelle Zeile anzeigen
     PRINT Z%;			    '           "
     FOR I=1 TO LEN(O$)
       IF Mode%=0 THEN		    ' Normaltext in coolen Text wandeln
          S$=MID$(O$,I,1)
          E$=MID$(C$,I,1)
         ELSE
	  S$=MID$(C$,I,1)	    ' Coolen Text in Normaltext wandeln
          E$=MID$(O$,I,1)
       END IF
       P=INSTR(Z$,S$)		    ' Suchzeichen in der Zeile vorhanden?
       WHILE P>0		    ' Solange das Zeichen im Text vorhanden
	 MID$(Z$,P,1)=E$	    ' Originalzeichen austauschen
	 P=INSTR(P,Z$,S$)	    ' Weitere Suchzeichen vorhanden?
       WEND
     NEXT I
     Z$=LCASE$(Z$)                  ' Text in Kleinschrift wandeln
     FOR I=1 TO LEN(Z$)-2 STEP 2    ' jedes 2. Zeichen in Groáschrift
       MID$(Z$,I,1)=UCASE$(MID$(Z$,i,1))
     NEXT I
     PRINT#2,Z$			    ' gewandelte Zeile speichern
   WEND
   CLOSE
   PRINT
  ELSE
   PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
   PRINT "³ COOL-IT Version 1.10   (C)1994-1997 by Marvin C. Stahl ³Ü"
   PRINT "ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´Û"
   PRINT "³ Wandelt 'normale' Textdateien in 'coole' Textdateien   ³Û"
   PRINT "³ und umgekehrt.                                         ³Û"
   PRINT "ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´Û"
   PRINT "³ Syntax:         COOL-IT datei [/C] [/N] <ÄÙ            ³Û"
   PRINT "ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´Û"
   PRINT "³ datei   zu wandelnde Datei                             ³Û"
   PRINT "³                                                        ³Û"
   PRINT "³ /N      wandelt eine coole Datei in eine normale       ³Û"
   PRINT "³         Textdatei. (NUR mit COOL-IT gewandelte!)       ³Û"
   PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ"
   PRINT "  ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß"
END IF
PRINT
END
'
Probleme:
CLOSE 				' alle ge”ffneten Dateien schlieáen
SELECT CASE ERR
  CASE 61
    Fehler$="Die Diskette/Festplatte ist voll!"
  CASE 71
    Fehler$="Die Diskette/Festplatte ist nicht bereit!"
  CASE 72
    Fehler$="Fehlerhafter Datentr„ger!"
  CASE 76
    Fehler$="Pfad nicht gefunden!"
  CASE ELSE
    Fehler$="Es trat Fehler-Nr."+LTRIM$(RTRIM$(STR$(ERR)))+" auf!"
END SELECT
PRINT Fehler$			' Fehlermeldung ausgeben
PRINT
END