' The following is a program I wrote to teach myself how to program the mouse.
' It doesn't use all of the mouse functions but I think the ones it does use
' will handle about any task you will need if kept simple.
'
' If you have any questions you can drop me a line.
' Not that I can answer them, but you can still ask.	John Watts
'											73760,751
' NOTE:										PCVENB LIB 12 Spectra
' Set TAB's to five (5) ... Alt-O E T 5 <Enter>

gosub setup					' Set up some variables

'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
mode% = fVideoMode%                       '³   This function & routine will
								  '³   determine whether you are
select case mode%                         '³   running a color or monochrome
	case 3                               '³   monitor and set the foreground
		foreground% = 14	'CGA/EGA/VGA ³   color for the work area.
		videobufferabs& = &hb800 * 16   '³   The foreground color must be
	case 7                               '³   set   ÄÄ¿
		foreground% = 7	'MONO/HERC   ³           ³  NOTE: This is for
		videobufferabs& = &hb000 * 16   '³           ³        monochrome
end select                                '³           ³        compatibility
'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ           ³
call MainScreen							    '³
color foreground%,0 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄbefore you initilize
locate 4,1                                            '  the mouse.ÄÄ¿
													   '³
for x% = 1 to 13                                                    '³
		print scrn$(x%);                                          '³
next x%                                                             '³
													   '³
call rat.init(m%,b%) 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
if not m% then print "Mouse not installed":end

call rat.min.max.vert(24,176)

call rat.show

first.loop:

call rat.min.max.vert(24,176)

call rat.min.max.horz(0,632)

do
	call rat.pos.but(but.status%,row%,col%)

	if (row% > 120) and (but.status% = 0) then goto skip
	locate 2,9

	r% = ((row% + l% ) / 8) + (tl% - 1)
	c% = (col% + 8 ) / 8
	print using "###";r%;
	locate ,21
	print using "###";c%;

	if but.status% then
		but% = -1
		select case but.status%

		case 1
			locate 2,75
			print chr$(219);
			gosub place.character
			goto skip
		case 2
			locate 2,79
			print chr$(219);
			gosub scroll.up
		case 4
			locate 2,77
			print chr$(219);
			gosub scroll.down
		case 3
			locate 2,75
			print chr$(219);
			locate ,79
			print chr$(219)
			gosub place.character
			gosub scroll.up
		case 5
			locate 2,75
			print chr$(219);
			locate ,77
			print chr$(219)
			gosub place.character
			gosub scroll.down

		end select

	elseif but% then
		locate 2,75
		print "L";
		locate ,77
		print "M";
		locate ,79
		print "R";
		but% = 0
	end if
skip:
	if row% > 120 then
		select case col%
		case 0 to 416
			if but% then exit if
			goto second.loop
		case 424 to 632
			if but% then exit if
			goto third.loop
		end select
	end if

loop while not instat

goto finish

second.loop:
locate 25,1
print "Select character";string$(40,32);
call rat.min.max.horz(0,416)

do

	call rat.pos.but(but.status%,row%,col%)


	if row% < 128 then
		locate 25,1
		print "Place character";string$(40,32);
		goto first.loop
	end if

	if but.status% and row% > 128 then
		char.selected% = screen((row%+8)/8,(col%+8)/8)
		select case char.selected%
		case 69,84,88
			gosub text
		case else
			locate 23,77
			print chr$(char.selected%);
		end select
	end if
loop while not instat

goto finish

third.loop:

call rat.min.max.vert(24,136)

call rat.min.max.horz(432,624)

		locate 25,1
		print "Select task";string$(40,32);

do

	call rat.pos.but(but.status%,row%,col%)

	if row% < 128 then
		locate 25,1
		print "Place character";string$(40,32);
		goto first.loop
	end if

	if but.status% then
		select case col%

		case 432 to 472				'Save screen
			open "o", 1, "tbscreen.fil"
			for x% = 1 to 25
				write #1,scrn$(x%)
			next x%
			close #1

		case 480 to 520				'Load screen
			open "i", 1, "tbscreen.fil"
			for x% = 1 to 25
				input #1,scrn$(x%)
			next x%
			close  #1
			locate 4,1
			for x% = 1 to 13
				print scrn$(x%);
			next x%

		case 528 to 568                    'View screen
			call rat.hide
			call SaveScreen
			cls
			for x% = 1 to 24
				print scrn$(x%);
			next x%
			locate 25,1
			print "Press any key to continue.";
			while not instat:wend
			cls
			call RestoreScreen
			call rat.show

		case 576 to 624				'Clear screen
			for x% = 1 to 25
				scrn$(x%) = string$(80,32)
			next x%
			locate 4,1
			for x% = 1 to 13
				print scrn$(x%);
			next x%

		end select
	end if
