Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-10-10 08:23:49 +00:00
Code Issues Projects Releases Wiki Activity

mode7: update text demo

Browse Source
This commit is contained in:
Vince Weaver 2018-01-24 12:31:05 -05:00
parent 7549e2dc51
commit 3d2f707a9e
1 changed files with 61 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
gr-sim/text_demo.c
View File

@ -6,6 +6,8 @@
#include "gr-sim.h"
#include "tfv_zp.h"
#define STEPS 10
#define NUM_CREDITS 10
@ -20,6 +22,12 @@
**************************************************
#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",
@ -45,22 +53,53 @@ int main(int argc, char **argv) {
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(23);
basic_vtab(WING_LOCATION);
basic_print(" ");
basic_htab(i+33);
basic_vtab(23);
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(" ");
@ -74,6 +113,25 @@ int main(int argc, char **argv) {
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);