mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-20 03:35:24 +00:00
16 lines
418 B
QBasic
16 lines
418 B
QBasic
' Cheat and assume the mouse card is in slot #4
|
|
' (which is where it is on the Apple IIc)
|
|
' This means no Mockingboard support under Linapple
|
|
'
|
|
20 IF PEEK(50188) = 32 AND PEEK(50427) = 214 THEN GOTO 30
|
|
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"
|
|
130 GOTO 105
|
|
|
|
|