C02/test/argtest.c02

/*******************************************
 * 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;