' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  ( 9 +"  "*  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0).).*#!.*'!.8)(#/-)(#/-,,eb)++$ h( ,!!"@h !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HH ᥠ L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD# H8`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  L IH  /JJJJ"L뷩 ᷩ췩 ɛ LDLSAVBPILOCUNLOCIBPIBPIB`Ӝsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\  OÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L׭Lܫ &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@ ,\Z[PRR3\ɄSɊ"RQJ(0Fw6. ^-%p 㩠RP.Q I* P\L˵B̵C8pB߮Z\ @ յյ\BIR Z-^ Jp\IZLLӜv  Ӡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B / / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8`  XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` ᥠ hh`ĵµ`ڿ8.ڿ.ۿ`êL`õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH x(`# d£àĠz# u` @@A` @A@  B C BBCLCLfBL ީLhh`LLN7ɿLݍҭ -A@@i@@@i@AAݣ@ݢΩDDLeA@@lL /?@Hɷ@#@h@!ɵ@ɥͰi+hɝi@@/8e@@DAA͈@̈DDL܇@BA݅C@BAC濽տ`xxlt]iVȿQkKRE;BY;LꍁlL<ԍL WLHr7s8 LH HLݍ ,,(`l8 LH e UL׉ LH LH,, sL,,, t鍁` H `Le HL H LL H QL H Llש B\ȹ'ȹ' (LRANGWRITE PROEND DATFILE NOT FOUNVOLUMI/O ERDISK FULLOCKESYNTANO BUFFETYPE MISMATCTOO LARGNOT DIREC q`QrU`)`\N|Lي80ʭ) $% B橠 B  ` L߭ɍ_LةحW`8& 9ʩ8`WL () ~ۭ N N L,H whLZ؍^؍_`$,,L`hhhL٭0 ,0L,Ƀɛɍ8ɠnɻɺ: n(8l mnحuIn Lw8n {۠u  {ۥgh,,0۬ۍ،؍La8 L߭ u ب H بh,8m l بNۘHج,8۰h Z wةͼH h بLZ8Ѕυ Z0 Z LڭٍَٺHץ9ɾIn0 hH )? @(I7n׽Nשn I-- h+( ,,0 ,Hّ(ho Lލ ׭,0 )?( Ɉoɀ@MםH Ihh0 Lڊʰڍ,עLڍhhیڬ<۠x )ڠ8۬ڰ(HH `ȹ0,Ȍ ɍ  ɠ )?, @, LB LƠ LLւ&LݩLL#B B!P`L8'@170:M17:N11B:82D24:10:"(";:176:" ENDS EDITING.)";:11:23:"EDIT A LONG LABEL (Y/N) ";:35:O137:150:D88,78,72,8F"SOUND",200,200:68HK$" "66JF(K$):F1FEE9į"SOUND",200,200::86:68LFILE,"::5::"G."E$:::" WAS NOT FOUND."[ .B$"CLOSE":"SOUND",200,200:22:160:218c 064p 2E0:58 4110:218 6H$"M"I$"M"8 864 :"FIXSTACK",K,L:K6ė:10:"G."E$" NOT ON THIS DISK." <B$"CLOSE":"SOUND",200,200:E$F$:2$"CLOSE L."E$:40k $B$"VERIFY G."E$;J$:B$"OPEN G."E$:B$"READ G."E$:G:H:I:EG:112:B$"CLOSE":218s &64 ("FIXSTACK",K,L:K646 *:7:"THE LABEL FILE REQUESTED,"::5::"L."E$:::" WAS LOADED, BUT", ,16:"THE CORRESPONDING CLASS "Q"G$"U"8. G$"L"į"SOUND",200,200:8l G$"LOAD LABELS":174:H$(77)H$(109)I$"M"I$"":8 F1E:D$(F,1)"":D$(F,2)"":F:210 "B$"VERIFY L."E$;J$:B$"OPEN L."E$:B$"READ L."E$:E:F1E:"INPUT$",D$(F,1):"INPUT$",D$(F,2):F:B< 17:G$:"LCTOUC",G$,G$:G$;:21::G$"Q"İ158:D2230 G$"X"İ158:D2ĺ:::"LOADING CROSSROADS MENU":::" FROM DRIVE 1":E$"CROSSROADS MENU":B$"RUN CROSSROADS,D1" G$"E"64 G$"S"İ114:8 G$"P"106 G$"C"50 G$FILE"; " IN MEMORY)"::32,7::"C(REATE NEW LABEL FILE)"::"L(OAD A LABEL FILE)":"S(AVE A LABEL FILE)"::"E(DIT LABELS IN MEMORY)":"P(RINT LABELS IN MEMORY)":::"X(--> CROSSROADS MENU)":"Q(UIT - TO BASIC)":32,0::22:"YOUR SELECTION: ";1!LABELS 1.18 7-30-85: COPYRIGHT (C) 1985 oB$(4):C$(7):A16384:B16368:C958:D$(255,2):188184:(175)256(176)46:218:4:"EXTENDED LABEL MAKER":"--------------------":" (";:E$""Ğ:"L."E$;: F$E$:E$""ĺ"NO          eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ`X\G:B%0:"CLR":2:5:"NOW ";::"CALCULATING";::" STD. SCORES.":CH:H1E:15:"CONVERTING EXAM NO. "H:12:K1L:18:K:H:HC:MO:568:15:"DROPPING "O" UNIT(S l݅Ȅ  L  L qr qʠ ʆ L^_:ʽe^^e__l^" ަư8^_氠^LQ^P^i^_^Ѹ "^0 $. *媆 gݥ 9 r륢H #h 40dNEF- ,00 *$,XǘP$,ȱ8# \ % ,;LLںLAYLAY.RM  { lݠ 5橴 )*ȱ.IiՅJ)+ (.Q.0.уȱ.у```0./ ꥃL8. K"ȱ.^ȱ._$J0 ^ЫK`  +._.^. LPUPRINT USING.RM { lݠ R % ک; ީ I0 &ŔÄ'ĕнеȱаȱ+-&Пȱ&8+hh8FD:GE;:i:;i;F;f:;`8F:E?>@?A@e:BAe;C \.E*0* 1A;!@:8@:@A;AEƥ@D>i>?i?8<>=?L, e&.'i/.H$1H+H1)L-+ .H.h$1+`,,,0 B``LvL HH 1-ȱ.ȱ/ g RDE$1 Ю ީ КД g RG.ІF/GEFD$1 ީEBEEPBEEP.RM6  <  L=,0 J= <`3SOUNDSOUND EFFECTS.RM FQP,0EQ,0`9ONERRONERR FIX.RM , ޥ8fإuvLSRTARRAY SORT.RM^ ^iȥ_ixA@ ./CBH詍 lݍ `ʤsLCTOUCLC TO UC.RM { lݠȱȱHh#)ha {)ߙ l݅ `ECLRCLEAR SCREEN.RM $ ީE ީO PL L LB LXINPUT$STRING INPUT.RM  " ީ; = l݅ , LDRESETONERRRESET ONERR.RM^_<= 抠&<<i"=iLo LԼPROPERPROPER NAMES.RM { lݠȱȱHhP)hʄ^HA [i )? R IN DISK OPERATION - CHECK DOOR":6285KpK77628SKr"OUT OF MEMORY.":5:582gKt23::524:472~Kv580:C12ġ:472Kx::10:12:".... DONE ....":22:1010,191:1011,157:1012,56:1014,88:1015,255::D$"MAXFILES3":12İ608:610Kz@RESETONERR",255JbQ2,0:TJd54915:K(222):D10:255::492:496:K254K5472hJf:10:K6618Jh"THE FILE BELOW IS NOT ON THIS DISK.":::5:K$::K$C1$:628JjK9ĺ"DISK FULL -- USE ANOTHER DISK":628JlK107İ582&KnK0K16ĺ"ERROH$(7,0)"USE TAG:":H$(7,1)" NO":I(7,0)11:I(7,1)77I^P$(0)"RAW":P$(1)"STANDARD":P$(2)"NO ":P$(3)"YES":P$(4)"NO":P$(5)"CONTINUES":P$(6)"STOPS":P$(7)"":P$(8)"NOT":Y11:Z11:A21:L266:K20:C(0)0:I14:C(I)J(I)::C(5)100:"ONERR",612J`"10:I(1,1)71:H$(2,0)"CLASS: ":I(2,0)10:I(2,1)72:H$(3,0)"TEACHER: ":I(3,0)10:I(3,1)73:H$(4,0)"PERIOD: ":I(4,0)10:I(4,1)745I\H$(5,0)"DATE: ":H$(5,1)" 3-23-84":I(5,0)10:I(5,1)75:H$(6,0)"USE ID :":H$(6,1)" NO":I(6,0)11:I(6,1)76:D0>GTB$(7):A1$"":S00āK0S01:A1$A1$((800K)):KnGVZ$"":S10āK0S11:Z$Z$((816K)):KGXB1$"":S20āK0S21:B1$B1$((832K)):KHZH$(0,0)"HEADING:":H$(0,1)"PROGRESS REPORT":I(0,0)10:I(0,1)7:H$(1,0)"STUDENT: ":I(1,0)2):W2W21:N2N21:E1N2:N$(W2,4),C%(W2,N2),A%(W2,N2),E(W2),H(W2),B(N2,5),C(10),G(N2),A(W2)GRH%(W2),F(N2),G%(1),J(4),C$(N2),P$(8),H$(7,1),I(7,1),O$(N2,2):I14:J(I)D(I15)::X211:J1D(21):R2D(22):FD(25)100:DD(26)100:Y2D(27):R1D(28):Y2F1:P216384:Q216368:D$(4):I029:D(I)(V2I):I:D(13)0ė:10:"SOUND",200,200:"CLR DATA IS FROM VERSION 2.1"::584:22:524\FPW2D(0)(D(0)255)(847):N2D(1):T1D(2):T2D(3):H1D(4):U1D(5):F10:O2D(7):I1D(8):K1D(9):S0D(10):S1D(11):S2D(1DB492:496:FDD:10:"DO YOU NEED TO SAVE A FILE (Y/N)";:498:oDF"CLASS SIZE OR EXAM NO. TOO LARGE."DH"REDO CLASS SETUP PROCEDURE":DJ448:DL:10:10::"BUSY"::EN:A%0:B%0:W10:E2958:V2768:D(29):M$"":I138:M$M$" ":: ";:E$:E$:E$(13)ġ:8C.B(E$):B1BE%İ518:B0>C0`C2E10ľI$:I$:I$(13)I$""pC4E9Ą"";I$vC6C8U20:I1E:U2U2(G(I))(G(I)0):I:C:C1(P2):C1128ıC<Z1:Q2,0:C1160İ532:C1B2C>C1155ıD@ZNġ:ZZ1:576,538,544.BD11:L14:J$" ":O11R2:M1H14B OB"I(P,1):1:H$(P,0);:uB$I(P,1):I(P,0):868:H$(P,1);:B&I(P,1):I(P,0):B("CLR":10:19::"BUSY"::B*:"RETURN";::C,23:"(HIT ";:554:" FOR "G$" MENU.)":21:"ENTER 1-"E%":A8AB215:B25((P2)127):B2:B2(P2):Q2,0:DAE0ıkA:7:"YOU HAVE NO DATA.":524::A"CLR":12:" (HIT ";:554:" FOR 'NO'.)":10:"OUTPUT RESULTS TO PRINTER";:498BD10:O18(R228)(R215):M1T2:L13:J$" ":C1542,544ORES ARE "F$"ED AT ONCE.":2:"SELECT 1ST TEST NO. (1-"E"): ";:l@ :"HIT ANY KEY TO CONTINUE.";:532::@(D1)İ524:530A:10:"IS YOUR PRINTER READY?":22:"HIT ANY KEY TO BEGIN.":"HIT ESC TO ABORT PRINTING.";:B$;:Q$:Q$:Q$(27)ġ::A$::"----------------------":"(";:K$""ĺK$;P?C1$K$:K$""ĺ"NO FILE";g?" IN MEMORY)"::?:10:"RESPONSE NOT ALLOWED. ";::"TRY AGAIN."::S11000:S:?22::"(HIT ";:554:" FOR PRECEDING MENU.)":@@ "ONLY "M1(M10);A$"SC;(26)"1"::(12);(21):F10:494:2>"?";:R$x>"LCTOUC",R$,R$:R$:C1(R$"Y")2(R$"N")4(R$(13)):(C1)504>C13::5:10:"PLEASE ANSWER ";::"YES OR NO";::".":S11000:S:>>TL1((T)):T0510>T);>2?:3::472x=580:C12ĺ:::"LOADING CROSSROADS MENU":::" FROM DRIVE 1":K$"CROSSROADS MENU":D$"RUN CROSSROADS,D1"~==D10486=488:(H1I1I1)ĺZ$;=="CLR"=:D$;"PR#";O2:A1$;:=D1ĺB1$;=:(4)"PR#"F1:$>(12)"P(RINT SCORES)"<:"X(--> CROSSROADS MENU)":"Q(UIT -- TO BASIC)":32,0::22:"YOUR SELECTION:";:17:E$:"LCTOUC",E$,E$:E$;:21::B(E$"L")2(E$"S")3(E$"I")4(E$"R")5(E$"V"E$"P")6(E$"X")7(E$"Q"):B442,446,192,392,72,478,630=UR RESPONSE.":19:"PLEASE TRY AGAIN:":I1750:I:466<H1D(4)::D$(4):F10:496:A$"CLASS PRINTOUT UTILITY":512:32,7::"L(OAD FILE FROM DISK)":"S(AVE FILE TO DISK)"::"I(NDIVIDUAL REPORTS)":"R(ANK NAMES BY CLASS STANDING)"::"V(IEW SCORES)":$""448:S$""S$K$::21:958:"THE OLD FILE WAS: "K$;Y$:"DESIRED FILE IS: "S$;X$::10:"HIT ";:554:" TO "E$" FILE":10:"INPUT M TO RETURN TO MENU ";:W$:"LCTOUC",W$,W$:W$:W$(13)K$S$::W$"M"ġ:7;:"I DO NOT UNDERSTAND YO":7:"1 OR 2 = CATALOG (D1/D2)":10:"INPUT$",S$:S$""4629Y$X$:S1(S$):(S$,S,1)(44)X$(S$,S):S$(S$,S1):S(S$)(X$):"LCTOUC",X$,X$9S:S$(77)S$(109)ġ:9S$(49)S$(50)X$",D"S$:::D$"CATALOG";X$:454:S$""KE:C$(K)::K1L:N$(K,3)::D$"CLOSE":m8:5::V$:::K$""ĺ" THERE'S NO FILE NAME IN MEMORY.":4528"PRESENT FILE NAME: "K$;X$8:=93:"ENTER THE DESIRED FILE NAME, OR:":7:554:" TO "E$" PRESENT FILE":7:"M(TO RETURN TO MAIN MENU)$(K)::K1L:"INPUT$",N$(K,3)::D$"CLOSE":)8E$"SAVE":V$"SAVE CLASS FILE":448:D$"OPEN G."K$;X$:D$"DELETE G."K$:D$"OPEN G."K$:D$"WRITE G."K$:E:L:O:K1E:G(K):S15:B(K,S):S,K:K1L:N$(K,1):S1E:C%(K,S):S:K:K1L:N$(K,2)::K1OAD CLASS FILE":448:D$"VERIFY G."K$;X$:D$"OPEN G."K$:D$"READ G."K$:H$(2,1)K$:W10:E:L:O:B%0:A%0:W10:K1E:G(K):S15:B(K,S):S,K:568:K1L:"INPUT$",N$(K,1):S1E:C%(K,S):S:K.7K1L:"INPUT$",N$(K,2):N$(K,3)""::K1E:"INPUT$",C1L:C%(I,E1)C%(I,N2)::*5! START 5:(4)"MAXFILES 1":496::588:((798)73(799)137)Ģ2::(4);"BLOAD CLR DATA":798,73:799,137:(1018)255(116)176ĺ(4)"BRUN GARB":65200,25(175)256(176)46:590:4726E$"LOAD":V$"L(IEW) OPTIONS":"ON THE MAIN MENU TO SEE THE RESULTS.":22:524:420:E2:22::" (PRESS ";:554:" TO START OVER.)":22:" POSSIBLE RANGE: 1-"E:20:"PICK SPECIFIC EXAM: ";:562:I$""ġ:3924N2(I$):N21N2Eį"SOUND",200,200:4305I0),E1)F%:If3:5:5:"NAMES ARE IN A NEW ORDER."::"THE PERSON WITH THE HIGHEST":B2ĺ"TOTAL ";|3B3ĺ"AVERAGE ";3B1ĺP$(B3)" SCORE IS FIRST"3B1ĺ"SCORE ON EXAM #"N2" IS FIRST"A4"AND THE LOWEST IS LAST."::"USE THE P(RINT) OR VE1:"SRT",C%(1,0)C%(L,0)G%(0)2I1L:N$(C%(I,0),4)(I):A%(C%(I,0),0)I::G%(0)1:G%(1)1284:"SRT",N$(1,0)N$(L,0)G%(0)2B3G%(0)1:G%(1)1280:"SRT",A%(1,0)A%(L,0)G%(0)2B2420 3I1L:C%(I,E1)F%H(I).5001::I1L:H(I)C%(C%(I,Y1B1F%0:I1L:F%F%(H(I)3200)::F%19(F%0):I1L:C%(I,E1)(F%H(I).5001):g1B1İ4301:10::"REARRANGING";::" NAMES: "::B1ĺ"USING EXAM NO. "N21B1ĺ"USING ";P$(B3)" OVERALL SCORES"2I1L:C%(I,0)I::G%(0)1:G%(1)IC EXAM)"::"R(AW OVERALL SCORES)":"S(TANDARD OVERALL SCORES)":32,0:0520:22:"YOUR SELECTION:";:17:E$:"LCTOUC",E$,E$:E$;:21::E$(13)ı0B(E$"P")2(E$"R")3(E$"S"):B1į"SOUND",200,200:3940(B2B%0)İ680(B3A%0)İ6::7:32,7::"YOUR CLASS RECORDS FILE":"HAS -- "E" -- ENTRIES,":"WHILE YOUR LABEL FILE":"HAS "M2" ENTRIES."::"YOU MAY NEED TO UPDATE":"YOUR LABEL FILE.":32,0:22:524/H0534::7:7::"ORDER BY CLASS STANDING"::10:32,7::"P(ICK SPECIF FILE":586:S$(77)S$(109)W$"M"W$"":.I1E:O$(I,1)C$(I):O$(I,2)"":I:D$"VERIFY L."K$;X$:D$"OPEN L."K$:D$"READ L."K$:M2:I1M2:"INPUT$",G$:"INPUT$",O$(I,2):I:D$"CLOSE L."K$:W11:M2E390/:"SOUND",200,200:5:16::"WARNING";:17:A$:"LCTOUC",A$,A$:A$"S"K2K2:362K-tA$"F"R112(R10):362o-vA$"P"İ528:F21L:266:F2:-xA$(13)ı-zA$"L"į"SOUND",200,200:370-|16:27:"INPUT$",U$:Z(U$):Z0L2Z-~362..E$"LOAD":V$"LOAD THE EXTENDED LABELUSE THE FORM":9:"FEED, SELECT THIS TO CHANGE":9:"THE NUMBER OF LINES SET ASIDE":9:"FOR EACH REPORT.":15:"NOW SET FOR "L2" LINES.",nR10Ė27:16:" ";:27:16::L2:,p:5:"P: START PRINTING, AS ALL IS OK."--r520:22:"YOUR SELECTION:"GE PRINTING MODE:":"---------------------------------------"::K2K20:5:"S: AFTER EACH REPORT":9:"THE PRINTER ";::P$(5K2);::". ",l:5:"F: AFTER EACH REPORT,":9:"A FORM FEED IS ";::P$(7(R10));::" SENT. "::5:"L: IF YOU DO NOT DIVIDUAL REPORTS"::13:7:"S(ELECT INDIVIDUALS)":7:"E(NTIRE CLASS PRINTED)"*d520:22:"YOUR SELECTION:";:17:A$:"LCTOUC",A$,A$:A$;:21::A$(13)ı*fA$"S"K222:246:354*hA$"E"į"SOUND",200,200:356+j:3:"USE F, S, OR L TO CHAN"("O" WT. DROPPED.)":H2H21()XH2H22;)ZD1İ524:352)\N2:570:::G2);:I165:".";:I:::G2)"COMMENTS:":H2H25:K222ĺ(R1);:R1H2L2āIH21L2::I)^494:K21į"SOUND",90,20:"BEEP",90,50:526)`O*bD11::9::7:"PRINT INE = "(10H(F2).5001)10:H2H21:340n(RG215D1);:"TOTAL WEIGHTED POINTS = ";:H(F2)" OF "C(10):H2H21(TG2515D1)"OVERALL LETTER GRADE = ";:U11:X1D1:D11:I2H(F2):IF2:J2B:B2A2:158:BJ2:H(F2)I2:D1X1:O0ĺ:344)V:14G220D1)(AB(K,2))(AB(K,3))(AB(K,4)):" "(197G);:G0334w'JV12:B(K,G1)B(K,G)V12(AB(K,G))(B(K,G1)B(K,G))'L(171((V11FAB(K,4))AB(K,5))173(V11FAB(K,1)));'N:H2H21:K:Z1346&(P:A2ĺG2515D1)"AVERAGE STANDARD SCOR4:T$M$:"LAY",(B(K,5))T$1,L1:T$;:O$(K,1)"++"334t&@T(G(K)):506:(G(K));:A2A%(F2,K)0ĺ" -";:334&BA2į"PU"," ";A%(F2,K)10;" ";&DY1A2Z0:AA%(F2,K)10.05001:162:334&FY1334;'HAC%(F2,K).5001:G12(AB(K,1))(YOU HAVE NO ENTRIES)":H2H21:344g%4K1E:N2:570:G2);:A$O$(K,1W1):A$""ĺ23108D1);:314%6(W1)(T11(T10D11))į"PROPER",A$,A$%8T$M$:"LAY",A$T$1,138D1:T$;%:C%(F2,K)1ĺ" -/";:318%<"PU"," ";C%(F2,K);"/";8&>L1D1)"DATE: "H$(5,1);:H2H21M$*:H$(4,1)""ĺG2);H$(4,0);H$(4,1):H2H21j$,A2ĺ298D1G2)"STD.";$.:G2)"ASSIGNMENT"13108D1)"PTS./MAX. WT. ";:A2ĺ"SCORE";$0Y1ĺ" GRADE";#%2:G2);:I13926D1:"-";:I::H2H23:E0ĺG25D1)"(# A$H$(2,1):(A$)12D1A$(A$,12)#"G2);H$(2,0);A$;14(A$)23D1);:V10:C2D2(N$(F2,3))0ĺ" "(N$(F2,3),119D1):V11#$V10ĺ#&H2H21:N2:570:A$H$(3,1):(A$)12D1A$(A$,12)$(G2);H$(3,0);A$;:H$(5,1)""ĺ14(A$)23T10D11)į"PROPER",A$,A$"G2)"STUDENT: "A$;:14(A$)23D1);:(C2D2)(C2(N$(F2,2))0)(C2D2(N$(F2,3))0)ĺ:H2H21"C2(N$(F2,2))0ĺ"ID: "(N$(F2,2),119D1):H2H21"C20ĭD20(N$(F2,3))0ĺ"ID: "(N$(F2,3),119D1):H2H2166:246! (1018)255Č10169! G25D1:A2A%D1İ6m!A2A%D1İ552:H1E:12:KF2:18:H:32:48~!A2B%İ68!D1İ482:I14:" ":I!:G21010D1);::H$(0,1)::H28:D1ĺ:!A$N$(F2,1):(A$)12D1A$(A$,12)"T11( "W 7:"NO. OF STUDENT TO ";A$;:"";S$:F2(S$):S$"F"D11İ490:(12);:494:250d S$""ı} F21F2Lİ518:246 15:N$(F2,1)::E2:D10262 16:"IS THIS OK Y";(8);:R$:500:C1262,246,260,262 518::256 D11İ528!2A$(17)İ546:548:2421H$(P,1)A$:216NP(P1)(P7)(P0):21618:E2:16:"OK? Y";(8);:R$:500:C1244,214,214,244:8:" (1-"L")":D11Ģ22:"HIT F TO SEND 'FORM FEED' TO PRINTER." 520:A$"VIEW: ":D1A$"PRINT:İ546:548:240(A17İ546:548:242VA21H$(P,1)""A$(H$(P,1),1):A(A$)zA8A21į"SOUND",200,200:218P6234P6C2C2:V1C2P7D2D2:V1D2H$(P,1)P$(2V1):216A$;:"INPUT$",Q$:A$A$Q$:(A$)1A32A$""INGS":P07:546:548::PP(P0):P:21:"EDITING COMMANDS:":" ";:554:" = ACCEPT ENTRY AS IS":" CTRL-Q = END EDITING":" SINGLE SPACE CLEARS ENTRY";:1:19:"TYPE IN ENTRY WHERE INDICATED.":P0:546::548:550A$:A(A$):A13"G")4(E$"O")5(E$"T")6(E$"V")7(E$"P"):B1į"SOUND",200,200:198nB214,384,206,208,210,246,354w192Y1Y1:B2Y1:212Z1Z1:B2Z1:212A2A2:B24A2:21210B:31:868::P$(4B2):::198:4:"EDIT REPORT HEADADE/SUMMARY): ";::P$(4Z1):6:"T(YPE OF SCORES USED): ";::P$(A2):::" INDIVIDUAL REPORT":6:"V(IEW REPORT)":6:"P(RINT REPORTS)"520:22:"YOUR SELECTION:";:17:E$:"LCTOUC",E$,E$::21::E$(13)ıKB(E$"E")2(E$"L")3(E$J11); 7D10:534:W10āI1E:O$(I,1)C$(I):A$"INDIVIDUAL REPORTS":512::" PREPARATION":6:"E(DIT REPORT HEADING)":6:"L(OAD EXTENDED LABELS)"::" DECISIONS ON GRADING":6:"G(RADES ON EACH ENTRY): ";::P$(4Y1)::6:"O(VERALL GRD1)"OVERALL GPA="Q" WITH":7D1);:S411:22D1);A(S)" "(69S);:S:22D1);A(0)" F":5D14);:O15ĺO1);:182"NAME";O14);K13G1ĺ(K1(K10))G1);:186"TAG";K12);J12G1ĺ(J1(J10))G1);:190"ID";N2:570::K:O1(J1K1(J10)(K10))(G1)25(D1))"WEIGHT=";:SHN1:TG(S):506:G(S);:S:B2E1ĺ" ";WO;:O1(J1K1(J10)(K10))(G1)25(D1))"EXAM# =";:SHN1:"PU",J$;S;:S::`:" ":7D1)"THERE ARE "R" NONZERO SCORES.":71(J1K1(J10)(K10))(G1)25(D1))"MAX= ";:SHN1:"PU",J$;B(S,5);:S:B2E1ĺ" "(10C(10).5)10;:K411:O1(J1K1(K10)(J10))(G1)25(D1));(69K)"=";:" ";:SHN1:"PU",J$;B(S,K);:S:B2E1ĺ" "(10C(5K).5)10;tB1B4U10(D1F10)ı<AH(I).05001:Z0:B2B5Z5G12(AC(1Z))(AC(2Z))(AC(3Z))(AC(4Z)):" "(197G);:G0166V12(AC(GZ))(C(G1Z)C(GZ).001):(171((V11FAC(4Z))AC(5Z))173(V11FAC(1Z)));mOI100);:T11(T10D11)į"PROPER",L$,L$dL$" ";:G1K10L$M$:"LAY",N$(I,3)L$1,K1:L$" ";uG1J1152L$N$(I,2)" ":(L$)J11L$(L$,J11)L$;J11(L$));(1018)255Č1016Q11000ĭQ1(Q1).0999ĺ" ";8~"PU",J$;B1;dS:P119(H(I)1000):Q1(P1H(I).5001)P1:(B1B4)ĺD10)"=";Q1;:156:N1:570:I:B3İ176D1ĺ(R1);:492(D1)İ524:496L$M$:O11L$"":142"LAY",N$(I,1)L$1,O11*5D1(I10));I"."I14:" "(64I)"="C(5I);:I:_r168:178:SHN1:L1(C$(S)));C$(S);:S:B2ĺ" TOTAL"t(13(B1));:B3ĺ" AVG."vI1L:138:E1M11130xSHN1:B1C%(I,S):B3B1(A%(I,S)10.5)zB10ĺL1);:128|B11ĺL11);"-";:12G1IdD1F1D(6):Z(F10):L1L1Z:J$J$(32Z):O1O15(F10)::494]f"CLR":104:78|h(B2B%0E0)İ68:"CLR"jB3İ6:"CLR"lD1İ482n6D1);K$;:E1ĺ:::118!p" --- "A$"SCORES"(13(D1));5);O" UNITS DROPPED":B3ĺ6);:H1:N1E:948VI1H1D(4)EH1K(B3)H1I1:540:84XX"CLR":5:E0H0:N10:94Z522:562:H(I$):H(I$):N1H1M1:N1EN1E\H1HEĺB$:M1M1K(B3):88^B3G11:BB3:(H1I1EM1)H1M1`D1İ526bEHD(4)KG1H1D(4)KIZED SCORES"::"WITH STUDENT ID AND TAG:":" 4. RAW SCORES":" 5. RAW SCORES W/TOTALS":" 6. STANDARDIZED SCORES":::E%6:G$"MAIN":556:B078RA$" RAW ":(B3B6)A$" STD. " TK((J1K1)L1):KK(K(J1K1)L1):M1M1K(B3):(EM1)UT JL1İ536ALC11(E$"V"):F$"VIEW":540:D1F$"PRINT"NF10:"CLR":5:"YOUR "F$" OPTIONS ARE:"::"NO STUDENT ID OR TAG:":G10:C11(D1):H1D(4):(EH1I1)H1I1P540:" 1. RAW SCORES":" 2. RAW SCORES W/TOTALS":" 3. STANDARDDB2:552:W0:I15:C(5I)0:I:I1E:WW(G(I)):J15:C(5J)C(5J)B(I,J)(G(I)):J:I:O0E1āJ15:C(5J)C(5J)OB(1,J):JFI1E:J1L:A%(J,I)C%(J,I):J,I:A%0:K1L:32:K:K1L:48:K:I1L:H(I)10H(I):I:B%1:H! PRINT O0:56& 4B2H(K)(H(K)E(K))10:56G 6H(K)((H(K)E(K))10)(A1O)M 8^ :I4:N3:570 <(H(K).05001)C(I)B1(H(K)C(I))(C(I1)C(I)):QQID(B1(1F)2I4)D(B1(1F)2):A(I)A(I)1:66 >I1II1:60 @H(K)0A(0)A(0)1 B46# *F(Z)XE(K)YD%X:X0:46X ,XXF(Z):YYD%F(Z):VVF(Z):F(Z)0:X0V036^ . 0N3:570:H(K)0:Y0:A10:P1E:A1A1(G(P))(A%(K,P)0):P:OA156 2S1E:H(K)H(K)A%(K,S)(G(S)(C$(S)"++"))(C%(K,S)0):S:E1H(K)A%(K,1)1(TB(H,S))(B(H,S1)B(H,S).00001).5)7 A%(K,H)U:L O0E(K)0:46 "N3:570:I1E:F(I)G(I)(A%(K,I)0):I:V0:I1E:VVF(I)(F(I)0):I:XO:Y0:OVXV $D%10000:S1E:(A%(K,S)D%G(S)0F(S)0)40 &D%A%(K,S):ZS (S:V08:524::: K4:K:H C$(H)"++"āK1L:A%(K,H)10C%(K,H):K:{ S6:TC%(K,H):T0U10(1(T1)(T1)):30 N3:570:TB(H,5)U10(C(5)TB(H,5)):30 SS1:TB(H,S)24 TB(H,S)U10C(S):30' U10C(S)(10(C(S1)C(S)))":K1L:32:K:15:"CALCULATING NEW AVG.":K1L:48:K P04:A(P)0:P:Q0:K1L:58:K:R0:P04:RRA(P):P:Q(Q100R.5)100:OM:A%1: C$(H)"++"ı K14:B(H,K)ĂK:"CLR":10::"ENTER GRADE BREAKPOINTS FOR EXAM ";H:A%0::19YL1!INDIV 1.34 8-19-85: copyright (c) 1985 BB$(7):436SB3:A%0ı: 534:B%0:"CLR":2:5:"NOW ";::"CALCULATING";::" STD. SCORES.":CH:H1E:15:"CONVERTING EXAM NO. "H:12:K1L:18:K:H:HC:MO:568:15:"DROPPING "O" UNIT(S                          enpN F0!" R멚7Ӎ8Lp`LLcL 3F00 0Ѕ0O opFмFLF0^_O00 0FL3Յ3Ү 仆opFм!FLF3^_Ү! 33 3FLλpVすvވMݬၹ`  `,LH0L HL7ɸLVM7w`LLC1985 DSR, Inc./By Bill BashamenpM!F3!" RLp`L]L"F! 33    P2 dZ8ĺ"UNABLE TO READ DISK -- CHECK DOOR."2@Z9ĺ"YOUR DISK IS FULL. INSERT ANOTHER DISK."3BZ10ĺ((816Z)):Z?12F$"":A10āZ0A11:F$F$((832Z)):Zq14E(3)22400:E(4)14400:E(5)29200:E(6)21800:16255:::223,250:"FIXSTACK",Z,G1:Z2541018"SOUND",250,220:Z2501092:"CLR":"ERROR #"Z" ON LINE ";G1:10:Z4ĺ"YOUR DISK IS W9):WD(10):YD(11):A1D(12):B(20,3),A$(20),A(5),E(6),C(20,1),H$(8):I14:A(I)D(I15):0.SD(20):TD(21):JD(22):B%D(23):C%D(24):FD(25):DD(26):UD(27):VD(28):C$(4):G$(7):D$"":W0āZ0W1:D$D$((800Z)):Z10E$"":Y0āZ0Y1:E$E$A$H$(P)/"C15A$H$(U)4/$(C16C17)U0296\/&278:A$;:C2ĝ:C36:286:C:C2b/(~/*:10:18::"BUSY"::Y0,:F1768:D(29):I029:D(I)(F1I):I:MD(0)(D(0)255)(847):ND(1):OD(2):HD(3):KD(4):PD(5):GD(6):QD(7):LD(8):RD(I)5000(20JTR)M)(403.2M)):I:R."HIT ANY KEY TO CONTINUE. ";:A$:A$:q."GOTOYX",B(C,0),B(C,1);:."GOTOYX",22,1;:."GOTOYX",C(C,0),C(C,1);A$(C)::."GOTOYX",C(C,0),C(C,1);:.A$(B(C,2)):(C4C6)(116)176ı/ C10$:"ONERRLINE",268F-I(J$):"ONERRLINE",310:I13ĺ17(A$));:-J$;:A$A$J$:(A$)16A$(A$,16):"SOUND",250,220-258- A$(0):- J$(0):-"GOTOYX",CB2(C3)(C5),4;A$(C);:-:"RETURN";::&.I36:B(I,2)(1.0(E(ARACTERS OR LESS.":D%1::1,D%Ģ23:276:1869,10R,A(A$):A13ġ:226c,A17ġ:230i,,"CTRLCHR",:A$:"ONERRLINE",266,E1(A$):"ONERRLINE",310:(E113E117)256,"CTRLCHR",OFF:E117ġ:230,:226,A$;-J(2,2):C%B(6,2)+"CLR":7:D%0:(L0LK)į"SOUND",250,220:"SMALL PRINT CANNOT HAVE FEWER":" COLUMNS/PG THAN STANDARD PRINT.":D%1::,((D$)16(E$)16(F$)16)į"SOUND",250,220:"ALL PRINTER COMMAND STRINGS MUST BE":" 16 CHC8!*C(C1)(C8)(C8):198*282:280:B$:B$:B$;:"GOTOYX",24,14:"ALL OK? Y";(8);:"SOUND",45,0:A$:A$;:A$"Y"A$"y"A$(13)*A$(13)188+K(B(2,2)21J)4:LB(5,2)(B(6,2)17J)4:V12(B(4,2)0):D$H$(3):E$H$(7):F$H$(8):B%B;H$(8);:"CTRLCHR",OFF:198U)(C3C7C8)İ248:"CTRLCHR",OFF:H$(C)A$:278:214j)(C2C6)226)A$(B(C,2)):"FORMINPUT",3,A$,I$:I$(17)I$"":230)A$""226)(A$)0į"SOUND",250,220:198)B(C,2)(A$)*282:C5(B(C,2))13ĺH$(B(C,2));:2261(A17ĺH$(B(C,2));:230o(B(C,2)B(C,2):H$(B(C,2));:"GOTOYX",B(C1,0),1:C4198(B(C,2)āI14:B$:I:198)"CTRLCHR",:" COLUMNS/PAGE: ";B(6,2):" COMMAND TO TURN ON : ";H$(7):" COMMAND TO TURN OFF: "R",OFF 'C4C5ĺH$(B(C,2));2'C:(L0)196|'278:B(C,2);:278:C78:"CTRLCHR",:278:H$(C);:"CTRLCHR",OFF:C'C1':282:278'C1ľA$:242:Q(A$):Q;(7(Q7));:278:200'(C4C5)214(:282:278:A$:A(A$):278:A11:"PRINTER PARAMETERS":11:"------------------":::C18:284:A$(C(C6L));:C&280:B$:B$:B$;:"GOTOYX",23,9:272:" TO ACCEPT VALUE.":9:"CTRL-Q TO EXIT SCREEN.";'C15:278:B(C,2);:278:C3į"CTRLCHR",:H$(3);" ";:"CTRLCHRINT W/FORM FEED:":C(4,0)8:C(4,1)3%A$(5)"IS SMALLER PRINT AVAILABLE?":C(5,0)11:C(5,1)3:A$(6)"COLUMNS/PAGE:":C(6,0)13:C(6,1)6:A$(7)"COMMAND TO TURN ON :":C(7,0)14:C(7,1)6:A$(8)"COMMAND TO TURN OFF:":C(8,0)15:C(8,1)6U&"CLR":"GOTOYX",1,7,0)14:B(7,1)27:B(7,2)0:B(8,0)15:B(8,1)27:B(8,2)0w$H$(1)"YES":H$(0)" NO":H$(3)D$:H$(7)E$:H$(8)F$:A$(0)""$%A$(1)"PRINTER SLOT:":C(1,0)5:C(1,1)3:A$(2)"COLUMNS/PAGE:":C(2,0)6:C(2,1)3:A$(3)"SETUP STRING:":C(3,0)7:C(3,1)3:A$(4)"END P(E5)3):OB(4,2)B(5,2):K(B%21J)4:L(L0)(C%17J)4:22::107$B(1,0)5:B(1,1)17:B(1,2)Q:B(2,0)6:B(2,1)17:B(2,2)B%:B(3,0)7:B(3,1)17:B(3,2)0:B(4,0)8:B(4,1)26:B(4,2)(V0):B(5,0)11:B(5,1)31:B(5,2)(L0):B(6,0)13:B(6,1)20:B(6,2)C%:B(0)ĺG;"C3ĺH$(B(C,2));"C::280:B$:B$:B$;:"GOTOYX",24,14:"ALL OK? Y";(8);:"SOUND",45,0:A$:A$;:A$"Y"A$"y"A$(13)"A$(13)134E#GB(3,2)(B(1,2)):E4040(G0):H(.1(E12(75(G0)(J28)(J15)))(3(G0))):S(.1,2)1C3)B1C:C3:282:278:CB1:B(3,2);5!142_!282:A$(B(C,2)):C3A$H$(B(C,2))!278:A$;:(C2B(2,2)1)C3:142!(C2B(2,2)0)ĝ:"GOTOYX",9,8;" "!C(C1)(C5)(C5)(C2):142"282::C15:278:(C3B(2,2)B(C,2)B(C,2):H$(B(C,2));z 278::(C1B(1,2)B(2,2))B(2,2)B(2,2):"GOTOYX",B(2,0),B(2,1);H$(B(2,2));:GC1(G0) (C2B(1,2)B(2,2))B(1,2)B(1,2):"GOTOYX",B(1,0),B(1,1);H$(B(1,2));:GC1(G0) B(2,2)0į"GOTOYX",B(3,0),1;B$;,!(B(2TO EXIT SCREEN.";:C15:278:C3ĺH$(B(C,2));N(C3B(2,2)0)İ278:G;YC:C1~A$(B(C,2)):C3A$H$(B(C,2)):282:278:A$;:278:A$:A(A$):A13162A17170C3ĺA$;:G(A$):B(C,2)G:C1G:G7į"SOUND",250,220 C3LR":"GOTOYX",1,6:"SCREEN & KEYBOARD PARAMETERS":6:"----------------------------"::::" SCREEN USED:":C15:284:A$(C(C3B(2,2)0));:C:"GOTOYX",13,3;"KEYBOARD USED:"0280:B$:B$:B$;:"GOTOYX",23,9:272:" TO ACCEPT VALUE.":9:"CTRL-Q S":H$(0)" NO":A$(0)"":A$(1)"40 COLUMN SCREEN:":C(1,0)7:C(1,1)5:A$(2)"80 COLUMN SCREEN:":C(2,0)8:C(2,1)5A$(3)"(IN SLOT )":C(3,0)9:C(3,1)8:A$(4)"LOWER CASE DISPLAY:":C(4,0)14:C(4,1)5:A$(5)"LOWER CASE KEYBOARD:":C(5,0)15:C(5,1)5"CING ORDER":::D%1-|D%Ģ23:276:D%1645~10B(1,0)7:B(1,1)25:B(1,2)(G0):B(2,0)8:B(1,1)25:B(2,1)25:B(2,2)(G0):C1G:C10C13oB(3,0)9:B(3,1)17:B(3,2)C1:B(4,0)14:B(4,1)26:B(4,2)(O0):B(5,0)15:B(5,1)26:B(5,2)(O2):H$(1)"YEYOU MUST USE THE OVERLAY VERSION.":D%2::yxD50į"SOUND",250,220:5:"GRADE POINT BONUS CANNOT BE OVER .5":::D%1zE%0:I311:E%E%(A(I)A(I1))::E%0į"SOUND",250,220:"MACHINE-SELECTED BREAKPOINTS MUST BE:":8:"UNIQUE":8:"IN DESCENDON BACK OF SYSTEMMASTER TO UPDATE DISK TO 64K DOS.":D%1::t(NB(4,2)NB(6,2)(116)176)(NB(3,2)NB(5,2)(116)176)120+v"SOUND",250,220:5:"YOU ARE USING "6416((116)176)"K DOS. WITH THIS":"DOS, TO USE "M" STUDENTS AND "N" EXAMS,":",2):I1114:A(15I)B(I,2)::"CLR":8:D%0:274:NB(5,2)į"SOUND",250,220:5:"NOT ENOUGH MEMORY FOR":10:M;" STUDENTS":10:N;" EXAMS":D%1::<rNB(6,2)(116)176į"SOUND",250,220:"NOT ENOUGH MEMORY USING 48K DOS.":::"RUN 'HELLO DIVERSIDOS' 82:2863jC(C1)(C17)(C17)15(C15U0):72l"SOUND",45,0:282::C12:286:C::C717:286:C::"GOTOYX",20,17;" ";:"GOTOYX",23,1:B$:B$;:"GOTOYX",24,14m"ALL OK? Y";(8);:A$:A$;:A$"Y"A$"y"A$(13)nA$(13)64pNB(2bB(C,2)((A$)):FB(16,2):D(100B(17,2)):C2āC36:286:C:C2:A$(B(C,2))od(C1C7C8C9)72fJB(7,2):TB(8,2):RB(9,2):MB(1,2):274:B1C:C36:286:"GOTOYX",B(C,0),B(C,1)(A$):((A$)4)((A$)3)((A$)2));:C:CB1:72h2$):A13104RA17108+TC10P(P)MVC15UU:UĢ19:1:B$:B$sXC15UāC1617:282:286::C15{Z72\"FORMINPUT",B(C,3),A$,I$:I$(17)I$"":108^(A$)B(C,2)104`((A$)0C7C8C9C17)į"SOUND",250,220:72Q282FC:"GOTOYX",23,1:B$:B$;:"GOTOYX",23,9:272:" TO ACCEPT VALUE.":9:"CTRL-Q TO EXIT SCREEN.";::C117:286:C:C1HA$(B(C,2)):(C2C7)106JC10A$H$(P)LC15A$H$(U)N:282:278:(C10C15)92 PA$;:278:A$:A(A"------ CLASS RECORDS PARAMETERS ------":5:"EXAMS ALLOWED: STANDARD OVERLAY":"NEEDED 64K 64K ":"------ -------- --------":C12:282::(116)17668B6:24:"48K 64K 48K"DC715:282::C1617:U,0)10:C(7,1)1:C(8,0)11:C(8,1)24:C(9,0)12:C(9,1)23:C(10,0)13:C(10,1)1>C(11,0)14:C(11,1)1:C(12,0)15:C(12,1)1:C(13,0)16:C(13,1)31:C(14,0)17:C(14,1)31:C(15,0)18:C(15,1)1:C(16,0)19:C(16,1)6:C(17,0)20:C(17,1)6@"CLR":"GOTOYX",1,1:LECTED BREAKPOINTS: A=":A$(12)"(& STANDARD SCORE GRADELINES) B=":A$(13)" C="L<A$(14)" D=":A$(15)"EMPLOY PLUS/MINUS GRADING SYSTEM:":A$(16)"% OF GRADE RANGE W/O + OR -=":A$(17)"GRADE-POINT BONUS FOR + =":C(1,0)3:C(1,1)1:C(2,0)8:C(2,1)1:C(7(2,2)N:B(7,2)J:B(8,2)T:B(9,2)R:B(16,2)F:B(17,2)D100:I1114:B(I,2)A(15I):I:274P:A$(1)"YOUR MAXIMUM CLASS SIZE:":A$(2)" ":A$(7)"COL'S FOR PRINTOUT: NAME =":A$(8)"ID =":A$(9)"TAG =":A$(10)"LETTER GRADES ON PRINTOUT?":A$(11)"MACHINE-SE(I4):B(I,3)3::B(7,0)10:B(7,1)29:B(7,3)2:B(8,0)11:B(8,1)29:B(8,3)2:B(9,0)12:B(9,1)29:B(9,3)2:B(10,0)13:B(10,1)31Z8I1114:B(I,0)I3:B(I,1)35:B(I,3)2::I1517:B(I,0)I3:B(I,1)35:B(I,3)3::B(15,3)2:H$(1)"YES":H$(0)" NO":B(1,2)M:B:W(D$):778,W:AW:X800:50j.A$E$:Y(E$):779,Y:AY:X816:50:A$F$:A1(F$):780,A1:AA1:X832:50p02A0āI0A1:XI,((A$,I1,1)):I4}6B(1,0)3:B(1,1)26:B(1,3)3:B(2,0)8:B(2,1)3:B(2,3)3:I36:B(I,0)8:B(I,1)195(I3)2(B%21J)4:L(L0)(C%17J)4:K1K1,768,M(M256)255(M255):847,(M255)(M255):769,N:770,O:771,H:772,K:773,P:774,G:775,Q:776,L:777,R:781,0:I14:783I,A(I):I:788,S:789,T:790,J:791,B%:792,C%:793,F:794,D:795,U:796,V:A$D$...... END ......":22:12İ260:262:8:2523 "m $:C$;"BLOAD CLR DATA,D1":798,73:799,137:797,33: &:(4);"VERIFY CROSSROADS":(4);"RUN CROSSROADS" (298:E4040(G0):H(.1(E12(75(G0)(J28)(J15)))(3(G0))):H1H1)*K5İ40+ A%C:C54,128,180,28,36,30,38,323 14 798,0:799,0::40:(4);"BSAVE CLR DATA,A$300,L$50,D1":798,73:799,137:10 :(4);"VERIFY CLASS RECORDS":(4);"RUN CLASS RECORDS"- "RSETNORM":"CLR":"GOTOYX",5,1:"&RESTORE"::10:6:"16368,0:C1:A$" ":CA%C(A%)Q :270:A$:A(A$):A13ĝ:"SOUND",45,0:22 (A8A21A10A11)į"SOUND",200,200:16 :270:C(C1)(C8(A21A10))(C1)(C1(A8A11))(C8(A21A10))8(C1(A8A11)):"SOUND",13,62:16 CPARAMETERS":A$(3)"CHANGE PRINTER PARAMETERS":A$(4)"SAVE PARAMETERS":A$(5)"LOAD NEW PARAMETERS" A$(6)"RUN CLASS RECORDS":A$(7)"--> CROSSROADS MENU":A$(8)"QUIT"::C18:270:C:"GOTOYX",22,15;"<-- OR --> TO SELECT, ":15:272:" TO ACCEPT." 256(176)46:298:300:B$" "::A%1` "ONERRLINE",310u "RSETONERR",250a :"CLR":B6:B:6:"MODIFY PARAMETERS":6:"-----------------":A$(1)"CHANGE CLASS RECORDS PARAMETERS":A$(2)"CHANGE SCREEN/KEYBOARD 1=!MODIFY PARAMETERS 1.85 10-24-85 : Copyright (c) 1985:(12);(26)"1"::(12);(21):(4)"MAXFILES 3":((798)73(799)137)Ģ2::(4);"BLOAD CLR DATA,D1":798,73:799,137:(1018)255(116)176ĺ(4)"BRUN GARB":65200,2J :(175)                               DJF:3:"(";:J$""ĺJ$;BJHD1$J$:J$""ĺ"NO FILE NAME";ZJJ" IN MEMORY)":1:JL:10:"DO YOU NEED TO SAVE A FILE (Y/N)";:570:D12ġJNJP"CLR":10:"RESPONSE NOT ALLOWED. ";::"TRY AGAIN."::Q11000:Q:KR22::"(HIT ";:.I8(12);(26)"1"::(12);(21):F10:566:~I:"?";:R$:"LCTOUC",R$,R$:R$:D1(R$"Y")2(R$"N")4(R$(13)):(D1)574I<D13:"CLR":5:10:"PLEASE ANSWER ";::"YES OR NO";::".":Q1500:Q:"CLR"I>I@RL1((R)):R0580IBR);JB506,510,186,326,66,406,720%H(536H*588::::"LOADING CROSSROADS MENU"::" FROM DRIVE 1":J$"CROSSROADS":D$"RUN CROSSROADS,D1"H,E10560H.562:(H1I1I1)ĺA1$;H0H2"CLR"::D$;"PR#";X2:B1$;:H4E1ĺC1$;H6:(4)"PR#"F1:20:868:"= ";::(1018)255Ĺ65200,0:1016:65200,2:Y(111)(109)256((112)(110)){G"C$"F"(1018)255Y(0)G$C$"F"ĺY;::") ":23:30:" ":542H&B(C$"L")2(C$"S")3(C$"C")4(C$"A")5(C$"V"C$"P")6(C$"G")7(C$"Q"):A)":"G(RADING HELP/SUMMARY)":F"V(IEW SCORES)":"P(RINT SCORES)"::"F(REE SPACE CHECK)":"X(--> CROSSROADS MENU)":"Q(UIT -- TO BASIC)":32,0:F23:"PLEASE ENTER YOUR SELECTION:";:30:C$:"LCTOUC",C$,C$:C$;:22::C$"X"İ554\G C$"F"Ģ18:1750:I:530.EH1D(4):(1018)255Č1016F:D$(4):F10:568:582:"CLASS RECORDS MAIN MENU":I123:"-";:::6:"SELECT BY ENTERING FIRST LETTER:":32,7::"L(OAD FILE FROM DISK)":"S(AVE FILE TO DISK)"::"A(DD DATA)":"C(HANGE/SUPPLEMENT DAT:"THE OLD FILE WAS: "J$;Z$:"DESIRED FILE IS: "T$;X$::10:"HIT ";:642:" TO "C$" FILE":10:"INPUT M TO RETURN TO MENU ";:Y$:"LCTOUC",Y$,Y$:Y$:Y$(13)J$T$:DY$"M"ġ:E:"I DO NOT UNDERSTAND YOUR RESPONSE.":19:"PLEASE TRY AGAIN:":I$X$:Q1(T$):(T$,Q,1)(44)X$(T$,Q):T$(T$,Q1):Q(T$)(X$):"LCTOUC",X$,X$uC Q:T$(77)T$(109)ġ:C T$(49)T$(50)X$",D"T$:"CLR"::D$"CATALOG";X$:518CT$""J$""512CT$""T$J$:D21:L$:L$:L$:L$:L$;:20:ĺ" THERE'S NO FILE NAME IN MEMORY.":516JB"PRESENT FILE NAME: "J$;X$RB:B3:"ENTER THE DESIRED FILE NAME, OR:":7:642:" TO "C$" PRESENT FILE":7:"M(TO RETURN TO MAIN MENU)":7:"1 OR 2 = CATALOG (D1/D2)":10:"INPUT$",T$:T$""526VCZ":512:D$"OPEN G."J$;X$:D$"DELETE G."J$:D$"OPEN G."J$:D$"WRITE G."J$:E:P:M:O1E:F(O):Q15:A(O,Q):Q,O:O1P:M$(O,1):Q1E:C%(O,Q):Q:O:O1P:M$(O,2)::O1E:B$(O)::O1P:M$(O,3)::D$"CLOSE":*B"CLR":5::C$" FILE:":::J$""P:M:B%0:A%0:EJ2PH21ĺD$"CLOSE":222,77:698@O1E:F(O):Q15:A(O,Q):Q,O:664:O1P:"INPUT$",M$(O,1):Q1E:C%(O,Q):Q:O:O1P:"INPUT$",M$(O,2):M$(O,3)""::O1E:"INPUT$",B$(O)::O1P:"INPUT$",M$(O,3)::D$"CLOSE":AC$"SAVES 1":568::G$(7):((798)73(799)137)Ģ2::(4);"BLOAD CLR DATA":798,73:799,137:(1018)255(116)176ĺ(4)"BRUN GARB":65200,2?(175)256(176)46:640:682:5363@C$"LOAD":512:D$"VERIFY G."J$;X$:D$"OPEN G."J$:D$"READ G."J$:E:W21:L%(J)1L2L%(J)L%(J)1:478/>K%K%1W>W20āO1W2:(42);:O:K%J488>JK%ĺ(W2E%3)(E%W2((IT2(J1)R2))));>J:IJ%(L21)IJ%(P)1R2>I:E1ĺ(T1);:564>(E1)ľA$:A$>>! START?:(4)"MAXFILE "D2" ("B$(D2)") MAX="A(D2,5);S=IJ%(P)J%(P)1U2T2:N1:666::E1ĺ5);=J1K%:Z0I(J1)U2:Z10:V214:B1Z0H%(V2):Z1V2(B10(B1)T2):V2V24Z1:V2:(Z1)Ğ=Z0;(32(37Z1)(Z10));::W20=J%(L%(J))I(J1)U2484#>W250:E%20<T21((I%1)(3R2)):U2R2T2:K%1(I%U21)(I%U22):O1K%:L%(O)0:QPL211:J%(Q)J%(P)(O1)U2(O1)(T21)L%(O)Q:QL21<Q:O:E1ĺ3);J$" ";<:"... ";:D2ĺA$(H$"S");" SCORE OVERVIEW: MAX = "K2;:472"="EXAM POINTS":"2. EXAM SUMMARY"::"3. VIEW HISTOGRAM":"4. PRINT HISTOGRAM":32,0::22:F$"MAIN":E%4:644:B458,436,456,456;452;D15B:612:460;618:640:428:434:436:;E1İ600 <640:I%J%(P)J%(L21)1:R222:E%13:E1İ562:446::R2"MEDIAN SCORE = "O2;5)"STD DEV = "N2:I)"A="H%(4)" B="H%(3)" C="H%(2)" D="H%(1):I)"OVERALL GPA="A1" WITH":I);:Q411:L17:RG(Q):576:G(Q)" "(69Q)",";:Q:4);G(0)" F":z;E10::"CLR":5:"GRADING AIDS:":8:32,7::"1. CHANGE THE BREAKING)"p9E10Ģ24:"(CTRL-P DUMPS SCREEN TO PRINTER)";:21::598:Q2144E11:600:556:436:(T1):566:E10v99I7E1:I);C1" SCORES >0 IN: "J$", ";:D20ĺA$(H$"S")"SCORE OVERVIEW":4509"EXAM #"D2" ("B$(D2)")":I)"AVERAGE= "M2;5)STD DEV = "N2:9:"MAXIMUM SCORE = "K2::11:" BREAK # OF":11:"GRADE POINTS STUDENTS":11:"----- ------ --------"9O401:13:(70O(O0));:L18:RH%(O):576:H%(O);:RG(O):576:G(O):O::8:"EXAM GPA = "A1:P2Ė8:"(USING +/- GRADA2J%(O)J%(O):O:N2(10((A2M2M2C1)C1.5))10:M2((M2C1)10.5)10:B1(C11)2:O2(J%(B1L2.6)):7:2:"EXAM #"D2" ("B$(D2)")";:D20ė:2:A$(H$"S")" SCORE OVERVIEW";8::9:C1" SCORES >0":9:"AVERAGE = "M2:9:"MEDIAN = "O2:9:":J%(O)H%(Q)B1(J%(O)H%(Q))(H%(Q1)H%(Q).001):A1A1QD(B1(1F)2Q4)D(B1(1F)2):G(Q)G(Q)1:Q1:Q:4326Q:J%(O)0G(0)G(0)16O:C10:X04:C1C1G(X):X:A1(A1100C1.5)100:L2PC1:m7M20:A20:O1L2C1L2:M2M2J%(O):A2406B5O1P:J%(O)C%(O,D2)::424:640:O15:H%(O)A(D2,O):Oe5K2H%(5):428:434:436:452:5"CLR":10::"SORTING";::" SCORES: ":G%(0)1:G%(1)0:"SRT",J%(1)J%(P)G%(0):B%0:A%0:"CLR":105w6X04:G(X)0:X:A10:O1P:Q411S":10:"WHICH EXAM NO.: ";:650:"LCTOUC",H$,H$:D2(H$):H$""D2E:10:17:Ei4H$"R"H$"S"4184H$"R"(B%)İ624H$"S"(A%)İ64656:O05:H%(O)B(O5(H$"R"O0)):O:O1P:J%(O)G(O).10001::424:640:4225D21D2Eİ592:;:642:" IF ALL IS O.K.)":I14:L$:I:L$;:19::10:"(ANYTHING ELSE TRIES AGAIN.)";:T$::T$(13)ı3B%0:A%0:I2I21:368:3 ! MAKE UP GRADESP4608:"CLR":E10:10:17:E::10:"R = TOTAL RAW SCORES":10:"S = AVERAGE STANDARD SCOREB$(I2)"++")((I(O)100)(K2).5):O:D2I2:H$"":O15:H%(O)A(D2,O):O:638:23:598:2"CLR":594:7:"REPLACE WHICH EXAM NO.?";:650:H$""ı2I2(H$):I21I2Eİ592:398k318:"EXAM "I2" ("B$(I2)") IS GOING TO BE REPLACED.":10:"(HIT "NTER STUDENT SCORES:"::O1PZ1M$(O,1)": ";:"";W$:"LCTOUC",W$,W$:W$"Q"Ĺ34,0::x1W$"0"C%(O,I21)0:3961W$"-"C%(O,I21)1:3961C%(O,I21)(W$):C%(O,I21)0C%(O,I21)(K2)ĺG$;:388[2O:34,0:I2I21:O14:A(I2,O)(K20": MAX SCORE = "K2","::34,4::"CLR":B$(I21)"++"P$"0":F(I21)0:3860|"ENTER WEIGHT FACTOR: 1";(8);:"";Q$:"LCTOUC",Q$,Q$:G2(Q$)(Q$""):5:22:G2:Q$"Q"Ĺ34,0::0~(Q$"0"G20)Ģ5:G$;:3800F(I21)G2:1:29:"WT = "G21:"EUT$",F$:F$"Q"ıJ/vB$(I21)(F$,3):B$(I21)"++"V$"999":K2999:378/w10:5:"MAXIMUM POSSIBLE SCORE: ";V$:"LCTOUC",V$,V$:K2((V$)):V$"Q"ı/xK20(K2)4ĺG$"MAX MUST BE >3":374K0zA(I21,5)(K2):B%0:A%0:F(I21)1:1:"EXAM #"I210 .j:.lJ$"":*.nI2E:368:EI2:_.pI2J2į"CLR":12:678:"BEEP",40,50:23:598:.rP1į"CLR":10:"NO NAMES IN FILE.":16:598:/t"CLR":3:".........HIT Q AT ANY TIME TO ABORT":8:"THREE-CHARACTER LABEL FOR EXAM #"I21": ";:"INPO,2)"":O-`34,0:W-bB1H21ĺG$:"MAXIMUM NO. OF NAMES REACHED.":598:PB1:352q-d((B2B3)B1P)352-fB1B11:346.h:10:"'ALL NEW NAMES' CLEARS ALL DATA"::"IN MEMORY AND STARTS OVER."::::15:"IS THIS OK";:570:D1364,362,360,36NOW ENTERING STUDENT ";F$;".":B11:" (ENTER ";:642:" TO TERMINATE.)"::O1P:M$(O,B)"":O::34,4:B1E0:M0,ZB2B3ĺ(M$(B1,1),12);" ";,\F$"#"1(B110));B1": ";:"INPUT$",N$:CB1:M$(B1,B)N$:M$(B1,B)""354 -^B1PB11:O1P:M$( ALL NEW NAMES (NEW FILE)":7:"5. ALL NEW ID'S":7:"6. ALL NEW TAGS":i+JE%6:F$"MAIN":644:B0326+LB4P1ĺG$:326+ND2E:B366,676,398,338,338,338+P328+RBB3:B2F$"ID":344+TB3F$"TAG":344+VF$"NAME":360u,X"CLR":"D SCORE: ";O$:C%(C,Q1)(O$):A%0:B%0:O$"-"C%(C,Q1)1C*D312U*F! NEW DATA H+H"CLR":5:"YOUR A(DD NEW DATA) OPTIONS ARE:":::7:"1. NEW EXAM SCORES (EXAM #"E1")":7:"2. CHANGE BREAKPOINTS FOR EXAM #"E::7:"3. REENTER OLD EXAM"::7:"4.5);:20:B$(J):J:::24:"(HIT ";:642:" IF DONE.)";:21::"CHANGE WHICH EXAM? ";:650:U$H$:Q1(U$):U$""308)>Q11Q1EĺG$;G$:312)@22:L$:22:B1(C%(C,Q1)1):"OLD SCORE WAS ";(45B1);:B1ĺC%(C,Q1);:*B::L$;:22::"ENTER CORRECTETS.":23:598:298^(4"CLR":8:" (1-"P")":594:7:"STUDENT NUMBER: ";T$:C(T$):T$""ıu(6C1CPİ592:308(8"CLR":5:M$(C,1)":"::"EXAM SCORE/MAX LABEL":J1E:" "J10);J;:YC%(C,J):8((Y)));:Y1ĺ"-";:316(:Y;t)<" /"A(J,HIS NAME";:570:D1306,298,304,3048'0592:"CLR":302(2640:QCP1:X13:M$(Q,X)M$(Q1,X):X:G(Q)G(Q1):X1E:C%(Q,X)C%(Q1,X):A%(Q,X)A%(Q1,X):X,Q:PP1:A%0:X13:M$(P1,X)"":X:X1E:C%(P1,X)0:X:"CLR":11:"THERE ARE NOW "P" STUDEN1294,288,292,292U&&B%0:A%0:PP1:M$(P,2)"":M$(P,3)"":E0āI1E:C%(P,I)1:I^&(288&*"CLR":8:" (1-"P")":594:7:"NO. OF STUDENT TO DELETE: ";T$:C(T$):T$""ı&,C1CPİ592:298#'.15:M$(C,1)" IS STUDENT NO. "C".":5:"DELETE TM$(C,B)N$:"NO. "C" IS NOW: "N$:23:598:272w% "CLR":594:8:PH21ĺ:G$"MAXIMUM NO. OF NAMES REACHED.":598:%"7:"INPUT$","ENTER NEW NAME: ";M$(P1,1):M$(P1,1)""ı&$12:M$(P1,1)" IS NOW STUDENT NO "P1".":5:"IS THIS O.K.";:570:D$):T$""ı"$C1CPİ592:272$15:M$(C,1)" IS STUDENT NO. "C".":5:"IS THIS THE ONE YOU WANTED ";:570:D1284,272,282,282$592:"CLR":280$19:4);"OLD "F$" ";M$(C,B):I2023:L$:I:20:"REVISED "F$;:"INPUT$"," ";N$:N$""284/%ZE BY ID":"8. ALPHABETIZE BY TAG":32,0:P# E%8:F$"PRECEDING":644:B0262w# B272,272,272,288,298,194,194,194#262#F$" NAME:":B2F$"ID:"#B3F$"TAG:" $"CLR":6:"RETYPE "F$:8:" (1-"P")":594:7:"STUDENT NO.: ";T$:C(TK:.":"# OF UNITS DROPPED = D = "M:::C""CLR":P1İ610*#4:"NAME/ID/TAG CHANGES:":32,7::::"1. CHANGE A NAME":"2. CHANGE AN ID":"3. CHANGE A TAG"::"4. ADD A NEW NAME":"5. DELETE A NAME"::"6. ALPHABETIZE BY NAMES":"7. ALPHABETI252!B$(C2)"++"F(C2)0#!""#"3);:QX1Y1:"PU",I$;Q;:Q::"LBL ";:QX1Y1:L1(B$(Q)));B$(Q);:Q:::"MAX ";:KX1Y1:"PU",I$;A(K,5);:K::J411:(69J);3):KX1Y1:"PU",I$;A(K,J);:K::J:"WT ";:KX1Y1:RF(K):576:F(K);:$" ":> "ENTER EXAM NO. (1-"E"): ";:650:O$H$:O$""250 C2(((O$))):(C21C2E)O$"D"ĺG$;:(37):868:10:246 !"NEW LABEL FOR EXAM "C2" = ":"(3 CHARACTERS OR LESS)":20:25:"INPUT$",B$(C2):(B$(C2))3į"BEEP",40,50:20:X LESS THAN 'A' BREAKLINE! OK";:570:R$"Y"ıYG20G2A(C2,4)İ240:D2C2:676:qA(C2,5)G2(G20)::"DROP HOW MANY UNITS: ";S$:M((S$)):664:MF2į"CLR":7:"ALLOWED DROPS = "F2:"DROP="M::"TOO MANY DROPS.":G$:M0:23:598 OE20:I1E:E2E2(F(I)):I:664:(MF2)(ME2)ĺG$;"NOW TOO MANY DROPS!":598X"NEW MAX SCORE FOR EXAM "C2" = ";:"";Q$:G2(Q$):Q$""ĺG$:20:232(G2)4G20ĺ"MAX SCORE MUST BE >3":(7):22:598:1G20G2A(C2,4)ĺG$"NEW MA:5:"L(ABEL)";:20:O$:"LCTOUC",O$,O$::O$(13)ıZI1923:L$:I:20:O$"W"İ224kO$"M"İ232|O$"L"İ252O$"B"D2C2:676O$" ":206B1F(C2)"NEW WT. FACTOR FOR EXAM "C2"=";:"";P$:F(C2)(P$):P$""ĺG$:20:226RLR":Y1EY1E:H$""ıp258:594:664:13:"ENTER D TO CHANGE DROP NO., OR":10:246:14:L$:13::O$""ıB%0:A%0:O$"D"İ242:206513:L$:13:"SELECT TYPE OF CHANGE FOR EXAM #"C2":"::5:"B(REAKPOINTS)":5:"W(EIGHT)":5:"M(AX SCORE)"F%(0)RO1P:C%((M$(O,0)),0)O::G%(0)1:G%(1)0:"SRT",C%(1,0)C%(P,0)G%(0)X"CLR":L13:I$" ":E1ĺ"NO SCORES RECORDED":598:X11:Y1E:EB22087:A$" ":M1B2:E$"VIEW":596:650:X1(H$):Y1X11B2:X11ĺG$;:204"C::"1. EXAM CONSTANTS":"2. NAMES/ID'S/TAGS":"3. SCORES":32,0::E%3:F$"MAIN":644:B0186sB200,262,308|186"CLR":10:"NOW ";::"SORTING";::QB5:O1P:M$(O,0)(O)::A%0:B%0:F%(0)2:F%(1)Q:F%(2)1(Q1):"SRT",M$(1,0)M$(P,0)15ĺO1);:176#"NAME";O14);IK13G1ĺ(K1(K10))G1);:180\"TAG";K12);J12G1ĺ(J1(J10))G1);:184"ID";J11);! FIX DATA`"CLR":6:"YOUR C(HANGE/SUPPLEMENT) OPTIONS ARE: ":::6:"CHANGES:";:32,10:V:O1(J1K1(J10)(K10))(G1)25(E1))"EXAM# =";:QHN1:"PU",I$;Q;:Q:::" ":7E1)"THERE ARE "C1" NONZERO SCORES.":7E1)"OVERALL GPA="A1" WITH":7E1);:Q411:22E1);H(Q)" "(69Q);:Q:22E1);H(0)" F":5E14);:OO411:O1(J1K1(K10)(J10))(G1)25(E1));(69O)"=";:" ";:QHN1:"PU",I$;A(Q,O);:Q:B2E1ĺ" "(10B(5O).5)10;N2:666::O:O1(J1K1(J10)(K10))(G1)25(E1))"WEIGHT=";:QHN1:RF(Q):576:;F(Q);:Q:B2E1ĺ" ";WM;" "(197G);:G0160}W12(AB(GY))(B(G1Y)B(GY).001):(171((W11FAB(4Y))AB(5Y))173(W11FAB(1Y)));O1(J1K1(J10)(K10))(G1)25(E1))"MAX= ";:QHN1:"PU",I$;A(Q,5);:Q:B2E1ĺ" "(10B(10).5)10;:-K$M$(I,2)" ":(K$)J11K$(K$,J11)CK$;J11(K$));[(1018)255Č1016aR11000ĭR1(R1).0999ĺ" ";B1B4V10(E1F10)ıAG(I).05001:Y0:B2B5Y5G12(AB(1Y))(AB(2Y))(AB(3Y))(AB(4Y)):I:B3İ170 ~E1ĺ(T1);:5645(E1)İ598:568;VK$L$:O11K$"":136s"LAY",M$(I,1)K$1,O115E1(I10));I"."I100);:U11(U10E11)į"PROPER",K$,K$K$" ";:G1K10K$L$:"LAY",M$(I,3)K$1,K1:K$" ";G1J11463ĺ" AVG.")pI1P:132:E1M11124YrQHN1:B1C%(I,Q):B3B1(A%(I,Q)10.5)otB10ĺL1);:122vB11ĺL11);"-";:122x"PU",I$;B1;zQ:P119(G(I)1000):R1(P1G(I).5001)P1:(B1B4)ĺE10)"=";R1;:150 |:N1:666::"CLR"dB3İ6:"CLR"'fE1İ556Gh6E1);J$;:E1ĺ:::112j" --- "A$"SCORES"(13(E1));5);M" UNITS DROPPED":B3ĺ6);:I14:" "(64I)"="B(5I);:I:l162:172:QHN1:L1(B$(Q)));B$(Q);:Q:B2ĺ" TOTAL" n(13(B1));:B$):N1H1M1:N1EN1E:VH1HEĺG$:M1M1O(B3):82bXB3G11:BB3:(H1I1EM1)H1M1oZE1İ600\EHD(4)OG1H1D(4)OG1^E1F1D(6):Y(F10):L1L1Y:I$I$(32Y):O1O15(F10)::566`"CLR":98:72b(B2B%0E0)İ62SCORES":::E%6:F$"MAIN":644:B072MLA$" RAW ":(B3B6)A$" STD. "NO((J1K1)L1):OO(O(J1K1)L1):M1M1O(B3):(EM1)H1:N1E:88PI1H1D(4)EH1O(B3)H1I1:612:78R"CLR":5:E0H0:N10:88T596:650:H(H$):H(HO STUDENT ID OR TAG:":G10:D11(E1):H1D(4):(EH1I1)H1I1'J612:" 1. RAW SCORES":" 2. RAW SCORES W/TOTALS":" 3. STANDARDIZED SCORES"::"WITH STUDENT ID AND TAG:":" 4. RAW SCORES":" 5. RAW SCORES W/TOTALS":" 6. STANDARDIZED :M0E1āJ15:B(5J)B(5J)MA(1,J):J|@I1E:J1P:A%(J,I)C%(J,I):J,I:A%0:26:42:I1P:G(I)10G(I):I:B%1:B! PRINT OUT DP1İ610FD11(C$"V"):E$"VIEW":612:E1E$"PRINT">HF10:"CLR":5:"YOUR "E$" OPTIONS ARE:"::"NID(B1(1F)2I4)D(B1(1F)2):H(I)HHI)1:60H 8I1II1:54a :G(O)0H(0)H(0)1 <O:C10:X04:C1C1H(X):X:A1(A1100C1.5)100:*>B2:640:W0:K0:I15:B(5I)0:I:I1E:WW(F(I)):J15:B(5J)B(5J)A(I,J)(F(I)):J:I(C%(O,Q)0):Q:E1G(O)((B3)A%(O,1)(B2)A%(O,1)(F(1)))10:50h .B2G(O)(G(O)C(O))10:50 0G(O)((G(O)C(O))10)(ZM) 2O:B2ı 4X04:H(X)0:X:A10:O1P:I4:N3:6665 6(G(O).05001)B(I)B1(G(O)B(I))(B(I1)B(I)):A1A1 D%A%(O,Q):YQ "Q:T040A $E(Y)UC(O)VD%U:U0:40v &UUE(Y):VVD%E(Y):TTE(Y):E(Y)0:U0T030 (O: *O1P:N3:666:G(O)0:V0:Z0:X1E:ZZ(F(X))(A%(O,X)0):X:MZ50G ,Q1E:G(O)G(O)A%(O,Q)(F(Q)(B$(Q)"++"))(10(B(Q1)B(Q))(RA(H,Q))(A(H,Q1)A(H,Q).00001).5)N A%(O,H)S:O:j O1P:M0C(O)0:40 N3:666:I1E:E(I)F(I)(A%(O,I)0):I:T0:I1E:TTE(I)(E(I)0):I:UM:V0:MTUT D%10000:Q1E:(A%(O,Q)D%F(Q)0E(Q)0)34"CALCULATING NEW AVG.":42:ML:A%1:U B$(H)"++"āO1P:A%(O,H)10C%(O,H):O: O1P:Q6:RC%(O,H):R0S10(1(R1)(R1)):24 N3:666:RA(H,5)S10(B(5)RA(H,5)):24 QQ1:RA(H,Q)18 RA(H,Q)S10B(Q):24; S10B(Q)W< !CLASS RECORDS A1.08F 11-03-85, copyright (c) 1985 E500VB3:A%0ı& 608:B%0:"CLR":2:5:"NOW ";::"CALCULATING";::" STD. SCORES.":CH:H1E:15:"CONVERTING EXAM NO. "H:10:H:HC:LM:664:15:"DROPPING "M" UNIT(S)":26:15:                                   $ [ ?2( 2`z!#       Ǯ ̮!  Ǡ( Ҡ: ǮŠӠ ̮ŠӠ Ǯ"  Ҡ    ֠NӠŠˠŠ0  3.0" àҮ" ӠӠ" éԠ ӠӠӠY ٠Ӡ3):A3D(22):FD(25)100:DD(26)100:P2D(27):T1D(28):P2F1:D0TG$(7):A$(0)"RAW":A$(1)"STD.":B1$"":S00āO0S01:B1$B1$((800O)):OTA1$"":S10āO0S11:A1$A1$((816O)):OTC1$"":S20āO0S21:C1$C1$((832O)):O"UD(3):H1D(4):V1D(5):F10:X2D(7):I1D(8):K1D(9):S0D(10):S1D(11):S2D(12):H2H21:M$(H2,3),C%(H2,J2),A%(H2,J2),C(H2),G(H2),A(J2,5),B(10),F(J2),J%(H2),H(H2)ATJ(H2),H%(5),L%(H2),E(J2),F%(2),G%(1),I(4),B$(J2),A$(1):I14:I(I)D(I15)::B211:J1D(21R:A%0:B%0:C3768:D(29):L$"":I138:L$L$" "::Y216384:Z216368:D$(4):I029:D(I)(C3I):I:D(13)0ė:10:"SOUND",200,200:"CLR DATA IS FROM VERSION 2.1"::680:22:598:716:C$"M":11518SH2D(0)(D(0)255)(847):J2D(1):U1D(2):B32(F(I))(F(I)0):I:.QD1(Y2):D1128ıOQY1:Z2,0:D1160İ606:D1Q2^QD1155ıuQYNġ:YY1:672Q564:568:QA(D2,0)0:O15:H%(O)A(D2,O):O:618:Q"CLASS SIZE OR EXAM NO. TOO LARGE."Q"REDO CLASS SETUP PROCEDURE":B0 P+PE10ľH$:H$:H$(13)H$"";PE9Ą"";H$QP"LCTOUC",H$,H$:P(A%0H$"R")A$"STANDARD SCORES":662P(B%0H$"R")A$"RAW AVERAGES":662PP"CLR":G$;A$;" MUST BE RECALCULATED.":23:598:H$"":QF20:I1E:F2FB(55(H$"R")):"(MAX SCORE = "A(D2,5)")"::O411:6);(197O)": "H%(O):O::wO"CLR":10:19::"BUSY"::O:"RETURN";::O23:"(HIT ";:642:" FOR "F$" MENU.)":21:"ENTER 1-"E%": ";:C$:C$:C$(13)ġ:PB(C$):B1BE%İ592::eNrL$:15:"INPUT NEW '"(197W)"' LINE: ";:"";U$:15:Q1((U$)):U$""Q1H%(O):Q1H%(W1)ısNtQ10636NvQ1A(D2,5)A(D2,5)0636Nx(Q1H%(W1)W4)636NzN|G$::618VO~"CLR":4:"EXAM #"D2:"PRESENT BREAKPOINTS ARE: ":A(0,5)14:I$" ":O11A3:M1H1!MhMj638:18:"(HIT ";:642:" TO KEEP THE SAME VALUE.)":15:O411:WO:626:U$""H%(O)Q1:12O:11:Q1;" ":15MlOMn638:20:"IS THIS O.K.";:570:D1624,618,622,622NpB%0:A%0:O14:A(D2,O)H%(O):O.":"HIT ESC TO ABORT PRINTING.";:G$;:O$:O$:O$(27)ġ:DL\vL^Q215:Q25((Y2)127):Q2:Q2(Y2):Z2,0:L`E0ıLb"CLR":7:"YOU HAVE NO DATA.":598::LdE10:O18(A328)(A315):M1B3:L13:I$" ":D1614,616,612,616MfE11:L642:" FOR PRECEDING MENU.)":{KT"ONLY "M1(M10);A$"SCORES ARE "E$"ED AT ONCE.":2:"SELECT 1ST TEST NO. (1-"E"): ";:KV:"HIT ANY KEY TO CONTINUE.";:606::KX(E1)İ598:604>LZ"CLR":10:"IS YOUR PRINTER READY?":22:"HIT ANY KEY TO BEGIN:ʽe^^e__l^" ަư8^_氠^LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ`X-------------":" (";:E$""Ğ:"L."E$;: F$E$:E$""ĺ"NO CKERR.RMhhߚHH 0:, jݪ + , ޥۤ jݪ +`sLCTOUCLC TO UC.RM { lݠȱȱHh#)ha {)ߙ l݅ `3SOUNDSOUND EFFECTS.RM FQP,0EQ,0`^_9ĺ"DISK FULL -- USE ANOTHER DISK.":228dK0K16ĺ"ERROR IN DISK OPERATION - CHECK DOOR.":228v23::160:8::10:12:".... DONE ....":22:1014,88:1015,255:@INPUT$STRING INPUT.RM  " ީ; = l݅ , LOFIXSTA10:K6E$F$:224a"THE LABEL FILE REQUESTED,":::5:E$:::"WAS NOT FOUND.":E$F$:228"SOUND",200,200:"FIXSTACK",K,Y:255::142:(K254K5)8:10:K6224"THE FILE BELOW IS NOT ON THIS DISK.":::5:E$::E$F$:228(K0K16ĺ"ERROR IN DISK OPERATION - CHECK DOOR."22::10:"HIT SPACEBAR TO CONTINUE.":10:"(HIT ";::"ESC";::" TO EXIT PROGRAM.)";168:Q12827230Q1283220444218"SOUND",200,200:"FIXSTACK",K,L:K254K58:CK",K,L:K254230&:10:K6200"CLR DATA NOT FOUND ON THIS DISK."::5:"YOUR CHOICES:";:32,9::176:" = TRY SAME DRIVE AGAIN":" ";::"ESC";::" = END PROGRAM":32,0:18:10:168:QQ128:Q27230Q136C$:194/KA(6):O(C0):PPO:E$E$(32O):QQ5O::186:"CLR":20:U (1018)255Č1016m F$;:E1ĺ:::26 " --- "A$"SCORES"(13(R));5);S" UNITS DROPPED":48:52:TLM:P(G$(T)));G$(T);:T: I1A:38:E1J136 TLM:UA%(I,T):U-0!MERGE 1.21 8-21-85:copyright (c) 1985 9132O ! VIEW SCORES]A1İ218 B2:222:C0:G1:A$"RAW ":HA(4):(EJ)L1:ME:16 "CLR":5:212:238:L(B$):L(B$):ML1J:MEMEL1LEĺC$:12ELA(4)HA(4)= C               ::A$::_'"WHEN YOU PRESS THE SPACEBAR, THE PRO- GRAM 'UPDATE DOS TO 64K' WILL BE RUN."$'22:"PRESS THE SPACEBAR WHEN READY. ";)'16368,0:I01:J(16384):I(J160):I:16368,0.':(4)"RUN UPDATE DOS TO 64K,D1":,LONERR ROUTINE L^_:ʽe^^e__l^" ަư8^_氠^LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ`XF:"DROPPING "M" UNIT(S)":26:15: *$,XǘP$,ȱ8# \ % ,;LLںLAYLAY.RM  { lݠ 5橴 l݅Ȅ  L  L qr qʠ ʆ._$J0 ^ЫK`  +._.^. LPUPRINT USING.RM { lݠ R % ک; ީ ڢ0 $. *媆 gݥ 9 r륢H #h 40dNEF- ,00=D>E?>@?A@e:BAe;C \.E*0* 1A;!@:8@:@A;AEƥ@D>i>?i?8<>=?L, e&.'i/.)*ȱ.IiՅJ)+ (.Q.0.уȱ.у```0./ ꥃL8. K"ȱ.^ȱ 1-ȱ.ȱ/ g RDE$1 Ю ީ КД g RG.ІF/GEFD$1 ީ I0 &ŔÄ'ĕнеȱаȱ+-&Пȱ&8+hh8FD:GE;:i:;i;F;f:;`8F:274_ @58:X1 B232:L$:B1(L$):B113İ234:88 DB117İ234:90 FB118İ276::168 HB121H$(X,2)""L$(H$(X,2),1):B1(L$)JB18B121į"SOUND",200,20LM:"PU",E$;T;:T::/ 44);:Q5ĺQ);:56B 6"NAME";Q4);H 8 ::4:"SELECT MERGE FILES":"-----------------":X13:234::X:24:8::"CTRL-Q";::" TO ACCEPT DATA AS IS";:23:8::"CTRL-R";::" TO RETURN TO MAIN MENU":22:" ";:Č1016 .^ 0Q25)"MAX= ";:TLM:"PU",E$;C(T,5);:T:G2E1ĺ" "(10D(10).5)10; 2:Z411:Q25);(69Z)"=";:" ";:TLM:"PU",E$;C(T,Z);:T:N2:246::Z:Q25)"WEIGHT=";:TLM:A1E(T):198:E(T);:T::Q25)"EXAM# =";:T0ĺP);:34& U1ĺP1);"-";:346 "PU",E$;U;c "T:V19(B(I)1000):W(VB(I).5001)V $:N1:246:I:214:188: &I$J$:Q1I$"":42 ("LAY",K$(I,1)I$1,Q1 *(I10));I"."I100);:Y1į"PROPER",I$,I$ ,I$" ";:(1018)255" WAS LOCKED."::"WARNING";::" - IT IS NOW UNLOCKED.":D$"UNLOCK"W$w)4Z8ĺ"ERROR IN DISK OPERATION - CHECK DOOR")623::214:M1155F$V$:168)8314:168):G4110)<G5128)>:168*@223,250:"FIXSTACK",Z,F2:"SOUND",200,200:255168($294:168(&G5116+((G4966(*:168w(,223,250:"FIXSTACK",Z,F2:"SOUND",200,200:255::Z254168(.:"PRESS ";::"ESC";::" FOR MAIN MENU":10:Z4ĺ"WRITE-PROTECTED DISK!"(0Z9ĺ"DISK FULL -- USE ANOTHER DISK"F)2Z10ĺW$"ESC";::" FOR MAIN MENU":10::"PRESS ";::"ESC";::" FOR MAIN MENU":10:Z6İ346e'Z5İ348'"ERROR NO. "Z" ON LINE "F2".":Z8ĺ"ERROR IN DISK OPERATION - CHECK DOOR"'Z77290' "OUT OF MEMORY.":5:256("22::214:M1155F$V$::O1,0:P&H$(1,2)Q$:H$(1,1)S$:H$(2,2)T$:H$(2,1)U$:H$(3,2)W$:H$(3,1)X$:&Q$H$(1,2):S$H$(1,1):T$H$(2,2):U$H$(2,1):W$H$(3,2):X$H$(3,1):&223,250:"FIXSTACK",Z,F2:"SOUND",200,200:255::D$"CLOSE":Z254F$V$:168W':"PRESS ";::F1:D0% C$(7):A$(0)"RAW":A$(1)"STD.":H$(1,0)"FIRST FILE: ":F(1,0)9:F(1,1)14:H$(2,0)"SECOND FILE: ":F(2,0)11:F(2,1)14:H$(3,0)"MERGED FILE: ":F(3,0)13:F(3,1)14:D(0)0:I14:D(I)L(I)::D(5)100:"ONERR",320%"RESETONERR",255&O1,0(12):H1H11:K$(H1,3),A%(H1,G1),C%(H1,G1),H(H1),B(H1),C(G1,5),D(10),E(G1),F%(H1),I(H1)% J(H1),E%(5),G%(H1),K(G1),H%(2),I%(1),L(4),G$(G1),A$(1),H$(3,2),F(3,1):I14:L(I)A(I15)::B211:C2A(21):P1A(22):FA(25)100:DA(26)100:D2A(27):E2A(28):D268:D$(4):I029:A(I)(V1I):I:A(13)0ė:10:"SOUND",200,200:"CLR DATA IS FROM VERSION 2.1"::258:22:214:342:A1$"M":11518W$H1A(0)(A(0)255)(847):G1A(1)1:YA(2):Q1A(3):HA(4):W1A(5):C0:X1A(7):Y1A(8):Z1A(9):S0A(10):S1A(11):A2A1:O1,0:B160İ216:BM1&"B155ı="ONġ:OO1:252M"186:188:v""CLASS SIZE OR EXAM NO. TOO LARGE."""REDO CLASS SETUP PROCEDURE":":10:10::"BUSY"::#:C%0:B%0:V1768:A(29):J$"":I138:J$J$" "::N116384:O1163:868::H$(X,0);::H$(X,2);H$(X,1);:F(X,1):k!F(X,0):1:868:H$(X,0);:H$(X,2);H$(X,1);:F(X,1):!:"RETURN";::!E10ľB$:B$:B$(13)B$""!E9Ą"";B$!!T10:I1E:T1T1(E(I))(E(I)0):I:!B(N1):B128ı"OUT RESULTS TO PRINTER";:190e R0:Q8(P128)(P115):JQ1:P3:E$" ":B224,226,220,1332013312 R1:P4:E$" ":Q1P1:JH R11(N$):(N$,R1,1)(44)O$(N$,R1):N$(N$,R11):R1(N$)(O$):"LCTOUC",O$,O$ R1:0!F(X,0):1T11000:T:g"ONLY "J(J0);A$"SCORES ARE VIEWED AT ONCE.":2:"SELECT 1ST TEST NO. (1-"E"): ";::"HIT ANY KEY TO CONTINUE.";:216::M115:M15((N1)127):M1:M1(N1):O1,0:"CLR":7:"YOU HAVE NO DATA.":214:: 10:"OUTPOR NO";::".":T11000:T:"CLR"(EA1P((A1)):A10202PA1);V:::A$::I127:"-";:::"(";:F$""ĺF$;V$F$:F$""ĺ"NO FILE";" IN MEMORY)":: "CLR":10:"RESPONSE NOT ALLOWED. ";::"TRY AGAIN.":: FROM DRIVE 1":F$"CROSSROADS MENU":D$"RUN CROSSROADS,D1"N:(4)"PR#"C:|(12);(26)"1"::(12);(21):C0:186:"?";:P$"LCTOUC",P$,P$:P$:B(P$"Y")2(P$"N")4(P$(13)):(B)196"B3:"CLR":5:10:"PLEASE ANSWER ";::"YES :30:A1$:"LCTOUC",A1$,A1$:A1$;:21::A1$"X"184EA1$"Q"350G(A1$"L")2(A1$"V")3(A1$"S")4(A1$"I")5(A1$"D"):G0į"SOUND",200,200:168G3İ62G138,6,196,94,114168::10:::"LOADING CROSSROADS MENU":::" AD FILE FROM DISK)":" V(IEW SCORES)"::"MERGE OPTIONS:":" I(DENTICAL NAMES IN FILES)":" D(IFFERENT NAMES IN FILES)":4"EXIT OPTIONS:":" X(--> CROSSROADS MENU)":" Q(UIT - TO BASIC)":32,0::22:"PLEASE ENTER YOUR SELECTION:";Y$:Y$(13)F$C1$:%Y$"M"ġ:{:"I DO NOT UNDERSTAND YOUR RESPONSE.":19:"PLEASE TRY AGAIN:":I1750:I:162HA(4):V$F$:320:D$(4):C0:188:"CLR":A$"MERGE FILES TO ANOTHER FILE":204:6:32,5::"GENERAL OPTIONS:":" L(O1C:"INPUT$",J$(G,1):E1B:B%:B%0B%112E F0A%(G)H:F1d B%(H,0)B%:B%(H,1)E:HH1x E:F0A%(G)H F0:G:A%(G)H:G1C:"INPUT$",J$(G,2):J$(G,3)""::G1B:"INPUT$",E$(G,1)::G1C:"INPUT$",J$(G,3)::D$"CLOSE": K$F$:&3!MISSING 1.23 7-30-85: COPYRIGHT (C) 1985 <1840 B$"LOAD":C$"LOAD CLASS FILE":28:I0:G1B:E$(G,1)"":E$(G,2)"":G:D$"VERIFY G."F$;I$:D$"OPEN G."F$:D$"READ G."F$:B:C:J:G1C:A%(G)0:G:G1B:D:E15:D:E,G:H1:A%(0)1:F0:G             )-1!MERGE 1.20 8-17-85:copyright (c) 1985 :132P ! VIEW SCORES^A1İ218 B2:222:C0:G1:A$"RAW ":HA(4):(EJ)L1:ME:16 "CLR":5:212:238:L(B$):L(B$):ML1J:MEMEL1LEĺC$:12ELA(4)HA(4)> ʆ L^_:ʽe^^e__l^" ަư8^_氠^LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ`X4)= CF- ,00 *$,XǘP$,ȱ8# \ % ,;LLںLAYLAY.RM  { lݠ 5橴 l݅Ȅ  L  L qr qʠ RAY CLEAR.RM , ߠePȱeQ 敥QP , `PUPRINT USING.RM { lݠ R % ک; ީ ڢ0 $. *媆 gݥ 9 r륢H #h 40dNE<e<=e=ݤ h cڤ hhhLcPROPERPROPER NAMES.RM { lݠȱȱHhP)hʄ^HA [i )? 詍 lݍ `ʤ_CLEARARhhHHH { lݩ  ,H j݅H ! , ʆ LLke! PRINT OUT C@F$""İ238B:6:"YOUR PRINT/VIEW OPTIONS ARE: ":::32,7:::"1. VIEW ONLY"::"2. PRINT W/0 LINES":"3. PRINT WITH LINES":"4. PRINT WITH LINES & COLUMNS":32,0::C%4:O$"MAIN":P0:250:Q0:"INPUT$",O$:"INPUT$",E$(G,2):G:D$"CLOSE L."F$:I1:OB60::"SOUND",200,200:5:16::"WARNING"::7:32,7::"YOUR CLASS RECORDS FILE":"HAS -- "B" -- ENTRIES,":"WHILE YOUR LABEL FILE":"HAS "O" ENTRIES."::"YOU MAY NEED TO UPDATE":"YOUR LABN$"M"ġ:`4:"I DO NOT UNDERSTAND YOUR RESPONSE.":19:"PLEASE TRY AGAIN:":G1750:G:486B$"LOAD":C$"LOAD LABEL FILE":240:L$(77)L$(109)N$"M"N$"":?8G1B:E$(G,2)"":G:D$"VERIFY L."F$;I$:D$"OPEN L."F$:D$"READ L."F$:O:G1O,D"L$:::D$"CATALOG";I$:362,L$""F$""28E.L$""L$F$:021:958:"THE OLD FILE WAS: "F$;M$:"DESIRED FILE IS: "L$;I$::10:"HIT ";:248:" TO "B$" FILE":10:"INPUT M TO RETURN TO MENU ";:N$:"LCTOUC",N$,N$:N$:N$(13)F$L$: 2 PRESENT FILE":7:"M(TO RETURN TO MAIN MENU)":7:"1 OR 2 = CATALOG (D1/D2)":10:"INPUT$",L$:L$""44 &M$I$:M1(L$):(L$,M,1)(44)I$(L$,M):L$(L$,M1):M(L$)(I$):"LCTOUC",I$,I$ (M:L$(77)L$(109)ġ:*L$(49)L$(50)I$"0:D:E:G:G1C:J$(G,2)::G10:E$(G,1)::G1C:J$(G,3)::F$K$:D$"CLOSE":f :5::C$:: F$""ĺ" THERE'S NO FILE NAME IN MEMORY.":34 "PRESENT FILE NAME: "F$;I$ ":i $3:"ENTER THE DESIRED FILE NAME, OR:":7:248:" TO "B$" FILE":"TO SAVE: "F$:12:"A FILE OF THIS NAME":"IS ALREADY ON THIS DISK.":15:20:"REPLACE IT "(8);:216:L26,16,24,24S D$"OPEN G."F$;I$:D$"DELETE G."F$:D$"OPEN G."F$:D$"WRITE G."F$:D0:D:C:D:G10:D:E15:D:E,G:G1C:J$(G,1):E1K$""İ238 B$"SAVE"::2:"NAMES AND ID'S ARE TAKEN FROM FILE":5::K$::"AND SAVED AS A NEW FILE W/O OTHER DATA.":"ENTER THE NAME FOR YOUR NEW FILE:"::::30:304 D$"VERIFY G."F$;I$:308 G13:"SOUND",90,20:E150:E,G~ :5:" IN":" ";::"ESC";::" = END PROGRAM":32,0:W) 18:10:236:F1F1128:F127320f)"F113188s)$G$:288)&Z0Z16ĺ"ERROR IN DISK OPERATION - CHECK DOOR."*(22::10:"HIT SPACEBAR TO CONTINUE.":10:"(HIT ";::"ESC";::" TO EXIT PROGR0āZ0S01:U$U$((800Z)):Z3("ONERR",308?(H1,0:p("SOUND",200,200:"FIXSTACK",Z,O1:Z254320(:10:Z62941)"EITHER CLR DATA OR GARB IS NOT FOUND ON THIS DISK."::5:"YOUR CHOICES:";:32,9::248:" = TRY SAME DRIVE AGAMENT REPORT":A(0,0)10:A(0,1)7:H$(1,0)"CLASS :":A(1,0)10:A(1,1)71:H$(2,0)"TEACHER:":A(2,0)10:A(2,1)72:H$(3,0)"PERIOD :":A(3,0)10:A(3,1)73!(H$(4,0)"DATE :":H$(4,1)" 2-11-84":A(4,0)10:A(4,1)74:Q$(0)"SCREEN":Q$(1)"PRINTER":U$"":S0(847):L1B(1):WB(2):E1B(7):M1B(9):S0B(10):N1B(21):TB(22):SB(23):VB(29):K1K11:J$(K1,3),B%(500,1),A%(K1),E$(L1,2),A(4,1),H$(4,1)&I0:D15:VB(28):G$(7):U$"":S00āZ0S01:U$U$((800Z)):Z'H$(0,0)"HEADING:":H$(0,1)"MISSED ASSIGN8);(8)"]":::100(%L(G1):L128ıH%I11:H1,0:L160İ236:LF1V%L155ıp%I1Nġ:I1I11:264% 212:214:% :10:10::"BUSY"::&B(29)::J1768:G116384:H116368:Y958:D$(4):G029:B(G)(J1G):G:K1B(0)(B(0)255)A(X,1):A(X,0):868:H$(X,1);:9$A(X,1):A(X,0):N$:"RETURN";::$23:"(HIT ";:248:" FOR "O$" MENU.)":21:"ENTER 1-"C%": ";:B$:B$:B$(13)ġ:$Q(B$):Q1QC%İ224:Q0$%:10:10:"[NOW GOING TO ";::Q$(P);::" "(:10:"IS YOUR PRINTER READY?":22:"HIT ANY KEY TO BEGIN.":"HIT ESC TO ABORT PRINTING.";:G$;:R$:R$:R$(27)ġ:##F115:F15((G1)127):F1:F1(G1):H1,0:#:7:"YOU HAVE NO DATA.":228::#28:#A(X,1):1:H$(X,0);:#$:"PLEASE ANSWER ";::"YES OR NO";::".":M11000:M:?"":10:"RESPONSE NOT ALLOWED. ";::"TRY AGAIN."::M11000:M:"22::"(HIT ";:248:" FOR PRECEDING MENU.)":":"HIT ANY KEY TO CONTINUE.";:236::"(P)İ228:234y#DS MENU FROM DRIVE 1"::F$"CROSSROADS MENU":D$"RUN CROSSROADS,D1"_!::D$;"PR#";E1:U$;:s!:(4)"PR#0":!(12);(26)"1"::(12);(21):212:!"?";:S$!"LCTOUC",S$,S$:S$:L(S$"Y")2(S$"N")4(S$(13)):(L)2229"L3::5:10 MENU)":"Q(UIT - TO BASIC)":32,0: 23:"YOUR SELECTION:";:17:B$:"LCTOUC",B$,B$:B$;:22::Q(B$"L")2(B$"D")3(B$"B")4(B$"M")5(B$"X")6(B$"Q"):Q0į"SOUND",200,200:202 Q6,16,62,90,208,320 196C!:::"LOADING CROSSROA::4::"MORE UTILITIES"::"--------------------":"(";:F$""ĺF$;gT$F$:F$""ĺ"NO FILE";$ " IN MEMORY)"::32,8::"L(OAD FILE)"::"D(UPLICATE FILE - W/O EXAMS)":"B(LANK CLASS LIST)":"M(ISSED ASSIGNMENT REPORT)":16:"X(--> CROSSROADS:258:(V);:212:"! START<(175)256(176)46RG$(7):::282((798)73(799)137)Ģ2::(4);"BLOAD CLR DATA":798,73:799,137:(1018)255(116)176ĺ(4)"BRUN GARB":65200,2(175)256(176)46:308268:270J%(E,1):O$""ĺD14);Y33(O$)(D10));D". "E$(D,1I);:Q9ĺ21(E$(D,1I)))"0";eO$"":C11(Q8Q9)180DB%(E,1):O$""ĺD14);33(O$)(D10));D". "E$(D,1I);:Q9ĺ21(E$(D,1I)))"-";O$"":EG:N10:EA%(G)A%(G1)1:A1A1(B%(E,0)0):B1B1(B%(E,0)1):E:(A10Q7)(B10Q8)182O$J$(G,1):O$""(O$)33O$(D,33)W2į"PROPER",O$,O$O$""ĺ:D14);O$;N1:258:EA%(G)A%(G1)1:C1B%(E,0):C10(Q7Q9)172DB:D1);"TEACHER: "H$(2,1);:H$(4,1)""ĺ38(H$(2,1)))"DATE: "H$(4,1);:" ":" ":D14)"STUDENT"26)"ASSIGNMENT":D14)"NAME"29)"NO. DESCRIPTION"8);:Q9ĺ"GRADE";:D13);:G171D13:"-";:G:" ":G1C:A%(G)A%(G1)182XA10:B1(E,1),1I),12);:37:"0"RC11(Q5Q6)Ė22:(E$(B%(E,1),1I),12);:37:"-"YEvG:N1:258::23:228:230:210:G16:" ":G:25);H$(0,1):G12:" ":G:D12);"CLASS: "H$(1,1);:H$(3,1)""ĺ36(H$(1,1)));"PERIOD: "H$(3,1);I5);H" UNITS DROPPED":A3ĺ6);:I14:" "(64I)"="B(5I);:I:`126:136:OCF1:G1(B$(O)));B$(O);:O:A2ĺ" TOTAL"b(13(A1));:A3ĺ" AVG."dI1M:116:E1E11112fOCF1:ZC%(I,O):A3Z(A%(I,O)10.5)hZ0ĺG1);:11EF1EPC1CEĺF$:783RECD(4)D1D(4)~TC1D(6):U(C10):G1G1U:G$G$(32U):H1H15U::250:"CLR":86:66V(1018)255Č1016X(A2B%0)İ62:"CLR"ZA3İ6:"CLR"\I$;:E1ĺ:::100B^" --- "A$"SCORES"(13(I1));OUR VIEW OPTIONS ARE:":::D1D(4):" 1. RAW SCORES":" 2. RAW SCORES W/TOTALS":" 3. STANDARDIZED SCORES"::E%3:C$"MAIN":306:A072JA$" RAW ":A3A$" STD. "L(EE1)C1:F1E:82N"CLR":5:274:312:C(E$):C(E$):F1C1E1:FI1E:WW(F(I)):J15:B(5J)B(5J)A(I,J)(F(I)):J:I:H0E1āJ15:B(5J)B(5J)HA(1,J):J@I1E:J1M:A%(J,I)C%(J,I):J,I:A%0:26:42:I1M:G(I)10G(I):I:B%1:B ! VIEW SCORESDM1İ284FB12:288HC10:"CLR":5:"Y3:320r 6(G(L).05001)B(I)Z(G(L)B(I))(B(I1)B(I)):YYID(Z(1F)2I4)D(Z(1F)2):H(I)H(I)1:60 8I1II1:54 :G(L)0H(0)H(0)1 <L:A10:X04:A1A1H(X):X:Y(Y100A1.5)100:e>A2:302:W0:K0:I15:B(5I)0:I:V0:X1E:VV(F(X))(A%(L,X)0):X:HV50 ,O1E:G(L)G(L)A%(L,O)(F(O)(B$(O)"++"))(C%(L,O)0):O:E1G(L)A%(L,1)10:50 .A2G(L)(G(L)C(L))10:50 0G(L)((G(L)C(L))10)(VH) 2L:A2ı 4X04:H(X)0:X:Y0:L1M:I4:N1E:RRE(I)(E(I)0):I:SH:T0:HRSR_ D%10000:O1E:(A%(L,O)D%F(O)0E(O)0)34r D%A%(L,O):UO "O:R040 $E(U)SC(L)TD%S:S0:40 &SSE(U):TTD%E(U):RRE(U):E(U)0:S0R030 (L:/ *L1M:N3:320:G(L)0:T0:A(C,5)Q10(B(5)PA(C,5)):247 OO1:PA(C,O)18S PA(C,O)Q10B(O):24 Q10B(O)(10(B(O1)B(O))(PA(C,O))(A(C,O1)A(C,O).00001).5) A%(L,C)Q:L: L1M:H0C(L)0:40* N3:320:I1E:E(I)F(I)(A%(L,I)0):I:R0:ITING NEW AVG.":42:HG:A%1:L B$(C)"++"āL1M:A%(L,C)10C%(L,C):L: L14:A(C,L)ĂL:"CLR":10::"ENTER GRADE BREAKPOINTS FOR EXAM ";C:A%0::198:276::: L4:L:L1M:O6:PC%(L,C):P0Q10(1(P1)(P1)):24 N3:320:PV83!TRANSFER 1.19 8-29-85:copyright (c) 1985 <200MA3:A%0ı 280:B%0:"CLR":2:5:"NOW ";::"CALCULATING";::" STD. SCORES.":BC:C1E:15:"CONVERTING EXAM NO. "C:10:C:CB:GH:318:15:"DROPPING "H" UNIT(S)":26:15:"CALCULA                 ޥ8fإuvL^_:ʽe^^e__l^" ަư8^_氠^LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ`.G,G:H1:A%(0)1:F0:G lݍ `ʤsLCTOUCLC TO UC.RM { lݠȱȱHh#)ha {)ߙ l݅ `3SOUNDSOUND EFFECTS.RM FQP,0EQ,0`9ONERRONERR FIX.RM ,M  " ީ; = l݅ , LOFIXSTACKERR.RMhhߚHH 0:, jݪ + , ޥۤ jݪ +`PROPERPROPER NAMES.RM { lݠȱȱHhP)hʄ^HA [i )? 詍:3185+:Z9ĺ"DISK FULL -- USE ANOTHER DISK.":318w+<Z0Z16F$T$:"ERROR IN DISK OPERATION - CHECK DOOR.":318+>23::228:196+@::10:12:".... DONE ....":22:1014,88:1015,255::D$"MAXFILES3":12280+B@INPUT$STRING INPUT.RAM.)";**236:F1128273202*,F1128322989*.6V*0"FIXSTACK",Z,O1:Z626`*2F$K$*4"SOUND",200,200:"FIXSTACK",Z,O1:D$"CLOSE":255::212:(Z254Z5)196*6:10:Z6314+8"THE FILE BELOW IS NOT ON THIS DISK.":::5:F$::F$T$1$:::N$",D"D1$:D$"CATALOG";N$:220=!D1$""I$""214R!D1$""D1$I$: "21:958:"THE OLD FILE WAS: "I$;C$:"DESIRED FILE IS: "D1$;N$::10:"HIT ";:304:" TO "B1$" FILE":10:"INPUT M TO RETURN TO MENU ";:Y$:"LCTOUC",Y$,Y$:Y$:Y$(1 3:"ENTER THE DESIRED FILE NAME, OR:":7:304:" TO "B1$" PRESENT FILE":7:"M(TO RETURN TO MAIN MENU)":7:"1 OR 2 = CATALOG (D1/D2)":10:"INPUT$",D1$:D1$""226 C$N$:X$D1$:294:N$Z$:D1$X$:D1$(77)ġ:'!D1$(49)D1$(50)N$",D"DI$:E:M:H:L1E:F(L):O15:A(L,O):O,L:L1M:L$(L,1):O1E:C%(L,O):O:L:L1M:L$(L,2)::L1E:B$(L)::L1M:L$(L,3)::D$"CLOSE"::5::C1$:::I$""ĺ" THERE'S NO FILE NAME IN MEMORY.":218"PRESENT FILE NAME: "I$;N$ :1E:F(L):O15:A(L,O):O,L:318:L1M:"INPUT$",L$(L,1):O1E:C%(L,O):O:L:L1M:"INPUT$",L$(L,2):L$(L,3)""::L1E:"INPUT$",B$(L)::L1M:"INPUT$",L$(L,3):D$"CLOSE":D$"OPEN G."I$;N$:D$"DELETE G."I$:D$"OPEN G."I$:D$"WRITE G."Ģ2::(4);"BLOAD CLR DATA":798,73:799,137:(1018)255(116)176ĺ(4)"BRUN GARB":65200,2(175)256(176)46:336:236B1$"LOAD":C1$"LOAD CLASS FILE":214D$"VERIFY G."I$;N$:D$"OPEN G."I$:D$"READ G."I$:E:M:H:B%0:A%0:W10:L "M$:I$M$:N$O$:208:P$M$:A4B%İ62:V15:B$(M1)"RAW"\A5A%İ6:V10:B$(M1)"STD"I1M:C%(I,M1)G(I).5001:I:F(M1)R1:I15:A(M1,I)B(V1I):I:O1M:144! START`:(4)"MAXFILES 1":F$(7):252::334:((798)73(799)137)$H$(X,2):Z$"":294:H$(X,2)X$:Z$""H$(X,1)Z$HKU1X:160:XU1jI(X,0):1:868::868:166X(X1)(X4)(X4)(X2A3):16619:958:16:"OK? Y";(8);:A1$:254:B1192,164,164,192360:"CLEAR",C%(0,0):::7:7:"LOADSOUND",200,200:166@V$;:"INPUT$",W$:V$V$W$:V$" "V$""K0:(X1X2)(V$"1"V$"2")K1::H$(X,1)",D"V$:D$"CATALOG,D"V$:::"SELECT: ";:"INPUT$",W$:V$W$:W$""V$H$(X,2)H$(X,2)V$:(X1X2)V$""H$(X,1)"":1842X1X2X":22:" ";:304:" TO MOVE TO NEXT ITEM"]21:"PRESS: 1 OR 2 FOR CATALOG, D1/D2":o350:160:X1298:V$:T1(V$):T113İ300:188T117İ300:190T118ġ:236T121H$(X,2)""V$(H$(X,2),1):T1(V$)T18T121į",I)A(M1,I):I:B$(E1)B$(M1):EE1N:10:7:"NOW SAVING "R$:I$R$:212:/:4:"MAKE TRANSFER SELECTIONS":"------------------------":X14:300::X:24:8::"CTRL-Q";::" TO ACCEPT DATA AS IS";:23:8::"CTRL-R";::" TO RETURN TO MAIN MENUNPUT$",S$:"INPUT$",T$:"INPUT$",U$:Q11:"FIND",L$(Q1,1)L$(M,1),S$:Q10C%(Q1,E1)C%(X,M1):154L$(M1,1)S$:L$(M1,2)T$:L$(M1,3)U$:C%(M1,E1)C%(X,M1):MM1X:MP1:D$"CLOSE":D$"DELETE I AM AN ARTIFACT"Q$:402#F(E1)R1:I15:A(E1 I AM AN ARTIFACT"Q$:D$"WRITE I AM AN ARTIFACT":I1O1:J13:L$(I,J):J,I:D$"CLOSE":376I$R$:N$Q$:P$I$::7:7:"LOADING ";R$:208:392cD$"VERIFY I AM AN ARTIFACT"Q$:D$"OPEN I AM AN ARTIFACT":D$"READ I AM AN ARTIFACT":P1M:X1O1:"I;:O:22I1);H(0)" F":54);:H15ĺH1);:140I"NAME";H14);O:7:7:"LOAD "M$:I$M$:N$O$:208:P$M$:I1M:C%(I,M1)C%(I,N1):I:F(M1)F(N1):I15:A(M1,I)A(N1,I):I:B$(M1)B$(N1):O1M:B$(N1)""B$(M1)"=="364^D$"OPEN320::L:H125)"WEIGHT=";:OCF1:PF(O):260:F(O);:O:A2E1ĺ" "WH;:H125)"EXAM# =";:OCF1:"PU",G$;O;:O:::" ":7I1)"THERE ARE "A1" NONZERO SCORES.":7I1)"OVERALL GPA="Y" WITH":7I1);:O411:22I1);H(O)" "(69O)į"PROPER",J$,J$0zJ$" ";:(1018)255Č10166|~H125)"MAX= ";:OCF1:"PU",G$;A(O,5);:O:A2E1ĺ" "(10B(10).5)10;:L411:H125);(69L)"=";:" ";:OCF1:"PU",G$;A(O,L);:O:A2E1ĺ" "(10B(5L).5)10;MN2:10jZ1ĺG11);"-";:110.l"PU",G$;Z;{nO:J119(G(I)1000):K1(J1G(I).5001)J1:(A1A4)ĺI10)"=";K1;p:N1:320:I:A3İ134r276:252:tJ$K$:H11J$"":120v"LAY",L$(I,1)J$1,H11x(I10));I"."I100);:L11ON - CHECK DOOR"#1t446:374:236,1v146g1x223,250:"FIXSTACK",L,Q2:255::D$"CLOSE":L254236{1z:10:L6İ4421|L5ĺR$;:4441~L8ĺ"ERROR IN DISK OPERATION - CHECK DOOR"1L773881"OUT OF MEMORY.":5:3301446:390:236(R1):I0hM$H$(1,2):O$H$(1,1):R$H$(2,2):Q$H$(2,1):A3N1(H$(3,2))]0jR1(H$(4,2)):0l223,250:"FIXSTACK",L,Q2:255::L2542360n:10:L4ĺ"WRITE-PROTECTED DISK!"0pL9ĺ"DISK FULL -- USE ANOTHER DISK"1rL8ĺ"ERROR IN DISK OPERATIETONERR",255/\Z1,0:O/^H$(1,2)M$:H$(1,1)O$:M$""H$(1,2)I$:H$(1,1)N$/`H$(2,2)R$:H$(2,1)Q$:H$(3,1)"EXAM #":A4H$(3,1)"TOTAL RAW SCORES"/bA5H$(3,1)"AVERAGE STANDARD SCORES"/dH$(3,2)"":A3H$(3,2)(N1)0fH$(4,1)"":H$(4,2)"STD.":H$(1,0)"SOURCE FILE: ":I(1,0)9:I(1,1)14:H$(2,0)"TARGET FILE: ":I(2,0)11:I(2,1)14:H$(3,0)"TRANSFER ":I(3,0)13:I(3,1)16:H$(4,0)"NEW WT. FOR EXAM: ":I(4,0)15:I(4,1)19:R11:N11.XB(0)0:I14:B(I)K(I)::B(5)100:"ONERR",416 /Z"RES2,M1),C(G2),G(G2),A(M1,5),B(10),F(M1),G%(G2),H(G2)-TJ(G2),F%(5),H%(G2),E(M1),I%(2),J%(1),K(4),B$(M1),A$(1),H$(4,2),I(4,1):I14:K(I)D(I15)::M211:N2D(21):A2D(22):FD(25)100:DD(26)100:O2D(27):P2D(28):O2F1:D0.VF$(7):A$(0)"RAW":A$(1))0ė:10:"SOUND",200,200:"CLR DATA IS FROM VERSION 2.1"::332:22:276:438:B1$"M":115182-RG2D(0)(D(0)255)(847):M1D(1)1:L1D(2):B2D(3):D1D(4):H2D(5):C10:I2D(7):J2D(8):K2D(9):S0D(10):S1D(11):L2D(12):G2G21:L$(G2,3),C%(G2,M1),A%(G+FUNġ:UU1:326%+H250:252:N+J"CLASS SIZE OR EXAM NO. TOO LARGE."r+L"REDO CLASS SETUP PROCEDURE":+N:10:10::"BUSY"::_,P:A%0:B%0:F2768:D(29):K$"":I138:K$K$" "::Y116384:Z116368:D$(4):I029:D(I)(F2I):I:D(131:"ENTER 1-"E%": ";:B1$:B1$:B1$(13)ġ:M*4A(B1$):A1AE%İ272:A0S*6u*8E10ľE$:E$:E$(13)E$""*:E9Ą"";E$*<*>D20:I1E:D2D2(F(I))(F(I)0):I:*@B1(Y1):B1128ı*BU1:Z1,0:B1160İ278:B1X1*DB1155ıI(X,0):1:868::H$(X,0);::H$(X,1(X1X2));H$(X,1(X3X4));:I(X,1):),I(X,0):1:868:H$(X,0);H$(X,1(X1X2));H$(X,1(X3X4));:I(X,1):)."CLR":10:19::"BUSY"::)0:"RETURN";::-*223:"(HIT ";:304:" FOR "C$" MENU.)":27:"YOU HAVE NO DATA."$(276::k( I10:H18(A228)(A215):E1B2:G13:G$" ":B1290,292,288,292("I11:G14:G$" ":H11A2:E1D1($(&C21(X$):(X$,C2,1)(44)Z$(X$,C2):X$(X$,C21):C2(X$)(Z$):"LCTOUC",Z$,Z$((C2:O)*E1(E10);A$"SCORES ARE VIEWED AT ONCE.":2:"SELECT 1ST TEST NO. (1-"E"): ";:{':"HIT ANY KEY TO CONTINUE.";:278::'X115:X15((Y1)127):X1:X1(Y1):Z1,0:'I$""į"CLR":7:"YOU HAVE NOT LOADED ANY DATA.":286'E0ı("CLR":0:O:"CLR"&,&PG1((P)):P02646&P);<&q& :::A$::I129:"-";:::"(";:I$""ĺI$;& P$I$:I$""ĺ"NO FILE";&" IN MEMORY)"::&"CLR":10:"RESPONSE NOT ALLOWED. ";::"TRY AGAIN."::O11000:O:O'"ONLY "ROSSROADS MENU":D$"RUN CROSSROADS,D1";%:(4)"PR#"C1:j%(12);(26)"1"::(12);(21):C10:250:%"LCTOUC",A1$,A1$:A1$:B1(A1$"Y")2(A1$"N")4(A1$(13)):(B1)258 &B13:"CLR":5:10:"PLEASE ANSWER ";::"YES OR NO";::".":O1100CTION:";:30:B1$:"LCTOUC",B1$,B1$:B1$;:21::B1$"X"248M$B1$"Q"450$A(B1$"L")2(B1$"V")3(B1$"O")4(B1$"R")5(B1$"S"):A2İ164$A206,66,142,194,194$236&%:10:::"LOADING CROSSROADS MENU":::" FROM DRIVE 1":I$"CM DISK)":" V(IEW SCORES)"::"TRANSFER OPTIONS:":" O(NE EXAM SET)":" R(AW OVERALL SCORES)"<$" S(TANDARD OVERALL SCORES)"::"EXIT OPTIONS:":" X(--> CROSSROADS MENU)":" Q(UIT - TO BASIC)":32,0::22:"PLEASE ENTER YOUR SELE3)I$D1$:"Y$"M"ġ:q":"I DO NOT UNDERSTAND YOUR RESPONSE.":19:"PLEASE TRY AGAIN:":I1750:I:230i#D1D(4):P$I$::D$(4):C10:252:"CLR":A$"TRANSFER DATA TO ANOTHER FILE":266:6:32,5::"PRE-TRANSFER OPTIONS:":" L(OAD FILE FRO^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ`T0:"CLR":2:5:"NOW ";::"CALCULATING";::" STD. SCORES.":BC:C1E:15:"CONVERTING EXAM NO. "C:10:C:CB:GH:318:15:"DROPPING "H" UNIT(S)":26:15:"CALCULA l݅Ȅ  L  L qr qʠ ʆ L^_:ʽe^^e__l^" ަư8^_氠^LQ^P^i^_^Ѹ "^eP0 $. *媆 gݥ 9 r륢H #h 40dNEF- ,00 *$,XǘP$,ȱ8# \ % ,;LLںLAYLAY.RM  { lݠ 5橴 ߙ)? 詍 lݍ `ʤ_CLEARARRAY CLEAR.RM , ߠePȱeQ 敥QP , `PUPRINT USING.RM { lݠ R % ک; ީ ڢ8<PћI C?9PǠ0%<e<=e=ݤ h cڤ hhhLcPROPERPROPER NAMES.RM { lݠȱȱHhP)hʄ^HA [i L᥸ $0P$ }hh { , )$pL$0hhHHH { lݩ  ,H j݅H ! , ʆ LLkeB$"VERIFY MERGE,D1":68:B$"RUN MERGE"@B$"VERIFY MISSING,D1":68:B$"RUN MISSING"BB$"VERIFY TRANSFER,D1":68:B$"RUN TRA10A21))((F14F4)(A11A8)):362.F1496=0:86h2F52,54,36,64,58,64,56,58,60,62,64,664B$"VERIFY CLASS RECORDS,D1":B$"RUN CLASS RECORDS"6B$"VERIFY MODIFY PARAMETERS,D1":B$"RUN MODIFY PARAMETERS"8B$"VERIFY LABELS,D1":68:URN";::" TO ACCEPT"! $:74:: &A$:A(A$):A1346O (A3İ74:F1:36 *A8A21A10A11į"SOUND",200,200:38%,"SOUND",13,62:74:F(F1)((A10A21)F14)(F1)((A11A8)F1)(F14(A10A21))14(F1(A11A8))((F2F12)(AO BASIC":A(14,1)D:A(14,2)E14 ::"CROSSROADS FOR CLASS RECORDS":"----------------------------":2:31:"(48K DOS)";:(116)176Ė32:"64"; ":31:"(IN USE.)":F114:FF(F3)(F13):74:F:F1:B,0:14:22:"<-- OR --> TO SELECT,":15::"RET8,2)E8:C$(9)"MAKE A NEW DATA DISK":A(9,1)D:A(9,2)E9:C$(10)"MERGE FILES TO NEW FILE":A(10,1)D:A(10,2)E10 C$(11)"MISSED ASSIGNMENT REPORT":A(11,1)D:A(11,2)E11:C$(12)"TRANSFER OVERALL SCORE OR ONE EXAM":A(12,1)D:A(12,2)E12:C$(14)"EXIT TD:A(2,2)E2:C$(4)"BLANK CLASS SHEET":A(4,1)D:A(4,2)E4:C$(5)"CLASS RANKING PRINTOUT":A(5,1)D:A(5,2)E5:C$(6)"DUPLICATE FILE - W/O EXAMS":A(6,1)D:A(6,2)E6q C$(7)"EXTENDED LABEL MAKER":A(7,1)D:A(7,2)E7:C$(8)"INDIVIDUAL REPORT":A(8,1)D:A(,73:799,137:(1018)255(116)176ĺ(4)"BRUN GARB":65200,2_ 24:27::"HIT SPACEBAR";:p (C)12820y B,0 C$(20),A(20,20):(175)256(176)46:26 D5:E4:C$(1)"CLASS RECORDS":A(1,1)D:A(1,2)E1:C$(2)"MODIFY PARAMETERS":A(2,1)5 !CROSSROADS 1.16 8-15-85: COPYRIGHT (C) 1984  (4)"MAXFILES3":(103)1(104)8(2048)0Ĺ103,1:104,8:2048,0:(4);"RUN CROSSROADS,D1":72::B16368:C16384:B$(4):(798)73(799)13724> 80::(4);"BLOAD CLR DATA":798          !!! ! ! ! :" 4. RAW SCORES":" 5. RAW SCORES W/TOTALS":" 6. STANDARDIZED SCORES":::E%6:F$"MAIN":644:B072LA$" RAW ":(B3B6)A$" STD. "NO((J1K1)L1):OO(O(J1K1)L1):M1M1O(B3):(EM1)H1:N1E:88PI1H1D(4)EH1O(B3)EW":612:E1E$"PRINT"HF10:"CLR":5:"YOUR "E$" OPTIONS ARE:"::"NO STUDENT ID OR TAG:":G10:D11(E1):H1D(4):(EH1I1)H1I1qJ612:" 1. RAW SCORES":" 2. RAW SCORES W/TOTALS":" 3. STANDARDIZED SCORES"::"WITH STUDENT ID AND TAG:"5:B(5I)0:I:I1E:WW(F(I)):J15:B(5J)B(5J)A(I,J)(F(I)):J:I:M0E1āJ15:B(5J)B(5J)MA(1,J):J@I1E:J1P:A%(J,I)C%(J,I):J,I:A%0:26:42:I1P:G(I)10G(I):I:B%1:B! PRINT OUT DP1İ610FD11(C$"V"):E$"VIP:I4:N3:666 6(G(O).05001)B(I)B1(G(O)B(I))(B(I1)B(I)):A1A1ID(B1(1F)2I4)D(B1(1F)2):H(I)H(I)1:60 8I1II1:54 :G(O)0H(0)H(0)1 <O:C10:X04:C1C1H(X):X:A1(A1100C1.5)100:t>B2:640:W0:K0:I10:V0:Z0:X1E:ZZ(F(X))(A%(O,X)0):X:MZ50 ,Q1E:G(O)G(O)A%(O,Q)(F(Q)(B$(Q)"++"))(C%(O,Q)0):Q:E1G(O)A%(O,1)10:50 .B2G(O)(G(O)C(O))10:50 0G(O)((G(O)C(O))10)(ZM) 2O:B2ı 4X04:H(X)0:X:A10:O1:T0:I1E:TTE(I)(E(I)0):I:UM:V0:MTUTf D%10000:Q1E:(A%(O,Q)D%F(Q)0E(Q)0)34y D%A%(O,Q):YQ "Q:T040 $E(Y)UC(O)VD%U:U0:40 &UUE(Y):VVD%E(Y):TTE(Y):E(Y)0:U0T030 (O:6 *O1P:N3:666:G(O)666:RA(H,5)S10(B(5)RA(H,5)):24> QQ1:RA(H,Q)18Z RA(H,Q)S10B(Q):24 S10B(Q)(10(B(Q1)B(Q))(RA(H,Q))(A(H,Q1)A(H,Q).00001).5) A%(O,H)S:O: O1P:M0C(O)0:401 N3:666:I1E:E(I)F(I)(A%(O,I)0):ICALCULATING NEW AVG.":42:ML:A%1:S B$(H)"++"āO1P:A%(O,H)10C%(O,H):O: O14:A(H,O)ĂO:"CLR":10::"ENTER GRADE BREAKPOINTS FOR EXAM ";H:A%0::198:598::: O4:O:O1P:Q6:RC%(O,H):R0S10(1(R1)(R1)):24' N3:ͬԠҍˬԠҍ̬Ԡҍ!^LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ`X0CROSSROADS,D1":72::B16368:C16384:B$(4):(798)73(799)13724> 80::(4);"BLOAD CLR DATA":798LںLAYLAY.RM  { lݠ 5橴 l݅Ȅ  L  L qr qʠ ʆ L^_:ʽe^^e__l^" ަư8^_氠{ lݠ R % ک; ީ ڢ0 $. *媆 gݥ 9 r륢H #h 40dNEF- ,00 *$,XǘP$,ȱ8# \ % ,;L>i>?i?8<>=?L, e&.'i/.)*ȱ.IiՅJ)+ (.Q.0.уȱ.у```0./ ꥃL8. K"ȱ.^ȱ._$J0 ^ЫK`  +._.^. LPUPRINT USING.RM RG.ІF/GEFD$1 ީ I0 &ŔÄ'ĕнеȱаȱ+-&Пȱ&8+hh8FD:GE;:i:;i;F;f:;`8F:E?>@?A@e:BAe;C \.E*0* 1A;!@:8@:@A;AEƥ@D ^iȥ_ixA@ ./CBHH$1H+H1)L-+ .H.h$1+`,,,0 B``LvL HH 1-ȱ.ȱ/ g RDE$1 Ю ީ КД g ,0)(O)::A%0:B%0:F%(0)2:F%(1)Q:F%(2)1(Q1):"SRT",M$(1,0)M$(P,0)F%(0)O1P:C%((M$(O,0)),0)O::G%(0)1:G%(1)0:"SRT",C%(1,0)C%(P,0)G%(0)"CLR":L13:I$" ":E1ĺ"NO SCORES RECORDED":598:X11:Y1E:EB2208B7:A$":6:"YOUR C(HANGE/SUPPLEMENT) OPTIONS ARE: ":::6:"CHANGES:";:32,10:::"1. EXAM CONSTANTS":"2. NAMES/ID'S/TAGS":"3. SCORES":32,0::E%3:F$"MAIN":644:B0186B200,262,308186O"CLR":10:"NOW ";::"SORTING";::QB5:O1P:M$(O411:22E1);H(Q)" "(69Q);:Q:22E1);H(0)" F":Y5E14);:O15ĺO1);:176m"NAME";O14);K13G1ĺ(K1(K10))G1);:180"TAG";K12);J12G1ĺ(J1(J10))G1);:184"ID";J11);! FIX DATA"CLR1)25(E1))"WEIGHT=";:QHN1:RF(Q):576:;F(Q);:Q:B2E1ĺ" ";WM;:O1(J1K1(J10)(K10))(G1)25(E1))"EXAM# =";:QHN1:"PU",I$;Q;:Q::8:" ":7E1)"THERE ARE "C1" NONZERO SCORES.":7E1)"OVERALL GPA="A1" WITH":7E1);:Q= ";:QHN1:"PU",I$;A(Q,5);:Q:B2E1ĺ" "(10B(10).5)10;:O411:O1(J1K1(K10)(J10))(G1)25(E1));(69O)"=";:" ";:QHN1:"PU",I$;A(Q,O);:Q:B2E1ĺ" "(10B(5O).5)10;JN2:666::O:O1(J1K1(J10)(K10))(G:Y0:B2B5Y5_G12(AB(1Y))(AB(2Y))(AB(3Y))(AB(4Y)):" "(197G);:G0160W12(AB(GY))(B(G1Y)B(GY).001):(171((W11FAB(4Y))AB(5Y))173(W11FAB(1Y)));BO1(J1K1(J10)(K10))(G1)25(E1))"MAX9K$" ";:G1K10K$L$:"LAY",M$(I,3)K$1,K1:K$" ";JG1J1146wK$M$(I,2)" ":(K$)J11K$(K$,J11)K$;J11(K$));(1018)255Č1016R11000ĭR1(R1).0999ĺ" ";B1B4V10(E1F10)ıAG(I).05001):R1(P1G(I).5001)P1:(B1B4)ĺE10)"=";R1;:150U|:N1:666:I:B3İ170j~E1ĺ(T1);:564(E1)İ598:568K$L$:O11K$"":136"LAY",M$(I,1)K$1,O115E1(I10));I"."I100);:U11(U10E11)į"PROPER",K$,K$172:QHN1:L1(B$(Q)));B$(Q);:Q:B2ĺ" TOTAL"Un(13(B1));:B3ĺ" AVG."spI1P:132:E1M11124rQHN1:B1C%(I,Q):B3B1(A%(I,Q)10.5)tB10ĺL1);:122vB11ĺL11);"-";:122x"PU",I$;B1;9zQ:P119(G(I)1000$(32Y):O1O15(F10)::5662`"CLR":98:72Qb(B2B%0E0)İ62:"CLR"ddB3İ6:"CLR"qfE1İ556h6E1);J$;:E1ĺ:::112j" --- "A$"SCORES"(13(E1));5);M" UNITS DROPPED":B3ĺ6);:I14:" "(64I)"="B(5I);:I:4l162:H1I1:612:78.R"CLR":5:E0H0:N10:88aT596:650:H(H$):H(H$):N1H1M1:N1EN1EVH1HEĺG$:M1M1O(B3):82XB3G11:BB3:(H1I1EM1)H1M1ZE1İ600\EHD(4)OG1H1D(4)OG1^E1F1D(6):Y(F10):L1L1Y:I$I" " " ĬōЬˍĬ̍Ҭԍ٬ˍԍԍččč"