Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-02-20 16:29:14 +00:00
Code Issues Projects Releases Wiki Activity

mode7: update text_demo

Browse Source
This commit is contained in:
Vince Weaver 2018-01-09 00:42:15 -05:00
parent 5889cca76b
commit d506bff1a0
1 changed files with 107 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

115
gr-sim/text_demo.c
View File

@ -2,40 +2,135 @@
#include <stdlib.h> #include <stdlib.h>
#include <unistd.h> #include <unistd.h>
#include <string.h>
#include "gr-sim.h" #include "gr-sim.h"
#define STEPS 10
#define NUM_CREDITS 10
#if 0
0 1 2 3
0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9
**************************************************
** T H A N K S T O : **
**************************************************
**************** A L L M S T I E S E V E R Y W H E R E *****************
**************************************************
#endif
char credits[NUM_CREDITS][22]={
"FROGGYSUE",
"PIANOMAN08",
"UTOPIA BBS",
"THE 7HORSEMEN",
"WEAVE'S WORLD TALKER",
"STEALTHSUSIE",
"ECE GRAD BOWLING",
"CORNELL GCF",
"ALL MSTIES EVERYWHERE",
"...",
};
int main(int argc, char **argv) { int main(int argc, char **argv) {
int ch,i; int ch,i,j,k;
char string[]="HELLO WORLD!";
grsim_init(); grsim_init();
home(); home();
gr(); gr();
basic_htab(10); color_equals(15);
hlin_double(PAGE0,7,32,38);
basic_inverse();
for(i=0;i<8;i++) {
basic_htab(i+1);
basic_vtab(23);
basic_print(" ");
basic_htab(i+33);
basic_vtab(23);
basic_print(" ");
}
for(i=7;i<33;i++) {
basic_htab(i+1);
basic_vtab(22);
basic_print(" ");
basic_htab(i+1);
basic_vtab(24);
basic_print(" ");
}
basic_htab(8);
basic_vtab(21); basic_vtab(21);
basic_print(" ");
basic_htab(33);
basic_vtab(21);
basic_print(" ");
basic_normal();
basic_htab(12);
basic_vtab(21);
basic_print("SPECIAL THANKS TO:");
while(1) { while(1) {
ch=grsim_input(); ch=grsim_input();
if (ch!=0) break; if (ch!=0) break;
} }
for(k=0;k<NUM_CREDITS;k++) {
for(i=0;i<strlen(credits[k]);i++) {
credits[k][i]-=STEPS;
if (credits[k][i]<0x20) credits[k][i]+=0x40;
}
}
while(1) { for(k=0;k<NUM_CREDITS;k++) {
basic_htab(14);
basic_vtab(21); basic_htab(9);
basic_print(string); basic_vtab(23);
basic_print(" ");
for(j=0;j<STEPS;j++) {
for(i=0;i<strlen(credits[k]);i++) {
credits[k][i]++;
if (credits[k][i]>0x5f) credits[k][i]=0x20;
}
basic_htab( ((40-strlen(credits[k]))/2)+1 );
basic_vtab(23);
basic_print(credits[k]);
grsim_update(); grsim_update();
ch=grsim_input(); ch=grsim_input();
if (ch!=0) break;
if (ch=='q') break; usleep(80000);
usleep(100000);
} }
ch=grsim_input();
if (ch!=0) break;
sleep(1);
}
while(1) {
grsim_update();
ch=grsim_input();
if (ch!=0) break;
usleep(100000);
}
return 0; return 0;
} }