QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-07 16:50:24 +00:00
Code Releases Wiki Activity

Adapts theBOB's samples so they don't use ABSOLUTE.

Browse source 
Thanks to Simmons for the conversion utility https://www.tapatalk.com/groups/qbasic/viewtopic.php?p=204977#p204977
This commit is contained in:
FellippeHeitor 2020-04-03 15:07:38 -03:00
parent 702e0f708a
commit d4ef195bd1
9 changed files with 216 additions and 45 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
programs/samples/thebob/abacus/abacus12.bas
View file

@ -216,7 +216,7 @@ SUB MouseDRIVER (LB, RB, MX, MY)
DEF SEG = VARSEG(MouseDATA$)
mouse = SADD(MouseDATA$)
CALL ABSOLUTE(LB, RB, MX, MY, mouse)
CALL ABSOLUTE_MOUSE_EMU (LB, RB, MX, MY)
END SUB
@ -261,3 +261,22 @@ SUB ShowMOUSE
LB = 1
MouseDRIVER LB, 0, 0, 0
END SUB
SUB ABSOLUTE_MOUSE_EMU (AX%, BX%, CX%, DX%)
SELECT CASE AX%
CASE 0
AX% = -1
CASE 1
_MOUSESHOW
CASE 2
_MOUSEHIDE
CASE 3
WHILE _MOUSEINPUT
WEND
BX% = -_MOUSEBUTTON(1) - _MOUSEBUTTON(2) * 2 - _MOUSEBUTTON(3) * 4
CX% = _MOUSEX
DX% = _MOUSEY
CASE 4
_MOUSEMOVE CX%, DX% 'Not currently supported in QB64 GL
END SELECT
END SUB

21
programs/samples/thebob/animax/animax.bas
View file

@ -1433,7 +1433,7 @@ SUB MouseDRIVER (LB, RB, Mx, My)
DEF SEG = VARSEG(MouseDATA$)
mouse = SADD(MouseDATA$)
CALL ABSOLUTE(LB, RB, Mx, My, mouse)
CALL ABSOLUTE_MOUSE_EMU (LBLB, RB RB, MX Mx, MY My)
END SUB
@ -2198,3 +2198,22 @@ ScalePIXELy = PixelY * Scale + 51
RETURN
END SUB
SUB ABSOLUTE_MOUSE_EMU (AX%, BX%, CX%, DX%)
SELECT CASE AX%
CASE 0
AX% = -1
CASE 1
_MOUSESHOW
CASE 2
_MOUSEHIDE
CASE 3
WHILE _MOUSEINPUT
WEND
BX% = -_MOUSEBUTTON(1) - _MOUSEBUTTON(2) * 2 - _MOUSEBUTTON(3) * 4
CX% = _MOUSEX
DX% = _MOUSEY
CASE 4
_MOUSEMOVE CX%, DX% 'Not currently supported in QB64 GL
END SELECT
END SUB

21
programs/samples/thebob/chess/chesssubs.bas
View file

@ -221,7 +221,7 @@ SUB MouseDRIVER (LB, RB, MX, MY)
DEF SEG = VARSEG(MouseDATA$)
mouse = SADD(MouseDATA$)
CALL ABSOLUTE(LB, RB, MX, MY, mouse)
CALL ABSOLUTE_MOUSE_EMU (LBLBLB, RB RB RB, MX Mx MX, MY My MY)
END SUB
@ -299,3 +299,22 @@ SUB ShowMOUSE
LB = 1
MouseDRIVER LB, 0, 0, 0
END SUB
SUB ABSOLUTE_MOUSE_EMU (AX%, BX%, CX%, DX%)
SELECT CASE AX%
CASE 0
AX% = -1
CASE 1
_MOUSESHOW
CASE 2
_MOUSEHIDE
CASE 3
WHILE _MOUSEINPUT
WEND
BX% = -_MOUSEBUTTON(1) - _MOUSEBUTTON(2) * 2 - _MOUSEBUTTON(3) * 4
CX% = _MOUSEX
DX% = _MOUSEY
CASE 4
_MOUSEMOVE CX%, DX% 'Not currently supported in QB64 GL
END SELECT
END SUB

