Add better keyboard handling

This commit is contained in:
Vince Weaver 2012-05-03 13:40:46 -04:00
parent 9fbb15b155
commit 0f0e525298

View File

@ -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;