ZXTape! 2 SnakeArtic Phillip Baker1983EnglishArcade4.99ROMRPerfect TZX sampled from the original cassette by +Church of the Latter-Day SpeccyqSnake +:?SNAKE  1983 P. BAKER COME ON ! NO CHEATING !!!  10 "a"-140:8000@ eANNOC=4000:INIT=8020T:SCREEN=100d:GAME=100d:DISP=5500|:HI=5000 9SOUND1=9000(#:SOUND2=90102#:SOUND3=9020<# bcol=6*9 SOL=.01z# = (X1=0:Y1=0:H$="H":X$="S" 23658j\,8 SC=10:Z$(5,10):Z(5):5000 2INIT ZANNOC:100d _DISP dFBONUS=2:MINES=0:HOLES=0:SC=0:NOB=2 g6:6:0: i<0:I=02:10 +I,12 ;" ";:I n3:I=1BONUS x*X=2*(*16):Y=(*22) (Y,X)bcol120x Y,X;"";:SOUND1:I 2:I=1MINES 2X=2*(*16)+1:Y=(*22) (Y,X)bcol160 ">.8LY,X;"";:175 4;Y,X;""; .005y# =,25:I HOLES220 0H(2,2):0:I=12 RX=(*30)+1:Y=(*20)+1:H(I,1)=X:H(I,2)=Y (Y,X)bcol200 Y,X;"";:SOUND2:I 1 X1=14:Y1=12 KEY=2:LAS=2 (#0;1,0;"SCORE ";SC;  DI=02:10 +I,12 ;6;6;" ":I ,!1:12 ,13 ;"" A$= A$=H$800 :500 $I=14:A$=K$(I)KEY=I I S$(LAS,KEY)=" "KEY=LAS #Y1,X1;S$(LAS,KEY);:SOL,20 X1=X1+X(KEY):Y1=Y1+Y(KEY) ";X1>31X1<0Y1>21Y1<02000 & LAS=KEY 0(Y1,X1)bcol1000 :Y1,X1;(153+KEY); N 500  X$800  % (Y1,X1)5131200 SOUND3:NOB=NOB-1 7SC=SC+10 :#0;1,0;"SCORE ";SC %NOB>0LAS=5:500 BONUS=BONUS+2 BONUS>4MINES=5 BONUS>6MINES=10 EBONUS>8MINES=10 +MINES:MINES>60<MINES=80P $HOLES=1 ) BONUS>30BONUS=30 . NOB=BONUS 8 BONUS=10 SOL=.005y# =  103g (Y1,X1)4802000 {X1=H(1,1)Y1=H(1,2)H(1,1)=H(2,1):H(1,2)=H(2,2) Y1,X1;(157+KEY); .X1=H(1,1):Y1=H(1,2) ("A"-100d): Y1,X1;""(KEY); n 533 SI=115:.01z# =,10 :2:6:.01z# =,10 -I:I HI:95_  0:6:0: 3#0;1,0;"PRESS ";X$;" TO START" 01,0;"Artic Computing presents :-" 3,0;" "; " "; .17,0;"WRITTEN BY PHILLIP BAKER" *19,0;" 1983 PHILLIP BAKER" I=031 L21,0;"GAME DESIGN BY THE MICROBUG !! "(32 -I32 ); =X$ .005y# =,20:I YJ=13:I=70-1:I;1;21,0;31; =X$ .1}L,I*2:I:J I=031 &F21,I;" GAME DESIGN BY THE MICROBUG !!"(132 -I); 0=X$ :.005y# =,20:I 0:5:0: )1,0;"KEYBOARD COMMANDS :-" x3,0;"6 ... LEFT";5,0;"7 ... RIGHT";7,0;"8 ... UP";9 ,0;"9 ... DOWN" @15,0;"S ... START";17,0;"H ... HOLD" d251,168:I=120:I,31;" ";I+1,31;"":0,-8 =X$ .04|# =,20-I:I EI=113 :21,29-I;"MICROBUG HI !!"(I);"-";: =X$ .004yn,20:I GI=200-1:I,31;"";I+1,31;" "; =X$  .04|# =,20-I:I ~DISP SCZ(5) 6:1:0: OI=015:1;6;2;" ";6;2;" ";:I ^I=110 :6;2;1;" ";1;0;31;1;" "; V6;2;1;1;" ";0;31;0;1;" ";:I FI=015:1;2;6;" ";1;" ";:I 92,7;6;0;"CONGRATULATIONS !!" ā4,4;"YOU HAVE ACHIEVED ONE OF";5,4;"BEST SCORES . ENTER YOUR";6,4;"NAME IN THE ROLL OF " ΁7,4;"HONOUR . PRESS DELETE TO";8,4;"REMOVE A LETTER AND PRESS";9 ,4;"ENTER WHEN FINISHED" ,5090:I=10:A,B:A,B:I A$=" ":C=1 DB$=:(B$>"Z"B$<"A")B$12 B$13 B$" "5110 B$=13 5200P $B$=12 C=15110 :B$=12 A$(C-1)=" ":C=C-1:51702 #C=10 5110 (A$(C)=B$:C=C+1 2+15,11 ;A$:.01z# =,20 <=B$5180< F 5110 P,Z=0:I=15:Z(I)SCZ=I ZI dII=52+Z-1:Z(I)=Z(I-1):Z$(I)=Z$(I-1):I n#Z(Z+1)=SC:Z$(Z+1)=A$ r |1:6:1: 3#0;1,0;"PRESS ";X$;" TO START" $2,9 ;"TODAYS GREATEST" 56,5;4;"" FI=713 :4;I,5;" ":I 64;14,5;"" |I=15:Z(I)>04;7+I,16-(Z$(I));Z$(I);7+I,17;Z(I):.01z# =,I*2 I +0,0;"";:I=130 =X$ "";:.005y# =,20:I ,"";:I=120:I,31;""; .005y# =,20:=X$ I H21,31;"";:I=130:21,31-I;""; .005y# =,20:=X$ I F21,0;"";:I=120:21-I,0;""; .005y# =,20:=X$ I &/J=03:I=70-1 0=X$ D)2,9 ;I;1;25; N.1}L,I*2:I:J  4000  :6:6:0: ? 0: Jf6:0:6::10 ,4;"HI ! D'ERE";12 ,6;"LOADING MACHINE CODE" O"""A"-100d:10 T K$="6789" ^"Z(5):Z$(5,10 ) |X(4):Y(4) p8070:I=14:X(I),Y(I):I:-1,0,1,0,0,-1,0,1 VS$(5,4):I=15:S$(I):I:" "," "," "," ","" !4-BONUS=2:MINES=0:HOLES=0 !>SC=0:NOB=2 #' #(.J=0202:.02{# =,J:J: #2/J=200-2:.02{# =,J:J: #<.I=15:.02{# =,20+I:I: % nnoniTcreedamdis|ound(#ound2#ound<#co6oz# =HHXSK6789 7  onuineole o(#x yeaA cB z{mc >& yB%  & yB%  \Wq !0uv>