/* PopInfo v3.1 © Copyright 1989 Jonathan Potter

   This program is Public Domain - use it, don't abuse it.

   Jon. */

#include "PopInfo.h"

void main(argc,argv)
int argc;
char *argv[];
{
	int message,code;
	int wmess, tmp;
	char d[8];
	OpenAll();
	CheckMemoryForViruses();
	Window=(struct Window *) OpenWindow(&SWindow);
	if (Window==NULL) CloseUp(10);
	(void) SetTaskPri(FindTask((char *) 0), 20);
	if (Window->IFont->tf_YSize>8)
		mesg.ITextFont=&TopazText;
	scr=Window->WScreen;
	ScreenHeight=scr->Height;
	ScreenWidth=scr->Width;
	checkbbs=0;
	if (argc>=1 && (strncmp(argv[1],"-n",2))==0) checkbbs=1;
	numdevs=countdevices();
	oldtop=10; oldleft=0; oldw=639; oldh=50+(9*numdevs);
	maxnumdevs=(ScreenHeight-50)/9;
	onumdevs=numdevs;

	for(;;) {
		waitaround:
		if (((struct Window *) IntuitionBase->ActiveWindow)!=Window && flag==1
				&& popflag==0) goto inactivate;
		if (flag==1) OnGadget(&popstaygad,Window,NULL);
		wmess=Wait(WINDOWMESSAGE | TIMERMESSAGE);
		if (wmess&TIMERMESSAGE) {
			Msg=GetMsg(TimerPort);
			if (flag==1) goto partialrefresh;
			TimeReq.tr_time.tv_secs=0;
			TimeReq.tr_time.tv_micro=1000000;
			SendIO((char *) &TimeReq.tr_node);
			goto waitaround;
		}
		Msg=(struct Message *) GetMsg(Window->UserPort);
		message=Msg->Class;
		code=Msg->Code;
		ReplyMsg((struct Message *) Msg);
		switch (message) {

			case CLOSEWINDOW:

				CloseUp(0);

			case GADGETUP:

				if (flag==1) {
					if (popflag==0) popflag=1;
					else popflag=0;
					goto waitaround;
				}
				flag=1;
				oldtop=Window->TopEdge;
				oldleft=Window->LeftEdge;
				CloseWindow(Window);
				numdevs=countdevices();
				if (numdevs!=onumdevs) {
					if (oldh==(50+(9*onumdevs))) oldh=50+(9*numdevs);
					onumdevs=numdevs;
				}
				if (numdevs>maxnumdevs) numdevs=maxnumdevs;
				MWindow.TopEdge=oldtop;
				MWindow.LeftEdge=oldleft;
				MWindow.Width=oldw;
				MWindow.Height=oldh;
				MWindow.MaxHeight=50+(9*numdevs);
				if (oldh==(50+(9*onumdevs)))
					MWindow.Height=50+(9*numdevs);
				if (ScreenHeight-oldtop<50+(9*numdevs) && onumdevs!=numdevs)
					MWindow.TopEdge=(ScreenHeight-(50+(9*numdevs)));
				if (oldleft>(ScreenWidth-oldw)) MWindow.LeftEdge=ScreenWidth-oldw;
				if (oldtop>(ScreenHeight-oldh)) MWindow.TopEdge=ScreenHeight-oldh;
				onumdevs=numdevs;
				Window=(struct Window *) OpenWindow(&MWindow);
				if (Window==NULL) CloseUp(10);
				SetWindowTitles(Window,-1L,wintit);
				refreshwindow:
				sbbflag=0;
				cidcmp(0);
				OffGadget(&popstaygad,Window,NULL);
				SetAPen(iprint,0);
				RectFill(iprint,6,10,Window->Width-3,Window->Height-11);
				RectFill(iprint,17,Window->Height-10,Window->Width-17,Window->Height-2);
				SetAPen(iprint,3);
				mesg.FrontPen=3;
				sprintf(txt,"Unit Bytes     Used      Free      Ers WPS SBB Name");
				PrintIText(iprint,&mesg,-4,1);
				mesg.FrontPen=2;
				sprintf(txt,"____ _________ _________ _________ ___ ___ ___ ______________________________");
				PrintIText(iprint,&mesg,-4,2);
				mesg.FrontPen=1;
				y=12;
				Forbid();
				devlist=(struct DeviceList *) BADDR(dosinfo->di_DevInfo);
				while (devlist) {
					if (devlist->dl_Type!=DLT_DEVICE) {
						devlist=(struct DeviceList *) BADDR(devlist->dl_Next);
						continue;
					}
					conbstr((BPTR) devlist->dl_Name,devname);
					strcat(devname,":");
					if (devlist->dl_Task) {
						point1[0]=0;
						dnum=-1; nodisk=0; nondos=0; bbmess="N/A"; status="R/W";
						if (devname[0]==68 && devname[1]==70) dnum=devname[2]-48;
						if (dnum!=-1) {
							if (checkbbs==1) bbmess="N/C"; else bbmess="Yes";
							nodisk=diskpresent(dnum);
							if (nodisk==1) goto display;
							if (checkbbs!=1) {
								ReadBlock(dnum);
								point2=diskbuffer;
								point1=diskbuffer;
								if (point1[0]!=ID_DOS_DISK) {
									nondos=2;
									if (point1[0]==ID_UNREADABLE_DISK) nondos=1;
									if (point1[0]==ID_KICKSTART_DISK) nondos=3;
									goto display;
								}
								sum=0;
								for (a=0;a<256;a++) {
									lastsum=sum;
									sum=sum+point2[a];
									if (lastsum>sum) sum++;
								}
								if (sum!=0) {
									nsbb[dnum]=0;
									bbmess="NBB";
									goto display;
								}
								point2=&diskbuffer[4];
								for (x=0;x<39;x++) {
									if (diskbuffer[x+8]!=bootblock[x+8]) {
										nsbb[dnum]=1;
										sbbflag=1;
										bbmess="No";
										break;
									}
								}
								if ((CheckBlock(1))==FALSE) bbmess="VIR";
							}
						}
					display:
					if (nodisk==1) sprintf(txt,"%-4s No disk present in drive.", devname);
					else if (nondos==1)	sprintf(txt,"%-4s Unreadable disk.", devname);
					else if (nondos==2) sprintf(txt,"%-4s Not a DOS disk.", devname);
					else if (nondos==3)	sprintf(txt,"%-4s Kickstart disk.", devname);
					if (nodisk==0 && nondos==0) {
						if ((lock=Lock(devname,ACCESS_READ))==0) {
							nondos=1; goto display;
						}
						Info(lock,data);
						Examine(lock,finfo);
						if (data->id_DiskState==ID_VALIDATING)
							sprintf(txt,"%-4s Validating.", devname);
						else {
							volumename=finfo->fib_FileName;
							if ((strncmp(devname,"RAM:",4))==0 && volumename==NULL)
								volumename="RAM Disk";
							if (data->id_DiskState==ID_WRITE_PROTECTED) status="R O";
							sprintf(txt,"%-4s %-9ld %-9ld %-9ld %-3ld %-3s %-3s %-30s",
								devname,
								data->id_BytesPerBlock*data->id_NumBlocks,
								data->id_BytesPerBlock*data->id_NumBlocksUsed,
								(data->id_BytesPerBlock*data->id_NumBlocks)-
									(data->id_BytesPerBlock*data->id_NumBlocksUsed),
								data->id_NumSoftErrors,
								status,
								bbmess,
								volumename);
						}
					}
					PrintIText(iprint,&mesg,-4,y);
					if (nodisk==0 && nondos==0) {
						if (nsbb[dnum]>0) {
							sprintf(txt,"                                           %-3s",bbmess);
							if (nsbb[dnum]==1) mesg.FrontPen=2;
							else mesg.FrontPen=3;
							PrintIText(iprint,&mesg,-4,y);
							mesg.FrontPen=1;
							nsbb[dnum]=0;
						}
						UnLock(lock);
					}
					nondos=0; nodisk=0; dnum=0; y+=9;
				}
			devlist=(struct DeviceList *) BADDR(devlist->dl_Next);
			}
			Permit();
			fast=FASTMEMORY;
			chipt=CHIPMEMORY;
			total=TOTALMEMORY;
			getclk(d);
			day=d[3];
			month=d[2];
			year=d[1]+80;
			hours=d[4];
			mins=d[5];
			secs=d[6];
			if (ScreenHeight==200 || ScreenHeight==400) {
				tmp=month; month=day; day=tmp;
			}
			y+=5;
			mesg.FrontPen=2;
			sprintf(txt,"            FREE MEMORY      :             :             :");
			PrintIText(iprint,&mesg,-4,y);
			mesg.FrontPen=3;
			sprintf(txt,"                         FAST          CHIP         TOTAL");
   		PrintIText(iprint,&mesg,-4,y);
			mesg.FrontPen=1;
			sprintf(txt,"                              %-7ld       %-6ld        %-7ld",
				fast,chipt,total);
			PrintIText(iprint,&mesg,-4,y);
			mesg.FrontPen=3;
			sprintf(txt,"                         TIME          DATE");
			PrintIText(iprint,&mesg,-4,y+9);
			mesg.FrontPen=2;
			sprintf(txt,"                                :  :          /  /");
			PrintIText(iprint,&mesg,-4,y+9);
			mesg.FrontPen=1;
			sprintf(txt,"                              %02d %02d %02d      %02d %02d %02d",
 			  hours,mins,secs,day,month,year);
			PrintIText(iprint,&mesg,-4,y+9);
			RefreshGadgets(Window->FirstGadget,Window,NULL);
			SizeWindow(Window,0,0);
			OnGadget(&popstaygad,Window,NULL);
			cidcmp(1);
			goto waitaround;

			case RAWKEY:
				if (code!=0x40) goto waitaround;
				oldtop=Window->TopEdge;
				oldleft=Window->LeftEdge;
				oldh=Window->Height;
				oldw=Window->Width;
				SWindow.TopEdge=oldtop;
				SWindow.LeftEdge=oldleft;
				CloseWindow(Window);
				Window=(struct Window *) OpenWindow(&LWindow);
				ViewBoot(0);
				Window=(struct Window *) OpenWindow(&MWindow);
				if (Window==NULL) CloseUp(10);
				goto refreshwindow;

			case INACTIVEWINDOW:

				inactivate:
				if (popflag==1) goto waitaround;
				if (flag==0) goto waitaround;
				flag=0;
				if (Window->TopEdge!=MWindow.TopEdge) oldtop=Window->TopEdge;
				if (Window->LeftEdge!=MWindow.LeftEdge) oldleft=Window->LeftEdge;
				oldh=Window->Height;
				oldw=Window->Width;
				CloseWindow(Window);
				SWindow.TopEdge=oldtop;
				SWindow.LeftEdge=oldleft;
				Window=(struct Window *) OpenWindow(&SWindow);
				if (Window==NULL) CloseUp(10);
				goto waitaround;

			case REFRESHWINDOW:

				if (oldh!=Window->Height || oldw!=Window->Width) {
					numdevs=countdevices();
					WindowLimits(Window,0,0,0,(50+(9*numdevs)));
					oldh=Window->Height;
					oldw=Window->Width;
					goto refreshwindow;
				}
				goto waitaround;

			case DISKINSERTED:

				if (flag==1)
					goto refreshwindow;
				goto waitaround;

			case DISKREMOVED:

				if (flag==1) goto refreshwindow;
				goto waitaround;

			case MOUSEBUTTONS:

				if (Msg->Code==MENUDOWN) goto refreshwindow;
				goto waitaround;

			default:
			goto waitaround;
		}

		partialrefresh:
			RemoveGadget(Window,&popstaygad);
			mesg.DrawMode=JAM2;
			mesg.FrontPen=1;
			fast=FASTMEMORY;
			chipt=CHIPMEMORY;
			total=TOTALMEMORY;
			getclk(d);
			day=d[3];
			month=d[2];
			year=d[1]+80;
			hours=d[4];
			mins=d[5];
			secs=d[6];
			if (ScreenHeight==200 || ScreenHeight==400) {
				tmp=month; month=day; day=tmp;
			}
			sprintf(txt,"%-7ld",fast);
			PrintIText(iprint,&mesg,236,y);
			sprintf(txt,"%-6ld",chipt);
			PrintIText(iprint,&mesg,348,y);
			sprintf(txt,"%-7ld",total);
			PrintIText(iprint,&mesg,460,y);
			sprintf(txt,"%02d",hours);
			PrintIText(iprint,&mesg,236,y+9);
			sprintf(txt,"%02d",mins);
			PrintIText(iprint,&mesg,260,y+9);
			sprintf(txt,"%02d",secs);
			PrintIText(iprint,&mesg,284,y+9);
			sprintf(txt,"%02d",day);
			PrintIText(iprint,&mesg,348,y+9);
			sprintf(txt,"%02d",month);
			PrintIText(iprint,&mesg,372,y+9);
			sprintf(txt,"%02d",year);
			PrintIText(iprint,&mesg,396,y+9);
			mesg.DrawMode=JAM1;
			AddGadget(Window,&popstaygad,-1);
			TimeReq.tr_time.tv_secs=0;
			TimeReq.tr_time.tv_micro=1000000;
			SendIO((char *) &TimeReq.tr_node);
			if (onumdevs!=countdevices()) {
				numdevs=countdevices();
				MWindow.MaxHeight=50+(9*numdevs);
				if (Window->Height==(50+(9*onumdevs)))
					MWindow.Height=50+(9*numdevs);
				if (ScreenHeight-oldtop<50+(9*numdevs) && onumdevs!=numdevs)
				MWindow.TopEdge=(ScreenHeight-(50+(9*numdevs)));
				if (Window->TopEdge+(50+(9*numdevs))>ScreenHeight) 
					MoveWindow(Window,0,(0-((Window->TopEdge)-(ScreenHeight-(50+(9*numdevs))))));
				SizeWindow(Window,0,((50+(9*numdevs))-(Window->Height))); 
				onumdevs=numdevs;
				goto refreshwindow;
			}
			onumdevs=countdevices();
			goto waitaround;
	}
}