loop while not instat

goto finish

'********************************** sub-routines *****************************

place.character:
	if row% > 120 then return second.loop
	locate (row%+8)/8,c%
	call rat.hide
	print chr$(char.selected%);
	call rat.show
	mid$(scrn$(r%),c%,1) = chr$(char.selected%)
return

scroll.up:
	if bl% = 25 then beep:delay 1:return
	call rat.hide
	call scroll(1,4,1,16,80,7,-1)
	incr tl%
	incr bl%
	locate 16,1
	print scrn$(bl%);
	call rat.show
	delay .1						' You may want to change this delay
return							' or even remove it

scroll.down:
	if tl% = 1 then beep:delay 1:return
	call rat.hide
	call scroll(1,4,1,16,80,7,0)
	decr tl%
	decr bl%
	locate 4,1
	print scrn$(tl%);
	call rat.show
	delay .1						' Same here
return

text:
	locate 25,1
	print "Position cursor and type.   Press Esc to exit.";

	call rat.min.max.vert(24,120)
	call rat.min.max.horz( 0,632)

	do
		while not instat
			call rat.pos.but(b%,row%,col%)
			r% = ((row% + l% ) / 8) + (tl% - 1)
			c% = (col% + 8 ) / 8
			locate 2,9
			print using "###";r%;
			locate ,21
			print using "###";c%;
		wend
		txt$ = inkey$
		if txt$ = chr$(27) then
			char.selected% = 32
			call rat.min.max.vert(24,176)
			return
		end if
		locate (row% + 8) / 8,(col% + 8) / 8
		call rat.hide
		print txt$;
		mid$(scrn$(r%),c%,1) = txt$
		call rat.move(row%,col%+8)
		call rat.show
	loop
return

setup:
dim scrn$(1:25)
'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ Set up a
screenbuffer$ = string$(4000,32)                             '³ string to
screenbufferseg& = strseg(screenbuffer$)                     '³hold the video
screenbufferofs& = strptr(screenbuffer$)                     '³buffer and get
screenbufferabs& = screenbufferseg& * 16 + screenbufferofs&  '³20 bit address
'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ of string
for x% = 1 to 25
	scrn$(x%) = string$(80,32)
next x%

l% = -16
tl% = 1
bl% = 13
return

finish:
	while instat:ans$ = inkey$:wend
	select case ans$
		case chr$(27)				' If Esc key is pressed
			call rat.hide
			cls
			end
		case chr$(0)+chr$(59)		' If F1 key is pressed ( HELP )
			call rat.hide
			call SaveScreen
			call Help
			cls
			call RestoreScreen
			call rat.show
			goto skip
		case chr$(0)+chr$(72)		' Alternate scroll down
			gosub scroll.down
			goto skip
		case chr$(0)+chr$(80)		' Alternate scroll up
			gosub scroll.up
			goto skip
	end select
goto skip
'*****************************************************************************

sub MainScreen
cls
color 15,1,1

print "ÚÄÄÄÄÄÂÄÄÄÄÄÂÄÄÄÄÄÂÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÂÄÂÄ¿";
print "³ Row ³     ³ Col ³     ³   SCREEN BUILDER                               ³L³M³R³";
print "ÀÄÄÄÄÄÁÄÄÄÄÄÁÄÄÄÄÄÁÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÁÄÁÄÙ";
locate 17,1
color 0,7
print "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿";
print "³ Ú  Â  ¿   Õ  Ñ  ¸   Ö  Ò  ·     É  Ë  »    °  ±  ² ³ Save  Load  View  Clear ³";
print "³                                                    ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´";
print "³ Ã  Å  ´ ³ Æ  Ø  µ   Ç  ×  ¶  º  Ì  Î  ¹    Û  Ü  Ý ³ Written by:             ³";
print "³         ³                    º                     ³ John T. Watts           ³";
print "³ À  Á  Ù   Ô  Ï  ¾   Ó  Ð  ½     È  Ê  ¼    Þ  ß  þ ³ 2027 Saturn Dr.         ³";
print "³   ÄÄÄ       ÍÍÍ       TEXT        ÍÍÍ              ³ Bastrop, La. 71220      ³";
print "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ";
end sub

'rat.init(mouse%,button%)

'rat.show

'rat.hide

'rat.pos.but(but.status%,row%,col%)

'rat.move(row%,col%)

'rat.move(row%,col%)

'rat.min.max.horz(min%,max%)

'rat.min.max.vert(min%,max%)



