!*************************** AMUS Program Label ******************************
! Filename: DSKDOC.BAS                                      Date: 03/30/90
! Category: UTIL         Hash Code: 371-744-067-716      Version: 1.0(100)
! Initials: CHES/AM      Name: GARY CHESSER
! Company: EMERGITECH                              Telephone #: 6148666712
! Related Files: .LIT : GARWRT,GARRED,FIXGAR .SBR : BLOCKS,AMOS,RINKEY,NOECHO
! Min. Op. Sys.: 1.3                           Expertise Level: INT
! Special: Everyone should be off your system when running this program.
! Description: Used to diagnose a possible suspect drive. This program has six
! calls which you may use to check out a disk on your system.
! 
!*****************************************************************************
!PROGRAMS NEEDED FOR THE DISK DOCTOR
!	SYS:GARWRT.LIT
!	SYS:GARRED.LIT
!	SYS:FIXGAR.LIT
!	
!	BAS:RINKEY.SBR
!	BAS:NOECHO.SBR
!	BAS:AMOS.SBR
!	BAS:BLOCKS.SBR
!
!	DSKDOC.TXT AND DSKDOC.RUN MUST BE IN THE SAME PPN
!
!       [SAA] Add few trivial items to show them how to exit program.
!             Steve Archuleta, AMUS Staff
!
Program DSKDOC,1.0(100)

	MAP1	TITLE,S,30,"Gary Chesser's Disk Doctor"

	MAP1	TDATE,B,4
	MAP1	T1DATE,@TDATE
	MAP2	 MONTH,B,1
	MAP2	 DAY,B,1
	MAP2	 YEAR,B,1
	MAP2	 FIL,B,1

	MAP1	DRIVE,S,5,"DSK0:"

	MAP1	CHOICE,S,1,"D"
	MAP1	CMDLIN,S,80

	MAP1	DT$,S,8

	MAP1	CHAR,B,2

	MAP1	CONTIG,F,6
	MAP1	FREE,F,6
	MAP1	PERCENT,F,6

	ON ERROR GOTO ABORT'IT


GET'TITLE:
	
	PRINT TAB(-1,0);TAB(-1,29)	!CLEAR SCREEN & TURN OFF CURSOR
	GOSUB DSP'TITLE			!DISPLAY OUR SCREEN

GET'INPUT:

 	XCALL NOECHO			!NEEDS TO BE SET W/RINKEY
	XCALL RINKEY,CHAR		!INPUT USER'S SPEC	
	IF CHAR=0 THEN GOTO GET'INPUT	!IF NOTHING GET MORE INPUT
	IF CHAR=27 THEN GOTO FINISH	!IF ESC THE EXIT PROGRAM
	IF CHAR=8 THEN GOSUB GO'LEFT	!IF LEFT ARROW MOVE LEFT
	IF CHAR=10 THEN GOSUB GO'DOWN	!IF DOWN ARROW MOVE DOWN
	IF CHAR=11 THEN GOSUB GO'UP	!IF UP ARROW MOVE UP
	IF CHAR=12 THEN GOSUB GO'RIGHT	!IF RIGHT ARROW MOVE RIGHT
	IF CHAR=13 THEN GOSUB GO'DOIT	!IF RETURN THEN PERFORM USER REQUEST
	GOTO GET'INPUT			!IF NONE OF ABOVE ANSWERS GET USER REQ

!*****************************************************************************
!DISPLAY MAIN SCREEN FOR USER INPUT
!		DEFAULT CHOICE = D  FOR DEVICE SPECIFICATIONS
!*****************************************************************************