OpenAll()
{
	int i;
	extern USHORT *popgad1_chip, *popgad2_chip, *popstay1_chip, *popstay2_chip;
	extern UBYTE *diskbuffer;
	IntuitionBase=(struct IntuitionBase *) OpenLibrary("intuition.library",0);
	if (IntuitionBase==NULL) CloseUp(20);
	GfxBase=(struct GfxBase *) OpenLibrary("graphics.library",0);
	if (GfxBase==NULL) CloseUp(25);
	DosBase=(struct DosLibrary *) OpenLibrary("dos.library",0);
	if (DosBase==NULL) CloseUp(30);
	diskport=CreatePort(0,0);
	if (diskport==NULL) CloseUp(35);
	diskreq=CreateStdIO(diskport);
	if (diskreq==NULL) CloseUp(40);
	lock=(struct FileLock *) AllocMem(sizeof(struct FileLock),0);
	if (lock==NULL) CloseUp(10);
	data=(struct InfoData *) AllocMem(sizeof(struct InfoData),0);
	if (data==NULL) CloseUp(10);
	finfo=(struct FileInfoBlock *) AllocMem(sizeof(struct FileInfoBlock),0);
	if (finfo==NULL) CloseUp(10);
	TimerPort=CreatePort("Timer Port",0);
	if (TimerPort==NULL) CloseUp(45);
	error=OpenDevice("timer.device",UNIT_VBLANK,(char *) &TimeReq,0);
	if (error!=NULL) CloseUp(50);
	TimeReq.tr_node.io_Message.mn_ReplyPort=TimerPort;
	TimeReq.tr_node.io_Command=TR_ADDREQUEST;
	TimeReq.tr_node.io_Flags=0;
	TimeReq.tr_node.io_Error=0;
	TimeReq.tr_time.tv_secs=0;
	TimeReq.tr_time.tv_micro=1000000;
	SendIO((char *) &TimeReq.tr_node);
	rootnode=(struct RootNode *) DosBase->dl_Root;
	dosinfo=(struct DosInfo *) BADDR(rootnode->rn_Info);
	if ((popgad1_chip=(USHORT *)
		AllocMem(sizeof(popgad1ImageData),MEMF_CHIP))==0) CloseUp(55);
	if ((popgad2_chip=(USHORT *)
		AllocMem(sizeof(popgad2ImageData),MEMF_CHIP))==0) CloseUp(60);
	if ((popstay1_chip=(USHORT *)
		AllocMem(sizeof(popstay1),MEMF_CHIP))==0) CloseUp(65);
	if ((popstay2_chip=(USHORT *)
		AllocMem(sizeof(popstay2),MEMF_CHIP))==0) CloseUp(70);
	if ((diskbuffer=(USHORT *)
		AllocMem(1024,MEMF_CHIP))==0) CloseUp(75);
	for (i=0;i<80;i++) popgad1_chip[i]=popgad1ImageData[i];
	for (i=0;i<80;i++) popgad2_chip[i]=popgad2ImageData[i];
	for (i=0;i<9;i++) popstay1_chip[i]=popstay1[i];
	for (i=0;i<9;i++) popstay2_chip[i]=popstay2[i];
	popgad1Image.ImageData=popgad1_chip;
	popgad2Image.ImageData=popgad2_chip;
	pim1.ImageData=popstay1_chip;
	pim2.ImageData=popstay2_chip;
	return(0);
}

