6502/C02
1
0
Fork 0
mirror of https://github.com/RevCurtisP/C02.git synced 2024-11-22 01:31:33 +00:00
Code Issues Projects Releases Wiki Activity

argtest.c02 with prtbfr function

Browse Source
This commit is contained in:
Curtis F Kaylor 2021-09-19 22:05:35 -04:00
parent dee6b20bba
commit 92f1611315
1 changed files with 47 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
test/argtest.c02 Normal file
View File

@ -0,0 +1,47 @@
/*******************************************
* ARGS - Test/Demo Command Line Arguments *
*******************************************/
//Specify System Header using -H option
#include <screen.h02>
#include <stddef.h02>
#include <stdlib.h02>
#include <intlib.h02>
#include <args.h02>
#include <ctype.h02>
#include <stdio.h02>
#include <stdiox.h02>
#include <string.h02>
#include <stringl.h02>
#include <stringm.h02>
char c,n,r;
char arg[128];
int p;
void prtbfr() {
for (n=0; n<#SYSBFL; n++) {
c = sysbfr[n];
select (c) {
case 0: putc('@');
default: if (c < ' ') putc('.');
else putc(c);}
}
newlin();
}
main:
r,p = setarg();
if (r) {putln("NO ARGS"); goto exit;}
putln("ARGS");
n = 0;
while () {
setsrc(p); p = strget(arg);
if (arg[0] == 0) break;
setdst(arg); printf(n, "%d %s%n");
n++;
}
goto exit;