DSP'TITLE:
	GOSUB PROG'CHOICE		!DISPLAY USER HELP 
	? tab(-1,29);			!TURN OFF CUSOR
	GOSUB GET'DATE
	PRINT TAB(1,70);DT$
	PRINT TAB(3,22);TAB(-1,32);" ";TITLE;" ";TAB(-1,33)
	PRINT TAB(-1,23)
	PRINT TAB(5,1);"2ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ3";TAB(-1,33)
	PRINT TAB(6,1);"62ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ36";TAB(-1,33)
	PRINT TAB(7,1);"66                                                                          66";TAB(-1,33)
	PRINT TAB(8,1);"66                                                                          66";TAB(-1,33)
	PRINT TAB(9,1);"66                                                                          66";TAB(-1,33)
	PRINT TAB(10,1);"66                                                                          66";TAB(-1,33)
	PRINT TAB(11,1);"66                                                                          66";TAB(-1,33)
	PRINT TAB(12,1);"66                                                                          66";TAB(-1,33)
	PRINT TAB(13,1);"61ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ56";TAB(-1,33)
	PRINT TAB(14,1);"1ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ5";TAB(-1,33)
	PRINT TAB(-1,24)

	PRINT TAB(7,13);TAB(-1,33);" ";"Help";" ";TAB(-1,33)
	PRINT TAB(7,29);TAB(-1,32);" ";"Select Drive";" ";TAB(-1,33)
	PRINT TAB(7,53);TAB(-1,33);" ";"Mounted Drives";" ";TAB(-1,33)

	PRINT TAB(10,13);TAB(-1,33);" ";"Read";" ";TAB(-1,33)
	PRINT TAB(10,33);TAB(-1,33);" ";"Write";" ";TAB(-1,33)
	PRINT TAB(10,53);TAB(-1,33);" ";"Statistics";" ";TAB(-1,33)

        PRINT TAB(16,30) "Press CTRL-C to EXIT"; ![SAA] Show em how to exit

	CHOICE = "D"
RETURN	

GET'DATE:
	TDATE = DATE
	DT$ = (MONTH USING "#Z")+"/"+(DAY USING "#Z")+"/"+&
	      (YEAR USING "#Z")
        RETURN

GO'DOIT:
	IF CHOICE = "D" THEN &
		? TAB(20,1); : &
		INPUT "Input Drive name Ex. DSK0: >";DRIVE

	IF CHOICE = "M" THEN &
		? TAB (-1,0) : &
		CMDLIN = "MOUNT" : &		
		XCALL AMOS,CMDLIN : &
		? TAB(20,1);TAB(-1,32); : &
		? TAB(20,26);TAB(-1,33); : &
		? TAB(20,2); : &
		INPUT "Press return to continue";W

	IF CHOICE = "H" THEN &
		? TAB (-1,0) : &
		CMDLIN = "HELP DSKDOC.TXT" : &		
		XCALL AMOS,CMDLIN : &
		? TAB(23,1);TAB(-1,32) : &
		? TAB(23,26);TAB(-1,33); : &
		? TAB(23,2); : &
		INPUT "Press return to continue";W

	IF CHOICE = "R" THEN &
		? TAB (-1,0) : &
		CMDLIN = "GARRED " + DRIVE : &		
		XCALL AMOS,CMDLIN

	IF CHOICE = "W" THEN &
		? TAB (-1,0) : &
		CMDLIN = "GARWRT " + DRIVE : &		
		XCALL AMOS,CMDLIN

	IF CHOICE = "S" THEN &
		? TAB(-1,0) : &
		CMDLIN = "FIXGAR " + DRIVE[1,3] : &		
		XCALL AMOS,CMDLIN : &
		GOSUB GET'BLOCKS : &
		? TAB(23,1);TAB(-1,32) : &
		? TAB(23,26);TAB(-1,33); : &
		? TAB(23,2); : &
		INPUT "Press return to continue";W
	
!start all over again
START'AGAIN:
	GOTO GET'TITLE

GET'BLOCKS:
	XCALL BLOCKS,DRIVE,CONTIG,FREE

!NOT DEVELOPED YET,IN NEXT REVISION ?
!	PERCENT = 100 * (FREE/57680)

	PRINT
	PRINT DRIVE;" has ";CONTIG;"Blocks of contiguous space and" 
	PRINT "          ";FREE;"Blocks of total free space"
