LnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)SOS KRNLb.D1/SOS.INTERPŠ̠Š.D1/SOS.DRIVERР頞 0 ) (lH'&3&'&#e'#%e'%'&"$"$#%'#%h`$ezo4 *GRADESHEET ZoE6CLASSLISToo*HELLO.TEXT4; 4; *MENU.MAKER }0>DISKNAME.DAT b&b&%SEG.T j1Ÿ/ III.MSC.08012.Cu' *SOS.KERNEL ,Vo !a*SOS.INTERP 43do !+*SOS.DRIVER g41Z'GRIDDER +1So!&GRADER !o!%HELLO >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@L%e,ȥ,*,- y,,,-,,,ȱ,,- yL+,ȑ,` 2"p-,-L(Ġ %>,i-i8, ȱ,%,W,pp ڠ %p`l  " ) i   !"#$%&'()*+,-./0120 `8`HiHiH ihhȱh`86)IH)heuQɸ` ` W` ] %饚0` W` ߰4`)|E8LLLRLLLLL*LLLLLhh`LLL`SOS 1.3 01-NOV-82(C) 1980, 1982 BY APPLE COMPUTER INC. ) `G`î** }*`o^`on 8 JJAj@` *?($`ΠņɠŠ堠РѠ͠஠әƆH v?c,,,,h߈ߢ~))`3PLLP*%(i&`Ѕ񩏍E H pph`X٠ŠҠî!((ͽϠРРSOS NTRPSOS DRVR(.D1(YYYYMMDDWHHMMSSMMM̱忠ΠͽŠ堠Р͠Ю̠Ɔx߭J ʈc(()o/ e/''ʈ((''()(1i / e/''ʈ((''((''((''' ('`ŠDAY, DD-MON-YY HH:MMSUNMONTUEWEDTHUFRISATJANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECé@L&I/O ERRORINTERPRETER FILE NOT FOUNDINVALID INTERPRETER FILEINCOMPATIBLE INTERPRETERDRIVER FILE NOT FOUNDINVALID DRIVER FILEDRIVER FILE TOO LARGEROM ERROR: PLEASE NOTIFY YOUR DEALERTOO MANY DEVICESTOO MANY BLOCK DEVICESEMPTY DRIVER FILE '(i%%%h}%%`8 ȥ!8 !)"qȥ#q#e$ȱe%L)%`@(((( % %`((((࠰$(ɠH(@(h((((@(`%z %% %~(A{(L%`.8(.Je.&ʈ.s(1 6$P8"ȥ#L1$8"ȥ#(ϸ`"##L]$"qȥ#q0,$p)@"q"ȩq"8`*$% $% 8% $L$* $8%8 $`8 &'$% 8&$'% 8$%%`H   q ȥ q Hi hi 1  % H H ȱ h h % $$ 0 e e H i hi âz %` 1 8`    # &ȱ ' # i" i# # #`8 ȥ H h `8 6$P`8"#%#%"$w"$#%"`荚ٍ荺 荚`荺``` D ( )  * ) 4* * h* ))` L% q ȥ q Hi hi  i" i# #% $ȱ %ȱ &ȱ '`<!((g %(r(z(q( %y(i(0z %"#$ %&' $"#$%&'   `%$%ɠ%* " ~#C #p $ %*0"#)#)i $"% * %*  L! {" j% %ƌ(X#"$% "$ #%%& '   ` {" & ɠ% %)  !( (" %(r(z(q( %y(a(0: %   "$%&e$'e% R % <`` LLɠ8`ΛLL渠`ǽi `< Ȱ+<#5 ې'` ɐ /ݐE`W8`R` 5&i ` Ȱ 0i `<8> ȐT eİF cȰB)Hh5 ˭)*ȑƑȥǑ'(ȑ`L)ɭ)Ѷ*e`M) `ۅH)Ѱ%}ʈh Qܐ'``hi ` p6۽ʹZ5 HȐ/i i `гW8`0( ɐ Ȱ ʮ6E`5 խ ɐ ޢ ȰLȍ۱Ǎ X̰% & !J8` *LĢ `8 iۥƍۥǍ`ۅ %  6 )Ѱ Ѱ` 𝭧e ǐ bǰL*ۈ5ȱ۠ƍȱǍ X̐ H h1  /ݐE`ۈۅ ۅ 8ƭ X̐`LLŠǠ  ݭv̅w̅ ðzv̍ŭw̍ŭƭ ­ōō T̰]ŅƮņ X̠8iȱiiȱi ṰŅǭŅ XLōۭ۩ۅ ȱ8D`F`8eYƍťǍŠ)͠ Wٍۭۅ5ۅƭۅ X̰ ìۈۑ T̰ۅƭۅ X̰ۙ%ۍ" T`K8`)` İ ۱ۈ` ưW/ۈęۈЍ۩@` 8 MƐ  5 Q8`LŅ ۅ ۩ۍۅ Lɰ ʰۅۄÍÍۙ'Ù ۍ*ۨ  Ѝ۹ۙ8v- ðJ ¥ ð, ðLO ʰƥLT`'  mې浰``8 8 nʰ0 ̰+泱Ƴ m° x̰ ̐8` m° x̰8 ۢ8 ˰y ` ¥ nʰ泱Ƴ T̰#泪 Ѳ *Ƴ ` L:Ϡ`泑Ƴ` LaĥH8`JȘ I8`  S`ۈۥۥ۩Íۭۍۭۍ հL¢H8`Jj Ȅ ۍۆeۅiۅ Lɰ ʰWۅۄ ¦J> ɩE` eĐL Ȑ 15WL QL5WW{5 ې'`,55 ې'` ݠ B1 ȩȑ Lɦ8`5  @ R㥶i ` İG8`F`X8``éۅĩ >` T֩xxMH]@ Kۅ5H ɐE$ eİ Ȱ h`h`8`W h8`hR`hLҿ i x +ۅ5ۅ6 ǰ `E8<W`­ `0XLۅ5` ռ``ߤeI`IiţO`Ȯʆ/ )󘑡`()0zq 滅ѺY Ueۅ5Ѻ Ѻ  Qܐ'`i ҩ *C8/y.i/ ȑ  © $ E7<3W`ȽLֽȄ @8`R ) [)_[AͰ")[)_[A:0/.ЩȑΘ8e * ȩ`Loü 7)?۽۩ W٠Յ<ōōř ռV7 uM78 V榠=ü#)@5 ɐ /ݐE ) .) @L `lqhٯ޿=ϓTXIֲ̛̐~ؠIJK,-NOPQ0vt Ѷ"` ɰ Ȑ`E`Ɔ X̐8`>>5Ѷ Qܩ<`>`\ʊJJJJ ۍ۩  ˰Fȱ X̰6 0 Lɠ 0ۑۑ8ȱ`H8` ɹ $  8JJJJ8 ` ۪` H hQ)fʅ F jF jF jF &!  eװ*  ̰F湥 ƹ`Z8`@  ʰ泭ۑƳ ʐ` ʐ` ˰ ƹ Wː`ۘ . . .۪8*Jۦȱ ˦,+* ʈJj =ؠ yiȩ`y4泱ƳHhz ʠiȱizLA`L;ؠ"  `1` Đ7@8V۩ Lɠ۪8ۊ۠X)JJJƄ X Ġȱ۠ ȍ۱۠ ۭ) ۍ ð*)#  O̰``)(`N8` ) xհۈ ̰آ*գ  Ͱ ݢգ LvL{ؠ;i ڥ(8` ְ( ȱ5 HȦ)`Lxץ: ש ְ⥺i ꥻ(8`Lx Lxש u )۠0)p խ.8`)@ ϰ) ϰۈۅƭۅǭۅ5 X̰ *ƭ۬͵̶L  ΐ` Wհ> H۪ȱHۑhƳh sϰq ` ʰiȱi `)5©éՅĩ5 }JJ+`.`8`ɂ )`@ ש ְO ֤FHۑۑh8`P) հ Wհҥ,J+j泭۪ƳۑȊ ) ~ fPL ͊.>.ʱ+,EP!.E.Lw+,,ӄ*- P*e (` հB հ5 Wհ0,J۪泭ۑƳ sϰ(` L Ͱ2 ~ P kҐ#L8 T 2ΠHHȑhhȑ`Ld )N8` xհ*eȱ+eȱ,i۠Ѻ۹ۑ񥤅- ť.Lcԥ.La Ͱ$)rJ Lɰ )# Ԑ) ͰU..++,,IJ/ ӥ-.?Цե,J+jѲ4Ƴǥ4聠 H hH kh8`8-ȥ.L 8*Ʊ )8 0*-`.G.ʱ*+,EP'.E.LұE0+,,ӄ*p-e  )LBѠٳ )8`i (` )N8`*eȱ+eȱ,i۠Ѻ*ȱ+L - ť.Lkҥ. ՅL ͐Ld ~ pа.J/)@߅4N8`) ))УJ8` ۑȭۑǠۑۑȭۑ($S8`O8` "` / 򑺠+* ͐H h8` ΰi `()  *ǵ յý5Ņ4gȩυɩč5 iψ }.8` iϙLIѠ ˢ L΢ ΰ LϠ ˢ ΰ1` Đ@ АP8`B8`ۑJJJJ -ѥ +jѲ84ƳJJ 2ΐ3泑ƳLTΩ潑ƽ`ƱƳ ΰ( {Π۵*+)e`8`)` J J + ΰ" 0 ΰ 🱼ѼL8`ǩ Ϡ` ϰ ƑȥǑ` Ѻе*`)ȥ+8ۍې  ,ѺLTΠ"LΠ5 խ ɐ /ݐE`C8`)@ ϰa)ۥ,8ېu+J,\ ȱLJΠ) ϰ'#,J(] { ΰ ƑȥǑ.8` { ΰ,JѲ ƳL΅ƱƳ ΰҥ,J0`#$"0#`!qȱi 5H5Ƶ ǽ jh5`L2̩ƍv̥Ǎw̩ÎL%ϠƄǥLj̩۬L~̠HHh` ̐`*ѺG0?M`)J"u-- M8`۬` # ː`  = O̰)= I`JJJJѶQi Lˢ  0 ̐ `"L˦ `H8`8$$"$= O̰=`$0`#$"0`$Jۑĥ` İo!)N8`WپX0 ĥLä X0 ĥLà !"#$ Đ2@H AڰCŰrP` 3ڰ(` AڰѶ? İG8`Fە1 ռ İ ЩP߭)@N8`1@8` Aڰ񈱴ۈ)ۅƭۅ X̰ 3ڰLÍLT̥L㼠  ʰ` İK ХP8` LɐH80)N  հ)@LO ˰)0 ̐` M ­۠泭ۑƳѲƱƳ X̰ Rڰä,] Xx,f (I0јIFjFjFji```x@gŽPy+wLwԠ͠ŠԹ.D1 .D2 .D3 .D`HJJJJh)y` (2ϩ 1ޠ== f ɰ`ޭ`5=(5= i Х(`=H hDC5 L3ܵ ɐ /ݐ 8`5 ˥JJJJ8 H h ` ܠ825H h5 ɐ /ݐ 8`Hh ܥ5 `ɥܥܥܥܥ5`܅܅܅܅܅5`( ݰ)Ѻ ݰL ݰ泱Ƴ ʰȭۮ ʰͩΪΩۦ eװqȭqLJ  ˰Aۅƭۅ X̰2%&N  ʰƭ X̐`Ӏ堁ӠҠՈ՘̠ƠŠӠ̠ɤӮȪŅ͠Ϊ ܆5 HȰ4 )ߍ) hjjjjۥ0CF = -$(L !LLL&L L-LJ٥eƦ ,L  # ` (L.L…ҥÅӭƅХDžѥL1LUȑ  i ߩLL )  札)  ҩLL` **éL0;` H ) abRcdTefVghXijSdfhj RR`^0U ` 0 ʠ0 8 `ůàՠԠàࠝӢӠ ȠDž̖͌͊頀ϐωŠŠӠҠȠγ`%!^0 ^)@`a R =` *^)ـooL]^)?i |TU QTU]qUoqTITsUsprRprqs]ToUXa` RL=Xa` R` *R`X`U T  *\AX[ @F\B9ɏ5\o*Ɂo)[[ @^`U V  *C?^0: ݳ ٢ ^)?i` *)@o `p^ XiH 1h `)X0 8~X 1`C X`)X0`C РǠ𠠐ŠŠӠҠȠƠŮƠҢâӠUAQY @?ZY 9ZYY^TU QZoȥɭ }`` ? }``  }`X0i 8~XX0H }h襯` ©Wéĭ }0W`F X0A */5BL. zF`LLz Lz`Y `Ơ堧 B k L( LO  %   }` ` ?!©UéĩU󥣍V }`` ?)) $p10LYeieLVȱ d0L`Hȱ hh` WɸSI I.ȩ8A 8ɸ4ɠ(H)h h8   `    i Ȣ d` $,)?P^ GL㢮 5L}P.)(Ơ L`ޠ LR  稱 I)0JJJJѤ  БĈ` H`)à`֩ нѽ>`]PU]]UPPX0 0 PPXPP  į󠠩ҙ̙ɠΠɊՐӠӢ̢ՠҠŠԠҚРĠ鱃ԠȠࠠLQ  * WHHH>%H H @`)h8`  HШБˆeЅА SYSTEM FAILURE = $hh8`hhhxآY_Z@tPRVT,p S JJJJ ) ʍL@ i0i6`îӉ͠堧ǥӥ``HhHy)(h`H` 0L?i `h` `` `x)( 8 `jjJJԥ)եӬɂ )Ӆ҅`  `H0Xh`Π'à̠ȈL` 8`څ  Lk%  Lk8Lu텚8嚅 L L Ld V ``  h` ک V `ۅץ  VLFx) ( :` H ) L  .P'pб0 &L:L5'8+8`0Fܢ` ř,Ř 0 8f)J DžŠƠŚ̮ÎȠ Ӡ̠Ӡ` LL#L/LL'Lgab `abBcd cdBrcadbho:ab.cݰdDcݰd8abҊ v+abcde0f`   cCȱcD C Ea  UV 1 ELUFVG FUUCVDեYCWZDXWXCUDV[ v`b0WXYZiUcȥVcWX eeYZ ggE` @SATR$CONV%LEFT$RIGHT$MID$INSTR>=<^/*-+NEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPRANGINVOKSTACK OVERFLOREDIM'D ARRADIVISION BY ZERILLEGAL DIRECTYPE MISMATCSTRING TONLISCLEAGENETABTSPCUSINTHEAMOSTEANOEXTENSIODIAFNOAAAAAAAAAAAAAASGNINTABSATYPRECAAAAAAAAAAPDLBUTTONSQRRNDLOGEXPCOSSINTANATNAAAAAAAAAAAASTR$HEX$CHR$LENVALASCTENAACONVCONV&CONVKBEOTIMEDATEPREFIXEXFNEXFN%OUTREINDENAAAAAAAPOHOMA SUB$OFTRACNOTRACNORMAINVERSSCALERESUMALEGOTIRESTORSWAGOSURETURRESTOOALOASAVDELETRURENAMLOCUNLOCCREATEXECHAIAAACATALOAADATIMAGCADEAPRINDEELSCOuuuuuuS}1DKuuuuuuuuuuuuȔ-zz4{ {@uu2{Ӎʍ?zzzzv#jvdvXX~}{{XJDފL^ENFONEXINPUOUTPUDIREAWRITOPECLOSATEXAAAAAAAWINDOINVOKPERFORAAFRHPOVPOERRLIERҟɀ jiLr pێrpE 먑uvfuuuuuuus2uuuIdUduuuuuu횑uu5d?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdeϪ ӠťςŠϪ栳ŦƮӁԣŠȠ҄ʡ֔ɇҠǠՠƠŅπŤࠠÂӥЕƠàӮŃÀԠ ՝ڱЅȠƠ ŠȮӑԲ„ҢӠɊɣŮծᠺՀǥƂŠϪŦåӁԠΠ̐ОSOS NTRPUcLcŮժᠺǥƂŠύ̕ŦåӁԠΠŠҟɀԠĠ̠ӠͮɅ ̠ȮӀՅ ̖ήFƈϐϠàӠЮЅ栠ҩŠîժŠ͠ŮҠɥơıŠƦ  )* i LiHh`PQPQ>P Q,PQ"PɀQ@PAQ`8`nɀ<)nopoLpp` 0h8蘠fȊf` ab 1abo)abaݰb L9c`` a N0Ioa0H ha`pLopna n`  3ɠ/8 L %iLɠ8逨J Hh $`b >_-%^%p_^^_ab"08^c_L8^c_L8^c_L8^c_ȑcc\] ab^_ ``aV R0M bba dda `Q8STRQ ST`c\ȱc]a  b 5DU e\^e]_ ^_ ^_LH8\^]_?Je\^e]_,78\^]_ ^ݰ_ ^_LH^_ $bL@A^_aoQ*@A RQL@A `T8`RLSJTKQHIQiHiIKNJ)M8逅OPOPHMIN'a MHNILHOIPaOHPI8JHFKIGFGaHMINNMʆSTL8HSITQQSTO LONFORMULA TOO COMPLECAN'T CONTINUUNDEF'D FUNCTIOVARIABLSOS CALFILES BUSNOT SOI/FILE TOO LARGWRITE PROTECDISK SWITCHEBAD PATFILE NOT FOUNPATH NOT FOUNVOLUME NOT FOUNDUPLICATE FILDISK FULFILE LOCKEFILE NOT OPEDEVICE DISCONNECTERESOURCE UNAVAILABLDIRECTORY FULDUPLICATE VOLUM ERROR IN BREAK%&'(%+.@C$DE FG!H"I'MN#PQRTW(XɁ7XWWXjnXWi` 3^?@@bgchch ܆^ ^b ^b^b^L]b8g+H__^8PMNKLhhLi`La, ; V aFL) u a }kLi &^hhh5h689H: H:HLHKHH6H5HHH` 0k` +k` r l +k r k` l BlK$L%8eȢ 9:: a.ghh ` ` `]ɾ,L^hhKȱLe潥ɂ逅$L# nKL n =jLiLuLe uj5逢)&a WHVHLgLl8:9: ІSTT`)ɀLK$Ld8gLOPPKLMNhhf 2n*]L_L2_-L(fPL^OW;8<< ` lLX*i mXX 熅XL| `]'_ch_chbi^g ]ihh &^ r l fkh r d s sn %jji56L|%}  d s  mXHWHHH iLOPP$pX0S&ȱhȱ  n#W", noȱ28eLgji`L2n noȱ"Ɂɂ ȱ :, iWjj ȱiYjj8逪XW0 ,h0WHW$ 0X: h lo ,h0 noLh) noWA 0 xa loLhfffff`,@ff Cg fʳfH @gh(fL2 \ffک,ffLgTg`zgfgHELLO l a(% -, dLu l {ghhh$PLuj 2nȱȱ%$LWH loh l aLK$L% L^gHhHhH , - d l$% ag5h6h6hhhhh8g5h6h `6 hbLbf 6`L6`  f.CONSOLE\ VfUfff gfg0  (`H uhLu ff h u e Re()' ReKHLI BlLl89弅:彬: `H hɝɞɜ)`ff  h芅 e ()'` e'()HKIL ReLjL^) jk!Lu 0c p a0d婷tgL6_$%L{g Lk` Dd` Dd` yuL%{ Sd#`L,H yu %{h 6Lۇ,L68f`  KL BlLlOPPKLLi KL` Ѽ  e@ _m__^ ]Lb潭`: 808`:LPL(\)&P ěj9ȑ9ȑ99i=:i: >i>`ff@ZH  c#IJJABB 9::)ѭ=>>;<<?@@V ě ]jhhHH  `89::  e!)`gHhHhH5?6@6@*5g5666gҦhhhhhhhhg:e:;e; ;m;`@c@c?be^@0ɔĐ 8,f 8f L`ʅUU=ȄL aȱi8eiiji!U)L`UUU`La` :0.`9::hhgg.%g& $gegަhH逪hhʰ`  0c 5bLT IJJABBU U`L^a8 UiXjjU):,$f 0$ p $ 0t!L`?iٰcL,aU )!a{)Qi ڐ߽U) xai) xaɢ ɣɍж$HU xahʥ0UUȩ5%"/װ&hԐɈf 56ɀ56H nhɀ])& UoL 2nL \ͷfL uf# 2nfHffhf) _ ʢLh `Lj lhP `U a-Qggeg5hih 6i6 hbU" b$%UUUg 5b bL6_ _^_ __hg^`8 ` i6g55``BY BSAMHH H]fHhH_HcH wwhch_hhhfhi0hhhB B A` L^'( z)&񦕤LNKM$Ld ě n 2n n6[6 5ZkKhLhhhe9e:: mLi ?lei `Lu Bl:,"hhhhLiɜEɝDɞLe %{Hɾɺдmhɾ r l +k r l` lLk l,h`LwdLe$%/%5$ &5 &5e$$5e%%$&%$e$% Ll  yuHH 5sL mHHh$0'ph  ِlWȥmW`LVhXWXLhm lmmLlml ՔYZZ{|| y `lmmYZZ zWXX #z yYW# mXX =^W^0A,^`=8WW>X> XXXL^ h`L^ n Jj dxYm6Zm6Z y` zLr{5 LzL s ՐlmL z0566 `{{L s ِm*elL{mLiɑL Wlm$%`L{ }nInEz{iL{ }> }Luu8i$iznIi y("LiH)&h`( '&'`lmm566Ly ({H hjL` zYYHH 㔥YZZ #zhhe5566ɂ逅66 yZZY zL` zYILEzm ) u %{ zʊHYImm suhhhhYhZhZHHE` z YZZ yLyl5 Іf feLweLxL^lqx fyL^ Քxy{|y| yeGGHHɂHHlm{|m| y fyL` nxyyLzHI855J J6 666 h`{Hȱ{ȱ{ 656 syh H5Gh`lmm566 z5Hȱ5ȱ5 665 sy56h(`8ȱe iȅ s eff8  džffHs.GbHcHcLgxGgHhHhHH ]hhhGHHBBA!AghhLx8 džffeLw ]^A_B_B`)&N> ȱI8gJJ hhge ghhy6( y( y\LF )XHABB8 dž__^hHI8e^ dž@1 @+?%GHHHIJJih BABGHh`$  ě ww Дs IJJ^__Lhxeȱeȱe XE )s LxɁ >H>H= Vt~w/z*|cYX ~uƀ1r }iP  iɈ J~ i8Huiiu { t {h /~` O] } ]L} LoȘ戅 }iȅ {do`Abi$nFn)U`y`'d  ZuL`| ]z% uH Mh{ H S} } 1hJ inIn`L1 HHHHH u hL0shh6h6h555% 郢5566 郠` ye55M  M X~e t~e { Wei0 i8fe.șU0șUmymlylkykjyj00ڊIi i/ȄȪ)Ue.șUI)ЪU0.ȩ+f.8f-UEU/8 i:UUUUUfh r$h8fLfg s$gPf8ef t~f X~f o0`Lt ` H$ge X~h 80 YLˀH h zEn{iL{f d$h0L| ef q80fLCOt#t$%] UoLKjk8  LUo -$nșUnȩ0iL炩 }e kjI*mlinL9|Fn`nEz0ʢiH {nihoi8傐IL`7 }!LiD8$n |iL"}n)FjjjL}iɠ WnnI*imL9|jklm` s e-o+ smo..IE)2s S -+vL~@jjj)(L L^~jklmL>|5665m5l5k5n j5i`d,]WXX566 m5 l5k5n %j5i5` m l)m m`znth` ht`i  | |`i n*` jfJ`5665y5x5w5zEn{z v5ui`uei0,iiLb|{n`nI0hhL^|L| i{ {i` o~{ L~ }L 8ii -~ivjwk xlym* 蕁24(y&x&w&v0⨥ymyxlxwkwvj ) }L`i i@Li$i0 p  `ui` L` u eLd5665`iɀ*iH i ] @8 i tutt tj hn` t` q0UN0U 0U$n-UUU`i` p`5665i`$0BP?iH i ]hLrv  mlmkljkij8ihn`L4{$0DpA ͍ nHi80 @L|u @u h `&m&l&k&j`L8{ 2 {L$0pLȔ ˌˢULi ]ǩ|`LvH wwhA?B@7B@87F8f7877878L^7 8*JA5gB6B68 h圍h?H@H@HI?J@J@ hbh@h@h?gAhBhBJJ8 J圍J7d8eBaLv`ijBfi jL^`Ib^J88 ii UŦLXUU HHHHL̷ +hh LP iL +hlhkhn jhimhHN8 Lu`LȓJ1CUDVDVU Lŧ 0 7U L`uUU{U||LK: / cyUUȹUUȥ Uл yu U` hh U LuL  (L[ Uީ  @Y%(&:$LX Vu 2 iHn %jHkHlHK Vu ʍ ِlHmH5 Vu {iH ꎥHH楩e ) ,LuLK eՅ7Ui8U #  785U6VLǕU7e778ҥU^V_bcF_hcCgDhebbc ]^__`U8傅UV` uUȱU` L^ uUUƜ0ƛ ̘WqeWȱWqei W` u8UUWȥVUX`UeUV` UO / +'L U)łiV VL LB 8U 7ȱ7 UU ЯUVULU7V8 i L LS U qUU qUH85h688V77U U 5qUWȥ6qUX7qWWȥ8qWW ٥IiV) V LOU7VV 4YgXg8UXg5VYg665VgWg 4 4VgWgWgJi XgWgZgVg 485壍XgVg6复YgWg 4 c uUUHVH ̘U7WUV8XVV8 ̘Wb7ȥXɂ逅c7 5ef fbe  7U8VLh88h7UV^^`H"h{||kjkȱ{ "ie{||  Ք{|56|6 y&5L^i8IjJkJk ܆lmm'&`L^fCDDEFUVFVX L4  uVgWgXgYg8WHHHH lL d L s HHH mu shhh5ȱ6ȱLȓ65 h5H6 dHHHȱȱ6H6H5H u =к shhh Luhhhh` U/mZlmYZ wjHkkiLL^ȥ5^H^h Lel5emȆ6п  Le^e__ iLڏe *& eee`  ě ww8A?pB@B@ ܆onL8jkL ufȩ8 ufLLа,L^  u  h s su= uXHXH L56ۥ 8ee L^?be^@ce@c __^_ ]__^;<<6 $Phihi^Ȋ^6gȑgʆ5a g5ȑgȥg <^^^__ɂ逅____<;إy6 hlhm^Ȋ^\i FHHHHH hhhHHlm ,҄ suhh)>=>hgh<<;[a{gggegȱgehh LK ,L^  8` ^LВ hhL=6 $P 訽5cA[8饰 a{8`8\e@@He? 3^@@?hbbb0 ea ȑbc8L @@h5h656H mHlHkHjHiHl5 8eeghh^__` HHH H sh hhhn0iɐ ML {LW Lueff .!'$ iߪ$ 0 _H8eAfi\h$ P8 (L$ 0p ;<<ccb? @c@ube.a{bb,\(eb cc`eb`u ]LLi ]u ]Lui0 8 6,,% п zlm0}5}} kk} kklm Lz[ 80@ 6 2` { 㔠kH) ˎjhJJJJ ˎjL` 0:i`L^ u ` cJcmi J_mjmjJ_AgBhBh ]^A_B_B`L^ JEI L r Bkgelge8Å c  uLRNO rAKНTJVP Q8 DDFR S8 DiFEC CD)XDmXDYCBULěJAktbgIȌp q8  r s8 JJ` !UvUUU ^"( M F566 y}z{6{L% #z{{"} GLuL^ lHH)Nl ^lEN)`L0s h  o d ɃɄ d`" lJJJJsg u ǩ LjLu RLN @uWgkjg tgg )llhgsigt hgigtggCighgȌWgXgUgVg ? Og"ighgH lhWUiUgiUVgL 5s zWH hW 5UWW nW` hL , u s Ր mqlr l)# u 0 ? OgLLv ``L ,Nku X ul)F UgH`UgVg 1gg Ngg 4NhHUg hUgl  Lv` H o h8L ± kLvUg 4 vkUgk L4 |u %{ʊ0  ekUg`L ({HIJh*Ug) H 4hVgL ({ъ) Ug)LLW= ɀ6"2豼U : , OgL ǩUgHVgH u ɩUgWgVgXghVghUgL4,fg ǩfWggXgYgL4 ǩL4 ({ n^8fl)I)I `op Ll L ({ nl)v rHqhLCLvkUg 4Ug jg wqr` hple Computer 1980, 1981  B n ꧠWgVg 4Lc gg` B Sb n Lc cLˍVgUWgYgXg=89U>:>:iU`9mU:mU: J &IHJh=>>UXgUYg9VgWg`L^ O aFL6_, ?U`Lv 6A ff# gf\ʐ 6 2nL 6 6 ff˻fдf`ffff \UgH chLLv`șfЂfffffffޭfffffffffнɯfз˩fб`  Apple Business BASIC v1.1 - (C) Apȥ xGƁ8 LQii0$iti8ti 8偅w恤wvwuJ-$n0+G0)GGwL 00`U 0r)`rqqLf $uyG-++ $n-G` kiekiiIif`ri8r` 0#U 0Ui)U`hGթ $u$n 0GЫ-Gv)' $G uJ-$n0+G $G0)GG(sȢ8傅䂐$u a0 xGL`$uAG)EGȩ+$i-Gȥf8 i y LH 0Gh 0GG5H6H6yLne ҥ GAX"+-&$.ECR/#Z*! DBA0 k$JJJJ) ݙUթU`yiɀjjn*8miɝ d L q$uLۤ$)JJ8偅8傪 ȥ f$i0Ł!y0GLĤLQ~䁰< a0$H ,Gl$uhuuj 3 ?XkkNuuj 3k 4%v. ݠ J #  f`u Bvphh` Lޝjk ,hh`Sj9-k L9j ekekk|z)ekk |j[   Lޝ`j 9kkj"j"kРwwghhoؠKkqvj 8LV`$uZuukvN kGv@  vvyLSj 3L8 ,V-uukv kv@vvyLLޝj 3 8 A80멀uukeqqtt$uA)*Ң֢t ?L B$uЫkЦuuj 3ysLġ,VkLyh  (`|||}z,A[ :808Ш`,1@`y Gy`LޝHq1$u tAvʘtDթ 3q(~th`pvquts~y ffp$pp8j/;XAx=|8ez{{ Іghh "o `Lޝ x  -:/ UUhhh{hzh}h| w Zp 0|8pJ LXLLӟG $p0`pog nkڥrok8o,koLjAaCcoJ nko5 nkk nLʟ S L? nL֟ HG56H6H k l ٥z{{ Bl}hhh ;в| |膆  ,;' Lޝ w Z pLNL2n`|H}HzH{HHH ɶ# {hH u  5s su,; Lu  5s$ zrL qiLpnH hɀ8(*iU. LLLv ]gYg mZg8 n ]gvkUgl)@7gg0u(> ѨƬƫHH ^hohp` ]g0U`ȹU`VgVg 4LhsgN ǩ ? Og#X ggjgF=sg7N^g LsXggYgZg ? Og T L̬WgUg`Lvo`n}pm aa`dyopd8isŠt`dyoopd8ip`J uv`&&&8孪孪宐橈`! @ ; wwA?B@B @=g>h>h b=i>j>k V bfhijklmnopqrstuvwxyz{|}~GA7  3  5  >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< SOS DRVR"CUSTOM.3 )((8*,;((*,((+)((9/(p((>3  =9 :9 .(~|L|LNqooGoDDDcc0ccpc]]c"QM"|@@pAATT**|HH `DONN DENMAN STRIKES! H o h8L  kLvUQ 2 vkUQk L2 |_ %eʊ0  ekUQ`L{ (eHIJh*UQ) H 2hVQL} (eъ) UQ)LLW= ɀ6"2豼? : ^g ag_gbg`gcgLLLu_g`g  u s Րml0L`g_g`Vubhb]lk{aap8y^věyynyBOgՐihm?lK;mm0j̷5:?4ӍCHH CD\hh Hh`L)i   IC DATA WPTEXTSYSTEMRESERVRESERVCAT kUgo 1$'XgdYgVgUWg ? OgL8`L:LUUU) UJnU UJJJJ /UU`H hmUUUUUU`0U`UU :UUL ǩ u ɋ 0#agUpUoUn ˌUUUU ȹUUUʈ00U%U$U [UU. ['U&U( UU7 `st?9}Ust5 ewx! es8wtx euuLUUNKNWNBAD PASCODPASTXTTEXT PASDTABINARYFONT FOTO BASru HH` TakTu+ 1U)UU(U)U UU [VU#U ȹU Uuu`@nU TYPE BLKS NAME MODIFIED TIME CREATED TIME EOF U)!U)*UU)UUU mUmUUiVg` Ȳ ? OgXMLv$0% qr Ȳ 4qrqL `LeUsg La jg 3 Ugk 2nkUg ݳU nL@L 2nLRluvjghgsigtogwpgx`F UUqLOg qrL^op `VgWgsXgtYgkUg` ? OgLvVPgTQggRgfTg`EAd3] L^3]L^fWggXg Yg`agbgcg^WggXgYgdgegL4opqrst SVgggL0sUgfɯfH chLv ov1 kffff LLvLefU L_H ݳhUUE UU`BLOCKS FREE: BLOCKS USED: TOTAL BLOCKS: ±`LvupHoHp  (hiXghiYg ? u`I !li)id`   r $ <,8 r  5si$ z656$0 p n %jjF$0ݢ0 liʽ`L , l)% `ٜL ` |u %{ Lʊ0 o `Ug c gg c Lm 2LˮL ꎅWXX` $` ,`HȘe`{ai|a|h - ;mLڮF 7 ; ` u op  4 t d sd LiLdʆ `! `Ȣ` :  `$ nL^u=g8i>hj>h ki=5j>6k6> hb 5b b$% kLi B  uLl$%`8f 7 ; ` u ` LuLeopL 0xH $0_ ih8fH`aai uhH2 {h JJJJf m ` :t os>> ""*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>>xrL ==L: ,lCL <=L: <,n)LL8 L8 u:L8 ;)ߍ;j`; ;j`uBL8 uCL8 u)u;) u;L8    x) `(,  LuL-upp<`uqq=L: vuL L L #1:CY` 9C<m><=m@=>@?AL8 >m<>@m=@<=L8 <m>?=m@AL8 C9L8 ; ;k`;);k`,@`<,m p<L<`<p<`,ms<L=q=L: ,lXґȥӑ,10 h0  `,g0L  ҅ӥĥŰ+,0p 4 Ls  Ls i )"|tȌs|st HH` MjH,: <J h̰ <rh,oL`%CYgu9 Ln90$0%,7 ҥ L$0T,8OK50P;ҥ,8 L%\   8҅¥Ӆé҅L,5,6  & @jIH,5 p  He҅Ґhe…å逅h,23Lhʩd8,h)ec efeede`,5 H  h 4  `5!    4(P 4 4  `,g0L,10kH0 ԥ f0)ĭ9)9҅xh(ĥŐL i,1HȊ©L,52,9-P" a{) b) )ab)a a,h0& &+%a0 +hcefd(c,@cfabdf`cnx  (,4h`dd,9P"<:J H) +̰ H) +ʭcP h̰BTVSPLH   5"ʘ HH` (# (=  0`)aI88  >!SHOLES 1!1!2@23#3#4$4$5%5%6^67&7&8*8*9(9(0)0)-_-=+=+\|QWERTYUI OP[{]}`~`~ASDFGHJ K L ;:;:'"'"ZXCVBNM ,<,<.>.>/?/?d0hp00000>0# #0~$ <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>> <Le Le ,g0L HH`! ( 9EKQWbmz`(" ((è%È`2ȭ3`1`d`c`+È`&È` & IMk`4`5`6`7`8`9`<ȭ=` & @jI`:ȭpȭqé,i0L È`,g HH`LL! l      5  Hdcefh&+si  M0   h) `(" (  (È& 8  `)2ȱÍ3`)1`Ɂ" (cefd`Hc HH`! (`ɖ" (èÈ``,t0L4 HH`L  d!  `ɖ" ( dÈ  ``,t0L4 d0Cս30. , V  @„ȄL5/((((PPPP @``` @@@@`xp<@ @ :H9H` (# ( -l..PcJt`,t$ ( t`tL4`,t0L4www """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwwwwww(C) 1980 Apple Computer (+@EIR[ty} NQ9Copyright (C) 1983 Apple Computer, Inc. Graphics Driver..GRAFIX b """"""""33333333DDDDDDDDUUUUUUUUffffffffwwwww     ! ( 0 7 I N S _  . G R Y f {    ! $ 4 9 F I P S V \ a h m p s x |     ' + < ? D G N U f k p x ?BEJMRUX]`h  2;AGMS[fot|              . 3 6 9 < ? B E H N S V \ _ b w  KORY\aelpu !$(+.147<?BFILORUX]`finsw| !%*/369<+;CNU\eh "*-036<BLORX_fj &+38;?DGLTot <?BGLQgjox',/25:BG̑ʈ0 Ցʭr̈A萠L: ֦ڱΑ0Б֤ h L  p,:0 JfiΥiώJe΅Хiю@ B $p̑бʑΈ0 Б̱ΑʈeمΐeمАA萿 :  `ʝ"`t  !#%')L: 8p,:Jf׮@$PA B $P@/A'ʤ˅΄ϥ̤ͅЄ B $̑бʑΈ0Ƞ h L: $)טɀIim>ٮ@8pذ `$0"8,:Jک@ׅפ؈۩MjL,:08*Ȅ B ,:J}΅н(I I $0;P̑бʑΈ,:JՐrx 0, )ߍ:) J)*PR,T,V( : `,k<,: JI`I`<,:J̰`=m@>,:J}ʅ̽(I I `<Mj,:0pJՐ̑ʈ`pJհ0`ՑʭrpȐ`=m@< B h A$g " x) (,`% (gL,}0, `gé ĩ `:) j:;jN;~j;O,:0'???>>8?>p<<AAA@@8A@q==C)CB)B C}0 x) `(`hh% ( ΍ ύ逅Ñ}`` " ( ĩ~Íĩϭ & &υΠÑΈ~ F ~ҰةeÅÐн},,P,`,g$ ( efh) `xÙ+(`xÙ&(`)4`)5`)6`)7`)8`)9`,i0!M:0p ȱq L `" (~)y ~JJ* I `x|x|,,}P-X~ F }~L } `,`ʝ`))ժuvЭ H ʊJyjhz|ֆ׆ح)JfJf$PIJfש ʈ8 @ש wx LVخ ʊJJJ莟mwwxix 0ޤՐڢ,P<0 )ߍL- J,P,QJ,R,SJ,T,U,W`,t0L40 ( dȅɥŐ ĐL /47=G\x{~'+.149?CGIKMOQSUWY[]_acegikmoqsuwy{}J) ܭL FܪJJJJ)`'+9;=?ACEGINR\aejns~  #&).369<ADGJMP^g $*-06=HLORWcfloruzp Q%Q̑`pPIE1pΦ#$01ʐ1`JJJJ)`%υߥ`1(ȦJJJ`&&*`JJ` **&*&ߥ`J` ***`` ` Jjjߊ` ߊ`JfJfFߪ߆` `JfJfJfF`ߩ`$011̰JJJ LP \LD$7߭$PH8 nߩ nh ߍϭ - k, ϥ- kϱϮEϑʩ`P z  HH` k(h`$0#$E$0p Q%Qʑ`pPIE1p$E$0(L%τ`ϩE҅0Ȅ(fL% ('Άѽн`8Hٰ hIiHمh8Iif٤Φݰ>Jj8ۅe݅eޅ $  m`!J8݅ eۅ$  m` , V $צ!ϤҐ мφi`Jf`<,&ʰ,i8i#Hiihifʦʆi) v`i,ʐi,iPIIʥ)ifʦʆ̐pLj/Fϐ&Ȅ`'@τ`Fϐ@ E҅F8ئȢΆѽϽ`/epɀjff&ݥeepɀjffݠ %)  %)`%  0.)      0  ` ` @ ``8٨JJJ ) u˘ vͽʅ̆`8Hi #i,$0F y բӅLx  mӥmԐL] h `  )`%)8`)    H   ʥ)Ģ    H Ģ L E% %) L 8`ۅ&ۥe륅eٍeڍ808٥8٥ 8مڅ H , V Εm٭mڭ))njnjnjfjfjfj+mӥmԐ8L( Ӣ й` m j`Hآ Hӭԭ h h`8٭028ٍڍ0Z$eٍeڍm٥m8٥08ٍڍ`8٥058ٍڍ0ԭ V 8fxL@ ] I)!) g 80 J8}L y L 0yʽz0 y L7  Lh `*f*&*)` ϭPh0 йPL)`)L` L``  `L` H , 8 V ТΕLϦI ] +)J* g I`LL) @L) L8``Lթ`~L8L)  =H 'HH N M))Mhh0 }LO}~~Șݻ~`}}~L< L }ީ~` ɠɀ)ӮԮmwӥmxԐ mi` HHGH`  &%(-47=FMUX\_jmz  .169DWfy   % * > A H K Z v z }      % , 1 5 : = B K R Z _ b g n s x ~    ) . 6 = J P S X [    $ 3 : = F d  > B H M s `e|&+.QVYcjuy~':{_\\b)ba)a b 04 )ߍY) J,P,QJ,R,S,T,V " `,[,Y JI`I`[,Y J)`)`\m_],YJ}ʅ̽(I I `[M,Y0JՐ̑ʈ`Jհȍ,P,`,$ ( $  x) (,`% (L5, `é ĩ `Y) jYZNZ~ZO,Y0'^^^]]8^][[```__8`ΝL  `,0 x) `(`hh% ( ΍ ύ逅Ñ`` " ( ĩÍĩϭ & &υΠÑΈΝ + ҰةeÅÐн,QȱÍR`)P`Ɂ" (`Hh) `ÙJ`ÙE`)S`)T`)U`)V`)W`)X`MY0ȱ͏ ȱ͐L" ()^ JJ* I `x|x|,,P-X + `T`U`V`W`X`[ȭ\` `YȭȭéL, HH`L5L  d     HEJ lO  zh) `(" ( (ÈE  z`)EAD PASCAL TEXT FILES."04=10:"78C";"ANY KEY RETURNS TO THE MENU."!>G$:::".D1/MENU.MAKER",320R",220(204::"79A";""; 2D=1:F=1 <#4;a$ FD=D+1 P#5;a$ZD=60#5;12)dD=60D=1nF=F+1::d$;::Y=1100:Y x13402  CATCH PASCAL TEXT FILES 202 :F*=08:"78C";"SORRY BUT MENU.MAKER CAN'T R".D1/MENU.MAKER",220 d$="" A$="PRINTING "+B$(I),16,B)=01:=0::"80C";A$;:#3,B$(I),16,B)Z=1#3;b$:"78A";b$Z=Z+1:Z=18:1290 1260 #4,B$(I),16,B)#5,".PRINTER"+ž#4#5;12):::".D1/MENU.MAKE30C$="N"C$="n"1160;:=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING": $1020.202 8::Z=1B::=23:=0::"79C";"WOULD YOU LIKE A PRINTED COPY?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"1170*C$="N"C$="n"79C";"PRESS ANY KEY TO HALT LISTING"::202 1020#2,B$(I),16,B)ž#242:::1160Z=1#2;A$:"78A";A$Z=Z+1:Z>1842:::Z=1980*:=23:=0::"79C";"CONTINUE...?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"10 MENU.MAKER TEXT MODULESEG=0"MENU.MAKER"890&*X=11000: TEXT SLOW-DOWN LOOP ,X.1,180,22:2,280,21:2,2380,23:z:A$="LISTING "+B$(I),16,B)$=01:=0::"80C";A$;::12)>=23:=0::"0`Ցʭ̏Ȑ`\m_[ * P `L" 8,YJf׮_$P` * $P_/`'ʤ˅΄ϥ̤ͅЄ * $̑бʑΈ0Ƞ P L" $)טɀIim]ٮ_8ذ `$0"8,YJک@ׅפ؈۩MLp,Y08*Ȅ * ,YJ}΅н(I I $0;P̑бʑΈ,YJՐ̑ʈ0 Ցʭ̈`萠L" ֦ڱΑ0Б֤ P L׭,Y0 JfiΥiώJe΅Хiю_ * $p̑бʑΈ0 Б̱ΑʈeمΐeمА`萿 " `ʝA`^adgjorw|KP%*-LQ\r{~  #(-2=AJLNPXdmsy !+?MS[aeu "%*2NVYP TcL,UUTdLXXL"lp,W0k,bPZ,[0\[cLZnoln _L `L aXl ) ` ) `x,V0 ")(`JN{Y H`j) )g kkL)` kkLi ),b-cWLidWuoeQ,T0L@TEPd>gZ[M,h,oe$YHV ))ho kk0 qroqYLG,h,VLGj)`L5,jL",T`ȩ`,Q0L HH`LE9Uc,T U H,U0x])] olXYmnpqVWkj^)  ]] ^ ) (`\" ( Ù\ `ÍRȱÍS`l031e-Y x V(x) V()LU Hh,RSLCpȥȑ`,Q0LmEąĩEŅ Hm`l HL 8fol,Q0L KHJH`! (QRo}`\" (\ÈȌk`RȭS` l  o Q`,Q$ ()PJK . "]RSiTUWZ[ Q`% (QLl  )JK `,Q0LpEąĩEŅ|o,i0prH 8fofo7,T0*,V- HH` (# (#+/ 6 = N S X ` t (-1:C\aeqw~36qw\r.RS232 c "߄P(C) Apple Computer Inc. 1981L7 : = @ F K N T W Z o w |     $ . 3 8 D o w z   , 7 > K ` e h      & ) 0 3 6 < A H M P S X \ _ b e j o t w z   $ ' ,   !$'*-27;@EILORUX[`chknsv~ "$&(*,.024HQW]ciq|           & + . 1 4 %=BEHKPX]aehorw{!$',/47:>ADGJMRUX\_behknsv|f(,:<>@BDFHJZbmt{!$,169>AILORU[aknqw~ $27?DGKPSX`{ (+2;X[^chmI *******************************************************************I ** **I ** GRID/GRADE **I( ** Iv:"RESULTS":"CLASSLIST":"CLASSLIST",:#1,"CLASSLIST":"RESULTS",VX=1::R$="Y":TOT=0:PAPER=0:SECEND(1)=0:SECEND(2)=0:SUSP=0:EC=0:GC=0:FC=0:PC=0:UC=0F"I'M READY FOR THE FIRST SECTION NOW. WHEN YOU REACH THE END OF"C"YOUR FIRST SECTION RO)PAPER=1MENU$="G"4&MENU$="G"MENU$="P"GRID$(0)=CARD$(X),55)::Y=1PAPER!DGRID$(Y)=CARD$(X),51+4*Y,4)NXJb ********************************************************************-l THIS SECTION STARTS NEW CLASS LIST FILE CARD$ STRINGCOURSE$=CARD$(X),3)SECT$=CARD$(X),4,2)STUD$(X)=CARD$(X),6,25)CURR=CARD$(X),31,4))CUM(X)=CARD$(X),35,4))MAT=CARD$(X),39,4))ORG=CARD$(X),43,4))XP=CARD$(X),47,4))MEC=CARD$(X),51,4)*********************1 THIS SECTION PADS FIELDS OF CARD$ AS NEEDEDZ$)=4/Z$,1)="-"Y$=Z$,2):Z$="-"+"0"+Y$:400Z$="0"+Z$:400J ********************************************************************- THIS SUBROUTINE PARSES THE*********************6J THIS SECTION READS EVERYTHING FROM THE CLASSLISTT#1,"CLASSLIST"G^#1;TOT,PAPER,SUSP,SECEND(1),SECEND(2),EC,GC,FC,PC,UC:SECEND(3)=TOThX=1TOT:#1;CARD$(X):r:J| ***********************************************IN$="STOP"3760:ۻIN$="L"300:ۻIN$=""07):250:ۻIN$)>107):250Y""EGFPU",IN$,POSS)=007):=16:=25:"ERROR. ENTER ONLY ";"EGFPUL",POSS):250,=16:=25:ERASE$:G$=G$+IN$6K@ ******************************************************************************, THIS SUBROUTINE ENTERS CATEGORY GRADES=25:=12:ERASE$:POSS=1xY=1WORD$="MATERIAL: ":ۻY=2WORD$="ORGANIZATION: ":ۻY=3WORD$="EXPRESSION: ":ۻY=4WORD$="MECHANICS: ":POSS=3=25:=12:WORD$;:"";IN$RB+1:Y=X#B<>0220:"I CAN'T FIND ";D$f"DO YOU WANT ME TO SEARCH AGAIN? (Y/N): ";R$:R$=""210:ۻR$)=78:4520:ۻR$)=89120:2109B>1"TYPE IN LISTED STUDENT NUMBER ABOVE: ";X:X=YK ***************************************Bw THIS SECTION CHECKS VALIDITY IN DROP AND LATE PAPER ROUTINES/x:"TYPE ONLY THE STUDENT'S LAST NAME: ";D$D$=""1205B=0: A COUNTER FOR VALIDITY AND MULTIPLE CHOICES R=D$) X=1TOT9D$=CARD$(X),6,R)X;" ";CARD$(X),30):B=PTR%(NODE%,MORE%)=X:1126j THIS SUBROUTINE SEARCHES THE RIGHT (LESSER) SIDE#kPTR%(X,PREV%)=PTR%(NODE%,PREV%)7lPTR%(NODE%,LESS%)<>0NODE%=PTR%(NODE%,LESS%):110mPTR%(NODE%,LESS%)=X:112nCUM(X)>CUM(NODE%)103oCUM(X)<=CUM(NODE%)107pIP *******************************************************************Z d4270"e THIS IS THE TREESORT ROUTINE6f THIS SUBROUTINE SEARCHES THE LEFT (GREATER) SIDEgPTR%(X,PREV%)=NODE%7hPTR%(NODE%,MORE%)<>0NODE%=PTR%(NODE%,MORE%):110iBY **I2 ** ROBERT BOSTON **I< ** (APPLE/// VERSION) **IF ** 10/10/84 **STER, TYPE 'SECTION' INSTEAD OF A NAME."+"COURSE NUMBER (104 OR 105): ";COURSE$0COURSE$<>"104"COURSE$<>"105"07):680)"SECTION NUMBER (J7,S2,ETC): ";SECT$JSECT$=""700:ۻSECT$)=1SECT$=SECT$+"0":ۻSECT$)>207):700i=24:=1::"TYPE 'SECTION' AT END OF EACH SECTION. TYPE 'ALL' WHEN ALL SECTIONS ARE ENTERED";11): =1:=7J ********************************************************************: THIS ROUTINE ENTERS STUDENT NAMES FOR EACH SECTION.4"NO COMMES ARE INCORRECT, YOU MAY CHANGE THEM NOW."@IJ *******************************************************************2T THIS SECTION SUBRACTS INCORRECT PAPER GRADES ^Y=14$hG$,Y,1)="E"PAD=TOPP:EC=EC-1+rG$,Y,1)="G"PAD=TOPP/2.5):GC*? THIS SECTION LISTS GRID GRADES FOR VERIFICATION OR CHANGE%"STUDENT NAME: ";STUD$(X)!"CURRENT PAPER GRADE: ";CURR#"CUMULATIVE GRADE: ";CUM(X)Y=1PAPER)"" PAPER ";Y;": ";GRID$(Y),@6:"IF THESE GRAD1):#1;SECEND(2):#1;EC:#1;GC:#1;FC:#1;PC:#1;UC Y=1TOT#1;CARD$(Y) #1;"ALL":"ALL SECTIONS FILED."5:"HIT RETURN TO RETURN TO MAIN MENU: ";R$:4520I ******************************************************************IT RETURN: ";R$P670IZ *******************************************************************&d THIS SECTION FILES THE CLASSLIST!nCOUNT=1SECEND(2)=SECEND(1)x#1,"CLASSLIST":"FILING CLASSLIST"]#1;TOT:#1;PAPER:#1;SUSP:#1;SECEND(5STUD$(Y)=STUD$(Y),25) Y=SECBEGTOTACARD$(Y)=COURSE$+SECT$+STUD$(Y)+PAD$+PAD$+PAD$+PAD$+PAD$+PAD$(2SECEND(COUNT)=TOT:A13906<SECBEG=TOT+1:COUNT=COUNT+1:TOT=SECBEG:X=SECBEG::DF"WHEN YOU'RE READY TO RECORD THE NEXT SECTION, H0:STUD$(Y),STUD$(Y+1)X=X-1:1180I *******************************************************************, THIS SECTION WRITES TO THE CARD$ ARRAYPAD$="0000"Y=SECBEGTOTZSTUD$(Y))<25STUD$(Y)=STUD$(Y)+" ":1280:ۻSTUD$(Y))>2****************************0 THIS SECTION WILL ALPHABETIZE IF NECESSARYeTOT=TOT-1:X=TOT:B=0::"ALPHABETIZING ENGLISH ";COURSE$;" SECTION ";SECT$: B IS A BOOLEAN SWITCHB=1XSTUD$(Y+1)B=X)=STUD$(X-1)LY>9B=17:B=18V:B);Y;" ";STUD$(Y)&`"TYPE CORRECT NAME: ";STUD$(Y)2j:"DO YOU NEED TO CORRECT ANOTHER ENTRY? ";R$=tR$=""1130:ۻR$)=89:1040:ۻR$)=78:920:1130I~ ***************************************HE INCORRECT LISTING."R"IF YOU'VE OMITTED A NAME, TYPE IN THE NUMBER LISTED FOR 'SECTION' OR 'ALL.'"2$"IF YOU DON'T KNOW THE NUMBER, TYPE '0': ",R$4.R$=""1040:ۻR$)<48R$)>571040:Y=R$)8Y=0:920/BY=TOTTOT=TOT+1:X=X+1:STUD$(=1:"IS THE LIST CORRECT? (Y/N): ";R$3R$=""1000:ۻR$)=891160:ۻR$)<>781000I *******************************************************************- THIS SECTION REPLACES INCORRECT ENTRIESH:1,2080,24::"PLEASE TYPE THE NUMBER OF TFICATION;:10);"SECTION ";SECT$;" ENTERED. PLEASE VERIFY.":110);"ENGLISH ";COURSE$;" SECTION ";SECT$:B=.5*(TOT-SECBEG)+.5)*Y=SECBEGSECBEG+B:Y;" ";STUD$(Y):40,580,24:)Y=SECBEG+B+1TOT:Y;" ";STUD$(Y):1:=20: ";R$:R$="Y";pR$=""870:ۻR$)=78STUD$(X)="ALL":ۻR$)<>898700zSTUD$(X)="ALL"A=1: A IS A BOOLEAN SWITCHJ ********************************************************************@ THIS SECTION LISTS THE CURRENT CLASS LIST FOR VERICTION"STUD$(X)="ALL"860:ۻSTUD$(X)=""800 4X=X+1:TOT=X:=14:=1:ERASE$7>=14:=1:"LAST STUDENT ENTERED WAS: ";STUD$(X-1)H=15:=1:ERASE$R800\COUNT=3STUD$(X)="ALL"VfSTUD$(X)="SECTION""DO YOU HAVE ANOTHER SECTION TO ENTER? AS BETWEEN LAST NAME AND FIRST NAME;":("USE THESE EXAMPLES FOR SPACING:":1 "STUDENT NAME? (LAST FIRST): SNERD MORTIMER":"STUDENT NAME? (LAST FIRST): DOE J 902-68-7065"5 =15:=1:"STUDENT NAME? (LAST FIRST): ";STUD$(X)?*STUD$(X)="SE=GC-1'|G$,Y,1)="F"PAD=0:Y<4FC=FC-1G$,Y,1)="L"PAD=03G$,Y,1)="P"PAD=0-TOPP/2.5):Y<4PC=PC-1,G$,Y,1)="U"PAD=0-TOPP:Y<4UC=UC-1Y=1MAT=MAT-PADY=2ORG=ORG-PADY=3XP=XP-PADY=4MEC=MEC-PADB=PAPERCURR=CURR-PADCUM(X)=CUM(X)-PADI *******************************************************************) THIS SECTION BUILDS THE CARD$ ENTRY#CARD$(X)=COURSE$+SECT$+STUD$(X)(Z$=CURR):400:CARD$(X)=CARD$(X)+Z$*Z$=CUM(X)):414A,4#,4X,##.#," %"# #22580;"EXCELLENTS:",EC,EC/R( #22580;"GOODS:",GC,GC/R2 #22580;"FAIRS:",FC,FC/R< #22580;"POORS:",PC,PC/R&F #22580;"UNACCEPTABLES:",UC,UC/RP #2;12):#2:4520IZ *********************************************PUTES GRADING PRACTICES #2;12)* "COMPUTING GRADING PRACTICES SUMMARY"> #2;" SUMMARY OF YOUR GRADING PRACTICES":#2;" "P #2"29R,2#,20A";"THROUGH ASSIGNMENT ",PAPER," YOU HAVE ASSIGNED:":#2;" " R=(EC+GC+FC+PC+UC)/100 10X,,STUD$(NODE%),DLET$(NODE%),CUM(NODE%):X=X+1B PTR%(NODE%,LESS%)=0NODE%=PTR%(NODE%,PREV%):NODE%<>-12470 NODE%=-12530! NODE%=PTR%(NODE%,LESS%):2465I *******************************************************************- THIS SECTION COMUTOFF" #2;" ":B=2 6X,##,". ",27A,6A,-### X=1:NODE%=08 PTR%(NODE%,MORE%)<>0NODE%=PTR%(NODE%,MORE%):2465# X=1B=2#2"51X,-###";TOPDJ CUM(NODE%)0#22450;X*********************************0$ THIS SECTION LISTS STUDENTS IN GRADE ORDER%. "SORTING LIST INTO GRADE ORDER." j #2;12)?t #2;" ALL STUDENTS LISTED IN GRADE ORDER":#2;" "D~ #2;" STUDENT GRADE TOT CX,8A,24A,16A,6A,3X,-3#,4X,-3#,4X,-3#,4X,-3#,4X,-3#L #22300;COURSE$,SECT$,STUD$(X),PLET$(X),DLET$(X),MAT,ORG,XP,MEC,CUM(X); NODE%=0:PTR%(X,LESS%)=0:PTR%(X,MORE%)=0:PTR%(X,PREV%)=0 110: TO GRADE SORTER I **********************************NCDDLET$(X)="C+"%CUM(X)TOPD-2*INCDDLET$(X)="A"&CUM(X)CURR0COURSE$="LATE PAPER "+COURSE$:GRID$(0)="0"$ CURR=>TOPP-2*INCPPLET$(X)="A"$CURR682680I ******************************************************************* THIS IS THE DROP ROUTINE+ 120: WE VERIFY THAT STUDENT IS LISTEDD "VERIFY. YOU WANT TO REMOVE ";STUD$(X);" FROM THE CLASS LIST." "IS THAT RIGHT? (Y/N): ";R$3 R$=""2740:ۻR$)=784520:ۻR$)<>8927302 X=TOT2810: TH= R$=""3500:ۻR$)=783480:ۻR$)<>RESP07):3500 Y=14$ G$,Y,1)="E"PAD=TOPP:EC=EC+1+ G$,Y,1)="G"PAD=TOPP/2.5):GC=GC+1' G$,Y,1)="F"PAD=0:Y<4FC=FC+1 G$,Y,1)="L"PAD=02G$,Y,1)="P"PAD=-TOPP/2.5):Y<4 SUBTRACT INCORRECT GRADE& :=12:=1:STUD$(X):G$="":RESP=89 Y=14:250:" =12:=25:"VERIFICATION: ";G$B =14:=25:"IF OKAY, TYPE ";RESP);:". IF NOT, TYPE N: ";R$K =16:=25:ERASE$:=14:=25:ERASE$:=13:=25:ERASE$:=12:=25:ERASE$NGING, OR"-f "TYPE 0 TO RETURN TO THE MAIN MENU: ";R$-p R$)>47R$)<58B=R$):7):3420z B=0A=03730:ۻB=01400Z B<=PAPERTOPP=18+2*B:A=1:07);"SORRY, BUT PAPER ";B;" IS NOT A LATE PAPER.":3410< G$=GRID$(B):G$<>""1630: TO :"YOU WANT TO";WD$;"PAPER GRADES FOR ";STUD$(X) 4 "IS THAT RIGHT? (Y/N): ";R$3> R$=""3380:ۻR$)=784520:ۻR$)<>893380 H 1520@R :"YOU'VE RECORDED PAPER ";PAPER;" FOR ALL OTHER STUDENTS."<\ :"TYPE IN THE NUMBER OF THE PAPER YOU'RE CHA***************************6 THIS SECTION FILES GRADES FOR INDIVIDUAL PAPERS.$ A=0:340: WE READ THE CLASSLIST4 120: WE CHECK TO VERIFY THAT STUDENT IS LISTED& 450: WE PARSE THE STUDENT'S CARD. MENU$="L"WD$=" CHANGE ":WD$=" VERIFY "5* 2900I *******************************************************************' THIS ROUTINE ADDS A WHOLE SECTION* SECEND(2)=SECEND(1)COUNT=2:COUNT=3( X=TOT+1:SECT$=S$:COURSE$=C$:SECBEG=X :720I ****************************************(X)B=XN X D$>STUD$(TOP)B=TOP+1b B>TOT3210l X=TOTB-1+v CARD$(X+1)=CARD$(X):STUD$(X+1)=STUD$(X) ! STUD$(B)=D$:CARD$(B)=C$+S$+D$* X=1PAPER+6:CARD$(B)=CARD$(B)+PAD$: TOT=TOT+1, D$;" ADDED TO CLASS LIST IN ";C$;" ";S$ R$)=784520:ۻR$)=89:2940:ۺ3080I *******************************************************************7& B=0:PAD$="0000": THIS SECTION INSERTS THE NEW NAME60 D$)<25D$=D$+" ":3120:ۻD$)>25D$=D$,25): X=BOTTOPD B=0D$783060< "DO YOU WANT TO REENTER COURSE AND SECTION? (Y/N): ";R$< R$=""3080:ۻ$SECT$=S$BOT=1:TOP=SECEND(1):SECEND(1)=SECEND(1)+1:SECEND(2)=SECEND(2)+1:3110x X=SECEND(2):450:COURSE$;" ";SECT$:COURSE$=C$SECT$=S$BOT=SECEND(1)+1:TOP=SECEND(2):SECEND(2)=SECEND(2)+1:3110U X=TOT:450:COURSE$;" "SECT$:COURSE$=C$SECT$=S$TUDENT NAME? (LAST FIRST): SNERD MORTIMER"> "STUDENT NAME? (LAST FIRST): DOE J 902-68-7065":' "STUDENT NAME? (LAST FIRST): ";D$= "YOUR FILE INCLUDES": FIRST WE CHECK COURSE AND SECTION BOT=0| X=1:450:COURSE$;" ";SECT$:COURSE$=C)=892680:ۻR$)<>782900:1400Ih *******************************************************************r THIS IS THE ADD ROUTINE$| "COURSE NUMBER OF THE ADD: ";C$% "SECTION NUMBER OF THE ADD: ";S$( "USE THESE EXAMPLES FOR SPACING:":2 "S$ THIS SECTION VERIFIES THE DROP> "YOUR FILE NOW CONTAINS THE FOLLOWING STUDENTS NAMED ";D$" B=0 , X=1TOT&6 D$=STUD$(X),R)X,STUD$(X):B=1@ J B=038);"NONE"2T "DO YOU HAVE ANOTHER ADD OR DROP? (Y/N): ";R$9^ R$=""2900:ۻR$IS SECTION REWRITES THE FILES Y=XTOT-1+ CARD$(Y)=CARD$(Y+1):STUD$(Y)=STUD$(Y+1) ( X<=SECEND(1)SECEND(1)=SECEND(1)-12 TOT=TOT-1:X<=SECEND(2)SECEND(2)=SECEND(2)-1I *******************************************************************PC=PC+1+G$,Y,1)="U"PAD=-TOPP:Y<4UC=UC+1Y=1MAT=MAT+PAD$Y=2ORG=ORG+PAD.Y=3XP=XP+PAD8Y=4MEC=MEC+PADBB=PAPERCURR=CURR+PADLCUM(X)=CUM(X)+PADVY`GRID$(B)=G$$j1800: WE BUILD THE CARD$ ENTRY/t"PAPER ";B;" GRADE RECORDED FOR ";STUD$(X)G~"DO YOU WANT TO RECORD ANOTHER PAPER FOR THIS STUDENT? (Y/N): ";R$8R$=""3710:ۻR$)=89::3410:ۻR$)<>783710F"DO YOU WANT TO";WD$;"ANOTHER STUDENT'S RECORDS? (Y/N)";:": ";R$OR$=""3730:ۻR$)=89ents receive both general"H7"and specific information about their writing skills and problems."T:"It will provide you with listings of student grades in alphabetical order and"LD"in order of descending grades. It will alphabetize your class listsation, Expression,"I3"and Mechanics. Evaluations may be Excellent, Good, Fair, Poor, or"4"Unacceptable.":T5"The program translates these EGFPU evaluations into numerical scores and into"T6"ABCDF letter grades, using a +/- system. Thus, studore records and compute grades for up to three sections of"20"Composition courses. (Up to 99 students).":T1"The program uses the Iowa State University Grid system of grading, in which a"R2"paper is evaluated in the categories of Material, Organiz " œ4320"CLASSLIST",:#1,"CLASSLIST" ž#14350G#1;TOT,PAPER,SUSP,SECEND(1),SECEND(2):SECEND(3)=TOT:SUSP<>03810 #1::"79C";"GRID/GRADE""79C";"by""79C";"Robert Boston"U&"This program will st***********? THIS SECTION ESTABLISHES ARRAYS AND INITIALIZES VARIABLESYPLET$(100),DLET$(100),STUD$(100),CARD$(100),GRID$(10),CUM(100),SECEND(3),PTR%(100,2)iA=0:COUNT=1:PAPER=0:SECBEG=1:TOT=0:SUSP=0:ERASE$=" :=12:=25:07);"GRADES ENTERED FOR ";SECT$(COUNT);", PAPER ";PAPER;".":=14:=25:"HIT RETURN TO GO ON TO NEXT SECTION: ";R$::SECBEG=SECEND(COUNT)+1:COUNT=COUNT+1:3970 SUSP=0 1400J *********************************************************C+1+"G$,Y,1)="U"PAD=-TOPP:Y<4UC=UC+1,Y=1MAT=MAT+PAD6Y=2ORG=ORG+PAD@Y=3XP=XP+PADJY=4MEC=MEC+PAD!TCURR=CURR+PAD:GRID$(PAPER)=G$3^CUM(X)=CUM(X)+PAD:RESP=RESP+1:RESP>90RESP=80hY r1800|XņSECEND(COUNT)RESP07):4030 Y=14$G$,Y,1)="E"PAD=TOPP:EC=EC+1+G$,Y,1)="G"PAD=TOPP/2.5):GC=GC+1'G$,Y,1)="F"PAD=0:Y<4FC=FC+1G$,Y,1)="L"PAD=02G$,Y,1)="P"PAD=-TOPP/2.5):Y<4PC=PER=12:=1:ERASE$#=12:=1:STUD$(X):G$="":CURR=0Y=14:250:"=12:=25:"VERIFICATION: ";G$B=14:=25:"IF OKAY, TYPE ";RESP);:". IF NOT, TYPE N: ";R$K=16:=25:ERASE$:=14:=25:ERASE$:=13:=25:ERASE$:=12:=25:ERASE$=ROP' TO QUIT BEFORE ENTERING ALL GRADES. ENTER 'L' FOR LATE PAPERS. ";11)::1,180,23-n=8:=20:"ENTER GRADES FOR PAPER ";PAPERxTOPP=18+2*PAPERX=SECBEGSECEND(COUNT)450C=10:=20:"ENGLISH ";COURSE$;" SECTION ";SECT$;" PAPER ";PAPDISK OR REBOOT."2:J< ********************************************************************4F THIS SECTION READS PAPER GRADES INTO THE FILES&P340: FIRST WE READ THE CLASSLIST,Z:PAPER=PAPER+1:COUNT=1:SECBEG=1:RESP=80td=24:=1::"TYPE 'STCOUNT=3!SECBEG=SUSP:RESP=80:MENU$="G": "ARE YOU READY TO COMPLETE THAT FILE NOW? (Y/N): ";R$;R$=""3850:ۻR$)=89340::3940:ۻR$)<>783850E"SORRY. YOU CAN'T USE THE FILES UNTIL THEY ARE ALL UP TO DATE.".(:"SESSION OVER. REMOVE NTS." 1400I *******************************************************************9 THIS SECTION REQUIRES YOU TO COMPLETE GRADE ENTRIES8"YOUR FILE FOR ASSIGNMENT ";PAPER;" IS INCOMPLETE."?SUSP01400:ۻR$)=784520:3730I *******************************************************************3 THIS SECTION HANDLES STOPS DURING GRADE ENTRY SUSP=XM"WHEN YOU LOGON NEXT TIME, YOU MUST FILE GRADES FOR REMAINING STUDE."TX"Perhaps most important, it will give you a summary of your grading practices."bSl"REMEMBER THAT THIS PROGRAM IS NOT INTENDED TO BE YOUR PERMANENT RECORD. YOU"Rv"SHOULD KEEP A WRITTEN RECORD OF YOUR EVALUATIONS IN CASE OF AN ERROR IN THE"4"PROGRAM OR IN YOUR OPERATION OF THE COMPUTER.":"TYPE Y TO BEGIN: ";R$5R$=""4500:ۻR$)<>89"HIT ALPHA LOCK":4500::36);"MAIN MENU":/28);"G = ENTER GRADES FOR CURRENT PAPER"(28);"L = ENTER LATE PAPER GRADES"&5 WAP /// SIG HELLO PROGRAM. UPDATED 1/12/91 DGO FOR III.MSC.16 DISK :#1,".D1/hello.text" ž#170 (#1;ERIN$ 2ERIN$<40F#1/P=23:=25:"PRESS ANY KEY TO CONTINUE.":G$U ::::N"79C";"This disk contai00:ۺ900".D1/MENU.MAKER"GPA<1.5GRADE$="D+"GPA<1.25GRADE$="D" GPA<0.75GRADE$="D-"GPA<0.5GRADE$="F"< "AVERAGE OF ";NUM;" GRADES: GPA=";GPA;" GRADE=";GRADE$%J*"Press RETURN to enter next student's grades. Type 'Q' to quit: ";R$4R$<>"Q"5OT+4GRADE$<>""NUM=NUM+1:540 NUM=NUM-1GPA=TOT/NUM&GPA>3.75GRADE$="A":GRADE$="A-"GPA<3.5GRADE$="B+"GPA<3.25GRADE$="B"GPA<2.75GRADE$="B-"GPA<2.5GRADE$="C+"GPA<2.25GRADE$="C"GPA<1.75GRADE$="C-"+1DGRADE$="D+"TOT=TOT+1.33NGRADE$="C-"TOT=TOT+1.67XGRADE$="C"TOT=TOT+2bGRADE$="C+"TOT=TOT+2.33lGRADE$="B-"TOT=TOT+2.67vGRADE$="B"TOT=TOT+3GRADE$="B+"TOT=TOT+3.33GRADE$="A-"TOT=TOT+3.67GRADE$="A"TOT=Ts ALPHA LOCK or CAPS LOCK.":540+#GRADE$<>""GRADE$)<6507);:540-$GRADE$)=69GRADE$)>7007);:540:%GRADE$)=2GRADE$,2)<>"+"GRADE$,2)<>"-"540&GRADE$="F"TOT=TOT0GRADE$="D-"TOT=TOT+0.67:GRADE$="D"TOT=TOTr a grade, or press RETURN to average grades already entered.": TOT=0 NUM=1"GRADE ";NUM;:": ";GRADE$GRADE$=""NUM=1500R!GRADE$)>27);"Enter grades without a space: C+ or A- for example.":540>"GRADE$)>907);"PresA2"a +/- letter grade and a numerical grade on the 4.0 scale."L<:"The program accepts only UPPER CASE letters (and + or -) as grades."F"Type Y to begin: ";resp$GPresp$)>90"Press ALPHA LOCK or CAPS LOCK":70:ۻresp$<>"Y"70H"EnteQ THIS PROGRAM ACCEPTS +/- LETTER GRADES AND AVERAGES THEM INTO A FINAL GRADES"This program accepts +/- letter grades and averages them into a final grade."U(:"The program works with one student's grades at a time. It will provide both"TER":19109MENU$,"F")<>04800>MENU$,"G")<>03920!HMENU$,"E")=007):4600LR"PLEASE VERIFY. DO YOU REALLY WANT TO ERASE YOUR OLD FILES (Y/N)? ";R$7\R$=""4690:ۻR$)=784520:ۻR$)=89620:4690H ************************CTION: ";:"";MENU$pMENU$=""4600:ۻMENU$,"Q")<>0:=12:=26:"SESSION ENDED. STAND BY FOR MENU.MAKER.":".D1/MENU.MAKER" TOT=0640MENU$,"A")<>02660 MENU$,"L")<>03320*MENU$,"V")<>03320*4MENU$,"P")<>0FL$=".PRIN28);"V = VERIFY STUDENT GRADES""28);"P = PRINT GRADE SHEET")28);"F = FILE GRADE SHEET ON DISK"328);"E = ERASE OLD FILES AND START NEW ONES"%28);"A = ADD OR DROP STUDENTS"$28);"Q = QUIT THIS PROGRAM":-28);"TYPE YOUR SELEns 3 programs: GRIDDER, GRADER, and GRADESHEET.":G"1---Gridder translates EGFPU system to normal +/- letter grades.";"2---Grader averages any number of +/- letter grades."N"3---Gradesheet alphabetizes a classlist, producing a blank grade XF this program alphabetizes student names and prints an attendance9 list for a full semester's worth of class meetings.600( this routine adds or deletes names8:"Do you want to add or delete a name? (A/D): ";a$Za$="A"a$="a"x=x******************************************> this section opens or creates the RESULTS file on drive2 FL$=".D2/RESULTS"+PAPER):8"Put formatted disk in drive 2 and hit RETURN: ";R$ œ4850#2,FL$ :1920@=30FL$,:"ERROR "e$;:B#1L V#1;12)1`pass=1pass=pass+1:rec$="GRADE RECORD":950j:"81C";"for"#1"81C";course$#1"81C";term$ #1:#1 y=0x,stud$(y))>30stud$(y)=stud$(y),30)#1;lm$;30);w=117:#1;inter$;:#1#1;lm$;stud$(y);13); $#1;lm$;.w=110:#1;"___";:8w=117:#1;lin-1:stud$(y)57780:y=a$)C>y>xy<1810:ۮ:"Old name: ";stud$(y):"New name: ";stud$(y)H:"Resorting....."MRz=x2-1:y=z2x=x+1:690 x=x-1$ this section verifies the list, :x<21y=1x:y;": ";stud$(y)::800Gy=120:y;": ";stud$(y)::y=21x:=y-20:=40:y;": ";stud$(y):E =22:"Check the list above. To add or delete a name, type 'A'."Q*=23:"I"Year: ";year$:term$=term$+" "+year$ pass=1rec$="ATTENDANCE RECORD"x=1+:"Hit RETURN at end of class list.":"Student name: ";stud$(x) x=1750stud$(x)=""760y=x2-1.stud$(y)57530:y=a$)6:y=xx=x-1:ہz=yx-1:stud$(z)=stud$(z+1)::x=x-1D780)N this section collects student namesXbstud$(30)9l"Course number: ";course$:course$="ENGLISH "+course$v"Term: ";term$)+1::"Add new name(s) below.":680:ۻa$<>"D"a$<>"d"7):510,:x<21y=1x:y;": ";stud$(y)::550Gy=120:y;": ";stud$(y)::y=21x:=y-20:=40:y;": ";stud$(y):Q&=22:"Type the entry number of the name to be deleted, or press RETURN;;" IN LINE ";::".D1/MENU.MAKER" 1920 /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// SIG, Washington Apple Pi 7910 Woodmont Ave. #910 Bethesda, Md. 20814 (301) 654-8(J)=A$(I),1,31)!J/2<>J/2)=4:=+1:ۙ=44B$(J);:J=J+1I:1,180,22:2,280,21:2,2380,23:8A$(1000),B$(1000),C%(511),C$(20),name$(20):=10:=0UCA=128:LCA=UCA+32CT=15 IF PREFIX$= PREFIX$+MID$(B$(I),VOLUME NAME (/DISKNAME) OR DEVICE NAME (.Dx)"P12);::"80C";a$;:Zb$="CHANGING DISKS"$d=23:=0::"80C";b$;::12).n=12:=20:"MAKE A NEW MENU FOR DISK: ";N$xN$)<2110=N$ :210 I=1L(A$(I),A$))200B$0 WAP /// SIG MENU.MAKER PROGRAM (v. 6.2) =".D1"210: Coldstart (320: Warmstart &*X=11000: TEXT SLOW-DOWN LOOP ,X.1 CHANGE DISK SUBROUTINE23œ202:2200<RFa$=" YOU MAY SELECT YOUR DISK BY sheet.":"Select 1, 2, or 3: ";r$Hr$="1""gridder":ۻr$="2""grader":ۻr$="3""gradesheet":260"u will find "Grid/Grade", a program for teachers designed to help them keep track of students grades, etc. We hope you enjoy these programs and invite your comments and contributions. contains a program designed by Jim Salerno to keep track of bowling scores for a Senior League. It works great, but please study it carefully, as it was designed for a specific group. It is adaptable to you own needs. On Side Two yo060 WELCOME! /// SIG Public Domain Library Disk Category: Miscellaneous/III.MSC.18 Disk Format: Self-booting - Both Sides Side One of this PD disk 16,B) THEN 240 #1, d$="":=10:"80C";d$ ž#1300I=0"I=I+1:#1;A$(I):290,#1 6L=I-1@j=1:same=0 J:SEG=0 Tœ2030^CT<1CT=1cCT>13000Zha$="{,|,~,}; selects; to new disk; G$:::320H: Error Routine 202:U=11:"79C";"BAD PATH ERROR (NO DISK IN DISK DRIVE OR DESIRED FILE NOT FOUND.)"X=11000:X:::210Z a$="{,|,~,}; selects; back 1 lev 1600 &:WW=1:0 :SEG=1;".D1/S EG.F" SEG=1".D1/SEG.G"diskname$=3802  CATCH PASCAL TEXT FILES 202 :F*=08:"78C";"SORRY BUT MENU.MAKER CAN'T READ PASCAL TEXT FILES."04=10:"M$="NOVEMBER":1750M$="DECEMBER":1750826);"-";M$;" ";Ѡ,2));", ";"19";Р,2);" ";/П,2))=>13П,2))-12;џ,6);:1780$П,2))=0"12";џ,6);:ٟ;$П,2))=>12" PM-":" AM-" 1830WW=1530 =26:=211660,1670,1680,1690,1700,1710,1720,1730,1740^M$="JANUARY":1750hM$="FEBRUARY":1750rM$="MARCH":1750|M$="APRIL":1750M$="MAY":1750M$="JUNE":1750M$="JULY":1750M$="AUGUST":1750M$="SEPTEMBER":1750M$="OCTOBER":1750T 0")2070H540R\A$="RUNNING "+B$(I),16,B)f"79C";A$;:=0pB$(I),16,B) z::SEG=1".D1/SEG.T"t=+B$(I),16,B) yCT=CT+1~240:=24:=0:"@ ..... "DATE.TIME.LINE" ....JM=Ҡ,4,2))BTM1630,1640,1650,0=+IBOTM/2-.5):I=IBOTM:I/2=I/2)I=I-1 œ2120B=B$(I),16)," ")-1 B$(I),"BASIC 0")850B$(I),"TEXT 0")890 B$(I),"CAT 0")1140*B$(I),"FONT 0")18504B$(I),"FOTO 0")1930>B$(I),"PASTXB$(I);v:520: 500THPOS=4:I/2=I/2)I=I-1I=IBOTM THPOS=44:I/2<>I/2)I=I+1I2=-1:I=I-2:IBOTM<30THPOS=44I=IBOTM/2)*2:=+IBOTM/2)-1:CA)"PRINT.ALL": OA+P 3HA=(81+UCA)A=(81+LCA):::: OA+Q Quits 3IA=(83+LCA)A=(83+UCA)"PRINT.SHOW": OA+S 2JA=(68+LCA)A=(68+UCA)/Screen.Savers/HELLON=THPOS:B$(I);XA<8A>11540bA-7640,660,690,720l:=THPOS:ٺ1600 =Q:WW=0A=:A=21A=9&oldprefix$=40A=31410: Control C "aborts" program to Basic(:A=13770: Return Selects a file *DA=27:50: Escape to change disks/FA=324000: back out one directory level 3GA=(80+UCA)A=(80+L"BASIC 0":150A$="TEXT 0":150A$="CAT 0":150A$="FONT 0":150A$="FOTO 0":150A$(L),"BLOCKS")510*=27:=19:"FREE MEMORY AVAILABLE: ";=7:=20:"80C";A$(L);$:=5:THPOS=4:I=1:IBOTM=J-1:620Q=:=26:=21: