#}H? |6:\P!$635S\+256*23636T\+14:i,s-(s/256)*256:i+1,(s/256) s=s-720 (236066\,s-(s/256)*256 236077\,(s/256)  -restore CHARS- +236066\,0:236077\,60<  erase cursor "px=(a/8):py=a-px*8 21;px;py;cy,cx;" ";cy+1,cx;" " sound.005y# =,60< c=2:f=5  @9910&:s(3,3):k=13:s(k,2),s(k,3):s(k,1)=s(k,2)*s(k,3)/2:k:f$=" ": CO9965&+eng:a$:demo#0;1,1;a$:z=2:8020T E,9998':b$=(" Paare"eng)+(" pairs"eng):9967&+eng:a$::a$:::5;"1) ";("Small"eng)+("klein"eng);" .... ";s(1,1);b$''" 2) ";("Medium"eng)+("mittel"eng);" ... ";s(2,1);b$;''" 3) ";("Full"eng)+("voll"eng);" . ";s(3,1);b$ JX9970&+eng:a$:21,1;a$;" (1-3): ";:inpnbr:z>3z=3 Oiz=2 QJ8;8;z;z*2+10 ,19;1;" " Tsize=z:s=s(size,1)*2:w=s(size,2):t(s,4):r(s/2,2):t$="":b$="":k=1s/2:t$=t$+k+(k+128):b$=b$+k+(k+s/2):k ^-- shuffle -- cYtopx=16-s(size,2):topy=8-s(size,3):topy<0topy=0 h::k=1s:f=(*t$)+1:r=(*b$)+1:c=t$(f):pos=b$(r):t$=t$(f-1)+t$(f+1):b$=b$(r-1)+b$(r+1) k8r(c-128*(c>127),(c>127)+1)=pos m6t(pos,1)=c:prcard:sound.001wn,30 odemoself="Q" rk |<demolabel:9925&+eng:a$:16,5-eng;a$  -erase card 'pos'- $a$=" ":c$=a$:i=0:3 lask for give-up qerase v39944&+eng:b$:#0;1,15;b$ k=1500 3c$=:c$="y"c$="Y"c$="j"c$="J"quit=1: c$="n"c$="N" k  !4 -scores- !99:9946&+eng:b$,t$,k$,c$:1,8-eng;b$ !> quit3,2-eng;t$ !Ci=1players-1:k=i+1players:p$(k,12 )>p$(i,12 )a$=p$(i):p$(i)=p$(k):p$(k)=a$:j=l(i):l(i)=l(k):l(k)=j !Ek:i !Hi=0:k=1players !MAk*2+4,3;p$(k,̯p$(k,11 ));k$(5); !R4p$(k,12 )=0k$(6);:8540\! !Wp$(k,12 ); !\)c$(̱c$-(p$(k,12 )1))+"."; !f"l(k)i=1:" (";l(k);")"; !pk !u9948&+eng:a$,b$,c$ !zi::4;a$ !321,0;b$;#1;1,1;c$ !64000:a$=:same=(a$="y"a$="Y"a$="j"a$="J") !,k=1players:p$(k,12 )=0 ! #(60:0:7:0::9950&+eng #*""9002*# #+is=61438 #, 9998' #-'::a$:a$:a$:21,0;a$; #7inpnbr:demo=i #9+z>68;8;:90157# #<+players=z:self=1:demo9920& #A5p$(players,12 ):l(players):k=1players #B #Cdemon$:l(k):9055_# #FB9952&+eng:a$:9998'::5-eng;a$;1;z$(k) #I9955&+eng:a$::a$; #K.i=7001-1:k$=:k$=""i #Li #M!f=(k$="Y"k$="y"k$="J"k$="j") #Pg(("Yes"eng)+("Ja"eng)f)+(("No"eng)+("Nein"eng)(k$="n"k$="N"));:fk$"N"k$"n"9035K# #Rfself=0 #Uhf9957&+eng:a$:::a$;:inpnbr:l(k)=z*(z<6)+5*(z>5):8;8;l(k) #Vi9026B# #Z49959&+eng: a$:19,1;a$;:inptxt #]i9025A# #_p$(k)=n$:p$(k,11 )=±n$ #xp$(k,12 )=0:k # #nbr=1:9107# # nbr=0 #n$="":z=3 #B.05|L*sound,0:" ";8;:r=15:r #.i=7001-1:k$=:k$=""i #i #!k$=13 n$""9130# #Ok$=12 n$""" ";8;8;" ";8;:n$=n$(̱n$-1) # nbrk$<"1"k$>"9"9110# #@k$>32 n$<(nbr=0)*9 +1k$;:n$=n$+k$ # 9110# #" ";:nbrz=n$(1) # &A"E I N S","Z W E I","D R E I","V I E R","F U E N F","S E C H S" &9"O N E","T W O","T H R E E","F O U R","F I V E","S I X" &<10 ,7,14,7,16,8 &"CLIVE",4 &"DONALD",1 &"EINSTEIN",5 &!"DEMO - 'Q' um zu spielen" &"DEMO - press Q to play" &3" nimmt das letzte Paar. Druecke eine Taste... " &-" takes the last pair. Press any key... " &"Mehr Glueck als.." &"Luck is with you!" &"Wie ichs dachte !" &"I thought as much" &"Mein Glueckstag !" &"I'm lucky today !" &" Keine Scherze ! " &" Dont' kidden me " &" !!! Das ist leicht... " &" !!! This is easy..." &" ??? Das war doch schon... " &" ??? I'm not shure, but... " &C" Wurde ","noch nicht ","umgedreht ","Runde ","von ","dir selbst" &;" Has ","never ","been turned ","round ","by ","yourself" &" Aufhoeren ?  J/N" &" Quit game ?  Y/N" &N" E R G E B N I S ","(das Spiel wurde abgebrochen)"," hat kein"," Paare" &I" R E S U L T S ","(the game was aborted early)"," has no"," pairs" &ܒ" (L) Der Spectrum spielte fuer diese Person auf Stufe L."," Spielen wir noch einmal in der"," selben Zusammensetzung ? J/N" &ݔ" (L) The Spectrum played for this person at level L.","Do you wish to play another game","with the same players ? Yes/No" &"..ist ein Spiel fuer 1-6 Spieler"+13 +13 +13 +13 +" Der Spectrum kann die Funktion"+13 +13 +" jedes dieser Spieler einnehmen"+13 +13 +" oder nur der Spielleiter sein.","Anzahl der Spieler insgesamt: " &"MEMORY is a game for 1-6 players "+13 +13 +13 +" The Spectrum can take the part "+13 +" of any of these players, or do "+13 +" just the housekeeping for them"," Select total nbr of players: " &"S P I E L E R " &"P L A Y E R " &K" Soll der Spectrum fuer diese "+13 +" Person spielen ? (J/N) " &H" Shall the Spectrum play for "+13 +" this person ? (Y/N) " &M" Der Spectrum hat fuenf Spiel- "+13 +" stufen 1-5 (Dusel-Genie): " &N" The Spectrum has five skill- "+13 +" levels 1-5 (fool-genious): " &?"Tippe den Namen des Spielers "+13 +" dann ENTER: " &?"Type the name of the player "+13 +" then ENTER: " &&" Folgt Demo - 'Q' fuer Spiel " &'"Entering demo - press Q to play" &G" Es stehen drei 'Spielfeld'- "+13 +" groessen zur Wahl:" &=" There are three 'board'-sizes "+13 +" available:" &" Waehle die Groesse" &"Select board-size" &" ist am","Ueberlegen..." &" is now","thinking..." &"Du bist drann","nun, " &"It's your turn","now, " &"Da kann ich nur raten..." &"We will have to guess..." &"Ich glaub ich weis eins..." &"I think I know one..." 'B"Waehle Karte mit dann ENTER, oder Quitt, Label, Hilfe... " '@"Use then ENTER to select card, or Quit, Label, Help... " '@"Gemerkt? Druecke eine Taste...","Ich habe","Du hast"," Paar" ':"Hit any key when ready....","I have","You have"," pair" '"Tja,kein Paerchen" '"Too bad-no match." '"Spitze! Ein Paar!" '"Well done-a pair!" ' ]"mem_gc"23675{\+256*23676|\:"mem_card"50000P:23301[,1: '"#     1985 BY CHR. GANDLER " ' n; O N E T W O T H R E EF O U R F I V E S I X ounmptwnselecsepl{seplromovdndpoelecef owighLrcarwnmovpllowmovXellenallplaye ellrepdtablPel_core4!iveul abeFestoretcharhowcarxrasndco,cn`ardPetu(#etboar@laygamnpnb#nptx#A" Select total nbr of players: bN##K"" MEMORY is a game for 1-6 players  MEMORY is a game for 1-6 players  MEMORY is a game for 1-6 players  MEMORY is a game for 1-6 players  MEMORY is a game for 1-6 players  The Spectrum can take the part MEMORY is a game for 1-6 players  The Spectrum can take the part MEMORY is a game for 1-6 players  The Spectrum can take the part of any of these players, or do MEMORY is a game for 1-6 players  The Spectrum can take the part of any of these players, or do MEMORY is a game for 1-6 players  The Spectrum can take the part of any of these players, or do just the housekeeping for them+a?@ABCDEFGHIKLNOP Q!R"S#T$U%V&W'X(Y)Z*[+\,]-^._/0a1$S?߿~}p0` qyy{j '(py0`A???8߇@@@@!" vc"*U;OW @JJ$II$0$I$I( 888888 |&}@@@` ``Ϸ{??>no8(8(8```X8PPpp  )  )  x2???2 8(x`0h0 P(xP 0h P`H8 Á>ÁÁBBǃ~۽~??BBÁ>Á P```PsP````P~y> U+KS??} ## ƒǀ?p(?_??hHppPhhppphnppphpphphhhppw?}~was|/ն<xw>xrrqrjrjrrrzrrqqrqq Ѯ.8D~.F8?LJ?“S>? 3' '400 '444 '?3"p @ Q!!! @0 `a!8 /'?? ?#phhhhppppnpPPPP(pxxp8S'cC SЀ@ 8 >#08|ۻǻûׇ+Ӌ盻˳׋ߟϷۛۙw[[[[ۛ1W;C|~? ߛgO/? ?7W?Osw߿x ?>=}{{{{;݀[_ƿ}?ݼ}??} JAAHJBB >II@ B @???~}~8?  H(A"!,C80((((888((88(((  `   @@ @@` 8 Ƅ?}cm߿?߿{;;;?? ? ~FFF~~FFF ~|> 9}k ~?`??{{{{{~||| (0(0P0P0P(0P( > ????/  UVVVUUVVVUUVVVU?|| ||)?>> ||(?>> ||x ?<3BBB? ???@@ ?<<<<<<`? A<||8x|?8> ||||WWWPPWWWPPWPPWWWPPWWW#W7U0000p  7?>> UU>PP ?U^>> ??J1{UBZZZZ)+jUZ{{UjTRZZYj*Ukkhhhkkh(hkkh`~>7` >@AA@ PPp @@CmfߪmUUUUU_UU x ??||  r 888YÃ ~3Dgxz::zx p?<<h pp` @ x( ppppppppG .!#Gab3`@ 0pp 9xx|Ύ?3aa  xs `| XxXXXxxhXXhhxXXXxXXwۦx|8z ? {߿???? U?kԪUBQ*]U440224402ٱ9>?cǏ;<=ׯ_?>=;77ww~E|w{}~?޾~x ? Μ8p (P@ };8?5:5:??q  @ =@ @ 8<|\ll8 @@@ONOOJOOMMjMM`p< <  2ɧEE%OŠ"$$e#_>~ xzzxzxzzzzxzzzxWUVqQ@5`0<$$$<1#?@` ?8### "@@‚!ACCG7 ||x  '// 800088000880088:::>*BB:BP@@@@R@ELEEU@  @A@20R``P@@@P@@@@@ H B 80 ?s  ">?"FFFGFFFFGFFFFGFFFFGFf? $$(yh?8??>s# @|x_M)&CLp` > 6EG0 0 :}x}hhhx)p@@   8 H???<< OOOOK*?>????(UU??/ߛ5x@@_? ?7}?k''/0hh|z*0 U??X QD1@`8??"8pNRPX~q*R  `pxxxx||~ /D/_@ؼ|zxxxxyOxzx80`p8x`` xp88  xx?88x0N ?9sy> scc|< |gCA> N88INHALT INF +F 8MM&cb32M3s6|}#7# >8DD8 @@UjUjUjVVVUjUjUjVVV00>8|8888 @,#8<~DB<<~|BB@B|N~JB@@|hBBBBBDBBFD@@DhDB><<<|BD<@ << xDZD<<@< 8Th\\\̏ˏiiҚЅX![!PP!W K SR P/AZHZ! x  7 a$="":c$="":i=5 ap=pos-1:x=topx+2*(p-(p/w)*w):y=topy+(p/w)*2:y,x;i;a$;y+1,x;c$: m(x)=x-128*(x>127):f(x*)=(h(x)((round-t(x,2))own))(h(x)own=5)(h(x)t(x,3)=rown=4):h(x*)=t(x,3)<128t(x,2) ieng=23301[:23658j\,8:9900&+eng:z$(6,9 ):z=16:z$(z):z sound=23300[:empty=8095:ownselect=7602:useplr=7035{:useplr1=7040:domove=6500d:fndpos=7700:select=7600:left=7200 :down=7300:up=7400:right=7500L:prcard=2:ownmove=6000p:allowmove=7000X:tellend=4000:callplayer=3000 :tellres=5300:updtable=5200P:help=7775_:scores=85004!:giveup=8300l :label=7750F:restore=7895:setchars=7870:showcard=7800 x:erase=7900:fndcoo=6700 ,:scnd=60000`:cards=50000P:setup=9000(#:setboard=8000@:playgame=5000:inpnbr=9100#:inptxt=9105#  MEMORY  1985 BY C.G. setup  :setboard  playgame scores same15 ( d k=14916 $.005y# =,k:.005y# =,k-6 k * - callplayer - Mown=l(r):18,16;f$(16);20,16;f$(16) `own9972&+eng:b$,t$:18,16;p$(r,̯p$(r,11 ));b$;20,16;t$ eown9974&+eng:b$,t$:18,16;b$;20,16;t$;p$(r,̯p$(r,11 ));"!"  - tell nearend - >k=1s(size,1)*2:t(k,3)>128k  6097 Lpos=pos1:empty:n=1:showcard:pos=pos2:empty:n=2:showcard  updtable 29927&+eng:a$:a$=p$(r,̯p$(r,11 ))+a$  5332 =round=1:quit=0:taken=0:nearend=0 r=1players *taken=s(size,1)-1tellend:  callplayer ownownmove ownallowmove quit updtable:tellres found5010 $r:round=round+1:5005 P-update table- Upos1&pos(=pos2) are 'open' Z/found=m(t(pos1,1))=m(t(pos2,1)) \2taken=taken+found:nearend=taken=s(size,1) _7foundpx=p$(r,12 )+1:p$(r,12 )=px d5250:pos=pos1 _t(pos,2)=round:t(pos,4)=t(pos,4)+1:t(pos,3)=r+128*found  -tell result of move-  & restore screen "9988'+eng+2*found:a$ foundrdm9930&+eng:a$ +ownfound9932&+eng+2*rdm:a$ *#0;1,14;f$(18) ^k=1̱a$:#1;1,32 -k;a$(k):soundl=17:l:5327 e.3/(19-k*(found=0)+k*(found0)),15-k*(found)*3+k*found*2 ""5350 k 9986'+eng:a$,b$,t$,k$:founda$=(b$own)+(t$own)+" "+("nun "eng)+px+k$+(("s"eng)+("e"eng)px>1)+(" now"eng)+". "+(b$own)+(t$own)+(" another go! "eng)+(" noch einen Versuch! "eng) k=1130:=""k selffound5350 i=120 בj=1̱a$:#0;1,15;1;a$(17):k=15:""#0;1,14;f$(18):5350 >k:a$=a$(2)+a$(1):j:(foundnearend)selfi kk=1721:k,0;f$(14):k:k=01:#1;k,0;f$(14):k *#0;1,14;f$(18)  pos=pos1 foundempty:pos=pos2:empty "foundprcard:pos=pos2:prcard  p-computer moves- (rdm=0:k=1s(size,1) demoself="Q" &pos1=r(k,1):pos2=r(k,2)  f(pos1)f(pos2)6100 k own56080 -theoretical- .i=0:k=1s(size,1)*2 3t(k,2)i=i+1:pos1=m(t(k,1)) Fk:i=2pos2=r(pos1,2):pos1=r(pos1,1):6100  -try one- 9976&+eng:a$ ]k=1502:pos1=(*s(size,1)*2)+1:t(pos1,3)>128k k5136090 >k=1s(size,1)*2:t(k,3)>128k pos1=k  6098 #found=f(pos2):found6121 trdm=1:k=1502:pos2=(*s(size,1)*2)+1:t(pos2,3)>128pos2=pos1k k5136121 Ek=1s(size,1)*2:t(k,3)>128k=pos1k pos2=k:6121 pos1=k Upos2=r(m(t(pos1,1)),1):pos1=pos2pos2=r(m(t(pos1,1)),2)   -found one-  9979&+eng:a$:6122 6>.92kt(pos1,3)own56120 1pos=pos1:n=0:fndcoo:useplr:6129 N(<.2~Lfound)r1round>1own59940&+eng:a$ 'foundown=59938&+eng:a$ pos=pos2:useplr1:fndcoo dx=x-cx:dy=y-cy -d=0:k=1̽dx2:domove:k -d=1:k=1̽dy2:domove:k  ownselect: d-move crs towards- nerase x"dcy=cy+2*dy:6530 }cx=cx+2*dx  useplr1: 6,p=pos-1:x=topx+2*(p-(p/w)*w) @y=topy+(p/w)*2 E X- player move - vn=0:c=n {cx=topx:cy=topy %ownh=0:9984'+eng:a$ Ia=(cy,cx):cy,cx;1;" ";cy+1,cx;" ":f=0 demoself="Q" *#0;1,15;a$(17) {owni=12:a$=a$(2)+a$(1):#1;1,15;a$(17):l=115:l:i: ,63486=is-16left:7080 ,61438=is-16down:7080 )61438=is-8up:7080 ,61438=is-4right:7080 849150=is-1select:n=27100 )64510=is-1giveup:quit f64510=is-2eng=(eng-1):23301[,eng:9984'+eng:a$:.05|L,40( 57342=is-4h=1:a$=("Stand: "eng)+("Scores: "eng):k=1players:a$=a$+p$(k,̯p$(k,11 ))+" "+(p$(k,12 ))+", ":k:a$=a$(̱a$-2)+" . " 949150=is-2size3label:c=2 X65022=is-2sound=(sound-1):23300[,sound:.05|L,40(  49150=is-16help @c=c+1:c=3a$=a$(2)+a$(1):c=0 7045-f-h done! rdm=t(pos2,3)=0   - left - 4erase:cx=cx-2 94cx -down- erase:cy=cy+2 4cy>topy+(s(size,3)-1)*2cy=topy  - up - erase:cy=cy-2 4cytopx+(s(size,2)-1)*2cx=topx j -player selects- $fndpos:t(pos,3)>128 n=1pos=pos1 erase:cy,cx;7;0;"";cy+1,cx;"":7603+n:px,py:0;cx*8+px,(21-cy)*8-4:k=1py:px,py:0;px,py:k 38,2,0,6,-3,-3 v9 ,6,-4,0,0,1,4,4,-1,1,-2,0,-1,-1  n=n+1 l(r)7620 n=1pos1=pos n=2pos2=pos  showcard   Cpos=(cy-topy)/2*s(size,2)+(cx-topx)/2+1: F -label- Kdk=1s(size,2):topy-1,topx+2*k-1;1;1;(k+64@):k Pdk=1s(size,3):topy+2*k-1,topx-1;1;1;(k+480):k U Z - help - _h=1:fndpos:t(pos,3)>128size=39936&+eng:b$:#1;1,15;b$:k=115:k: d9942&+eng:b$,t$,k$,a$:k=t(pos,2):a$=b$+("bereits "engk)+(t$k)+k$+("already "eng k)+(("this "eng)+("diese "eng)k=round)+(("previous "eng)+("vorige "eng)k=round-1k)+(a$k+1roundk) iLkk=t(pos,3):t$,b$:a$=a$+t$+(b$k=r)+(p$(k,̯p$(k,11 ))kr) na$=a$+"...": x -showcard- yz=n*7-7:setchars {sound2000 }17,z;"" 18,z;"ABCDE" 19,z;"FGHIJ" 20,z;"KLMNO" 21,z;"PQRST" #1;0,z;"UVWXY" #1;1,z;"" #(i-9 +(n-1)*5)  restore  c=2   -setchars- Xs=t(pos,1):s=s-128*(s>127):s=(s-1)*225+cards+200 hi=23