100 REM +-----------------------+
110 REM ! Program .... JOYSTYRN !
120 REM ! Gjort  av <2182>      !
130 REM ! Olle Bliding 85-08-?? !
140 REM ! Minne 16kb            !
150 REM ! |vriga tillbeh|r se   !
160 REM ! JOYINFO.TXT           !
170 REM +-----------------------+
180 REM PROGRAM F\R STYRNING AV
190 REM JOY-STICKEN :  JOY5458E.ASM
200 REM F\R ANSLUTNING AV JOYSTICK : 
210 REM OB3 :  INVerteras; {r trigger
220 REM till tv} A/D-omvandlare
230 REM OB4 :  INVerteras; {r trigger
240 REM till tv} andra A/D-Omvandlare.
250 REM In-pulserna l{ggs ihop tv} och
260 REM tv} via OR grindar. Sedan
270 REM vidare till IB0 resp IB1.
280 POKE -128%,22%,1%,205%,141%,255%,77%,22%,2%,205%,141%,255%,97%,201%,123%,211
290 POKE -113%,58%,175%,211%,58%,6%,20%,16%,254%,33%,0%,0%,35%,219%,58%,162%
300 POKE -98%,40%,250%,201%
310 A%=CALL(-128%,8%) : A=A% AND 255% : B=SWAP%(A%) AND 255%
320 A%=CALL(-128%,16%) : A2=A% AND 255% : B2=SWAP%(A%) AND 255% : ; A;B"  "A2;B2 : GOTO 310