:d MARK AVERAGER PROGRAM FOR COMPUTER SCIENCE GRADE 1_n FOR THE COMMODORE 64 COMPUTER¦x THIS PROGRAM KEEPS TRACK OF A SEMESTER'S MARKS BY AVERAGING WORK¬‚:²Œ:Ò– PROGRAMMER: W.J. THOMPSONì  ADDRESS : BOX 608 ª CITY : INDIAN HEAD* ´ PROVINCE : SASKATCHEWAN.D ¾ POSTAL C. : S0G 2K0J È:n Ò VARIABLES AND THEIR MEANINGS:t Ü:œ æ CLASS ASSIGNMENT MODULE VARIABLES¢ ð:Ê ú X1 = DIVISOR(AVERAGE DIVISOR)ï  B = DIM(CLASS ASSIGNMENT)  A1 = FOR/NEXT LOOP AND SUBJECT NUMBERD  D1 = TOTAL(POSSIBLE MARKS)k " E1 = EARNED MARKS BY STUDENT , G1 = INDIVIDUAL GRADE PERCENTAGE EARNED¾ 6 B(A1) = G1 = GRADE EARNEDë @ S1 = SUM OF CLASS ASSIGNMENT MARKS J CA = CLASS ASSIGNMENT AVERAGE2 T N$ = NAME OF STUDENTR ^ UT$ = COURSE TERM DATEs h PN$ = NAME OF PROFESSORy r:¤ | HOMEWORK ASSIGNMENT MODULE VARIABLESª †:Ñ  X2 = DIVISOR(AVERAGE DIVISORî š B1 = DIM(HOMEWORK) ¤ A2 = FOR/NEXT LOOP AND SUBJECT NUMBERC ® D2 = TOTAL(POSSIBLE MARKS)j ¸ E2 = EARNED MARKS BY STUDENTœ  G2 = INDIVIDUAL GRADE PERCENTAGE EARNED½ Ì B1(A2)=G2 = GRADE EARNEDî Ö S2 = SUM OF HOMEWORK ASSIGNMENTS MARKS à HW = HOMEWORK ASSIGNMENT AVERAGE ê:; ô WHIZ KIDS QUIZ MODULEA þ:i  X3 = DIVISOR/AVERAGE DIVISOR)Š  B2 = DIM(WHIZ QUIZZES)º  A3 = FOR/NEXT LOOP AND SUBJECT NUMBERß & D3 = TOTAL(POSSIBLE MARKS)0 E3 = EARNED MARKS BY STUDENT1: G3 = INDIVIDUAL PERCENTAGE ERNEDSD B2(A3)=G3 = GRADE EARNEDyN S3 = SUM OF WHIZ QUIZ MARKSšX WQ = WHIZ QUIZ AVERAGE b:ºl MIDTERM EXAM MODULEãv MARKS DISTRIBUTION PRINTOUT MODULEé€: Š X4 = DIVOSOR)MIDTERM MARKS(” B3 = DIM(MIDTERM)Wž A4 = FOR/NEXT LOOP AND SUBJECT NUMBER~¨ MM = INDIADUAL PERCENT EARNED¢² B3(X4)=MM = GRADE ASSIGNEDļ S4 = SUM OF MIDTERM MARK߯ M5 = MIDTERM MARKúÐ FINAL EXAM VARIABLESÚ:"ä X5 = DIVISOR(FINAL EXAM);î B4 = DIM(FINAL)eø A5 = FOR/NEXT AND SUBJECT NUMBERˆ FM = FINAL PERCENT EARNED«  B4(X5) = FM = FINAL GRADEÌ S5 = SUM OF FINAL MARKSæ  F5 = FINAL MARKSþ* STRING VARIABLES:4:"> N$ = NAME OF STUDENTDH UT$ = NAME OF COURSE TERMdR PN$ = NAME OF PROFESSOR…\ F$ = DISK SEQ. FILENAME¦f FX$ = TAPE SEQ. FILENAME¬p:Ïz E2$ = HOMEWORK STRING(VAL)ó„ E3$ = WHIZ QUIZ STRING(VAL)Ž MM$ = MIDTERM STRING(VAL):˜ FM$ = FINAL EXAM STRING(VAL)FÆ 30000sÐ INITIALIZATION AND DIMENSIONING MODULEyÚ:˜ä™Ç(147): CLEAR THE SCREENžîœ¾ø™:™"ENTER NAME OF STUDENT:"Ç… N$Ú ‹ N$²"" § 2050ö™"ENTER SEMESTER PART:" … UT$*‹ UT$²"" § 207014™"ENTER PROFESSOR NAME:";>… PN$OH‹ PN$²"" § 2100yR™"1.CLASS ASMTS - ENTER NO. OF MARKS"‚\… X1–f‹ X1³1 § ‰ 2130¼z™"2.HOMEWORK - ENTER NO. OF MARKSÅ„… X2ÙŽ‹ X2³1 § ‰ 2170¢™"3. WHIZ QUIZZES - ENTER NO. OF MARKS"¬… X3"¶‹ X3³1 § ‰ 2210bÊX4²1:X5²1: DIMENSION THE MIDTERM AND FINAL EXAMS TO 1 EACHŠÔ† B(X1),B1(X2),B2(X3),B3(X4),B4(X5)°¸ CLASS ASSIGNMENT MODULE PROGRAM¶Ì :ÖÖ ™ Ç(147): CLEAR THE SCREENìà —53281,1:—53280,7'ê — 53280,5:— 53281,1:— 646,2: GRNBORD;WHTBKGD;RED CHARKô ™:™ £8);"AVERAGE CALCULATOR:":™qþ ™:™"I. CLASS ASSIGNMENT MODULE":™” ™:™"NO. OF MARKS/DIVISOR: ";X1¢ A1²1¤ X1¨& ™À0 ™"THE ;";A1;"GRADE"æ: …"FIRST, ENTER POSSIBLE MARKS";D1D ‹ D1³1 § ™"TRY AGAIN":‰ 3110N ™"THE ;";A1;"GRADE"CX …"THEN, ENTER EARNED MARKS";E1$Wb ‹ E1$²"" § 3160el E1²Å(E1$)xv G1²(E1¬100)­D1…€ B(A1)²G1‘Š ™ B(A1)š” ‚ A1£ž S1²0³¨ A1²1 ¤ X1ò S1²S1ªB(A1)̼ ‚ A1ÙÆ CA²S1­X1Ð ™:™"CLASS ASSIGNMENT AVERAGE = ";CAÚ P1²(CA¬10)­100Cä ™:™ £5);"PRESS ANY TWO KEYS TO CONTINUE.."]î ¡ ZZ$:‹ ZZ$²"" § 3310wø ¡ ZZ$:‹ ZZ$²"" § 3320   HOMEWORK ASSIGNMENT MODULE PROGRAM¦ª:¬¾:¹È™ Ç(147)äÒ™:™"II. HOMEWORK ASSIGNMENT MODULE:":™ÿÜ™:™"NO. OF MARKS: ";X2ð A2²1 ¤ X2/ú™"THE ";A2;"GRADE........."R…"FIRST, ENTER TOTAL MARKS";D2s‹ D2³1 § ™"TRY AGAIN":‰ 4100“™"THE ";A2;"GRADE........."¶"…"NOW, ENTER EARNED MARKS";E2$Ê,‹ E2$²"" § 4130Ø6E2²Å(E2$)ë@G2²(E2¬100)­D2ùJB1(A2)²G2T™ B1(A2)^‚ A2hS2²0(r A2²1 ¤ X29|S2²S2ªB1(A2)B†‚ A2OHW²S2­X2yš™:™"HOMEWORK ASSIGNMENT AVERAGE: ";HW¨¤™:™ £5);"PRESS ANY TWO KEYS TO CONTINUE.."®¡ ZZ$:‹ ZZ$²"" § 4270ܸ¡ ZZ$:‹ ZZ$²"" § 4280ˆ WHIZ KIDS QUIZ ASSIGNMENT MODULE ’:¦:,°™ Ç(147): CLEAR SCREEN^Yº™:™"III. WHIZ QUIZ ASSIGNMENT MODULE:":™|Ä™:™"NO. OF MARKS-DIVISOR: ";X3ŒØ A3²1 ¤ X3¬â™"THE ";A3;"GRADE........."Ïì…"FIRST, ENTER TOTAL MARKS";D3ðö‹ D3³1 § ™"TRY AGAIN":‰ 5100™"THE ";A3;"GRADE........."3 …"NOW, ENTER EARNED MARKS";E3$G‹ E3$²"" § 5130UE3²Å(E3$)h(G3²(E3¬100)­D3v2B2(A3)²G3ƒ<™ B2(A3)ŒF‚ A3œP A3²1 ¤ X3­ZS3²S3ªB2(A3)¶d‚ A3ÃnWQ²S3­X3îx™:™"WHIZ QUIZ ASSIGNMENT AVERAGE: ";WQ‚™:™ £5);"PRESS ANY TWO KEYS TO CONTINUE.."7Œ¡ ZZ$:‹ ZZ$²"" § 5260Q–¡ ZZ$:‹ ZZ$²"" § 5270kp MIDTERM EXAM MODULEqz:~„™ Ç(147)®Ž™:™:™"IV. ENTER THE MIDTERM EXAM MARK (%) "¸˜… MM$Ì¢‹ MM$²"" § 6030Ú¬MM²Å(MM$)è¶B3(A4)²MMÀ™:™"THE MIDTERM MARK: ";B3(A4);"%"2Ê™:™"PRESS ANY 2 KEYS FOR MENU"LÔ¡ ZZ$:‹ ZZ$²"" § 6100fÞ¡ ZZ$:‹ ZZ$²"" § 6110€X FINAL EXAM MODULE†b:“l™ Ç(147)ªv™"FINAL";A5;"MARK"×€™:™:™"V. ENTER THE FINAL EXAM MARK (%) "ኅ FM$õ”‹ FM$²"" § 7040žFM²Å(FM$)¨B4(A5)²FM;²™:™"THE FINAL EXAM MARK: "; FM;"%"^¼™:™"PRESS ANY 2 KEYS FOR MENU"xÆ¡ ZZ$:‹ ZZ$²"" § 7110’С ZZ$:‹ ZZ$²"" § 7120±@ CALCULATION MARKS MODULE·J:ÄT™ Ç(147)×^P1²(CA¬10)­100êhP2²(HW¬10)­100ýrP3²(WQ¬10)­100|P4²(MM¬20)­100#†P5²(FM¬50)­100=MM²(P1ªP2ªP3ªP4ªP5)¬2MšMM²µ(MMª.5)e¤FM²(P1ªP2ªP3ªP4ªP5)u®FM²µ(FMª.5)•³‹ MM±100 ¯ FM±0 § MM²(MM­2) ¸‰ 1990¼(# MARKS PRINTOUT MODULEÂ2#:Ï<#™ Ç(147)ÜF#Ÿ 4,4:4âP#:ìZ#˜4:˜4 d#˜4:˜4,£20);"EXAMINATION STATEMENT: "@ n#˜4,£20);"DISTRIBUTION OF MARKS :":˜4f x#˜4,£10);"SEMESTER PART: ";:˜4,UT$ˆ ‚#˜4,£10);"PROFESSOR: ";:˜4,PN$± Œ#˜4:˜4,£10);"STUDENT'S NAME: ";:˜4,N$Ð –#˜4,£20);"GRADE STANDINGS:" ! #˜4,£10);"--------------------------------------------">!ª#˜4:˜4,£10);"GREAT DISTINCTION = 85% - 100%"m!´#˜4,£10);"DISTINCTION = 80% - 84%"œ!¾#˜4,£10);"PASSING GRADE = 50% - 79%"Ë!È#˜4,£10);"FAILING GRADE = 0% - 49%"Ò!Ò#˜4 "Ü#˜4,"---------------------------------------------"="æ#˜4,£10);"NAME OF ASSIGNMENT----MARKS ASSIGNED:"t"ð#˜4,"---------------------------------------------"«"ú#˜4,£10);"I. CLASS ASSIGNMENTS: (10%) ";:˜4,P1â"$˜4,£10);"II. HOMEWORK ASSM'NTS: (10%) ";:˜4,P2#$˜4,£10);"III. WHIZ KIDS ASS'NTS: (10%) ";:˜4,P3P#$˜4,£10);"IV. MIDTERM EXAMIN : (20%) ";:˜4,P4‡#"$˜4,£10);"V. FINAL EXAMINATION: (50%) ";:˜4,P5Ï#,$˜4,"--------------------------------------------------------------"ù#6$˜4,£10);"TOTAL POSSIBLE MARKS: 100"A$@$˜4,"--------------------------------------------------------------"H$J$˜4r$T$˜4,£30);"1. MIDTERM MARK: ";:˜4,MMz$^$˜4,¤$h$˜4,£30);"2. FINAL MARK: ";:˜4,FM«$r$˜4²$|$˜4¹$†$˜4À$$˜4Ç$š$˜4Î$¤$˜4Õ$®$˜4 %¸$˜4,"PROFESSOR'S SIGNATURE¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤"i%Â$˜4,"---------------------------------------------------------------"s%Ì$˜4: 4y%Ö$Ž–%' DATA DISPLAY ON SCREENœ%':¨%$'™Ç(147)°%.'™:™Í%8'™:™"STUDENT'S NAME: ";N$è%B'™"SEMESTER PART: ";UT$ &L'™ £10);"MARK DISTRIBUTION:":™7&V'™"NAME OF ASSIGNMENT----MARKS ASSIGNED:"g&`'™"--------------------------------------":™‹&j'™"I. CLASS AS'MTS:(10%): ";P1¯&t'™"II. HOMEWORK: (10%): ";P2Ó&~'™"III. WHIZ QUIZZES:(10%): ";P3÷&ˆ'™"IV. MIDTERM EXAM:(20%): ";P4'’'™"V. FINAL EXAM: (50%): ";P5I'œ'™"--------------------------------------"n'¦'™"TOTAL POSSIBLE MARKS: 100":™—'°'™:™£2);"1. MIDTERM MARK: ";MM;"%"À'º'™:™£2);"2. FINAL EXAM MARK: ";FM;"%"î'Ä'™"--------------------------------------"(Î'™:™"PRESS ANY 2 KEYS FOR MENU",(Ø'¡ ZZ$:‹ ZZ$²"" § 10200G(â'¡ ZZ$:‹ ZZ$²"" § 10210M(ì'Žt(ø* WRITE A SEQ. FILE TO DISK MODULEz(+:°( +™ Ç(147):™:™"SEQUENTIAL DISK FILE WRITE(SAVE) ":™Ë(+™:™"ENTER S. FILENAME"Ô( +… F$è(*+‹ F$²"" § 11030)4+™"WRITING FILE TO DISK)>+Ÿ 1,8,2,F$ª",S,W"&)H+™ Ç(147)0)R+˜1,N$;)\+˜1,UT$E)f+˜1,P1O)p+˜1,P2Y)z+˜1,P3c)„+˜1,P4m)Ž+˜1,P5w)˜+˜1,MM)¢+˜1,FMˆ)¬+ 1«)¶+™:™ £5);"DISK WRITE COMPLETE!"Ë)À+™"PRESS ANY 2 KEY FOR MENU"æ)Ê+¡ ZZ$:‹ ZZ$²"" § 11210*Ô+¡ ZZ$:‹ ZZ$²"" § 11220*Þ+Ž0*à. READ A SEQ. FILE FROM DISK MODULE6*ê.:j*ô.™ Ç(147):™:™"SEQUENTIAL DISK FILE READ(LOAD)":™…*þ.™:™"ENTER S. FILENAME"Ž*/… F$¢*/‹ F$²"" § 12030¿*/™"READING FILE FROM DISKÎ*&/Ÿ 1,8,2,F$Û*0/™ Ç(147)+:/™:™ £9);"EXAMINATION STATEMENT:":™)+D/™:™ £9);"DISTRIBUTION OF MARKS:":™3+N/„1,N$>+X/„1,UT$H+b/„1,P1R+l/„1,P2\+v/„1,P3f+€/„1,P4p+Š/„1,P5z+”/„1,MM„+ž/„1,FM +¨/™"NAME OF STUDENT: ";N$»+²/™"SEMESTER PART: ";UT$é+¼/™"--------------------------------------",Æ/™"I. CLASS ASMENTS: (10%) ";P13,Ð/™"II. HOME ASMENTS: (10%) ";P2X,Ú/™"III. WHIZ QUIZZES: (10%) ";P3},ä/™"IV. MIDTERM EXAM: (20%) ";P4¢,î/™"V. FINAL EXAM: (50%) ";P5Ð,ø/™"--------------------------------------"ê,0™"TOTAL MARKS: (100)"- 0™:™"1. MIDTERM EXAM MARK: ";MM;" %":-0™:™"2. FINAL EXAM MARK: ";FM;" %"B- 0  1g-*0™:™:™"PRESS ANY 2 KEYS FOR MENU"‚-40¡ ZZ$:‹ ZZ$²"" § 12340->0¡ ZZ$:‹ ZZ$²"" § 12350£-H0ŽÐ-°6 WRITE (SAVE) A SEQUENTIAL FILE ON TAPEÖ-º6: .Ä6™ Ç(147):™:™"SEQUENTIAL TAPE FILE WRITE(SAVE) ":™'.Î6™:™"ENTER S. FILENAME"1.Ø6… FX$F.â6‹ FX$²"" § 14030b.ì6™"WRITING FILE TO TAPE"r.ö6Ÿ 1,1,1,FX$.7™ Ç(147)‰. 7˜1,N$”.7˜1,UT$ž.7˜1,P1¨.(7˜1,P2².27˜1,P3¼.<7˜1,P4Æ.F7˜1,P5Ð.P7˜1,MMÚ.Z7˜1,FMá.d7 1/n7™:™ £5);"TAPE WRITE COMPLETE!"$/x7™"PRESS ANY 2 KEY FOR MENU"?/‚7¡ ZZ$:‹ ZZ$²"" § 14210Z/Œ7¡ ZZ$:‹ ZZ$²"" § 14220`/–7ŽŽ/˜: READ (LOAD) A SEQUENTIAL FILE FROM TAPE”/¢::È/¬:™ Ç(147):™:™"SEQUENTIAL TAPE FILE READ(LOAD)":™ù/¶:™:™"REWIND TAPE BEFORE ENTERING FILENAME:":™0À:™"ENTER TAPE READ FILENAME"#0Ê:… FX$80Ô:‹ FX$²"" § 15040V0Þ:™"READING FILE FROM TAPE"f0è:Ÿ 1,1,0,FX$s0ò:™ Ç(147)š0ü:™:™ £9);"EXAMINATION STATEMENT:":™Á0;™:™ £9);"DISTRIBUTION OF MARKS:":™Ë0;„1,N$Ö0;„1,UT$à0$;„1,P1ê0.;„1,P2ô08;„1,P3þ0B;„1,P41L;„1,P51V;„1,MM1`;„1,FM81j;™"NAME OF STUDENT: ";N$S1t;™"SEMESTER PART: ";UT$1~;™"--------------------------------------"¦1ˆ;™"I. CLASS ASMENTS: (10%) ";P1Ë1’;™"II. HOME ASMENTS: (10%) ";P2ð1œ;™"III. WHIZ QUIZZES: (10%) ";P32¦;™"IV. MIDTERM EXAM: (20%) ";P4:2°;™"V. FINAL EXAM: (50%) ";P5h2º;™"--------------------------------------"‚2Ä;™"TOTAL MARKS: (100)"ª2Î;™:™"1. MIDTERM EXAM MARK: ";MM;" %"Ò2Ø;™:™"2. FINAL EXAM MARK: ";FM;" %"Ú2â;  1ÿ2ì;™:™:™"PRESS ANY 2 KEYS FOR MENU"3ö;¡ ZZ$:‹ ZZ$²"" § 1535053<¡ ZZ$:‹ ZZ$²"" § 15360;3 <ŽX3 N END THE PROGRAM MODULE^3*N:j34N™Ç(147)t3>N™:™:™”3HN™£7);"REPEAT PROGRAM (Y/N)"¯3RN¡ ZY$:‹ ZY$²"" § 20050Á3\N‹ ZY$²"Y" § Šî3fN‹ ZY$²"N" § ™ £12);"END OF PROGRAM!":œ:€ú3pN‰ 2005040u MAIN MENU ROUTINE4:u:%4Du™ Ç(147)-4Nu™:™P4Xu™ £3);"COMPUTER SCIENCE MARKS"n4bu™ £15);"DISTRIBUTION":™:™•4lu™"N - ENTER NEW EXAM MARKS:":™¸4vu™"H - MAKE A HARD COPY ":™á4€u™"D - DISPLAY DATA ON SCREEN:":™ 5Šu™"W - WRITE A FILE TO DISK :":™85”u™"R - READ(LOAD) A FILE FROM DISK:":™d5žu™"S - WRITE (SAVE) FILE ON TAPE:":™‘5¨u™"L - READ (LOAD) FILE FROM TAPE:":™¹5²u™"E - END OR REPEAT PROGRAM:":™Á5¼u™:™ã5Æu™ £10);"ENTER YOUR SELECTION"þ5Ðu¡ ZA$:‹ ZA$²"" § 301606Úu‹ ZA$²"N" § 2000-6äu‹ ZA$²"H" § 9000E6îu‹ ZA$²"D" § 10000]6øu‹ ZA$²"W" § 11000u6v‹ ZA$²"R" § 120006 v‹ ZA$²"S" § 14000¥6v‹ ZA$²"L" § 15000½6 v‹ ZA$²"E" § 20000É6*v‰ 30000