testmarcov.obs

来自「格式化源码的最新板」· OBS 代码 · 共 6 行

unit testmarcov;interface var bigs,storesc,searchdepth,mcount,rrate,hyva,huonoja
,viimeksi,wmat,bmat,bonus,movesmade,posvalue:integer;kpos,positions,pos2:longint;
mwk,mbk,mwra,mbra,mwrh,mbrh,viewscores,analysis,keskeyta,opening,stopcalc:boolean
;implementation procedure fred;var s:string;i:integer;begin s:='a very very long string that is indeed much more than 80 chars in its total length and will break in an ugly manner'
;i:=12;if((i<1)and(i<2)and(i<3)and(i<4)and(i<5)and(i<6)and(i<7))then begin end;end
;end.