21
programs/samples/thebob/chopper/chopper.bas
View file

@ -2439,7 +2439,7 @@ SUB MouseDRIVER (LB, RB, MX, MY)
DEF SEG = VARSEG(MouseDATA$)
Mouse = SADD(MouseDATA$)
CALL ABSOLUTE(LB, RB, MX, MY, Mouse)
CALL ABSOLUTE_MOUSE_EMU (LBLBLBLB, RB RB RB RB, MX Mx MX MX, MY My MY MY)
END SUB
@ -3343,3 +3343,22 @@ NEXT n
END SUB
SUB ABSOLUTE_MOUSE_EMU (AX%, BX%, CX%, DX%)
SELECT CASE AX%
CASE 0
AX% = -1
CASE 1
_MOUSESHOW
CASE 2
_MOUSEHIDE
CASE 3
WHILE _MOUSEINPUT
WEND
BX% = -_MOUSEBUTTON(1) - _MOUSEBUTTON(2) * 2 - _MOUSEBUTTON(3) * 4
CX% = _MOUSEX
DX% = _MOUSEY
CASE 4
_MOUSEMOVE CX%, DX% 'Not currently supported in QB64 GL
END SELECT
END SUB

21
programs/samples/thebob/kong/kong.bas
View file

@ -847,7 +847,7 @@ SUB MouseDRIVER (LB, RB, MX, MY)
DEF SEG = VARSEG(MouseDATA$)
Mouse = SADD(MouseDATA$)
CALL ABSOLUTE(LB, RB, MX, MY, Mouse)
CALL ABSOLUTE_MOUSE_EMU (LBLBLBLBLB, RB RB RB RB RB, MX Mx MX MX MX, MY My MY MY MY)
END SUB
@ -1221,3 +1221,22 @@ Item = 0
RETURN
END SUB
SUB ABSOLUTE_MOUSE_EMU (AX%, BX%, CX%, DX%)
SELECT CASE AX%
CASE 0
AX% = -1
CASE 1
_MOUSESHOW
CASE 2
_MOUSEHIDE
CASE 3
WHILE _MOUSEINPUT
WEND
BX% = -_MOUSEBUTTON(1) - _MOUSEBUTTON(2) * 2 - _MOUSEBUTTON(3) * 4
CX% = _MOUSEX
DX% = _MOUSEY
CASE 4
_MOUSEMOVE CX%, DX% 'Not currently supported in QB64 GL
END SELECT
END SUB

21
programs/samples/thebob/leapfrog/leapfrog.bas
View file

@ -538,7 +538,7 @@ SUB MouseDRIVER (LB, RB, mX, mY)
DEF SEG = VARSEG(MouseDATA$)
Mouse = SADD(MouseDATA$)
CALL ABSOLUTE(LB, RB, mX, mY, Mouse)
CALL ABSOLUTE_MOUSE_EMU (LBLBLBLBLBLB, RB RB RB RB RB RB, MX Mx MX MX MX mX, MY My MY MY MY mY)
END SUB
@ -627,3 +627,22 @@ SUB ShowMOUSE
LB = 1
MouseDRIVER LB, 0, 0, 0
END SUB
SUB ABSOLUTE_MOUSE_EMU (AX%, BX%, CX%, DX%)
SELECT CASE AX%
CASE 0
AX% = -1
CASE 1
_MOUSESHOW
CASE 2
_MOUSEHIDE
CASE 3
WHILE _MOUSEINPUT
WEND
BX% = -_MOUSEBUTTON(1) - _MOUSEBUTTON(2) * 2 - _MOUSEBUTTON(3) * 4
CX% = _MOUSEX
DX% = _MOUSEY
CASE 4
_MOUSEMOVE CX%, DX% 'Not currently supported in QB64 GL
END SELECT
END SUB