sub rat.init(mouse%,button%)
	reg 1,&h3533					' Make DOS call to see if mouse driver
	call interrupt &h21				' is installed

	if reg(9) and reg(2) then		' YES
		mouse% = -1
	else							' NO
		mouse% = 0
		exit sub
	end if

	reg 1,0						' From now on you can talk to the mouse
	call interrupt &h33				' by loading reg 1 (REG AX) with the
	mouse% = reg(1)				' mouse function and making a call to
	button% = reg(2)				' the mouse driver (interrupt &h33).
end sub							' Function 0 initilizes and returns
								' the number of buttons on the mouse.

sub rat.show                            ' Function 1 unhides the cursor
	reg 1,1
	call interrupt &H33
end sub

sub rat.hide						' Function 2 hides the cursor
	reg 1,2
	call interrupt &h33
end sub

sub rat.pos.but(but.status%,row%,col%)	' Function 3 tells you if a button
	reg 1,3						' is down and where the cursor is
	call interrupt &h33
	but.status% = reg(2)
	col% = reg(3)
	row% = reg(4)
end sub

sub rat.move(row%,col%)				' Function 4 will relocate the cursor
	reg 1,4
	reg 3,col%
	reg 4,row%
	call interrupt &h33
end sub

sub rat.min.max.horz(hmin%,hmax%)		' Function 7 sets horizonal boundries.
	reg 1,7						' The cursor will be restricted to
	reg 3,hmin%					' the boundries set here. RIGHT/LEFT
	reg 4,hmax%
	call interrupt &h33
end sub

sub rat.min.max.vert(vmin%,vmax%)		' Function 8 sets vertical boundries.
	reg 1,8						' Same as above except UP/DOWN
	reg 3,vmin%
	reg 4,vmax%
	call interrupt &h33
end sub

'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
' The following routine allows you to scroll the screen up and down.		 ³
' This is another example of the power of PowerBasic.  To easily make Dos   ³
' calls gives the PowerBasic programer easy access to all DOS functions.	 ³
'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ


'L%  = Number of lines to scroll ( usually set to one )
'TR% = Top row of scrolling area
'LC% = Left column of scrolling area
'BR% = Bottom row of scrolling area
'RC% = Right column of scrolling area
'A%  = Attribute of characters on blank line
'UP% = -1 if you want to scroll up    0 to scroll down

SUB SCROLL (L%,TR%,LC%,BR%,RC%,A%,UP%)
LOCAL UD%
    %AX = 1
    %BX = 2
    %CX = 3
    %DX = 4
    %H  = 256

    IF UP% THEN UD% = 6 : ELSE UD% = 7

    REG %AX, L% + %H * UD%
    REG %BX, A% * %H
    REG %CX, (LC%-1) + %H * (TR%-1)
    REG %DX, (RC%-1) + %H * (BR%-1)

    CALL INTERRUPT &H10

    IF UD% = 6 THEN LOCATE BR%,LC% : ELSE LOCATE TR%,LC%

END SUB

function fVideoMode%
	reg 1,&h0f00
	call interrupt &h10
	fVideoMode% = reg(1) and &b0000000011111111
end function

'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
' The following two subs save and restore the screen.  In CGA/EGA/VGA we	 ³
' could just change pages, but HERC boards have only one page in test mode. ³
' Study these routines to see the power of PowerBasic 2.x.				 ³
'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

sub SaveScreen
	shared videobufferabs&,screenbufferabs&
	def seg = 0
	poke$ screenbufferabs&, peek$(videobufferabs&,4000)
	def seg
end sub

sub RestoreScreen
	shared videobufferabs&,screenbufferabs&
	def seg = 0
	poke$ videobufferabs&, peek$(screenbufferabs&,4000)
	def seg
end sub

' The following sub displays help

sub Help
	locate 3,1
	Print "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
	print "³                             HELP                               ³"
	print "³                                                                ³"
	print "³ Left Button   - Select and place    Right Button - Scroll up   ³"
	print "³ Middle Button - Scroll down(if you haven't up graded from the  ³"
	print "³ Micro Soft two button mouse all is not lost, you can use the   ³"
	print "³ up and down arrow keys.)                                       ³"
	print "³ Button combinations are possible- Place character and scroll   ³"
	print "³                                   at the same time-Left & Right³"
	print "³ F1 - gives you this page                                       ³"
	print "³ Esc - to exit                                                  ³"
	print "³                                                                ³"
	print "³ To type text- place cursor on the word TEXT & press left button³"
	print "³               then position cursor where you want the text to  ³"
	print "³               be and start typing.                             ³"
	print "³                    PRESS ANY KEY TO CONTINUE                   ³"
	print "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
	while not instat:wend
	junk$ = inkey$
end sub