CloseUp(err)
{
	extern USHORT *popgad1_chip, *popgad2_chip, *popstay1_chip, *popstay2_chip;
	extern UBYTE *diskbuffer;
	if (Window) CloseWindow(Window);
	AbortIO((char *) &TimeReq.tr_node);
	if (IntuitionBase) CloseLibrary(IntuitionBase);
	if (GfxBase) CloseLibrary(GfxBase);
	if (DosBase) CloseLibrary(DosBase);
	if (popgad1_chip!=0) FreeMem(popgad1_chip,(sizeof(popgad1ImageData),MEMF_CHIP));
	if (popgad2_chip!=0) FreeMem(popgad2_chip,(sizeof(popgad2ImageData),MEMF_CHIP));
	if (popstay1_chip!=0) FreeMem(popstay1_chip,(sizeof(popstay1),MEMF_CHIP));
	if (popstay2_chip!=0) FreeMem(popstay2_chip,(sizeof(popstay2),MEMF_CHIP));
	if (diskbuffer!=0) FreeMem(diskbuffer,(1024,MEMF_CHIP));
	CloseDevice(&TimeReq);
	DeletePort(TimerPort);
	DeletePort(diskport);
	DeleteStdIO(diskreq);
	OpenWorkBench();
	if (err!=0) DisplayBeep(NULL);
	exit(err);
	return(0);
}

