mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-04 05:05:13 +00:00
195 lines
3.1 KiB
C
195 lines
3.1 KiB
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;
|
|
}
|