#è¤ ****************************#ò¤ * *#ü¤ * MASTERMIND V 008 *#¤ * *#¤ ****************************¤ By Nigel Deakin$¤ MASTMIND.¤ Version date 14/6/84*8¤ copyright (c) 1984 Tatung (UK) Ltd.B¤0Lÿ”:Á4: K~0 r 15:ÿ•K," ":› K:¤ START LINE 1=V“ Z s ‚:§ 1000:Z~u1: ‚:§ 1000: à ‘ 1210:¤ START LINE 2`ÿƒ1:ÿ15,6:ÿ‚15,6.jC~4:C$~"4":N~6:N$~"6":¤ GAME START VALUESt 1660:¤ ** INSTRUCTIONS#~“ VAR s 1830:¤ ** VARIATIONSˆ 1220:¤ ** PLAY GAME’ 1580:¤ ** GAME RESULTœ¤ ** GAME END4¦“ OPT~86 s 1830:‘ 1160:¤ VARIATIONS THEN PLAY(°“ OPT~89 s ‘ 1160:¤ PLAY GAME AGAIN%º“ Z s 320: ÿ”:ÿƒ4::¤ EXIT LINEĤ ** PLAY GAMEÎ 1930:¤ * SCREEN SET UP+Ø¢@5,10;" I have thought of a code. ";â A~1 r 1500:›A-ì¢@2,10;" ";lö¢@31,2;"GOES LEFT";@34,3;NtC;@31,6;C$;" COLUMNS",@31,8;N$;" NUMBERS";@31,11;"'O'=HIT";@31,13;"'X'=MISS"+¢@31,17;"Press DEL";@31,18;"for retry" ¤*HIDDEN CODE.I$~"": A~1 r C:B~Õ(N)t1:I$~I$tÇ(Bt48):›A ¢@7,21;" Enter your guess."( GO~1 r NtC: 2H$~I$<¢@4,GOt2;GO,F¤ * GUESS CODEPG$~"": A~1 r CWZA$~ä$:“A$}"0" z A$~N$ s 1380: “ A$~Ç(25)s ¢@9,GOt2;o20):¢@10,GOt2,:‘ 1360: 1370d¢A$;:G$~G$tA$:›An¤*HITS CHECKxH~0: A~1 r CW‚“ Ş(H$,A,1)~Ş(G$,A,1)s G$~İ(G$,Au1)t"A"tß(G$,CuA):H~Ht1:H$~İ(H$,Au1)t"B"tß(H$,CuA)Œ›A–¤*MISS CHECK M~0: A~1 r Cª B~1 r CB´“ Ş(H$,A,1)~Ş(G$,B,1)s G$~İ(G$,Bu1)t"C"tß(G$,CuB):M~Mt1:‘1480¾› BÈ›A Ò¤*RESULTÜ¢,&æ“ H~0 s 1530:: A~1 r H:¢"O";:›Ağ“ H~C s RESULT~u1:¨&ú“ M~0 s 1540:: A~1 r M:¢"X";:›A¢@34,3;NtCuGO › GO RESULT~0"¨,¤ ** GAME RESULT66“ ç RESULT s ¢@5,21,"HARD LUCK THE CODE WAS ";I$;-@“ RESULT s ¢@8,21;" *** WELL DONE ***";J A~1 r 2000:›A1T¢@3,22;" Do you want another game ? (Y/N)";6^¢@3,23;" Press 'V' for game variations.";@37,22;hÿ€ 0,0 r 250,0CrOPT~ä:OPT~OPT z &DF:“ OPT}86 z OPT }89 z OPT }78 s 1650: ¨|¤ ** INSTRUCTIONS† 1930:¤ * SCREEN SET UP-¢@2,6;"* The computer generates a code."-š¢@2,7;"* This code is a 4 digit number."2¤¢@2,8;"* Each number is in the range 1 to 6."-®¢@2,9;"* The aim is to guess this code."3¸¢@2,10;"´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´"3¢@2,11;"* After each go you will get results."KÌ¢@2,12;" Each'O'means a correct number";@6,13;"in the right column."KÖ¢@2,14;" Each'X'means a correct number";@6,15;"in the wrong column."6ठPRINT@2,16;"* Pressing 'DEL' removes digits."ê¢@2,17;"* GOOD LUCK."3ô¢@2,18;"´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´"*ş¢@2,19;"* Press any key to continue."/¢@2,20;"* Press 'V' for game variations.";6I~ä:I~I z &DF:“ I~86 s VAR~u1:¤ SELECT VARIATIONS¨&¤ ** VARIATIONS0 1930:¤ * SCREEN SET UP:¢@13,5;"Game Variations"D¢@13,6;"³³³³³³³³³³³³³³³"1N¢@4,9;"Input number of columns (2 to 9) ";1XC$~ä$:“ C$"2" { C$}"9" s 1880: C~Ü(C$):¢C$2b¢@4,11;"Input range of numbers (2 to 9) ";1lN$~ä$:“ N$"2" { N$}"9" s 1900: N~Ü(N$):¢N$v A~1 r 600:›A€¨Š¤ * SCREEN SET UP”„40+ÿ€ 0,0 r 255,0 r 255,191 r 0,191 r 0,0¨¢@15,1,"MASTERMIND"²¢@15,2,"³³³³³³³³³³"¼¨8W’ÀoÀ