conbstr(in,out)
BSTR in;
char *out;
{
	register UBYTE *ch;
	register int len,i;
	ch=(UBYTE *) BADDR(in);
	len=(int) *(ch++);
	len=(len>20)?20:len;
	for (i=0;i<len;i++) out[i]=*(ch++);
	out[i]='\0';
	return(0);
}

countdevices()
{
	int devices;
	devices=0;
	Forbid();
	rootnode=(struct RootNode *) DosBase->dl_Root;
	dosinfo=(struct DosInfo *) BADDR(rootnode->rn_Info);
	devlist=(struct DeviceList *) BADDR(dosinfo->di_DevInfo);
	while (devlist) {
		if (devlist->dl_Type!=NULL) {
			devlist=(struct DeviceList *) BADDR(devlist->dl_Next);
			continue;
		}
		if (DLT_DEVICE!=NULL || devlist->dl_Task) ++devices;
		devlist=(struct DeviceList *) BADDR(devlist->dl_Next);
	}
	Permit();
	return(devices);
}

diskpresent(drive)
int drive;
{
	int nd;
	nd=0;
	error=OpenDevice("trackdisk.device",drive,diskreq,0);
	diskreq->io_Command=TD_CHANGESTATE;
	DoIO(diskreq);
	if (diskreq->io_Actual!=0) nd=1;
	CloseDevice(diskreq);
	return(nd);
}

