1 POKE88,.:POKE89,192:POKE90,.:POKE91,192:POKE781,33:POKE782,.:SYS41964
2 POKE88,254:POKE89,255:POKE90,254:POKE91,255:POKE781,33:POKE782,.:SYS41964
3 POKE59639,12:POKE1,53
10 PRINT"[147]            PRESS 'Q' TO QUIT[158]"
15 :
16 :
17 REM       SETUP THE SPRITE
25 V=53248
30 POKE 53280,0:POKE53281,0
40 FORA=12288TO12350:POKEA,255:NEXTA
50 POKE 2040,192:POKE V+39,1:POKEV+21,1
60 POKE V,24:POKEV+1,50:R=24:D=50
65 :
66 :
70 GOSUB850:REM ONE WAY TO CHECK THE                  JOYSTICK (LINES 850-895)
71 :
72 REM    ANOTHER WAY TO CHECK THE                JOYSTICK  (LINES 73-560)
73 JOY=PEEK(56320):FIRE=JOYAND16:          DI=15-(JOYAND15)
74 IF FIRE <> 16 THENGOSUB730
75 IFPEEK(203)=62THEN60000
76 IF DI=0 THEN 70
80 ON DI GOSUB150,200,250,300,350,400,450,500,550,560
90 GOTO 70
100 :
110 :
120 :
149 REM MOVE THE SPRITE IN THE DIRECTION               OF THE JOYSTICK
150 D=D-1:GOSUB600:POKEV+1,D:RETURN
155 :
200 D=D+1:GOSUB600:POKEV+1,D:RETURN
210 :
250 RETURN
255 :
300 R=R-1:GOSUB600:POKEV,R:RETURN
310 :
350 R=R-1:D=D-1:GOSUB600:POKEV+1,D:POKEV,R:RETURN
355 :
400 R=R-1:D=D+1:GOSUB600:POKEV+1,D:POKEV,R:RETURN
410 :
450 RETURN
455 :
500 R=R+1:GOSUB600:POKEV,R:RETURN
510 :
550 R=R+1:D=D-1:GOSUB600:POKEV+1,D:POKEV,R:RETURN
555 :
560 R=R+1:D=D+1:GOSUB600:POKEV+1,D:POKEV,R:RETURN
565 :
590 :
595 REM    KEEP SPRITE ON SCREEN
600 IF D=251THEND=0
610 IF D=-1THEN D=250
620 IF PEEK(V+16)=1THEN700
650 IF R=-1 THEN POKEV+16,PEEK(V+16)+1:R=88
655 IF R=256 THEN R=0:POKEV+16,PEEK(V+16)+1
660 RETURN
700 IF R=89 THEN POKE V+16,PEEK(V+16)-1:R=0
710 IF R=-1THEN POKE V+16,PEEK(V+16)-1:R=255
720 RETURN
730 C=C+1:IFC>15THENC=0
740 POKE53280,C:POKE53281,C:RETURN
800 :
810 :
820 :
830 REM  ANOTHER WAY TO CHECK JOYSTICK
850 JOY=PEEK(56320)AND15:OK=0
855 PRINT"";:IF(PEEK(56320)AND16)=.THENPRINT"";
860 IF (JOYOR14)<>15 THEN PRINT"UP",:OK=1
870 IF (JOYOR07)<>15 THEN PRINT"RIGHT",:OK=1
880 IF (JOYOR13)<>15 THEN PRINT"DOWN",:OK=1
890 IF (JOYOR11)<>15 THEN PRINT"LEFT",:OK=1
893 IF (OK) THEN PRINT
895 RETURN
10000 :
20000 :
30000 REM    RECONNECT TO LOADSTAR
60000 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60010 POKEV+21,.:IFER<>63THENEND
60020 POKE1,55:LOAD"HELLO CONNECT",8