1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
#include <conio.h>
#include <stdio.h>
#include <peekpoke.h>
#define FILENAME "H:PORTSTAT.DAT"
/* 0-based. Set to 1 because we don't include the top
row (all spaces anyway) */
#define TOPLINE 1
/* Used to be 15, taipan.c now draws the horizontal line itself */
#define LINES 14
void port_stats() {
cursor(0);
clrscr();
chlinexy(1, 1, 26);
chlinexy(1, 7, 26);
chlinexy(1, 13, 26);
cvlinexy(0, 2, 5);
cvlinexy(27, 2, 5);
cvlinexy(0, 8, 5);
cvlinexy(27, 8, 5);
chlinexy(0, 15, 40);
cputcxy(0, 1, 17); // upper left corner
cputcxy(0, 7, 1); // |-
cputcxy(0, 13, 26); // lower left corner
cputcxy(27, 1, 5); // upper right corner
cputcxy(27, 7, 4); // -|
cputcxy(27, 13, 3); // lower right corner
cputsxy(1, 2, "Hong Kong Warehouse");
cputsxy(4, 3, "Opium In use");
cputsxy(4, 4, "Silk ");
cputsxy(4, 5, "Arms Vacant");
cputsxy(4, 6, "General ");
cputsxy(1, 8, "Hold ");
cputsxy(16, 8, "Guns ");
cputsxy(4, 9, "Opium ");
cputsxy(4, 10, "Silk ");
cputsxy(4, 11, "Arms ");
cputsxy(4, 12, "General ");
cputsxy(32, 2, "Date");
cputsxy(29, 3, "15 ");
cputsxy(30, 5, "Location");
cputsxy(32, 8, "Debt");
cputsxy(29, 11, "Ship Status");
cputsxy(0, 14, "Cash: ");
cputsxy(20, 14, "Bank: ");
gotoxy(0, 17);
}
void finish(void) {
printf("You can exit the emulator now.\n");
while(1)
;
}
int main(void) {
char *screenmem = (char *) (PEEK(88)+256*PEEK(89));
FILE *f = fopen(FILENAME, "wb");
if(!f) {
printf("\nCan't create " FILENAME "\n");
printf("Is the H: device configured?\n");
finish();
}
port_stats();
fwrite(screenmem + (40 * TOPLINE), 40, LINES, f);
fclose(f);
printf("\n" FILENAME " written\n");
finish();
return 0;
}
|
