:59468,12; GBOOKA COPYRIGHT (C) 1980 HAL CAREYR 9002 BERCLAIR RDl HUNTSVILLE AL 35802r: CURSOR #19 APRIL 1980 BOX 550, GOLETA, CA. 93017: AS OF 29 APR 80 9PMZPG$"GBOOKA":NM$"19":62000dFD%1: I/O UNITNS40:NA158S$(NS),W(NA),A$(NA),G%(NS,NA)]"E MODIFY EXISTING NAMELIST|"N WRITE NEW NAMELISTG$:G$""270G$"E"530"G$"N"305,2701"NAME OF THIS CLASS? ";:1070:C$IN$:A$(1)"-"6"WRITE NEW NAMES::"F;" SMITH JOHN USE SPACE NOT COMMA!r<" @"PRESS RETURN AFTER LAST ENTRY.JTSTS1:TSNS"CAN'T TAKE ANY MORE STUDENTS.":360OTS": ";:1070:IN$""360TS$(TS)IN$"^A1TA:G%(TS,A)1:A:330.hTSTS1<r980:ML0U|""C$"":TS1430aS1TSS;S$(S):I(S$(S)):IMLMLII1500:"O IF OK."C CHANGE OR ADD A NAME"D DELETE A NAMEG$:G$""450 G$"O"670G$"D"1300+G$"C"4904450\"STUDENT # (RETURN IF NEW) ? ";~1070:S(IN$):IN$""STS1IN$""TSNS"NO ROOM FOR MORE.":370S1"NO SUCH STUDENT NUMBER.":I11500:I:370  STS "OLD NAME: ";S$(S)/ STSTSTS1:STS:A1TA:G%(S,A)1:W "NEW NAME IS ? ";:1070:S$(S)IN$` 370f :v &F$"GRADES" 0DR0:1800 D1,C$ N1,TS X1,TA ]:TS;" STUDENTS,";TA;" ASSIGNMENTS":I1200:I bS1TS:1,S$(S): lA1TA:1,A$(A): vA1TA:1,W(A):? A1TA:S1TS:1,G%(S,A)::I 2000R 370q "P TO PRINT HARDCOPY. "S TO SAVE THIS LIST. "A TO ABANDON ANY CHANGES. G$:G$""690 G$"P"730 G$"A""":960 G$"S"820 690 "PUT IN PAPER.H "HIT P WHEN READY TO PRINT NAMELIST.h T$".":I1ML:T$T$".":I{ G$:G$""750 4,4 4,C$:4 S1TS S104," "; 4,(S);" ";(S$(S)T$,ML1)  *4:430 4: HF$"GRADES" RDR1:1800:R$CR$! \1,C$R$;:12005 f1,TS;R$;:1200I p1,TA;R$;:1200i zS1TS:1,S$(S)R$;:1200: A1TA:1,A$(A)R$;:1200: A1TA:1,W(A)R$;:1200: A1TA:S1TS:1,G%(S,A)R$;:1200:: 2000 "  TS2 "SORTING...) S2TS:S$S$(S):JS1H A1TA:G%(0,A)G%(S,A):A\ S$S$(J)1050t J1J1:S$(J1)S$(J) A1TA:G%(J1,A)G%(J,A): JJ1:1000 J1J1:S$(J1)S$ $A1TA:G%(J1,A)G%(0,A):A:S: .IN$" ":ZTTI:ZC2:ZD$(20)8Z$:Z$""1105CBZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15ML1080`QZ$","Z$" "VZ(Z$):ZL(IN$):(Z127)32" ";:1150`FL(Z127)64(Z127)91Z$((Z128)255)jZL2541080tIN$IN$Z$:Z$;ZD$;Z$; ~Z13IN$(IN$,2):CR$;:5Z20ZL1IN$(IN$,ZL1):"";:1080gZ141Z$(20(ZL1)):Z2ZL:Z$;:Z:1070q1080TIZ920FD%81290FD%2126059411,53Z9160:59411,61129059456,(59456)239Z9160: 59456,(59456)16 Z9TI:9TS1"NO STUDENTS":1700j"STUDENT # TO DELETE? ";:1070:IN$""370(S(IN$):S1STS"NOSUCH STUDENT.":17002S$(S)S$(TS):A1TA:G%(S,A)G%(TS,A):A<TSTS1:370DL11500:DL:370FD%81900*"REWIND TAPE"FD%"AND PRESS RETURN>Z$:Z$""1820R&QB,122:QB1,2l+FD%2QB,58:QB1,3}01,FD%,DR,F$:Z9TIDlF$"0:"F$:15,8,15:DR115,"S";F$vF$F$",S,"("RW",DR1,1):1,8,2,F$15,ER,ER$,TK,SCER0ER$"":""ER;ER$;TK;SC:1F"FIX PROBLEM AND TYPE 'CONT'.":P1910b1:FD%815h""::60400:100CR$(13)QB214:(50000)0QB243TI110:"";:I:0"";9);"CURSOR #";NM$;" ";PG$:" COPYRIGHT (C) 1980 BY HAL CAREY'D60500RN"ENTER AND MODIFY NAMES IN GRADEBOOKs"PRESS RETURN TO BEGIN";T$:T$""6210060300