Md0 100000 *** MASTERMIND *** M Written for Nascom 1 or 2 fitted withx( NAS-SYS and NAS-GRA V.3 graphics by2 N. Rodrigues Jan 1980.<F 25311,312,18351,10927,-8179,233PI320032102ZA:I,A::4100,3200 d:: 950:7,3>n"There are three levels of difficulty:"::lx4);"1) four holes & four different no's4);"2) four holes & six different no's4);"3) five holes & eight different no's"::"Wha`t level do you want? ";I$((0)):I$"1"I$"3"RR1: 1601I$"1""1":H4:N4JI$"2""2":H4:N6cI$"3""3":H5:N8rI1500:: 950: * Start of new game *I1HN(I)((R)N1):S22691,1: * Print new board *21);"";:I1H23:"";: "".21);" ";:I1H:" ";:8"" "I,19);"";`6I1H23:"";:k@""wJI110T19);" ";^A1H:" ";:h" "r|19);"";:I1H27:"";:{""2,5:"Games played:" 7,7:"Guesses:""3,9:"Average per"610,10:"game:"J 890:4,15:A1{"ENTER YOUR GUESS (use `BACK' to correct)"; * Guess input *I(0)(I49IN48)I8I13 470I13 530I143 560AA1:A1A1SA2,129: 470"G(A)I48:AHSA2,I9AA1:AH1AH1C& 470S0AH1 470_:1,14:jD45);N * Marking routine *XAH11bG(A)N(A)BB1: 640lM(G(A))M(G(A))1:M(G(A))1WW1vM(N(A))M(N(A))1:M(N(A))1WW1B4FL1A3H38W0WW1:P185: 700SB0BB1:P184: 700] 710lSH2A,PrA18:M(A)0:FL1 780SS64:W0:B01,1::GG1: 890G105,3:"UnluckOy!": 780A1: 470  * All correct *1,1::24,2  A1H/*N(A)(8);>4I0500:D>THI01500:`RGPGP1l\TGTGG}fG0:FL0:A1p1,1:: 220z * Update Scoreboard *15,7:G15,5:GPGP015,10:|(10TGGP)10 * Subroutines *9I$" A U T O - M A S T E R M I N D "\I139:3020I,((I$,I,1)):b