mirror of
https://github.com/bobbimanners/EightBall.git
synced 2024-09-27 13:56:07 +00:00
Added code to switch to 80 column mode on Apple II
This commit is contained in:
parent
2430106db3
commit
70bbad1bbe
15
eightball.c
15
eightball.c
@ -152,18 +152,18 @@ void getln(char *str, unsigned char buflen) {
|
||||
* Handle backspace and delete keys
|
||||
* TODO: I would sooner not use these conio functions.
|
||||
* However this works for now.
|
||||
* TODO: This assumes 40 column mode and does strange things
|
||||
* in 80 cols!
|
||||
* TODO: This assumes 80 column mode and does strange things
|
||||
* in 40 cols!
|
||||
*/
|
||||
key = *(str+j);
|
||||
if (key == KEY_BACKSPACE) {
|
||||
xpos = wherex();
|
||||
ypos = wherey();
|
||||
if ((xpos == 1) && (ypos != 0)) {
|
||||
xpos = 39;
|
||||
xpos = 79;
|
||||
--ypos;
|
||||
} else if ((xpos == 0) && (ypos != 0)) {
|
||||
xpos = 38;
|
||||
xpos = 78;
|
||||
--ypos;
|
||||
} else if (xpos > 1) {
|
||||
xpos -= 2;
|
||||
@ -3681,8 +3681,6 @@ main() {
|
||||
|
||||
/* Disable RUNSTOP/RESTORE */
|
||||
POKE(808, 100);
|
||||
#elif defined(A2E)
|
||||
revers(1);
|
||||
#endif
|
||||
|
||||
calllevel = 1;
|
||||
@ -3694,8 +3692,11 @@ main() {
|
||||
current = NULL;
|
||||
|
||||
#ifdef A2E
|
||||
videomode(VIDEOMODE_80COL);
|
||||
revers(1);
|
||||
print(" *** EIGHTBALL V0.4RC *** \n");
|
||||
print(" *** (C)BOBBI, 2017 *** \n\n");
|
||||
revers(0);
|
||||
#elif defined(C64)
|
||||
print(" *** EightBall v0.4RC *** ");
|
||||
print(" *** (c)Bobbi, 2017 *** \n\n");
|
||||
@ -3710,8 +3711,6 @@ main() {
|
||||
#ifdef CBM
|
||||
printchar(144); /* Black */
|
||||
printchar(146); /* Reverse Off */
|
||||
#elif defined(A2E)
|
||||
revers(0);
|
||||
#endif
|
||||
print("Free Software.\n");
|
||||
print("Licenced under GPL.\n\n");
|
||||
|
BIN
eightball.system
BIN
eightball.system
Binary file not shown.
Loading…
Reference in New Issue
Block a user