#!/home/groups/n/nu/cgi-bin
# NucOS Dev Team Presents
# NucOS Kiwi (or NucOS 1.CGI)
# By nucos (Jordan)
# Adaptation of NucOS for DOS and Command Prompt Windows
package main;
sub prompt {
print "NucOS Kiwi (NucOS 1.CGI);
print "ShareRight 2002 under MPL1.0";
print "";
print "";
print "";

print "Type list for a list of commands";
print "Type exit to quit";
print "All commands must be in lower-case.";
stdin $com1;
}
if $com1 = "list" then {
	print "This lists all the commands supported in NucOS 	Kiwi";
	print "list: The program running now.";
	print "chatter: Runs the Chatter game.";
	print "shutup: Runs the Shut Up Time Waster 		program.";
	print "ohjoy: Runs the Oh Joy Time Waster program";
	print calqlater or calculator: Runs the calculator";
	print "credits: Runs the credits";
	print "exit: Exits NucOS Kiwi";
	print "";
	print "Please type 'done' now to redirect to the 		prompt";
	stdin $redirp;
	if $redirp = "done" then goto prompt;
	}
if $com1 = "chatter" then {
	# This version is for the NucOS Kiwi version :only:
	print "ChatterBox-t"
	print " This program is still in development for 	porting to NucOS Kiwi.";
	print " If you would like to do this, please download 	the QuickBasic (QBasic) version of the files";
	print " At http://nucos.sourceforge.net/dl.html";
	print " And send me the finished product. Thanks :)";
	}
if $com1 = "shutup" then {
	# If you know how to do loops, etc in CGI well
	# Feel free to study the original source available
	# At http://nucos.sourceforge.net/dl.html
	# And re-do this program.
	print "The ShutUp Time Waster";
	print "Tell me something, please.";
	stdin $tellmes;
	print "Shut up!";
	print "Glad to waste your time.
	}
if $com1 = "ohjoy" then {
	# Sorry, still in development
	}
