53280,12:53281,12:646,7::59468,12:CR$(13)GNM$" "\(FD%8: I/O UNITl2NS40:NA20<(50000)(NS1)(NA1)25680PS$(NS),W(NA),A$(NA),G%(NS,NA)Z"E= MODIFY EXISTING NAMELISTd"N= WRITE NEW NAMELIST n"^"%x" PRESS E OR N "8G$:G$""130HG$"E"570XG$"N"170a130"NAME OF THIS CLASS? ";:1220:C$IN$:A$(1)"-":XZ$C$IN$""170"WRITE NEW NAMES:"" SMITH JOHN USE SPACE NOT COMMA!2" V"PRESS _ AFTER LAST ENTRY.TSTS1:TSNS"CAN'T TAKE ANY MORE STUDENTS.":300TS": ";:1220:IN$"_"300IN$""TS10"";:250IN$""TS9 "";:250S$(TS)IN$:#"A1TA:G%(TS,A)1:A:240/,TSTS1>61120:ML0X@""XZ$"":TS1370dJS1TSTS;S$(S):I(S$(S)):IMLMLI^A$:A$"S"1500hr"O IF OK.|"C CHANGE OR ADD A NAME"D DELETE A NAME "R REVIEW LIST "M QUIT- G$:G$""420= G$"O"700N G$"D"1350^ G$"C"490n G$"R"320 G$"M" "": 420 "STUDENT # (RETURN IF NEW) ? "; 1220:S(IN$):IN$""STS1!IN$""TSNS"NO ROOM FOR MORE.":3108!S1"NO SUCH STUDENT NUMBER.":I11500:I:310Z! STS "OLD NAME: ";S$(S)!STSTSTS1:STS:A1TA:G%(S,A)1:!&"NEW NAME IS ? ";:1220:S$(S)IN$!0310!::!D"FILE NAME= ";F$:XZ$F$!NDR0:1410!X1,C$"b1,TS "l1,TAA"v:TS;" STUDENTS,";TA;" ASSIGNMENTS":I1200:IX"S1TS:1,S$(S):o"A1TA:1,A$(A):"A1TA:1,W(A):"A1TA:S1TS:1,G%(S,A)::"1480"310""P TO PRINT HARDCOPY.""S TO SAVE THIS LIST.#"A TO ABANDON ANY CHANGES5#"R REVIEW LIST"S#"L GO TO A NEW LIST"r#"M GO TO MENU PROGRAM#"F TO PRINT MARK SHEET"#G$:G$""750# G$"F" 1540#G$"P"820#G$"A""":1110# G$"S"940$G$"R"320$G$"L"20'$ G$"M""0:MENU",80$*750E$4"PUT IN PAPER.r$>"HIT P WHEN READY TO PRINT NAMELIST.$HT$".":I1ML:T$T$".":I$RG$:G$""850$\4,4$f4,(1)XZ$:4$pUL$"ݤݤݤݤݤݤݤݤݤ¤" %zS1TS%S104," ";A%4,(S);" ";(S$(S)T$,ML1);UL$G%S%4:370w%CL$""%"FILE NAME= ";XZ$;:(CL$,(XZ$)2);:F$%"I AM NOW 'SAVING' ";F$%DR1:1410:R$CR$%1,C$R$;&1,TS;R$;&1,TA;R$;(&S1TS:1,S$(S)R$;:B&A1TA:1,A$(A)R$;:[&A1TA:1,W(A)R$;:&A1TA:S1TS:1,G%(S,A)R$;::&STSNS:1,"000000000000000"R$;:S&$ATANA:1,"0000"R$;:A&.ATANA:1,"000"R$;:A'8ATANA:STSNS:1,"000"R$;::'B1480'L"''V 7003'`TS2F'j"SORTING...a'tS2TS:S$S$(S):JS1'~A1TA:G%(0,A)G%(S,A):A'S$S$(J)1200'J1J1:S$(J1)S$(J)'A1TA:G%(J1,A)G%(J,A):'JJ1:1160'J1J1:S$(J1)S$(A1TA:G%(J1,A)G%(0,A):A:S:6(IN$" ":ZTTI:ZC2:ZD$(20)K(Z$:Z$""1260{(ZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15(1230(Z$","Z$" "(Z(Z$):ZL(IN$):(Z127)32" ";:1310(FL(Z127)64(Z127)91Z$((Z128)255)) ZL2541230#)IN$IN$Z$:Z$;ZD$;Z$;B)Z13IN$(IN$,2):CR$;:m)(Z20ZL1IN$(IN$,ZL1):"";:1230)2Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:1220)<1230)FTS1"NO STUDENTS":1400)P"STUDENT # TO DELETE? ";:1220:IN$""310+*ZS(IN$):S1STS"NOSUCH STUDENT.":1400X*dS$(S)S$(TS):A1TA:G%(S,A)G%(TS,A):Ai*nTSTS1:310*xDL11500:DL:310*F$"0:"F$:15,8,15:DR115,"S";F$*F$F$",S,"("RW",DR1,1):1,8,2,F$*15,ER,ER$,TK,SC*ER0ER$"":+""ER;ER$;TK;SC:1:15R+"CHECK FILENAME REQUESTED....":X11000::"":580\+1420g+1:15m++A$:A$""1500+A$"S"+1500+"PUT IN PAPER.+"HIT P WHEN READY TO PRINT MARKS LISTING",LI$""\,BL$" ",UL$"ݤݤݤݤݤݤݤݤݤ¤",T$".":I1ML:T$T$".":I,NDML8,Q$" ":I1ND:Q$Q$" ":I,"G$:G$""1570-,4,4"-64,(14)XZ$:4,(15):4:4,-@18106-J1800[-T4,"ASSIGNMENT ";(Q$,ML1);BL$f-^J14s-h1800:J}-r1820-w4:4-x1810-|4,"ASSIGNMENT #";(Q$,ML1);UL$-1800-4,"NAME ";(Q$,ML1);UL$-1800.4,"WEIGHT ";(Q$,ML1);UL$.1800C.4,"MAX MARKS ";(Q$,ML1);UL$M.4:4V.880}.4," ";(Q$,ML1);BL$:.4," ";(Q$,ML1);LI$:.4," ";(Q$,ML1);UL$:""::60400:100CCR$(13)aQB214:(50000)0QB243g