mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-20 03:35:24 +00:00
137 lines
2.2 KiB
C
137 lines
2.2 KiB
C
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <unistd.h>
|
|
|
|
#include <string.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 ch,i,j,k;
|
|
|
|
grsim_init();
|
|
|
|
home();
|
|
gr();
|
|
|
|
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_print(" ");
|
|
|
|
basic_htab(33);
|
|
basic_vtab(21);
|
|
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;
|
|
}
|