LOG-HOP  XLog Hop by Christopher Gibbs from ZX Computing Oct/Nov.1984 23658j\,8 0:7:0: ?hole=0:game=0:z(10 ):f$(10 ,3) 8000@ score=1000:dead=0 game=1 x=19:y=10 e$="" m=311-1 $score>1score=score-2 7dead>0dead=dead-1:0.05|L,-10 (6;5,0;a$(32 -m);a$(32 -m);10 ,0;3;b$(m);b$(m);15,0;4;c$(32 -m);c$(32 -m);7;20,0;d$(m);d$(m) +dead>0557 - m/2=(m/2)e$="" . m/3=(m/3)e$="" 26;x,y;" ";e$;" " 5"m/3=(m/3)579 7'(x+1,y+1)=" "200 9dead>0100d <y=y+(="8")-(="5") U(y<0y=29:x,0;" " V)y>29y=0:x,29;" " Z="0"1000 _e$="" d7:m:30 FALL 6 x=19300, \n=x+1x+5:n,y+1;"";n-1,y+1;" ":0.05|L,20-n:n 6e$="":x=n-1:x,y+1;e$:dead=d*2 '(x+1,y+1)=" "210  "DEATH ,S19,y+1;"":2:20,y+1;"";19,y+1;" " 10.1}L,0 620,y+1;" " @n=y+130:5;21,n;"";6;"":0.05|L,30-n:n:5;1;21,31;"" A1n=110 :n:score=0:330J E'score=(100d*(score/1000)) J2,10 ;" ";3,10 ;" ";4,10 ;" ";3,10 ;"SCORE=";score;"%" TN17,3;1;"PRESS ENTER TO CONTINUE":13 340T Y ^+n=110 :score>z(n)400 hn r0,5;"TODAY'S GREATEST:":n=19 :n*2,6;n;"=";" ";f$(n);" ... ";z(n):n:20,5;10 ;"= ";f$(10 );" ... ";z(10 ) | 9515+% Vm=10 n+1-1:z(m)=z(m-1):f$(m)=f$(m-1):m:z(n)=score ;"ENTER YOUR INITIALS (MAX 3) ";g$:g$>3410 f$(n)=g$:370r JUMP  6 $x=4y+1=po1100L 8(x-4,y+1)=""dead=d*2:1050 x,y;" ":0.1}L,10 :n=x-1x-5-1:n,y+1;"";n+1,y+1;" ":0.05|L,20-n:n  x=n+1  x,y+1;"":2:n=x-1x-3-1:n,y+1;"";n+1,y+1;" ":.05|L,20-n:n #7;n+1,y+1;"" $0.1}L,10 .Tk=n+2x:k,y+1;"";k-1,y+1;" ":0.05|L,20-k:k 0#6;k-1,y+1;"" 3e$="" 8 LFINISH Vx,y+1;"":2:n=x-1x-3-1:n,y+1;"";n+1,y+1;" ":0.05|L,20-n:n [r0,po;"";1,po;"":n=110 :0.1}L,n:n:n=200-2:0.1}L,n:n ` 325E J!m$="      " L!n$="         " N!o$="         " P!p$="          " Q!q$="       " Tm=272-1 Y0.01z# =,m ^1;4,m;m$(28-m);2;5,m;n$(28-m);3;6,m;o$(28-m);4;7,m;p$(28-m);5;8,m;q$(28-m) h 2:m mj=13 r{n=16:n:4,2;m$;5,2;n$;6,2;o$;7,2;p$;8,2;q$ w&0.01z# =,n+10 +(j*2):n xj |:12 ,6;7;1;"BY C.M.GIBBS 1983"  100d  RULES 2,2;7;1;"5: LEFT";4,2;"8: RIGHT";7,2;"0: JUMP";12 ,0;"DODGE THE GAPS, REACH THE RINGS "''" AND DON'T GET KNOCKED OUT !" 51;21,3;"WAIT ONE MOMENT PLEASE" #( GRAPHICS #2#n=07:a:"a"+n,a:n #,85U,85U,20,119w ##n=07:a:"e"+n,a:n #I0,6,2,18,18,210,222,254 ##n=07:a:"f"+n,a:n #F0,0,0,12 ,24,40(,196,3 ##n=07:a:"g"+n,a:n #K66B,66B,66B,66B,231,165,231,0 ##n=07:a:"h"+n,a:n #L195,36$,24,146,254,16,568,568 ##n=07:a:"i"+n,a:n #M66B,66B,66B,66B,231,231,231,130 ##n=07:a:"j"+n,a:n #M186,186,254,16,568,68D,68D,198 ##n=07:a:"k"+n,a:n #H28,28,255,8,15,241,0,0 % STRINGS %&8a$(31):b$(31):c$(31):d$(31) %+2game=1b=1+(*3):95200% %-b=13 %0n=131 %:r=(*6) %D%r=2hole=1:9548L% %I"b=1a$(n)="":9551O% %J"b=2b$(n)="":9551O% %K"b=3c$(n)="":9551O% %Lb=1a$(n)=" " %Mb=2b$(n)=" " %Nb=3c$(n)=" " %On %PAhole=0a$(1)=" ":b$(1)=" ":c$(1)=" " %Qhole=0 %Sgame=1:9600% %Xb %]'d$=" " %bA21,3;0;" PRESS ANY KEY ":0 %g %%z$="":m=311-1 %6;5,m;a$(32 -m);10 ,0;3;b$(m);15,m;4;c$(32 -m);7;20,0;d$(m) %5;21,0;z$ % z$=z$+"" %m %19,11 ;"" %=po=2+(*27):0,po;6;1;"" % "ENTER DIFFICULTY (1/2/3) ";d %&dɺdd<1d>39640% % 12