Grumphers 446WGrumphers by John Litherland from Sinclair Programs, Jul'83 #x=07:b:"a"+x,b:x #x=07:b:"b"+x,b:x #x=07:b:"c"+x,b:x #x=07:b:"d"+x,b:x 0:2:7: hs=0 P s=0 Z>2;0,0;" " dl=11 :c=16 i 800  n x=l:y=c s 7 x&2;0,0;"SCORE:";s }-2;0,17;"HIGH SCORE:";hs u=l:v=c *c=c+(="8"c<31)-(="5"c>0) *l=l+(="6"l<21)-(="7"l>1) ="j"2000 |(l,c)="*"1000  3  x,y;"*" 1l=rlc=rcs=s+tt:.5,20:105i  6  l,c;"" lucv.05|L,-20  110n  rl=(*20)+1 *rc=(*31) 4z=(*11 ) >7z0z<24:rl,rc;"":tt=15 H7z2z<66:rl,rc;"":tt=10 R7z6z11 7:rl,rc;"":tt=5 \  s>hshs=s -x=300-1:.05|L,x:x "END OF GAME" "ANOTHER GAME?" a$ a$="y":80P  $ l=(*20)+1 c=(*31)  00011000,00111100<,01111110~,01011010Z,01111110~,01111111,01111110~,01010100T Á00000000,00111100<,01111110~,01111000x,01111000x,01111110~,00111100<,00000000 ́00011000,00011000,11111111,00111100<,00111100<,00100100$,00100100$,00100100$ ׁ01000010B,01100110f,01111110~,01011010Z,01111110~,00111100<,00011000,00011000 T