BYTE LASTSTICK=[255]›BYTE LASTTRIG=[255]››PROC DRAWCROSS(BYTE S)› BYTE SIZE=[5]› CARD X› BYTE Y›› IF S>=9 AND S<=11 THEN› X=SIZE› ELSEIF S>=5 AND S<=7 THEN› X=159-SIZE› ELSE› X=79› FI›› IF S=6 OR S=10 OR S=14 THEN› Y=SIZE› ELSEIF S=5 OR S=9 OR S=13 THEN› Y=79-SIZE› ELSE› Y=39› FI› › PLOT(X-SIZE,Y)› DRAWTO(X+SIZE,Y)› PLOT(X,Y-SIZE)› DRAWTO(X,Y+SIZE)›RETURN››PROC UPDATESTATUS(BYTE CURRSTICK,CURRTRIG)› IF CURRSTICK#LASTSTICK THEN› COLOR=0 DRAWCROSS(LASTSTICK)› COLOR=1 DRAWCROSS(CURRSTICK)› LASTSTICK=CURRSTICK› FI›› IF CURRTRIG#LASTTRIG THEN› PRINT("BUTTON PRESSED: ")› IF CURRTRIG THEN› PRINTE("NO ")› ELSE› PRINTE("YES")› FI› PUT(28) ;MOVE CURSOR UP› LASTTRIG=CURRTRIG› FI›RETURN››PROC MAIN()› BYTE CH=$02FC,COLOR1=$02C5,COLOR2=$02C6,› CRSINH=$02F0 ;CONTROLS VISIBILITY OF CURSOR› BYTE CURRSTICK,CURRTRIG›› GRAPHICS(7)› COLOR=1› COLOR1=$0C› COLOR2=$02› CRSINH=1 ;HIDE CURSOR›› DO› CURRSTICK=STICK(0)› CURRTRIG=STRIG(0)› UPDATESTATUS(CURRSTICK,CURRTRIG)› UNTIL CH#$FF› OD› CH=$FF›RETURN››