21
programs/samples/thebob/minigolf/mg.bas
View file

@ -701,7 +701,7 @@ SUB MouseDRIVER (LB, RB, MX, MY)
DEF SEG = VARSEG(MouseDATA$)
Mouse = SADD(MouseDATA$)
CALL ABSOLUTE(LB, RB, MX, MY, Mouse)
CALL ABSOLUTE_MOUSE_EMU (LBLBLBLBLBLBLB, RB RB RB RB RB RB RB, MX Mx MX MX MX mX MX, MY My MY MY MY mY MY)
END SUB
@ -1973,3 +1973,22 @@ RETURN
END SUB
SUB ABSOLUTE_MOUSE_EMU (AX%, BX%, CX%, DX%)
SELECT CASE AX%
CASE 0
AX% = -1
CASE 1
_MOUSESHOW
CASE 2
_MOUSEHIDE
CASE 3
WHILE _MOUSEINPUT
WEND
BX% = -_MOUSEBUTTON(1) - _MOUSEBUTTON(2) * 2 - _MOUSEBUTTON(3) * 4
CX% = _MOUSEX
DX% = _MOUSEY
CASE 4
_MOUSEMOVE CX%, DX% 'Not currently supported in QB64 GL
END SELECT
END SUB

21
programs/samples/thebob/pongg/pongg.bas
View file

@ -702,7 +702,7 @@ SUB MouseDRIVER (LB, RB, MX, MY)
DEF SEG = VARSEG(MouseDATA$)
Mouse = SADD(MouseDATA$)
CALL ABSOLUTE(LB, RB, MX, MY, Mouse)
CALL ABSOLUTE_MOUSE_EMU (LBLBLBLBLBLBLBLB, RB RB RB RB RB RB RB RB, MX Mx MX MX MX mX MX MX, MY My MY MY MY mY MY MY)
END SUB
@ -797,3 +797,22 @@ DEF SEG
PUT (198, 178), BigBOX(), PSET
END SUB
SUB ABSOLUTE_MOUSE_EMU (AX%, BX%, CX%, DX%)
SELECT CASE AX%
CASE 0
AX% = -1
CASE 1
_MOUSESHOW
CASE 2
_MOUSEHIDE
CASE 3
WHILE _MOUSEINPUT
WEND
BX% = -_MOUSEBUTTON(1) - _MOUSEBUTTON(2) * 2 - _MOUSEBUTTON(3) * 4
CX% = _MOUSEX
DX% = _MOUSEY
CASE 4
_MOUSEMOVE CX%, DX% 'Not currently supported in QB64 GL
END SELECT
END SUB

21
programs/samples/thebob/sol/sol3.bas
View file

@ -369,7 +369,7 @@ SUB MouseDRIVER (LB, RB, mX, mY)
DEF SEG = VARSEG(MouseDATA$)
Mouse = SADD(MouseDATA$)
CALL ABSOLUTE(LB, RB, mX, mY, Mouse)
CALL ABSOLUTE_MOUSE_EMU (LBLBLBLBLBLBLBLBLB, RB RB RB RB RB RB RB RB RB, MX Mx MX MX MX mX MX MX mX, MY My MY MY MY mY MY MY mY)
END SUB
@ -1559,3 +1559,22 @@ LastDECK = 0
ShowMOUSE
END SUB
SUB ABSOLUTE_MOUSE_EMU (AX%, BX%, CX%, DX%)
SELECT CASE AX%
CASE 0
AX% = -1
CASE 1
_MOUSESHOW
CASE 2
_MOUSEHIDE
CASE 3
WHILE _MOUSEINPUT
WEND
BX% = -_MOUSEBUTTON(1) - _MOUSEBUTTON(2) * 2 - _MOUSEBUTTON(3) * 4
CX% = _MOUSEX
DX% = _MOUSEY
CASE 4
_MOUSEMOVE CX%, DX% 'Not currently supported in QB64 GL
END SELECT
END SUB