This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
Atari 8-bit Source code
Entry name:
Sharkie
|
Publisher/Developer:
BELLCOM - Public Domain Library (Software library) |
|
-
Entry name:Sharkie
-
Category:Games
-
Publisher/Developer:BELLCOM - Public Domain Library
-
Year:1983
Listing 1
0 REM by Jeff Greenway for: 1 REM EMBER, YOU CAN TRADE, GIVE, OR CHANGE THIS PROGRAM, BUT DO SELL IT. WHILE IT IS NOT ILLEGAL, 2 REM EMBER THAT THIS PROGRAM BEARS A STRIKING RESEMBLANCE TO . YOU COULD BE SUED BY ATARI. 3 REM ...DON'T CHANGE THIS PROGRAM UNLESS YOU KNOW WHAT YOU'RE DOING. 4 REM ....Atari is a trademark of: 5 REM - I ONLY SOLD THIS PROGRAM TO PAY FOR THE TAPE. HAVE FUN PLAYING 10 POKE 106,PEEK(106)-5:GRAPHICS 0:GOSUB 30000:POKE 755,224:SETCOLOR 2,0,0:SETCOLOR 0,1,12 11 DL=PEEK(560)+256*PEEK(561):POKE DL+10,7:POKE DL+11,6 12 POSITION 6,5:? "SHARKIE":POSITION 10,7:? "(C)1983 JEFF GREENWAY" 20 ST=(PEEK(106)+1)*256:FOR MOV=0 TO 1023:POKE ST+MOV,PEEK(57344+MOV):NEXT MOV 500 SEC=0:SH=3:SC=0:EE=10:SSS=0 2500 A=10:B=16:DO=0:E=10:F=15:I=10:J=2:TT=0:G=32:K=174:R=0:AA=4:BB=4:WW=0:TH=0:MM=0 2501 VV=70 2600 IF SEC=0 THEN Q=0 2601 IF SEC=1 THEN Q=128 2602 IF SEC=2 THEN Q=0 2603 IF TEC=0 THEN SR=500 2700 IF SH<1 THEN GOTO 9900 3000 GRAPHICS 17:GOSUB 30000:SETCOLOR 4,0,0:SETCOLOR 0,1,8:SETCOLOR 2,TEC+1,5:SETCOLOR 1,4,8:SETCOLOR 3,8,8:POKE 756,ST/256 3001 RESTORE:POKE 77,0 3002 FOR MOV=0 TO 7:READ AA:POKE 80+ST+MOV,AA:NEXT MOV 3003 DATA 152,188,122,127,112,184,167,0 3004 FOR MOV=0 TO 7:READ AA:POKE 88+ST+MOV,AA:NEXT MOV 3005 DATA 25,61,94,254,14,29,229,0 3006 FOR MOV=0 TO 7:READ AA:POKE 96+ST+MOV,AA:NEXT MOV 3007 DATA 72,76,74,47,63,126,28,99 3008 FOR MOV=0 TO 7:READ AA:POKE 104+ST+MOV,AA:NEXT MOV 3009 DATA 99,28,126,63,47,74,76,72 3010 FOR MOV=0 TO 7:READ AA:POKE 112+ST+MOV,AA:NEXT MOV 3011 DATA 0,0,0,24,24,0,0,0 3012 FOR MOV=0 TO 7:READ AA:POKE 120+ST+MOV,AA:NEXT MOV 3013 DATA 170,85,170,85,170,85,170,85 3014 FOR MOV=0 TO 7:READ AA:POKE 464+ST+MOV,AA:NEXT MOV 3015 DATA 126,219,219,126,73,73,146,164 3016 FOR MOV=0 TO 7:READ AA:POKE 448+ST+MOV,AA:NEXT MOV 3017 DATA 0,128,84,85,127,84,80,128 3018 FOR MOV=0 TO 7:READ AA:POKE 440+ST+MOV,AA:NEXT MOV 3019 DATA 0,192,62,61,63,200,16,0 3020 FOR MOV=0 TO 7:READ AA:POKE 424+ST+MOV,AA:NEXT MOV 3021 DATA 126,219,219,126,146,146,73,37 3050 IF SEC=1 THEN SETCOLOR 0,0,0 3090 IF TT=1 THEN GOTO 3800 3100 FOR ZZ=2 TO 22:FOR YY=2 TO 18:COLOR 174:PLOT YY,ZZ:NEXT YY:NEXT ZZ 3101 COLOR 47:IF SEC=1 THEN COLOR 175 3102 PLOT 1,1:DRAWTO 19,1:DRAWTO 19,3:PLOT 19,5:DRAWTO 19,9:DRAWTO 17,9:PLOT 17,11:DRAWTO 19,11:DRAWTO 19,20:PLOT 19,22:DRAWTO 19,23:DRAWTO 1,23:DRAWTO 1,22 3103 PLOT 1,20:DRAWTO 1,11:DRAWTO 3,11:PLOT 3,9:DRAWTO 1,9:DRAWTO 1,5:PLOT 1,3:DRAWTO 1,1 3104 IF SEC=2 THEN COLOR 32:PLOT 10,1:PLOT 10,23 3105 IF SEC=0 THEN COLOR 47 3106 IF SEC=1 THEN COLOR 47 3107 IF SEC=2 THEN COLOR 32 3108 PLOT 3,3:DRAWTO 3,7:PLOT 17,3:DRAWTO 17,7:PLOT 3,13:DRAWTO 3,20:DRAWTO 7,20:PLOT 17,13:DRAWTO 17,20:DRAWTO 13,20 3109 PLOT 5,18:DRAWTO 9,18:PLOT 5,17:DRAWTO 9,17:PLOT 15,18:DRAWTO 11,18:PLOT 15,17:DRAWTO 11,17 3110 PLOT 9,18:DRAWTO 9,21:PLOT 11,18:DRAWTO 11,21:PLOT 3,21:DRAWTO 7,21:PLOT 17,21:DRAWTO 13,21 3111 PLOT 3,15:DRAWTO 9,15:PLOT 11,15:DRAWTO 17,15:PLOT 5,3:DRAWTO 5,13:PLOT 15,3:DRAWTO 15,13 3112 PLOT 7,3:DRAWTO 13,3:PLOT 10,3:DRAWTO 10,7:PLOT 7,5:DRAWTO 8,5:PLOT 12,5:DRAWTO 13,5:PLOT 7,7:DRAWTO 8,7:PLOT 12,7:DRAWTO 13,7 3113 PLOT 7,13:DRAWTO 13,13:PLOT 10,13:DRAWTO 10,9:PLOT 7,11:DRAWTO 8,11:PLOT 12,11:DRAWTO 13,11:PLOT 7,9:DRAWTO 8,9:PLOT 12,9:DRAWTO 13,9 3200 COLOR 32:PLOT 10,15 3599 IF SH<2 THEN GOTO 3700 3600 FOR ZZ=2 TO SH:COLOR 42+Q:PLOT ZZ+8,0:NEXT ZZ 3700 FOR Z=1 TO 24 3701 READ AA:READ BB:FOR ZZ=15 TO 4 STEP -0.75:SOUND 0,AA,10,ZZ:SOUND 1,BB,10,ZZ:NEXT ZZ 3702 DATA 72,0,108,217,114,230,108,217,85,0,81,162,85,173,81,0,91,0,96,121,108,128,96,121,81,0,91,144,96,144,91,144 3703 DATA 108,217,81,162,85,108,81,162,108,217,81,162,53,108,40,162 3704 NEXT Z 3800 IF TT=1 THEN FOR Z=1 TO 24:READ AA:READ BB:NEXT Z 3900 DATA 2,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,2,3,0,3,0,3,3,3,3,3,3,3,3,1,3,1,3,2,3,2,3,2,3,2,3,2,1,2,1,1,1,1,1,1,1,1 3901 DATA 1,1,2,1,2,1,2,1,0,1,0,1,0,1,0,1,2,1,2,1,2,3,1,3,1,3,1,3,1,3,1,3,1,0,1,0,1,2,1,2,1,2,1,2,1,2,3,2,3,3,3,3 3902 DATA 0,3,0,3,0,3,0,3,3,3,3,3,3,1,1,1,1,1,1,1,1,1,1,1,1,1,2,3,2,3,2,3,2,3,2,1,2,1,2,1,2,1,2,1,2,1 3903 DATA 0,1,0,1,3,1,3,1,0,2,0,2,0,2,0,2,0,2,0,2,0,2,0,2,0,2,0,2,2,0,2,0,2,0,2,3,2,3,2,1,2,1,2,1,2,3,2,3 3904 DATA 1,0,1,0,1,0,3,3,3,3,0,1,0,1,0,1,3,3,3,3,1,0,1,0,1,0,3,2,3,2,0,2,0,2,0,0,3,0,3,0,1,0,1,0,1,3,2,3,2,3 3905 DATA 2,3,2,3,1,3,1,1,1,1,1,1,1,1,2,3,2,3,2,3,2,3,2,3,2,3,0,3,0,3,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1 3906 DATA 0,2,0,1,3,1,3,1,0,2,0,2,0,2,3,2,3,2,3,2,3,2,0,2,0,2,3,1,3,1,3,2,3,2,3,2,3,2 3907 DATA 0,2,0,2,0,2,0,2,0,2,0,2,0,1,0,1,0,1,1,1,1,1,1,1,3,0,4,1 3999 TT=1:TRAP 3001 4000 IF R=0 THEN QQ=42+Q 4001 IF R=1 THEN QQ=43+Q 4002 IF R=2 THEN QQ=44+Q 4003 IF R=3 THEN QQ=45+Q 4004 COLOR QQ:PLOT A,B 4005 FOR X=1 TO EE:NEXT X 4050 SOUND 0,0,0,0:SOUND 1,0,0,0 4051 COLOR G:PLOT E,F:COLOR K:PLOT I,J 4052 READ AA:READ BB 4053 IF AA=0 THEN E=E+1 4054 IF AA=1 THEN E=E-1 4055 IF AA=2 THEN F=F-1 4056 IF AA=3 THEN F=F+1 4057 IF BB=0 THEN I=I+1 4058 IF BB=1 THEN I=I-1 4059 IF BB=2 THEN J=J-1 4060 IF BB=3 THEN J=J+1 4061 IF E<1 THEN E=19 4062 IF E>19 THEN E=1 4063 IF I<1 THEN I=19 4064 IF I>19 THEN I=1 4090 IF PL=0 THEN QQQ=122:RRR=245 4091 IF PL=1 THEN QQQ=117:RRR=250 4100 LOCATE E,F,G:LOCATE I,J,K:COLOR QQQ:PLOT E,F:COLOR RRR:PLOT I,J 4101 IF G=QQ OR K=QQ THEN GOTO 9500 4102 PL=PL+1:IF PL>1 THEN PL=0 4200 POKE 77,0 4300 IF SSS=0 THEN IF SC>=10000 THEN SSS=1:GOSUB 9300 4500 POSITION 3,0:? #6;SC 4600 IF MM=1 THEN COLOR 119:PLOT 10,15:MM=2 4601 IF MM=2 THEN TH=TH+1:IF TH>20 THEN TH=0:MM=0:COLOR 32:PLOT 10,15:IF SEC=1 THEN SETCOLOR 0,0,0 8000 X=STICK(0):COLOR 32:PLOT A,B 8001 IF X=14 THEN R=2 8002 IF X=13 THEN R=3 8003 IF X=11 THEN R=1 8004 IF X=7 THEN R=0 8005 IF R=0 THEN A=A+1 8006 IF R=1 THEN A=A-1 8007 IF R=2 THEN B=B-1 8008 IF R=3 THEN B=B+1 8200 IF A<1 THEN A=19 8201 IF A>19 THEN A=1 8202 IF B<1 THEN B=23 8203 IF B>23 THEN B=1 8300 LOCATE A,B,C:IF C=47 THEN IF SEC=0 OR SEC=1 OR SEC=2 THEN GOSUB 8600 8301 IF C=175 THEN IF SEC=1 THEN GOSUB 8600 8302 IF C=174 THEN SC=SC+10:DO=DO+1:SOUND 0,VV,2,5:SOUND 1,VV+2,2,5:VV=VV+10:IF VV>80 THEN VV=70 8303 IF DO=205 THEN COLOR QQ+Q:PLOT A,B:GOTO 9200 8304 IF C=QQQ OR C=RRR THEN GOTO 9500 8305 IF WW=0 THEN IF DO=103 THEN MM=1:WW=1:IF SEC=1 THEN SETCOLOR 0,1,8 8306 IF C=119 THEN GOSUB 9100 8500 GOTO 4000 8600 IF R=0 THEN A=A-1 8601 IF R=1 THEN A=A+1 8602 IF R=2 THEN B=B+1 8603 IF R=3 THEN B=B-1 8604 RETURN 9100 SC=SC+SR 9101 FOR ZZ=62 TO 162 STEP 10:SOUND 0,ZZ,10,10:SOUND 1,ZZ+1,10,10:NEXT ZZ 9102 FOR ZZ=162 TO 62 STEP -10:SOUND 0,ZZ,10,10:SOUND 1,ZZ+1,10,10:NEXT ZZ 9103 SOUND 0,0,0,0:SOUND 1,0,0,0:MM=0:COLOR 32:PLOT 10,15:IF SEC=1 THEN SETCOLOR 0,0,0 9104 RETURN 9200 FOR ZZ=0 TO 3:SOUND ZZ,0,0,0:NEXT ZZ 9201 FOR YY=1 TO 4 9202 SETCOLOR 0,5,12:SETCOLOR 2,1,5:FOR X=1 TO 60:NEXT X 9203 SETCOLOR 0,1,5:SETCOLOR 2,5,12:FOR X=1 TO 40:NEXT X 9204 NEXT YY:SEC=SEC+1:EE=EE-2:IF SEC>2 THEN SEC=0:TEC=TEC+1:SR=SR+500 9205 IF EE<0 THEN EE=0 9206 GOTO 2500 9300 SH=SH+1:COLOR 42+Q:PLOT SH+8,0:SOUND 1,0,0,0:FOR ZZ=1 TO 5 9301 FOR YY=15 TO 0 STEP -1.25:SOUND 0,60,10,YY:NEXT YY 9302 NEXT ZZ:SOUND 0,0,0,0:RETURN 9500 COLOR 120:PLOT A,B 9501 FOR YY=40 TO 200 STEP 20:FOR ZZ=YY TO YY+40 STEP 5:SOUND 0,ZZ,10,10:SOUND 1,ZZ+2,10,10:SETCOLOR 1,ZZ,YY:NEXT ZZ 9502 NEXT YY:XX=15:FOR ZZ=255 TO 40 STEP -2:SOUND 0,ZZ,10,XX:SOUND 1,ZZ+2,10,XX:XX=XX-0.15:IF XX<0 THEN XX=0 9503 NEXT ZZ:FOR MOV=0 TO 7:POKE 448+ST+MOV,0:SOUND 0,MOV+60,10,10:FOR X=1 TO 2:NEXT X:SOUND 0,0,0,0:FOR X=1 TO 20:NEXT X:NEXT MOV 9504 FOR ZZ=0 TO 3:SOUND ZZ,0,0,0:NEXT ZZ:SH=SH-1:GOTO 2500 9900 FOR ZZ=0 TO 3:SOUND ZZ,0,0,0:NEXT ZZ:POSITION 6,16:? #6;"" 9901 IF PEEK(53279)=6 THEN SC=0:SEC=0:GOTO 500 9902 GOTO 9901 30000 POKE 16,64:POKE 53774,3:RETURN
References
Listing downloads
Downloads
Copyright holder