Lgame b Y32255}:1;" DO NOT STOP THE TAPE"," UNTIL 'Lgame 2' HAS LOADED",:"":"" "Lgame"0 ""Printout"32256~,300, FPrintout ,~w.![~#"[o<&)))K6\ >2[: [2 [: [2[> 2[~#"[2[:[= 2:[= :[G: [O: [ 2 [*[~2[: [G: [2 [*[ ~2[: [G: [2[: [Oͤ~:[<2[ :[<2[ :[0~@ :\G:\G:[o:[g>Xg:\w:[G@gxgxo:[Go!~xO F![F(// PaLgame 2 o1.i:vi:x-i:vi::s-ii,i:s-i,ii:s,x-ii:di Td$="________":ii:r=x+v+iii-i:c=oi:r,v*v*c-c;:e(r)"| | | |";:142 " | | | |"; mr,v*v*c-c;d$;:c:r:o:o:o,v+ii;25;:n=ix+vi:n,v+ii;" ";n,24;" ":n:n,v+ii;v*v;:vi ii;vi,i;"THE";v+ii,ii;"";x-ii,ii;"GAME";x-i,ii;"";i;x,v*v;"XOX";x+i,v*v;" XO";x+ii,v*v;"X O";iv,-z-iv;"C";v,-z-v;"oves";vi,-z-iv;"B" yd$="The squares are numbered 0-9,A-F":di:r=iiv:r$:c=iiv:iv*r-i,iv*c+v;r$(c);:c:r:"0123","4567","89AB","CDEF" Xx*x:cl:yp=176:di:d$=" The board ":di:r=iiv:c=iiv:b$(r,c)="1":sq:c:r 5yp-x:a=iiv:b$(a):a:"0331","1231","1231","1220" !d$=" Your L ":di:c$="2":sh d$=" My L ":di:c$="3":sh (d$="The black squares":di:c$="0":sh Od$="What level (from 1 to 3) ?":di:in-z:l=r$-480:i>ll>iiii,z:yp 1cl:d$="Want first move?": di:yn:yeser-x-x J:x*x:r=i:c=ii:b$(r,c)="1":sq:r=i+ii*(ii*):c=iv:b$(r,c)="3":sq Fl>ix*x:r=iv:b$(r,c)="1":sq:r=(iii*+ii):c=i:b$(r,c)="0":sq md$="Your move - enter new L position":di:d$="in order from one end of the L":yp=176:di:a=i:no=i 9in:h=i:sq:r(a)=r:c(a)=c:b$(r,c)="1"no=o:er-x-iv 8b$(r,c)"2"d$=" There's another piece there! ":er n(a)=n:a=ia=ii:er-x-vi n=n(a-i)i,z:er-x-vi \d=(n-n(a-i)):didivr(a)r(a-i)c(a)c(a-i)d$=" Always enter squares in order. ":er d(a-i)=d:a=iia=iii:er-x-vi 9n(a)=n(a-ii)d$=" You've already had that square.":er a=iiia=iv:er-x-vi :d(i)+d(iii)vd$=" Do you call that L-shaped?!! ":er /nod$="You must move to a new position!":er er+iii n=ia:r=r(n):c=c(n):sq:n: gi,z:1:di:0:d$=" Press any key to try again. ":yp=176:di:o:er-ii:200 :x*v:er-ii:r=iiv:c=iiv:b$(r,c)="2"b$(r,c)="1":sq c:r ,n=iiv:r=r(n):c=c(n):b$(r,c)="2":sq:n Typ=176:cl:d$=" Want to move a black square? ":di:yn:cl:no250 d$="From":o$="0":n$="1" d$=d$+" which square?":di 2in:h=i:sq:x*v:b$(r,c)o$i,z:sq:237 Kb$(r,c)=n$:sq:o$="0"d$=" To":n$=o$:o$="1":sr1=r:sc1=c:235 cl:sr0=r:sc0=c 3d$="My move...":di::c$="2":co:yes270 c$="3":co:no270 ad:ca:ma:w=oca:270 <yw=yw+i:d$=e$((iii*)+v):di:n=z-xi/v:.01z# =,n:n Td$=yw+" to you, "+mw+" to me. Play again?":yp=176:di:yn:yes145  8d$="Enter CONT when you feel better.":di::145 c$="2":ad:m=iii3106 6y=yj:n=o:r=iiv:c=iiv:w$(y,r,c)"3"278 a$(r,c)="3"n=n+i:278 a$(r,c)"1"294& c:r:n>iii294& "6r=iiv:c=iiv:w$(y,r,c)="0"a$(r,c)="0"300, %c:r &y:3106 ,ft=iv-t:t=ivt=o -8c$="3":fi:n=iiv:r=r(n):c=c(n):b$(r,c)="1":sq:n .0r=iiv:c=iiv:crc:b$(r1,c1)=w$(y,r,c):c:r /Em=iiio-i:c$=m:sh:m:y>x+vd$="Try that for size":di:er-x-x 1Hd$=e$((iii*)+i):di:n=iiii:iii/x,o:n:i,-iii:mw=mw+i:260 65a=ivi:y=iiv:r$=l$(a,y):in+v:r(y)=r:c(y)=c:y =St=oiii:f=oi:n=o:y=iiv:r=r(y):c=c(y):crc:b$(r1,c1)="3"n=n+i:321A ?b$(r1,c1)"1"323C @r=r1:c=c1:h=i:sq:sq Ay:na=0:c=iiv:r=iiv:b$(r,c)=c$a=a+i:r(a)=r:c(a)=c 9r:c: >3m=o:r=iiiii:c=iiiii:m=m+(b$(r,c)=c$):c:r: C5r=iiv:c=iiv:a$(r,c)="2"a$(r,c)="3":837E Da$(r,c)="3"a$(r,c)="2" Ec:r: Hr1=r:c1=c:t=ocrc+v It=iicrc+iii Jr1=c:c1=r:t=iiicrc+iv Kr1=v-r1:t=icrc+v L c1=v-c1 M fc1=v-c1 N RIt=oiii:f=oi:b=iiv:r=r(b):c=c(b):crc:w$(y,r1,c1)"2"853U Tb: Uf:t: \My=yj:r=14:c=14:a$(r,c)w$(y,r,c)w=o:ma+iii ^ c:r:w=i: _y: f$fi:mi:y=i:j=x+ii:my=j+i:j=y gmiij=j+i i#co:noy=j+i:j=y+ii:lCrHR\f72231213123310101223121312331011022312131233001112201231123330111220123112333101122012331231013112201233023111311220123112310133122012310231113312201233323111011223121312033011122012011233313112311233322011011220112310231133122311231023310112233123102311011020112312231133102331231223110110231123122331011x n159A95121598951004898401DLgame  1982 Brian Hebbes