1 REM COMMODORE 64 JOYSTICK
2 REM
3 REM USE SECOND JOYSTICK PORT
4 REM
10 GOSUB 600:GOSUB 500
80 V=10:H=10
90 GOTO 140
97 REM
98 REM MAIN MOVEMENT LOOP
99 REM
100 S=PEEK(56320)
101 IF (S AND 1)=0 THEN V=V-1:IF V<0 THEN V=V+BF
102 IF (S AND 2)=0 THEN V=V+1:IF V>BE THEN V=V-BF
103 IF (S AND 4)=0 THEN H=H-1:IF H<0 THEN H=H+RF
104 IF (S AND 8)=0 THEN H=H+1:IF H>RE THEN H=H-RF
105 IF (S AND 16)=0 THEN END
110 IF H=HX AND V=VX THEN 100
140 PRINT VM$(VX)TAB(HX)" "VM$(V)TAB(H)PF$
150 HX=H:VX=V
190 GOTO 100
497 REM
498 REM SET UP MOVEMENT STRINGS
499 REM
500 DIM VM$(BE):VM$(0)=CHR$(19)
510 FOR I=1 TO BE:VM$(I)=VM$(I-1)+CHR$(17):NEXT I
540 RETURN
597 REM
598 REM SET UP SCREEN MARGINS
599 REM
600 RE=38
605 RF=39
610 BE=23
615 BF=24
617 REM
618 REM PLAYER FIGURE
619 REM
620 PF$=CHR$(122)
627 REM
628 REM SCREEN COLOR
629 REM
630 POKE 53281,1:POKE 53280,1:PRINT CHR$(147)
690 RETURN