mirror of https://github.com/RevCurtisP/C02.git
34 lines
649 B
Plaintext
34 lines
649 B
Plaintext
/*******************************************
|
|
* 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>
|
|
|
|
char c,n,p,r;
|
|
char arg[128];
|
|
|
|
main:
|
|
|
|
if (#ARGFLG) putln("ARGS NOT SUPPORTED");
|
|
|
|
p = argset(); printf(p, "ARGSET() = %d%n");
|
|
if (p) putln("NO ARGS SPECIFIED");
|
|
|
|
do {
|
|
r = argget(arg);
|
|
printf(r, "ARGGET() = %d, ARG = %s%n");
|
|
} while (r);
|
|
|
|
goto exit;
|
|
|