From 0f0e52529887fedf72f7f648e6e6dfd49b890675 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vweaver1@eecs.utk.edu>
Date: Thu, 3 May 2012 13:40:46 -0400
Subject: [PATCH] Add better keyboard handling

---
 asoft_presenter/generate_presentation.c | 58 +++++++++++++++++--------
 1 file changed, 41 insertions(+), 17 deletions(-)

diff --git a/asoft_presenter/generate_presentation.c b/asoft_presenter/generate_presentation.c
index 89a37341..726b861a 100644
--- a/asoft_presenter/generate_presentation.c
+++ b/asoft_presenter/generate_presentation.c
@@ -1,20 +1,44 @@
 #include <stdio.h>
 #include <string.h>
 
-void generate_footer(char *left, char *center, int cols) {
+static void generate_keyhandler(void) {
+
+  printf("9000 REM ******************\n");
+  printf("9003 REM * GET KEYPRESSES *\n");
+  printf("9005 REM ******************\n");
+
+  /* memory location -16384 holds keyboard strobe */
+  /* Loop until a key is pressed.                 */
+  printf("9005 X=PEEK(-16384): IF X < 128 THEN 9005\n");
+  /* get the key value, convert to ASCII */
+  printf("9010 X=PEEK(-16368)-128\n");
+  /* Exit if escape pressed */
+  printf("9020 IF X=27 THEN END\n");
+  /* increment page count if space or -> */
+  printf("9030 IF X=21 OR X=32 THEN P%%=P%%+1\n");
+  /* decrement page count if <- */
+  printf("9040 IF X=8 THEN P%%=P%%-1\n");
+  /* keep from going off the end */
+  printf("9050 IF P%%>TP%% THEN P%%=TP%%\n");
+  printf("9060 IF P%%<0 THEN P%%=0\n");
+  printf("9070 RETURN\n");
+}
+
+
+static 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");
+  printf("10000 REM ****************\n");
+  printf("10001 REM * PRINT FOOTER *\n");
+  printf("10002 REM ****************\n");
   /* make text black on white; move to bottom line */
-  printf("1003 INVERSE : VTAB 24\n");
+  printf("10003 INVERSE : VTAB 24\n");
 
-  printf("1005 X$=STR$(P%%)+\"/\":X$=X$+STR$(TP%%)\n");
-  printf("1007 L%%=LEN(X$)\n");
+  printf("10005 X$=STR$(P%%)+\"/\":X$=X$+STR$(TP%%)\n");
+  printf("10007 L%%=LEN(X$)\n");
 
-  printf("1010 PRINT \"%s",left);
+  printf("10010 PRINT \"%s",left);
   
   center_len=strlen(center);
   center_count=(cols-center_len)/2;
@@ -30,16 +54,16 @@ void generate_footer(char *left, char *center, int cols) {
 
   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("10012 FOR I=0 TO %d-L%%:PRINT \" \";: NEXT I\n",right_count-1);
 
-  printf("1014 PRINT LEFT$(X$,L%%-1);\n");
+  printf("10014 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"); 
+  printf("10015 TP$=STR$(TP%%) : X$=RIGHT$(TP$,1) : X=VAL(X$): POKE 2039,X+48\n"); 
   /* reset text, move cursor up */
-  printf("1020 NORMAL : VTAB 1: PRINT\"\"\n");
-  printf("1030 RETURN\n");
+  printf("10020 NORMAL : VTAB 1: PRINT\"\"\n");
+  printf("10030 RETURN\n");
 }
 
 
@@ -47,12 +71,12 @@ 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("20 GOSUB 10000\n");
+   printf("30 GOSUB 9000\n");
+   printf("40 GOTO 20\n");
    printf("100 END\n");
 
+   generate_keyhandler();
    generate_footer("11 MAY 2012","ICL/UTK",40);
 
    return 0;