#include <stdio.h>
#include <osbind.h>
#include <ctype.h>
#include <strings.h>

#define TRUE    1
#define FALSE   0
#define F_SUBDIR 0x10
#define LMAX    256
#define M_OFF	256
#define M_ON	257

char errbuf[LMAX];      /* error message buffer */
int cmdterm;            /* command terminator */
char line[LMAX];        /* input line buffer */
char *lptr;             /* input line pointer */
int tmp;                /* temporary file number */

char cmd[LMAX], cmd1[LMAX];         /* command name */
char arglist[LMAX];     /* argument list */
char infile[LMAX];      /* input file name */
char outfile[LMAX];     /* output file name */
char buf[8192], secbuf[512];

int inpresent;          /* input file present */
int outpresent;         /* output file present */
i~t tmpinfile;          /* input file is a temporary */
int tmpoutfile;         /* output file is a temporary */

short inhandle;         /* input file handle */
short outhandle;        /* output file handle */
short inmemory;  emory;  emory;  emory;  emory;  …À¢>ç™1PO°@J
óRûˆ©ÕÀiÉõ¸Íxðø=U—{Ôªš2DYûn'åb¾×eçª±6ã¦Ûò~8W™¬uHµµ
¶ž:¼^éÎP\¢fÖã¡<æ?uR˜o)OÄzÖ‚-M¸{Añkª·óAóì#fõ|` n-ï,z«V0«›ÇMXsN@ ( 2”(Ø¦@Z`‡¹Å\÷ì¦œXp|½.ê ñx à W ÀøÚ¡ÕLá{§rÓøÆ/»2–©æ¦Dj*ÿ©åFžd‚2Ðh|Î¦=Úqy‘LÖ*4F‹9ý1þ“×4úJs5%úÝKHˆY:¨Ã±8–‹\„ÑXµ
„UZüøšŠQÒÒqêÒÒLjRy~¥YÌÕ‘´&¦ˆÆ±¥#Õo	`šAOj­|m·ƒ•fðª2È9‹¼üÇ[úxN›ªÔ!ž¢¿§(¨Ù»³_IÄÑïT÷UÐ_ø+ éˆ{¬8k™Ez°a]f@t~'8pž7I˜Ü.U”ý»rû–ï:ÜÉEùràÇd’
ý‹×†ÀkRüEá	`@&~Úúgˆ6ÀµâÇ.#„ù€ÿý#t1…ì}á\7àáˆß¹@\ÏWxÜ§RDäàî´Þ:r[„ #ø—Éø'·•Î.þ0; .À>¯ìÞp þ1ç£kAÐþÁpn+ cÖ¡æ„[yæŒ²M—é=vÑ{à8ÙœðMø;Ä(øŽÏÅ0®Å&<“ûü&¾ê?	7“ÜË]Œòû‚!Í²÷y{óú¥L,èV¾±×G#à¢ÑB§˜^Sœ ÿ\þ\ :z^`ŠKdÒˆªûR(Ä™¨kV××ÁØ0Â=ØCÕ7«ò*C˜
î±u¥Í™ÊµÝ2³í¨ÌâTÚD[êÝ9°û«@³ÿgvP«×.[ ©-½®Ò´›TV¹¬}Ã=˜koŸzPZzÆÓˆ8t¥ÐiG<|‹$Ð÷}rÝYe×sÄ	h¸[mé4Éé •ãU_&R'ò†‡“Ùh„IøFòOU´+
±-{÷8å¾jK‹É†êYŒ»©E_‹~úÆCöˆž@I_€°ÿa¤e;€z©W¥l’=–ù·ão)nSMûýÙ%Ê%>ì£ðŒúM¡¯xð9NˆÏïÈ´ÕQ®?]–pú<êËféÃn_Dú#T SÜÀ|Q$½À!†¼ê‰Qž®»ÿFýÜf7€Wâ–…ÚwY<ÐèìIà:6J@Šß€qŒŠ÷iÝà+Õ-lh1-(  4  4²R  	cmdline.cÙ·U „pà%¶    ×ý^ÿÀÃã¬äÀ/ñ?{¯§+3–“	ÜÝû«á×˜
a]ÿ/«Ehÿ¬QùÕŽÆ
ëÏùKJ…ïƒ½áè×JMí˜K¥ÍìwæB{Ì0K×)7Îèug#I‚LI¥{2ÞHƒÍ÷„ô)#Û—a•	v§Â<8…Ã[m4eP»²Àžó¢?ôñøi.ïlU¡ÇþU,×Š6O< LÚ¸8ÚÚ$EF^œ8•ÚåF`µ]üÉ$0Ú‰,¡ ¨Æˆ¥ÁúoŠ0å*‰Ó›A o‚Qz5‹†‹	E	1ïADMNDð¤9{ì¯ßøùÕgK÷?ç[!4ÑMÌT†}AAŽœ†h¾ÿ3ö	À'"¶ì7=Šà±^!]Ù‡#;0Þ1fÛf^¾®B‰ö_ì›‡8¢ü¬Â´1~­ˆE‹ê8yx…Á’èçëcýM|Sõýß§‰‘|T>–³U	^0l¿_úR‰I½º“a‡ÞYKëåYHs—›nÀ½Mö›óÀ;îZxè+<Œ&rø+ £³°KÖ®½ß),]X«òš1¨Ñ¦Å‘èªß+?ç}]©ï8Ó»gW0eÕe‡æ0r­1vÊ5qH6Q}}ïg¾=ë³il Ì†-ƒ(¦|á×¿.Kä4âÀ—+¾°C’Ìöê½HèöåÐ§G¾-i¢íŒ‰¹™p’ãÜf¥$@­Íãä÷6Õƒc]Ó¤\}‘ÍÏûÖŠ~køO½‡Ñ„SH\;nóa[*’ÿ–\B›Ÿ] “EØBä‘SL;¢`&¾îßA 	Ð”Øa>’V6–k{eTRá-ÑÀÄA_dúp…-ñí;V* @i%9U)º³R=ýÇ%»9ÝþÔ9Pù†!ÎS|þÝo•ØÑ@Búä‰	¬øI\:ÑXÊ	d•sx›š$=–h%´	§?åìÚâˆïë³ÂCºè7Ðä>Þ ¿ò7§_NÞ é*ËaÎ{åÒÁ„hñƒÐÓî6M(Ï5ÀXÌiì1"n%Ôu£”¬IMyþ&„¯®mÅm©¢èÁ(ø²¸-Vö†{o.VªÂ³D~}”% G`*$â4üxB–$íuPY°¸©à"1PaÔ“l•*áfÇ¨=Ä#µÑìªjÍLn´xûc÷ÂÇógàSÓWÀ_à»†Ù«š(;»EmzIÒm_¥/u¨©K¾ÊÔñ`»÷ÖÀ1°\ÛÔ*â¹bW÷Á_…Èäædô©5`É¼­E1\1jkÃR6þG»óÏ}Ç¾i±Aò:j ¢çþm¾í6¼êß#û.:»¸/.Ž=Ö¶¹¹Qhñ‘’g'ëdæYb’+ƒÊÒ2º’1´Ó˜~ôƒ‚\~Æ=ísSS}ìùuÌÎÆ@x^BÜìáÓ¯Î—ÀÅg-¯yñš5Û2úÌ½´£ö[zŠ,n\§ZÞŠäT§ñs|Ê*¨IhOä›ÙØðXýÂoòi*oÓ£ÄNfZZ1QÌ¦:LÃbþŒÍ½ô7Ûö{*Ð§âª±*üiu/¤Î£†ˆæÏ!	“íŠäV öYrQåV¢øóÞReIaâR×Að¬.í)yU?Qzç’H—Œ™.ÏNÜÄm¶‹Ëñ>SˆH<-6­†Ç[žF|xû&ö¢¢Ñ—&pi‚†ýž®Ôç)ç×œ­3«€·«Ý·;æñ4–Z¯	ÍŽëiŽE˜ºìª’»˜’Ÿ 5ÛfWJ:™ÞLÕÍ_3kGÞ¸øíÝy!Y¼jvþ°y‡Bîææ¶_Rsëõ¬q´v&°#¢ìGKä{j™Ã\ÝmDåwbð†Ll§­©ýe(Ëpéx¶ú¬ãM¥2S˜M¦Ýò›ç¿9DàÞ0%úÇq=æÈne<í‹-còNSÝí›>©ˆ´#æÏÁõYÅEÇ«ÅŠ˜ÂqeéLÈ¹*õ—4/}ÈÇT:Á3O<…ã¨ô±FÌð<œéœÀSw™xVÒÇU¬¬oìš¤¼F³õÖþ\ç]µêQMp¢+ã\ÕÙXšÔ‡ª2 Ôõã"ùä¼$¼©»Ÿ½«Â¼"M0¹Ñuçêzâ¿ÓZIeB}áýÅMsS%'W$aÇîj7	¼²7ôçQ+ÈþÌ\ÚK×dQvjíÅÓ‚òÌºâùEâ°¾Ö“ðàÀóÖN&­Æ¢2…«Šo¢yä7ÓÏ=³Þ[XNZV§ìˆn;’^vªàa9\¾D}¨l“I°
/A(9…p~ŸqyW£P£˜J½{Í.ag4ùØ{HmŸ®$šÓžTD‹ñ±„_v+w€ÈOÌæF9˜ÞŒFá3lÿ£(ºß`(VOöé•½aÈus]IMR‘œ¶Ô¶õ­J³+P–?6ºÿÄË¶±ŽæÉœ·£Ú¼|ÿ“;éý_&·S<`Ý&æX°d÷0CÍöOò½N·F©Yl<˜"0P•§è7:—8x‘µ}§hˆ¿H ‚½d+"I~C Žu«à÷
ã–rÔ¢nån8ÁvQ	;ø@}†¯#‰ yL/Þi™Í)&ªHà½é%y‘ßlÁçG|Xÿ£B“üÍ€¯AªHx£ŸÊãÛSË? Õ^	æÍ„T(Ìxñg¿7‘oç,´ô›LY6œø›àÃF©ÂÁ=÷ mÂNÖŒhÁ’‰áã)¢wôXütDü
bÓ“÷èH;TTB5v{M4÷hœ³vª*üŸ²°•‡DUž¢äQª÷z¡T»¥–õþ«\ÁBIíC-C~ò?Ã¹v*¹•ñóå]“Ü–°qJÏÖ•¦fïržv·¬,|>Õ‰ÞÊ.?Z¢,Qt>…(ˆDGÒ1ÒŠ=10z=1rºz(|ãm¶)'ùË3™ÍCô&÷÷®±2ø¥$Ð0r¯þ{?¿´c™Ýl%làÌÚ/?n3MÀyêƒ ÞïŸôh´1}ìDäq€'Û¼JØú$]jbàl½4žYNã?hë ~‘†r{OÚhý‘g÷ÁßrlVXyˆ«¼;²ûhˆÿ`±ëTnÒÊd/C¯î/¿œÃ¿|7K¯Oe¹Rß°ŽÌ2g	sùùþîs,Õþ`yºï¿wŸÞ›egcÏ$Ç\™±êBEûB=&A_qøÓŽbìQ¡Ï¨®”@¸wËî»`ií«ØŽŒ=þ±Äo¶TB~Õ"ŠõbLglÀštzž¸0-FšÍ¶ÁþMï+ô†…ÚÌòUÝlTÀ£+%(°Î$qâ³t/ÿív_hide_c(handle);
                closeup();
                if (sts)
				{
                    if (tmpinfile)
                        unlink(infile);
                    if (tmpoutfile)
                        unlink(outfile);
                    sprintf(errbuf,"bad status: %d",sts);
                    return (error(errbuf));
                }
                return (TRUE);
            }
        }
    }
    closeup();


	for(i=0; i<strlen(cmd); i++)
	{
		if(isalpha(cmd[i]))
			cmd[i] = cmd[i] - 'a' + 'A';
	}

	if(strlen(cmd)<2)
	{
		drive = cmd[0] - 'A';
		Dsetdrv(drive);
	}

	if(strlen(cmd)>=2)
	{
		for(i=0; i<3; i++)
		{
			cmd1[i] = cmd[i];
		}
		for(i=3; i<=strlen(cmd); i++)
		{
			cmd[i-3] = cmd[i];
		}
		if(!strcmp(cmd1, "DIR"))
		{
			wide = FALSE; print = FALSE; fspec = FALSE;
		if(cmd[0] == '/')
			{			
			switch(cmd[1])
			{
				case 'W':
					wide = TRUE;
					if(cmd[2] == 'P')
						print = TRUE;
					break;

				case 'P':
					print = TRUE;
					if(cmd[2] == 'W')
						wide = TRUE;
					break;
		
				case 'F':
					fspec = TRUE;
					if(cmd[2] == 'W')
					{	
						wide = TRUE;
						if(cmd[3] == 'P')
							print = TRUE;
					}
					if(cmd[2] == 'P')
					{	
						print = TRUE;
						if(cmd[3] == 'W')
							wide = TRUE;
					}
					break;
				
				default:
					print = FALSE;
					wide = FALSE;
					fspec = FALSE;
					break;
			}
		}
		get_dir();

		/* clear out the /w for future dir requests */

			strcpy(cmd, "                        ");
			strcpy(cmd, "");
		}

		if(!strcmp(cmd1, "CD\\"))
		{
			strcat(cmd, "\\");
			Dsetpath(cmd); 
		}

		if(!strcmp(cmd1, "CLR"))
		{
			graf_mouse(M_OFF, 0x0L);
			v_clrwk(handle);
			graf_mouse(M_OFF, 0x0L);
			v_curhome(handle);
		}

		if(!strcmp(cmd1, "QUI"))
		{
			quit = TRUE;
		}

		if(!strcmp(cmd1, "COP"))
		{
			Cconws("Copy Files\n\r");
		}

		if(!strcmp(cmd1, "DEL"))
		{
			Cconws("Delete Files\n\r");
			Cconws("What file to delete:");
			fgets(tpath, 13, stdin);
			Fdelete(tpath);
		}

		if(!strcmp(cmd1, "FOR"))
		{
			Cconws("Format what Drive:");
			fgets(tpath,5,stdin);
			tdrive = drive; /* save current drive just in case */
			if(isalpha(tpath[0]))
			{ 	tpath[0] = tpath[0] - 'a' + 'A';
				drive = tpath[0] - 'A';
				Cconws("Format Double Sided?");
				fgets(tpath,5,stdin);
				if(isalpha(tpath[0]))
				{	tpath[0] = tpath[0] - 'a' + 'A';
					if(tpath[0] == 'Y')
						doble = TRUE;
					else doble = FALSE;
				}
				else doble = FALSE;
				Cconws("Formatting ");
				if(doble)
					Cconws("Double Sided\n\r");
				else
					Cconws("Single Sided\n\r");
				for(i=0; i<=79; i++)
				{	result = Flopfmt(buf, 0L, drive, 9, i, 0, 1, 0x87654321L, 0xE5E5);
					if(doble)
						result = Flopfmt(buf, 0L, drive, 9, i, 1, 1, 0x87654321L, 0xE5E5);
				}
				for (i=0;  i < 512;  secbuf[i++] = 0);
				for (track = 0;  track <=2;  track++)
				{
					for (i = 1;  i <= 9;  i++)
					{
						result = Flopwr(secbuf, 0L, drive, i, track, 0, 1);
					}
				}
				Protobt(secbuf, 0x10000000L, (doble+2), 0);
				Cconws("Writting Boot Sector\n\r");
				Flopwr(secbuf, 0L, drive, 1, 0, 0, 1);

				drive = tdrive;
			}
		}

		if(!strcmp(cmd1, "REN"))
		{
			Cconws("Rename Files\n\r");
			Cconws("Old Filename:");
			fgets(str, 13, stdin);
			Cconws("New Filename:");
			fgets(tpath, 13, stdin);
			Frename(0, str, tpath);
		}

	}
}

closeup()
{
    /* close the redirected input file */
    if (inpresent) {
        Fclose(inhandle);
        Fforce(0,inmemory);
    }

    /* close the redirected output file */
    if (outpresent) {
        Fclose(outhandle);
        Fforce(1,outmemory);
    }

    /* delete the temporary input file */
    if (tmpinfile)
        unlink(infile);

    /* reset the redirection flags */
    inpresent = outpresent = tmpinfile = tmpoutfile = FALSE;

    /* handle pipes */
    if (cmdterm == '|') {
        strcpy(infile,outfile);
        inpresent = TRUE;
        tmpinfile = TRUE;
    }
}

/* getfile - get an input or output file name */
getfile(file)
  char *file;
{
    int ch;
    while ((ch = cmgetc()) != EOF && !isspace(ch))
        *file++ = ch;
    cmungetc(ch);
    *file = '\0';
}

/* next - get the next element of a comma delimited list */
char *next(list,elem)
  char *list,*elem;
{
    /* check for the end of the list */
    if (*list == '\0')
        return (NULL);

    /* get the next element from the list */
  while (*list != '\0' && *list != ',')
        *elem++ = *list++;
    *elem = '\0';

    /* skip past the comma */
    if (*list == ',')
        ++list;

    /* return the tail of the list */
    return (list);
}

/* token - find the next token */
int token(tkn)
  char *tkn;
{
    int ch;

    /* skip leading spaces */
    while ((ch = cmgetc()) != EOF && isspace(ch))
        ;
    cmungetc(ch);

    /* fail if there is no token */
    if (ch == EOF)
        return (FALSE);

    /* collect the next space delimited token */
    while ((ch = cmgetc()) != EOF && !isspace(ch))
        *tkn++ = ch;
    cmungetc(ch);
    *tkn = '\0';

    /* return successfully */
    return (TRUE);
}

/* cmgetc - get a character from the command line */
int cmgetc()
{
    switch (*lptr) {
    case ';':
    case '|':
    case '\0':
    case '\r':
    case '\n':
        cmdterm = *lptr;
        return (EOF);
    default:
        return ((int)*lptr++);
    }
}

/* cmungetc - unget a character from the command line */
cmungetc(ch)
  int ch;
{
    if (ch != EOF)
        *--lptr = ch;
}

initialize()
{
	appl_init();
	handle = graf_handle(&dum, &dum, &dum, &dum);
	for(i=0; i<10; work_in[i++] = 1);
	work_in[10] = 2;
	v_opnvwk(work_in, &handle, work_out);
}

get_path(path)
char *path;
{
	*path++ = ((drive = Dgetdrv())+'A');
	*path++ = ':';
	*path++ = '\\';
}

int error(msg)
  char *msg;
{
    printf("Error: %s\n",msg);
    return (FALSE);
}

get_dir()
{
	char str1[60];
	char dta[44];
	int end = 0;

	strcpy(tpath1, "");

	if(fspec)
	{
		Cconws("What Filespec to search for:");
		fgets(tpath,13,stdin);
		strcat(tpath1,tpath);
	}
	else
		strcat(tpath1, "*.*");
	Fsetdta(dta);


	end = Fsfirst(tpath1, F_SUBDIR);
	if(dta[21] & F_SUBDIR)
	{
		strcpy(str1, "*");
		if(print)
			Cprnout("*");
		for(i=30; i<44; i++)
		{
			str1[i-29] = dta[i];
			if(print)
				Cprnout(dta[i]);
		}
		strcat(str1, "");
		Cconws(str1);
		if(wide)
		{
			/* print 5 accross */
			wide++;
			if(wide > 6)
			{
				wide = TRUE;
				Cconws("\r\n");
				if(print)
				{Cprnout(13); Cprnout(11);}
			}
			else
			{
				Cconws("  ");
				if(print)
				{
					Cprnout(32);
					Cprnout(32);
				}
			}
		}
		else
		{
			Cconws("\r\n");
			if(print)
				{Cprnout(13); Cprnout(11);}
		}	 
	}

	while(end >-1)
	{
		end = Fsnext();
		if(dta[21] & F_SUBDIR)
		{
			strcpy(str1, "*");
			for(i=30; i<44; i++)
			{
				str1[i-29] = dta[i];
				if(print)
					Cprnout(dta[i]);
			}
			strcat(str1, "");
			Cconws(str1);
			if(wide)
			{
				/* print 5 accross */
				wide++;
				if(wide > 6)
				{
					wide = TRUE;
					Cconws("\r\n");
					if(print)
						{Cprnout(13); Cprnout(11);}
				}
				else
					Cconws("  ");
					if(print)
					{
						Cprnout(32);
						Cprnout(32);
					}
			}
			else
			{
				Cconws("\r\n");
				if(print)
					{Cprnout(13); Cprnout(11);}
			}
		}			
	}

	end = Fsfirst(tpath1, 2);

	for(i=30; i<44; i++)
	{
		str1[i-30] = dta[i];
		if(print)
			Cprnout(dta[i]);
	}
	strcat(str1, "");
	Cconws(str1);
	if(wide)
	{
		/* print 5 accross */
		wide++;
		if(wide > 6)
		{
			wide = TRUE;
			Cconws("\r\n");
			if(print)
				{Cprnout(13); Cprnout(11);}
		}
		else
		{
			Cconws("  ");
				if(print)
				{
					Cprnout(32);
					Cprnout(32);
				}
		}
	}
	else
	{
		Cconws("\r\n");				 
		if(print)
			{Cprnout(13); Cprnout(11);}
	}
	while(end > -1)
	{
		end = Fsnext();
		if(end >-1)
		{
		for(i=30; i<44; i++)
		{
			str1[i-30] = dta[i];
			if(print)
				Cprnout(dta[i]);
		}
		strcat(str1, "");
		Cconws(str1);
		if(wide)
		{
			/* print 5 accross */
			wide++;
			if(wide > 6)
			{
				wide = TRUE;
				Cconws("\r\n");
				if(print)
					{Cprnout(13); Cprnout(11);}
			}
			else
			{
				Cconws("  ");
				if(print)
				{
					Cprnout(32);
					Cprnout(32);
				}
			}
		}
		else
		{
			Cconws("\r\n");
			if(print)
				{Cprnout(13); Cprnout(11);}
			}
		}
	}
	Cconws("\r\n");
}