Invaders/Road Race, H-Fighter/Squish, Painter/Cobra.
Content
Image Gallery
Source Code
1 REM \DB itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56754 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"D
Skip to content
Zebra Joystick Games
Invaders/Road Race, H-Fighter/Squish, Painter/Cobra.
Content
Image Gallery
Source Code
1 REM \DB\1D\2F\E6\0C\06\00\4F\C9
10 SLOW
30 PRINT "1 INVADERS"
40 PRINT "2 ROAD RACE"
50 PRINT "HIT 1 OR 2"
60 LET Q=VAL "16398"
70 LET R=VAL "16514"
80 LET K=VAL "10"
100 LET P=VAL "9000"
110 LET I=P/P
120 LET Z=I-I
130 LET U=I+I
140 LET SC=Z
150 LET G=VAL "16"
160 LET H=G
170 GOTO 170+30*(INKEY$="1")+430*(INKEY$="2")
200 CLS
210 POKE R+U+U,CODE "0"
214 LET V=Z
215 LET W=Z
220 FOR L=1 TO 4
230 LET D$="U U U U U U U U U U "
240 LET T=Z
250 LET F=Z
270 PRINT AT L,Z;D$;AT 7,G-U;" Y "
280 IF F THEN GOTO 360
300 LET J=USR R
310 IF J>=H THEN GOSUB 500
320 LET G=G+J-6*(J<>Z)
330 LET D$=D$(U TO 31)+D$(I)
340 LET SC=SC-I
350 GOTO 270
360 LET Y=Y-I
370 PRINT AT V,W;" "
380 PRINT AT Y,X;"*"
390 LET V=Y
400 LET W=X
410 IF Y>L THEN GOTO 290
420 IF D$(X+1)=" " THEN GOTO 250
430 LET D$(X+I)=" "
440 LET SC=SC+K**U
450 LET T=T+I
460 PRINT AT Z,Z;SC
470 IF T<K THEN GOTO 250
480 NEXT L
490 STOP
500 LET F=I
510 LET Y=6
520 LET X=G
530 LET J=J-H
540 RETURN
600 LET X=K
610 LET Y=K
620 LET M=CODE "O"
630 LET N=G/U
640 CLS
650 POKE R+U+U,CODE "£"
660 LET B=G-I
690 GOTO 750
700 LET N=N+INT (U*RND-U*RND)
710 POKE P,B-J*13
720 PRINT "%8"
730 PRINT AT 19,N;"OO OO"
740 PRINT AT X-I,W;" "
750 LET W=Y
760 LET J=USR R
770 LET Y=Y+SGN (J-7)*(J>U)
780 LET J=J<>0
790 POKE P,B-J*12
800 IF N>23 THEN LET N=23
810 IF N<U THEN LET N=U
820 LET SC=SC+U-J
825 POKE P,B-J*13
830 SCROLL
840 PRINT AT X,Y;
850 POKE P,B-J*12
860 IF PEEK (PEEK Q+256*PEEK (Q+I))<>M THEN GOTO 700
870 PRINT AT Z,Z;"SCORE --> ";SC
880 POKE P,Z
890 STOP
2000 SAVE "GAME%S"
2010 RUN
1 REM \DB\1D\2F\E6\0C\06\00\4F\C9
10 SLOW
11 CLS
20 PRINT AT 5,6;"ZEBRA SYSTEMS INC."
30 PRINT AT 9,8;"1 H-FIGHTER"
40 PRINT AT 11,8;"2 SQUISH"
50 PRINT AT 17,8;"HIT 1 OR 2"
100 LET P=VAL "9000"
110 LET I=P/P
120 LET U=I+I
130 LET B=VAL "15"
140 LET T=B-U-U-I
150 LET Z=I-I
160 LET SC=Z
170 LET D=Z
180 LET N=T-U
190 POKE P,Z
200 GOTO 200+500*(INKEY$="1")+100*(INKEY$="2")
300 POKE 16518,CODE "£"
310 LET C=N-I
320 CLS
330 PRINT "% % % % % % % % % % % % % % % "
340 FOR X=I TO T
350 PRINT "% ";TAB C+C;"% "
360 NEXT X
370 GOTO 560
380 LET J=USR 16514
390 LET C=C+(J=N)-(J=4)
400 IF C>Z AND C<13 THEN PRINT AT T+I,C-I;" \''\'' "
410 IF E=T AND C<>F AND C+I<>F THEN GOTO 510
420 LET SC=SC+I
430 PRINT AT E,F;" "
440 LET E=E+A
450 IF E=I OR E=T THEN LET A=-A
460 LET F=F+B
470 IF F=I OR F=13 THEN LET B=-B
480 PRINT AT E,F;"O"
490 IF E=I OR E=T THEN LET B=SGN (INT (RND*(U+I))-(F<>I)+(F=13))
500 GOTO 380
510 LET D=D+I
520 PRINT AT 14,Z;D,SC
540 IF D>5 THEN RUN
550 PRINT AT E,F;" "
560 LET A=I
570 LET E=A
580 LET F=E
590 LET B=A
600 GOTO 380
700 POKE 16518,CODE "3"
710 CLS
720 LET X=INT (RND*(T+B+I))
730 LET Y=INT (RND*(T+N))
740 PRINT AT Z,Z;"SCORE ";SC
750 POKE P,Z
760 LET C=D
770 PRINT AT Y-I,X;" ";AT Y,X;" \ :\.: ";AT Y+I,X;" \ '\ ' ";AT Y+U,X;" ";AT T+I,B;"+"
780 IF D>P THEN STOP
790 LET D=D+T
800 IF D-C>T*T*U THEN GOTO 850
810 LET J=USR 16514
815 IF J<=B THEN GOTO 880
820 IF Y<T OR Y>T+I OR X<B-2 OR X>B-1 THEN GOTO 850
830 POKE P,N
840 LET SC=SC+T+T+T
850 LET SC=SC-T
860 POKE P,T
870 GOTO 710
880 LET X=X-SGN (J-7)*(J>2)
890 LET J=J-INT (J/4)*4
900 LET Y=Y-J*U+3*SGN J
910 GOTO 770
2000 SAVE "GAME%S"
2010 RUN
1 REM \DB\1D\2F\E6\1F\06\00\4F\C9
10 SLOW
30 PRINT "1 PAINTER"
40 PRINT "2 COBRA"
50 PRINT "HIT 1 OR 2"
70 LET R=VAL "16514"
80 LET K=VAL "10"
110 LET I=K/K
120 LET Z=I-I
130 LET U=I+I
140 LET SC=Z
150 LET G=VAL "16"
170 GOTO 170+30*(INKEY$="1")+430*(INKEY$="2")
200 CLS
220 LET X=G+G
230 LET Y=K+K
240 LET J=USR R
250 IF J>=G THEN LET SC=1
260 LET J=J-G*(J>=G)
270 LET X=X+SGN (J-7)*(J>U)
280 LET J=J-INT (J/4)*4
290 LET Y=Y+(J=I)-(J=U)
300 UNPLOT X,Y
310 PLOT X,Y
320 IF SC THEN UNPLOT X,Y
330 LET SC=Z
340 GOTO 240
600 LET E$="PEEK (PEEK 16398+256*PEEK 16399)"
610 CLS
620 LET SC=R
640 LET H=G+K
650 FOR X=Z TO H
660 PRINT AT Z,X;"% ";AT G,X;"% "
670 NEXT X
680 FOR Y=Z TO G
690 PRINT AT Y,Z;"% ";AT Y,H;"% "
700 NEXT Y
710 LET X=G/U
720 LET Y=H-I
730 LET V=X
740 LET W=I
750 LET A=Z
760 LET B=A
770 LET C=SGN (INT (RND*7)-3+A)
780 LET D=SGN (INT (RND*7)-3+B)
800 PRINT AT V+C,W+D;
810 LET E=VAL E$
820 IF E<>Z THEN GOTO 870
830 PRINT "O";AT V,W;" "
850 LET V=V+C
860 LET W=W+D
870 LET SC=SC-K
880 LET J=USR R-16*(USR R>16)
890 IF J=Z THEN GOTO 750
900 LET B=SGN (J-7)*(J>U)
910 LET A=J-INT (J/4)*4
920 LET A=(J=U)-(J=I)
930 PRINT AT X+A,Y+B;
940 LET E=VAL E$
960 IF E=128 THEN GOTO 770
970 LET X=X+A
980 LET Y=Y+B
990 PRINT "\@@"
995 IF E<>52 THEN GOTO 770
1000 PRINT AT Z,Z;SC
1010 STOP
2000 SAVE "GAME%S"
2010 RUN
People
No people associated with this content.
F\E6
Skip to content
Zebra Joystick Games
Invaders/Road Race, H-Fighter/Squish, Painter/Cobra.
Content
Image Gallery
Source Code
1 REM \DB\1D\2F\E6\0C\06\00\4F\C9
10 SLOW
30 PRINT "1 INVADERS"
40 PRINT "2 ROAD RACE"
50 PRINT "HIT 1 OR 2"
60 LET Q=VAL "16398"
70 LET R=VAL "16514"
80 LET K=VAL "10"
100 LET P=VAL "9000"
110 LET I=P/P
120 LET Z=I-I
130 LET U=I+I
140 LET SC=Z
150 LET G=VAL "16"
160 LET H=G
170 GOTO 170+30*(INKEY$="1")+430*(INKEY$="2")
200 CLS
210 POKE R+U+U,CODE "0"
214 LET V=Z
215 LET W=Z
220 FOR L=1 TO 4
230 LET D$="U U U U U U U U U U "
240 LET T=Z
250 LET F=Z
270 PRINT AT L,Z;D$;AT 7,G-U;" Y "
280 IF F THEN GOTO 360
300 LET J=USR R
310 IF J>=H THEN GOSUB 500
320 LET G=G+J-6*(J<>Z)
330 LET D$=D$(U TO 31)+D$(I)
340 LET SC=SC-I
350 GOTO 270
360 LET Y=Y-I
370 PRINT AT V,W;" "
380 PRINT AT Y,X;"*"
390 LET V=Y
400 LET W=X
410 IF Y>L THEN GOTO 290
420 IF D$(X+1)=" " THEN GOTO 250
430 LET D$(X+I)=" "
440 LET SC=SC+K**U
450 LET T=T+I
460 PRINT AT Z,Z;SC
470 IF T<K THEN GOTO 250
480 NEXT L
490 STOP
500 LET F=I
510 LET Y=6
520 LET X=G
530 LET J=J-H
540 RETURN
600 LET X=K
610 LET Y=K
620 LET M=CODE "O"
630 LET N=G/U
640 CLS
650 POKE R+U+U,CODE "£"
660 LET B=G-I
690 GOTO 750
700 LET N=N+INT (U*RND-U*RND)
710 POKE P,B-J*13
720 PRINT "%8"
730 PRINT AT 19,N;"OO OO"
740 PRINT AT X-I,W;" "
750 LET W=Y
760 LET J=USR R
770 LET Y=Y+SGN (J-7)*(J>U)
780 LET J=J<>0
790 POKE P,B-J*12
800 IF N>23 THEN LET N=23
810 IF N<U THEN LET N=U
820 LET SC=SC+U-J
825 POKE P,B-J*13
830 SCROLL
840 PRINT AT X,Y;
850 POKE P,B-J*12
860 IF PEEK (PEEK Q+256*PEEK (Q+I))<>M THEN GOTO 700
870 PRINT AT Z,Z;"SCORE --> ";SC
880 POKE P,Z
890 STOP
2000 SAVE "GAME%S"
2010 RUN
1 REM \DB\1D\2F\E6\0C\06\00\4F\C9
10 SLOW
11 CLS
20 PRINT AT 5,6;"ZEBRA SYSTEMS INC."
30 PRINT AT 9,8;"1 H-FIGHTER"
40 PRINT AT 11,8;"2 SQUISH"
50 PRINT AT 17,8;"HIT 1 OR 2"
100 LET P=VAL "9000"
110 LET I=P/P
120 LET U=I+I
130 LET B=VAL "15"
140 LET T=B-U-U-I
150 LET Z=I-I
160 LET SC=Z
170 LET D=Z
180 LET N=T-U
190 POKE P,Z
200 GOTO 200+500*(INKEY$="1")+100*(INKEY$="2")
300 POKE 16518,CODE "£"
310 LET C=N-I
320 CLS
330 PRINT "% % % % % % % % % % % % % % % "
340 FOR X=I TO T
350 PRINT "% ";TAB C+C;"% "
360 NEXT X
370 GOTO 560
380 LET J=USR 16514
390 LET C=C+(J=N)-(J=4)
400 IF C>Z AND C<13 THEN PRINT AT T+I,C-I;" \''\'' "
410 IF E=T AND C<>F AND C+I<>F THEN GOTO 510
420 LET SC=SC+I
430 PRINT AT E,F;" "
440 LET E=E+A
450 IF E=I OR E=T THEN LET A=-A
460 LET F=F+B
470 IF F=I OR F=13 THEN LET B=-B
480 PRINT AT E,F;"O"
490 IF E=I OR E=T THEN LET B=SGN (INT (RND*(U+I))-(F<>I)+(F=13))
500 GOTO 380
510 LET D=D+I
520 PRINT AT 14,Z;D,SC
540 IF D>5 THEN RUN
550 PRINT AT E,F;" "
560 LET A=I
570 LET E=A
580 LET F=E
590 LET B=A
600 GOTO 380
700 POKE 16518,CODE "3"
710 CLS
720 LET X=INT (RND*(T+B+I))
730 LET Y=INT (RND*(T+N))
740 PRINT AT Z,Z;"SCORE ";SC
750 POKE P,Z
760 LET C=D
770 PRINT AT Y-I,X;" ";AT Y,X;" \ :\.: ";AT Y+I,X;" \ '\ ' ";AT Y+U,X;" ";AT T+I,B;"+"
780 IF D>P THEN STOP
790 LET D=D+T
800 IF D-C>T*T*U THEN GOTO 850
810 LET J=USR 16514
815 IF J<=B THEN GOTO 880
820 IF Y<T OR Y>T+I OR X<B-2 OR X>B-1 THEN GOTO 850
830 POKE P,N
840 LET SC=SC+T+T+T
850 LET SC=SC-T
860 POKE P,T
870 GOTO 710
880 LET X=X-SGN (J-7)*(J>2)
890 LET J=J-INT (J/4)*4
900 LET Y=Y-J*U+3*SGN J
910 GOTO 770
2000 SAVE "GAME%S"
2010 RUN
1 REM \DB\1D\2F\E6\1F\06\00\4F\C9
10 SLOW
30 PRINT "1 PAINTER"
40 PRINT "2 COBRA"
50 PRINT "HIT 1 OR 2"
70 LET R=VAL "16514"
80 LET K=VAL "10"
110 LET I=K/K
120 LET Z=I-I
130 LET U=I+I
140 LET SC=Z
150 LET G=VAL "16"
170 GOTO 170+30*(INKEY$="1")+430*(INKEY$="2")
200 CLS
220 LET X=G+G
230 LET Y=K+K
240 LET J=USR R
250 IF J>=G THEN LET SC=1
260 LET J=J-G*(J>=G)
270 LET X=X+SGN (J-7)*(J>U)
280 LET J=J-INT (J/4)*4
290 LET Y=Y+(J=I)-(J=U)
300 UNPLOT X,Y
310 PLOT X,Y
320 IF SC THEN UNPLOT X,Y
330 LET SC=Z
340 GOTO 240
600 LET E$="PEEK (PEEK 16398+256*PEEK 16399)"
610 CLS
620 LET SC=R
640 LET H=G+K
650 FOR X=Z TO H
660 PRINT AT Z,X;"% ";AT G,X;"% "
670 NEXT X
680 FOR Y=Z TO G
690 PRINT AT Y,Z;"% ";AT Y,H;"% "
700 NEXT Y
710 LET X=G/U
720 LET Y=H-I
730 LET V=X
740 LET W=I
750 LET A=Z
760 LET B=A
770 LET C=SGN (INT (RND*7)-3+A)
780 LET D=SGN (INT (RND*7)-3+B)
800 PRINT AT V+C,W+D;
810 LET E=VAL E$
820 IF E<>Z THEN GOTO 870
830 PRINT "O";AT V,W;" "
850 LET V=V+C
860 LET W=W+D
870 LET SC=SC-K
880 LET J=USR R-16*(USR R>16)
890 IF J=Z THEN GOTO 750
900 LET B=SGN (J-7)*(J>U)
910 LET A=J-INT (J/4)*4
920 LET A=(J=U)-(J=I)
930 PRINT AT X+A,Y+B;
940 LET E=VAL E$
960 IF E=128 THEN GOTO 770
970 LET X=X+A
980 LET Y=Y+B
990 PRINT "\@@"
995 IF E<>52 THEN GOTO 770
1000 PRINT AT Z,Z;SC
1010 STOP
2000 SAVE "GAME%S"
2010 RUN
People
No people associated with this content.
C
Skip to content
Zebra Joystick Games
Invaders/Road Race, H-Fighter/Squish, Painter/Cobra.
Content
Image Gallery
Source Code
1 REM \DB\1D\2F\E6\0C\06\00\4F\C9
10 SLOW
30 PRINT "1 INVADERS"
40 PRINT "2 ROAD RACE"
50 PRINT "HIT 1 OR 2"
60 LET Q=VAL "16398"
70 LET R=VAL "16514"
80 LET K=VAL "10"
100 LET P=VAL "9000"
110 LET I=P/P
120 LET Z=I-I
130 LET U=I+I
140 LET SC=Z
150 LET G=VAL "16"
160 LET H=G
170 GOTO 170+30*(INKEY$="1")+430*(INKEY$="2")
200 CLS
210 POKE R+U+U,CODE "0"
214 LET V=Z
215 LET W=Z
220 FOR L=1 TO 4
230 LET D$="U U U U U U U U U U "
240 LET T=Z
250 LET F=Z
270 PRINT AT L,Z;D$;AT 7,G-U;" Y "
280 IF F THEN GOTO 360
300 LET J=USR R
310 IF J>=H THEN GOSUB 500
320 LET G=G+J-6*(J<>Z)
330 LET D$=D$(U TO 31)+D$(I)
340 LET SC=SC-I
350 GOTO 270
360 LET Y=Y-I
370 PRINT AT V,W;" "
380 PRINT AT Y,X;"*"
390 LET V=Y
400 LET W=X
410 IF Y>L THEN GOTO 290
420 IF D$(X+1)=" " THEN GOTO 250
430 LET D$(X+I)=" "
440 LET SC=SC+K**U
450 LET T=T+I
460 PRINT AT Z,Z;SC
470 IF T<K THEN GOTO 250
480 NEXT L
490 STOP
500 LET F=I
510 LET Y=6
520 LET X=G
530 LET J=J-H
540 RETURN
600 LET X=K
610 LET Y=K
620 LET M=CODE "O"
630 LET N=G/U
640 CLS
650 POKE R+U+U,CODE "£"
660 LET B=G-I
690 GOTO 750
700 LET N=N+INT (U*RND-U*RND)
710 POKE P,B-J*13
720 PRINT "%8"
730 PRINT AT 19,N;"OO OO"
740 PRINT AT X-I,W;" "
750 LET W=Y
760 LET J=USR R
770 LET Y=Y+SGN (J-7)*(J>U)
780 LET J=J<>0
790 POKE P,B-J*12
800 IF N>23 THEN LET N=23
810 IF N<U THEN LET N=U
820 LET SC=SC+U-J
825 POKE P,B-J*13
830 SCROLL
840 PRINT AT X,Y;
850 POKE P,B-J*12
860 IF PEEK (PEEK Q+256*PEEK (Q+I))<>M THEN GOTO 700
870 PRINT AT Z,Z;"SCORE --> ";SC
880 POKE P,Z
890 STOP
2000 SAVE "GAME%S"
2010 RUN
1 REM \DB\1D\2F\E6\0C\06\00\4F\C9
10 SLOW
11 CLS
20 PRINT AT 5,6;"ZEBRA SYSTEMS INC."
30 PRINT AT 9,8;"1 H-FIGHTER"
40 PRINT AT 11,8;"2 SQUISH"
50 PRINT AT 17,8;"HIT 1 OR 2"
100 LET P=VAL "9000"
110 LET I=P/P
120 LET U=I+I
130 LET B=VAL "15"
140 LET T=B-U-U-I
150 LET Z=I-I
160 LET SC=Z
170 LET D=Z
180 LET N=T-U
190 POKE P,Z
200 GOTO 200+500*(INKEY$="1")+100*(INKEY$="2")
300 POKE 16518,CODE "£"
310 LET C=N-I
320 CLS
330 PRINT "% % % % % % % % % % % % % % % "
340 FOR X=I TO T
350 PRINT "% ";TAB C+C;"% "
360 NEXT X
370 GOTO 560
380 LET J=USR 16514
390 LET C=C+(J=N)-(J=4)
400 IF C>Z AND C<13 THEN PRINT AT T+I,C-I;" \''\'' "
410 IF E=T AND C<>F AND C+I<>F THEN GOTO 510
420 LET SC=SC+I
430 PRINT AT E,F;" "
440 LET E=E+A
450 IF E=I OR E=T THEN LET A=-A
460 LET F=F+B
470 IF F=I OR F=13 THEN LET B=-B
480 PRINT AT E,F;"O"
490 IF E=I OR E=T THEN LET B=SGN (INT (RND*(U+I))-(F<>I)+(F=13))
500 GOTO 380
510 LET D=D+I
520 PRINT AT 14,Z;D,SC
540 IF D>5 THEN RUN
550 PRINT AT E,F;" "
560 LET A=I
570 LET E=A
580 LET F=E
590 LET B=A
600 GOTO 380
700 POKE 16518,CODE "3"
710 CLS
720 LET X=INT (RND*(T+B+I))
730 LET Y=INT (RND*(T+N))
740 PRINT AT Z,Z;"SCORE ";SC
750 POKE P,Z
760 LET C=D
770 PRINT AT Y-I,X;" ";AT Y,X;" \ :\.: ";AT Y+I,X;" \ '\ ' ";AT Y+U,X;" ";AT T+I,B;"+"
780 IF D>P THEN STOP
790 LET D=D+T
800 IF D-C>T*T*U THEN GOTO 850
810 LET J=USR 16514
815 IF J<=B THEN GOTO 880
820 IF Y<T OR Y>T+I OR X<B-2 OR X>B-1 THEN GOTO 850
830 POKE P,N
840 LET SC=SC+T+T+T
850 LET SC=SC-T
860 POKE P,T
870 GOTO 710
880 LET X=X-SGN (J-7)*(J>2)
890 LET J=J-INT (J/4)*4
900 LET Y=Y-J*U+3*SGN J
910 GOTO 770
2000 SAVE "GAME%S"
2010 RUN
1 REM \DB\1D\2F\E6\1F\06\00\4F\C9
10 SLOW
30 PRINT "1 PAINTER"
40 PRINT "2 COBRA"
50 PRINT "HIT 1 OR 2"
70 LET R=VAL "16514"
80 LET K=VAL "10"
110 LET I=K/K
120 LET Z=I-I
130 LET U=I+I
140 LET SC=Z
150 LET G=VAL "16"
170 GOTO 170+30*(INKEY$="1")+430*(INKEY$="2")
200 CLS
220 LET X=G+G
230 LET Y=K+K
240 LET J=USR R
250 IF J>=G THEN LET SC=1
260 LET J=J-G*(J>=G)
270 LET X=X+SGN (J-7)*(J>U)
280 LET J=J-INT (J/4)*4
290 LET Y=Y+(J=I)-(J=U)
300 UNPLOT X,Y
310 PLOT X,Y
320 IF SC THEN UNPLOT X,Y
330 LET SC=Z
340 GOTO 240
600 LET E$="PEEK (PEEK 16398+256*PEEK 16399)"
610 CLS
620 LET SC=R
640 LET H=G+K
650 FOR X=Z TO H
660 PRINT AT Z,X;"% ";AT G,X;"% "
670 NEXT X
680 FOR Y=Z TO G
690 PRINT AT Y,Z;"% ";AT Y,H;"% "
700 NEXT Y
710 LET X=G/U
720 LET Y=H-I
730 LET V=X
740 LET W=I
750 LET A=Z
760 LET B=A
770 LET C=SGN (INT (RND*7)-3+A)
780 LET D=SGN (INT (RND*7)-3+B)
800 PRINT AT V+C,W+D;
810 LET E=VAL E$
820 IF E<>Z THEN GOTO 870
830 PRINT "O";AT V,W;" "
850 LET V=V+C
860 LET W=W+D
870 LET SC=SC-K
880 LET J=USR R-16*(USR R>16)
890 IF J=Z THEN GOTO 750
900 LET B=SGN (J-7)*(J>U)
910 LET A=J-INT (J/4)*4
920 LET A=(J=U)-(J=I)
930 PRINT AT X+A,Y+B;
940 LET E=VAL E$
960 IF E=128 THEN GOTO 770
970 LET X=X+A
980 LET Y=Y+B
990 PRINT "\@@"
995 IF E<>52 THEN GOTO 770
1000 PRINT AT Z,Z;SC
1010 STOP
2000 SAVE "GAME%S"
2010 RUN
People
No people associated with this content.
F\C9
10 SLOW
30 PRINT "1 INVADERS"
40 PRINT "2 ROAD RACE"
50 PRINT "HIT 1 OR 2"
60 LET Q=VAL "16398"
70 LET R=VAL "16514"
80 LET K=VAL "10"
100 LET P=VAL "9000"
110 LET I=P/P
120 LET Z=I-I
130 LET U=I+I
140 LET SC=Z
150 LET G=VAL "16"
160 LET H=G
170 GOTO 170+30*(INKEY$="1")+430*(INKEY$="2")
200 CLS
210 POKE R+U+U,CODE "0"
214 LET V=Z
215 LET W=Z
220 FOR L=1 TO 4
230 LET D$="U U U U U U U U U U "
240 LET T=Z
250 LET F=Z
270 PRINT AT L,Z;D$;AT 7,G-U;" Y "
280 IF F THEN GOTO 360
300 LET J=USR R
310 IF J>=H THEN GOSUB 500
320 LET G=G+J-6*(J<>Z)
330 LET D$=D$(U TO 31)+D$(I)
340 LET SC=SC-I
350 GOTO 270
360 LET Y=Y-I
370 PRINT AT V,W;" "
380 PRINT AT Y,X;"*"
390 LET V=Y
400 LET W=X
410 IF Y>L THEN GOTO 290
420 IF D$(X+1)=" " THEN GOTO 250
430 LET D$(X+I)=" "
440 LET SC=SC+K**U
450 LET T=T+I
460 PRINT AT Z,Z;SC
470 IF T<K THEN GOTO 250
480 NEXT L
490 STOP
500 LET F=I
510 LET Y=6
520 LET X=G
530 LET J=J-H
540 RETURN
600 LET X=K
610 LET Y=K
620 LET M=CODE "O"
630 LET N=G/U
640 CLS
650 POKE R+U+U,CODE "£"
660 LET B=G-I
690 GOTO 750
700 LET N=N+INT (U*RND-U*RND)
710 POKE P,B-J*13
720 PRINT "%8"
730 PRINT AT 19,N;"OO OO"
740 PRINT AT X-I,W;" "
750 LET W=Y
760 LET J=USR R
770 LET Y=Y+SGN (J-7)*(J>U)
780 LET J=J<>0
790 POKE P,B-J*12
800 IF N>23 THEN LET N=23
810 IF N<U THEN LET N=U
820 LET SC=SC+U-J
825 POKE P,B-J*13
830 SCROLL
840 PRINT AT X,Y;
850 POKE P,B-J*12
860 IF PEEK (PEEK Q+256*PEEK (Q+I))<>M THEN GOTO 700
870 PRINT AT Z,Z;"SCORE --> ";SC
880 POKE P,Z
890 STOP
\n2000 SAVE "GAME%S"
\n2010 RUN
1 REM \DB itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56754 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"D
Skip to content
Zebra Joystick Games
Invaders/Road Race, H-Fighter/Squish, Painter/Cobra.
Content
Image Gallery
Source Code
1 REM \DB\1D\2F\E6\0C\06\00\4F\C9
10 SLOW
30 PRINT "1 INVADERS"
40 PRINT "2 ROAD RACE"
50 PRINT "HIT 1 OR 2"
60 LET Q=VAL "16398"
70 LET R=VAL "16514"
80 LET K=VAL "10"
100 LET P=VAL "9000"
110 LET I=P/P
120 LET Z=I-I
130 LET U=I+I
140 LET SC=Z
150 LET G=VAL "16"
160 LET H=G
170 GOTO 170+30*(INKEY$="1")+430*(INKEY$="2")
200 CLS
210 POKE R+U+U,CODE "0"
214 LET V=Z
215 LET W=Z
220 FOR L=1 TO 4
230 LET D$="U U U U U U U U U U "
240 LET T=Z
250 LET F=Z
270 PRINT AT L,Z;D$;AT 7,G-U;" Y "
280 IF F THEN GOTO 360
300 LET J=USR R
310 IF J>=H THEN GOSUB 500
320 LET G=G+J-6*(J<>Z)
330 LET D$=D$(U TO 31)+D$(I)
340 LET SC=SC-I
350 GOTO 270
360 LET Y=Y-I
370 PRINT AT V,W;" "
380 PRINT AT Y,X;"*"
390 LET V=Y
400 LET W=X
410 IF Y>L THEN GOTO 290
420 IF D$(X+1)=" " THEN GOTO 250
430 LET D$(X+I)=" "
440 LET SC=SC+K**U
450 LET T=T+I
460 PRINT AT Z,Z;SC
470 IF T<K THEN GOTO 250
480 NEXT L
490 STOP
500 LET F=I
510 LET Y=6
520 LET X=G
530 LET J=J-H
540 RETURN
600 LET X=K
610 LET Y=K
620 LET M=CODE "O"
630 LET N=G/U
640 CLS
650 POKE R+U+U,CODE "£"
660 LET B=G-I
690 GOTO 750
700 LET N=N+INT (U*RND-U*RND)
710 POKE P,B-J*13
720 PRINT "%8"
730 PRINT AT 19,N;"OO OO"
740 PRINT AT X-I,W;" "
750 LET W=Y
760 LET J=USR R
770 LET Y=Y+SGN (J-7)*(J>U)
780 LET J=J<>0
790 POKE P,B-J*12
800 IF N>23 THEN LET N=23
810 IF N<U THEN LET N=U
820 LET SC=SC+U-J
825 POKE P,B-J*13
830 SCROLL
840 PRINT AT X,Y;
850 POKE P,B-J*12
860 IF PEEK (PEEK Q+256*PEEK (Q+I))<>M THEN GOTO 700
870 PRINT AT Z,Z;"SCORE --> ";SC
880 POKE P,Z
890 STOP
2000 SAVE "GAME%S"
2010 RUN
1 REM \DB\1D\2F\E6\0C\06\00\4F\C9
10 SLOW
11 CLS
20 PRINT AT 5,6;"ZEBRA SYSTEMS INC."
30 PRINT AT 9,8;"1 H-FIGHTER"
40 PRINT AT 11,8;"2 SQUISH"
50 PRINT AT 17,8;"HIT 1 OR 2"
100 LET P=VAL "9000"
110 LET I=P/P
120 LET U=I+I
130 LET B=VAL "15"
140 LET T=B-U-U-I
150 LET Z=I-I
160 LET SC=Z
170 LET D=Z
180 LET N=T-U
190 POKE P,Z
200 GOTO 200+500*(INKEY$="1")+100*(INKEY$="2")
300 POKE 16518,CODE "£"
310 LET C=N-I
320 CLS
330 PRINT "% % % % % % % % % % % % % % % "
340 FOR X=I TO T
350 PRINT "% ";TAB C+C;"% "
360 NEXT X
370 GOTO 560
380 LET J=USR 16514
390 LET C=C+(J=N)-(J=4)
400 IF C>Z AND C<13 THEN PRINT AT T+I,C-I;" \''\'' "
410 IF E=T AND C<>F AND C+I<>F THEN GOTO 510
420 LET SC=SC+I
430 PRINT AT E,F;" "
440 LET E=E+A
450 IF E=I OR E=T THEN LET A=-A
460 LET F=F+B
470 IF F=I OR F=13 THEN LET B=-B
480 PRINT AT E,F;"O"
490 IF E=I OR E=T THEN LET B=SGN (INT (RND*(U+I))-(F<>I)+(F=13))
500 GOTO 380
510 LET D=D+I
520 PRINT AT 14,Z;D,SC
540 IF D>5 THEN RUN
550 PRINT AT E,F;" "
560 LET A=I
570 LET E=A
580 LET F=E
590 LET B=A
600 GOTO 380
700 POKE 16518,CODE "3"
710 CLS
720 LET X=INT (RND*(T+B+I))
730 LET Y=INT (RND*(T+N))
740 PRINT AT Z,Z;"SCORE ";SC
750 POKE P,Z
760 LET C=D
770 PRINT AT Y-I,X;" ";AT Y,X;" \ :\.: ";AT Y+I,X;" \ '\ ' ";AT Y+U,X;" ";AT T+I,B;"+"
780 IF D>P THEN STOP
790 LET D=D+T
800 IF D-C>T*T*U THEN GOTO 850
810 LET J=USR 16514
815 IF J<=B THEN GOTO 880
820 IF Y<T OR Y>T+I OR X<B-2 OR X>B-1 THEN GOTO 850
830 POKE P,N
840 LET SC=SC+T+T+T
850 LET SC=SC-T
860 POKE P,T
870 GOTO 710
880 LET X=X-SGN (J-7)*(J>2)
890 LET J=J-INT (J/4)*4
900 LET Y=Y-J*U+3*SGN J
910 GOTO 770
2000 SAVE "GAME%S"
2010 RUN
1 REM \DB\1D\2F\E6\1F\06\00\4F\C9
10 SLOW
30 PRINT "1 PAINTER"
40 PRINT "2 COBRA"
50 PRINT "HIT 1 OR 2"
70 LET R=VAL "16514"
80 LET K=VAL "10"
110 LET I=K/K
120 LET Z=I-I
130 LET U=I+I
140 LET SC=Z
150 LET G=VAL "16"
170 GOTO 170+30*(INKEY$="1")+430*(INKEY$="2")
200 CLS
220 LET X=G+G
230 LET Y=K+K
240 LET J=USR R
250 IF J>=G THEN LET SC=1
260 LET J=J-G*(J>=G)
270 LET X=X+SGN (J-7)*(J>U)
280 LET J=J-INT (J/4)*4
290 LET Y=Y+(J=I)-(J=U)
300 UNPLOT X,Y
310 PLOT X,Y
320 IF SC THEN UNPLOT X,Y
330 LET SC=Z
340 GOTO 240
600 LET E$="PEEK (PEEK 16398+256*PEEK 16399)"
610 CLS
620 LET SC=R
640 LET H=G+K
650 FOR X=Z TO H
660 PRINT AT Z,X;"% ";AT G,X;"% "
670 NEXT X
680 FOR Y=Z TO G
690 PRINT AT Y,Z;"% ";AT Y,H;"% "
700 NEXT Y
710 LET X=G/U
720 LET Y=H-I
730 LET V=X
740 LET W=I
750 LET A=Z
760 LET B=A
770 LET C=SGN (INT (RND*7)-3+A)
780 LET D=SGN (INT (RND*7)-3+B)
800 PRINT AT V+C,W+D;
810 LET E=VAL E$
820 IF E<>Z THEN GOTO 870
830 PRINT "O";AT V,W;" "
850 LET V=V+C
860 LET W=W+D
870 LET SC=SC-K
880 LET J=USR R-16*(USR R>16)
890 IF J=Z THEN GOTO 750
900 LET B=SGN (J-7)*(J>U)
910 LET A=J-INT (J/4)*4
920 LET A=(J=U)-(J=I)
930 PRINT AT X+A,Y+B;
940 LET E=VAL E$
960 IF E=128 THEN GOTO 770
970 LET X=X+A
980 LET Y=Y+B
990 PRINT "\@@"
995 IF E<>52 THEN GOTO 770
1000 PRINT AT Z,Z;SC
1010 STOP
2000 SAVE "GAME%S"
2010 RUN
People
No people associated with this content.
F\E6
Skip to content
Zebra Joystick Games
Invaders/Road Race, H-Fighter/Squish, Painter/Cobra.
Content
Image Gallery
Source Code
1 REM \DB\1D\2F\E6\0C\06\00\4F\C9
10 SLOW
30 PRINT "1 INVADERS"
40 PRINT "2 ROAD RACE"
50 PRINT "HIT 1 OR 2"
60 LET Q=VAL "16398"
70 LET R=VAL "16514"
80 LET K=VAL "10"
100 LET P=VAL "9000"
110 LET I=P/P
120 LET Z=I-I
130 LET U=I+I
140 LET SC=Z
150 LET G=VAL "16"
160 LET H=G
170 GOTO 170+30*(INKEY$="1")+430*(INKEY$="2")
200 CLS
210 POKE R+U+U,CODE "0"
214 LET V=Z
215 LET W=Z
220 FOR L=1 TO 4
230 LET D$="U U U U U U U U U U "
240 LET T=Z
250 LET F=Z
270 PRINT AT L,Z;D$;AT 7,G-U;" Y "
280 IF F THEN GOTO 360
300 LET J=USR R
310 IF J>=H THEN GOSUB 500
320 LET G=G+J-6*(J<>Z)
330 LET D$=D$(U TO 31)+D$(I)
340 LET SC=SC-I
350 GOTO 270
360 LET Y=Y-I
370 PRINT AT V,W;" "
380 PRINT AT Y,X;"*"
390 LET V=Y
400 LET W=X
410 IF Y>L THEN GOTO 290
420 IF D$(X+1)=" " THEN GOTO 250
430 LET D$(X+I)=" "
440 LET SC=SC+K**U
450 LET T=T+I
460 PRINT AT Z,Z;SC
470 IF T<K THEN GOTO 250
480 NEXT L
490 STOP
500 LET F=I
510 LET Y=6
520 LET X=G
530 LET J=J-H
540 RETURN
600 LET X=K
610 LET Y=K
620 LET M=CODE "O"
630 LET N=G/U
640 CLS
650 POKE R+U+U,CODE "£"
660 LET B=G-I
690 GOTO 750
700 LET N=N+INT (U*RND-U*RND)
710 POKE P,B-J*13
720 PRINT "%8"
730 PRINT AT 19,N;"OO OO"
740 PRINT AT X-I,W;" "
750 LET W=Y
760 LET J=USR R
770 LET Y=Y+SGN (J-7)*(J>U)
780 LET J=J<>0
790 POKE P,B-J*12
800 IF N>23 THEN LET N=23
810 IF N<U THEN LET N=U
820 LET SC=SC+U-J
825 POKE P,B-J*13
830 SCROLL
840 PRINT AT X,Y;
850 POKE P,B-J*12
860 IF PEEK (PEEK Q+256*PEEK (Q+I))<>M THEN GOTO 700
870 PRINT AT Z,Z;"SCORE --> ";SC
880 POKE P,Z
890 STOP
2000 SAVE "GAME%S"
2010 RUN
1 REM \DB\1D\2F\E6\0C\06\00\4F\C9
10 SLOW
11 CLS
20 PRINT AT 5,6;"ZEBRA SYSTEMS INC."
30 PRINT AT 9,8;"1 H-FIGHTER"
40 PRINT AT 11,8;"2 SQUISH"
50 PRINT AT 17,8;"HIT 1 OR 2"
100 LET P=VAL "9000"
110 LET I=P/P
120 LET U=I+I
130 LET B=VAL "15"
140 LET T=B-U-U-I
150 LET Z=I-I
160 LET SC=Z
170 LET D=Z
180 LET N=T-U
190 POKE P,Z
200 GOTO 200+500*(INKEY$="1")+100*(INKEY$="2")
300 POKE 16518,CODE "£"
310 LET C=N-I
320 CLS
330 PRINT "% % % % % % % % % % % % % % % "
340 FOR X=I TO T
350 PRINT "% ";TAB C+C;"% "
360 NEXT X
370 GOTO 560
380 LET J=USR 16514
390 LET C=C+(J=N)-(J=4)
400 IF C>Z AND C<13 THEN PRINT AT T+I,C-I;" \''\'' "
410 IF E=T AND C<>F AND C+I<>F THEN GOTO 510
420 LET SC=SC+I
430 PRINT AT E,F;" "
440 LET E=E+A
450 IF E=I OR E=T THEN LET A=-A
460 LET F=F+B
470 IF F=I OR F=13 THEN LET B=-B
480 PRINT AT E,F;"O"
490 IF E=I OR E=T THEN LET B=SGN (INT (RND*(U+I))-(F<>I)+(F=13))
500 GOTO 380
510 LET D=D+I
520 PRINT AT 14,Z;D,SC
540 IF D>5 THEN RUN
550 PRINT AT E,F;" "
560 LET A=I
570 LET E=A
580 LET F=E
590 LET B=A
600 GOTO 380
700 POKE 16518,CODE "3"
710 CLS
720 LET X=INT (RND*(T+B+I))
730 LET Y=INT (RND*(T+N))
740 PRINT AT Z,Z;"SCORE ";SC
750 POKE P,Z
760 LET C=D
770 PRINT AT Y-I,X;" ";AT Y,X;" \ :\.: ";AT Y+I,X;" \ '\ ' ";AT Y+U,X;" ";AT T+I,B;"+"
780 IF D>P THEN STOP
790 LET D=D+T
800 IF D-C>T*T*U THEN GOTO 850
810 LET J=USR 16514
815 IF J<=B THEN GOTO 880
820 IF Y<T OR Y>T+I OR X<B-2 OR X>B-1 THEN GOTO 850
830 POKE P,N
840 LET SC=SC+T+T+T
850 LET SC=SC-T
860 POKE P,T
870 GOTO 710
880 LET X=X-SGN (J-7)*(J>2)
890 LET J=J-INT (J/4)*4
900 LET Y=Y-J*U+3*SGN J
910 GOTO 770
2000 SAVE "GAME%S"
2010 RUN
1 REM \DB\1D\2F\E6\1F\06\00\4F\C9
10 SLOW
30 PRINT "1 PAINTER"
40 PRINT "2 COBRA"
50 PRINT "HIT 1 OR 2"
70 LET R=VAL "16514"
80 LET K=VAL "10"
110 LET I=K/K
120 LET Z=I-I
130 LET U=I+I
140 LET SC=Z
150 LET G=VAL "16"
170 GOTO 170+30*(INKEY$="1")+430*(INKEY$="2")
200 CLS
220 LET X=G+G
230 LET Y=K+K
240 LET J=USR R
250 IF J>=G THEN LET SC=1
260 LET J=J-G*(J>=G)
270 LET X=X+SGN (J-7)*(J>U)
280 LET J=J-INT (J/4)*4
290 LET Y=Y+(J=I)-(J=U)
300 UNPLOT X,Y
310 PLOT X,Y
320 IF SC THEN UNPLOT X,Y
330 LET SC=Z
340 GOTO 240
600 LET E$="PEEK (PEEK 16398+256*PEEK 16399)"
610 CLS
620 LET SC=R
640 LET H=G+K
650 FOR X=Z TO H
660 PRINT AT Z,X;"% ";AT G,X;"% "
670 NEXT X
680 FOR Y=Z TO G
690 PRINT AT Y,Z;"% ";AT Y,H;"% "
700 NEXT Y
710 LET X=G/U
720 LET Y=H-I
730 LET V=X
740 LET W=I
750 LET A=Z
760 LET B=A
770 LET C=SGN (INT (RND*7)-3+A)
780 LET D=SGN (INT (RND*7)-3+B)
800 PRINT AT V+C,W+D;
810 LET E=VAL E$
820 IF E<>Z THEN GOTO 870
830 PRINT "O";AT V,W;" "
850 LET V=V+C
860 LET W=W+D
870 LET SC=SC-K
880 LET J=USR R-16*(USR R>16)
890 IF J=Z THEN GOTO 750
900 LET B=SGN (J-7)*(J>U)
910 LET A=J-INT (J/4)*4
920 LET A=(J=U)-(J=I)
930 PRINT AT X+A,Y+B;
940 LET E=VAL E$
960 IF E=128 THEN GOTO 770
970 LET X=X+A
980 LET Y=Y+B
990 PRINT "\@@"
995 IF E<>52 THEN GOTO 770
1000 PRINT AT Z,Z;SC
1010 STOP
2000 SAVE "GAME%S"
2010 RUN
People
No people associated with this content.
C
Skip to content
Zebra Joystick Games
Invaders/Road Race, H-Fighter/Squish, Painter/Cobra.
Content
Image Gallery
Source Code
1 REM \DB\1D\2F\E6\0C\06\00\4F\C9
10 SLOW
30 PRINT "1 INVADERS"
40 PRINT "2 ROAD RACE"
50 PRINT "HIT 1 OR 2"
60 LET Q=VAL "16398"
70 LET R=VAL "16514"
80 LET K=VAL "10"
100 LET P=VAL "9000"
110 LET I=P/P
120 LET Z=I-I
130 LET U=I+I
140 LET SC=Z
150 LET G=VAL "16"
160 LET H=G
170 GOTO 170+30*(INKEY$="1")+430*(INKEY$="2")
200 CLS
210 POKE R+U+U,CODE "0"
214 LET V=Z
215 LET W=Z
220 FOR L=1 TO 4
230 LET D$="U U U U U U U U U U "
240 LET T=Z
250 LET F=Z
270 PRINT AT L,Z;D$;AT 7,G-U;" Y "
280 IF F THEN GOTO 360
300 LET J=USR R
310 IF J>=H THEN GOSUB 500
320 LET G=G+J-6*(J<>Z)
330 LET D$=D$(U TO 31)+D$(I)
340 LET SC=SC-I
350 GOTO 270
360 LET Y=Y-I
370 PRINT AT V,W;" "
380 PRINT AT Y,X;"*"
390 LET V=Y
400 LET W=X
410 IF Y>L THEN GOTO 290
420 IF D$(X+1)=" " THEN GOTO 250
430 LET D$(X+I)=" "
440 LET SC=SC+K**U
450 LET T=T+I
460 PRINT AT Z,Z;SC
470 IF T<K THEN GOTO 250
480 NEXT L
490 STOP
500 LET F=I
510 LET Y=6
520 LET X=G
530 LET J=J-H
540 RETURN
600 LET X=K
610 LET Y=K
620 LET M=CODE "O"
630 LET N=G/U
640 CLS
650 POKE R+U+U,CODE "£"
660 LET B=G-I
690 GOTO 750
700 LET N=N+INT (U*RND-U*RND)
710 POKE P,B-J*13
720 PRINT "%8"
730 PRINT AT 19,N;"OO OO"
740 PRINT AT X-I,W;" "
750 LET W=Y
760 LET J=USR R
770 LET Y=Y+SGN (J-7)*(J>U)
780 LET J=J<>0
790 POKE P,B-J*12
800 IF N>23 THEN LET N=23
810 IF N<U THEN LET N=U
820 LET SC=SC+U-J
825 POKE P,B-J*13
830 SCROLL
840 PRINT AT X,Y;
850 POKE P,B-J*12
860 IF PEEK (PEEK Q+256*PEEK (Q+I))<>M THEN GOTO 700
870 PRINT AT Z,Z;"SCORE --> ";SC
880 POKE P,Z
890 STOP
2000 SAVE "GAME%S"
2010 RUN
1 REM \DB\1D\2F\E6\0C\06\00\4F\C9
10 SLOW
11 CLS
20 PRINT AT 5,6;"ZEBRA SYSTEMS INC."
30 PRINT AT 9,8;"1 H-FIGHTER"
40 PRINT AT 11,8;"2 SQUISH"
50 PRINT AT 17,8;"HIT 1 OR 2"
100 LET P=VAL "9000"
110 LET I=P/P
120 LET U=I+I
130 LET B=VAL "15"
140 LET T=B-U-U-I
150 LET Z=I-I
160 LET SC=Z
170 LET D=Z
180 LET N=T-U
190 POKE P,Z
200 GOTO 200+500*(INKEY$="1")+100*(INKEY$="2")
300 POKE 16518,CODE "£"
310 LET C=N-I
320 CLS
330 PRINT "% % % % % % % % % % % % % % % "
340 FOR X=I TO T
350 PRINT "% ";TAB C+C;"% "
360 NEXT X
370 GOTO 560
380 LET J=USR 16514
390 LET C=C+(J=N)-(J=4)
400 IF C>Z AND C<13 THEN PRINT AT T+I,C-I;" \''\'' "
410 IF E=T AND C<>F AND C+I<>F THEN GOTO 510
420 LET SC=SC+I
430 PRINT AT E,F;" "
440 LET E=E+A
450 IF E=I OR E=T THEN LET A=-A
460 LET F=F+B
470 IF F=I OR F=13 THEN LET B=-B
480 PRINT AT E,F;"O"
490 IF E=I OR E=T THEN LET B=SGN (INT (RND*(U+I))-(F<>I)+(F=13))
500 GOTO 380
510 LET D=D+I
520 PRINT AT 14,Z;D,SC
540 IF D>5 THEN RUN
550 PRINT AT E,F;" "
560 LET A=I
570 LET E=A
580 LET F=E
590 LET B=A
600 GOTO 380
700 POKE 16518,CODE "3"
710 CLS
720 LET X=INT (RND*(T+B+I))
730 LET Y=INT (RND*(T+N))
740 PRINT AT Z,Z;"SCORE ";SC
750 POKE P,Z
760 LET C=D
770 PRINT AT Y-I,X;" ";AT Y,X;" \ :\.: ";AT Y+I,X;" \ '\ ' ";AT Y+U,X;" ";AT T+I,B;"+"
780 IF D>P THEN STOP
790 LET D=D+T
800 IF D-C>T*T*U THEN GOTO 850
810 LET J=USR 16514
815 IF J<=B THEN GOTO 880
820 IF Y<T OR Y>T+I OR X<B-2 OR X>B-1 THEN GOTO 850
830 POKE P,N
840 LET SC=SC+T+T+T
850 LET SC=SC-T
860 POKE P,T
870 GOTO 710
880 LET X=X-SGN (J-7)*(J>2)
890 LET J=J-INT (J/4)*4
900 LET Y=Y-J*U+3*SGN J
910 GOTO 770
2000 SAVE "GAME%S"
2010 RUN
1 REM \DB\1D\2F\E6\1F\06\00\4F\C9
10 SLOW
30 PRINT "1 PAINTER"
40 PRINT "2 COBRA"
50 PRINT "HIT 1 OR 2"
70 LET R=VAL "16514"
80 LET K=VAL "10"
110 LET I=K/K
120 LET Z=I-I
130 LET U=I+I
140 LET SC=Z
150 LET G=VAL "16"
170 GOTO 170+30*(INKEY$="1")+430*(INKEY$="2")
200 CLS
220 LET X=G+G
230 LET Y=K+K
240 LET J=USR R
250 IF J>=G THEN LET SC=1
260 LET J=J-G*(J>=G)
270 LET X=X+SGN (J-7)*(J>U)
280 LET J=J-INT (J/4)*4
290 LET Y=Y+(J=I)-(J=U)
300 UNPLOT X,Y
310 PLOT X,Y
320 IF SC THEN UNPLOT X,Y
330 LET SC=Z
340 GOTO 240
600 LET E$="PEEK (PEEK 16398+256*PEEK 16399)"
610 CLS
620 LET SC=R
640 LET H=G+K
650 FOR X=Z TO H
660 PRINT AT Z,X;"% ";AT G,X;"% "
670 NEXT X
680 FOR Y=Z TO G
690 PRINT AT Y,Z;"% ";AT Y,H;"% "
700 NEXT Y
710 LET X=G/U
720 LET Y=H-I
730 LET V=X
740 LET W=I
750 LET A=Z
760 LET B=A
770 LET C=SGN (INT (RND*7)-3+A)
780 LET D=SGN (INT (RND*7)-3+B)
800 PRINT AT V+C,W+D;
810 LET E=VAL E$
820 IF E<>Z THEN GOTO 870
830 PRINT "O";AT V,W;" "
850 LET V=V+C
860 LET W=W+D
870 LET SC=SC-K
880 LET J=USR R-16*(USR R>16)
890 IF J=Z THEN GOTO 750
900 LET B=SGN (J-7)*(J>U)
910 LET A=J-INT (J/4)*4
920 LET A=(J=U)-(J=I)
930 PRINT AT X+A,Y+B;
940 LET E=VAL E$
960 IF E=128 THEN GOTO 770
970 LET X=X+A
980 LET Y=Y+B
990 PRINT "\@@"
995 IF E<>52 THEN GOTO 770
1000 PRINT AT Z,Z;SC
1010 STOP
2000 SAVE "GAME%S"
2010 RUN
People
No people associated with this content.
F\C9
10 SLOW
11 CLS
20 PRINT AT 5,6;"ZEBRA SYSTEMS INC."
30 PRINT AT 9,8;"1 H-FIGHTER"
40 PRINT AT 11,8;"2 SQUISH"
50 PRINT AT 17,8;"HIT 1 OR 2"
100 LET P=VAL "9000"
110 LET I=P/P
120 LET U=I+I
130 LET B=VAL "15"
140 LET T=B-U-U-I
150 LET Z=I-I
160 LET SC=Z
170 LET D=Z
180 LET N=T-U
190 POKE P,Z
200 GOTO 200+500*(INKEY$="1")+100*(INKEY$="2")
300 POKE 16518,CODE "£"
310 LET C=N-I
320 CLS
330 PRINT "% % % % % % % % % % % % % % % "
340 FOR X=I TO T
350 PRINT "% ";TAB C+C;"% "
360 NEXT X
370 GOTO 560
380 LET J=USR 16514
390 LET C=C+(J=N)-(J=4)
400 IF C>Z AND C<13 THEN PRINT AT T+I,C-I;" \''\'' "
410 IF E=T AND C<>F AND C+I<>F THEN GOTO 510
420 LET SC=SC+I
430 PRINT AT E,F;" "
440 LET E=E+A
450 IF E=I OR E=T THEN LET A=-A
460 LET F=F+B
470 IF F=I OR F=13 THEN LET B=-B
480 PRINT AT E,F;"O"
490 IF E=I OR E=T THEN LET B=SGN (INT (RND*(U+I))-(F<>I)+(F=13))
500 GOTO 380
510 LET D=D+I
520 PRINT AT 14,Z;D,SC
540 IF D>5 THEN RUN
550 PRINT AT E,F;" "
560 LET A=I
570 LET E=A
580 LET F=E
590 LET B=A
600 GOTO 380
700 POKE 16518,CODE "3"
710 CLS
720 LET X=INT (RND*(T+B+I))
730 LET Y=INT (RND*(T+N))
740 PRINT AT Z,Z;"SCORE ";SC
750 POKE P,Z
760 LET C=D
770 PRINT AT Y-I,X;" ";AT Y,X;" \ :\.: ";AT Y+I,X;" \ '\ ' ";AT Y+U,X;" ";AT T+I,B;"+"
780 IF D>P THEN STOP
790 LET D=D+T
800 IF D-C>T*T*U THEN GOTO 850
810 LET J=USR 16514
815 IF J<=B THEN GOTO 880
820 IF Y<T OR Y>T+I OR X<B-2 OR X>B-1 THEN GOTO 850
830 POKE P,N
840 LET SC=SC+T+T+T
850 LET SC=SC-T
860 POKE P,T
870 GOTO 710
880 LET X=X-SGN (J-7)*(J>2)
890 LET J=J-INT (J/4)*4
900 LET Y=Y-J*U+3*SGN J
910 GOTO 770
\n2000 SAVE "GAME%S"
\n2010 RUN
1 REM \DB itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56754 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"D
Skip to content
Zebra Joystick Games
Invaders/Road Race, H-Fighter/Squish, Painter/Cobra.
Content
Image Gallery
Source Code
1 REM \DB\1D\2F\E6\0C\06\00\4F\C9
10 SLOW
30 PRINT "1 INVADERS"
40 PRINT "2 ROAD RACE"
50 PRINT "HIT 1 OR 2"
60 LET Q=VAL "16398"
70 LET R=VAL "16514"
80 LET K=VAL "10"
100 LET P=VAL "9000"
110 LET I=P/P
120 LET Z=I-I
130 LET U=I+I
140 LET SC=Z
150 LET G=VAL "16"
160 LET H=G
170 GOTO 170+30*(INKEY$="1")+430*(INKEY$="2")
200 CLS
210 POKE R+U+U,CODE "0"
214 LET V=Z
215 LET W=Z
220 FOR L=1 TO 4
230 LET D$="U U U U U U U U U U "
240 LET T=Z
250 LET F=Z
270 PRINT AT L,Z;D$;AT 7,G-U;" Y "
280 IF F THEN GOTO 360
300 LET J=USR R
310 IF J>=H THEN GOSUB 500
320 LET G=G+J-6*(J<>Z)
330 LET D$=D$(U TO 31)+D$(I)
340 LET SC=SC-I
350 GOTO 270
360 LET Y=Y-I
370 PRINT AT V,W;" "
380 PRINT AT Y,X;"*"
390 LET V=Y
400 LET W=X
410 IF Y>L THEN GOTO 290
420 IF D$(X+1)=" " THEN GOTO 250
430 LET D$(X+I)=" "
440 LET SC=SC+K**U
450 LET T=T+I
460 PRINT AT Z,Z;SC
470 IF T<K THEN GOTO 250
480 NEXT L
490 STOP
500 LET F=I
510 LET Y=6
520 LET X=G
530 LET J=J-H
540 RETURN
600 LET X=K
610 LET Y=K
620 LET M=CODE "O"
630 LET N=G/U
640 CLS
650 POKE R+U+U,CODE "£"
660 LET B=G-I
690 GOTO 750
700 LET N=N+INT (U*RND-U*RND)
710 POKE P,B-J*13
720 PRINT "%8"
730 PRINT AT 19,N;"OO OO"
740 PRINT AT X-I,W;" "
750 LET W=Y
760 LET J=USR R
770 LET Y=Y+SGN (J-7)*(J>U)
780 LET J=J<>0
790 POKE P,B-J*12
800 IF N>23 THEN LET N=23
810 IF N<U THEN LET N=U
820 LET SC=SC+U-J
825 POKE P,B-J*13
830 SCROLL
840 PRINT AT X,Y;
850 POKE P,B-J*12
860 IF PEEK (PEEK Q+256*PEEK (Q+I))<>M THEN GOTO 700
870 PRINT AT Z,Z;"SCORE --> ";SC
880 POKE P,Z
890 STOP
2000 SAVE "GAME%S"
2010 RUN
1 REM \DB\1D\2F\E6\0C\06\00\4F\C9
10 SLOW
11 CLS
20 PRINT AT 5,6;"ZEBRA SYSTEMS INC."
30 PRINT AT 9,8;"1 H-FIGHTER"
40 PRINT AT 11,8;"2 SQUISH"
50 PRINT AT 17,8;"HIT 1 OR 2"
100 LET P=VAL "9000"
110 LET I=P/P
120 LET U=I+I
130 LET B=VAL "15"
140 LET T=B-U-U-I
150 LET Z=I-I
160 LET SC=Z
170 LET D=Z
180 LET N=T-U
190 POKE P,Z
200 GOTO 200+500*(INKEY$="1")+100*(INKEY$="2")
300 POKE 16518,CODE "£"
310 LET C=N-I
320 CLS
330 PRINT "% % % % % % % % % % % % % % % "
340 FOR X=I TO T
350 PRINT "% ";TAB C+C;"% "
360 NEXT X
370 GOTO 560
380 LET J=USR 16514
390 LET C=C+(J=N)-(J=4)
400 IF C>Z AND C<13 THEN PRINT AT T+I,C-I;" \''\'' "
410 IF E=T AND C<>F AND C+I<>F THEN GOTO 510
420 LET SC=SC+I
430 PRINT AT E,F;" "
440 LET E=E+A
450 IF E=I OR E=T THEN LET A=-A
460 LET F=F+B
470 IF F=I OR F=13 THEN LET B=-B
480 PRINT AT E,F;"O"
490 IF E=I OR E=T THEN LET B=SGN (INT (RND*(U+I))-(F<>I)+(F=13))
500 GOTO 380
510 LET D=D+I
520 PRINT AT 14,Z;D,SC
540 IF D>5 THEN RUN
550 PRINT AT E,F;" "
560 LET A=I
570 LET E=A
580 LET F=E
590 LET B=A
600 GOTO 380
700 POKE 16518,CODE "3"
710 CLS
720 LET X=INT (RND*(T+B+I))
730 LET Y=INT (RND*(T+N))
740 PRINT AT Z,Z;"SCORE ";SC
750 POKE P,Z
760 LET C=D
770 PRINT AT Y-I,X;" ";AT Y,X;" \ :\.: ";AT Y+I,X;" \ '\ ' ";AT Y+U,X;" ";AT T+I,B;"+"
780 IF D>P THEN STOP
790 LET D=D+T
800 IF D-C>T*T*U THEN GOTO 850
810 LET J=USR 16514
815 IF J<=B THEN GOTO 880
820 IF Y<T OR Y>T+I OR X<B-2 OR X>B-1 THEN GOTO 850
830 POKE P,N
840 LET SC=SC+T+T+T
850 LET SC=SC-T
860 POKE P,T
870 GOTO 710
880 LET X=X-SGN (J-7)*(J>2)
890 LET J=J-INT (J/4)*4
900 LET Y=Y-J*U+3*SGN J
910 GOTO 770
2000 SAVE "GAME%S"
2010 RUN
1 REM \DB\1D\2F\E6\1F\06\00\4F\C9
10 SLOW
30 PRINT "1 PAINTER"
40 PRINT "2 COBRA"
50 PRINT "HIT 1 OR 2"
70 LET R=VAL "16514"
80 LET K=VAL "10"
110 LET I=K/K
120 LET Z=I-I
130 LET U=I+I
140 LET SC=Z
150 LET G=VAL "16"
170 GOTO 170+30*(INKEY$="1")+430*(INKEY$="2")
200 CLS
220 LET X=G+G
230 LET Y=K+K
240 LET J=USR R
250 IF J>=G THEN LET SC=1
260 LET J=J-G*(J>=G)
270 LET X=X+SGN (J-7)*(J>U)
280 LET J=J-INT (J/4)*4
290 LET Y=Y+(J=I)-(J=U)
300 UNPLOT X,Y
310 PLOT X,Y
320 IF SC THEN UNPLOT X,Y
330 LET SC=Z
340 GOTO 240
600 LET E$="PEEK (PEEK 16398+256*PEEK 16399)"
610 CLS
620 LET SC=R
640 LET H=G+K
650 FOR X=Z TO H
660 PRINT AT Z,X;"% ";AT G,X;"% "
670 NEXT X
680 FOR Y=Z TO G
690 PRINT AT Y,Z;"% ";AT Y,H;"% "
700 NEXT Y
710 LET X=G/U
720 LET Y=H-I
730 LET V=X
740 LET W=I
750 LET A=Z
760 LET B=A
770 LET C=SGN (INT (RND*7)-3+A)
780 LET D=SGN (INT (RND*7)-3+B)
800 PRINT AT V+C,W+D;
810 LET E=VAL E$
820 IF E<>Z THEN GOTO 870
830 PRINT "O";AT V,W;" "
850 LET V=V+C
860 LET W=W+D
870 LET SC=SC-K
880 LET J=USR R-16*(USR R>16)
890 IF J=Z THEN GOTO 750
900 LET B=SGN (J-7)*(J>U)
910 LET A=J-INT (J/4)*4
920 LET A=(J=U)-(J=I)
930 PRINT AT X+A,Y+B;
940 LET E=VAL E$
960 IF E=128 THEN GOTO 770
970 LET X=X+A
980 LET Y=Y+B
990 PRINT "\@@"
995 IF E<>52 THEN GOTO 770
1000 PRINT AT Z,Z;SC
1010 STOP
2000 SAVE "GAME%S"
2010 RUN
People
No people associated with this content.
F\E6 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-56754 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.11.3 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.11.2"F
Skip to content
Zebra Joystick Games
Invaders/Road Race, H-Fighter/Squish, Painter/Cobra.
Content
Image Gallery
Source Code
1 REM \DB\1D\2F\E6\0C\06\00\4F\C9
10 SLOW
30 PRINT "1 INVADERS"
40 PRINT "2 ROAD RACE"
50 PRINT "HIT 1 OR 2"
60 LET Q=VAL "16398"
70 LET R=VAL "16514"
80 LET K=VAL "10"
100 LET P=VAL "9000"
110 LET I=P/P
120 LET Z=I-I
130 LET U=I+I
140 LET SC=Z
150 LET G=VAL "16"
160 LET H=G
170 GOTO 170+30*(INKEY$="1")+430*(INKEY$="2")
200 CLS
210 POKE R+U+U,CODE "0"
214 LET V=Z
215 LET W=Z
220 FOR L=1 TO 4
230 LET D$="U U U U U U U U U U "
240 LET T=Z
250 LET F=Z
270 PRINT AT L,Z;D$;AT 7,G-U;" Y "
280 IF F THEN GOTO 360
300 LET J=USR R
310 IF J>=H THEN GOSUB 500
320 LET G=G+J-6*(J<>Z)
330 LET D$=D$(U TO 31)+D$(I)
340 LET SC=SC-I
350 GOTO 270
360 LET Y=Y-I
370 PRINT AT V,W;" "
380 PRINT AT Y,X;"*"
390 LET V=Y
400 LET W=X
410 IF Y>L THEN GOTO 290
420 IF D$(X+1)=" " THEN GOTO 250
430 LET D$(X+I)=" "
440 LET SC=SC+K**U
450 LET T=T+I
460 PRINT AT Z,Z;SC
470 IF T<K THEN GOTO 250
480 NEXT L
490 STOP
500 LET F=I
510 LET Y=6
520 LET X=G
530 LET J=J-H
540 RETURN
600 LET X=K
610 LET Y=K
620 LET M=CODE "O"
630 LET N=G/U
640 CLS
650 POKE R+U+U,CODE "£"
660 LET B=G-I
690 GOTO 750
700 LET N=N+INT (U*RND-U*RND)
710 POKE P,B-J*13
720 PRINT "%8"
730 PRINT AT 19,N;"OO OO"
740 PRINT AT X-I,W;" "
750 LET W=Y
760 LET J=USR R
770 LET Y=Y+SGN (J-7)*(J>U)
780 LET J=J<>0
790 POKE P,B-J*12
800 IF N>23 THEN LET N=23
810 IF N<U THEN LET N=U
820 LET SC=SC+U-J
825 POKE P,B-J*13
830 SCROLL
840 PRINT AT X,Y;
850 POKE P,B-J*12
860 IF PEEK (PEEK Q+256*PEEK (Q+I))<>M THEN GOTO 700
870 PRINT AT Z,Z;"SCORE --> ";SC
880 POKE P,Z
890 STOP
2000 SAVE "GAME%S"
2010 RUN
1 REM \DB\1D\2F\E6\0C\06\00\4F\C9
10 SLOW
11 CLS
20 PRINT AT 5,6;"ZEBRA SYSTEMS INC."
30 PRINT AT 9,8;"1 H-FIGHTER"
40 PRINT AT 11,8;"2 SQUISH"
50 PRINT AT 17,8;"HIT 1 OR 2"
100 LET P=VAL "9000"
110 LET I=P/P
120 LET U=I+I
130 LET B=VAL "15"
140 LET T=B-U-U-I
150 LET Z=I-I
160 LET SC=Z
170 LET D=Z
180 LET N=T-U
190 POKE P,Z
200 GOTO 200+500*(INKEY$="1")+100*(INKEY$="2")
300 POKE 16518,CODE "£"
310 LET C=N-I
320 CLS
330 PRINT "% % % % % % % % % % % % % % % "
340 FOR X=I TO T
350 PRINT "% ";TAB C+C;"% "
360 NEXT X
370 GOTO 560
380 LET J=USR 16514
390 LET C=C+(J=N)-(J=4)
400 IF C>Z AND C<13 THEN PRINT AT T+I,C-I;" \''\'' "
410 IF E=T AND C<>F AND C+I<>F THEN GOTO 510
420 LET SC=SC+I
430 PRINT AT E,F;" "
440 LET E=E+A
450 IF E=I OR E=T THEN LET A=-A
460 LET F=F+B
470 IF F=I OR F=13 THEN LET B=-B
480 PRINT AT E,F;"O"
490 IF E=I OR E=T THEN LET B=SGN (INT (RND*(U+I))-(F<>I)+(F=13))
500 GOTO 380
510 LET D=D+I
520 PRINT AT 14,Z;D,SC
540 IF D>5 THEN RUN
550 PRINT AT E,F;" "
560 LET A=I
570 LET E=A
580 LET F=E
590 LET B=A
600 GOTO 380
700 POKE 16518,CODE "3"
710 CLS
720 LET X=INT (RND*(T+B+I))
730 LET Y=INT (RND*(T+N))
740 PRINT AT Z,Z;"SCORE ";SC
750 POKE P,Z
760 LET C=D
770 PRINT AT Y-I,X;" ";AT Y,X;" \ :\.: ";AT Y+I,X;" \ '\ ' ";AT Y+U,X;" ";AT T+I,B;"+"
780 IF D>P THEN STOP
790 LET D=D+T
800 IF D-C>T*T*U THEN GOTO 850
810 LET J=USR 16514
815 IF J<=B THEN GOTO 880
820 IF Y<T OR Y>T+I OR X<B-2 OR X>B-1 THEN GOTO 850
830 POKE P,N
840 LET SC=SC+T+T+T
850 LET SC=SC-T
860 POKE P,T
870 GOTO 710
880 LET X=X-SGN (J-7)*(J>2)
890 LET J=J-INT (J/4)*4
900 LET Y=Y-J*U+3*SGN J
910 GOTO 770
2000 SAVE "GAME%S"
2010 RUN
1 REM \DB\1D\2F\E6\1F\06\00\4F\C9
10 SLOW
30 PRINT "1 PAINTER"
40 PRINT "2 COBRA"
50 PRINT "HIT 1 OR 2"
70 LET R=VAL "16514"
80 LET K=VAL "10"
110 LET I=K/K
120 LET Z=I-I
130 LET U=I+I
140 LET SC=Z
150 LET G=VAL "16"
170 GOTO 170+30*(INKEY$="1")+430*(INKEY$="2")
200 CLS
220 LET X=G+G
230 LET Y=K+K
240 LET J=USR R
250 IF J>=G THEN LET SC=1
260 LET J=J-G*(J>=G)
270 LET X=X+SGN (J-7)*(J>U)
280 LET J=J-INT (J/4)*4
290 LET Y=Y+(J=I)-(J=U)
300 UNPLOT X,Y
310 PLOT X,Y
320 IF SC THEN UNPLOT X,Y
330 LET SC=Z
340 GOTO 240
600 LET E$="PEEK (PEEK 16398+256*PEEK 16399)"
610 CLS
620 LET SC=R
640 LET H=G+K
650 FOR X=Z TO H
660 PRINT AT Z,X;"% ";AT G,X;"% "
670 NEXT X
680 FOR Y=Z TO G
690 PRINT AT Y,Z;"% ";AT Y,H;"% "
700 NEXT Y
710 LET X=G/U
720 LET Y=H-I
730 LET V=X
740 LET W=I
750 LET A=Z
760 LET B=A
770 LET C=SGN (INT (RND*7)-3+A)
780 LET D=SGN (INT (RND*7)-3+B)
800 PRINT AT V+C,W+D;
810 LET E=VAL E$
820 IF E<>Z THEN GOTO 870
830 PRINT "O";AT V,W;" "
850 LET V=V+C
860 LET W=W+D
870 LET SC=SC-K
880 LET J=USR R-16*(USR R>16)
890 IF J=Z THEN GOTO 750
900 LET B=SGN (J-7)*(J>U)
910 LET A=J-INT (J/4)*4
920 LET A=(J=U)-(J=I)
930 PRINT AT X+A,Y+B;
940 LET E=VAL E$
960 IF E=128 THEN GOTO 770
970 LET X=X+A
980 LET Y=Y+B
990 PRINT "\@@"
995 IF E<>52 THEN GOTO 770
1000 PRINT AT Z,Z;SC
1010 STOP
2000 SAVE "GAME%S"
2010 RUN
People
No people associated with this content.
F\C9
10 SLOW
30 PRINT "1 PAINTER"
40 PRINT "2 COBRA"
50 PRINT "HIT 1 OR 2"
70 LET R=VAL "16514"
80 LET K=VAL "10"
110 LET I=K/K
120 LET Z=I-I
130 LET U=I+I
140 LET SC=Z
150 LET G=VAL "16"
170 GOTO 170+30*(INKEY$="1")+430*(INKEY$="2")
200 CLS
220 LET X=G+G
230 LET Y=K+K
240 LET J=USR R
250 IF J>=G THEN LET SC=1
260 LET J=J-G*(J>=G)
270 LET X=X+SGN (J-7)*(J>U)
280 LET J=J-INT (J/4)*4
290 LET Y=Y+(J=I)-(J=U)
300 UNPLOT X,Y
310 PLOT X,Y
320 IF SC THEN UNPLOT X,Y
330 LET SC=Z
340 GOTO 240
600 LET E$="PEEK (PEEK 16398+256*PEEK 16399)"
610 CLS
620 LET SC=R
640 LET H=G+K
650 FOR X=Z TO H
660 PRINT AT Z,X;"% ";AT G,X;"% "
670 NEXT X
680 FOR Y=Z TO G
690 PRINT AT Y,Z;"% ";AT Y,H;"% "
700 NEXT Y
710 LET X=G/U
720 LET Y=H-I
730 LET V=X
740 LET W=I
750 LET A=Z
760 LET B=A
770 LET C=SGN (INT (RND*7)-3+A)
780 LET D=SGN (INT (RND*7)-3+B)
800 PRINT AT V+C,W+D;
810 LET E=VAL E$
820 IF E<>Z THEN GOTO 870
830 PRINT "O";AT V,W;" "
850 LET V=V+C
860 LET W=W+D
870 LET SC=SC-K
880 LET J=USR R-16*(USR R>16)
890 IF J=Z THEN GOTO 750
900 LET B=SGN (J-7)*(J>U)
910 LET A=J-INT (J/4)*4
920 LET A=(J=U)-(J=I)
930 PRINT AT X+A,Y+B;
940 LET E=VAL E$
960 IF E=128 THEN GOTO 770
970 LET X=X+A
980 LET Y=Y+B
990 PRINT "\@@"
995 IF E<>52 THEN GOTO 770
\n1000 PRINT AT Z,Z;SC
\n1010 STOP
\n2000 SAVE "GAME%S"
\n2010 RUN
