1
0
mirror of https://github.com/RevCurtisP/C02.git synced 2024-11-25 06:31:25 +00:00
C02/test/sioxtest.c02

155 lines
2.3 KiB
Plaintext
Raw Normal View History

/************************************
* SIOXTEST - Test module stdiox.h *
************************************/
//Specify System Header using -H option
#include <screen.h02>
#include <stddef.h02>
#include <stdlib.h02>
#include <intlib.h02>
#include <stdio.h02>
#include <stdiox.h02>
char i, j;
const char s = "STRING";
char w,nlm,akm;
void pause() {if (anykey() == #ESCKEY) goto exit;}
main:
if (getsiz() > 40) {
nlm = 15; akm = 255;
} else {
nlm = 7; akm = 127;
}
getcpr("PRESS A KEY TO BEGIN");
i = 0;
//goto doprtf;
putln("PUTDEC()");
do {
putdec(i);
putc(':');
i++;
if (!i&nlm) newlin();
if (!i&akm) pause();
} while (i);
putln("PUTDEL()");
do {
putdel(i);
putc(':');
i++;
if (!i&nlm) newlin();
if (!i&akm) pause();
} while (i);
putln("PUTDER()");
do {
putder(i);
putc(':');
i++;
if (!i&nlm) newlin();
if (!i&akm) pause();
} while (i);
putln("PUTDEZ()");
do {
putdez(i); putc(':');
i++;
if (!i&nlm) newlin();
if (!i&akm) pause();
} while (i);
putln("PUTDEH()");
do {
putdeh(i); putc(':');
i++;
if (!i&nlm) newlin();
if (!i&akm) pause();
} while (i);
putln("PUTHEX()");
do {
puthex(i);
putc(':');
i++;
if (!i&nlm) newlin();
if (!i&akm) pause();
} while (i);
putln("PUTNYB()");
do {
putnyb(i);
putc(':');
i++;
if (!i&nlm) newlin();
if (!i&akm) pause();
} while (i);
tstint:
nlm>>; akm>>;
putln("PUTINT()");
do {
putint(.,0,i); putc(':');
i++;
if (!i&nlm) newlin();
if (!i&akm) pause();
} while (i);
do {
j = i ^ $FF;
putint(.,i,j); putc(':');
i++;
if (!i&nlm) newlin();
if (!i&akm) pause();
} while (i);
dopinr: putln("PUTINR()");
do {
putinr(.,0,i); putc(':');
i++;
if (!i&nlm) newlin();
if (!i&akm) pause();
} while (i);
do {
j = i ^ $FF;
putinr(.,i,j); putc(':');
i++;
if (!i&nlm) newlin();
if (!i&akm) pause();
} while (i);
putln("PUTWRD(), PUTSQB()");
do {
j = i ^ $FF;
putwrd(.,i,j); putc(',');
putsqb(.,i,j); putc(':');
i++;
if (!i&nlm) newlin();
if (!i&akm) pause();
} while (i);
doprtf:
do {
if (!i&15) putln("%C %X %Y .%R %L. %Z %h %D%%");
if (i<32) printf(i, " %x %y %r %l %z %h %d%%%n");
else printf(i," %c %x %y %r %l %z %h %d%%%n");
i++; if (!i& 15) pause();
} while (i<128);
doprts:
putln("%W.. %Q. '%S' ...%J %I");
setdst(&s);
printf("%w %q '%s' %j %i%n");
done:
goto exit;