home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilsp / powercas / !Exam / Blank < prev    next >
Text File  |  1992-06-02  |  6KB  |  4 lines
  1. 2:7IGive each paper or section a short heading._esg(ontroW%,1)7Zȉexam%A0123456789.;IEnter the total which the section is marked out of.mmer"A0123456789.m$="MA0123456789.xam$+A0123456789.pand(A0123456789.W%,1)A0123456789.;IEnter the number of percentage points which the section is worth.am$7A0123456789.(contA0123456789.7È:A0123456789.te7ÜA0123456789.%AGE,7æç100.0%AGEáExam%=&0102010A7ú,Percent()=0:Factor()=0:Sum()=0:SumSq()=08ã J%=1 ¸ 58>  X=»($¤text(headingW%J%+7)):Y=»($¤text(headingW%,J%+1))8  ç X0 € Y0 …8    %+=1,   Factor(J%)=Y/X86  Í8@í J%8Jã I%= ¸ MaRows%18T $¤tet(maiW%,I%8+6)=""8^!  ç $¤text(mainW%,I%*)<>""…8h   P=:Hold)=08     J%=1¸ C%8|,      Hold(J%)=»($¤text(ainW%I%*8+%))8      J%8     Æ‰(Hld())>0 …8Œ      N%+=18¤     Sum(=Sum(+Hold)8®     old2(=Hold)*Hold()8¸!      SumSq()=SumSq(+Hold()8     Hold(=Hold)*Facor()Ì      P=Ɖ(Hold())8Ö      Pecent(%)=Pà!     Sum6)+=PSumSq6)+=P28ê$      $¤text(mainW%,I%*8+6)Ã(P)ô       Í8þ Í9í I% ç N>0 …  Sum()=Sum()/N%9&  Hold()=Sm()*Sm()9  SuSq()=umSq(/N%9  SuSq()=SumSq()-Hold()9D  ã J%=1  69N    çSum(J)>0 …9X1     $¤ext(minW%,MaxRows%*8+J%)=Ã(Sum(J%))98     $¤tet(maiW%,MaRows%8+8+J)=Ã(¶SumSq(J%)))9l        Í9v
  2.   í J%9Í9⇩@%=&00A9“$¤tex(contolW%,5)=Ã(%)9fi*È− "Wimp_ForceRedraw",-1,00,128,10249¨á²:9Ý òsrt(N%colum%)9Æê M%,I%,J%,B%,A%,A1%,A2%9ç Su$=""  á9Úç colmn%=0…9äL È− "S_HeapSort",N%,(block% ☓ (1<<30)☓ (1<31)),,,¤tet(maiW%,0)759î  Ì9   M%=N%:  õ:     M%=(M%+2)Ŵ 3:     I%=M+1 ¸ %:       J%=I ¸ M%+1 ⇦-M%:*X        ç »($¤tet(maiW%,(J-1)*8colum%))>»$¤tex(main%,(J%-M%-1)*8+column%)) …:4(        A1%=¤ext(minW%,J%-1)8):>         A2%=¤text(mainW%,(J%-M%-1)*8:H        ã B=0 ¸ 4:R           “ A1%?B%,A2%?B%:\          í B:f      Í:p      J%:      I%:   ý M%=1:‰Í:—ȉ column% Ê:$  É :$¤tet(conrolW%6)="Rnk":%  É :$¤text(controlW%,6)="Alpha":¶:À*È "Wim_ForcRedra",-1,,0,120,102:Êá:Ô::ÞÝ òwrite_back(sub$:è+êrow%,tudens%,re$,res,exam,star%:òcç ¤confirm("Write results fr "+$text(ontroW%,11+" bak to atabae? Are you sure?")<>¹ … á:ü%stuents%»($¤txt(cotrolW,12));"maks%=»$¤text(controlW%,15));*dbasehadle%=($datbase%".Datbase";$eam%=¤elected_esg(controlW%,1);$ȉ eam% Ê;.   7:strt%=NvFiel%;8 É 8:tart%=EasField%;B  É 9:start%=umFied%;L  É 1:star%=Mckield%;VË`È− "Hourglass_On";jã row%=1  studnts%t&  rs$=$¤ext(minW%,row%-)*8+6);~  ç res$<>"" …;⇦    es%=¨»(res));‹    çres%=00 … es$="H" ⇧ res$=Ã(res%);†+    REC%=»(¤textmainW,(row-1)*87));    read_ec(REC%);°)    òwrite_rec(REC%,es$,sb$,strt%)º3   È− "Hurglas_Perentage",row%*100 Ŵ marks%;Ä  Í;Î
  3. í ow%;È− "ourglss_Of";âclosefile(dbasehandle%);ìá;ö:< òrea_rec(EC%)
  4. ê I<Ïdbaseandle=REC%*Length%<ã I%=1 ¸ fields<( F$(I%=¾#dbsehanle%<í I%<<áF:<P'Ý òwrite_rec(REC%,res$,su$,stat%)<ô LOAL I%N%<dI%=-1N%=-1<nõ<x   I%+=1<ŵ.  ç F$(I%+SubesFied%)=" € N%-1 … %=I%…%ý I=5 ☓ $(I%+SubResField%)=sub$<„ ç F$(%+SubesFied%)=sb$ …   F(I%+sart%)res$<ª  Ì<´  ç N%>=0 …<¾    F$(N+SubRsFiel%)=su$<È   F$N%+strt%)=res$<Ò        Ì<ÜB    Ŷ moanerr%,Nowhee to ut suject n reslts tble"+½(0)<æ  Í<ðÍ<úÏ#dbaseandle=REC%Lengt%= I%=1¸ fieds%=  Õ#dbasehandle%,F$(I%)=í I%="á,:=Ý ¤icludesub$)=@ê %=J%=SubField%-1=Tõ=^   I%+=1=hý I%=ubFiedB%+4☓ F$(%)=su$=r F$(I)=sub$ …=¹ ⇧=£=|:=ŷJô ------------ Priner Drver Rutine ---------------------------=‘:=Œ Ý òprnt=¤*RMEnure Priver0 ERRR 254No prnter driver installed=®ê left%botto%,rigt%,to%=¸ub$=$text(ridW%1)=Âç Sub$="" … á=Ì$¤text(cotrolW,1)=Sb$=Öȉ ¤slecte_esg(ridW%2) Ê=à   É 5:outputfile$="printr:"=;  É :outptfile=$datbase%".PritJobs."+Sub$+"_Exam"=ôË=þprithande%=®(utputile$)>)È−"PDrier_SeectJob",printhandle%,0> È‰ ¤seectedesg(gidW%,) Ê>  É :mark%=£>5  È− "OS_CLI","Remove "+$databae%+".xams.+Sub$>0  get_fle(Su$)>:  É 3:marks%=¹:òget_file(Sub$)>Ë>Nòsavefile(databse%+"Exams"+Sub,&FFD,FileBase%,FileEnd%)>X%stuents%»($¤txt(cotrolW,12))>bê >lîŶ ê:÷ Ŷ:òabort_printing:á>vÈ− Hourgass_O">€6get_dcumen_sizebox%,eft%,bottom%,right%,top%)>⇩òfi_page>“&È−"ColorTran_SetGOL",00,0,00>fi page%=1>¨CÈ− "PDriver_Giveectanle",pge%,bx%,marix%,rigin,&FFFFF00>²AÈ− "PDriver_DrawPage",1,ox2%,,0 ¸ opieseft%,pagetprint>¼ È” copiesleft%<>0>Æ$    ògrid(Sb$,stdents,mark%)>Р   È "PDrver_GtRectangle",,box2% ¸ copiesleft%,pageoprin%>Ú Î>äÈ− "Hurglas_Off>î$È− "PDriver_EndJob",printhanle%>òcloe_fil(prinhandl%)?ç oututfile$<>"printer:" … È− "OS_Fil",18,utputile$,ff4?á?:?  òabot_printing?*&È− "PDriver_AbortJb",prnthanle%?òcloe_fil(prinhandl%)?>È− "Hourglass_Off"?H ç fl=7 …?@  òwmp_eror(¹,54,0,Escap presed. Printing abandoned.")?\  Ìòwimperror¹,fl,fiö$)?Í?pá?z:?☓2 òget_document_size(box%,ø l%,ø %,ø r,ø t%?‰-È "PDrver_PgeSiz" ¸,x,y%,l%,b%,r%,t%?—l%=l% Ŵ 400:b=b% Ŵ400?r%=r Ŵ 40:t%=t Ŵ 40?¬,bx%!0=l%:box%!4=b%:box%!8=r%:box%12=t%?¶l%=4:b%=4:r%=4:t%=6?Àá?Ê?ÔÝ òfit_page?Þ3  !origin%=let%*40:orign%!4=botto%+64)400?  marix%!0=(1<<16)?ò  matrix%!4=0ü  mtrix%8=0@  marix%!2=(1<16)@á@:@$4Ý òfont_print(S$,x%,y,fontame$,idth%heigh%)@.È− "Fnt_FidFont",,fontname$,width%*16,heigt%*16¸ fon%@8− "Fot_Setont",ont%B.È− "ColourTrans_SetFontColours,,-25,0,14@L"È−"FontPaint,,S$,<<4,x,y%@VÈ− "Font_LoseFont",font%`á@:@tÝ ògrd(S$,%,M%)@~ê %,H%,0%,y0%@⇦0depth%=1800 Ŵ (N%+6):çdepth>50 …depth=50@poin%=deph% Ŵ @†width%=right%-left%-200@¦hight%depth*(N%+)@°00%=let%+10:y0%=Average:tom%-height%) Ŵ 2@ºfirtcol%x0%+wdth%-00@Äòhead@Î1È›x0%,yStandard deviation:,height%-dept%*6@ã H%1 ¸ N@â- ì x0%y0%+(%+4.