" :PG$"TEST":NM$"26":62000 ; " TEST BY GARY MARSA W " 320 TERRACE, APT. 2-S q " FLUSHING, MI. 48433 w : " CURSOR #26, JUNE 1981 " COPYRIGHT(C)1981 THE CODE WORKS " BOX 550, GOLETA, CA 93116 "
AS OF 18JUN81 7d I0:J0:K0:GP(5),GN(5),H(12),M(11):NS1:QL245:(50000)QL216 mn B$(1):E$(129):BL$" ":CH$"" x 11)"MENU #1 -- OPENERS":60500 " 1 -- DEMONSTRATION":" 2 -- WRITE DATA STATEMENTS " 3 -- RUN YOUR DATA" * "WHICH ONE? ";:60000:V(IN$):V1V3"":150 = V180,170,230 T "";:49995999: h S::S1230 "RANDOM SCORES":"COUNTING...";:N(TI) N(40(1)30):S(N),PC(N):I1N:S(I)(61(1)40): N"SCORES":PP100:BSPP:I1N:S(I)BSBSS(I) ! :620:240 [ "HOW MANY POINTS ARE POSSIBLE? ";:60000:PP(IN$) k IN$""230 PP1PP999"CAN'T HANDLE THAT.":230 560:660:800:870 MU2:X$"SCREEN":1580 A1(C$):V((C$,A,1)):V270,280,350,380,1700 1200:360 980 0"DR3NS2:DR2360 c,QL,22:"RECALCULATE ADJUSTED SCALE (Y/N)? "; {660000:IN$"N"370 @IN$"Y"300 JQL,22:" " TQ22:1690:750:1060:290 ^1340:"";21)"HIT A KEY TO GO ON":540:370 h530 * rA:250 U |"TURN ON PRINTER AND LOAD PAPER. { "PRESS ANY KEY WHEN READY.":540 "COURSE NAME? ";:60000:CO$IN$ "DATE OF TEST? ";:60000:D$IN$ GC$"": GRAPH GC$""GC$"*" !
GC(GC$):GC33(GC128GC161)GC$"*" N
MU3:X$"PRINTER":1580:(C$,1)"4"250 d
(C$,1)"5"1700
4,4:4:B$CO$" --"PP"POINT TEST":
B$"GIVEN ON "D$:
A1(C$):V((C$,A,1)):V3500
V1260,1100,1460:A
4:4:V4250 V51700 440 ; QL,24:"PRESS ANY KEY TO CONTINUE..."; N A$:A$""540 T & u 0"COUNTING...";:N0: :S:S1590 ? SPP NN1: 570 D"ERROR! TEST SCORE OF";S;"IS" E"GREATER THAN MAX SCORE OF";PP;"." I120 - NN"SCORES":S(N),PC(N):BSPP::I1N:S(I) B XS(I)BSBSS(I) H b d lS:"SORTING";:N2650 qI2N:KS(I):JI111 vS(J)KS(J1)K:645 S(J1)S(J):J:S(1)K ".";:I "": "COMPUTING STATS...":N2(N2)680 M(N2)1:MDS(M):690 3MD(S(N2)S(N21))2 bT0:I1N:TTS(I)::MN(10(TN).5)10 X0:I1N:V(S(I)MN)2:XXV::SD(10(X(N1)).5)10:SSD GP(0)BS1:I14:X:GP(I)((X100)PP.5): X0:GN(0)BS1:I301:GN(4I)(MN(I1.5)S.5) 3GN(4I)PPGN(4I)PPX:XX1 ;: nR11:R2N:F1:I1N:FS(I)MNDRSDR1I:F0 S(I)MNDRSDR2I1:IN :NSNS1:R11R2NCH$"NO CHANGE": X0:IR1R2:V(S(I)MN)2:XXV::S(10(X(R2R11)).5)10 720 C1 *X1 $4CXN850 9>S(CX)S(C)850 HHXX1:820 RICCX1:PC(I)(((NC.5X1)N)100)::CCX:CN810 \ f"SETTING UP GRAPH...":LGS(N) gMC11:HS(PPLG1)(MC1) hHS1HS1:MCPPLG lI0MC1:H(I)(LGIHS.5):I:891 <{I0MC:M(I)0:JN11:S(J)H(I1)920 dS(J)H(I)S(J)H(I1)M(I)M(I)1 kJ I:BH0:I0MC:M(I)BHBHM(I) :FG1:BH20950 FG2:BH40BH40 X(X):X0X1 Y2((X)(10)): "";5)"NUMBER OF SCORES.........."N D"";5)"MEDIAN...................."MD o"";5)"MEAN......................"MN "";5)"STANDARD DEVIATION........"SD"":Q2 I12:1690:Q22::QL,11:13)"GRADING SCALES 4)"PERCENT-BASED":I15:XGP(I):960 2"";3)(64I)" --";7Y)GP(I)" TO"; [XGP(I1)1:960:Y)GP(I1)1" ": $QL,13:24)"ADJUSTED ("(48NS)")":I15 .XGN(I):960:"";23)(64I)" --";27Y)GN(I)" TO"; 8XGN(I1)1:960:Y)GN(I1)1" ": B26)CH$:CH$"": +LB$"NUMBER OF SCORES.........."N QVB$"MEDIAN...................."MD w`B$"MEAN......................"MN jB$"STANDARD DEVIATION........"SD: t"PERCENT-BASED GRADING SCALE";13)"ADJUSTED GRADING SCALE"; ~" ("(48NS)")"::I15:XGP(I):960 45)B$;(64I);E$" --";Y)GP(I)"TO"; XXGP(I1)1:960:Y)GP(I1)1; XGN(I):960:23)B$;(64I);E$" --";Y)GN(I)"TO"; XGN(I1)1:960:Y)GN(I1)1::: "";9)" SCORES & PERCENTILES " Q10:I1N:(I1)20((I1)20)"":QQ10 +Q30Q0:530:"" H(S(I)MN)2.5SD""; gXS(I):960:QY)S(I)""; XPC(I):960:QY4)PC(I):: B$;7)"** SCORES & PERCENTILES **" B$;7)"" N4(N4):N4N4N4N41
I1N4:J03:Q5:J0Q12 -IN4JN1330 S XS(IN4J):960:QY)S(IN4J); |(XPC(IN4J):960:Y)PC(IN4J);:J 2:I:: <SGCRTWD213 :" DISTRIBUTION GRAPH F" " PI120:" ̥": FZ"";:I019:FG(20I)10" "; _d((FG(20I)),2): nI0MC:3I3)((H(I)),2);:: xI0MC:3I3)((H(I1)1),2);: I0MC:M(I)01450 FG2M(I)1SG,98:1450 J1M(I)FG:JFGBHSG800,158:1450 (SGWD(J1),160:J QM(I)FG(M(I)FG)SGWD(J1),98 bSGSG3:I: B$;8)"** DISTRIBUTION GRAPH **" B$;8)"" 4)"";:I0MC:M(I)BH1500 5)"^";:1510 5)" "; ::I0BH1:BHI10" "; DBHI"";:J0MC:M(J)BHI5)GC$;:1540 Q5)" "; uJ::I:5);:I174:"";:: 6);:I0MC:XH(I):960:1Y)H(I);:: 6);:I0MC:XH(I1)1:960 "1Y)H(I1)1;:::: ,"";6)"MENU #"MU"-- OUTPUT TO "X$ 8660500:" 1 -- PRINT SORTED SCORES WITH t@8)"PERCENTILES":" 2 -- PRINT STATS (MEDIAN, MEAN, J8)"STANDARD DEVIATION) AND":8)"GRADING SCALES T" 3 -- PRINT DISTRIBUTION BAR GRAPH" ^" 4 -- GO TO MENU #"5MU:" 5 -- END PROGRAM" Ih"ENTER YOUR CHOICES AS A STRING, SUCH AS '2134'. nr"YOUR CHOICES? ";:60000:C$IN$ |I1(C$):V((C$,I,1)):V1V5"":1650 : QL,13:"";:J18:Q)BL$:: "": DATA HERE 75,75,60,65,80,85,80,85,90,95 - o-1: END OF DATA FLAG P '# A B C D GRADE PERCENTS b (# 90,80,70,60 `IN$" ":ZTTI:ZC2:ZD$(20) jZ$:Z$""60070 tZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15 ~60010 Z(Z$):ZL(IN$):(Z127)32" ";:60110 4 FL(Z127)64(Z127)91Z$((Z128)255) F ZL25460010 a IN$IN$Z$:Z$;ZD$;Z$; Z13IN$(IN$,2):CR$;: Z20ZL1IN$(IN$,ZL1):"";:60010 Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:60000 60010 ""::60400:100 CRT32768:CR$(13) K WD40:CRT,96:(CRT1024)96WD80:(142); Q q TI113:"";:I:"": 059468,12 5"";15(PG$));PG$;" BY GARY MARSA :" CURSOR #";NM$;" COPYRIGHT (C) 1981 D60500 N"ANALYZE TEST SCORES (NEEDS 16K) 0 "PRESS RETURN TO BEGIN" G IN$:IN$""62090 R 60300