ReadBlock(drive)
int drive;
{
	int l;
	for (l=0;l<1024;l++) diskbuffer[l]=0;
	error=OpenDevice("trackdisk.device",drive,diskreq,0);
	diskreq->io_Command=CMD_READ;
	diskreq->io_Data=diskbuffer;
	diskreq->io_Length=1024;
	diskreq->io_Offset=0;
	DoIO(diskreq);
	diskreq->io_Length=0;
	diskreq->io_Command=TD_MOTOR;
	DoIO(diskreq);
	CloseDevice(diskreq);
	return(0);
}

cidcmp(state)
int state;
{
	if (state==0) {
		ModifyIDCMP(Window,NULL);
		return(0);
	}
	ModifyIDCMP(Window,CLOSEWINDOW|INACTIVEWINDOW|GADGETUP|DISKINSERTED|
		RAWKEY|DISKREMOVED|REFRESHWINDOW|MOUSEBUTTONS);
	return(0);
}

ViewBoot(c)
int c;
{
	struct Gadget *gad;
	int gadgetid, block;
	CheckDriveGadgets();
	nsbb[c]=0;
	y=0;
	ReadBlock(c);
	DisplayBoot(0); block=0; blktext.IText="BLK1"; CheckBlock(0);
	RefreshGadgets(&blkgadget,Window,NULL);
	for (;;) {
		Wait(1<<Window->UserPort->mp_SigBit);
		while (Msg=GetMsg(Window->UserPort)) {
			gad=(struct Gadget *) Msg->IAddress;
			gadgetid=gad->GadgetID;
			ReplyMsg(Msg);
			switch (gadgetid) {
				case EXIT:
					CloseWindow(Window);
					return(FALSE);
					break;
				case BLK:
					if (block==0) block=1; else block=0;
					if (block==1) blktext.IText="BLK0"; else blktext.IText="BLK1";
					RefreshGadgets(&blkgadget,Window,NULL);
					DisplayBoot(block);
					break;
				case DF0:
					ReadBlock(0); c=0;
					DisplayBoot(0); block=0; blktext.IText="BLK1";
					RefreshGadgets(&blkgadget,Window,NULL);
					CheckBlock(0);
					break;
				case DF1:
					ReadBlock(1); c=1;
					DisplayBoot(0); block=0; blktext.IText="BLK1"; 
					RefreshGadgets(&blkgadget,Window,NULL);
					CheckBlock(0);
					break;
				case DF2:
					ReadBlock(2); c=2;
					DisplayBoot(0); block=0; blktext.IText="BLK1"; 
					RefreshGadgets(&blkgadget,Window,NULL);
					CheckBlock(0);
					break;
				case DF3:
					ReadBlock(3); c=3;
					DisplayBoot(0); block=0; blktext.IText="BLK1"; 
					RefreshGadgets(&blkgadget,Window,NULL);
					CheckBlock(0);
					break;
				case WIPE:
					WipeBoot(c);
					ReadBlock(c);
					DisplayBoot(0); block=0; blktext.IText="BLK1"; 
					RefreshGadgets(&blkgadget,Window,NULL);
					CheckBlock(0);
					break;
				case SAVE:
					SaveBoot();
					break;
				case LOAD:
					LoadBoot(c);
					ReadBlock(c);
					DisplayBoot(0); block=0; blktext.IText="BLK1";
					RefreshGadgets(&blkgadget,Window,NULL);
					CheckBlock(0);
					break;
				default:
					break;
			}
		}
	}
	return(0);
}

