diff --git a/asoft_present/Makefile b/asoft_present/Makefile
new file mode 100644
index 00000000..dddf4586
--- /dev/null
+++ b/asoft_present/Makefile
@@ -0,0 +1,26 @@
+CC = gcc
+CFLAGS = -O2 -Wall
+LFLAGS = 
+
+
+all:	test.dsk
+
+test.dsk:	TEST
+	../dos33 test.dsk SAVE A TEST
+
+
+TEST:	test.bas
+	../tokenize_asoft < test.bas > TEST
+
+test.bas:		generate_presentation
+	./generate_presentation > test.bas
+
+generate_presentation:	generate_presentation.o
+	$(CC) $(LFLAGS) -o generate_presentation generate_presentation.o
+
+generate_presentations.o:	generate_presentation.c
+	$(CC) $(CFLAGS) -c generate_presentation.c
+
+clean:	
+	rm -f *~ *.o generate_presentation
+
diff --git a/asoft_present/generate_presentation.c b/asoft_present/generate_presentation.c
new file mode 100644
index 00000000..80c0c5c7
--- /dev/null
+++ b/asoft_present/generate_presentation.c
@@ -0,0 +1,59 @@
+#include <stdio.h>
+#include <string.h>
+
+void generate_footer(char *left, char *center, int cols) {
+
+  int center_len,center_count,i,right_count;
+
+  printf("1000 REM ************\n");
+  printf("1001 REM PRINT FOOTER\n");
+  printf("1002 REM ************\n");
+  /* make text black on white; move to bottom line */
+  printf("1003 INVERSE : VTAB 24\n");
+
+  printf("1005 X$=STR$(P%%)+\"/\":X$=X$+STR$(TP%%)\n");
+  printf("1007 L%%=LEN(X$)\n");
+
+  printf("1010 PRINT \"%s",left);
+  
+  center_len=strlen(center);
+  center_count=(cols-center_len)/2;
+  center_count-=strlen(left);
+
+  if (center_count<0) {
+     fprintf(stderr,"Error! can't fit text in footer\n");
+     center_count=0;
+  }
+
+  for(i=0;i<center_count;i++) printf(" ");
+  printf("%s\";\n",center);
+
+  right_count=cols-strlen(left)-center_count-center_len;
+
+  printf("1012 FOR I=0 TO %d-L%%:PRINT \" \";: NEXT I\n",right_count-1);
+
+  printf("1014 PRINT LEFT$(X$,L%%-1);\n");
+  
+  /* set last character to the right most char of the total pages */
+  /* without scrolling.                                           */
+  printf("1015 TP$=STR$(TP%%) : X$=RIGHT$(TP$,1) : X=VAL(X$): POKE 2039,X+48\n"); 
+  /* reset text, move cursor up */
+  printf("1020 NORMAL : VTAB 23: PRINT\"\"\n");
+  printf("1030 RETURN\n");
+}
+
+
+int main(int argc, char **argv) {
+
+   printf("5 HOME\n");
+   printf("10 P%%=1 : TP%%=100\n");
+   printf("20 GOSUB 1000\n");
+   printf("22 PRINT \"\"\n");
+   printf("25 GET A$\n");
+   printf("30 IF A$ = \" \" THEN P%%=P%%+1: GOTO 20\n");
+   printf("100 END\n");
+
+   generate_footer("11 MAY 2012","ICL/UTK",40);
+
+   return 0;
+}
diff --git a/asoft_present/test.dsk b/asoft_present/test.dsk
new file mode 100644
index 00000000..bc6750e0
Binary files /dev/null and b/asoft_present/test.dsk differ