start tok64 d64-BtYSq5 0 PRINT"{gray}{clear}":POKE53280,0:POKE53281,0:IFPEEK(251)=255THEN10 1 a$="mastermind. (c) mr.p. 1989/90.":GOSUB9:PRINT 2 POKE251,255:a$="greetinx to all club64-members!":GOSUB9:PRINT 3 a$="special greetings to: ake andersson,":GOSUB9:PRINT 4 a$="henrik karnell and stefan bergdahl.":GOSUB9:PRINT 5 FORz=0TO1000:NEXT:RUN10 8 IFPEEK(254)=255THENPRINTa$:RETURN 9 FORi=1TOLEN(a$):FORj=37TOi-1STEP-1:PRINTTAB(j)MID$(a$,i,1)" {up}":NEXT:NEXT:PRINT:RETURN 10 DIMa(4),z(8,4),b(4),c(4) 20 REM** master mind ** (c) mr.p. ** 30 POKE53280,9:POKE53281,9:hi=PEEK(252)+256*PEEK(253) 40 PRINT"{yellow}{clear} {cm n} master mind {cm h}"CHR$(142)TAB(21)"(c) 1989" 50 PRINT" {cm n}{cm p*13}{cm h}{ct h}"TAB(21)"mr.p. of s.w.":READt$(1),t$(2),t$(3),t$(4) 60 c$="{white}{black}{yellow}{156}{green}{red}{cyan}{blue}{dark gray}{light gray}":PRINTTAB(21)"hiscore:"hi:PRINTTAB(21)"{down}score: 70 PRINT"{home}";:FOR z=9 TO 0 STEP -1:PRINTTAB(16)MID$(c$,z+1,1)"Q{yellow}=";z:NEXT 80 IFPEEK(653)=1THENc=-1 90 PRINT"{down*7}";:a$="delete= borja om med denna inmatning":GOSUB8 100 a$="home={space*3}omstart":GOSUB8:POKE254,255 101 IFcTHENFORi=2015TO2023:READz:POKEi,z:NEXT 110 PRINT"{home}{down*2}";:FORg=8TO1STEP-1:PRINTg:NEXT:r$="" 120 FORg=1TO4:a(g)=INT(RND(1)*10) 130 r$=r$+MID$(c$,a(g)+1,1)+"Q ":NEXT 140 r$=r$+"{reverse on}{black}{P*4}{reverse off}":sc=1000 150 FORg=1TO8:sc=sc-100:PRINT"{yellow}{home}{down*4}"TAB(21)"{reverse off}score:"sc"{left}{space*4}{home}{down*2}"; 160 FORz=0TO8-g:PRINT:NEXT 170 PRINT"{up}{right*3}{light green}{reverse on}Q{reverse off} Q Q Q" 220 FORz=1TO4 230 GETa$:IFa$="{delete}"ANDz>1THEN170 240 IFa$="{home}"THENRUN10 250 IFa$<"0"ORa$>"9"THEN230 260 z(g,z)=VAL(a$) 270 PRINTMID$(c$,z(g,z)+1,1)t$(z) 280 NEXT 390 PRINT"{up}{white}{right*11}{reverse on}";:x=0 400 FORz=1TO4:b(z)=z(g,z):c(z)=a(z) 410 IFc(z)=b(z)THENPRINT"{black}P";:b(z)=-1:c(z)=-2:x=x+1:sc=sc+25:GOTO430 420 IFcTHENPRINT"{white}{reverse off}.{reverse on}"; 430 NEXTz 440 FORz=1TO4:FORzz=1TO4 450 IFz=zzTHEN470 460 IFc(z)=b(zz)THENPRINT"{white}P";:b(zz)=-3:sc=sc+10:c(z)=-4 470 NEXTzz,z 480 IFx<4THENNEXTg:GOTO500 482 PRINT"{yellow}{home}{down*4}"TAB(21)"{reverse off}score:"sc"{left}{space*4}{home}{down*2}"; 485 IFsc>hiTHENhi=sc:POKE253,hi/256:POKE252,hi-256*INT(hi/256) 490 PRINT"{home}{down*15}{yellow}{reverse off}hurra {!*4}":GOTO510 500 PRINT"{home}{down*14}{yellow}{reverse off}jag ar ledsen{.*3}":sc=0:PRINT"{home}{down*4}"TAB(21)"score: 0{space*2}" 510 PRINT"{home}{right*3}"r$ 520 PRINT"{yellow}{home}{down*20}vill du forsoka igen ?" 530 GETa$:IFa$="j"THENRUN10 540 IFa$<>"n"THEN 530 550 POKE53280,6:POKE53281,6:PRINT"{light blue}{clear}tack for idag {!*4}":END 1000 DATA"{up}{right*3}Q{right}{light green}{reverse on}Q" 1010 DATA"{up}{right*5}Q{right}{light green}{reverse on}Q" 1020 DATA"{up}{right*7}Q{right}{light green}{reverse on}Q" 1030 DATA"{up}{right*9}Q" 1040 DATA8,5,12,16,32,13,15,4,5 9996 ***** peter karlssON ************* 9997 ***** varnsta ullersater ********* 9998 ***** (s) 710 40 frovi *********** 9999 ***** (sweden) ******************* stop tok64 (bastext 1.0)