DWB 3 B8.MASTER64K P 4362 PICT.MASTER64K P 2826 PICT.HELP64K P 10140 p p 9999p% p 4105,1?p R(X)(((TI255))X)1pp C$(6),C(6),G(99,4),AN(4),CL(4),GP(4),TG(4)pC$"RGBYWPH_": 8,4,2,13,15,10p I 1 6:C$(I)(C$,I,1): C(I): Ip$ 24,56,88,120p. I 1 4: GP(I): Ip8@:,1qB@M,1qG@3,0,0,0,0,0,0,01qL@K,6:@,0,4,0:@L,0cqV@,254,22,96,1,2,2,"ETUP IN PROGRESS FOR"q`@,254,6,104,1,2,2,"ASTERMIND 128 - 64 V1.0"qj@,254,20,112,1,2,2,"LEASE EXCUSE THE DELAY."qt@K,5,6r~@J,5,8,0,"PICT.HELP64K",0,0r@K,4,63r@J,4,8,0,"PICT.MASTER64K",0,0Lr@,288,8,336,160,1drPS0:G0:CS0:K$""rr@,15,0,0|r@L,0r@,1,1,0,334,158,0,0,0,1r@,254,32,8,1,1,2," "r@r:r 2130rGX328:GP0: 2080s TX4 2560 s  PS4sGG1@s 1360: 1750: TX5 1330: 1820Ks( 2080Qs2cs3 TX5 1190ss7TX4: 2190~s< 1190sF:sP ** BUILD CODE GRIDS **sZ ** GX & GY DENOTE GRID POSITION **sd@,0,14,0sn@,GX,GY,192,24,0sx@L,0t@,2,1,0,189,22,0,0,0,1%t I 0 3Ot@,(I48)16,8,0,(I48)23,15,0,0,0,1Wt I`t@}tG$(G):G$(G$,(G$)1)t GX328 1530t@,254,38(1(G$)),GY8,1,1,2,""(G)t@,GX208,GY,64,24,0t@,0,13,0t@L,0 u@,2,1,0,61,22,0,0,0,1&u@2,31,1,0,31,22,0,1/u@5u;u:Xu ** CHOOSE PEG COLOR **wu" ** PG DENOTES PEG 1-4 **u,K$"":C0u6 K$(13)u@ K$uJ@,GX16(PG48),GY8,8,8,0uTK(C$,K$)u^ K0 1700vh K7 CC(K):CNK: 1690#vr K7 CNCN1: CN6 CN1Ev| K8 CNCN1: CN1 CN6dv K9 @: 2560: 1700v K10 2700:I3:PS4:TX5:vCC(CN)v@L,0,C,0vv C0 1580v@vv:v ** TAKE A GUESS ***v I 0 3 wPGI:TX1: 2190!w 1560:G(G,PG)C)w I/w5w:Pw ** EVALUATE GUESS **cw&PS0:CL0:CS0w0 I 0 3: TG(I)G(G,I): Iw: I 0 3wD G(G,I)AN(I) PSPS1wN I:CSPSwX I 0 3wbJ0wl J3xv AN(I)TG(J) TG(J)0:CSCS1:xJJ1x x I+x 19801x7x:Yx ** POST RESULTS OF GUESS **zx@,0,0,640,176,0:@,0,13,0xPS$((PS),1):CS$((CS),1)x@,254,68,GY8,1,2,2,""PS$x@,254,72,GY8,1,2,2,""CS$y PS0 CS0 TX3: 2190y PS3 TX2: 2190;y PS2 CS0 TX2: 2190Ay Gy:jy  ** BOARD POSITION OF GRID **y*GPGP1: GP4 GP1y4GYGP(GP)y>yH:yR ** CREATE RANDOM SOLUTION **y\ I 0 3yfAN(I)C(R(6))yp Iyzy:z ** REQUEST TEXT **)z@,16,72,240,48,1Mz TX 2240,2300,2380,2460,2541Vz@\zzz@,2,13,0:@L,0:CQ$""z@,254,1,8,1,1,2,CQ$"SE CURSOR KEYS OR THE FIRST"z@,254,1,16,1,1,2,CQ$"LETTER OF YOUR COLOR CHOICE"{@,254,1,24,1,1,2,CQ$"TO SELECT THE COLOR FOR"[{@,254,1,32,1,1,2,CQ$"PEG"(PG1)" AND PRESS RETURN."a{{@,14,13,0:@L,0:CQ$""{ "T1CCCB"{ @,254,1,8,1,1,2,CQ$"OT BAD HOTSHOT..."{ @,254,1,16,1,1,2,CQ$"OU ARE GETTING CLOSE!" |$ @,254,1,24,1,1,2,CQ$"MAYBE NEXT TIME YOU"O|. @,254,1,32,1,1,2,CQ$"WILL GET IT RIGHT."X|8 3^|B ||L @,13,2,0:@L,0:CQ$""|V 1,1000,10|` @,254,1,8,1,1,2,CQ$"OUBLE OOSE GGS!"|j @,254,1,16,1,1,2,CQ$"EEZ... HAD HIGH HOPES FOR"&}t @,254,1,24,1,1,2,CQ$"YOU, BUT NOW 'M HAVING"S}~ @,254,1,32,1,1,2,CQ$"SECOND THOUGHTS!"\} 3b} } @,10,13,0:@L,0:CQ$""}  "T7CAABCAABCF"} @,254,1,8,1,1,2,CQ$"ONGRATULATIONS !!!"~ @,254,1,16,1,1,2,CQ$"OU SOLVED THE PUZZLE IN"(G)3~ @,254,1,24,1,1,2,CQ$"TURNS!! RESS ANY KEY."d~ @,254,1,32,1,1,2,CQ$"( PLAYS AGAIN)"n~ K$~ K$(13) @8: 4105,5:~ ~ @,12,13,0:@L,0:"T4EBBA":CQ$""~ @,254,1,8,1,1,2,CQ$"ICTURED BELOW IS THE"# @,254,1,16,1,1,2,CQ$"SOLUTION TO THE CODE. "N @,254,1,24,1,1,2,CQ$"RESS ANY KEY." @,254,1,32,1,1,2,CQ$"(RESS TO PLAY AGAIN)" 2520 : **DISPLAY HELP** @K,5 K$ @K,4( 2 : ** RESIGN GAME ** I 0 3:G(0,I)AN(I): I. @,4,16,128,264,48,6,0,0V @,16,128,264,48,0:@L,0,4,0:@n GX40:GY128: 1360~ PG 0 3 @,GX16(PG48),GY8,8,8,0 CG(0,PG) @L,0,C,0ŀ @΀ PG TX5: 2190:@,6,0,0,264,48,4,16,128 '@8:BRUSP<|<<|<0|<|<|f<|~fff00fffx0ffffff>f>f0>0fff00f~f>`fffff|6f6fff06f`|f|ff`ff>>>`>`<`<<>````` 0`<<<` 60`fff |<<|>><|<8ffffffwfxff0ff`fwwf < ff>`ff>~0f`0f~`ffff`~0f fff`f>fk`0f`6f`ffkkfff```f |<>`>>c>0<`f><<`>~~<|ttf `F`<>`<|ff6fx`ffxff6<<<0;lx<!||~<<<<<" @BBB"BB@<\B\:\|(BBA\@|<>(B@BbBbFb><Ib@B@ <@BbF@FBBIB@~<0B"B\:@:BBIB"@@B<@@B >8<6B <|>~<@<<| B |B<\v>><\:\8\|<:<\ ! |BbI@@BbFbbBF|Bb @~@I<<BBF@|\\B|<\B\B B8@HB"@BBZB@B@BR(F|BbB"BIb"@bbBBbBbB 1B1c8|$p$"@|~Z$x|<BJZ@BB@"BI<B"<@BBBBBBF @8B~H$"@HBB$@HBFb@FbB$BIDB$@bFBB$B: `8BD$"DBB@DB$BB@:\<x<<bCOLRLMMMGMGM@MM@M@M@MMMMMHMMMMMM@M@M@M@M@M@M@MM@MBRUSP @<<~><<"@BBB"BB@<\B\:\|(BBA\@|<>(B@BbBbFb><Ib@B@ <@BbF@FBBIB@~<0B"B\:@:BBIB"@@B<@@B >8<6B <|>~<@<< <  ?< <<??3 ???<<3<<< <0?3<<? <3  ~#f><><~<<4>n<>><>>nb>><[`f;8vf<~0ff |<>|>~f|<|f|`>fff`|b<f|ffffff0`~ |<[fk`0ff0f0f`f0lf0`ffff`lbf0ffffff0`0KfB`0ffaBf>f`f0Bf~f>bffffbfbBf>ff~~ff0caB;| ~||0|0|||88Ln<|<<>w<~<~>~><<<4<<><b<|<<hf5;fvffff;fvf;v8fffff``fbf0ff;fff;f 4fffbfL|~fff>0f>fffff0fmf`0>ffffff<|ff0`ff0`ff~fff>b~l`fC0fffffff0fvf`0ffffffff4`f0ff0`ff0`ff`ffff4`Lf`~fff0ffff~ff0f6fb0fff~fffBBf8`f0ff0bff0bff`ffff8`7<<;x;;;<;x<"><4w<~|>|~<>|<<><<~<f<>w<<f<b<<fw<`8bfff;`0;ff8ffff,`fvfffff;ffvfff4ffff;vfL<<`ff0<|0fmf`ff`fff<~f>~f|~f0~~f|f~~fm|f0f~L8`ff000fvf`ff`fff`ff`fl`f0``fff``fv`f0f`WBLbff0B00f6fbffbfffB`ff`~f`f0``fff``f6`f0v`|~<3x|xx<"~< <<<<|<;<<<;~x<<<;<<";xl<<0|000008I<>|~<b<>|<<><~|<><><|<w<~~<>~<><><|<~|fff~ff`fff<~f~<~`ff0<mf~ff0ff~ffff~|<4w>~<~~<|<><>w<>~|w<>|~|<><fv8vfff08;`ff;f0fff;fff;fff8fff;`f;f8vff;ffffff;`fff|f~|0<~~0f|fff0`ff0`ff`~f0<`0ff|f0ff|ff~`ff0<fff0f`00``0f0fff0`ff0`ff``f0`0ff0f0ff0ff``ff0~vf>f`00B``0f0~ff0bff0bffb`f0Bb0ff>f0ff>ff`bff0B! l~f <x~x| << <>w><>w<>>>w<~wb<|<><>8ffffvffvff;`f;hff`vfv;f``8vf;ff;v4ff;fff;fff8ff`8mff~ff ffmf`f0fff0~<<f|0~f0fff0`ff0`ff`~<mvff`ffffvf`f0f0l`fffff0`f00`f0fff0`ff0`ff``v6ff`fv0ff6fbf0Bf0f`~Bfffv0`BBf>0`f0fTff0bff0bffb`B6"~ <;l`;<"<;x|<~<|<<~|<w>|~>><<4<<vvf;fvfff8fffff;ffvff;8ff`8fff0fff;fv8f;Bvfffff>ff~>0fff~mf~|>~ff>0ffff~0|f<f~f|fff0fff0Bf`~ffffff`f0fff`vf`0f`fff0ffff`00ff`f0fff0fff0Bf``ffffvv`f0fff`6f`>f`fff0ffff`0>fBf`f0~ff0ifff0ffb`~ff;ll<;x< <"~ <f;<<;x;< <x~f |~;<|<><4<|<><>|<<<<~<><><>~~|<><><<>fbffff`fv0ff;fff;`fff;fff8ff`8fffbffff8v`fffvff>b~`ff<~f|ff0`ff0<fff0`ff`~<mf~~b>f>~f>|>f<f~`ff~>ffff4``ff`f0ff0`ff0fff0`ff``vf``4fff`ff0fff``ff`fffff8`bffB`f0ff0bff0B~ff0bffb`B6f``8fff`ff>ffBf`bff`fff;< <<|<x<;x<;x|<;x<<~<<|"~<<<<;<;; <;;f;~| <<<;<;;|| 8088c>><>><>~<~>>|<4w>~fff;`f``0f;08f;f 8ff;fvf;ff`fvff;8f`ff;f`ff08;`fff0f0~ mf~0~ff0~f><mfff~0`<`f0~<f~|0<fff0f```0f00ff0` vf`0`ff0`ffvfff`0``f0`f`00~ff0Bfbb`BBf00ff0`6f`0`vf0`ffB6fff`0bBbf0`Bf`00B<;x|;<<<|| f 8Y>>||<>ffbf4~<>>><~<>~|<~|<<|<<`ff;ffJffpf0f;vf`88fv`ff;f8vf8ff`ffvfff;f0fff;`ffffbf<`f0~fL~f|<|f0ff<ff<`f0~ff`>~<f~fff~0f|`ff0<ffff>b~`f0`fL`f`0f0ffff`f0`ff`f`f`fff`0f0`ff0fffff4`Bbf0`f`f`F0f0vfBffBbf0`ffbf`Bf`fff`0f0bff0B~ffff8`|<f8L~~|<w>~<>~<>~|~|<><><|<fcbf>><||<>><~<>|<~<>~><<|<<>|<><~|<~~<ffm>ff`f00~``ff0<ffff>b~`ff<~ff>>0~fffK`f0`ff`f`ffvfff`f00```ff0fffff4``ff`ffff0`fffKBbf0`ffbf`Bff6ff~bf00`bbff0B~ffff8`bffB`ffff0`fff%|<~><=<><d<<~>~|<~><~<|<>><~<>~|ff8;ff;;ff`fvffhffv8v8vfffff;`fffffv8fff8f8vf~0`f00~`<~ff~f`~x~~fffff>`ff0<>ff~fff`>~fmfff`0`f00```ff`f``l``ffffff`ff0fff`fff`f`fvfff`0bf00`bB`ff`fb`f``vfZffffbff0Bf~f`ffvbf`f6ff <~x<;<<<<<><<<>`>nfff fff`ffhf~`ff~fff`f`|f``ff`fffbf`lf`bff`fffffbf <<<;<~<<;;<B @@ @@ @D@@@@@JH<<\v<\\8B<:<|8\8\<vBv<|\<\JpBBbIB|bBIbBbFB@bBBFBbbBBbFbbBIBbF@B|IBIBbBbJH~~bI~@BIB<<$@$@@"BB3$:<|8\<8 <\$>B\><\\<\(B2FBbBBb@Bb@BbbBbBIBIb@B@ <1F~<@~<BB~<<8@@4@???0 0 ? 0 0 0 ?4@0 0 00 0 0< 000 0 0< < 0 04@0 0 0000 3 00 0 00 3 3 0 04@????0??0 00 000 ?4@000 0 0<000 00 0<0<0 04@00000 0 0 0 000 0 00 0 0 04@00 ?0 0 0 ?0 0 ?@@@;><<||<~<|BB~~<<~<<~@".BBB$" B@BBfb@@B B@BB@@A\@|<>(BBB">B<(x>B\><\\|<\Ib@B@ <|B~<@|<~8<@||:<~8@|:\|<@@