Re: Apple II Mouse under Applesoft

["Laine Houghton" <laine@intergate.com>]

"Bender MX" <no@morespam.com> wrote in message
news:6rHLc.107857$eO.92049@edtnps89...
> "John B. Matthews" <nospam@nospam.com> wrote in message
> nospam-D33D91.22243221072004@news-server-fe-01.columbus.rr.com">news:nospam-D33D91.22243221072004@news-server-fe-01.columbus.rr.com...
>
> > 10  HOME :D$ = CHR$(4)
> > 20  PRINT D$"IN#4"
> > 30  INPUT A,B,C
> > 40  PRINT D$"IN#0"
> > 50  VTAB 10: PRINT A,B,C
> > 60  GOTO 20
> >
> > Move the mouse around and click the button to see the effect.
> > Control-C to exit.
> >
> > John
>
> Hi All,
>
> Thanx for the replies!
>
> The Above Applesoft works ok for checking the button, and it sort
> of rings a few bells in my mind too about using the mouse under
> Applesoft.  Definitely a IN#4 in there somewhere! :)
>
> I'll keep googlin'
>
> Thanx again,
> Craig

10  HOME : D$ = CHR$(4)
20  PRINT D$ ; "PR#4" : PRINT CHR$(1) : REM INIT
30 PRINT D$ ; "PR#0"
40 PRINT D$ ; "IN#4"
50  INPUT "" ; X ,Y, S
60 VTAB 10 : PRINT X ; "  "Y"  "S"  "
70 IF S > 0 THEN 50
80 PRINT D$ ; "IN#0"
90 PRINT D$ ; "PR#4" : PRINT CHR$(0)
100 PRINT D$ ; "PR#0"