!	PRINT "          ";PERCENT;" percent of free space available"
RETURN

GO'DOWN:

	IF CHOICE = "W" OR CHOICE = "R" OR CHOICE = "S" THEN RETURN

	IF CHOICE = "D" THEN &
		CHOICE = "W" : &
		PRINT TAB(7,13);TAB(-1,33); : &
		PRINT TAB(7,29);TAB(-1,33); : &
		PRINT TAB(7,53);TAB(-1,33); : &
		PRINT TAB(10,13);TAB(-1,33); : &
		PRINT TAB(10,33);TAB(-1,32); : &
		PRINT TAB(10,53);TAB(-1,33); : &
		GOTO DFINISH

	IF CHOICE = "H" THEN &
		CHOICE = "R" : &
		PRINT TAB(7,13);TAB(-1,33); : &
		PRINT TAB(7,29);TAB(-1,33); : &
		PRINT TAB(7,53);TAB(-1,33); : &
		PRINT TAB(10,13);TAB(-1,32); : &
		PRINT TAB(10,33);TAB(-1,33); : &
		PRINT TAB(10,53);TAB(-1,33); : &
		GOTO DFINISH

	IF CHOICE = "M" THEN &
		CHOICE = "S" : &
		PRINT TAB(7,13);TAB(-1,33); : &
		PRINT TAB(7,29);TAB(-1,33); : &
		PRINT TAB(7,53);TAB(-1,33); : &
		PRINT TAB(10,13);TAB(-1,33) : &
		PRINT TAB(10,33);TAB(-1,33) : &
		PRINT TAB(10,53);TAB(-1,32)

DFINISH:
RETURN	

GO'UP:
	IF CHOICE = "D" OR CHOICE = "M" OR CHOICE = "H" THEN RETURN

	IF CHOICE = "R" THEN &
		CHOICE = "H" : &
		PRINT TAB(7,13);TAB(-1,32); : &
		PRINT TAB(7,29);TAB(-1,33); : &
		PRINT TAB(7,53);TAB(-1,33); : &
		PRINT TAB(10,13);TAB(-1,33); : &
		PRINT TAB(10,33);TAB(-1,33); : &
		PRINT TAB(10,53);TAB(-1,33); : &
		GOTO UFINISH

	IF CHOICE = "W" THEN &
		CHOICE = "D" : &
		PRINT TAB(7,13);TAB(-1,33); : &
		PRINT TAB(7,29);TAB(-1,32); : &
		PRINT TAB(7,53);TAB(-1,33); : &
		PRINT TAB(10,13);TAB(-1,33); : &
		PRINT TAB(10,33);TAB(-1,33); : &
		PRINT TAB(10,53);TAB(-1,33); : &
		GOTO UFINISH

	IF CHOICE = "S" THEN &
		CHOICE = "M" : &
		PRINT TAB(7,13);TAB(-1,33); : &
		PRINT TAB(7,29);TAB(-1,33); : &
		PRINT TAB(7,53);TAB(-1,32); : &
		PRINT TAB(10,13);TAB(-1,33); : &
		PRINT TAB(10,33);TAB(-1,33); : &
		PRINT TAB(10,53);TAB(-1,33);

UFINISH:
RETURN	

