Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-05-28 17:41:29 +00:00
Code Issues Projects Releases Wiki Activity

glados: mouse test code now works, thanks to inexorabletash on c.s.a2.p

Browse Source
This commit is contained in:
Vince Weaver 2017-01-12 21:18:10 -05:00
parent f475446465
commit e19783aafa
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
glados3.3/mouse_test.bas
View File

@ -6,10 +6,10 @@
25 PRINT "NO MOUSE IN SLOT #4":END
30 PRINT "MOUSE FOND SLOT #4"
' Enable the mouse
100 PRINT CHR$(4)"PR#4":PRINT CHR$(1)
105 PRINT CHR$(4)"IN#4":INPUT "";X,Y,S
110 PRINT X,Y,S
120 PRINT CHR$(4)"IN#0"
100 PRINT CHR$(4)"PR#4":PRINT CHR$(1):PRINT CHR$(4)"PR#0"
105 PRINT CHR$(4)"IN#4":INPUT "";X,Y,B:PRINT CHR$(4)"IN#0"
' X,Y,Button state (1 button) 4=up, 2=pressed, 1=down, 3=release
110 PRINT X,Y,B
130 GOTO 105