{|¼ , BOARD¨B¤C¤HPOS¨SIZE¨WHITE¨BLACK¨ARROW¤ÁPLM²PIECÅØÙPAGE¶VERÔOLÄÍHOÒP°ÔP0HÉP0LÏP±P²CHËÂÃX³Y³X´Y´TURÎPIECE±X±Y±X²Y²PIECE²CØXM¤A æëAðAA, An °À B‰ @ @ @ A6@S@A B”$@ATB•RB–€A2@@@@@@ !"#$%&@'¶x### Tele-Chess ###›Chessboard & players by›THOMAS MCNAMEE - 7/19/82›%%850 link by Pete Goodeve 83:3:3›!!"UPDATES BY AdL (05/22/86)"›  # DD€9@<@,;@,‚;@,ƒ9@,„9@,&&…9@,†9@,‡;@,##@@E: +@0@( Ap(POKE IN P/M MOVE ROUTINE›(6ˆ-F:A,&@2BByˆ76‰-ˆ$AV<'AR@'@w=)-@@) @wait a>+-@@+ @moment..F A@P%%*** PLOT ONE BOARD POSITION ***›Z6Š-P:O:€8‹<Œ,,,d 6. 6‚. n2€8‹<Œ,! 6.>:†8Š,,26‚.>:†8,,x2€8‹<Œ,  6.>:…8Š,,26‚.>:…8,,‚.!-‹%@Œ$@%@. @–.!-‹%@Œ$@%@. @‚ $ª!!** DRAW BOARD SUBROUTINE **›´+‹-@+Œ-@¾ @È  Œ ‹Ò$Ü** DRAW CURSOR ***›æ44- ERASE CURSOR AT OLD, DRAW NEW CURSOR AT VERT›ð6ˆ-?:<Ž<,$"*** MOVE UP ***›, 6-Ž6)6Ž-Ž&@Ž @!)6Ž-@…@6ˆ-?:A6<Ž<,J"@A@T"@A^$h*** MOVE DOWN ***›r 6-Ž|)6Ž-Ž%@Ž!@…)6Ž-@!†6ˆ-?:<Ž<,ˆ"@A@Š"@ A$®*** MOVE RIGHT ***›¸6‘-‘%@‘!AR6‘-@–̃8,‘Ö$à*** MOVE LEFT ***›ê6‘-‘&@ô‘ @–6‘-ARþƒ8,‘$*** SET UP CHESSBOARD ***›6’-‰%A)“-A„%’%“) “&$6”-P:’'AV,$6•-’&”$AV0A•A”:6–-‰%A@6—-‰%AhX“-@b%6ƒ8“,-B2H%“%6„8“,-B2V%“l „8“,@ SINGLE SIZE›v “€AY@FŠB2w@”A@tCURSOR›žAAFBOARD›¨AAF²A@(¼%0@%BLACK›Æ%0@@%WHITE›Ú** SET UP CURSOR **›ß6-A6ä6Ž-@Sî6‘-A ø„8,ƒ8,‘ 6ˆ-?:<Ž<,::- PLAYERS 1 AND 2 ARE THE CHESSBOARD, 4 SQUARES EACH› ƒ8@,@–*ƒ8@,A(40A#@0PLAYFIELDS HAVE PRIORITY›>6ˆ-@QH“-@ @v@R‹-@\ –%“%‹ˆf —%“%‹ˆp ‹z%ˆ"@Q6ˆ-A% A „ˆ"A6ˆ-@QŽ ““!!*** LOAD CHARACTER DATA ***›˜“-@¢%6…8“,-@5%“%6†8“,-@%“¬ “¶S6†8@,-@:ó,+6†8@,-@:â,?6†8@ ,-@:ç,S6†8@,-@:ð,À36‡7@,.>:@`,36‡7@,.>:@E,Ê36‡7@,.>:@,36‡7@,.>:@0,Ï.6‡7@<@,. .2 BLANK SPACES›Ô$$*** REDEFINE CHARACTER SET ***›Þ==- CHARACTER SET WILL OCCUPY FIRST 512 BYTES OF P/M AREA›èAVP:‰'AV,í #A@ò2-@2 @íåîõ>:AX,üM-( @BLACK:-@M @white*“-A*RELOCATE OLD SET›‰%“F:BsD%“, “$“-@$@r@.6˜-8‹-@B"ˆ‰%“%‹ˆL 6˜-˜%ˆV ‹`-"ˆ ˆ˜* INCORRECT DATA STATEMENT-&j “o“-@"ˆ™šq3‰%A@%“ˆ#‰%A%“™3‰%A$%“šs “t&&126,126,60,60,60,126,126,255,939›~0,0,0,0,0,0,24,24,48›ˆ!!0,0,0,90,126,126,126,90,558›’%%0,56,124,118,126,120,56,126,726›œ""0,0,24,60,126,126,126,60,522›¦$$24,60,126,126,126,60,24,24,570›°##24,24,24,126,126,24,24,60,432›º120,0,30,60,0,60,30,0,120›Ä""255,255,255,30,0,120,60,0,60›É120,0,30,0,0,0›Î22*** LOAD BOARD ARRAY WITH INITIAL VALUES ***›.“-@.6€8“<@,-= 6€8<@,-@=6€8@<@,-@ = 6€8@<@,-@ =6€8@<@,-@ AE set up comm link›9 >:A%, 9 ! ** SETTING UP FOR NEW GAME **+‹-@+Œ-@("6€8‹<Œ,-"CLEAR BOARD›2  Œ ‹< #AF“-@P6€8“<@,-6@Z6€8“<@,-@d"™6ˆ-&™n%6€8“<,-ˆ%6€8“<@,-™x “‚2,3,4,5,6,4,3,2›Œ A€–(“-@@(ERASE CAPTURES› 2-@“! @ 24 BLANK SPACES›ª!-@“! @ ´ “¾B6›-@6œ-@BINITIAL PRINT POSITIONS FOR CAPTURES›È6-@6ž-@Ò6Ÿ-@Ü  ÓET UP MODEæ ÂEGIN NEW GAMEð  ÇAME MODEú!! ÐASS TURN TO NEXT PLAYER A !!***MAKE MOVE SUBROUTINE ***›6-R:,"T:,"$'"@$,-#"@)"@)"@- A6-#"@)"@ )"@- Ap@"@ AJ"@ A@|$†&&*** CALCULATE BOARD POSITION ***›66‹-+‘&@–,'@66Œ-P:+Ž&@!,'@,š6Š-€8‹<Œ,¤$®*** MOVE ROUTINE ***›¸@-@"Ÿ"6@@ @‡7@<@,Â-Ÿ"@- @‡7@<@,ÌA@tÖ% A1%GET MOVE maybe remote›ô$$*** CHECK FOR MENU COMMAND ***›þ"Š @A "NOT MENU›AA//Š&@A0AA A P A & A0make move›DŠ"@ A NŠ!@A0X*6Š-Š%@Š!@*6Š-6@b6€8‹<Œ,-Šg AAl @v A0€N:Š,ŸA ŠA@”* 6 -Š6¡-‹6¢-Œ*SAVE OLD POSITIONS›ž T:,"AP¨ A0Æ 6£-‹6¤-Œ6¥-ŠÐ¡"‹*¢"ŒA ÚN:¥,"N: ,A ß# A@#send move down link›ä*6€8¡<¢,-6‹-¡ 6Œ-¢* @î €8£<¤, A €ø$6€8£<¤,- 6‹-£6Œ-¤$ @&Ÿ"@6Ÿ-6@& A  6Ÿ-@ A *** CAPTURE ROUTINE ***› SOUND HERE›*€8£<¤,!A!@4 -ž @>:…8O:¥,,,>*-ž%@* @>:…8,,H76-%@!@)6-@76ž-ž%@R$\ -›œ @>:†8¥,,f*-›œ%@* @>:†8,,p76›-›%@›!@)6›-@76œ-œ%@z$¸ A` T:,A0Ì (T:,A0 Ö  A€$ A`& (T:,A0 0 F:Ad,AUA4: -@¦-F:AG,"A1D #)@¦#¦"@:%,A5N @§X ( (§v A1H ;((SEND: @§1(@ ý§; A1¬ @“¡¢£¤ ¶ “"A6» 'À  "€8¡<¢,A5PÅ 6Ÿ-“Ê 2((@*DOESN'T MATCH MY BOARD2 A Þ (@OKè 6¥-€8£<¤, A  6‹-¡6Œ-¢6€8‹<Œ,-  @$ A1 22(@%Ÿ,¡,¢,£,¤, ª@§´ §4OK$¹*§7@<@,4  (§* A@¾(( PROBLEM: §È' A ..(@%0,‹,Œ,‹,Œ,Š$”§;A ,ž##@@R1¨++@@@R1î$D&N*** P/M MOVE ROUTINE ***›X #A€b“-A6A6%@'l "ˆ “ˆv 6˜-˜%ˆ€ “Š-"ˆ ˆ˜*(INCORRECT DATA STATEMENT-&”$IRR** NOTE: Each DATA item in lines 8010-8070 must be preceded by one space. **›J**104, 104, 104, 168, 162, 6, 169, 255›^,,145, 204, 200, 202, 208, 250, 104, 104›r((168, 162, 6, 169, 0, 145, 204, 200›†202, 208, 250, 96, 4299›€D:TELECHES.BA2