DisplayBoot(which)
int which;
{
	int a,s;
	if (which==0) a=0; else a=512; s=a;
	SetAPen(iprint,0);
	RectFill(iprint,5,2,579,140);
	RectFill(iprint,5,130,637,198);
	SetAPen(iprint,1);
	for (y=-9;y<=111;y=y+8) {
		sprintf(txt,"%02x%02x%02x%02x %02x%02x%02x%02x %02x%02x%02x%02x %02x%02x%02x%02x",
			diskbuffer[a],diskbuffer[a+1],diskbuffer[a+2],
			diskbuffer[a+3],diskbuffer[a+4],diskbuffer[a+5],
			diskbuffer[a+6],diskbuffer[a+7],diskbuffer[a+8],
			diskbuffer[a+9],diskbuffer[a+10],diskbuffer[a+11],
			diskbuffer[a+12],diskbuffer[a+13],diskbuffer[a+14],
			diskbuffer[a+15]);
		PrintIText(iprint,&mesg,0,y);
		sprintf(txt,"%02x%02x%02x%02x %02x%02x%02x%02x %02x%02x%02x%02x %02x%02x%02x%02x",
			diskbuffer[a+16],diskbuffer[a+17],diskbuffer[a+18],
			diskbuffer[a+19],diskbuffer[a+20],diskbuffer[a+21],
			diskbuffer[a+22],diskbuffer[a+23],diskbuffer[a+24],
			diskbuffer[a+25],diskbuffer[a+26],diskbuffer[a+27],
			diskbuffer[a+28],diskbuffer[a+29],diskbuffer[a+30],
			diskbuffer[a+31]);
		PrintIText(iprint,&mesg,288,y);
		a+=32;
	}
	Move(iprint,10,140);
	Text(iprint,&diskbuffer[s],78);
	Move(iprint,10,149);
	Text(iprint,&diskbuffer[s+78],78);
	Move(iprint,10,158);
	Text(iprint,&diskbuffer[s+156],78);
	Move(iprint,10,167);
	Text(iprint,&diskbuffer[s+234],78);
	Move(iprint,10,176);
	Text(iprint,&diskbuffer[s+312],78);
	Move(iprint,10,185);
	Text(iprint,&diskbuffer[s+390],78);
	Move(iprint,141,194);
	Text(iprint,&diskbuffer[s+468],44);
	return(0);
}

