_6t6WISUITBANSCTTCARDTEMCRDCNBRABCDFBLINKUNSHUFBEFCOLBEFROWAFTCOLAFTROWCRDREMMARKBANBYTSMOVEPLACBTRUFALSMOVGRGRAPMARDMDFPPLASTCROCOFILLNCDSBOKEOLDKECOLCOLROWCODEECODEKROWABBAACSTACODECGRPROTEMCOCODELASTCODE@ @ @ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMN BAKER SOLITAIRE BY TOM CLINE(c)1988, ANTIC PUBLISHING8@.@@K:8 @036-3&@@$@%@&.6-?:6.4A23456789TJQKatjqkᒓD6._DECK OF UNSHUFFLED CARDS<J-@@R(68@:7<,,,-, JPOSITION OF A CARD IN CARD$F F:A6,"@rA PT #@!-@a%"3A6%7 TDLI FOR LOWER CASE LETTERSZ^^72,169,12,141,10,212,141,22,208,169,86,141,23,208,169,0,141,24,208,169,226,141,9,212,169d\\31,141,0,2,104,64,72,169,224,141,10,212,141,9,212,169,36,141,22,208,169,198,141,23,208n--169,148,141,24,208,169,0,141,0,2,104,64x +@AA$NUMBER OF SUITS) 6. 67@,.)67@,.P-@@"(@4-@@P(@enter   or y-@@1(@for the numberC-@@Z(@ of suitsl-@@y(@)@ A`!! @P)!@RA K6-&@H6-KST IS NUMBER OF EMPTY PARKING SPACES (GOLD STARS)DLI FOR L.CASE LETTERSU +@A@1A@6CA AUA@^6-@6-6@(6-46-@6-@L6-R6-X6-^6-F6-F:AY,$AYF6-F:@,%F:@,$AVM%6-F:A`,%AV$F:Aa,9%@A4M%@ A49A'A@9BBA''INIT & DISPLAY LC LETTERS & STARS 6-l"@%6. **** >6. P t T6. jklm wxyzl6. a b c d e f g h"("@(6.  ,-"@6-@-L.COL. OF FIELD6="@6-@'6-@=L.&R. COLS. OF TERM@@"@6-@'6-@@L.&R. COLS. OF PARKINGJk"@%6. *** =6. P tS6. jkl wxyk6. a b c d e f gT'"@'6. ^K"@6-@'6-@36-@?6-@K6-@hc"@#6. ** 96. P tM6. jk wxc6. a b c d e fr%"@%6. |K"@6-@'6-@36-@?6-@K6-@D(@(@*(@7(@D(@ SHUFFLE6-@$6-@6@66-P:$H:,,%@-6.7<,67<,.7<,)67<,.- DISPLAY CARDS-%@-%@-%@FF(@7+%@,$%%@<+%@,$%%@,    ?6-+,$+,?# OF CARDS IN FILLED ROWS (BEFORE BOTTOM ROW)-%@-%@(@7<,  && 6-&&# OF CARDS IN BOTTOM ROW0-%@:C  $68%@$,-@%CBR(COL) IS BOTTOM ROW OF COLD$ $68%@$,-@%N X AY TURN ON SCREENb 1ST KEYlC!6-?:6-J6-@T Aa6-6@k A " 6-8,"ROW OF CARD TO MOVE%A(,@ @ 1@CODEA IS ATASCII FOR CARD TO BE MOVED (FROM FIELD) APGET 2ND KEY W6-&@t%%@'6-WCOLUMN AND ROW OF CARD TO MOVE (FROM PARKING)* 14r/+@t*@w%&@,*"@B56-E6-&@t%Q6-@[ Ah6-6@r A >%A(,@H 2ND KEYR4F:Ad,"AU*@w4 AP\&)@6- A`&6-f<"AU6-@% A26-6@< A p"@' @ z#"@ A# AP\"@*%-%@@4(@t:6-F%@2R,@\ A N"@*"6-@-6-%@7 AD6-6@N AP6-@&xK @e)+!@w&* @,)!@&)+@s&*@s,W6-@a An6-6@x APC!"*+@e*@r&,-%@29,@C A K)"*+@t*@t%&@,5%@2A,@K A E+@t*@w%&@,*+@t*@w%&@,U6-&@t%a6-@k Ax6-6@ AP& A#&"6@A 6-6@ AP9/+@e*@r,*@e*@r9 A9/+@t*@w,*@e*@r9 A09/+@*@,*@e*@r9 AP;1+@e*@r,*+@t*@w,; A;1+@*@,*+@t*@w,; A@"6@A '6@6-6@' AP$MARKS POSITION.D6-%@!@)6-@DCAN MARK TEN PLACES ONLY8 68,-6-B$L+ 6--@((@P+$V 6-`-@(@j_%2A@@9-@A= _2t$~LOWER & INV TO UPPER CASEA(6-&A(0"F:A,"*!@06-&@2'A@d'A$PLOT ERRORS&@6-&6.>:%@2,8"@6-!6.8LINE BETWEEN LETTERS-@ -/"@/(@ @(@ .-@@  !-.(@"-@@   "$ FIELD TO FIELD6-@$+&@e,%18,(=$8,8,%@*8,@06-@: A=$2V 6-8,=+"@)"@&)"@9,*8,"%@I6-@S AV$<6-8,%@F -(@ P  ,Z+68,-8,&@+68,-8,%@d%@2,@nc8,"@ 6-%@c5 IS THE TOP ROW OF FIELD, BL IS NUMBER OF BLANK (EMPTY) COLUMNSx 8,"@ 6-&@ A@$FIELD TO PARKING6-&@t%6- 1Y 6-8,@"@)"@)"@')"@@)@BL6-@V AY$-6-&@-# OF EMPTY PARKING SPACES -(@   ,68,-8,&@%@2,@ 8,"@ 6-%@ A@$FIELD TO TERMINAL'6-&@%6-'1O 6-8,B+"@)"@)"@')"@@,*"@L ApO$"<#+8,8,&@,)"@/6-@9 A<$, Ap$6PARKING TO FIELD@6-@$+&@e,%J18,T=$8,8,%@*8,@06-@: A=$^V 6-8,=+"@)"@&)"@9,*8,"%@I6-@S AV$h6-8,%@r-(@*|  ,68,-8,%@%@2,@ 8,"@ 6-&@6-%@ A@$PARKING TO TERMINAL6-&@%6- 1:!8,8,&@)"@-6-@7 A:$ -(@*  ,%@2,@6-%@ A@$&RECORD OF MOVES0+%2A@@+6-:-67<,.>:,67<,.>:,-67<,.>:,D67<,.>:,67<,.>:,N=-@@ =2X, Ap-@,(@Pb@6-%@!A)6-A@CAN RECORD 300 MOVESl$vRESTORE PREVIOUS POSITION86-&@6-6-)-@8(@P26-@:7<,,6-@:7<,,2BR IS BEFORE ROW-6-@:7<,,6-@:7<,,-6-@:7<,,4@*@# A 04FIELD TO FIELD;%@*+"*+*,,16-@B; A!0/%+"*+*,,*@/ A";1+"*+*,,*+"*+*,,; A"p/%@*+"*+*,,/ A#N 8," A %68,-36-&@?-@N(@P$RESTORE FIELD TO FIELD -(@   ,+68,-8,%@+68,-8,&@ 1%@'@2*"@'6-&@ I@26-%@+6-%@16-; A 0IGROUP MOVES* 8,"@ 6-&@4 8,"@ 6-%@>$HRESTORE PARKING TO FIELDR  ,\  ,f68,-8,%@p 8,"@ 6-&@z6-%@$RESTORE FIELD TO PARKING -(@   ,68,-8,&@ 8,"@ 6-%@6-&@$!!RESTORE TERMINAL TO PARKINGC%@:78,&@<8,&@,,+,/5,C6-&@$RESTORE TERMINAL TO FIELDS98,"@)8,"@)8,"@')8,"@@C@I,S A#  +%@:78,&@<8,&@,,+, 468,-8,%@&8,"@46-&@  ,$ $. GROUP MOVE8 I% @6-@+6-%@?6-A&@2I AB $L L#@t*@t%&@36-&@t%?6-@I AL$V L#@*@%&@36-&@%?6-@I AL$` 6-@$+&@e,%j 18,t 6 A$6DETERMINES NUMBER OF CARDS TO BE MOVED~ @2 A&@ $"6@*"@2$ A' &"6@*@2*& A' $ # OF CARDS TO MOVE 6-@6-6- 1&@6- 98,"8,%@%6-%@+6-96-&@ D"@6-@!6-76-%A(&@2A AD$ @2* A$ @2$ :"@2*"1+1&@7@2:$ ?"@2*"@2%6-@26-6@< A?$ 2"@*"%6-@/ A2$ ##"@* %@A$ ++"@* @%@$A$ ++"@*"* @A$( EE++"@*"@,)+"@*",,* @A$2 OO++@*@,)+@*@,)@,* @A$<  6- A%@F GROUP MOVE FOR CODEB<>32P 1Z 08,8,%@#6-@- A0$d $"*%@!6-$$n $%"@*"@!6-$$x F=++"@*"@,)+"@*",,*@C6-F$ .%+"@*"@,*@+6-.$ F=++"@*"@,)+"@*",,*@C6-F$ .%+"@*"@,*@+6-.$ .%+"@*"@,*@+6-.$ .%+"@*"@,*@+6-.$ F=++@*@,)+@*,,*@C6-F$  6-6-@ A $ MOVES GROUP -&@ 4 -%(@ #6-8,46-8,%@ @:7&<&,,,%   %@2,@ &-%@@&(@t 68,-8,&68,-8,%" 8,"@ 6-%@, "@26-&@6  6-6- A@@  6-6-J $ Ng +@A@f1-@@E(@WINNERW-@@g(@IN*N=-@@+(@ MOVES=AdAU4NPAF:@ ,46-?:N F:Ad,"AUB HNDAdAU72:D @  D1:BAKER.BAS?