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-embed-responsive wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.12.1 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.12.1"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
Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.
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
Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.
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
Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.
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-embed-responsive wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.12.1 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.12.1"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
Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.
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
Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.
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
Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.
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-embed-responsive wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.12.1 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.12.1"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
Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.
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-embed-responsive wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.12.1 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.12.1"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
Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.
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
Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.