10 REM JOYSTICK EXPANDER SUBROUTINE›20 REM BY MATT LOVELESS AND MIKE EGGERS›30 REM (c) 1987, ANTIC PUBLISHING›30000 RESTORE 30100:FOR QQZ=1536 TO 1594:READ QQX:POKE QQZ,QQX:RETURN ›30100 DATA 173,36,2,141,57,6,173,37,2,141,58,6,162,6,160,23›30110 DATA 169,7,32,92,228,104,96,162,3,189,120,2,168,185,41,6›30120 DATA 157,120,2,202,16,243,108,57,6,0,0,0,0,0,4,2›30130 DATA 3,0,6,8,7,0,5,1,0,0,0,0,0,0,0,0›