followme  '> UFOLLOW ME was written Stephen Proctor in Avon ZX COMPUTING june/juli 1984 2000:3000 7q=1162:x,y:q+47/,x:0,y::q =p=1np:150:0,0;"Your go, ";n$(p) # w(l(p)) (c=1l(p) 2qz=(*4)+1 <&col=16*(qz=1qz=3) F5l=010 :qz>2l=11 21 P4l,col;1;ٰ"1246"(qz);" ":l Z .73333,qz d w(c)=qz n5l=010 :qz>2l=11 21 x51;0;1,col;" ":l c 100d:c=1l(p) 'a$=:a$"r"a$"g"a$"b"150 a$"brgy"(w(c))300, h0,0;" ";0,0;"Correct!!! " .73333,w(c) ""168 c #s(p)=s(p)+l(p):l(p)=l(p)+1 Wd=1np:21,(d-1)*4;s(d):d:d=1np:s(d)up500 d p 30 ,l(p)=l(p)-1:185 [0:0:7::11 ,0;1;" You are won, ";n$(d);" " @9030F#:q=112 :x,y:x/8,y:*7:q 15,0;"Scores:"'' 9x=1np:17,(x-1)*4;(x=d);s(x) x:0:0: solid circle data 89Y,-4,77M,20,72H,30,67C,40(,63?,480,61=,524,58:,58:,568,62>,535,68D 513,72H,491,76L,47/,80P,46.,82R,44,,86V,43+,88X,42*,90Z,40(,94^,39',96` 37%,100d,36$,102f,35#,104h,34",106j,33!,108l,32 ,110n,31,112p,30,114r,29,116t $28,118v,27,120x,26,122z,25,124|,24,126~,24,126~,23,128,22,130,22,130 .21,132,20,134,19,136,19,136,18,138,17,140,17,140,16,142,16,142 815,144,15,144,14,146,14,146,13 ,148,13 ,148,13 ,148,12 ,150,12 ,150 B11 ,152,11 ,152,10 ,154,10 ,154,10 ,154,10 ,154,9 ,156,9 ,156,9 ,156 L9 ,156,9 ,156,8,157,8,158,8,158,8,158,8,158,8,158,7,160 V7,160,7,160,7,160,7,160,7,160,7,160,7,160,7,160,7,160 `7,160,7,160,7,160,7,160,7,160,7,160,7,160,7,160,7,160 j7,160,8,158,8,158,8,158,8,158,8,158,9 ,157,9 ,156,9 ,156 t9 ,156,9 ,156,9 ,156,10 ,154,10 ,154,10 ,154,10 ,154,11 ,152,11 ,152 ~12 ,150,12 ,150,13 ,148,13 ,148,13 ,148,14,146,14,146,15,144,15,144 16,142,16,142,17,140,17,140,18,138,19,136,19,136,20,134,21,132 22,130,22,130,23,128,24,126~,24,126~,25,124|,26,122z,27,120x,28,118v 29,116t,30,114r,31,112p,32 ,110n,33!,108l,34",106j,35#,104h,36$,102f,37%,100d 39',96`,40(,94^,42*,90Z,43+,88X,44,,86V,46.,82R,47/,80P,491,76L,513,72H 535,68D,568,62>,58:,58:,61=,524,63?,480,67C,40(,72H,30,77M,20,89Y,-4 e0:7::x=05:x:1,x+12 ;x;"PSYMON"(x+1):.1}L,x:x U502:x=96`143:x,159:(*8):.05|L,x-110n:x  7  3,0;"I will flash an ever-increasing series of coloured lights accom-pianied by a different note for each colour.The players have to remember the sequence." '" To enter a colour, press the initial letter of that colour, eg"'' 1;"(b)lue ";2;"(r)ed ";6;"(y)ellow ";4;"(g)reen"  1000  H19,0;1;5;" Press any key to continue " *5b=07:.05|L,b:=""b:2090* 4: 55:11 ,4;"How many players? 1-8)" !a$=:a$<"1"a$>"8"3010 -0,0;" " 'np=a$:l(np):n$(np,10 ):s(np) ?x=1np:('"Name of player ";x;);;n$(x):l(x)=4:x ''"Up to 1-7 ";up 2080  #F1,5,1,2,1.5@,-2,1.5@,-2,.75@,-2,.75@,0,.75@,2,.75@,4,1.5@,5.1#333,1.5@,5,1.5@,5,.75@,2 a* laci yon A