:59468,12; GBOOKB COPYRIGHT (C) 1980 HAL CAREYT 9002 BERCLAIR ROADn HUNTSVILLE AL 95802t: CURSOR #19 APRIL 80 BOX 550, GOLETA, CA. 93017: AS OF 29 APR 80 9:15PMZ62000dFD%1: I/O UNITNS40:NA15+A$(NA),W(NA),S$(NS),G%(NS,NA),B$(5)pB$(1)" 90":B$(2)" 80":B$(3)" 70":B$(4)" 65":AS$"ASSIGNMENT"E$"":I140:E$E$" ":@F$"GRADES"JDR0:1800TC$"0":TS0:TA0:ML0h1,C$r1,TS|1,TAS1TS:1,S$(S):N(S$(S)):NMLMLNS/A1TA:1,A$(A):EA1TA:1,W(A):dA1TA:S1TS:1,G%(S,A)mS,Aw2000MLML1:ML22ML22HY$".":I1ML:HY$HY$".":I"":"GBOOKBC$:TS"STUDENTS,"TA;AS$;"S"C CHANGE A GRADE3"E EXIT, DROPPING CHANGESO " SINCE LAST SAVEp"G ENTER LIST OF GRADES"S SAVE"P PRINT HARDCOPY"CHOICE? ";:60000:G$(IN$,1)&I15:G$("CEGSP",I,1)5700:470 :I590,950,660,850,1070AN"CHANGE GRADE FOR ";AS$;" # ";:60000:A(IN$)eSA1ATA"NO SUCH ";AS$:655yXE$;AS$;A;A$(A)b"STUDENT # ";:60000:S(IN$)gS1STS"NO SUCH STUDENT":655lE$"STUDENT"S;S$(S) qTG%(S,A):"GRADE WAS ";:T0T rT0"*"? v"CHANGE GRADE TO: ";:60000:IN$""625\ {IN$"*"G%(S,A)1:470| N(IN$):N0"<0??":625 N100">100??":625 G%(S,A)N:470 1680:470 TANA"NO ROOM":I1500:I:470 TATA1:ATA "GRADE INPUTS FOR ";AS$;" #"TAG "4-LETTER NAME OF "AS$": ";:60000:G$IN$e A$(A)(" "(G$,4),4) "WEIGHT OF "AS$": ";:60000:W(A)(IN$) ""AS$" #"TA" "A$(A)", WEIGHT:"W(A)"" "(TYPE * FOR INCOMPLETE "AS$;") " # NAME GRADE S1TS/ S;(S$(S)HY$,ML);M 60000:G$IN$:IN$""760i G$"*"G%(S,A)1:810 G(G$):G100">100??":760 G0"<0??":760 G%(S,A)G * 4470 RF$"GRADES" \DR1:1800:R$CR$ f1,C$R$;:1700 p1,TS;R$;:1700! z1,TA;R$;:1700A S1TS:1,S$(S)R$;:1700:a A1TA:1,A$(A)R$;:1700: A1TA:1,W(A)R$;:1700: A1TA:S1TS:1,G%(S,A)R$;:1700:: 2000:470 "": ."TURN ON PRINTER. 8"INSERT PAPER TO TOP OF GUIDE.5 B"WHAT IS TODAY'S DATE? ";:60000:D$IN$M L"JUST A MINUTE...a VS1TS:N0:D0m `A1TA jG%(S,A)0NNG%(S,A)W(A):DDW(A) tA ~G%(S,0)0:DG%(S,0)ND.5 S A1TA:N0:D0S1TS:G%(S,A)0NNG%(S,A):DD1 S'G%(0,A)0:DG%(0,A)ND.A74,4D4:4:4N4,C$[4,D$:4P$" "AS$:P$" "(P$HY$,ML)" "A1TA:P$P$" "(A)" ": P$P$"AVERAGE #"4,P$P$""(A1TA:P$P$(A$(A)" ",5) :2P$P$" INC")<4,ML4);P$YFP$" WEIGHT ":P$" "(P$HY$,ML)" "PA1TA:P$P$(" "(W(A)),3)" ":Z4,P$d4nS1TS:N0x:P$((S),2)" "(S$(S)HY$,ML)" "A1TAG%(S,A)0P$P$" * ":NN1:1440)P$P$(" "(G%(S,A)),3)" "0AMX$(" "(G%(S,0)),3)cP$P$" "X$" "kI1X$B$(I)II1:1480P$P$" "("ABCDF&",I,1)NP$P$" "(N)4,P$S4P$AS$" AVERAGE ":4," ";(P$HY$,ML); A1TA.4,(" "(G%(0,A)),4);" ";5"AE6I17:4:L@4UJ470prS2TS:S$S$(S):JS1|S$S$(J)S$(J1)S$(J):JJ1:1660S$(J1)S$::DL11500:DL:ZZ(QC)1720TIZ920FD%81790FD%21760 59411,53ZZ160:(59411,6121790J59456,(59456)239YZZ160:p59456,(59456)16|Z9TI:FD%81900"REWIND TAPE"FD%"AND PRESS RETURNZ$:Z$""1820&QB,122:QB1,2+FD%2QB,58:QB1,301,FD%,DR,F$:ZPTI:=lF$"0:"F$:15,8,15:DR115,"S";F$fvF$F$",S,"("RW",DR1,1):1,8,2,F${15,ER,ER$,TK,SCER0ER$"":""ER;ER$;TK;SC:1"FIX PROBLEM AND TYPE 'CONT'.":19101:FD%815`IN$" ":ZTTI:ZC2:ZD$(20)&jZ$:Z$""60070VtZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15a~60010Z(Z$):ZL(IN$):(Z127)32" ";:60110FL(Z127)64(Z127)91Z$((Z128)255)ZL25460010IN$IN$Z$:Z$;ZD$;Z$; Z13IN$(IN$,2):CR$;:9Z20ZL1IN$(IN$,ZL1):"";:60010lZ141Z$(20(ZL1)):Z2ZL:Z$;:Z:60000w60010""::60400:100CR$(13)QB214:QC187:(50000)0QB243:QC625TI110:"";:I: 0"";9);"CURSOR #19 GBOOKB5:" COPYRIGHT (C) 1980 BY HAL CAREY@D60500_N"ENTER AND MODIFY GRADESX"PRESS RETURN TO BEGIN";bT$:T$""62050l60300