CVS freexp

[CVS User mw]

Update of /server/cvs/freexp
In directory m25s18:/tmp/cvs-serv18042

Modified Files:
	touch.pas touch0.pas 
Log Message:
MW: - Update auf Touch 1.3.2


--- /server/cvs/freexp/touch.pas	2006/09/24 09:16:27	1.30
+++ /server/cvs/freexp/touch.pas	2006/10/28 10:00:29	1.31
@@ -9,7 +9,7 @@
 { finden Sie in der Datei TOUCH.TXT oder auf                      }
 { http://www.martinwodrich.de/Software/Touch/nutzung.htm          }
 { --------------------------------------------------------------- }
-{ $Id: touch.pas,v 1.30 2006/09/24 09:16:27 mw Exp $ }
+{ $Id: touch.pas,v 1.31 2006/10/28 10:00:29 mw Exp $ }
 {$IFDEF MSDOS}{$M 32768,131072,655360}{$ENDIF}
 program touch;
 {$I TOUCH.INC }
@@ -35,7 +35,11 @@
 type
  macrop = ^macro;
  macro = record
+{$IFDEF bp}
    text : string[79];
+{$ELSE}
+   text : string;
+{$ENDIF}
    next : macrop;
    end;
 
@@ -72,7 +76,11 @@
    ref,rel     : boolean;
    rel1,rel2   : boolean;
    dire        : boolean;
+{$IFDEF bp}
    s,u         : string[100];
+{$ELSE}
+   s,u         : string;
+{$ENDIF}
    sim,zcout   : boolean;
    md5b        : boolean;
    files       : byte;
@@ -922,6 +930,9 @@
 end.
 {
   $Log: touch.pas,v $
+  Revision 1.31  2006/10/28 10:00:29  mw
+  MW: - Update auf Touch 1.3.2
+
   Revision 1.30  2006/09/24 09:16:27  mw
   MW: - Update auf Touch 1.3.1
 
--- /server/cvs/freexp/touch0.pas	2006/09/24 09:16:27	1.1
+++ /server/cvs/freexp/touch0.pas	2006/10/28 10:00:29	1.2
@@ -9,7 +9,7 @@
 { finden Sie in der Datei TOUCH.TXT oder auf                      }
 { http://www.martinwodrich.de/Software/Touch/nutzung.htm          }
 { --------------------------------------------------------------- }
-{ $Id: touch0.pas,v 1.1 2006/09/24 09:16:27 mw Exp $ }
+{ $Id: touch0.pas,v 1.2 2006/10/28 10:00:29 mw Exp $ }
 { Globale Konstanten }
 unit touch0;
 
@@ -18,7 +18,7 @@
 {$I TOUCH.INC }
 
 const anyfile=$21;
-      beta='.1';
+      beta='.2';
       version='1.3'+beta;
       touchname='Touch '+version;
       copyright=' (c) 2003-2006 by Martin Wodrich';
@@ -70,7 +70,9 @@
 end.
 {
   $Log: touch0.pas,v $
+  Revision 1.2  2006/10/28 10:00:29  mw
+  MW: - Update auf Touch 1.3.2
+
   Revision 1.1  2006/09/24 09:16:27  mw
   MW: - Update auf Touch 1.3.1
-
 }