GO'RIGHT:
	IF CHOICE = "S" OR CHOICE = "M" THEN RETURN

	IF CHOICE = "R" THEN &
		CHOICE = "W" : &
		PRINT TAB(7,13);TAB(-1,33); : &
		PRINT TAB(7,29);TAB(-1,33); : &
		PRINT TAB(7,53);TAB(-1,33); : &
		PRINT TAB(10,13);TAB(-1,33); : &
		PRINT TAB(10,33);TAB(-1,32); : &
		PRINT TAB(10,53);TAB(-1,33); : &
		GOTO RFINISH

	IF CHOICE = "W" THEN &
		CHOICE = "S" : &
		PRINT TAB(7,13);TAB(-1,33); : &
		PRINT TAB(7,29);TAB(-1,33); : &
		PRINT TAB(7,53);TAB(-1,33); : &
		PRINT TAB(10,13);TAB(-1,33); : &
		PRINT TAB(10,33);TAB(-1,33); : &
		PRINT TAB(10,53);TAB(-1,32); : &
		GOTO RFINISH

	IF CHOICE = "H" THEN &
		CHOICE = "D" : &
		PRINT TAB(7,13);TAB(-1,33); : &
		PRINT TAB(7,29);TAB(-1,32); : &
		PRINT TAB(7,53);TAB(-1,33); : &
		PRINT TAB(10,13);TAB(-1,33); : &
		PRINT TAB(10,33);TAB(-1,33); : &
		PRINT TAB(10,53);TAB(-1,33); : &
		GOTO RFINISH

	IF CHOICE = "D" THEN &
		CHOICE = "M" : &
		PRINT TAB(7,13);TAB(-1,33); : &
		PRINT TAB(7,29);TAB(-1,33); : &
		PRINT TAB(7,53);TAB(-1,32); : &
		PRINT TAB(10,13);TAB(-1,33); : &
		PRINT TAB(10,33);TAB(-1,33); : &
		PRINT TAB(10,53);TAB(-1,33);

RFINISH:
RETURN

GO'LEFT:
	IF CHOICE = "R" OR CHOICE = "H" THEN RETURN

	IF CHOICE = "S" THEN &
		CHOICE = "W" : &
		PRINT TAB(7,13);TAB(-1,33); : &
		PRINT TAB(7,29);TAB(-1,33); : &
		PRINT TAB(7,53);TAB(-1,33); : &
		PRINT TAB(10,13);TAB(-1,33); : &
		PRINT TAB(10,33);TAB(-1,32); : &
		PRINT TAB(10,53);TAB(-1,33); : &
		GOTO LFINISH

	IF CHOICE = "W" THEN &
		CHOICE = "R" : &
		PRINT TAB(7,13);TAB(-1,33); : &
		PRINT TAB(7,29);TAB(-1,33); : &
		PRINT TAB(7,53);TAB(-1,33); : &
		PRINT TAB(10,13);TAB(-1,32); : &
		PRINT TAB(10,33);TAB(-1,33); : &
		PRINT TAB(10,53);TAB(-1,33); : &
		GOTO LFINISH

	IF CHOICE = "D" THEN &
		CHOICE = "H" : &
		PRINT TAB(7,13);TAB(-1,32); : &
		PRINT TAB(7,29);TAB(-1,33); : &
		PRINT TAB(7,53);TAB(-1,33); : &
		PRINT TAB(10,13);TAB(-1,33); : &
		PRINT TAB(10,33);TAB(-1,33); : &
		PRINT TAB(10,53);TAB(-1,33); : &
		GOTO LFINISH

	IF CHOICE = "M" THEN &
		CHOICE = "D" : &
		PRINT TAB(7,13);TAB(-1,33); : &
		PRINT TAB(7,29);TAB(-1,32); : &
		PRINT TAB(7,53);TAB(-1,33); : &
		PRINT TAB(10,13);TAB(-1,33); : &
		PRINT TAB(10,33);TAB(-1,33); : &
		PRINT TAB(10,53);TAB(-1,33); : &
		GOTO LFINISH

LFINISH:
RETURN


PROG'CHOICE:
	PRINT TAB(23,10);TAB(-1,145);" Use <-- --> Arrow keys to Select Program Present Drive ";DRIVE;" ";TAB(-1,33)
	RETURN

ABORT'IT:
	? TAB(-1,28);		!TURN CURSOR BACK ON FOR WHOEVER

        IF ERR(0) = 1 THEN GOTO FINISH  ![SAA] don't complain on CTRL-C
     
	PRINT "ERR(0) = ";ERR(0)
	PRINT "ERR(1) = ";ERR(1)
	PRINT "ERR(2) = ";ERR(2)
FINISH:
	END