--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/3rdparty/packages/pascal/Dumpreal	Fri Apr 05 08:23:28 2002 +0000
@@ -0,0 +1,38 @@
+$TITLE DumpReal 
+$SUBTITLE Global Definitions
+PROGRAM dumpreal;
+VAR
+   badvar: ^anotherbadvar;
+   i : integer;
+   hexc : ARRAY[0..15] OF char;
+   trix : RECORD
+          CASE boolean OF
+             true :(r: real);
+             false:(c: ARRAY[1..5] OF char)
+          END;
+$subtitle Procedure PROCWITHERRORS
+PROCEDURE procwitherrors;
+BEGIN
+   this demonstrates what error messages
+   look like;
+   END;
+$Subtitle Procedure HEXVAL
+PROCEDURE hexval(ch: char);
+   BEGIN
+   write(hexc[ord(ch) div 16], hexc[ord(ch) mod 16])
+   END;
+$SUBtitle M A I N L I N E
+BEGIN
+hexc:='0123456789ABCDEF';
+WHILE true DO
+   BEGIN
+   write('Enter real number: '); prompt; 
+   readln(trix.r);
+   FOR i:=1 to 5 DO
+      BEGIN
+      hexval(trix.c[i]);
+      write(' ');
+      END;
+   writeln;
+   END
+END.