WipeBoot(c)
int c;
{
	error=simplerequest(Window,"Really install this disk?",-3,-3,"INSTALL","CANCEL");
	if (error==FALSE) return(0);
	error=OpenDevice("trackdisk.device",c,diskreq,0);
	tryagain:
	diskreq->io_Command=TD_PROTSTATUS;
	DoIO(diskreq);
	if (diskreq->io_Actual!=0) {
		error=simplerequest(Window,"Disk is write protected",-2,-2,"TRY AGAIN","CANCEL");
		if (error==TRUE) goto tryagain;
		CloseDevice(diskreq);
		return(0);
	}
	for (x=0;x<1024;x++)
		diskbuffer[x]=0;
	CopyMem(bootblock,diskbuffer,50);
	diskreq->io_Length=1024;
	diskreq->io_Data=&diskbuffer[0];
	diskreq->io_Command=CMD_WRITE;
	diskreq->io_Offset=0;
	DoIO(diskreq);
	diskreq->io_Command=CMD_UPDATE;
	DoIO(diskreq);
	diskreq->io_Command=TD_MOTOR;
	diskreq->io_Length=0;
	DoIO(diskreq);
	nsbb[dnum]=0;
	return(0);
}

SaveBoot()
{
	opensavefile:
	filename=gf(Window,"Enter filename for Save",170,70);
	if (filename==NULL) return(0);
	bbsavefile=fopen(filename,"w");
	if (bbsavefile==NULL) {
		error=simplerequest(Window,"Can't open specified file",-2,-2,"TRY AGAIN","CANCEL");
		if (error==FALSE) return(0);
		goto opensavefile;
	}
	for (x=0;x<1024;x++)
	putc(diskbuffer[x],bbsavefile);
	fclose(bbsavefile);
	return(0);
}

LoadBoot(unit)
int unit;
{
	int x;

	openloadfile:
	filename=gf(Window,"Enter filename for Load",170,70);
	if (filename==NULL) return(0);
	bbsavefile=fopen(filename,"r");
	if (bbsavefile==NULL) {
		error=simplerequest(Window,"Can't open specified file",-2,-2,"TRY AGAIN","CANCEL");
		if (error==FALSE) return(0);
		goto openloadfile;
	}
	for (x=0;x<1024;x++)
		diskbuffer[x]=getc(bbsavefile);
	fclose(bbsavefile);
	error=OpenDevice("trackdisk.device",unit,diskreq,0);
	tryagain:
	diskreq->io_Command=TD_PROTSTATUS;
	DoIO(diskreq);
	if (diskreq->io_Actual!=0) {
		error=simplerequest(Window,"Disk is write protected",-2,-2,"TRY AGAIN","CANCEL");
		if (error==TRUE) goto tryagain;
		CloseDevice(diskreq);
		return(0);
	}
	error=simplerequest(Window,"Really write this bootblock?",-3,-3,"WRITE IT","CANCEL");
	if (error==FALSE) {
		CloseDevice(diskreq);
		return(0);
	}
	diskreq->io_Length=1024;
	diskreq->io_Data=&diskbuffer[0];
	diskreq->io_Command=CMD_WRITE;
	diskreq->io_Offset=0L;
	DoIO(diskreq);
	diskreq->io_Command=CMD_UPDATE;
	DoIO(diskreq);
	diskreq->io_Length=0;
	diskreq->io_Command=TD_MOTOR;
	DoIO(diskreq);
	CloseDevice(diskreq);
	return(0);
}

