100 JOYSTICK=1000:REM LOCATION OF SUBROUTINE›110 GOSUB JOYSTICK:REM CHECK THE 'JOYSTICK'›120 ? "THE 'JOYSTICK' HAS VALUE=";I›130 ? "THE 'FIRE BUTTON' HAS VALUE=";J›140 FOR PAUSE=1 TO 500:NEXT PAUSE›150 GOTO 110›1000 REM JOYSTICK SUBROUTINE›1010 I=PEEK(764)›1020 J=1›1030 POKE 764,255›1040 IF I=14 THEN I=14:RETURN ›1050 IF I=79 THEN I=6:RETURN ›1060 IF I=7 THEN I=7:RETURN ›1070 IF I=71 THEN I=5:RETURN ›1080 IF I=15 THEN I=13:RETURN ›1090 IF I=70 THEN I=9:RETURN ›1100 IF I=6 THEN I=11:RETURN ›1110 IF I=78 THEN I=10:RETURN ›1120 IF I=33 THEN I=15:J=0:RETURN :REM FIRE BUTTON›1130 I=15:RETURN ›