dos33fsprogs/gr-sim/text_demo.c

#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>

#include <string.h>

#include "gr-sim.h"

#include "tfv_zp.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

/* Ended up almost like the Electric Company Logo */
/* Should I use orange and yellow as the colors? */

#define LINE_COLORS	0x75
//#define LINE_COLORS	0x9d

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 ch,i,j,k;

	grsim_init();

	home();
	gr();

	color_equals(15);
	hlin_double(PAGE0,7,32,38);

	ram[COLOR]=LINE_COLORS;
	hlin_double(PAGE0,0,6,38);
	hlin_double(PAGE0,33,40,38);

	hlin_double(PAGE0,8,31,36);

	ram[COLOR]=LINE_COLORS&0xf0;

	hlin_double(PAGE0,7,7,36);
	hlin_double(PAGE0,32,32,36);

	basic_inverse();

#define WING_LOCATION 21
#define WING_LOCATION2 23

	/* Side wings */
	for(i=0;i<8;i++) {
		basic_htab(i+1);
		basic_vtab(WING_LOCATION);
		basic_print(" ");

		basic_htab(i+33);
		basic_vtab(WING_LOCATION);
		basic_print(" ");
	}


	/* Side wings */
	for(i=0;i<8;i++) {
		basic_htab(i+1);
		basic_vtab(WING_LOCATION2);
		basic_print(" ");

		basic_htab(i+33);
		basic_vtab(WING_LOCATION2);
		basic_print(" ");
	}


	/* box middle/bottom */
	for(i=7;i<33;i++) {
#if 0
		basic_htab(i+1);
		basic_vtab(22);
		basic_print(" ");
#endif
		basic_htab(i+1);
		basic_vtab(24);
		basic_print(" ");
	}

	basic_htab(8);
	basic_vtab(21);
	basic_print(" ");

	basic_htab(33);
	basic_vtab(21);
	basic_print(" ");

#if 0
	basic_htab(8);
	basic_vtab(22);
	basic_print(" ");

	basic_htab(33);
	basic_vtab(22);
	basic_print(" ");
#endif

	basic_htab(8);
	basic_vtab(23);
	basic_print(" ");

	basic_htab(33);
	basic_vtab(23);
	basic_print(" ");


	basic_normal();

	basic_htab(12);
	basic_vtab(21);
	basic_print("SPECIAL THANKS TO:");



	while(1) {
		ch=grsim_input();
		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;
		}
	}

	for(k=0;k<NUM_CREDITS;k++) {

		basic_htab(9);
		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();

			ch=grsim_input();
			if (ch!=0) break;

			usleep(80000);

		}

		ch=grsim_input();
		if (ch!=0) break;

		sleep(1);
	}

	while(1) {
		grsim_update();
		ch=grsim_input();
		if (ch!=0) break;
		usleep(100000);
	}


	return 0;
}