Д*NAME MAXITшЇ   MAXIT  FROM PET*ЄЇ   ADAPTED TO IPM PC BY PATRICK LEABO+№Ї   3-20-82              TUCSON ARIZONA.¤Ї    M100 version 6/1/88.1 by Jay Holovacs*■Ї    Z88 VERSION -- PHIL WHEELER 12/88Ї
L▌и A-Z
Vф НT\L[▐ BD(7,7),AV(64),NT(7)`у N= 0 ╕ 7:є NT(N):эj▄ 49,51,53,54,56,58,60,61&~A=0:Є_BOLD:█:ё "THE GAME OF MAXIT",Иё "Do you want instructions? ";:ф НtxK:ё Тч KS$="Y" Д KS$="y" М ф НtbH"Ь█:ё "1 or 2 players? ";:ф НtxKжё KS$:NP=╗(KS$):ё ░ч NP=1 М НdXD║ч NP<>2 М Нt\D,─ш "What is your name #1";P1$:P1$=└P1$,6)6╬ё :ш "What is your name #2";P2$:P2$=└P2$,6):х НdbD7╪P2$= "Z88":ш "What is your name ";P1$:ё:P1$=└P1$,6)т█:ф НTxI
ьф НT\LЎу K=1 ╕ 64:AV(K)= K:э  у K=64 ╕ 1 И -1:є PC
P1=1+и(K*│(1))J=AV(P1)-1)ч P1<K М у I=P1 ╕ K-1:AV(I)=AV(I+1):э(I=J Б 8:J=J-8*I2BD(I,J)=PC:ф НTDF:NT=JX<э K:ё К28,6)"TURN";:ў НDFE:NT=7:ф Нt|G:ф Нt|G:ф Нt|G:ё К25,7)╜(1)"+";"C to Restart";F▄ 15,10,9,9,8,8,7,7,7,6,6,6P▄ 5,5,5,5,4,4,4,4,3,3,3,3,3Z▄ 2,2,2,2,2,2,1,1,1,1,1 d▄ 0,0,0,0,0,0,-1,-1,-1,-1,-1n▄ -2,-2,-2,-2,-3,-3,-3x▄ -4,-4,-4,-5,-5,-6,-6В▄ -7,-9,100МS1=0:S2=0:ф НdPGЦЇ  PLAYER 1аPL=1:ф НD^F:ч FL=0 М Нt~EкЇ  PLAYER 2┤PL=2:ф НD^F:ч FL<>0 М НtVE;╛ё К0,7)─39," ");:ё К0,7);:ю 2+┤(S2-S1) ф НdfE,НdpE,НdzED╚ё К0,7)─39," ");:ё К0,7)"Do you want to play again? ";:C$=╛:ё C$╥ч "Y"=C$ Д "y"=C$ М НdbD
▄Є_BOLDс█:р.цё К0,0)P1$;" won by ";├(S1-S2);" points":°/Ёё К0,0)"It's a tie !!                   ":°/·ё К0,0)P2$;" won by ";├(S2-S1);" points ":°9Ї  DRAW BOARD POSITION I,J IN MODE MD (1=RED,2=BLACK)PC=BD(I,J)LC=I*40+J*3.6ч PC=100 М ё КJ*3,I)"**";:C1=I:C2=J:х НDTF%@ч PC=-100 М ё КJ*3,I)"  ";:х НDTFJё КJ*3,I)┬"  "+├(PC),2);Tё КJ*3+1,I);:°^ч PL=2 М НtFF'hFL= 600:у J=0 ╕ 7:FL=FL+BD(C1,J):э rч FL=0 М ° |NM$=P1$:DX=1:DY=0:ф НtdF:° &ЖFL=600:у I=0 ╕ 7:FL=FL+BD(I,C2):э Рч FL=0 М ° ЪNM$=P2$:DX=0:DY=1:ф НtdF:°дY=C1:X=C2:FX=1оч NP=2 Д PL=1 М НdBFD╕ё:ф НtrG:Є_REV:ё К28,5)└NM$+"'s       ",11);:Є_REV:ф НTLH:х НDXG┬ф НtrG:ю FX х НdLF,НdVF=╠ё:ф НtrG:Є_REV:ё К28,5)└NM$+"'s       ",11);:Є_REV:х Нd`F╓ё "                    ":ё
рф Нt|GъI=Y:J=X:ф НTDF:C$=╛яч C$=╜(3) М НdHEЇч C$<>" "М НDDG■OX=X:OY=YY=Y+DY:ч Y>7 М Y=0X=X+DX:ч X>7 М X=0!PT=BD(Y,X):ч Ф(PT)=100 М НTHG&MD=1:I=OY:J=OX:ф НTDF0MD=2:I=Y:J=X:ф НTDF
:х НdjFDч C$<>╜(13)М НdjFNч Ф(BD(Y,X))=100 М НdjFXЇ SCORE ITbЇ8lч NP=1 А PL=2 М MD=2:I=Y :J=X:ф НTDF:у DL=1 ╕ 1500:э&qMD=1:I=C1:J=C2:BD(I,J)=-100:ф НTDF)vI=Y:J=X:PT=BD(I,J):BD(I,J)=100:ф НTDFАч PL=1 М S1=S1+PTКч PL=2 М S2=S2+PT
Фф НtrG"Юё К28,4)"LAST: "К36,4);PT;" ";иф НdPG:° ▓°╝Є_BEEP:°>╨ё К28,2)P1$;": "К36,2)├(S1):ё К28,3)P2$;": "К36,3);├(S2):°фЇ  SCREEN INSTRUCTIONS°$Ї      COMPUTER PLAYER ALGORITHM<MT=-100:GG=-1:у A1=0 ╕ 7:PC=BD(A1,C2):ч Ф(PC)=100 М НtXHMX=-100:у A2=0 ╕ 7; ч A2<>C2 М PK=BD(A1,A2):ч PK<>-100 А PK>MX М MX=PK:SV=A*э A24ч MX<>-100 М НDHH >ч PC>MT М MT=PC:GG=A1:х НtXHHч GG<0 М GG=A14Rу A2=0 ╕ 7:PQ=BD(A2,SV):ч PQ=-100 Д A2=A1 М НtNH2\MY=-100:у A3=0 ╕ 7:PW=BD(A2,A3):ч A3=SV М НDpH fч Ф(PW)<>100 А PW>MY М MY=PWpэ A3zч MY=-100 М MY=0(ДDT=PC-MX+PQ-MY:ч DT>MT М MT=DT:GG=A1Оэ A2Шэ A1:Y=GG:° (в█:ё К15,0)╜(1)"U";"M A X I T"╜(1)"U"Бмё "The object of Maxit is to score as many":ё "points as possible between two players":ё"or one player against the computer."В╘ё "You get    nts by using th   pace bar":ё"to move the cursor along the row or":ё"column marked ** and hitting RETURN":R$=╛:█лшё"Remember however that on the next move,":ё"your opponent gets to select from the":ё"row/column that the marker is placed in,":ё" SO YOU MUST PLAN AHEAD CAREFULLY..."Hэё"Player 1 moves Horizontally, player 2":ё"moves Vertically":R$=╛:° *8	ё К28,0)╜(1)"U";"M A X I T";╜(1)"U":° ╕KS$=╛:KS=Ч(KS$):°$у NN=0 ╕ ╗(┬С$,2)):NNN%=│(1):э:°а▌Є_BEEPкё ╜(7);┤с▌Є_BOLDё ╜(1)"B";с
h▌Є_REVrё ╜(1)"R";|с 