ZXTape! 0Created with Ramsoft MakeTZX6marks JO7:0:0::11 ,10 ;1;5;" LOADING " "" &5:7:0::2,0;" " +5" oftware " 5@11 ,11 ;"SPECTRUM"::13 ,11 ;"MARKBOOK" :79O,95_:0,-40(:80P,0:0,40(:-80P,0:71G,103g:0,-568:96`,0:0,568:-96`,0:73I,101e:0,-524:92\,0:0,524:-92\,0 ?0s=29:x$="" DJn=216-1:37%-n>29s=s-5:595S I-37%-n>27s=s-3:595S N"37%-n>25s=s-2 Sn,37%-n;x$(s) Xn b818,26;"48k";20,23;"Spectrum" H#1;1;1;6;" LOADING PLEASE WAIT " %0,0;:7:"marks" s XDx%m XCZ\M;4;N$(N)+("*"I(N)L(Z)N$(N,I)" ");17;F$(N);23;T(N);29;H(N) ?N D="7"B,E:1050 F 502 L 1090B :V,3;"ENTER A TITLE" 23658j\,O:Q$ 23658j\,8 Q$5000 D:V+V,V;"DO YOU WANT TO VERIFY?";14,9 ;"Press y or n" =""1250 "Y"B,E:I 4B,E::V+V,2;"REWIND TAPE AND PRESS 'PLAY'" Q$  DB,20:B,E:17,V+V;1;" VERIFIED ":200:I MENU :3,3;" WHAT DO YOU WANT TO DO?";3;"";8,V;"1. ADD A PUPIL";11 ,V;"2. REMOVE A PUPIL";14,V;"3. CHANGE A MARK";17,V;"4. ESTIMATED MARK FOR";12 ;"ABSENT PUPIL" ="1"B,E:1600@ ="2"B,E:1700 ="3"B,E:1800 ="4"B,E:AP=I:1800  1510 J 20 om:V,O;" CHOOSE A FREE PUPIL NUMBER FROM THE LIST WHICH FOLLOWS";17,9 ;"Press any key":O r 180 :9 ,3; &"WHAT IS THE NAME? ";Q$:Q$;" "; "WHAT FORM? ";L$:L$ N$(Q)=Q$:F$(Q)=L$ 502:B,E:MENU  20  200  180 /B,E::11 ,V;I;" SORTING PLEASE WAIT "  N=QE(Z) HN$(N)=N$(N+I):F$(N)=F$(N+I):T(N)=T(N+I):H(N)=H(N+I):I(N)=I(N+I):N N=QE(Z):J=ICOL M(N,J)=M(N+I,J):J:N cN$(E(Z))=" ":F$(E(Z))=" ":T(E(Z))=O:H(E(Z))=O:I(E(Z))=O:J=ICOL:M(E(Z),J)=O:J MENU  20:200:180 X?:V,O;" IN WHICH COLUMN DO YOU WANT THE MARK ENTERED?" Y(15,6;"If unsure, enter 0" ]J ^J=O3010 `&:V,V;"WHAT IS THE NEW MARK? ":MA b^:3,3;I;I;" CLASS: ";C$(Z):6,4;N$(Q);18;MA;" IN COL. ";J gB14,V;"IS THIS CORRECT?";16,6;"(Y)es or (N)o" k=""1899k l"Y"B,E:1500 v}B,E:I(Q)=I(Q)-(C(Z,J)AP=0):T(Q)=T(Q)-M(Q,J):I(Q)=I(Q)+C(Z,J):M(Q,J)=MA:T(Q)=T(Q)+MA:T(Q)=OH(Q)=O:1930 (H(Q)=((T(Q)/I(Q))*100d+.5) AP=O MENU [OM=I::2,9 ;" ORDER OF MERIT ";7,9 ;" NUMBER TO SORT " Q=E(Z)-B(Z)+I:R(Q) @I;10 ,16;Q:I;15,10 ;" PLEASE WAIT " U=OXXPE2500 L=I  N=B(Z)E(Z) R(L)=N:L=L+I N  9840p& >B,20:B,E HAXXPE:11 ,6;I;"SORTING PLEASE WAIT":2500 I 150 WL=I \ N=QI-I a2N$(R(N),1)=" "L:L=L+1:2156l ggL;4;N$(R(N))+(" *"I(R(N))L(Z));18;F$(R(N));23;T(R(N));29;H(R(N)):L=L+I lL=172161q pN q300,:Q>16 rN=Q-16I-I t2N$(R(N),1)=" "L:L=L+1:2166v ugL;4;N$(R(N))+(" *"I(R(N))L(Z));18;F$(R(N));23;T(R(N));29;H(R(N)):L=L+I v[(L-17)/22=((L-17)/22)300,:N=N-1:LQ:2164t xN y 502 z="7"B,E:2120H  2169y U=IXX=PE "U=I:TT=O:L=O:SE=I2630F N=B(Z)E(Z) %PE=0T(N)=02540 %PE=1H(N)=02540 L=L+1 +TT=TT+(H(N)PE=1)+(T(N)PE=0) N L=OMN=O:STD=O: MN=TT/L SMD=O N=1(E(Z)-B(Z)+1) 2PE=1H(N+B(Z)-1)=02590 2PE=0T(N+B(Z)-1)=02590 HDV=(H(N+B(Z)-1)-MNPE=1)+(T(N+B(Z)-1)-MNPE=0) SMD=SMD+DV*DV N %STD=(SMD/L-I) ('MN=(MN*100d+.5)/100d 2)STD=(STD*100d+.5)/100d 7XX=PE < FN=1(E(Z)-B(Z)+1) P%PE=1U(N)=02680x Q%PE=0O(N)=02680x U L=L+1 Z+TT=TT+(U(N)PE=1)+(O(N)PE=0) xN }L=OMN=O:STD=O: MN=TT/L SMD=O N=1(E(Z)-B(Z)+1) %PE=1U(N)=02740 %PE=0O(N)=02740 .DV=(U(N)-MNPE=1)+(O(N)-MNPE=0) SMD=SMD+DV*DV N 2595# 20 :I;I;"CLASS ";C$(Z);" " S=3:W=I H2,12 ;I;X$(S-IS+13 );( " TOT."PE=O);(" TOT%"PE=I) fE(Z)-B(Z)<18BEG=B(Z):END=E(Z):4700\:N=BEGEND:4000:N:4500:3030 BEG=B(Z):END=BEG+16 >4700\:N=BEGEND:4000:N:4500:3050 \4700\::BEG=B(Z)+17:END=E(Z):N=BEGEND:4000:N:4500:3060 N$(N)=" ": N$(N);13 ;M(N,W);16;M(N,W+1);19;M(N,W+2);22;M(N,W+3);25;M(N,W+4);29;(T(N)PE=O)+(H(N)PE=I)  -="7"E(Z)-B(Z)18B,E::3040 -="6"E(Z)-B(Z)18B,E::3060 *="9"S=S-15:W=W-V:4800: )="8"S=S-3:W=W-I:4800: )="5"S=S+3:W=W+I:4800: *="4"S=S+15:W=W+V:4800: ="P"PE=I:B,E:: ="T"PE=O:B,E:: ="S"B,E:8100 502:4500 \UO,O;I;I;"CLASS ";C$(Z);" ":PE=O0,24;"MAX=";(L(Z)SE=O)+(TLSE=I) fI2,12 ;I;X$(S-IS+13 );(" TOT."PE=O);(" TOT%"PE=I): S<3S=3  S>X$-13 S=X$-13  WCOL-4W=COL-4  JV:O:PE=O:SE=O:OM=O:U=O:236099\,502:23658j\,8: N=IV:A$:N #I,6;"" )2,6;"MARKBOOK OPTIONS" -3,6;""'''' V;"1. VIEW MARKS"''V;"2. CURRENT TOTALS"''V;"3. ENTER MARKS"''V;"4. ENTER NAMES"''V;"5. MAKE ALTERATIONS"''V;"6. SAVE TO TAPE"''V;"7. INITIALISE MARKBOOK" 5O,135:O,-135:255,O:O,135 =""5030 ="1"B,E:3000 ="3"B,E:7000X ="5"B,E:1500 ="4"B,E:8000@ ="7"B,E:9700% ="2"B,E:1000 ="6"B,E:1200  5030 b 20 lj:9 ,O;" IN WHICH COLUMN DO YOU WANT THE MARKS ENTERED?"'''';6;"(If unsure, enter 0)":Q vQ=O3010 {Q>COL7020l C(Z,Q)07020l 714,O;"WHAT ARE THE MARKS OUT OF?":X:C(Z,Q)=X %L=O:N=ICOL:L=L+C(Z,N):N:L(Z)=L 0:I,8;I;I;" ENTER MARKS ";C$(Z);" "'' L=I  N=B(Z)E(Z) ,N$(N)=" "M(N,Q)=O:7125 1(N$(N)),Q$:Q$="A"M(N,Q)=O:AB=I:7125  M(N,Q)=Q$ :I(N)=I(N)+X ,L;" ";N$(N);" ";M(N,Q);("(ABS.)"AB=I) AB=O L=L+I N *:I,6;I;O;"SORTING PLEASE WAIT" QN=B(Z)E(Z):F=0:G=ICOL:F=F+M(N,G):G:T(N)=F:F=OH(N)=O:7149 %H(N)=((F/I(N))*100d+.5) N B,20:B,E:MENU JF:V,3;"GIVE THE NAME OF THE CLASS"," (3 CHRS)":Q$ T&9 ,O;" HOW MANY PUPILS?":Q ^4C$(CLASS)=Q$:B(CLASS)=NO+I:E(CLASS)=NO+Q+4 h(:I,10 ;I;I;" CLASS ";Q$;" " mL=I:N=B(CLASS)E(CLASS) r""INPUT NAME";N$(N):L;" ";N$(N), |""INPUT FORM(3CHRS)";F$(N):F$(N) L=L+I N  NO=E(CLASS) CLASS=CLASS+I MENU 6Q=E(Z)-B(Z)+I:O(Q):U(Q):V(15):N=I15 %21,8;"SELECTIVE TOTAL" &"ENTER COLUMN No's(0 to exit) ";V(N) V(N)=O8125 N 721,6;I;"SORTING PLEASE WAIT":L=I:TL=O "J=I15:V(J)=O8138 TL=TL+C(Z,V(J)) J K=TL  N=B(Z)E(Z) "N$(N)=" "8200 J=I15 V(J)=O8194 O(L)=O(L)+M(N,V(J)) M(N,V(J))=OTL=TL-C(Z,V(J)) J &TL=0U(L)=0:8198 &U(L)=((O(L)/TL)*100d+.5) TL=K  L=L+I:N #SE=I:2500 :B,20:B,E ?L=I::I;I;"SEL.TOTAL CLASS: ";C$(Z):O,23;"MAX=";TL 400:2,4;"MEAN=";MN;("%"XX=1):4;"ST. DEV.=";STD;("%"XX=1):4,O;I;O$:3;"NAME";17;"TOTAL";23;"TOTAL%":V,O;I;O$ *E(Z)-B(Z)<16BEG=B(Z):82422 N=B(Z)B(Z)+15 !"N$(N,1)=" "L:82400 &[L;3;N$(N)+(" *"U(L)ɺ((O(L)/K)*100d+.5));18;O(L);24;U(L) 0L=L+I:N:SE=I:300, 1BEG=B(Z)+16: 2 N=BEGE(Z) 3)N$(N,1)=" "L:L=L+I:82488 6bL;3;N$(N)+(" *"U(L)ɺ((O(L)/K)*100d+.5));18;O(L);24;U(L):L=L+I 7=(L-17)/22=((L-17)/22)300,: 8 N:SE=I : 502 D=="7"B,E:(8210 OM<2)+(8390 OM=2) l 8250: vR(Q)::2,6;" SEL. ORDER OF MERIT ";7,8;" NUMBER TO SORT ";10 ,15;I;Q:15,9 ;I;" PLEASE WAIT " N=IQ:R(N)=N:N 9840p& OM=2:B,20:B,E AXXPE:11 ,6;I;"SORTING PLEASE WAIT":2500 150 400:6,O; L=I N=QI-I ?N$(R(N)+B(Z)-1,1)=" "L:L=L+1:8440 L;4;N$(R(N)+B(Z)-1)+(" *"U(R(N))ɺ((O(R(N))/K)*100d+.5));18;F$(R(N)+B(Z)-1);23;O(R(N));29;U(R(N)):L=L+I L=178445 N:8250: 300, Q>16 N=Q-16I-I !?N$(R(N)+B(Z)-1,1)=" "L:L=L+1:8460 ! !L;4;N$(R(N)+B(Z)-1)+(" *"U(R(N))ɺ((O(R(N))/K)*100d+.5));18;F$(R(N)+B(Z)-1);23;O(R(N));29;U(R(N)):L=L+I ! U(L-17)/22=((L-17)/22)300,:N=N-I:LQ:8448! !N ! 8250: %:3,11 ;I;2;" WARNING "'''':" IF YOU CONTINUE WITH THIS OPTION, YOU WILL WIPE OUT ALL DATA FROM MEMORY."'''':" DO YOU WISH TO CONTINUE?"'''" Press (y)es or (n)o" %B,-20:B,-E %=""9712% %"Y"B,E:menu %B,E %F:V,O;" HOW MANY PUPILS DO YOU WISH TO HAVE IN THIS MARKBOOK?" &q &=9 ,O;" HOW MANY CLASSES ARE THERE?":c:p=q+c*4 &F12 ,O;" HOW MANY MARKS DO YOU WANT TO RECORD FOR EACH PUPIL?" & COL &uL(C):C(C,COL):I(P):H(P):no=O:class=I:n$(p,12 ):m(p,COL):f$(p,3):t(p):c$(C,3):b(c):e(c) &X$="":N=ICOL & N<10 X$=X$+" "+N &*&N10 N<100dX$=X$+" "+N &/N100dX$=X$+N &4N &9 X$=X$+" " &HMENU &qY=I &r Y=2*Y &sY09848x& & 9851{& &T(R(ZI))T(R(J))9854~& & 9851{& &O(R(ZI))O(R(J))9854~& & 9851{& enqcpoTTTTTTTTTTTTTTTTTTTTTTTTTTTTTdd,,,,,,,,,,,,,,,,,,,,,,,,rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrdddddddddddddddddddddd`LB<G,GKG;#:HCN*SW,2FLHRTZYEVX@<=G9;L7K<?BEB5<?C<IP?=;G>ALGL0WAWJ0P<:<BJ8ZT/@>NCGLTEJF;.N5-1:*]U33A;PAGB4AMBJ>JC?;SZ8;ENB=GCKB?3V?=B:<41JU4>P6=IF952A>#:K23@4BX+0;B90C3las  BIRD.S BOYDELL.J CLARKE.G CLINNING.A COURBET.C DOBSON.A DORAN.R EVERSON.S GALLAGHER.S GREENE.L HARTIN.D HOBART.C HOYLE.A HUGGINS.J MANTLE.C GITTOES.A CANE B BRAZIER T BRETT D BROWN A DYMOCK S ELLICE K JACQUET J MORGANS J MORGANS S MURGATROYD FNAVIN W TATUM S WAKEFIELD D ROBERTSON E BERRY.S BIDDLES.L BLEASDALE.M BROWNING.N CAMBIDGE.B EDWARDS.I GRAHAM.P HOLT.J LAMBERT.D LUND.E MITCHELL.P MORTON.P OWEN.C HOWITT.H ANDERSON S BELL L BINNS M BROWN L BROWN M CORRIS S DUFFY J ERRINGTON J HINDLE E HINDSON T MAWSON D NORRIS C REEKIE M SHARPE V SMITH K WARBURTON A WARD P DEVINE L APPLEYARD.N BEACH.C CHAMPION.G COATES.S DICKINSON.A ECCLES.I FARMER.L HERMAN.T HODGSON.R PEARSON.K QUINN.S SCHOFIELD.J SYKES.C THACKRAH.C WILKINSON.S STONE.I FLEETWOOD B GARLICK J GREENE S JOHNSON M PEARSON D SCOTHERN M WALSWORTH S HALTON A HODGSON M BOARDMAN S BRIDGES.S CARNEY.D CROSSLEY.S HIGGINSON.S MORTON.P STEPHENSON.MTHOMPSON.N BELLHOUSE R BENTLEY A BYRNE D CHAPMAN L CHARLTON E CLELLAND L DAWES E DAWSON M DOIG K FREEMAN L GIBSON K HANSON D HEWITSON J HUGHES S LITTLE R LYNCH D NEIL J PRYCE V SCARRAT P STABLER J STOKER J TAYLOR S VICKERS C WONG S WOODWARD J BARTLETT.S BROADBENT.A BROOKES.C BURKHILL.S CROSTON.G DIXON.L FLETCHER.G HARWOOD.G JONES.M LEY.A NEWSON.J O'MARA.W PHIMESTER.A ROBINSON.A TAYLOR.W TIDSWELL.G WARWICK.R STAINSBY.N ALDERSON P ATKINSON M BOOTH L FORD H HUNTINGTON VO'DONNELL V PEARSON S PHILLIPS J TIDSWELL S HARGREAVES.DMANTON.P MASHEDER.P RICHARDSON.BWARD.P ARMITAGE M BUCKLER C BULLEN L CANE P DALTON R GREGSON A HELM G HAWORTH J HUGHES S INFIELD J JOHNSON S KIRKLEY L MERCER A RAFTERY S TAYLOR C TAYLOR S WITTON R <((''#(] #$# <!#4!!2! $9# #%!2$"" A#"""4/ & ($#0%%!#-#### ";$(%# I%$#%!$S &"!!8$#!E F"$%& I&&##L&(&&!"V $$#%&X"#"5%%" !!U$!'%$YD7 D"G9 3!G0"O CADE"7);== 8!E T 787!? 9 = H# MT0!&$\!>!$%! ZL  %# L7+  :"!:S!#$&& Z !"#Z  ?!,!""Q!4 E!#M"! "\" 7" FA4"!+0).N"$.!&$"!#%(2"/+00/p%*/01\"#5#&!##+)%;+%'1%*/-'U#+!&B"(*(M#') G $#5"(*%9,(,+V$"&&,5#(-%'L" )(;%-+-K$+'#E!&#*++##!=*-0/.O%(0.0q$%%!"$&''+!"$)$Jd C I#< U"U  G  D  8'd ;AQ  R K  G1[!a  7 Fd Q DXV !  $      #) #$+'#'("    $#) "  ' )&)0!   &" & #!!" #  ( )# "  " u1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL 1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL PSCRB RB PGHEM RB PSCPSCPSCPSCPGHPGHPGHPGH RB PGHEM PSCRB PSCPSCPGHEM PSCPGHPGHRB PSCPGHPGHPSCEM AV MAGMAGMAGMAGMAGMAGMAGGRDAV GRDMAGMAGGRDGRDAV AV MAGGRDGRDMAGMAGMAGMAGGRDGRD AF PDCJSDPB PDCJSDJSD PB PB JSDPB PDCJSDAF AF PDCPDCPDCPDCAF PB PB PB AF AF PB PDCAF PDCPB JSDJSD JC JC IW JHTJHTJHTJHTJC JHTIW IW JC JC IW JC IW IW JHT JC IW JC JC JHTIW IW JHTIW SMIPRIPRITOTWHD SEWFORFORBEEBEESMIHINHINPRIPRIPRIQUITOTKIRWHDWHDDIC Fw d)3.#*E|0 ~S!Y;'3LNI~ :1CL2A22B23A13B24CO &#Ge&"FdX. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 lsweGnWixv fP!ddxa(({IffmHxNt1zGoi((((((d((d(((((d22222x2d.222&T,rdydGO ________________________________A b~ehLAVkxmtufEjY@bSL?TOSm\7IU^ZR]][ZU:XJ5RE?4FBE[M.=GNKDNNLKNdXWcbaUKRNMOYVHP[_\Q`J]ZLT^GIS5 Qmarks#marks N7GP] SPECTRUM MARKBOOK   Jun. 1984 K.W.CLARKE  MENU  7V,V;"WHICH CLASS?":N=IC:10 ;N;". ";C$(N):N =""22 Z= Z>CZ\M;4;N$(N)+("*"I(N)L(Z)N$(N,I)" ");17;F$(N);23;T(N);29;H(N) ?N D="7"B,E:1050 F 502 L 1090B :V,3;"ENTER A TITLE" 23658j\,O:Q$ 23658j\,8 Q$5000 D:V+V,V;"DO YOU WANT TO VERIFY?";14,9 ;"Press y or n" =""1250 "Y"B,E:I 4B,E::V+V,2;"REWIND TAPE AND PRESS 'PLAY'" Q$  DB,20:B,E:17,V+V;1;" VERIFIED ":200:I MENU :3,3;" WHAT DO YOU WANT TO DO?";3;"";8,V;"1. ADD A PUPIL";11 ,V;"2. REMOVE A PUPIL";14,V;"3. CHANGE A MARK";17,V;"4. ESTIMATED MARK FOR";12 ;"ABSENT PUPIL" ="1"B,E:1600@ ="2"B,E:1700 ="3"B,E:1800 ="4"B,E:AP=I:1800  1510 J 20 om:V,O;" CHOOSE A FREE PUPIL NUMBER FROM THE LIST WHICH FOLLOWS";17,9 ;"Press any key":O r 180 :9 ,3; &"WHAT IS THE NAME? ";Q$:Q$;" "; "WHAT FORM? ";L$:L$ N$(Q)=Q$:F$(Q)=L$ 502:B,E:MENU  20  200  180 /B,E::11 ,V;I;" SORTING PLEASE WAIT "  N=QE(Z) HN$(N)=N$(N+I):F$(N)=F$(N+I):T(N)=T(N+I):H(N)=H(N+I):I(N)=I(N+I):N N=QE(Z):J=ICOL M(N,J)=M(N+I,J):J:N cN$(E(Z))=" ":F$(E(Z))=" ":T(E(Z))=O:H(E(Z))=O:I(E(Z))=O:J=ICOL:M(E(Z),J)=O:J MENU  20:200:180 X?:V,O;" IN WHICH COLUMN DO YOU WANT THE MARK ENTERED?" Y(15,6;"If unsure, enter 0" ]J ^J=O3010 `&:V,V;"WHAT IS THE NEW MARK? ":MA b^:3,3;I;I;" CLASS: ";C$(Z):6,4;N$(Q);18;MA;" IN COL. ";J gB14,V;"IS THIS CORRECT?";16,6;"(Y)es or (N)o" k=""1899k l"Y"B,E:1500 v}B,E:I(Q)=I(Q)-(C(Z,J)AP=0):T(Q)=T(Q)-M(Q,J):I(Q)=I(Q)+C(Z,J):M(Q,J)=MA:T(Q)=T(Q)+MA:T(Q)=OH(Q)=O:1930 (H(Q)=((T(Q)/I(Q))*100d+.5) AP=O MENU [OM=I::2,9 ;" ORDER OF MERIT ";7,9 ;" NUMBER TO SORT " Q=E(Z)-B(Z)+I:R(Q) @I;10 ,16;Q:I;15,10 ;" PLEASE WAIT " U=OXXPE2500 L=I  N=B(Z)E(Z) R(L)=N:L=L+I N  9840p& >B,20:B,E HAXXPE:11 ,6;I;"SORTING PLEASE WAIT":2500 I 150 WL=I \ N=QI-I a2N$(R(N),1)=" "L:L=L+1:2156l ggL;4;N$(R(N))+(" *"I(R(N))L(Z));18;F$(R(N));23;T(R(N));29;H(R(N)):L=L+I lL=172161q pN q300,:Q>16 rN=Q-16I-I t2N$(R(N),1)=" "L:L=L+1:2166v ugL;4;N$(R(N))+(" *"I(R(N))L(Z));18;F$(R(N));23;T(R(N));29;H(R(N)):L=L+I v[(L-17)/22=((L-17)/22)300,:N=N-1:LQ:2164t xN y 502 z="7"B,E:2120H  2169y U=IXX=PE "U=I:TT=O:L=O:SE=I2630F N=B(Z)E(Z) %PE=0T(N)=02540 %PE=1H(N)=02540 L=L+1 +TT=TT+(H(N)PE=1)+(T(N)PE=0) N L=OMN=O:STD=O: MN=TT/L SMD=O N=1(E(Z)-B(Z)+1) 2PE=1H(N+B(Z)-1)=02590 2PE=0T(N+B(Z)-1)=02590 HDV=(H(N+B(Z)-1)-MNPE=1)+(T(N+B(Z)-1)-MNPE=0) SMD=SMD+DV*DV N %STD=(SMD/L-I) ('MN=(MN*100d+.5)/100d 2)STD=(STD*100d+.5)/100d 7XX=PE < FN=1(E(Z)-B(Z)+1) P%PE=1U(N)=02680x Q%PE=0O(N)=02680x U L=L+1 Z+TT=TT+(U(N)PE=1)+(O(N)PE=0) xN }L=OMN=O:STD=O: MN=TT/L SMD=O N=1(E(Z)-B(Z)+1) %PE=1U(N)=02740 %PE=0O(N)=02740 .DV=(U(N)-MNPE=1)+(O(N)-MNPE=0) SMD=SMD+DV*DV N 2595# 20 :I;I;"CLASS ";C$(Z);" " S=3:W=I H2,12 ;I;X$(S-IS+13 );( " TOT."PE=O);(" TOT%"PE=I) fE(Z)-B(Z)<18BEG=B(Z):END=E(Z):4700\:N=BEGEND:4000:N:4500:3030 BEG=B(Z):END=BEG+16 >4700\:N=BEGEND:4000:N:4500:3050 \4700\::BEG=B(Z)+17:END=E(Z):N=BEGEND:4000:N:4500:3060 N$(N)=" ": N$(N);13 ;M(N,W);16;M(N,W+1);19;M(N,W+2);22;M(N,W+3);25;M(N,W+4);29;(T(N)PE=O)+(H(N)PE=I)  -="7"E(Z)-B(Z)18B,E::3040 -="6"E(Z)-B(Z)18B,E::3060 *="9"S=S-15:W=W-V:4800: )="8"S=S-3:W=W-I:4800: )="5"S=S+3:W=W+I:4800: *="4"S=S+15:W=W+V:4800: ="P"PE=I:B,E:: ="T"PE=O:B,E:: ="S"B,E:8100 502:4500 \UO,O;I;I;"CLASS ";C$(Z);" ":PE=O0,24;"MAX=";(L(Z)SE=O)+(TLSE=I) fI2,12 ;I;X$(S-IS+13 );(" TOT."PE=O);(" TOT%"PE=I): S<3S=3  S>X$-13 S=X$-13  WCOL-4W=COL-4  JV:O:PE=O:SE=O:OM=O:U=O:236099\,502:23658j\,8: N=IV:A$:N #I,6;"" )2,6;"MARKBOOK OPTIONS" -3,6;""'''' V;"1. VIEW MARKS"''V;"2. CURRENT TOTALS"''V;"3. ENTER MARKS"''V;"4. ENTER NAMES"''V;"5. MAKE ALTERATIONS"''V;"6. SAVE TO TAPE"''V;"7. INITIALISE MARKBOOK" 5O,135:O,-135:255,O:O,135 =""5030 ="1"B,E:3000 ="3"B,E:7000X ="5"B,E:1500 ="4"B,E:8000@ ="7"B,E:9700% ="2"B,E:1000 ="6"B,E:1200  5030 b 20 lj:9 ,O;" IN WHICH COLUMN DO YOU WANT THE MARKS ENTERED?"'''';6;"(If unsure, enter 0)":Q vQ=O3010 {Q>COL7020l C(Z,Q)07020l 714,O;"WHAT ARE THE MARKS OUT OF?":X:C(Z,Q)=X %L=O:N=ICOL:L=L+C(Z,N):N:L(Z)=L 0:I,8;I;I;" ENTER MARKS ";C$(Z);" "'' L=I  N=B(Z)E(Z) ,N$(N)=" "M(N,Q)=O:7125 1(N$(N)),Q$:Q$="A"M(N,Q)=O:AB=I:7125  M(N,Q)=Q$ :I(N)=I(N)+X ,L;" ";N$(N);" ";M(N,Q);("(ABS.)"AB=I) AB=O L=L+I N *:I,6;I;O;"SORTING PLEASE WAIT" QN=B(Z)E(Z):F=0:G=ICOL:F=F+M(N,G):G:T(N)=F:F=OH(N)=O:7149 %H(N)=((F/I(N))*100d+.5) N B,20:B,E:MENU JF:V,3;"GIVE THE NAME OF THE CLASS"," (3 CHRS)":Q$ T&9 ,O;" HOW MANY PUPILS?":Q ^4C$(CLASS)=Q$:B(CLASS)=NO+I:E(CLASS)=NO+Q+4 h(:I,10 ;I;I;" CLASS ";Q$;" " mL=I:N=B(CLASS)E(CLASS) r""INPUT NAME";N$(N):L;" ";N$(N), |""INPUT FORM(3CHRS)";F$(N):F$(N) L=L+I N  NO=E(CLASS) CLASS=CLASS+I MENU 6Q=E(Z)-B(Z)+I:O(Q):U(Q):V(15):N=I15 %21,8;"SELECTIVE TOTAL" &"ENTER COLUMN No's(0 to exit) ";V(N) V(N)=O8125 N 721,6;I;"SORTING PLEASE WAIT":L=I:TL=O "J=I15:V(J)=O8138 TL=TL+C(Z,V(J)) J K=TL  N=B(Z)E(Z) "N$(N)=" "8200 J=I15 V(J)=O8194 O(L)=O(L)+M(N,V(J)) M(N,V(J))=OTL=TL-C(Z,V(J)) J &TL=0U(L)=0:8198 &U(L)=((O(L)/TL)*100d+.5) TL=K  L=L+I:N #SE=I:2500 :B,20:B,E ?L=I::I;I;"SEL.TOTAL CLASS: ";C$(Z):O,23;"MAX=";TL 400:2,4;"MEAN=";MN;("%"XX=1):4;"ST. DEV.=";STD;("%"XX=1):4,O;I;O$:3;"NAME";17;"TOTAL";23;"TOTAL%":V,O;I;O$ *E(Z)-B(Z)<16BEG=B(Z):82422 N=B(Z)B(Z)+15 !"N$(N,1)=" "L:82400 &[L;3;N$(N)+(" *"U(L)ɺ((O(L)/K)*100d+.5));18;O(L);24;U(L) 0L=L+I:N:SE=I:300, 1BEG=B(Z)+16: 2 N=BEGE(Z) 3)N$(N,1)=" "L:L=L+I:82488 6bL;3;N$(N)+(" *"U(L)ɺ((O(L)/K)*100d+.5));18;O(L);24;U(L):L=L+I 7=(L-17)/22=((L-17)/22)300,: 8 N:SE=I : 502 D=="7"B,E:(8210 OM<2)+(8390 OM=2) l 8250: vR(Q)::2,6;" SEL. ORDER OF MERIT ";7,8;" NUMBER TO SORT ";10 ,15;I;Q:15,9 ;I;" PLEASE WAIT " N=IQ:R(N)=N:N 9840p& OM=2:B,20:B,E AXXPE:11 ,6;I;"SORTING PLEASE WAIT":2500 150 400:6,O; L=I N=QI-I ?N$(R(N)+B(Z)-1,1)=" "L:L=L+1:8440 L;4;N$(R(N)+B(Z)-1)+(" *"U(R(N))ɺ((O(R(N))/K)*100d+.5));18;F$(R(N)+B(Z)-1);23;O(R(N));29;U(R(N)):L=L+I L=178445 N:8250: 300, Q>16 N=Q-16I-I !?N$(R(N)+B(Z)-1,1)=" "L:L=L+1:8460 ! !L;4;N$(R(N)+B(Z)-1)+(" *"U(R(N))ɺ((O(R(N))/K)*100d+.5));18;F$(R(N)+B(Z)-1);23;O(R(N));29;U(R(N)):L=L+I ! U(L-17)/22=((L-17)/22)300,:N=N-I:LQ:8448! !N ! 8250: %:3,11 ;I;2;" WARNING "'''':" IF YOU CONTINUE WITH THIS OPTION, YOU WILL WIPE OUT ALL DATA FROM MEMORY."'''':" DO YOU WISH TO CONTINUE?"'''" Press (y)es or (n)o" %B,-20:B,-E %=""9712% %"Y"B,E:menu %B,E %F:V,O;" HOW MANY PUPILS DO YOU WISH TO HAVE IN THIS MARKBOOK?" &q &=9 ,O;" HOW MANY CLASSES ARE THERE?":c:p=q+c*4 &F12 ,O;" HOW MANY MARKS DO YOU WANT TO RECORD FOR EACH PUPIL?" & COL &uL(C):C(C,COL):I(P):H(P):no=O:class=I:n$(p,12 ):m(p,COL):f$(p,3):t(p):c$(C,3):b(c):e(c) &X$="":N=ICOL & N<10 X$=X$+" "+N &*&N10 N<100dX$=X$+" "+N &/N100dX$=X$+N &4N &9 X$=X$+" " &HMENU &qY=I &r Y=2*Y &sY09848x& & 9851{& &T(R(ZI))T(R(J))9854~& & 9851{& &O(R(ZI))O(R(J))9854~& & 9851{& enqcpoTTTTTTTTTTTTTTTTTTTTTTTTTTTTTdd,,,,,,,,,,,,,,,,,,,,,,,,rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrdddddddddddddddddddddd`LB<G,GKG;#:HCN*SW,2FLHRTZYEVX@<=G9;L7K<?BEB5<?C<IP?=;G>ALGL0WAWJ0P<:<BJ8ZT/@>NCGLTEJF;.N5-1:*]U33A;PAGB4AMBJ>JC?;SZ8;ENB=GCKB?3V?=B:<41JU4>P6=IF952A>#:K23@4BX+0;B90C3las  BIRD.S BOYDELL.J CLARKE.G CLINNING.A COURBET.C DOBSON.A DORAN.R EVERSON.S GALLAGHER.S GREENE.L HARTIN.D HOBART.C HOYLE.A HUGGINS.J MANTLE.C GITTOES.A CANE B BRAZIER T BRETT D BROWN A DYMOCK S ELLICE K JACQUET J MORGANS J MORGANS S MURGATROYD FNAVIN W TATUM S WAKEFIELD D ROBERTSON E BERRY.S BIDDLES.L BLEASDALE.M BROWNING.N CAMBIDGE.B EDWARDS.I GRAHAM.P HOLT.J LAMBERT.D LUND.E MITCHELL.P MORTON.P OWEN.C HOWITT.H ANDERSON S BELL L BINNS M BROWN L BROWN M CORRIS S DUFFY J ERRINGTON J HINDLE E HINDSON T MAWSON D NORRIS C REEKIE M SHARPE V SMITH K WARBURTON A WARD P DEVINE L APPLEYARD.N BEACH.C CHAMPION.G COATES.S DICKINSON.A ECCLES.I FARMER.L HERMAN.T HODGSON.R PEARSON.K QUINN.S SCHOFIELD.J SYKES.C THACKRAH.C WILKINSON.S STONE.I FLEETWOOD B GARLICK J GREENE S JOHNSON M PEARSON D SCOTHERN M WALSWORTH S HALTON A HODGSON M BOARDMAN S BRIDGES.S CARNEY.D CROSSLEY.S HIGGINSON.S MORTON.P STEPHENSON.MTHOMPSON.N BELLHOUSE R BENTLEY A BYRNE D CHAPMAN L CHARLTON E CLELLAND L DAWES E DAWSON M DOIG K FREEMAN L GIBSON K HANSON D HEWITSON J HUGHES S LITTLE R LYNCH D NEIL J PRYCE V SCARRAT P STABLER J STOKER J TAYLOR S VICKERS C WONG S WOODWARD J BARTLETT.S BROADBENT.A BROOKES.C BURKHILL.S CROSTON.G DIXON.L FLETCHER.G HARWOOD.G JONES.M LEY.A NEWSON.J O'MARA.W PHIMESTER.A ROBINSON.A TAYLOR.W TIDSWELL.G WARWICK.R STAINSBY.N ALDERSON P ATKINSON M BOOTH L FORD H HUNTINGTON VO'DONNELL V PEARSON S PHILLIPS J TIDSWELL S HARGREAVES.DMANTON.P MASHEDER.P RICHARDSON.BWARD.P ARMITAGE M BUCKLER C BULLEN L CANE P DALTON R GREGSON A HELM G HAWORTH J HUGHES S INFIELD J JOHNSON S KIRKLEY L MERCER A RAFTERY S TAYLOR C TAYLOR S WITTON R <((''#(] #$# <!#4!!2! $9# #%!2$"" A#"""4/ & ($#0%%!#-#### ";$(%# I%$#%!$S &"!!8$#!E F"$%& I&&##L&(&&!"V $$#%&X"#"5%%" !!U$!'%$YD7 D"G9 3!G0"O CADE"7);== 8!E T 787!? 9 = H# MT0!&$\!>!$%! ZL  %# L7+  :"!:S!#$&& Z !"#Z  ?!,!""Q!4 E!#M"! "\" 7" FA4"!+0).N"$.!&$"!#%(2"/+00/p%*/01\"#5#&!##+)%;+%'1%*/-'U#+!&B"(*(M#') G $#5"(*%9,(,+V$"&&,5#(-%'L" )(;%-+-K$+'#E!&#*++##!=*-0/.O%(0.0q$%%!"$&''+!"$)$Jd C I#< U"U  G  D  8'd ;AQ  R K  G1[!a  7 Fd Q DXV !  $      #) #$+'#'("    $#) "  ' )&)0!   &" & #!!" #  ( )# "  " u1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL 1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL1CL PSCRB RB PGHEM RB PSCPSCPSCPSCPGHPGHPGHPGH RB PGHEM PSCRB PSCPSCPGHEM PSCPGHPGHRB PSCPGHPGHPSCEM AV MAGMAGMAGMAGMAGMAGMAGGRDAV GRDMAGMAGGRDGRDAV AV MAGGRDGRDMAGMAGMAGMAGGRDGRD AF PDCJSDPB PDCJSDJSD PB PB JSDPB PDCJSDAF AF PDCPDCPDCPDCAF PB PB PB AF AF PB PDCAF PDCPB JSDJSD JC JC IW JHTJHTJHTJHTJC JHTIW IW JC JC IW JC IW IW JHT JC IW JC JC JHTIW IW JHTIW SMIPRIPRITOTWHD SEWFORFORBEEBEESMIHINHINPRIPRIPRIQUITOTKIRWHDWHDDIC Fw d)3.#*E|0 ~S!Y;'3LNI~ :1CL2A22B23A13B24CO &#Ge&"FdX. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 lsweGnWixv fP!ddxa(({IffmHxNt1zGoi((((((d((d(((((d22222x2d.222&T,rdydGO ________________________________A b~ehLAVkxmtufEjY@bSL?TOSm\7IU^ZR]][ZU:XJ5RE?4FBE[M.=GNKDNNLKNdXWcbaUKRNMOYVHP[_\Q`J]ZLT^GIS5 Qmarks