+
 Ї : CB1  -   G.I.Whiston   -   88-11-169 Ї : TO CREATE DATAFILE ON FIRST USE, TYPE "GOTO 9999" AA=0 █ : HI=8 : F1=0 : PTOT=0  TN=7.5 : Ї - Line Datum# ▐ PLYR$(8),MSG$(6)$ ▐ PSD(8,7)& ч AA<>9 М НTw@( ф НDpW : ф НTxX7 PN=1 : Ї ... PLAYER NUMBER
F ф НT@Yd ▐ GS(4), R(4),RT(4)!╚ ё К0,0);"C O D E - B R E A K"!╥ ё К0,1);"~~~~~~~~~~~~~~~~~~~"%▄ ч F1=0 М НtxK : Ї .. Menu & Names,,C0=24:ё КC0,0);"  * ? - ? - ? - ? * ";  @у I=1 ╕ 6 %Bё КC0,I);I;".  -   -   -   -   ";Dэ LC1=44:ё КC1,0);"B / W";	NC2=52Pё КC2,0);"SCRATCH-PAD ";Rё ─23,"-");;Sё К76-й(PLYR$(PN)),0);" ** PLAYER -  ";PLYR$(PN);" **";Tё КC2,1);─93-C2,"~");$UT=HI:ч T<4 Д PSD(PN,6)>199 М T=80Vё К12,3);"  ]":ё К0,4);"[ Now ... = ";T;" ]"%Wё К0,3);╜(7);"Range [ 1 - ";:A$=╛)Xч з"=+.>",A$)>0 Д A$="" М HI=T:х НD\A!ZHI=╗(A$):ч HI<4 Д HI>8 М НDUA*\TX = 1000 + (HI*150) : Ї - Time Factor#^ё К0,3);"Range = 1 to ";HI;"  ""`ё К0,4);"Time  =             ""bё К0,5);"(Press T for update)"РЇ ... Setting codeХCODE$="* " : A$=" "Ъу I=1 ╕ 4дR(I)=│(HI)жT$=" - " : ч I=4 М T$=" *"зCODE$=CODE$+├(R(I))+T$йA$=A$+├(R(I))+" "оэ : T$=PLYR$(PN)4▒ч T$="TEST" Д T$="GIW" Д T$="CHEAT" М ё К7,0);A$XЇ ... Entering guessesbGN=0 : ╤=0 : TIM1=СlGN=GN+1vу I=1 ╕ 4{ё КC0+4*I,GN);"x";АэКу I=1 ╕ 4Пё КC0-1+4*I,GN);" ";	ФGS$=╛ЦT=С:ё К8,4);(T-TIM1)/100%Щч GS$="." Д GS$=">" М Нt^B Л Нt|BЮЇ - Using scratch-pad&жё К90,GN);"<<<"; : ё КC2-2,GN);"";&ош SP$ : ё КC2-2,GN);"  "; : х НtJB╕Ї - End of scratch-pad,╝GS(I)=╗(GS$):ч GS(I)<1 Д GS(I)>HI М НtOB╞ё КC0+4*I,GN);GS$;фэцё КC1,GN);"OK ?"; : A$=╛чT=С:ё К8,4);(T-TIM1)/100шч з"=+Yy",A$)>0 М НdnB7ъч A$="N" Д A$="n" М ё КC1,GN);"-----":х НDvB Л НdfB юф НtHS : Ї - Evaluating lineєч BB=4 М НtpDч GN>5 М НdhCRх НDlB : Ї - GN=GN+1!▐· : Ї * * * * * * * * * * * *шЇ ... For GN>5+ЄMSG$(0)="Bad Luck !!" : SCR=.1 : х НtNH░Ї ... For BB=4
▒TIM2=С▓MSG$(1)="Well done !"┤MSG$(2)="Very good !"╢MSG$(3)="Brilliant !"╕MSG$(4)="LUCKY GENIUS !"#╨Ї ... Processing/printing SCORE┌TIM3 = (TIM2-TIM1)/100фё К0,4);"Time  = ";TIM3; ч GN<4 М GN=2 + GN/2,4SCR=1000*(HI^4)*(TN-GN)/((8^4)*(TN-2.5))RSCR=и(SCR * (TX-TIM3)/TX) \ч SCR<5 М SCR=5Оё К0,5);"Score = ";и(SCR);Пї ё " ";:¤ ▒=21$Рч SCR<3 М MM=0 Л MM=1+и(SCR/170)Фч MM>4 М MM=4-ЦMM$=MSG$(MM):ч GN<3 М MM$="Pure LUCK !!!"Шё К0,6);"** ";MM$;" **";Ъч SCR<3 М Нt_HЫC0=C0+2!Ьё КC0,7);"*  R I G H T !  *";Юї ё " ";:¤ ▒=92 : х НtnH$Яё К55,7);"    ";:ї ё " ";:¤ ▒=926аё КC2,7);"CODE   ***";:C0=C0+2 : у I=1 ╕ 7:ё ╜(7);(бё КC0,7);"+               +   <<= ";ву J=1 ╕ 111 : эдё КC0,7);CODE$;"  <<--";еу J=1 ╕ 170 : эжэ!оЇ ... Recording GAME DATA ...,║PSD(PN,0)=PSD(PN,0)+1 : Ї - No. of GAMES-└у J=5 ╕ 2 И-1 : PSD(PN,J)=PSD(PN,J-1) : э─PSD(PN,1)=SCR)╩T=PSD(PN,7) : Ї ... Average of last 5+╠ч PSD(PN,0)<5 М TT=0:PSD(PN,6)=0:х НdTH*╬TT=0 : у J=1 ╕ 5 : TT=TT+PSD(PN,J) : э╨TT=и(TT/5) : PSD(PN,6)=TT╥ч T>TT М TT=T╘PSD(PN,7)=TT : ф НTxX&▐ї ё К0,7);╜(7);─й(MM$)+6,"-")+" ";р¤ ╛<>""
№ф НD|U4V	█ : F1=0 : х НdH@ : Ї **************************╕Ї ... MENU and NAMES$╠C=5 : L=2 : ё КC,L);"PLAYERS :";╬у I=1 ╕ 8-╨ч PSD(I,0)=0 А PLYR$(I)<>"-" М N=I:ф НTTQ╥э╓у I=1 ╕ 8%рC=0:LL=L+I : ч I>4 М C=15:LL=LL-4ъё КC,LL);I;".";ьч I=PN М ё ╜(127); Л ё " ";юё PLYR$(I);Їэ■C=32 : L=2*MSG$(1)="See INSTRUCTIONS   ...   I " )MSG$(2)="Add a NEW player   ...   A ")&MSG$(3)="Delete player(s)   ...   D ")0MSG$(4)="See SCORING data   ...   S "):MSG$(5)="QUIT   ...   ...   ...   Q "0XM$="Enter PLAYER NUMBER or SELECTION LETTER"ZC0=C+1 : ё КC0,L-2);M$8bё КC0,L-1);"--------------------~~-----------------"Ау I=1 ╕ 5Кё КC0,L-1+I);MSG$(I);ФэЮч PLYR$(1)="-" М A=2:х Нd@M иё К75,0)"[Press = to select"(йё К75,1)" player marked ";╜(127);"]"нC=73:L=0░ї ё ╜(7);▓ё КC,L);:A$=╛-фA=з"1122334455667788=.> IiAaDdSs  Qq",A$)х¤ A>0 : C=50 : L=0+цA=и((A+1)/2) : ч A>15 М НThc : Ї - QUIT2мч A<9 М ч PLYR$(A)<>"-" М ф НtTQ:█:F1=9:х НdH@ оч A=9 Д A=10 М █:F1=9:х НdH@0░ч A<9 М ч PLYR$(A)="-" Д PLYR$(A)=" " М НtpL▓A=A-10 "└ю A ф НTDP,НDhP,НdLP,НTpQ,НtTQ╩█ ч A=2 Д A=5 М F1=9 Л F1=0
х НdH@"аЇ ... S/Rs 4100-4500 from 3520Ї ... 1/I - Instructions█LMSG$(0)="CODE-BREAK   -   Copyright George I Whiston, 10 November 1988."%
MSG$(1)="I N S T R U C T I O N S"+MSG$(2)="Press any key to continue ..."CC=0 : LL=1 у I=0 ╕ 2'ё К40-й(MSG$(I))/2,LL+2*I);MSG$(I);эї ё ╜(7);:¤ ╛<>""█UMSG$(0)="Welcome to CODE-BREAK, the code-breaking challenge!  Use your powers of"XMSG$(1)="reasoning to break the secret code.  There are five levels of difficulty," WMSG$(2)="ranging from FOUR to EIGHT possible numerals in the code  - but note that"YMSG$(3)="a numeral can appear more than once within the four-numeral code.  You have"W MSG$(4)="up to SIX lines to crack the code, but the fewer lines you use  - and the"N"MSG$(5)="less time you use  - the higher will be your score.  Good luck !",CC=0 : LL=1 : DD=36у I=0 ╕ 58ё КCC+DD*I,LL+I);MSG$(I);:э \ї ё К92,7);╜(7);">";:¤ ╛<>""W^MSG$(0)="*  When entering your four guesses on a line, you can press the .> key to"S_MSG$(1)="   move to the SCRATCH-PAD to make notes - press ENTER when finished."Y`MSG$(2)="*  After a game, you can press the =+ key to retain the same player and the"[aMSG$(3)="   same level of difficulty (at the appropriate selection) for the next game."TbMSG$(4)="*  At an end-of-screen pause (such as now), press ANY key to continue."c█-dё MSG$(0):ё MSG$(1):ё:ё MSG$(2):ё MSG$(3)eё : ё MSG$(4) fї ё К92,7);╜(7);">";:¤ ╛<>""g°hЇ ... 2/A - Add new playeriё К2,PN+2);" ";jч PTOT>7 М ё ╜(7):х НdBPrPTOT=PTOT+1+|C=0:LL=2+PTOT : ч PTOT>4 М C=15:LL=LL-4Жё КC,LL);PTOT;". ";Рё ╜(7);: ш A$5ФB$=└A$,1):ч Ч(B$)>96 А Ч(B$)<123 М B$=╜(Ч(B$)-32)ШPLYR$(PTOT)=B$+┬A$,й(A$)-1)оPN=PTOT : ф НTxX┬°╠Ї ... 3/D - Delete player╓C=33:L=5 ┌у I=5 ╕ 7 : ё КC,I);Й(59);:э#рM$= "Delete ALL players [Y/N] "хё К65,6);"- TAKE CARE !!!";ъё КC,6);M$;#юё ╜(7);:ї A$=╛: ¤ з"YyNn",A$)>0Єч A$="n" Д A$="N" М НTHQ#ЎM$= "Please CONFIRM     [Y/N] "°ё КC,7);M$;,·ё К65,7);"- Y will delete EVERYTHING !";"■ї ё ╜(7);:A$=╛:¤ з"YyNn",A$)>0ч A$="N" Д A$="n" М НTHQ ф НDpW : ф НTxX : х НTfQЇ - Deleting ONE player#
M$= "Enter NUMBER to delete : "+ї ё КC,7);╜(7);M$;:A$=╛:N1=╗(A$):¤ N1<9#M$= "Repeat to confirm      : ")ї ё КC,7);╜(7);M$;:A$=╛:N=╗(A$):¤ N<9$C=0:LL=2+N: ч N>4 М C=15:LL=LL-4!ч N=0 Д N<>N1 Д N>PTOT М НTfQ)у I=N+1 ╕ PTOT : PLYR$(I-1)=PLYR$(I) 'у J=1 ╕ 7 : PSD(I-1,J)=PSD(I,J) : ээPLYR$(PTOT)="-"ч PN=PTOT М PN=1!у J=0 ╕ 7 : PSD(PTOT,J)=0 : э PTOT=PTOT-1 : ф НTxX&°0Ї ... 4/S - SCORING dataD█ Fё "SCORING DETAILS"Hё "~~~~~~~~~~~~~~~"NCC=20 : LL=11 : DD=5 : T=38Pё КCC,1);"RANGE"Qё КCC,2);"~~~~~";'RM$="NUMBER  OF  GUESS-LINES  TAKEN"Tё КCC+8,0);M$;6VM$="~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~":ё КCC+8,1);M$;Xу HII=8 ╕ 4 И-1\ё КCC,LL-HII);"1 - ";HII;^у GN=6 ╕ 1 И-1 `ч GN<4 М GNN=2+GN/2 Л GNN=GNaч HII<8 М НDdQ&bё КCC-DD*GN+T,LL-HII);" (";GN;")";9dS1=(1000*(HII^4)*(TN-GNN)/(4096*(TN-2.5))) : S2=и(S1)hS2$=┬"   "+├(S2),4)lё КCC-DD*GN+T,LL-HII);S2$;vэ xэ : CC=61:LL=0*zMSG$(1)="The score shown in the table"({MSG$(2)="is reduced by the factor :"'|MSG$(3)="....... ( X - T )  /  X  ",}MSG$(4)="Where : X = 1000 + ( 150 * Z )",~MSG$(5)="~~~~~   Z = Range  ( 4 to 8 ) ".MSG$(6)="        T = Time taken (seconds)"(Ву I=1 ╕ 6 : ё КCC,LL+I);MSG$(I); : э%Иї ё К92,7);╜(7);"";:A$=╛:¤ A$<>""К°ФЇ ... 5/P - Select PLAYER"Юч PLYR$(2)="-" М PN=1 : х НdnQич A<9 М PN=A&▓ч PLYR$(PN)="-" М ё ╜(7);:х НtxK  ю°!ИЇ ... S/R for EVALUATING LINEКBB=0 : WW=0Ту I=1 ╕ 4 : RT(I)=R(I) : эЬу I=1 ╕ 4жч GS(I)<>RT(I) М НdDS "░BB=BB+1 : GS(I)=99 : RT(I)=999─э╬ч BB=4 М WW=0 : х НTrTьу I=1 ╕ 4Ўу J=1 ╕ 4 ч GS(I)<>RT(J) М НT^T"
WW=WW+1 : GS(I)=11 : RT(J)=111э(э2ё КC1,GN);BB;" / ";WW;'<ч PSD(PN,7)>99 Д PSD(PN,0)>9 М НDrUFч GN>1 М НttTPMSG$(0)="NUMBER OF ... ...".RMSG$(1)="Correct numbers in wrong columns".TMSG$(2)="Correct numbers in right columns"Zё К52,4) MSG$(0)dу I=2 ╕ 6:ё КC1,I);"^   ^";+nч I=5 М ё КC1,I); "^   ^---   ";MSG$(1)+xч I=6 М ё КC1,I); "^-------   ";MSG$(2)Вэ : х НDrU┤ч GN<>3 М НDrU╛у I=4 ╕ 6 : ё КC1,I);╚ї ё "   ";:¤ ▒>87╥эr°|Ї ... Printing PSDsЖ█4ИM$="PLAYER   Game  (1) (2) (3) (4) (5)  Av5 Hi5"Йё К0,0);M$;Кч PTOT>4 М ё К47);M$4ЛM$="~~~~~~   ~~~~  ~~~ ~~~ ~~~ ~~~ ~~~  ~~~ ~~~"Мё К0,1);M$;Нч PTOT>4 М ё К47);M$Ру I=1 ╕ 8Тч PSD(I,0)=0 М НthU&ФCC=0:LL=1+I: ч I>4 М CC=47:LL=LL-4Шё КCC,LL);└PLYR$(I),9);Ьу J=0 ╕ 7/ЮC=CC+10+4*J : ч J>0 М C=C+1 : ч J>5 М C=C+1вT$=┬"000"+├(и(PSD(I,J))),3)(гч J>PSD(I,0) А PSD(I,J)<3 М T$="  ~"дё КC,LL);T$;жэиэ : C0=10Iоё К0,7);"(1) = Last Game       Av5 = Average of last 5 games       ";"░ё "Hi5 = Highest Av5 so far.";"║ї:ё К92,7);">";:A$=╛:¤ A$<>"" ╓°pЇ ... INITIALIZING
zPTOT=0Ду I=1 ╕ 8ОPLYR$(I)="-"Ру J=0 ╕ 7ТPSD(I,J)=0Фэ  Шэ.°8Ї ... Printing to "CBDATA"BCN=о("CBDATA")Lё#CN,PTOTVу I=1 ╕ 8`ё#CN,PLYR$(I)jу J=0 ╕ 7tё#CN,PSD(I,J)~эИэТ┘#0Ь°  Ї ... Inputing from "CBDATA"
CN=О("CBDATA")!ш#CN,PTOT : Ї === See Line 15у I=1 ╕ 8(ш#CN,PLYR$(I)2у J=0 ╕ 7<ш#CN,PSD(I,J)FэPэZ┘#0d°(#Ї ... QUIT,#M$="CHEERIO"2#█ : у I=0 ╕ 6<#C1=16+8*I : C2=64-8*IF#ё КC1,I);M$; : ё КC2,I);M$;P#ё ╜(7);: эZ#ё К43,7);"";d#р'AA=9 : х НT^@ 