CheckDriveGadgets()
{
	int c;
	OnGadget(&df0gadget,Window,NULL);
	OnGadget(&df1gadget,Window,NULL);
	OnGadget(&df2gadget,Window,NULL);
	OnGadget(&df3gadget,Window,NULL);
	for (c=0;c<4;c++) {
		error=OpenDevice("trackdisk.device",c,diskreq,0);
		if (error!=0) {
			switch (c) {
				case 0:
					OffGadget(&df0gadget,Window,NULL);
					break;
				case 1:
					OffGadget(&df1gadget,Window,NULL);
					break;
				case 2:
					OffGadget(&df2gadget,Window,NULL);
					break;
				case 3:
					OffGadget(&df3gadget,Window,NULL);
					break;
				default:
					break;
			}
		}
		else CloseDevice(diskreq);
	}
	return(0);
}

CheckBlock(state)
int state;
{
	nsbb[dnum]=0;
	if (diskbuffer[8]=='C' &&
			diskbuffer[9]=='H' &&
			diskbuffer[10]=='W' &&
			diskbuffer[11]=='!') nsbb[dnum]=2;
	if (diskbuffer[43]=='9' &&
			diskbuffer[44]=='.' &&
			diskbuffer[45]=='8' &&
			diskbuffer[46]=='7') nsbb[dnum]=3;
	if (diskbuffer[192]=='D' &&
			diskbuffer[193]=='A' &&
			diskbuffer[194]=='S' &&
			diskbuffer[195]=='A')	nsbb[dnum]=4;
	if (diskbuffer[42]=='N' &&
			diskbuffer[43]=='o' &&
			diskbuffer[44]=='r' &&
			diskbuffer[45]=='t') nsbb[dnum]=5;
	if (diskbuffer[14]=='I' &&
			diskbuffer[15]=='D' &&
			diskbuffer[16]=='9') nsbb[dnum]=6;
	if (diskbuffer[56]=='G' &&
			diskbuffer[188]=='S' &&
			diskbuffer[507]=='d' &&
			diskbuffer[45]=='P') nsbb[dnum]=7;
	if (diskbuffer[64]==0xff &&
			diskbuffer[65]==0xa0 &&
			diskbuffer[66]==0x20 &&
			diskbuffer[67]==0x40)	nsbb[dnum]=8;
	if (diskbuffer[288]==0x33 &&
			diskbuffer[289]==0xfc &&
			diskbuffer[290]==0xf6 &&
			diskbuffer[291]==0xd5) nsbb[dnum]=9;
	if (diskbuffer[336]==0x66 &&
			diskbuffer[337]==0x62 &&
			diskbuffer[338]==0x48 &&
			diskbuffer[339]==0xe7) nsbb[dnum]=10;
	if (diskbuffer[112]==0x41 &&
			diskbuffer[113]==0xfa &&
			diskbuffer[114]==0x03 &&
			diskbuffer[115]==0x5e) nsbb[dnum]=11;
	if (diskbuffer[64]==0x03 &&
			diskbuffer[65]==0x61 &&
			diskbuffer[66]==0x34 &&
			diskbuffer[67]==0x3c) nsbb[dnum]=12;
	if (diskbuffer[464]==0x83 &&
			diskbuffer[465]==0x35 &&
			diskbuffer[466]==0x3e &&
			diskbuffer[467]==0xf0) nsbb[dnum]=13;
	if (point1[84]==0x000100bf) nsbb[dnum]=14;
	if (point1[84]==0x3fff2c78) nsbb[dnum]=15;
	if (point1[16]==0x4240323c) nsbb[dnum]=16;
	if (point1[16]==0x0007ec1a) nsbb[dnum]=17;
	if (nsbb[dnum]==0) return(TRUE);
	if (state==1) return(FALSE);
	CWindow=(struct Window *) OpenWindow(&WWindow);
	Move(cprint,25,17);
	Text(cprint,virusdesc[(nsbb[c]-1)],30);
	Wait(1<<CWindow->UserPort->mp_SigBit);
	nsbb[dnum]=0;
	CloseWindow(CWindow);
	return(TRUE);
}