mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-12-25 05:29:34 +00:00
Start work on "asoft_present" a tool for generating presentations
Currently it mostly displays a footer with page numbering info.
This commit is contained in:
parent
155465ffd0
commit
6feb2ba58a
26
asoft_present/Makefile
Normal file
26
asoft_present/Makefile
Normal file
@ -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
|
||||
|
59
asoft_present/generate_presentation.c
Normal file
59
asoft_present/generate_presentation.c
Normal file
@ -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;
|
||||
}
|
BIN
asoft_present/test.dsk
Normal file
BIN
asoft_present/test.dsk
Normal file
Binary file not shown.
Loading…
Reference in New Issue
Block a user