X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=lib%2Ffortran%2Fvpunch-help%2Fuse.c;h=7eb9a5b1e97a46fbbeff8322bb47a5646b449ab6;hb=0c71589b599fb65b2faaf0d19e1054e72bac7d08;hp=f79401c612507c06cf101065710ac051cf340cff;hpb=f020a29eadb9a6e0a0343e0fae9f7bf03941bde2;p=h316.git

diff --git a/lib/fortran/vpunch-help/use.c b/lib/fortran/vpunch-help/use.c
index f79401c..7eb9a5b 100644
--- a/lib/fortran/vpunch-help/use.c
+++ b/lib/fortran/vpunch-help/use.c
@@ -1,8 +1,7 @@
-
-extern char fontdata_8x16[4096];
-
 #include <stdio.h>
 
+extern unsigned char fontdata[4096];
+
 signed  short cb (unsigned char a, unsigned char b){
     short result=a<<8;
     result+=b;
@@ -19,13 +18,12 @@ char tw(char in){
 }
 
 int main (int argc, char ** argv){
-//    printf("Hallo, Welt!\n");
     int c;
     int a;
-    for (c=0; c<4096; c++) fontdata_8x16[c]=tw(fontdata_8x16[c]);
+    for (c=0; c<4096; c++) fontdata[c]=tw(fontdata[c]);
     printf("\tSUBR\tFONT\n");
     for (a=0; a<256; a++){
-	char * fd =fontdata_8x16 + (a<<4);
+	char * fd =fontdata + (a<<4);
 	if (a==0) printf("FONT\t"); else printf("\t");
 	printf("DEC\t%i,%i,%i,%i\n\tDEC\t%i,%i,%i,%i\n",
 	cb(fd[0],fd[1]),cb(fd[2],fd[3]),cb(fd[4],fd[5]), cb(fd[6],fd[7]),