mirror of
https://github.com/cc65/cc65.git
synced 2026-04-25 22:18:27 +00:00
simple conio support for GEOS
git-svn-id: svn://svn.cc65.org/cc65/trunk@1093 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
@@ -0,0 +1,34 @@
|
||||
|
||||
#include <geos.h>
|
||||
#include <conio.h>
|
||||
|
||||
void main(void) {
|
||||
|
||||
char ch;
|
||||
|
||||
DlgBoxOk("Now the screen will be", "cleared.");
|
||||
|
||||
clrscr();
|
||||
|
||||
DlgBoxOk("Now a character will be", "written at 20,20");
|
||||
|
||||
gotoxy(20,20);
|
||||
cputc('A');
|
||||
|
||||
DlgBoxOk("Now a string will be", "written at 0,1");
|
||||
|
||||
cputsxy(0,1, CBOLDON "Just" COUTLINEON "a " CITALICON "string." CPLAINTEXT );
|
||||
|
||||
DlgBoxOk("Write text and finish it", "with a dot.");
|
||||
|
||||
cursor(1);
|
||||
do {
|
||||
ch = cgetc();
|
||||
cputc(ch);
|
||||
} while (ch!='.');
|
||||
|
||||
DlgBoxOk("Seems that it is all.", "Bye.");
|
||||
|
||||
EnterDeskTop();
|
||||
|
||||
}
|
||||
@@ -0,0 +1,8 @@
|
||||
|
||||
; this is resource file for hello1.c, a GEOS application example
|
||||
|
||||
HEADER APPLICATION "conio" "ConIO" "V0.1" {
|
||||
dostype USR
|
||||
author "Maciej Witkowiak"
|
||||
info "This is an example for a conio app."
|
||||
}
|
||||
Reference in New Issue
Block a user