IMD 1.16: 1/06/2007 13:00:41 FOGCPM.176 --FOGCPM176ANIMATE ANIMATE CMDANIMATE2CMD DECODER COMz DECODER DOC DECODER PQSO !"#$%&'FOGINDEXCOMR()*+,-./012FOGINDEXDOC 34GB DOCj56789:;<=>?@ABGB CMD CDADD CMDEFADDGRADECMD GHIJADJUST CMD KLCALTOTALCMDMCHOOSE CMD NOCORRECT CMD4PQRSTUVCREATE CMD WXDESCRIBEDBF YZEDIT CMD([\]^_EDIT1 CMD`ENTER CMDabFINGRADECMD cdGETCLASSCMDeGETGRADECMDfghGP2 CMD ijGP3 CMDklGRADE DBF mnKILL CMDoLETGRADECMDpLISTNAMECMDqMASTER DBFrMENU CMDstuNEW CMD vwNEWTOPICCMD xyONEGRADECMDz{|}PARAM CMD~PICGRADECMDPRINT CMDPRINT1 CMD(PRINT2 CMD PRINT3 CMDPRINTER DBFPRNTOPICCMDREMOVE CMDTEMP DBF,THREE CMDTOPIC CMD TWO CMDUPDATE CMD-04-00 87 -CPM176 DOC(This is the disk name. dBaseII program to animate a character string across any line of a screen. It may be useful during a sign-on routine displaying the copyright, or some such... ter string across any line of a screen. It may be useful during a sign-on routine displayin********************************************************* * ANIMATE.CMD 4/11/83 ********************************************************* * * by Michael Cohn * (301) 987-5914 * or * BHEC RCPM (eves/wknds) * (301) 661-4447 * * * This is a routine to animate a character string * across any line of a screen using dBase II. * It may be useful during a sign-on routine * displaying the copyright, or some such... * * This module can be run as a stand-alone demo * as is. Just type DO ANIMATE * * To call this routine from another * dBase II command file, delete the first * "accept" statement, and the first "input" * statement in this file. * * Then add these lines to your main .cmd file: * * store "WHATEVER CHR STRING, ETC." to x * store 12 to mline * (or whatever line * * number you want * * the animation to * * appear on) * do animate * * * * This program currently animates from the right side * of the screen, revealing the character string from * the end, toward the beginning. I think this holds * interest. If you don't, then it is a simple matter * to make it reveal the animated line from the right * in standard fashion. * ***************************************************************** * * === CAN SOMEONE ANSWER ME THIS??? === * ***************************************************************** * * In this program you will note the use of the unusual * convention: * do etc. * @ mline-1,0 * ? $(x,mstart) * enddo * * I would much prefer to use: * * store 0 to mcol * do etc. * @ mline,mcol say $(x,mstart,mlen) * store mcol + 1 to mcol * enddo * * The above does not work, while the seemingly * identical code below does work! * * store 0 to mcol * do etc. * @ mline,mcol * ? str(x,mstart,mlen) * enddo * * If anyone knows why, I'd appreciate the info... * ************************************************************ erase set talk off accept "What character string do you want to animate? " to x erase input "Which line (1-23) do you want to animate on?" to mline erase store len(x) to mlen store mlen to mstart do while mstart > 0 @ mline-1,0 ? $(x,mstart) store mstart - 1 to mstart enddo store " " to mspace store 1 to mcount do while mcount < 80 if mcount > 80-mlen store mlen-1 to mlen endif @ mline-1,0 ? mspace + $(x,1,mlen) store mspace + " " to mspace store mcount + 1 to mcount enddo erase return * enddo * * I would much prefer to use: * * store 0 to mcol * do etc. * @ mline,mcol say $(x,mstart,mlen) * store mcol + 1 to mcol * enddo * * The above does not work, while the seemingly * identical code below does work! * * store 0 to mcol * do etc. * @ mline,mcol * ? str(x,mstart,mlen) * enddo * * If anyone knows why, I'd apprecia* animate2.cmd IF F Bill Weinman, 10 May 1983 In answer to Michael Cohn's Animate.cmd It would appear that the problem you were running into was dBASE's steadfast refusal to evaluate an expression as an argument to @ SAY. Really you can only have a variable or a literal as an argument to @ SAY. The routine that I am presenting here has only been tested under dBASE II version 2.4 (yet to be released by Ashton-Tate). Copyright (c) 1983, by: Bill Weinman, PO Box 60807, Los Angeles, CA 90060 pursuant to the following paragraph: Reserving the right to sell these routines myself in any form that I wish, I hereby donate this file in it's origional form as of 10 May 1983 to the public domain. You may do with it as you wish. TIP: Try turning of the terminal's cursor! ( ?? chr(27)+'.0' for the Televideo 950 and ?? chr(27)+'.2' to turn it back on ). 10 May 1983 Bill E. Weinman Business Computer Services P O Box 60807 Los Angeles, CA 90060 ENDIF F ***************************************************************** * initialization section set talk off set colon off erase store ' ' to string store 0 to col store 0 to colfin store 0 to row @ 10,10 say 'Enter the string to be animated: ' get string @ 11,10 say ' Enter the column to start in: ' get col pict '##' @ 12,10 say ' Enter the column to finish in: ' get colfin pict '##' @ 13,10 say ' Enter the line to animate on: ' get row pict '##' read clear gets erase store col+1 to initcol store trim(string) to string store len(string) to length * the "if not firsttime" within the "do while not done" loop * is to force dbase to read the entire routine into memory * before executing it. this eliminates any disk bound delays * in the middle of animation. store t to firsttime store f to done do while .not. done if .not. firsttime * the animation starts here do while (initcol-col) # length * first, evaluate the sub-string store $(string,1,initcol-col) to partial @ row,col say partial store col-1 to col enddo do while col > colfin @ row,col say string+' ' store col-1 to col enddo * a little flash store col+1 to col store 0 to wait * low is a logical switch used to control the * alternation of the flash (only for terminals * that support rev video or dual intensity) store t to low do while wait < 10 if .not. low set inte off @ row,col say string store t to low else set inte on @ row,col say string store f to low endif store wait+1 to wait enddo store t to done endif firsttime store f to firsttime enddo * rele firsttime, done, row, col, wait, string, partial, length, low set inte on return not. firsttime * the animation starts here do while (initcol-col) # length * first, evaluate the sub-string store ͫCopyright (C) 1984 BORLAND IncALear-Siegler ADM-31dP= ERT()SC>~7#~=% o&ͦoͦܐԩͣ}!!"8~#(}:$= +*!Z!*B!!:(=2!Z: <2!!!:O::O:!*B! !45(!.+/ 0y0( d!kZ!{Z͈͈o&  :(y ͠|( *"x2y( >28!?"9!!>2 :D]SXN]D [ (!e}̈́A8Q0G: x@!\w# (   yV. V!h6# (*(.(!8}(*(̈́w#>?> w#a{ |͒}͛Ɛ'@'7||}>"C"6# ""͐ͩ*B"[R5*"^#V#^#V#N#FO/o&9O/o&9!9(> (G!9 w#E͊w}8uRB0 >R@RR!+ͨ z R!+ͨ z <!+ͨ z <!+ͨ z <!#ͨ z <!+ͨ z T]KB!z> S>))0 = |JJDMgo>jB0 7?= H\<z5+)+<z {0Gɯgo||H}||/g}/o#}o&K[xAJSJDM!b"!6J"DM'ͬͬdͬ ͬ} wͦWͧ _}8(8J`9{T]=o`9y w >uJ u` }>(; xQ }} ˸T}ٕ(0D=C ,= ( [ 0%D , 7 ͏ ?(8u x O - ; 8˸x X ,-xG}; }م 9; .>#n0[ D = - nx P ,-(-˸G,-; }ٕ? 9.>͏ 8u ?= u+-(>O 0u O 8͏ ?x P , 78ƀ8ƀ8ox٨!دoGOW_gɷɷ|لg{ً_zيWyىOxوG|ٔg{ٛ_zٚWyٙOx٘Gxٸyٹzٺ{ٻ|ټx٨ xx(ͼ ?}ٽÏ }ց; <(; 7D = |٤g{٣_z٢Wy١Ox٠GD u J }x>uu}ƀ/ƀo; -J }0W-J W,}l˸ͨ 8 ; ` x( -ͨ 8J -ͨ 8,J }l8;*!` ! >u` ` u--- J ,,,-xGg?+2n*8t z~,->uxua}.; OJ , ; !U >,k- o&0%,` }g; }؉}颋.:}8c~I$I~L*kٷx˸; }0G,͙<},-(-J ! >0 a` o8 Oþ >um.`1pF,t6|!wS<.z}[|%FXc~ur1}Oٯx(<˸ͨ 8; !~Jͨ 0O!><ͨ 8 =  7 <` O ; 7 0 W-J OT0 j oD,:j !I}袋.}8c~I$I~L!>u` ` 77 ` = O nf^VNF!DLT\I!!53!r1!\!> x #-= o˸xO(- }(x>8(C ,C `iM!>u|; |J>| )=|(DMbo˸ͦ88ͦx(0 8> Mx(>-Ͳ{(ay(Ͱͦ \z(>.Ͳ (Ͱ ~ͦ{>EͲ>+|(|Dg>-Ͳ|/ 0:p# ~# +>0w#,-  60#J˸}րogM| .(C = ~> x0w#xG%P %P ZJDM%P = _~65i+~hìx-Sx9?+{Η@}|C C gZJDM0D ,7}o˸  #yO!@9i&   # w# /w# w#!9! E9!!9~(+F͊!"9!(#>2*Ͳ"|>" :( ͆ *6#w*6#6 !\$![ (̈́( #:~CONTRMKBDLSTAUXUSR>2$*#~ Ͷ$*:> >w###6  #6++p>2S-$Ͷ:*6###ww#w$w#w: ##N#F*B> w#w#[s#r>2S$Ͷ$*6 #-Nw#Fwq#p#6#w#w#w* :( ͒: *^ F* < >26"~͟*-w#ww#͟"~ <@*Ͳ!\  <ʮ!\$> >2*|>! * \$\<(!: [1Á\!(f"> 2:!<"F( #~#6e>!["N>!~8>O6*"w (=(&("( :(N 8y(~#x+% (6*#~[*#~ *~(h#"b=  8 J= B== ͯ}8= ͵}/ͭ !*###~-_~(4Q6*>2>*##w:>*##~*#~(E[ ( ( ( !][ ( ( ((w#(6!]~-#8~>7  [>OkͼMs #rkͼpX á[ [ (( #w(q*#~[ (  *##~6͜O$*#~(08ʦ=ʦ==ʩ=ʬò+###~-_q46͡> *:4^q}Ò*|(M|( M6-#͐ͦ[R8 (G> ͒C~͒#*ͦC!h !lTRUEFALSEͦ!9^#(~#(G~͒#> ͒> Ò "F![(#RR0*4#4> RR *4 #4(>>2$*V(/˖:(#~+ x y2!͵( =( X:(R*:(###~-_-͌X> :("͟"*^˞*V˖0 SRѷR8A* N#F#s#r$ 0})jS\*###w* N#FB ͟r+s> !T]>)j)0 0= UR!#U*^#V#N#F#^#V>">!2DM"~x(L* :O(o:" C}=( ?*-N#Fp+qq#p! * F+N+++V+^Bq#p>>> SRѷR* s#r$ s#r"S"! N#FB(^x * 6#[<(H*! Kq#p##K[! *! 4 #4! x *$ *>w""{_!"*nf}(HR0nf" ^VMDnfutqp*s#r*s#r"* 5KB!>u~#fo{_"*R0RnfR0KqputsrNF( ^VNF^V*SutKqp R*R(~w~wnf ut"6# * *!""*NFy(* "*B0Cnf* [R*"*RS[s#r^#VS>O"w2x2!"" @*>2"!"""!\Ͳ*: !~6go(\R*s#r_2x( s x(T]DMR0 -a%}̈́o*!~6o&͠|ͣ}%^C User break1:% I/O% Run-time% error ͒%, PC=[R"͍% Program aborted*1!͍!=ͲÀ=( !8!b*&"65U,U0*)c!!5zn "~Ŕ ENCODE/DECODEb*~#E !!5zʧ "!*! R!qb*#y !! ŔTHE DECRYPTION GAMEb!! ŔWritten by G.S.Elkinsb!!ŔRev. 1.0 12/24/86b!H!ͽ!F!ͽŔ return b!=!ŔActive Control Keysb!=!Ŕ^D -- cursor rightb!=!Ŕ^S -- cursor leftb!=!Ŕ^E -- cursor upb!=!Ŕ^X -- cursor downb!=!Ŕ^Q -- cursor col 1b!=!ŔDEL -- delete charb!=! Ŕ^R -- redisplayb!=! Ŕ^Y -- clear decodeb!=! ŔEsc -- end/exitb!<!Ŕ File name is !| !qb!=!ŔActive Control Keysb!=!ͽŔ^W -- new messageb!=!ͽŔ^Z -- decode messageb!=!ͽŔ^G -- delete messageb!=!ͽŔEsc -- end/exitb!!5z#"a!=*aͽ*a##!<!Ŕ File name is !| !qb!}2{!!5zP$"!*!@+! s*#'$!!5z$"!!<5z$"!*+)))*+! s!*+)))*+! s*#o$*#[$!}2zc!!Ŕ#Enter the coded message file name b!|+.b!| m!ͯE;%!}2{&!!| =!=5!aE%!!ͽŔ This file !| !q́ does not exist,bŔ' press return to continue, ESC to quit b *!NE%!}2{%!}2{&!}2z*{&}o*z&}o*{&}oE$*{&}o*z&}oE>&+ *{&}o*z&}o}oE]&( !}2y*R{&Rº&*!R"*!ͯEʷ&*x&}oEʱ&!"÷&!")R&R&*!"*!<͛E&!<")R'RD'*!R"*~!R"~*!ͯEA'!"!"~)RX'R'*!"*~!"~*!͛Eʌ'! "~!")R¹'*x&}oEʰ'!"ö'!") R'R(*x&E'!"'!"*!"*~!"~)R(1 **)R7(!-b$+ )R~(!!5zu("!*!@+! s*#L(1 . )RŽ(. )R°(!-b!\b$)R|)*!R"*x&E(*!ͯE(!")*!ͯE)!"**Ŕ b!*+)))*+! s**!!*+)))*+n&Rb**)R)*!R"*!ͯE)*x&}oEʼ)!")!"**)!}2y*x&E)*!"!*|5z*"!!<5zʸ*"Q!*+))))) *Q!5` "O*OaRBү*!*+)))))*Q!ͽ*O! Re.!*+)))))*Q<*Q# **#)!"E!"G!!<5zʜ+"I*I*G!*I+)))*G*ER+n&Q!A!ZkEd+!!*I+)))*G*ER+n&+n&RbÓ+!*I+)))*G*ER+n&Rb*I#**E!"E*G!"G*E*|͛E*!=b!*xb!"A<*AͲ!!<5z5,"*A !*!@+n&e.<*AͲ*#+![!b!-b!}2w!}2x!"!"z!U!R"x!*zb!8!ͳb!"=!*+)))))*= <*"|*!"*z!"z*z*x!R͛Ez,!*xb!8!ͳb!"=!!5z`-"!*!@+*= *!5` s*#'-4 !"c"!"!"!!<5z."!*+)))*+!*+))))) *!5` s**!*+)))*+n&Rb*#Æ-*!"*!"**|͛E{-!F!ŔSelect b ^&*aRB/*! R"!*+)))*+*s!!*+)))**~R+n&+*! s**R*! b*!"T0 ARBҚ/!*+)))*+*s!!*+)))**~R+n&+*! s**R*! b*!"T0  !RB/ [RB/ {RBT0!*+)))*+*s**R*b*! NEH0!!*+)))**~R+n&+*s*!"!"!"!"~*!R*!@b*!"*!"*!4͛Eg0!"!"3*3!!*!@+n&Rb*3!"3*!"*3!4͛Eʷ01 !"!"Q!X"** ^&*y&}oEʜ1\.!}2w!"3!"1*1!!*3!@+n&Rb*1!"1*3!"3*1!4͛EN1*!NE1*w&}oE/2!!ͽ!!ͽŔ%Save decoded information??? (y/n) b!+b*&Q!Ya!yaE/2+$c!"!!ͽŔ0Enter the message in code, 60 characters maximumb!*!*+)))))+<.b*"|*!"!!ͽŔ More to message??? (y/n) {y} b!F!ŔSelect b *Q!Na!naE<2!*|5z 4"!"-!*+))))) m!<ͯE3!*+)))))!*+))))) ! e.<P3!*+))))) <*-Ͳ! *- l <*-Ͳ![!b*#A3!"-<*-Ͳ*- m!<ͯEc4*- ! e.<*-Ͳ24![!b!-b!!| =!=b+ !!5z4"!*+! s!*+)!s#r*#ã4!! 5z55"!!<5z,5"!*+)))*+! s*#4*#4!}2x!! 5zʘ5"!!<5zʏ5"!*+)))*+! s*#\5*#H5!}2$c!-b!!| =!=5!aE5!=bc!!Ŕ/Select message format -- A. message is in codeb!!Ŕ5B. message is in plain language and needs to be codedb!F!ŔSelect b *Q!Aa!aaEʬ632=c!!ŔEnter the date as mmddyy b!+.b! m!ͯE7122286!ͲR͐bŔEnter the time as hhmmss b! m!ͯEh7052242!Ͳ!+.b! !!5!!"͞! !!5!!"͞! !!5! !"͞! !!5! !"͞! !!5!!"͞! !!5!!"͞! !!5!!"͞** * ***"! !!5!!"͞! !!5!!"͞! !!5!!"͞! !!5!!"͞! !!5!!"͞! !!5!!"͞******"*UEʂ9*UET9! !!5! !!5!Ͳ9! !!5! !!5!Ͳ9*UEʻ9! !!5! !!5!Ͳ9! !!5! !!5! !!5!Ͳ͘4c!"!!Ŕ'Generating code of alphabet position # b! !!"͞*" * !ͯ* !͛}oE:!* +)^#V!ͯE:* *aE:!*+* !@s!* +)!s#r*!"!(!*R!b*!͛E@:c!!Ŕ Enter the message to be encoded,bŔ' 60 characters maximum Esc -- exit/endb!"!"*"|** ^&*y&}oE<*&Q!a!zkE;*! R}2*&Q!A!ZkE?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmno'0!wSԡGlr%V젫]VˉLT+,eo0[EU&G)pq~ /ə ,&ZaǢ yi. t&7\/0CǢ ڸ\4/^ŋ/a74EA=qh^8?͋Ms _ JR<Yybs/and(ȢG6.͋%| d08G6.͋%|6mlZӚ=S4 hq=S4 d# j?둜l`T}@GrA*$GJ/LT10QEKg=*a.nH%AO=:e. yg/) `$}Iaٻ+Zc0zޗ]0xo6)C '3,Es&4$' =YRvFAzō[+5Utݑlə ,,|>-" (=FkLfK(:c&dFK0In(=FkLfK&ur (=FkLfcGhM>YɌh6Ax!9a)6CO8_@y4a04Ӑ04mRT>O釟O? =3Az*A5G CO3 C?,զiMh;L]'r&COWTϏmXahjO~04xK6:COGUI)rŷ/>Wu:COWTϏmPahjgS~ϻ:COWT7S.-2COWTC\Ze6)v,: Laah {&4$' = ^R0tIQMV ')K#-ݮ?,չi =mRT>ȣM^ = ^R&E㷸Gm-J*Ԯ?,չiAz:ڤ}{vb< = ^R\ahj_q<[t:COWT}]ahj_p<[d_Az:7 =mRT~qC%)BG09Og2%)Ax!9aiܴcM?=,ԝʸ = ^Ri =mRT>9K704xKun&ECqr{:$04xKu~l7u6)vJ[Bk]RJ09Og2%)AML)ᙆ䄡+Xs6u6)v*!;e}Az:7s\Ze6)vptĖ.04xKunڇ:CO =mRT>-a({CRŁvuaMS.-2COGU= [8Ю?,չi_Azʥ%_ahj˸9=Az*iЯ1 CO3 C?,չiMSahΥ%_a艜 ?,YɌ\R)ڧ֏*9B.)Xd6v]\w+<Ӑ_ި=DT3mtyO[a艜yg+Xv&N֟l`[acsLCrgRp~ =3Az*Al`04Ӑ04"_@ya044$' P(^\_.C$y, 5W La艜 )RIW(CON0].mmjC6)v" 'do`K]BJ[vuM▊TRRܠ[*RI5>ړ9W(;0 C4$' *v]\eE*uqKE*Яn~[aW:R*:Co_[Rg'~1CAa蟽kgiHZn>~@m-ӭ0A t@{4A)0jONi!9ao M~c~"g0L6mn3 AEm-?[a'~56A~h0S*`jONi!9ao1CcЯ4A _3A5z+Pѯ؀ʎѯhAm-G%[ayn=fKjV) A!_рʎѯa'~56A~h0L1z4$' dɤT. C? ^RA r&@y !=93~#?|[a71Ӑۛs+ ].}G*:C\R)A;K(: Da7c!9on>0wW4P3n!9a迏3x}~Db] Y2;KP&!C9ޜP&!@=f~ʥ2Q"Ta'DTRK*2CAa_51Ӑ0SD"MPInRԞ0LCrߤ@!_a'rFʎ D|jOM~򇥊0&EA\(^\_zAi*溩0&E cQ0?,UlM g04=f~WDܣ O@'4P{rO3 C 8@ړCDb*;BD OL~򇥊0LH뙆䄡]т~Eˎ0eojOk4Akr&COL&gLfcGM YաGȱ#(t"cGoz$h |ՠGrAx!9a(/ =4$' ͅ ㅡy!9a_5W[SeZ cQ0WmSAe~/^4 z4$' C%)74EA\_M\GVUyoMfoh셹l0ə La艜 L>YɌ`ɤT./nLNe\:=P LT,LVMy3/P{BIa0iͦ=l#9E <Ӑ0tؠ_'A ГE% ͅ+(#晆䄡_^RMk6u~ xk*rǢ {7658{P{r/g&EUI]xk*rǢ {76e_3/GU74EA"nZ?l. Lh04 fkl0FRaT&gLfMj*@ssIQ'ę(By= 4$_7 |'bJ,u*U,RIu:DTR0tLjUa04Ӑ04+:29Bb \x~Eq~<Ӑ0KEU&GW(:295L"^.043A6)LTH%&h)Az"g0KQeE*9ڤ eG L>YɌ`)EtS{"UDtGu3 AMRHNycQn'E,; ГA {+0AH%uߨ2Q"TM,(*a軎2Q"Ծ0h*U,RI*Zu;&*Z0^n!9aWǢ {a.ѯPtPerxS`P Ǣ {+ }Ga;Я0AΠ_ap&C߽G=ait*xx7Azꈮ*U,RIГh*U,RI*ZuIa2f[D+( CLCr/L"^.ѯTL6un TLT#Τ0EAVə =3AzO9v+ZܸE1CO]AzS4d0d+6Az2W4Aztq{CVuMn<Y(x+ }Wx~Eq~rƬb0LCrЯeohEl%ٟ*{CXd/eۦЯabk:C:ڤ"y, 5u#g0iЯ0 w k4AzJ% >è = ^R~l7u6)vRIY:COZf읺%3AXXd}&3Z*^nU+ZpudPxU-3 CO9v+Zܸ//^4 z4$' -nܢ_qE&Ci({CXd/bk.ѯ{[]mor<%ZL[S<ًؚe}~E7np+|S#Y-4Ǚԅ"y, 5-n^?o ?,UlMor<%Z6)VWq[),r6)VWq{ eD"M#9u~c!9a/ eohEl%yo+ZܸM|AKI]xk*rǢ {[s/ѯ{[]mnoJ$;8T74EA"pY__ōM򇥊M|A&EU7n: ߔH9vt GUyo+Zܸ~u2_q&C ϛ//~pn3 CP(^\_ō:Ch*?:ڤ{[]m]aWq=9a4$' Wq&u᭩eohElᲾD"muEu9ѯF 9ə ,,|>-P&!@l@0In~0شA dLCrГA SD  =Y:QTwWTژxHq0?,UӚ:CY< sYa;Я0AΠ_ap&C ^R5w }wIQ'o cK]/ TpbWa+X׏wGUo],Es&COS-n"?n2CO0W4PFxai!9ah>&*Z0^g~yܧPԾ< sYΏ0Ǣ {a.ѯ< sk /T_y, 2CTtPer~;\CAQ~yIQeE*5QEKLa艜 1=LTRLCrЬ.CqJBInPJAQO8?x(:29BBA.C&E*D-:COLr;LTH%Az]WbJj]RJ0d#UbJ0d)Eə ,,|>-!d(LCrS-" ㅡ䄡$cQW LvED1COL oaЯh< CO3 Cs-"  CLCr/eohEl%;043Az"g09Og2%Sd77ۘ)S(9E6&x+&ZQ&uWG}IaTS d0q=S4 LTԪ%Mn8_a*m =S4 TRӪ z$h V-=GrAJ[zת3z$h 葜l`5Q=S4 LTܚ=S4 LT5Q=S4 LT=S4 ܸգS6em#9E ,<Ӑ0DBBّ0Tx ~E40^ziHN oѯh<Ώ0^g~I.{CXd/bk.ѯa 9'rQ%GW(CO]Azʥ2Q"Ta)v]\eE*uqKE*/~w+ =YHU&X =w׷S*n,>}#Ԟ,mRTbJ0Ke+Xl =mRT–.mT~[8R䐽]+Xv\ahj/!uH2&2a!:Gd:(!04xK '_k6͏ϻ G.C&ESdanASܠJ[ g=9%+v6.Ch*Tah~*RiQ-Tu7?-J[j[ԴTu7?-J[j7mS*miZRAIJT*m}nUiKϭn,UM,OKҖڇ[ZRAIJT*m}6uҖ޵Tu7?-J[jmS*mZRAUk+TRk Җq kwJ[:ah~*RmڦnMTԴTu7?-Mԭ6n,UM,OKemDEϭn,UM,OKemDEn,UM,OKe]ԭ޵Tu7?-sԭέn,UDEѯ0QQkhk0QawASoLe5Ԟ044$' 2T*mu '' r!9a?qۡ_iTR۴T*m}n ~IeGOnvWdZ*nMkdZ*Mf*;晆䄡_ޘJ-䄡_4$' '7n;+?-MqOKҖvSa0K*;~rC"RԸF2QQ65iTR۴:C399d(04vah~t &C?,Un GUߒ#Ur7_ }I令w+ ͖N07ܸZ7nZRAθq~mm *ltƍ[|u *qXC CiHNm*Lv셍θq{Oh䄡4$' TFgܸŧ~t jON3 C$cQ~tθqk s7ngXd/ltƍK+ GЯ~t h0aC~IQT0ə Яș ͣSDS9Cs.mm-d C R[ahjC9ywPpIQ'doäV6)v" 'l@P3\L04mRTp~DG"ai;n]=̮ѯh04+ ͖N0+Я0A?,UlM_YjM~SWaW ٻ+Z䄡_4$' 6;Er{boK=9Dɢ_ōMߦuGHb݋]BɁ\(^\_QRd(^xk#p) ʎ@.{CXd/bk.ѯ; oa}Ӛo6)eohEle_3AGR+ZܸŊ &CE% &h)xaW3 CUtPer~n"_@ya0ۙ䄡 EU&G cQ oə hDTRkr_3AA ͣSg&h)xahiHN*#+v O%$7}'a<T_a_mRTbJjMTR043As;LTH%AK*2COL&gLCrӞ!aR4Wl0dDQ C%TeFR r潟0Ke+Xcy0tIQ>+,~Ay!,km?h*?:ڤ{[]m]aWq=9a4$' Wq&u᭩eoh *qXC CiHNm*Lv셍θq{Oh䄡4$' TFgܸŧ~t jON3 C$cQ~tθqk s7ngXd/ltƍ ͤ"R"J >͵ !e%>͔z "!\$>G!3!`%6!\$>G!]RZJ >͵ !%>͔z "#!>G!ãRJ >͵ !%>͔z "RJ >͵ !%>͔z "#!%>͔G3!N!e!\$: !Y'6:`%b!\$O !K%͵U!U&ͽ "*Z%#"Z%!"T'!U&n&*T'-_!U&*T']G!['>!]'!_'!a%{['*^%#"^%!%['x,]*X%#"X%!%['x,!%['x,!%['x,eí:Y'­!Y'6*\%#"\%!a'*T%#"T%*R%#"R%!"R%*R%++|*T%+"T%!"R%!%a%>!%a%>/!%a%>&*T%+"T%!%a%>!%a%>|U*T%+"T%*T'#"T'Ð*T%+++|/:Y'ր*V%#"V%!Y'6!"T%RJ >͵ !%>͔z*X%> ͵͞ "RJ >͵ !%>͔z*Z%> ͵͞ "RJ >͵ !&>͔z*\%> ͵͞ "R,J >͵ !-&>͔z*^%> ͵͞ "*\%> > *X%> !D&>M*V%> > *\%> > !F&>M!G&>M>x!V'>tRJ >͵ !I&> ͔z!V'>M>͞ "#~a{_w~AEIOU>]T#~#~#~^#VɷGOG># K)F&glp= pOگo####W‘60#÷E˜>ew#.¢e©xʷ ‘GZ+y=x=0 60$w +6.$y=x=ixg9x /4 T Tw#Qگ=s<ү<_ʯKگ oW##K04 ڰ0_4 °4K0w# ½x šGZ+wxx4o>g9##/4   4`C!c'Ϳ> ͹ \G`P nxh>ͦG wGʤx!$Ҍͤw:$ʗڤ:$`Ì>2q'!o'þ !r'ÿ^^i^#Vù#F#N#^#r+s#^#V++r+s~ʹ5¹^5^iq#pùO^4~ ;_is#r#s#r#q!AÿIJ$KM Format Overflow*$-&$!'áO:$y!9Gʚ~#'‹ËyáO:$, {*$|j& *$*$-#-> 4 > 4 , > 4 {=>'4 !9 =~#' {>'4 4 {=>'4 {>b4 *$++|25(!3(T ɯQ >Q >2@("A("C(`i"E(!9"G(!6(m ( ~# r *(~ *(~¶ !(>͔G3!!!$: !$"(!( !(>͔G3!R.!!$: !$"(!( *("(!( !(Y *(^#V!$s#r*(^#V!$s#r*(^#V|*$|G8 !(͛ *(^#V}*$}G[ !(͛ :$ *(^#V}*$}G !(͛ :$ *(^#V} !(͛ ^#V"(!$"(*("(!(Ϳ2(!(þ ^#V"(:$ :$ *( *(5!(6:( & % !(T *(% *(5!$6!(T :$" *(6 `2(:(S !$"(!"(!(Ϳ!$6#6!(6 ^#V"(!$"(*("(!(D !$"(!"(!(Ϳ + :$+ *(~ ڤ *$#"$+ *(~ ¸ !$6#6+ :$+ *(~ *$#"$!$6#6+ *(~ + *$#"$!$# !$6#6*$*$#-|+ !$"(!"(!(Ϳ& , !$6:$9 !(T "(!9"(!(Y ! 9^)~# ^ *)^#V|s *)*) *) nb *) ! )> !)>͔*)Z! )ͧ*)~# *)^#V)))| *)6P#6*)~#( *)^#V))| *)6#6( *)6<#6*)6#6*)6#6*)6#6*) 6*)^#V}}2 )*)^#V} ! )44*)^#V} >2 )*)^#V} *)~# *)6#6*)"#)*)")*)"!)!)!*)^#V| *)"-)!"/)!%)Ϳ^#V^#Vt":$!@Ϳ2$O!$*6/ +~#w!$ s#r!$4,"HI$JL I/O Stack Overflow:$€!$"6)!2)1}!1)6Ë:$21)!$6:1) ښ*$#"$:1) ª!$6#6:1)""*^#V#"^#V͸""!||~͸yaA =.:;<>[]y * !$1C o&))))\xH  `#w `*!#ʏAҏG:ʔ 6Ùp4+-ʾ##*¶6?úw¥þ#6 .  - #*6?w#6  %#6*!##^ ~?*# #xCON CON RDR PUN LST M!E ~$1Ҏ\ul$!~ !2© ʷ#Öx=GÓ>ɯ*!+^#V#{#z6#6 r+s!8)F#~#!8)6P  ͊" ͊"!9)^r+s6 #6 !9)4^N*!|S}=@OKKO>~__>͡N*!|‹YK=xy„͊"Ç>~ʗ=ʗ>͡q2&*!/"#{*#*!#:&O#s#rںár+s{ ! 4*#+>|+}oͮ͸~2͸":'TZG:'*pT4#6:u*++"~}+ʂ}|2""1k|'##"!6*s#ro“{ ʓ*!:w6*"<:“<ʓ!"*!(w# *!~#*!2#>*w#wͮ-͸qͮ͸Nf*!~" 4#4#4ͮ~…ͻD>ͮ~>*!~ʲ>ͻI*!!*~!/2%*!|(^#V{zzV2 z!:%-qNf#*!|V*~V=! S:%͡PLw3W>ͮ|}~> <ͮ|*w=*!I#*^#V6+6++ͮ>"N#F#~͸q#p#w>ͮ>*~!=>!*!" s #r#w=* }!)6 4>2)*)!4#4#4~#N#F#y#x#:)*)!!:)ʁV@:)~G~#~O?#~! p! y! q<<@ɯ~#N#F#w#q#p7'~#!!! 6?<)= _!x#FNwxG>O>G!$q#p#6K")")2)x2)'2)7!)~5fʑ=¼:)¼*)<‘͒)ü*):)O*):)­y O:)@*)w# G:)*)!V*)")`:)/g.>Gx|g}o9!9VzwzO#5! 9/GO~O~q+]!96#=pO!9Fxyҧ! 9~WwzO+”_ /!9~#=»og9##z%|xK{w#qO!9 w#'60#60! 9~ V!97>?'w#G-!9~͛o~#͛\! 9~.+60Í06 #u+r>o&9y>o&90w+²6./G! >0  >-3T]))寕iO>`G>0 ;<3 DM0 > mw#m O~#ƒGxږʢ > ʮ#â!9!97>?'w#¾!9!'w#!9͡! 9͡! yFͅ!9o>g~7Gxl:!9!w# R!9!9!'#y!9^{w{W#~W~+¼ð7>?'w# !9~#!9 #>T!9͇ "!9͇!9!9ͷ!4,5!9ͩ$ d!9! 9ܘ! 9w#w!9~͘<7>?'w#›'w#¬7>?'w##º^{w{W#!ÿȇ)yw# ~#~#W #PF#")x͔n*)!9G_>WObk++ʎ~+†y~#/T!>) =#) ɯo>g{ozg!:ÿBCDFH Conversion2f!]ÿefgi#}OD*)~ҭ##~#fot!ÿ Free Space Exhausted##^#V#{_zWv{_zWy4z{##^#V# ##s#rs#r#s#r+++~sw#r####}*)}|p*{zp+F+N+V+5^{v{zv}|v{PPi`~sw#r##q#p i`N#F#^#V~vq4#p+i`##s#r|$$ FREE Request Out-of-Range$ Free Space Overwrite$GKMbkͤ Fͣ Nͣ N#Fͣ ^#V"&%y2%%xi&!!x>$!${#z*$*$ "xyx0͈_! ^#V͂>(̈́yͻ>)̈́|ewL |qw#>,̈́͂> _Ê" ͊" Ê"0:ڄÄ͒Ò͂|͠}à d x͒N #~̈́! *)!9{_z { & $ ͂>#̈́*)>=^#V#ͬ& = >: G >?̈́! >=̈́^#V|| }s .))+!#F>A8 > #— ~ >.= ~ = =È ^#V# File: Traceback: !!&! ERROR FIXED OVERFLOW OVERFLOW UNDERFLOW ZERO DIVIDE END OF FILE UNDEFINED FILE KEYNULCONCONRDRPUNLSTBADG!(%~s!X!$ Condition Stack Overflow$4Ox!) w#s#r#s#r!9!)% s#r!(%N!) +++++¬!#{!#z!++~ì!++!(%5!~# !!!(%N!) +++++!#~#"+{"#z"++~!#^#V=!$~t"5:$_!$^#V"$$.~# F"*$)))))$ )| ["*$|}*I%"$:$*$$w# "*I%{ қ" Ÿ"!#"I%"Copyright (c) 1980 Digital Research, v1.3 !")")")2(%2$*) #")q#p##}o")*}o|#$$+w+w+r+s4w#w#s#r<2)++*)s#r")*)#")*)DM!)x~##~+#+F+Nq#p*)+")##=”#!+~O~#~G!>w!/x¼#y# >O6# ³# ʣ#=ɯ ~#fo++R#!)~#$*)I##&$$8$  Insufficient Memory$ Invalid I/O List End of Execution$M$ ;z ; SOURCEFILESYSINSYSPRINT Fog Index Calculator, Rev 1.2Usage : fogindex No sentences or words in file.Can't calculate fog index$1.$1. EDDEDTEDELENumber of sentences = Number of lines = Number of words = Number of characters = Fog Index = ['a%['k'l'$m'q'z'{'$|'~' Invalid Format Item5(@(A(C(E(G( Stream/Record Sequen/Direct Input/Output Keyed Access P< $con(($(I(W(e(s((((( (((((((((((( ( .dat ) )#)))-)/)6)1))umber of lines = Number of words = Number of characters = Fog Index = ['a%['k'l'$m'q'z'{'$|'~' Invalid Format Item5(@(A(C(E(G( Stream/Record Sequen/Direct Input/Output Keyed Access P< $con(($(I(W(e(s((((( (((((((((((( ( FOGINDEX.COM - written in PLI by Les Bell, 11/04/82 - compiled by George Blat, 6/17/84 Calculates the 'Fog Index' developed by the Gunning-Mueller Clear Writing Institute. The fog index is roughly equal to the number of years of (US) schooling required to read a piece of writing. The fog index is the average sentence length plus the percentage of words having three or more syllables, all multiplied by 0.4. To run, type FOGINDEX . FOGINDEX.COM is confused by some word processor files, such as Spellbinder text files, which use unconventional carriage returns. In such cases, create a CPM version of your Spell- binder file with the following command sequence from the Spellbinder command line: COMMAND:GD (to save your file) WRITE FILENAME>YOURFILE.EXT COMMAND:G (to recall your file) READ FILENAME>YOURFILE.EXT COMMAND:GD (to create CP/M file) WRITE FILENAME>FOGTEST.TXT/1/2 (NOTICE "/1/2") Then return to the operating system and give the command: A>FOGINDEX FOGTEST.TXT Or from Spellbinder give the command: COMMAND:C/FOGINDEX FOGTEST.TXT FOGINDEX.COM will respond with a report something like this, which is FOGINDEX's analysis of FOGINDEX.DOC: Fog Index Calculator, Rev 1.2 Number of sentences = 17 Number of lines = 58 Number of words = 205 Number of characters = 1481 Fog Index = 5.21 End of Execution te a CPM version of your Spell- binder file with the following command sequence from the Spellbinder command line: COMMAND:GD (to save your file) WRITE FILENAME>YOURFILE.EXT COMMAND:G (to recall your file) READ FILENAME>YOURFILE.EXT COMMAND:GD (to create CP/M file) WRITE FILENAME>FOGTEST. GRADEBOOK FOR dBASE II Program and Documentation Written by Ronald N. Grout Copyright by RNG Software Donated to FOG Library by RNG Software 1. Background Information This program has been written and modified over a period of two years. Over 3000 student records have been kept on it since I first introduced it for my use and and the use of some of my fellow teachers. We have a rather unique system based on three grading periods for each semester. Some of the teachers, including myself, rotate classes during each of those grading periods, so there must be a way to pass grades along, average between teachers or grading periods, and have separate grade sheets for each period. All this has been built into the program. Each grading period allows for 15 assignments, 5 projects, and 5 tests, which comes out to a maximum  of 45 assignments, 15 tests and 15 projects per semester. You can establish your own grading scale and weight the three types of grades according to your own criteria. You can also weight each of the grading periods separately, giving maximum flexibility. Printouts of your records can be done in a variety of ways, on a variety of printers(Epson, NEC, IBM, Commodore, or Letter Quality types and compatibles). Please forgive the nonstandard coding of this program. The earliest .cmd files show that I was just learning the nuances of dBASE II. Later files are generally better done. You are welcome to alter this program as you see fit, but please leave credit where credit is due. I would also be interested in having copies of any changes or additions that you might want to make. I will pass those improvements along to others. This version is set to work on a single disk drive. I also have a version that will work on a dual disk system. I use it on a RAM disk, others can use it on a hard disk, while others can put it in the B: drive and "SET DEFAULT TO B:". 2. Beginning the Program Assuming that you are in dBASE and logged onto the proper drive, simply type "DO GB". The introductory screen will come up and you will need to type in the date. This will set dBASE to that date and will also be used in printouts. Next you will need to select a file to work with. Choose "MASTER". When the screen next clears, you will be on the Main Menu. Here you are given 11 choices. The first one you will need to use is "6 - Create a New Class". It would be a good Idea to create a demo class and then all the other classes that you wish to use at this time. You will return to menu after creating each class. After your classes are created, use "9 - Change Active Class". The original listing of classes available will come back up and you will then see your new classes have been added. Choose the demo class that you created to begin working with. 3. Setting Up Your Class Press "1". This will send you to the Update Menu. There you will need to press "1" again to add students to your class. Notice that you will need to type in the student's last name, a comma, a space and finally the student's first name. After hitting , the date will be shown. Just hit again if that's the date you want, or change it. You will be checked for accuracy, just press "Y" and return. There will be a delay while a great deal of information is set up for that student. When you have added enough students, just type END and hit . You will be returned to the Update Menu. Press "2". This will give you a complete listing of the students in the class. Since you do not want to delete any at this time, just hit and you will once again be returned to the Update Menu. You may at this time wish to alphabetize your class. Just press "3". While we are here, let's now set up the class parameters. Press "4". You will see my name, my school, and my grading scale. Change them to meet your needs. These parameters will be the same for all the classes that you keep on this disk. A few words about each: a. The introductory information will be used for your print outs. b. Notice that I am using a 15 point scale. I chose this because of the easy access from the numeric keypad. Another thing to consider. If you use a 100 point system, If a student fails to turn in an assignment, it is normally marked as a "0". If the student should have 100 and a 0, the computer will average that out to a 50. For such a grading scale, you might want to consider a way of adjusting this. A fifteen point scale has allowed me great flexibility. By the way, you can make the computer ignore a grade for a student if you wish. More on that when I talk about entering student grades. c. Weighting grades allows you to place a value on the assignments, tests and projects. If you choose to use a weight that is higher than the suggested values of 5 or 10, go ahead and do it. There is nothing in the coding that prohibits you from doing that. Test out what works best for you. d. Your choice of printers is not quite limited to the ones listed. If you you know how to use dBASE, you can alter the file printer.dbf to meet your needs. "OTHER" has been left open for your use. In addition, there is a great deal of flexibility in the printers available. Epson has been a standard for many years. Many, many printers are compatible. The Royal LQ setting has been used with many Letter Quality printers. I haven't found any letter quality printers that don't work with it. The MPS 1000/IBM setting should work with your IBM compatible dot matrix printers. If You have one of the other Commodore dot matrix printers, You are going to have to forget about having your lines set at space and a half settings. When you are done editing the parameters, you will be returned to the update menu. At this point press "8" to return to the main menu. Here we will begin editing student grades. 4. Editing Student Grades There are two ways to edit students' grades - one student at a time or one grade at a time. to begin with, let's edit one student's grade. Press "2" at the main menu. You will be asked to type the name of the student that you want to work on. You may type the student's name in the same way that you entered it into your class, or just type two or three letters of the student's last name. After hitting return, the next screen should be the record of the student you chose. Notice the layout. Everything should be self explanatory with the exception of the two grades on the right hand side of the screen - "Grade Period 1", "Grade Period 2". These are areas reserved for previous grading periods. At this point, they should say "NM". At the bottom of the screen is the prompt area. Try pressing "F". After a short delay, the next student's record will replace the earlier one. You may also scroll backward. Press "G". You will be sent back to the student selection screen. This time hit return without putting any name at the prompt. A listing of your students will be given. If you press a student's number, you will be sent to that record. If you just hit return, you will go back to the previous screen. Choose another student to work with. When you have the student record that you want to work with, try pressing some of the other student prompt commands(A,T,P,N). Add some grades according to the scale you entered at the parameter screen. After you've put in some grades, press "R". The program will recalculate the student grade according to the grading scale that you entered earlier. Scroll through some of the students and add grades to each. Use the "G" command to get another student. Get comfortable with this section, and when done, press "Q". That should get you back to the main menu. Now we need to add a grade to the whole class. Press "3". You will be asked to choose between Tests, Assignments and Projects. For this demonstration, choose "A". You will be asked to choose an Assignment between 1 and 15. Choose 10. Your student's be will listed to the screen and you will be asked to choose a student number. In any order you choose, put some grades into the student grade slots. When done, press "Q" or just hit return. You will be asked if you want to recalculate all grades. This will go through all the students' grades and recalculate them. Depending on your system and how many students you have, it will take anywhere from 2 to 8 minutes. For right now, press "N". You will next be asked if you want to add another grade. In this case, answer "N" and you will be returned to the main menu. 5. Printing Out Student Grades Back at the menu, press "4" and you will be sent to the print out menu. Up in the right hand corner, you should see the name of the printer that you chose to use. You will also see five options. Rather than use each of these at this time, let's just go over what each does. The individual screens are all pretty well documented. Printing out "Class Grade Sheets" takes between two and four sheets of paper. It lists only those grades for the present grading period. "Class Summaries" gives you a choice 1, 2 or 3 grading periods. If you are in the first grading period, choose 1, etc. If you choose grading period 2 or 3, you will be asked how many weeks each grading period is. Although I have set the screen to ask for the number of weeks, you may weight the program any way you wish. The print outs will fit in the standard 1 and 1/2 line grade sheets. "Print Out Role Sheets" does just that. It also prints in standard 1 and 1/2 line grade sheets. "Print Out One Grade" will allow you to print out the results of just one assignment, test, or project for all the students in the class. You will be asked if you want to print it out in Alphabetical order or in descending order according to the grades the students got. It also gives a class average for that particular grade. "NM's" will be ignored when calculating the class average. You may at this time like to try out each function. When done, press "5" to return to the main menu. 6. Begin A New Grading Period Number "5" on the main menu allows you to begin a new grading period. Once you begin this function, the present grade for the student will be transferred to the appropriate grading period of a new file. The new file will have no grades in the working area. You will be ready to start your second or third grading period. By the way, Don't lose patience with the program as it does the work for this section. It does take quite a while to finish up. If you press "9" when it is done, you will see your new class is on the directory. Choose your original class to go back to for further work. 7. Define an Assignment This section allows you to give a definition to an assignment. This can be printed out so that you know what each assignment, test or project covered. It works off another menu which is self explanatory. 8. Copy Information to Another Drive This is set up specifically for those of you who have a hard disk or ram disk. If you are doing all your work off either of the above, you can now save your files to drives A, B or C. 9. Final Notes We have covered all the options of the main menu. Now we need to finish up the Update Menu. Three things on that menu that haven't been covered are: 1. Adjust Student's Grade - allows you to go in and change either the present gpa or the gpa for the 1st or 2nd grading period. 2. Delete a Whole Class - takes all the names out of a class so that you start a new class under the old name. If you want to erase a class from the directory, use the dBASE or CP/M method. 3. Recalculate All Class Grades - is the same function that is optional after adding a full class grade. I hope that you find this program as useful as I have. If you have any suggestions or make any updates, please send them to me at the following address: Ron Grout 599 E. Wright Hemet, CA 92343 Please remember that I have put this in the public domain for people to use for free. I will be very angry but my lawyers will be delighted if I see it turn up on the private or public markets with someone else's name on it. but my lawyerst Student's Grade - allows you to go in and change either the present gpa or the gpa for the 1st or 2nd grading period. 2. Delete a Whole Class - takes all the names out of a class so that you start a new class under the old name. If you want to erase a class from the directory, use the dBASE or CP/M method. 3. Recalculate All Class Grades - is the same function that is optional after adding a full class grade. I hope that you find this program as useful as I have. If you have any suggestions or make any updates, please send them to me at the following address: Ron Grout 599 E. Wright Hemet, CA 92343 Pleas* GB.CMD SET TALK OFF set colon off RELEASE ALL erase @ 10,28 say "MASTER TEACHER GRADEBOOK" @ 12,28 say " Copyright by" @ 13,28 say " Ronald N. Grout" USE GRADE STORE SCHOOL TO GSCHOOL STORE TEACHER TO GTEACHER STORE CLASS TO GCLASS STORE A:PLUS TO APLUS STORE A TO AA STORE A:MINUS TO AMINUS STORE B:PLUS TO BPLUS STORE B TO BB STORE B:MINUS TO BMINUS STORE C:PLUS TO CPLUS STORE C TO CC STORE C:MINUS TO CMINUS STORE D:PLUS TO DPLUS STORE D TO DD STORE D:MINUS TO DMINUS STORE TESTVAL TO TVAL STORE PROJVAL TO PVAL STORE ASNVAL TO AVAL STORE PRINTER TO GNUMBER STORE "00/00/00" to mdate store f to done do while .not. done @ 20,22 say "Please type in today's date. " get mdate pict "99/99/99" read @ 21, 1 say " " input " Is This Correct? " to done @ 22, 0 say " " enddo set date to &mdate release mdate release done DO GETCLASS DO MENU CLEAR RETURN  " enddo set date to &mdate release t by" @ 13,28 say " Ronald N. Grout" USE GRADE STORE SCHOOL TO GSCHOOL STORE TEACHER TO GTEACHER STORE CLASS TO GCLASS STORE A:PLUS TO APLUS STORE A TO AA STORE A:MINUS TO AMINUS STORE B:PLUS TO BPLUS STORE B TO BB STORE B:MINUS TO BMINUS STORE C:PLUS TO CPLUS STORE C TO CC STORE C:MINUS TO CMINUS STORE D:PLUS TO DPLUS STORE D TO DD STORE D:MINUS TO DMINUS STORE TESTVAL TO TVAL STORE PROJVAL TO PVAL STORE ASNVAL TO AVAL STORE PRINTER TO GNUMBER STORE "00/00/00" to mdate store f to done do while .not. done @ 20,22 say "Please type in today's date. " get mdate pict "99/99/99" read @ 21, 1 say " " input " Is This Correct? " to done @ 22, 0 say " " enddo set date to &mdate release * ADD.CMD SET TALK OFF STORE T TO MANOTHER DO WHILE MANOTHER ERASE STORE " " TO MNAME STORE DATE() TO MENT:DATE STORE F TO MOK DO WHILE .NOT. MOK @ 5,10 SAY "NAME " GET MNAME PICT "!!!!!!!!!!!!!!!!!!!!!!!!!" @ 6,21 SAY "Last Name, First Name" @ 8,10 SAY "ENTRY DATE " GET MENT:DATE PICT "##-##-##" READ IF .NOT. ", " $MNAME @ 20,10 SAY "INVALID ENTRY: ENTER LAST NAME, FIRST NAME!" LOOP ENDIF @ 20,10 SAY " " STORE TRIM(MNAME) TO MNAME1 FIND &MNAME1 IF NAME = MNAME1 @ 20,10 SAY MNAME1 + " ALREADY EXISTS! " LOOP ENDIF @ 20,10 SAY " " @ 15, 0 SAY " " INPUT " IS ENTRY CORRECT ?" TO MOK ENDDO APPEND BLANK REPLACE NAME WITH MNAME, ENTER WITH MENT:DATE REPLACE GRADE1 with "NM" REPLACE GRADE2 with "NM" REPLACE TOTAL WITH 999.00 STORE 1 TO MCNT DO WHILE MCNT <6 STORE "TEST0"+STR(MCNT,1) TO MFLD REPLACE &MFLD WITH 999.00 STORE 1 + MCNT TO MCNT ENDDO STORE 1 TO MCNT DO WHILE MCNT <6 STORE "PROJ0"+STR(MCNT,1) TO MFLD REPLACE &MFLD WITH 999.00 STORE 1 + MCNT TO MCNT ENDDO STORE 1 TO MCNT DO WHILE MCNT < 16 IF MCNT<10 STORE "ASN0"+STR(MCNT,1) TO MFLD ELSE STORE "ASN" +STR(MCNT,2) TO MFLD ENDIF REPLACE &MFLD WITH 999.00 STORE 1 + MCNT TO MCNT ENDDO @ 15,0 SAY " " INPUT " MAKE ANOTHER ENTRY ? " TO MANOTHER ENDDO RETURN %K+~ J+J#"2W%K#F#̓7*2WyJ6,#: W,K 9xU7"2W%K~# KKKK"2W%K60#"2W*,W",W uJ*2W6 #6 #r7DM:D&ͥ+KHK!VA9 &/""W!".W*"W~ K>  ~K> #‰K#~#~U###~U*"W""W&/*.W#".WwK:.EK*.W͸66>' <:D}'':WK:WL:WL .*.W!6* ADDGRADE.CMD set confirm on set colon off SET DELETED OFF SET TALK OFF SET BELL OFF STORE T TO MYES1 GOTO BOTTOM STORE # TO MLASTNAME GOTO TOP DO WHILE MYES1 DO PICGRADE ERASE @ 0,0 SAY MFIELD + " " + MNU STORE 0 TO MX STORE 2 TO MY STORE 1 TO MZ STORE 1 TO MSC STORE 4 TO MCO STORE 6 TO MSN STORE 30 TO MGP * MCO = COLON POSITION * MGN = GRADE POSITION, MSN = STUDENT NAME POSITION * MX = COLUMN, MY = ROW, MZ = COUNT ROWS, MSC = STUDENT # STORE " " TO MNAME GOTO TOP DO WHILE .NOT. EOF IF MZ = 21 STORE 2 TO MY STORE 40 TO MX STORE 43 TO MCO STORE 45 TO MSN STORE 69 TO MGP ENDIF @ MY,MX SAY STR(#,2) @ MY,MCO SAY ":" @ MY,MSN SAY NAME IF &MFIELD&MNU = 999.00 @ MY,MGP SAY " -- " ELSE @ MY,MGP SAY &MFIELD&MNU ENDIF STORE MSC + 1 TO MSC STORE MY + 1 TO MY STORE MZ + 1 TO MZ SKIP ENDDO STORE T TO MYES2 DO WHILE MYES2 @ 23,0 SAY " " STORE " " TO MSNUM @ 22,0 SAY " Type 0 to quit or STUDENT # to Change a grade ----> "; GET MSNUM READ IF VAL(MSNUM) = 0 STORE F TO MYES2 ELSE IF VAL(MSNUM) > MLASTNAME RELEASE MSNUM LOOP ENDIF GOTO VAL(MSNUM) STORE " " TO MGRADE @ 22,0 SAY " " @ 22,0 SAY " Write in the Correct Grade for STUDENT Number ---->" IF VAL(MSNUM) < 21 @ 1 + VAL(MSNUM),29 SAY "> " GET MGRADE ELSE @ 1 + VAL(MSNUM) - 20,68 SAY "> " GET MGRADE ENDIF READ REPLACE &MFIELD&MNU WITH VAL(MGRADE) RELEASE MGRADE IF VAL(MSNUM) < 21 @ 1 + VAL(MSNUM),28 SAY " " @ 1 + VAL(MSNUM),30 SAY &MFIELD&MNU ELSE @ 1 + VAL(MSNUM) - 20,67 SAY " " @ 1 + VAL(MSNUM) - 20,69 SAY &MFIELD&MNU ENDIF ENDIF @ 23,30 SAY " " ENDDO STORE T TO MRECALC STORE " " TO MCHOICE DO WHILE MRECALC @ 23,10 SAY "RECALCULATE ALL GRADES? " GET MCHOICE PICT "!" READ IF MCHOICE = "N" STORE F TO MRECALC ELSE IF MCHOICE = "Y" GOTO TOP ERASE DO WHILE .NOT. EOF @ 12,0 SAY " " ? "UPDATING STUDENT RECORD" ? # ?? " " + NAME ?? " " DO CALTOTAL STORE 0.00 TO MTOTAL STORE MTOT/MAVG TO MTOTAL REPLACE TOTAL WITH MTOTAL DO GETGRADE REPLACE GRADE WITH MGRADE SKIP ENDDO STORE F TO MRECALC ELSE LOOP ENDIF ENDIF ENDDO @ 23,20 SAY" " @ 22, 0 SAY " " INPUT " ADD ANOTHER GRADE? " TO MYES1 ENDDO SET BELL ON SET DELETED ON set confirm off set colon on RETURN NDDO SET BELL ON SET DELETED ON set confirm off set colon on RETURN  LOOP ENDIF ENDIF ENDDO @ 23,20 SAY" " @ 22, 0 SAY " " INPUT " ADD ANOTHER GRADE? " TO MYES1 ENDDO SET BELL ON SET DELETED ON set confirm off set colon on RETURN LACE TOTAL WITH MTOTAL DO GETGRADE REPLACE GRADE WITH MGRADE SKIP * ADJUST.CMD set confirm on set talk off set bell on set colon off store f to mdone do while .not. mdone erase @ 0,50 say "CLASS: " + FILE2 text ADJUST A STUDENTS GRADE You will be using the Dbase command BROWSE. Use the following control keys to move around your file: ^W Return to Menu (QUIT BROWSE) ^R Move up one record ^C Move down one record ^F Move right one field ^A Move left one field endtext store " " to mchoice @ 12,10 say "Which Grading Period Do You Want? " @ 14,10 say " 1] Grading Period 1 " @ 15,10 say " 2] Grading Period 2 " @ 16,10 say " 3] The Present Grading Period " @ 17,10 say " 4] QUIT " @ 19,10 say "Make Your Choice ---> " get mchoice pict "##" read if mchoice = "1" goto top browse fields NAME, GRADE1 endif if mchoice = "2" goto top browse fields NAME, GRADE2 endif if mchoice = "3" goto top browse fields NAME, GRADE endif if mchoice = "4" store t to mdone endif enddo set colon on set confirm on release all like m* return * release choice release done set confirm off set bell on return NPtASN15NVtPROJ01N\tPROJ02NbtPROJ03NhtPROJ04NntPROJ05NttTEST01NztTEST02NtTEST03NtTEST04NtTEST05NtTOTALNtGRADECtGRADE1CtGRADE2ore " " to mchoice @ 12,10 say "Which Grading Period Do You Want? " @ 14,10 say " 1] Grading Period 1 " @ 15,10 say " 2] Grading Period 2 " @ 16,10 say " 3] The Present Grading Period " @ 17,10 say " 4] QUIT " @ 19,10 say "Make Your Choice ---> " get mchoice pict "##" read if mchoice = "1" goto top browse fields NAME, GRADE1 endif if mchoice = "2" goto top browse fields NAME, GRADE2 endif if mchoic* TOTAL.CMD STORE 0 TO MTOT STORE 1 TO MCOUNT STORE 0 TO MASGN STORE 0 TO MAVG DO WHILE MCOUNT <= 15 IF MCOUNT < 10 STORE "ASN0" + STR(MCOUNT,1) TO MASGN ELSE STORE "ASN" + STR(MCOUNT,2) TO MASGN ENDIF IF &MASGN <> 999.00 STORE (&MASGN * AVAL) + MTOT TO MTOT STORE AVAL + MAVG TO MAVG ENDIF STORE 1 + MCOUNT TO MCOUNT ENDDO STORE 1 TO MCOUNT DO WHILE MCOUNT <= 5 STORE "TEST0" + STR(MCOUNT,1) TO MASGN IF &MASGN <> 999.00 STORE (&MASGN * TVAL) + MTOT TO MTOT STORE TVAL + MAVG TO MAVG ENDIF STORE 1 + MCOUNT TO MCOUNT ENDDO STORE 1 TO MCOUNT DO WHILE MCOUNT <= 5 STORE "PROJ0" + STR(MCOUNT,1) TO MASGN IF &MASGN <> 999.00 STORE (&MASGN * PVAL) + MTOT TO MTOT STORE PVAL + MAVG TO MAVG ENDIF STORE 1 + MCOUNT TO MCOUNT ENDDO RETURN  ENDIF IF SELECTION = 4 USE &FILE DO ADDGRADE ENDIF IF SELECTION = 5 USE &FILE INDEX &FIL* CHOOSE.CMD store f to found set colon off set talk off set bell off set confirm on do while .not. found goto top store f to var erase store " " to man store " " to mname @ 13,17 say "Press to see Student List." @ 10,10 say "TYPE IN STUDENT NAME------> " get mname pict ; "!!!!!!!!!!!!!!!!!!!!!!!!!" @ 11,35 say "Last Name, First Name" @ 15,20 say "Type QUIT to return to MENU." read if mname = "QUIT" + " " release all like m* release found return endif if mname = " " do EDIT1 else locate for name = trim("&mname") if eof @ 20,10 say "Student Not Found. Try Again." store 1 to count do while count < 60 store count + 1 to count enddo release count loop else do edit endif endif enddo release all like m* release found release var return 999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.0002/03/86 WALSH, TRINA A NM 999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.0002/03/86 WARD, KAREN A NM 999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.0QUIT" + " " release all like m* release found return endif if mname = " " do EDIT1 else locate for name = trim("&mname") if eof @ 20,10 say "Student Not Found. Try Again." store 1 to count do while count < 60 store count + 1 to count enddo release count loop else do edit endif endif enddo release all like* CORRECT.CMD STORE F TO DONE store " " to mch DO WHILE .NOT. DONE @ 20,0 say "Type ame, est, ssignment,

roject, ecalculate" @ 21,0 SAY " " @ 21,0 SAY " (G)et another student, Scroll orward, ack or Q(uit)." @ 22,0 say " Your Choice ---> " set console off wait to mch set console on store !(mch) to mch @ 20,0 SAY " " @ 21,0 SAY " " @ 22,0 SAY " " store t to mnoask DO CASE CASE !(MCH) = "N" STORE " " TO MNAME @ 20,0 SAY "NAME(last, first) " GET MNAME; PICT "!!!!!!!!!!!!!!!!!!!!!!!!!" READ IF .NOT. ", " $MNAME @ 22,0 SAY "INVALID ENTRY: ENTER LAST NAME, FIRST NAME!" LOOP ELSE @ 22,0 SAY " " REPLACE NAME WITH MNAME @ 1,20 SAY NAME ENDIF STORE F TO MASK CASE !(MCH) = "T" STORE " " TO MSVAR @ 21,0 SAY "WHICH TEST? " GET MSVAR READ IF VAL(MSVAR) > 5 .or. VAL(MSVAR) < 1 @ 22,10 SAY "NO SUCH TEST" RELEASE MSVAR LOOP ENDIF STORE VAL(MSVAR) TO MVAR STORE " " TO MGRADE @ 20,0 SAY "TYPE IN NEW GRADE --> " GET MGRADE READ IF MVAR = 1 REPLACE TEST01 WITH VAL(MGRADE) @ 3,50 SAY TEST01 ELSE IF MVAR = 2 REPLACE TEST02 WITH VAL(MGRADE) @ 4,50 SAY TEST02 ELSE IF MVAR = 3 REPLACE TEST03 WITH VAL(MGRADE) @ 5,50 SAY TEST03 ELSE IF MVAR = 4 REPLACE TEST04 WITH VAL(MGRADE) @ 6,50 SAY TEST04 ELSE IF MVAR = 5 REPLACE TEST05 WITH VAL(MGRADE) @ 7,50 SAY TEST05 ENDIF 5 ENDIF 4 ENDIF 3 ENDIF 2 ENDIF 1 CASE !(MCH) = "P" STORE " " TO MSVAR @ 21,0 SAY "WHICH PROJECT? " GET MSVAR READ IF VAL(MSVAR) > 5 .or. VAL(MSVAR) < 1 @ 21,0 SAY " " @ 22,10 SAY "NO SUCH PROJECT!" RELEASE MSVAR LOOP ENDIF STORE VAL(MSVAR) TO MVAR STORE " " TO MGRADE @ 20,0 SAY "TYPE IN NEW GRADE --> " GET MGRADE READ STORE "PROJ0"+STR(MVAR,1) TO PROJECT REPLACE &PROJECT WITH VAL(MGRADE) @ 8+VAL(MSVAR),50 SAY &PROJECT CASE !(MCH) = "A" STORE " " TO MAVAR @ 21,0 SAY "WHICH ASSIGNMENT? " GET MAVAR READ IF VAL(MAVAR) > 15 .or. VAL(MAVAR) < 1 @ 21,0 SAY " " @ 22,10 SAY "NO SUCH ASSIGNMENT! " RELEASE MAVAR LOOP ENDIF STORE VAL(MAVAR) TO MVAR STORE " " TO MGRADE @ 20,0 SAY "TYPE IN NEW GRADE --> " GET MGRADE READ IF MVAR = 1 REPLACE ASN01 WITH VAL(MGRADE) @ 3,14 SAY ASN01 ENDIF IF MVAR = 2 REPLACE ASN02 WITH VAL(MGRADE) @ 4,14 SAY ASN02 ENDIF IF MVAR = 3 REPLACE ASN03 WITH VAL(MGRADE) @ 5,14 SAY ASN03  ENDIF IF MVAR = 4 REPLACE ASN04 WITH VAL(MGRADE) @ 6,14 SAY ASN04 ENDIF IF MVAR = 5 REPLACE ASN05 WITH VAL(MGRADE) @ 7,14 SAY ASN05 ENDIF IF MVAR = 6 REPLACE ASN06 WITH VAL(MGRADE) @ 8,14 SAY ASN06 ENDIF IF MVAR = 7 REPLACE ASN07 WITH VAL(MGRADE) @ 9,14 SAY ASN07 ENDIF IF MVAR = 8 REPLACE ASN08 WITH VAL(MGRADE) @ 10,14 SAY ASN08 ENDIF IF MVAR = 9 REPLACE ASN09 WITH VAL(MGRADE) @ 11,14 SAY ASN09 ENDIF IF MVAR = 10 REPLACE ASN10 WITH VAL(MGRADE) @ 12,14 SAY ASN10 ENDIF IF MVAR = 11 REPLACE ASN11 WITH VAL(MGRADE) @ 13,14 SAY ASN11 ENDIF IF MVAR = 12 REPLACE ASN12 WITH VAL(MGRADE) @ 14,14 SAY ASN12 ENDIF IF MVAR = 13 REPLACE ASN13 WITH VAL(MGRADE) @ 15,14 SAY ASN13 ENDIF IF MVAR = 14 REPLACE ASN14 WITH VAL(MGRADE) @ 16,14 SAY ASN14 ENDIF IF MVAR = 15 REPLACE ASN15 WITH VAL(MGRADE) @ 17,14 SAY ASN15 ENDIF CASE !(MCH) = "R" STORE T TO DONE STORE F TO MNOASK CASE !(MCH) = "Q" STORE T TO DONE STORE F to MASK STORE F TO yes STORE T TO FOUND CASE !(MCH) = "G" STORE T TO DONE STORE F TO MASK STORE F TO myes case !(mch) = "F" store t to done skip case !(mch) = "B" store t to done skip -1 OTHERWISE  loop ENDCASE ENDDO RETURN 0 SAY TEST03 ELSE IF MVAR = 4 REPLACE TEST04 WITH VAL(MGRADE) @ 6,50 SAY TEST04 ELSE IF MVAR = 5 REPLACE TEST05 WITH VAL(MGRADE) @ 7,50 SAY TEST05 ENDIF 5 ENDIF 4 ENDIF 3 ENDIF 2 ENDIF 1 CASE !(MCH) = "P" F CASE !(MCH) = "R" STORE T TO DONE STORE F TO MNOASK CASE !(MCH) = "Q" STORE T TO DONE STORE F to MASK STORE F TO yes STORE T TO FOUND CASE !(MCH) = "G" STORE T TO DONE STORE F TO MASK STORE F TO myes case !(mch) = "F" store t to done skip case !(mch) = "B" store t to done skip -1 OTHERWISE * CREATE set talk off erase ? ? " BEGIN NEW GRADING PERIOD" ? TEXT This option allows the user to begin the second and third grading period. If you wish to continue press the letter "C". I you wish to return to the MENU, press the letter "R". WARNING!!!!! YOU WILL NOT BE ALLOWED TO USE THE SAME NAME FOR YOUR NEW FILE AS THE ONE ALREADY USED. ENDTEXT store " " to mchoice store f to mdone do while .not. mdone set bell off @ 12, 0 say "[C]ontinue or [R]eturn------->? " get mchoice read if !(mchoice) = "R" set bell on store t to mdone release all like m* return endif if !(mchoice) = "C" store t to mdone else loop endif enddo store f to mdone store " " to mchoice do while .not. mdone @ 15,10 say "Are you starting grading period 2 or 3 ---> " get mchoice read if mchoice = "2" do TWO store t to mdone endif if mchoice = "3" do THREE store t to mdone else loop endif set bell on release all like m* return enddo 0999.00999.00999.00999.00999.00999.00999.00999.00999.00 3.00 11.00999.00999.00999.00 15.00 3.00 0.00999.00999.0002/04/85 VILLANUEBA, JOSE D C-D- 4.43 12.00 5.00999.00 7.00 9.00 7.00999.00999.00999.00999.00999.00999.00999.00999.00999.00 5.00 0.00999.00999.00999.00 4.00 3.00 9.00999.00999.0002/04/85 WASSGREEN, FREot. mdone set bell off @ 12, 0 say "[C]ontinue or [R]eturn------->? " get mchoice read if !(mchoice) = "R" set bell on store t to mdone release all like m* return endif if !(mchoice) = "C" store t to mdone else loop endif enddo store f to mdone store " " to mchoice do while .not. mdone @ 15,10 say "Are you starting grading period 2 or 3 ---> " get mchoice read if mchoice = "2" do TWO store t to mdone VASSN1C(|ASSN2C(+|ASSN3C(S|ASSN4C({|ASSN5C(|ASSN6C(|ASSN7C(|ASSN8C(}ASSN9C(C}ASSN10C(k}ASSN11C(}ASSN12C(}ASSN13C(}ASSN14C( ~ASSN15C(3~PROJ1C([~PROJ2C(~PROJ3C(~PROJ4C(~PROJ5C(~TEST1C(#TEST2C(KTEST3C(sTEST4C(TEST5C( NONE NONE NONE NONE NONE NONE NONE NONE NONE NONE NONE NONE NONE  NONE NONE NONE NONE NONE NONE NONE NONE NONE NONE NONE NONE  NONE NONE NONE NONE NONE NONE NONE NONE NONE NONE NONE NONE NONE  * EDIT.CMD SET TALK OFF set colon off set confirm on STORE T TO MASK STORE 1 TO MONE STORE T TO MNOASK erase DO WHILE MASK STORE 1 TO X STORE 0 TO MTOT STORE 0 TO MAVG STORE "01" TO MNUM @ 1, 0 SAY "Edit the record of" @ 1,20 SAY NAME @ 2, 0 SAY "--------------------------------------------------" @ 2,50 SAY "------------------------------" @ 3, 5 SAY "Assn 1:" IF ASN01 = 999.00 @ 3,14 SAY " -- " ELSE @ 3,14 SAY ASN01 ENDIF @ 3,40 SAY "Test 1:" IF TEST01=999.00 @ 3,50 SAY " -- " ELSE @ 3,50 SAY TEST01 ENDIF @ 4, 5 SAY "Assn 2:" IF ASN02 = 999.00 @ 4,14 SAY " -- " ELSE @ 4,14 SAY ASN02 ENDIF @ 4,40 SAY "Test 2:" IF TEST02 = 999.00 @ 4,50 SAY " -- " ELSE @ 4,50 SAY TEST02 ENDIF @ 5, 5 SAY "Assn 3:" IF ASN03 = 999.00 @ 5,14 SAY " -- " ELSE @ 5,14 SAY ASN03 ENDIF @ 5,40 SAY "Test 3:" IF TEST03 = 999.00 @ 5,50 SAY " -- " ELSE @ 5,50 SAY TEST03 ENDIF @ 6, 5 SAY "Assn 4:" IF ASN04 = 999.00 @ 6,14 SAY " -- " ELSE @ 6,14 SAY ASN04 ENDIF @ 6,40 SAY "Test 4:" IF TEST04 = 999.00 @ 6,50 SAY " -- " ELSE @ 6,50 SAY TEST04 ENDIF @ 7, 5 SAY "Assn 5:" IF ASN05 = 999.00 @ 7,14 SAY " -- " ELSE @ 7,14 SAY ASN05 ENDIF @ 7,40 SAY "Test 5:" IF TEST05 = 999.00 @ 7,50 SAY " -- " ELSE @ 7,50 SAY TEST05 ENDIF @ 8, 5 SAY "Assn 6:" IF ASN06 = 999.00 @ 8,14 SAY " -- " ELSE @ 8,14 SAY ASN06 ENDIF @ 9,40 SAY "Proj. 1:" IF PROJ01 = 999.00 @ 9,50 SAY " -- " ELSE @ 9,50 SAY PROJ01 ENDIF @ 9, 5 SAY "Assn 7:" IF ASN07 = 999.00 @ 9,14 SAY " -- " ELSE @ 9,14 SAY ASN07 ENDIF @ 10,40 SAY "Proj. 2:" IF PROJ02 = 999.00 @ 10,50 SAY " -- " ELSE @ 10,50 SAY PROJ02 ENDIF @ 10, 5 SAY "Assn 8:" IF ASN08 = 999.00 @ 10,14 SAY " -- " ELSE @ 10,14 SAY ASN08 ENDIF @ 11,40 SAY "Proj. 3:" IF PROJ03 = 999.00 @ 11,50 SAY " -- " ELSE @ 11,50 SAY PROJ03 ENDIF @ 11, 5 SAY "Assn 9:" IF ASN09 = 999.00 @ 11,14 SAY " -- " ELSE @ 11,14 SAY ASN09 ENDIF @ 12,40 SAY "Proj. 4:" IF PROJ04 = 999.00 @ 12,50 SAY " -- " ELSE @ 12,50 SAY PROJ04 ENDIF @ 12, 5 SAY "Assn 10:" IF ASN10 = 999.00 @ 12,14 SAY " -- " ELSE @ 12,14 SAY ASN10 ENDIF @ 13,40 SAY "PROJ. 5:" IF PROJ05 = 999.00 @ 13,50 SAY " -- " ELSE @ 13,50 SAY PROJ05 ENDIF @ 13, 5 SAY "Assn 11:" IF ASN11 = 999.00 @ 13,14 SAY " -- " ELSE @ 13,14 SAY ASN11 ENDIF @ 14, 5 SAY "Assn 12:" IF ASN12 = 999.00 @ 14,14 SAY " -- " ELSE @ 14,14 SAY ASN12 ENDIF @ 15, 5 SAY "Assn 13:" IF ASN13 = 999.00 @ 15,14 SAY " -- " ELSE @ 15,14 SAY ASN13 ENDIF @ 16, 5 SAY "Assn 14:" IF ASN14 = 999.00 @ 16,14 SAY " -- " ELSE @ 16,14 SAY ASN14 ENDIF @ 17, 5 SAY "Assn 15:" IF ASN15 = 999.00 @ 17,14 SAY " -- " ELSE @ 17,14 SAY ASN15 ENDIF @ 15,36 SAY "Grade average:" IF TOTAL = 999.00 STORE 0.00 TO MTOTAL ELSE STORE TOTAL TO MTOTAL ENDIF @ 15,52 SAY MTOTAL @ 17,36 SAY "Letter Grade: " @ 17,50 SAY GRADE @ 7,60 say "Grade Period 1" @ 8,65 say GRADE1 @ 11,60 say "Grade Period 2" @ 12,65 say GRADE2 @ 18, 0 SAY "--------------------------------------------------" @ 18,50 SAY "------------------------------" @ 19, 0 SAY " What do you want to correct?" @ 22,30 say " " DO CORRECT if .NOT. MNOASK @ 22,35 SAY "WORKING! Kick back for a few seconds." DO CALTOTAL STORE MTOT/MAVG TO MTOTAL DO GETGRADE REPLACE TOTAL WITH MTOTAL REPLACE GRADE WITH MGRADE store str(mtotal,6,2) to sttotal @ 15,52 SAY sttotal using "###.##" @ 17,50 SAY " " @ 17,50 SAY mgrade STORE T TO MNOASK release sttotal endif ENDDO release all like m* return  IF TEST02 = 999.00 @ 4,50 SAY " -- " ELSE @ 4,50 SAY TEST02 ENDIF @ 5, 5 SAY "Assn 3:" IF ASN03 = 999.00 @ 5,14 SAY " -- " ELS* EDIT1.CMD store t to yes do while yes erase @ 1, 0 say "EDIT STUDENT RECORD" @ 0,55 say "CLASS: " + FILE2 goto top store 41 to mtop do LISTNAME store " " to mnum store t to myes1 store f to myes2 do while myes1 @ 22, 0 say " Type 0 to QUIT or # of student to EDIT --> " ; get mnum read if val(mnum) = 0 store f to yes store f to myes1 else store val(mnum) to mstudent goto mstudent do edit store f to myes1 loop endif enddo enddo release all like m* release yes return .00999.0002/03/86 FAUBLE, LATISHA A NMA 13.50 12.00 15.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.0003/04/86 GARDNER, LIZ (ELIZABETH) D NMF 0.00 0.00999.00999.00999.00999.00999.00999.00999.00999.00999.009* ENTER.CMD SET TALK OFF STORE T TO MANOTHER DO WHILE MANOTHER ERASE GOTO BOTTOM STORE # + 1 TO NBR STORE STR(NBR,2) TO NBR1 @ 1,10 SAY "STUDENT # " + NBR1 STORE " " TO MNAME STORE DATE() TO MDATE STORE F TO MOK DO WHILE .NOT. MOK @ 5,10 SAY "NAME --------> " GET MNAME PICT "!!!!!!!!!!!!!!!!!!!!!!!!!" @ 6,10 SAY " (Last Name, First Name)" @ 19,25 SAY "Type END to Quit." READ @ 19,25 SAY " " IF MNAME = "END" + " " STORE T TO MOK STORE F TO MANOTHER RELEASE ALL LIKE M* RETURN ELSE IF .NOT. ", " $MNAME @ 20,10 SAY "INVALID ENTRY: ENTER LAST NAME, FIRST NAME!" LOOP ELSE @ 8,10 SAY "ENTRY DATE --> " GET MDATE PICT "##/##/##" @ 20,10 SAY " Hit or Type Correct Date." READ ENDIF ENDIF @ 20,10 SAY " " @ 15, 0 SAY " " INPUT " IS ENTRY CORRECT ? " TO MOK ENDDO APPEND BLANK REPLACE NAME WITH MNAME, ENTER WITH MDATE REPLACE GRADE1 with "NM" REPLACE GRADE2 with "NM" REPLACE TOTAL WITH 999.00 STORE 1 TO MCNT DO WHILE MCNT <6 STORE "TEST0"+STR(MCNT,1) TO MFLD REPLACE &MFLD WITH 999.00 STORE 1 + MCNT TO MCNT ENDDO STORE 1 TO MCNT DO WHILE MCNT <6 STORE "PROJ0"+STR(MCNT,1) TO MFLD REPLACE &MFLD WITH 999.00 STORE 1 + MCNT TO MCNT ENDDO STORE 1 TO MCNT DO WHILE MCNT < 16 IF MCNT<10 STORE "ASN0"+STR(MCNT,1) TO MFLD ELSE STORE "ASN" +STR(MCNT,2) TO MFLD ENDIF REPLACE &MFLD WITH 999.00 STORE 1 + MCNT TO MCNT ENDDO ENDDO release all like M* RETURN  READ @ 19,30 SAY " * FINGRADE.CMD if mav > 11.49 store "A+" to ngrade else if mav > 10.49 store "A " to ngrade else if mav > 9.49 store "A-" to ngrade else if mav > 8.49 store "B+" to ngrade else if mav > 7.49 store "B " to ngrade else if mav > 6.49 store "B-" to ngrade else if mav > 5.49 store "C+" to ngrade else if mav > 4.49 store "C " to ngrade else if mav > 3.49 store "C-" to ngrade else if mav > 2.49 store "D+" to ngrade else if mav > 1.49 store "D " to ngrade else if mav > .75 store "D-" to ngrade else store "F " to ngrade endif d- endif d endif d+ endif c- endif c endif c+ endif b- endif b endif b+ endif a- endif a endif a+ return 9.00999.00999.00999.00999.00999.00999.00999.00999.00 10.00999.00999.00999.00999.00 2.00999.00999.00999.00999.0009-27-84 WORMAN, DAVID B- F 1.06 8.00 8.00 0.00 0.00 0.00999.00999.00999.00999.00999.00999.00999.00999.00999 store "C " to ngrade else if mav > 3.49 store "C-" to ngrade else if mav > 2.49 store "D+" to ngrade else if mav > 1.49 store "D " to ngrade else if mav > .75 store "D-" to ngrade else store "F " to ngrad* GETCLASS.CMD STORE F TO MOK set colon off SET TALK OFF DO WHILE .NOT. MOK STORE " " TO FILE1 ERASE @ 0,30 SAY "GRADEBOOK - BY RON GROUT" LIST FILES @ 22,10 SAY "Enter Class File Name --> " GET FILE1 PICT "!!!!!!!!" READ STORE TRIM(FILE1)+".DBF" TO FILE STORE TRIM(FILE1) TO FILE2 IF .NOT. FILE(FILE) @ 12,10 SAY TRIM(MFILE1) + " does not exist" STORE 1 TO CNT DO WHILE CNT <= 40 STORE 1 + CNT TO CNT ENDDO LOOP ELSE STORE T TO MOK ENDIF ENDDO USE &FILE RELEASE ALL LIKE M* RETURN  RELEASE ALL LIKE M* RETURN  @ 10,15 SAY " 4] Print Class Reports(sub-Menu)" @ 11,15 SAY " 5] Begin a New Grading Period" @ 12,15 SAY " 6] Create a New Class" @ 13,15 SAY " 7] Change Active Class" @ 14,15 SAY " 8] Copy This File to Drive B: @ 15,15 SAY " 9] Exit Student Gradebook" @ 16,15 SAY " 10] QUIT DBASE II" ST* GETGRADE.CMD STORE " " TO MGRADE IF MTOTAL = 999.00 STORE "NM" TO MGRADE ENDIF IF MTOTAL = APLUS .OR. MTOTAL > APLUS STORE "A+" TO MGRADE ELSE IF MTOTAL = AA .OR. MTOTAL > AA STORE "A" TO MGRADE ELSE IF MTOTAL = AMINUS .OR. MTOTAL > AMINUS STORE "A-" TO MGRADE ELSE IF MTOTAL = BPLUS .OR. MTOTAL > BPLUS STORE "B+" TO MGRADE ELSE IF MTOTAL = BB .OR. MTOTAL > BB STORE "B" TO MGRADE ELSE IF MTOTAL = BMINUS .OR. MTOTAL > BMINUS STORE "B-" TO MGRADE ELSE IF MTOTAL = CPLUS .OR. MTOTAL > CPLUS STORE "C+" TO MGRADE ELSE IF MTOTAL = CC .OR. MTOTAL > CC STORE "C" TO MGRADE ELSE IF MTOTAL = CMINUS .OR. MTOTAL > CMINUS STORE "C-" TO MGRADE  ELSE IF MTOTAL = DPLUS .OR. MTOTAL > DPLUS STORE "D+" TO MGRADE ELSE IF MTOTAL = DD .OR. MTOTAL > DD STORE "D" TO MGRADE ELSE IF MTOTAL = DMINUS .OR. MTOTAL > DMINUS STORE "D-" TO MGRADE ELSE IF MTOTAL < DMINUS STORE "F" TO MGRADE ELSE IF TOTAL = 999.00 STORE "NM" TO MGRADE ENDIF NM ENDIF F ENDIF D- ENDIF D ENDIF D+ ENDIF C-  ENDIF C ENDIF C+ ENDIF B- ENDIF B ENDIF B+ ENDIF A- ENDIF A ENDIF A+ RETURN ADE ELSE IF MTOTAL = CC .OR. MTOTAL > CC STORE "C" TO MGRADE ELSE IF MTOTAL = CMINUS .OR. MTOTAL > CMINUS STORE "C-" TO MGRADE ELSE IF MTOTAL = DPLUS IF MTOTAL < DMINUS STORE "F" TO MGRADE ELSE IF TOTAL = 999.00 STORE "NM" TO MGRADE ENDIF NM ENDIF F ENDIF D- ENDIF D ENDIF D+ ENDIF C- * GP2.CMD @ 0,40 say "SECOND GRADING PERIOD" @ 3,10 say "How many weeks were there in ------>" store " " to mgone store " " to mgtwo store f to mweeks do while .not. mweeks @ 5,15 say "Grading Period 1...? " get mgone pict "##" @ 7,15 say "Grading Period 2...? " get mgtwo pict "##" read @ 10, 0 say " " input " IS ENTRY CORRECT ? " to mweeks enddo erase @ 12,30 SAY "PRINTING. PLEASE WAIT. " SET CONSOLE OFF set print on ? PLINE ?? PEMPH do while .not. eof store val(mgone) to mone store val(mgtwo) to mtwo if GRADE1 = "NM" store 0 to mone store 0 to mfirst else store GRADE1 to mnGRADE do LETGRADE store mtoto * mone to mfirst endif if GRADE = "NM" store 0 to mtwo store 0 to msecond else store GRADE to mnGRADE do LETGRADE store mtoto * mtwo to msecond endif store mone + mtwo to maverage store (mfirst + msecond)/maverage to mav do FINGRADE ? NAME + " " ?? GRADE1 + " " ?? GRADE + " " ?? ngrade + " " ?? ENTER ?? phalf skip enddo ? PENDE IF PEJECT EJECT ENDIF ? PENDS set print off SET CONSOLE ON return  enddo ? PENDS ? PENDE if peject eject endif set print off SET CONSOLE ON store t to mdoit endif if mask = "2" erase doPH do while .not. eof store val(mgone) to mone store val(mgtwo) to mtwo if GRADE1 = "NM" store 0 to mone store 0 to mfirst else store GRADE1 to mnGRADE do LETGRADE store mtoto * mone to mfirst endif if GRADE = "NM" store 0 to mtwo store 0 to msecond else store GRADE to mnGRADE do LETGRADE store mtoto * mtwo to msecond endif store mone + mtwo to maverage store (mfirst +* GP3.CMD @ 0,40 say "THIRD GRADING PERIOD" @ 3,10 say "How Many Weeks Were There in ------->" store " " to mgone store " " to mgtwo store " " to mgthree store f to mweeks do while .not. mweeks @ 5,15 say "Grading Period 1 ....? " get mgone pict "####" @ 7,15 say "Grading Period 2 ....? " get mgtwo pict "####" @ 9,15 say "Grading Period 3 ....? " get mgthree pict "####" read @ 13, 0 say " " input " Is Entry Correct ? " to mweeks enddo erase @ 12,30 SAY "PRINTING. PLEASE WAIT. " SET CONSOLE OFF set print on ? PLINE ?? PEMPH do while .not. eof store val(mgone) to mone store val(mgtwo) to mtwo store val(mgthree) to mthree if GRADE1 = "NM" store 0 to mone store 0 to mfirst else store GRADE1 to mnGRADE do LETGRADE store mtoto * mone to mfirst endif if GRADE2 = "NM" store 0 to mtwo store 0 to msecond else store GRADE2 to mnGRADE do LETGRADE store mtoto * mtwo to msecond endif if GRADE = "NM" store 0 to mthree store 0 to mthird else store GRADE to mnGRADE do LETGRADE store mtoto * mthree to mthird endif store mone + mtwo + mthree to maverage store (mfirst + msecond + mthird)/maverage to mav do FINGRADE ? NAME + " " ?? GRADE1 + " " ?? GRADE2 + " " ?? GRADE + " " ?? ngrade + " " ?? ENTER ?? phalf skip enddo ? PENDE if peject EJECT endif ? PENDS set print off SET CONSOLE ON return rst else store GRADE1 to mnGRADE do LETGRADE store mtoto * mone to mfirst endif if GRADE = "NM" store 0 to mtwo store 0 to msecond else store GRADE to mnGRADE do LETGRADE store mtoto * mtwo to msecond endif store mone + mtwo to maverage store (mfirst +VSCHOOLC|TEACHERC|CLASSC5|A:PLUSNN|ANT|A:MINUSNZ|B:PLUSN`|BNf|B:MINUSNl|C:PLUSNr|CNx|C:MINUSN~|D:PLUSN|DN|D:MINUSN|NO:MARKN|TESTVALN|PROJVALN|ASNVALN|PRINTERN| Hemet Junior High School MR. GROUT Computer Skills 14.50 13.50 12.50 11.50 10.50 9.50 8.50 7.50 6.50 5.50 4.50 3.50 3.00 3.00 1.00 2Hemet Junior High School MR. GROUT Computer Skills 14.50 13.50 12.50 11.50 10.50 9.50 8.50 7.50 6.50 5.50 4.50 3.50 3.00 3.00 1.00 2t Junior High School Mr. Grout Computer Skills 14.50 13.50 12.50 11.50 10.50 9.50 8.50 7.50 6.50 5.50 4.50 3.50 3.00 6.00 1.00ET TALK OFF RELEASE ALL STORE T TO TRUE USE GRADE STORE SCHOOL TO GSCHOOL STORE TEACHER TO GTEACHER STORE CLASS TO GCLASS STORE A:PLUS TO APLUS STORE A TO AA STORE A:MINUS TO AMINUS STORE B:PLUS TO BPLUS STORE B TO BB STORE B:MINUS TO BMINUS STORE C:PLUS TO CPLUS STORE C TO CC STORE C:MINUS TO CMINUS STORE D:PLUS TO DPLUS STORE D TO DD STORE D:MINUS TO DMINUS STORE TESTVAL TO TVAL STORE PROJVAL TO PVAL STORE ASNVAL TO A Hemet Junior High School MR. GROUT Computer Skills 14.50 13.50 12.50 11.50 10.50 9.50 8.50 7.50 6.50 5.50 4.50 3.50 3.00 3.00 1.00 2Hemet Junior High School MR. GROUT Computer Skills 14.50 13.50 12.50 11.50 10.50 9.50 8.50 7.50 6.50 5.50 4.50 3.50 3.00 3.00 1.00 2t Junior High School Mr. Grout Computer Skills 14.50 13.50 12.50 11.50 10.50 9.50 8.50 7.50 6.50 5.50 4.50 3.50 3.0* KILL erase store " " to mask STORE t to myes do while myes @ 1,25 say "DELETE CLASS RECORDS FOR " + FILE2 @ 10,10 say "If you continue, all student records will be wiped out!!!" @ 12,10 say " ARE YOU SURE ?" get mask read if !(mask) = "Y" delete all pack endif store f to myes endif release all like m* return t Student Gradebook" @ 15,15 SAY " 9] QUIT DBASE II" STORE " " TO SELECTION1 STORE 0 TO SELECTION DO WCORRECT CMD4PQRSTUVCREATE CMD WXDESCRIBEDBF YZEDIT CMD([\]^_EDIT1 CMD`ENTER CMDabFINGRADECMD cdGETCLASSCMDeGETGRADECMDfghGP2 CMD ijGP3 CMDklGRADE DBF mnKILL $$$* LETGRADE.CMD store 0 to mtoto if mnGRADE = "A+" store 12 to mtoto endif if mnGRADE = "A " store 11 to mtoto endif if mnGRADE = "A-" store 10 to mtoto endif if mnGRADE = "B+" store 9 to mtoto endif if mnGRADE = "B " store 8 to mtoto endif if mnGRADE = "B-" store 7 to mtoto endif IF mnGRADE = "C+" store 6 to mtoto endif IF mnGRADE = "C " store 5 to mtoto endif if mnGRADE = "C-" store 4 to mtoto endif if mnGRADE = "D+" store 3 to mtoto endif if mnGRADE = "D " store 2 to mtoto endif if mnGRADE = "D-" store 1 to mtoto endif return  computer is turned off, anything in RAM will be lost. RO͠- Rea Onl Memory RO i memor whic i buil int th compute whe yo ge it Yo canno writ t o chang ROM yo may only use it as it is written. * LISTNAME.CMD * mx = column * my = row * mz = count rows * mco = colon position * msn = student position store 2 to my store 0 to mx store 6 to msn store 1 to mz store 4 to mco do while .not. eof .and. # < mtop if mz = 21 store 2 to my store 40 to mx store 43 to mco store 45 to msn endif @ my,mx say str(#,2) @ my,mco say ":" @ my,msn say trim(NAME) store my + 1 to my store mz + 1 to mz skip enddo return CORRECT CMD4PQRSTUVCREATE CMD WXDESCRIBEDBF YZEDIT CMD([\]^_EDIT1 CMD`ENTER CMDabFINGRADECMD cdGETCLASSCMDeGETGRADECMDfghGP2 CMD ijGP3 CMDklGRADE DBF mnKILL CMDoLETGRADECMDpLISTNAME$$$ TNAMECsGRADE1CsGRADE2CsGRADECsTOTALNsASN01NsASN02NtASN03N tASN04NtASN05NtASN06NtASN07N"tASN08N(tASN09N.tASN10N4tASN11N:tASN12N@tASN13NFtASN14NLtASN15NRtPROJ01NXtPROJ02N^tPROJ03NdtPROJ04NjtPROJ05NptTEST01NvtTEST02N|tTEST03NtTEST04NtTEST05NtENTERCtLEAVECt ith Wright Ray Tiko Zeal ver arry Lawson Michelle Lemm Larry Lemmon Robert Lenyon Brian Lester Bill Lindahl Jim Linsley Jim Linsley Chris Luden Lori Luke Tracy Manista Scott Marsh Christina Martinez Cammie * MENU1.CMD SET TALK OFF STORE "-----------------------------------" + ; "-----------------------------------" TO LINE DO WHILE T RELEASE ALL LIKE M* set bell off set confirm on set colon off set talk off ERASE @ 1, 5 SAY LINE @ 2,15 SAY "Student Gradebook System Master Menu" @ 4,15 SAY "Number Description" SET INTENSITY OFF @ 4,50 SAY "ACTIVE CLASS: " + FILE2 SET INTENSITY ON @ 5, 5 SAY LINE @ 7,15 SAY " 1] Update a Class File(sub-Menu)" @ 8,15 SAY " 2] Edit a Student's Record" @ 9,15 SAY " 3] Add a Grade to an Entire Class" @ 10,15 SAY " 4] Print Class Reports(sub-Menu)" @ 11,15 SAY " 5] Begin a New Grading Period" @ 12,15 SAY " 6] Create a New Class" @ 13,15 say " 7] Define an Assignment, Test or Project" @ 14,15 say " 8] Copy Class Information to Another Drive" @ 15,15 SAY " 9] Change Active Class" @ 16,15 SAY " 10] Exit Student Gradebook" @ 17,15 SAY " 11] QUIT DBASE II" STORE " " TO SELECTION1 STORE 0 TO SELECTION DO WHILE SELECTION<1 .OR. SELECTION> 11 @ 19,12 SAY "Enter the desired choice --> " get selection1 ; pict"##" READ STORE VAL(SELECTION1) TO SELECTION ENDDO IF SELECTION = 1 USE &FILE DO UPDATE ENDIF IF SELECTION = 2 USE &FILE DO CHOOSE ENDIF IF SELECTION = 3 USE &FILE DO ADDGRADE ENDIF IF SELECTION = 4 DO PRINT ENDIF IF SELECTION = 5 USE &FILE DO CREATE ENDIF IF SELECTION = 6 DO NEW ENDIF IF SELECTION = 9 DO GETCLASS ENDIF IF SELECTION = 10 ERASE RETURN ENDIF IF SELECTION = 11 QUIT ENDIF IF SELECTION = 7 DO TOPIC USE &FILE ENDIF IF SELECTION = 8 USE &FILE ERASE STORE F TO MDONE store " " to mdrive DO WHILE .NOT. MDONE @ 10,10 SAY "Which Drive (A, B, C or uit)? " get mdrive pict "!" READ ERASE if mdrive = "A" .or. mdrive = "B" .or. mdrive = "C" @ 12,30 SAY "COPYING CLASS FILE TO " + "&MDRIVE" endif IF MDRIVE = "A" RESET A: STORE "A:" + "&FILE2" TO MFILE COPY TO &MFILE ELSE IF MDRIVE = "B" RESET B: STORE "B:" + "&FILE2" TO MFILE COPY TO &MFILE ELSE IF MDRIVE = "C" RESET C: STORE "C:" + "&FILE2" TO MFILE COPY TO &MFILE ELSE IF MDRIVE = "Q" STORE T TO MDONE ELSE LOOP ENDIF Q ENDIF C ENDIF B ENDIF A STORE T TO MDONE ENDDO RELEASE ALL LIKE M* ENDIF ENDDO DO WHILE .NOT. MDONE* NEW.CMD erase set talk off set colon off set confirm off @ 1,30 say "CREATE FILE OPTION" ? text This option is set up for the creation of your class files. It is to be used for adding new classes to your gradebook and not to begin a new grading period. USE NO MORE THAN EIGHT CHARACTERS for your file name. endtext store " " to mchoice store f to mdone do while .not. mdone @ 10,15 say "Press to Continue, to Quit. " get mchoice pict "!" read if mchoice = "Q" release all like m* return else if mchoice = "C" store t to mdone else loop endif endif enddo store f to mdone set confirm on do while .not. mdone store " " to mname @ 10,10 say " " @ 10,10 say "Give your file a name -----> " get mname pict "!!!!!!!!" read if "." $mname @ 15,20 say "INVALID ENTRY. Do not use a period(.)!" loop endif @ 15,20 say "  " store trim(mname) + ".DBF" to mclass if file(mclass) @ 15,20 say trim(mname) + " already exists." loop endif store t to mdone enddo erase @ 12,30 say "WORKING!!! Please do not TOUCH!!" use MASTER copy structure to &mclass use &file set confirm off set colon on release all like m* return  release all like m* return else if mchoice = "C" store t to mdone else loop endif endif enddo store f to mdone set confirm on do while .not. mdone store " " to mname @ 10,10 say " " @ 10,10 say "Give your file a name -----> " get mname pict "!!!!!!!!" read if "." $mname @ 15,20 say "INVALID ENTRY. Do not use a period(.)!" loop endif @ 15,20 say " * NEWTOPIC.CMD * This part of the program initializes the file describe so that * a new grading period may begin erase text INITIALIZE YOUR TOPICS This part of the program will INITIALIZE the file that contains all the descriptions of your Assignments, Tests and Projects. Make sure that you have printed them out before you you continue. Do this only at the beginning of a new Grading Period. Are You Sure You Want To Continue? Press [C] to Continue. Press any other key to Quit. endtext store " " to mchoice set console off wait to mchoice set console on if !(mchoice) = "C" erase @ 12,30 say "Working. Please Do Not Touch! " store 1 to mcount do while mcount < 10 store "assn" + str(mcount,1) to mfield replace &mfield with "NONE" store 1 + mcount to mcount enddo do while mcount < 16 store "assn" + str(mcount,2) to mfield replace &mfield with "NONE" store 1 + mcount to mcount enddo store 1 to mcount do while mcount <6 store "test" + str(mcount,1) to mfield1 store "proj" + str(mcount,1) to mfield2 replace &mfield1 with "NONE", &mfield2 with "NONE" store 1 + mcount to mcount enddo endif erase @ 12,30 say "Returning to Main Menu. " release all like m* return |TEST03N|TEST04N|TEST05N|ENTERC|LEAVE Press [C] to Continue. Press any other key to Quit. endtext store " " to mchoice set console off wait to mchoice set console on if !(mchoice) = "C" erase @ 12,30 say "Working. Please Do Not Touch! " store 1 to mcount do while mcount < 10 store "assn" + str(mcount,1) to mfield replace &mfield with "NONE" store 1 + mcount to mcount enddo do while mcount < 16 store "assn" + str(mcount,2) to mfield* ONEGRADE.CMD store F to mdone store " " to mchoice do while .not. mdone set confirm on erase text This function allows you to print out just one grade for all the students. Choose from below as to whether you want to have a TEST, PROJECT or ASSIGNMENT, then give the number of your choice. The students' grades can be printed in DESCENDING or ALPHABETICAL order. 1. Print Out a Test 2. Print Out a Project 3. Print Out an Assignment 4. Return to the Print Menu endtext store " " to mnum store F to mfin do while .not. mfin @ 12,15 say "Your Choice? ---> " get mchoice pict "#" read if val(mchoice) > 4 .or. val(mchoice) < 1 loop endif if mchoice = "1" do while val(mnum) < 1 .or. val(mnum) > 5 @ 14,15 say "Which Test? ---> " get mnum read enddo store "TEST0" + mnum to mfield endif if mchoice = "2" do while val(mnum) < 1 .or. val(mnum) > 5 @ 14,15 say "Which Project? ---> " get mnum read enddo store "PROJ0" + mnum to mfield endif if mchoice = "3" do while val(mnum) < 1 .or. val(mnum) > 15 @ 14,15 say "Which Assignment? ---> " get mnum read enddo if val(mnum) < 10 store "ASN0" + mnum to mfield else store "ASN" + mnum to mfield endif endif if mchoice = "4" store T to mdone store T to mfin release all like m* release all like n* return endif * SET UP PRINT OUT PARAMETERS erase store t to make store " " to mmake do while make @ 12,15 say "lphabetical or escending Grade Order? " get mmake  @ 13,15 say " Type A or D " read if !(mmake) = "A" erase @ 12,25 say "SORTING INFORMATION" sort on NAME to temp else if !(mmake) = "D" erase @ 12,25 say "SORTING INFORMATION" sort on &mfield to temp descending else loop endif endif store f to make enddo use temp goto top @ 12,25 SAY "PRINTING INFORMATION" set console off set print on * BEGIN PRINT OUT ? ? ? GSCHOOL + " " ?? "Class: " ?? GCLASS ? "Period: " + FILE2 ? "Assignment: " + mfield store 0 to msum store 0 to mstudent ? do while .not. eof ? " " ?? NAME if &mfield = 999.00 ?? " NM"  else ?? &mfield store msum + &mfield to msum store mstudent + 1 to mstudent endif skip enddo store msum/mstudent to mcav ? ? ? " Class Average: " ?? mcav eject set print off set console on store T to mfin use &FILE enddo enddo  if &mfield = 999.00 ?? " NM" else @ 12,25 SAY "PRINTING INFORMATION" set console off set print on * BEGIN PRINT OUT ? ? ? GSCHOOL + " " ?? "Class: " ?? GCLASS ? "Period: " + FILE2 ? "Assignment: " + mfield store 0 to msum store 0 to mstudent ? do while .not. eof ? " " ?? NAME if &mfield = 999.00 ?? " NM" * PARAM.CMD - Class Paramaters set talk off use GRADE append blank store f to DONE erase @ 0,32 say "CLASS PARAMETERS" @ 1, 0 say " " TEXT Type in the information you wish to change. If the information is correct, hit the Key until you get to the end of the changes. ENDTEXT do while .not. DONE @ 5,10 say "Instructer's Name > " get GTEACHER @ 6,10 say "School or Department > " get GSCHOOL @ 7,10 say "Class Name > " get GCLASS @ 9,10 say "A+ > " get APLUS @ 10,10 say "A > " get AA @ 11,10 say "A- > " get AMINUS @ 12,10 say "B+ > " get BPLUS @ 13,10 say "B > " get BB @ 14,10 say "B- > " get BMINUS @ 9,47 say "C+ > " get CPLUS @ 10,47 say "C > " get CC @ 11,47 say "C- > " get CMINUS @ 12,47 say "D+ > " get DPLUS @ 13,47 say "D > " get DD @ 14,47 say "D- > " get DMINUS @ 16,10 say "Weight of Tests(1 to 10) ---> " get TVAL @ 17,10 say "Weight of Projs(1 to 10) ---> " get PVAL @ 18,10 say "Weight of Assns(1 to 5) ---> " get AVAL @ 19,10 say "Choice of Printers ---------> " get GNUMBER @ 15,60 SAY "PRINTERS:" @ 16,62 SAY "1. COMMODORE" @ 17,62 SAY "2. EPSON" @ 18,62 SAY "3. MPS1000/IBM" @ 19,62 SAY "4. NEC" @ 20,62 SAY "5. ROYAL LQ" @ 21,62 SAY "6. OTHER" read @ 21, 0 say " " INPUT " Is this correct ? " to DONE enddo REPLACE SCHOOL WITH GSCHOOL, TEACHER WITH GTEACHER, CLASS WITH GCLASS REPLACE A:PLUS WITH APLUS, A WITH AA, A:MINUS WITH AMINUS REPLACE B:PLUS WITH BPLUS, B WITH BB, B:MINUS WITH BMINUS REPLACE C:PLUS WITH CPLUS, C WITH CC, C:MINUS WITH CMINUS REPLACE D:PLUS WITH DPLUS, D WITH DD, D:MINUS WITH DMINUS REPLACE TESTVAL WITH TVAL, PROJVAL WITH PVAL, ASNVAL WITH AVAL REPLACE PRINTER WITH GNUMBER goto top delete pack store f to DONE USE &FILE return OJVAL WITH PVAL, AS6,10 say "Weight of Tests(1 to 10) ---> " get TVAL @ 17,10 say "Weight of Projs(1 to 10) ---> " get PVAL @ 18,10 say "We* PICGRADE.CMD STORE F TO DONE ERASE DO WHILE .NOT. DONE STORE " " TO MGVAR @ 11,15 SAY " " @ 10,15 SAY "Record T(est), P(roject) or A(ssignment)----> ? " ; GET MGVAR PICT "!" READ @ 10,15 SAY " " IF MGVAR = "A" .OR. MGVAR = "A" STORE "ASN" TO MFIELD ELSE IF MGVAR = "T" .OR. MGVAR = "t" STORE "TEST" TO MFIELD ELSE IF MGVAR = "P" .OR. MGVAR = "p" STORE "PROJ" TO MFIELD ELSE @ 11,20 SAY "Type an uppercase A or T please" LOOP ENDIF ENDIF ENDIF STORE T TO DONE ENDDO @ 11,20 SAY " " STORE F TO DONE DO WHILE .NOT. DONE RELEASE MGVAR STORE " " TO MGVAR IF MFIELD = "TEST" @ 10,20 SAY "CHOOSE TEST NUMBER BETWEEN 1 AND 5 ----> ";  GET MGVAR READ @ 10,20 SAY " " IF VAL(MGVAR) > 5 @ 11,20 SAY "NO SUCH TEST!" LOOP ENDIF STORE "0" + STR(VAL(MGVAR),1) TO MNU STORE T TO DONE ENDIF IF MFIELD = "PROJ" @ 10,20 SAY "CHOOSE PROJECT # BETWEEN 1 AND 5 ----> "; GET MGVAR READ @ 10,20 SAY " " IF VAL(MGVAR) > 5 @ 11,20 SAY "NO SUCH PROJECT!" LOOP ENDIF STORE "0" + STR(VAL(MGVAR),1) TO MNU STORE T TO DONE ENDIF IF MFIELD = "ASN" @ 10,20 SAY "CHOOSE ASSIGNMENMENT # BETWEEN 1 AND 15 ----> "; GET MGVAR READ @ 10,20 SAY " " IF VAL(MGVAR) > 15 @ 11,20 SAY "NO SUCH ASSIGNMENT! " LOOP ENDIF IF VAL(MGVAR) > 9 STORE STR(VAL(MGVAR),2) TO MNU ELSE STORE "0" + STR(VAL(MGVAR),1) TO MNU ENDIF STORE T TO DONE ENDIF ENDDO RETURN  LOOP ENDIF ENDIF ENDIF STORE T TO DONE ENDDO @ 11,20 SAY " " STORE F TO DONE DO WHILE .NOT. DONE RELEASE MGVAR STORE " " TO MGVAR IF MFIELD = "TEST" @ 10,20 SAY "CHOOSE TEST NUMBER BETWEEN 1 AND 5. "; GET MGVAR @ 11,20 SAY "NO SUCH PROJECT!" LOOP ENDIF STORE "0" + STR(VAL(MGVAR),1) TO MNU STORE T TO DONE ENDIF IF MFIELD = "ASN" @ 10,20 SAY "CHOOSE ASSIGNMENMENT # BETWEEN 1 AND 15 ----> "; GET MGVAR READ @ 10,20 SAY " " IF VAL(MGVAR) > 15 @ 11,20 SAY "NO SUCH ASSIGNMENT! " LOOP ENDIF IF VAL(MGVAR) > 9 STORE S* PRINT.CMD use printer goto gnumber store escape to pes store emphasize to pem store space to psp store increment to pin store endemph to penem store endspace to pensp store halfline to pha store CHR(0 + pes) + CHR(0 + pem) to pemph IF PRINTER = TRIM("NEC") STORE CHR(27) + CHR(84) TO PSPACE STORE PSPACE + "33" TO PLINE ELSE store CHR(0 + pes) + CHR(0 + psp) to PSPACE STORE PSPACE + CHR(0 + pin) TO PLINE ENDIF store CHR(0 + pes) + CHR(0 + penem) to pende store CHR(0 + pes) + CHR(0 + pensp) to pends store CHR(0 + pes) + CHR(0 + pha) to phalf STORE GEJECT TO PEJECT STORE PRINTER TO PRINT store F to done do while .not. done set bell off set colon off ERASE set talk off @ 1, 5 SAY LINE @ 2,15 say "Print Out Report Menu" @ 2,50 SAY "Printer --> " + print set intensity off @ 3,15 say "ACTIVE CLASS: " + FILE2 set intensity on @ 4,15 SAY "Number Description" @ 5, 5 say line @ 7,15 say " 1] Print Class Grade Sheets" @ 8,15 say " 2] Print Class Summaries " @ 9,15 say " 3] Print Role Sheets" @ 10,15 say " - Using 1 1/2 Line Format" @ 11,15 say " 4] Print Out One Grade" @ 12,15 say " 5] Return to Master Menu" Store " " to selection1 store 0 to selection do while selection < 1 .or. selection > 6 @ 19,12 say "Enter the desired choice --> " get selection1 ; pict "##" read store val(selection1) to selection enddo if selection = 1 use &FILE do PRINT1 ERASE endif if selection = 2 use &FILE do PRINT2 ERASE endif if selection = 3 use &FILE do print3 ERASE endif if selection = 4 use &FILE do onegrade ERASE endif if selection = 5 store T to done endif enddo erase release all like M* store 0 to selection release selection1 release pemph release pline release pende release pends release phalf release peject return e CHR(0 + pes) + CHR(0 + pha) to phalf STORE GEJECT TO PEJECT STORE PRINTER TO PRINT store F to done do while .not. done set bell off set colon off ERASE set talk off @ 1, 5 SAY LINE @ 2,15 say "Print Out Report Menu" @ 2,50 SAY "Printer --> " + print set intensity off @ 3,15 say "ACTIVE CLASS: " + FILE2 set intensity on @ 4,15 SAY "Number Description" @ 5, 5 say line @ 7,15 say " 1] Print Clection1) to selection enddo if selection = 1 use &FILE do PRINT1 ERASE endif if selection = 2 use &FILE do PRINT2 ERASE endif if selection = 3 use &FILE do print3 ERASE endif if selection = 4 use &FILE do onegrade ERASE endif if selection = 5 store T to done endif enddo erase release all like M* store 0 to selection release selection1 release pemph release pline release pende release pends release pha* PRINT1 erase @ 12,30 say "PRINTING. Do not Touch!!!" SET print on set console off GOTO TOP DO WHILE .NOT. EOF STORE T TO MLINE DO WHILE MLINE .AND. .NOT. EOF ? ? GSCHOOL + " " ?? "PER. " + FILE2 ?? " CLASS > " + GCLASS ? GTEACHER ?? " DATE > " + DATE() ? ? " 1 2 3 4 5" + ; " 6 7 8 9 10" ? "========================================" + ; "======================================" STORE F TO MCON STORE 6 TO MNUM DO WHILE .NOT. MCON .AND. .NOT. EOF ? NAME ?? " GRADE ---> " + GRADE ? "TESTS" IF TEST01 = 999.00 ?? " --" ELSE store str(test01,4,0) to test ?? test ENDIF IF TEST02 = 999.00 ?? " --" ELSE store str(test02,4,0) to test ?? test ENDIF IF TEST03 = 999.00 ?? " --" ELSE store str(test03,4,0) to test ?? test ENDIF IF TEST04 = 999.00 ?? " --" ELSE store str(test04,4,1) to test ?? test ENDIF IF TEST05 = 999.00 ?? " --" ELSE store str(test05,4,0) to test ?? test ENDIF ?? " GPA -----> " IF TOTAL = 999.00 ?? " 00" ELSE ?? TOTAL ENDIF ? "PROJS" IF PROJ01 = 999.00 ?? " --" ELSE store str(proj01,4,0) to test ?? test ENDIF IF PROJ02 = 999.00 ?? " --" ELSE store str(proj02,4,0) to test ?? test ENDIF IF PROJ03 = 999.00 ?? " --" ELSE store str(proj03,4,0) to test ?? test ENDIF IF PROJ04 = 999.00 ?? " --" ELSE store str(proj04,4,0) to test ?? test ENDIF IF PROJ05 = 999.00 ?? " --" ELSE store str(proj05,4,0) to test ?? test ENDIF ? "ASSNS" IF ASN01 = 999.00 ?? " --" ELSE store str(asn01,4,0) to test ?? test ENDIF IF ASN02 = 999.00 ?? " --" ELSE store str(asn02,4,0) to test ?? test ENDIF IF ASN03 = 999.00 ?? " --" ELSE store str(asn03,4,0) to test ?? test ENDIF IF ASN04 = 999.00 ?? " --" ELSE store str(asn04,4,0) to test ?? test ENDIF IF ASN05 = 999.00 ?? " --" ELSE store str(asn05,4,0) to test ?? test ENDIF IF ASN06 = 999.00 ?? " --" ELSE store str(asn06,4,0) to test ?? test ENDIF IF ASN07 = 999.00 ?? " --" ELSE store str(asn07,4,0) to test ?? test ENDIF IF ASN08 = 999.00 ?? " --" ELSE store str(asn08,4,0) to test ?? test ENDIF IF ASN09 = 999.00 ?? " --" ELSE store str(asn09,4,0) to test ?? test ENDIF IF ASN10 = 999.00 ?? " --" ELSE store str(asn10,4,0) to test ?? test ENDIF IF ASN11 = 999.00 ? " --" ELSE ? " " store str(asn11,4,0) to test ?? test ENDIF IF ASN12 = 999.00 ?? " --" ELSE store str(asn12,4,0) to test ?? test ENDIF IF ASN13 = 999.00 ?? " --" ELSE store str(asn13,4,0) to test ?? test ENDIF IF ASN14 = 999.00 ?? " --" ELSE store str(asn14,4,0) to test ?? test ENDIF IF ASN15 = 999.00 ?? " --" ELSE store str(asn15,4,0) to test ?? test ENDIF SKIP STORE 5 + MNUM TO MNUM IF MNUM > 59 STORE T TO MCON ELSE LOOP ENDIF ENDDO ? ? ? ? ? ENDDO ENDDO store 5 + mnum to mnum store 66 to tnum do while mnum < tnum ? store 1 + mnum to mnum enddo set print off set console on release test, mnum, tnum return  store str(test01,4,0) to test ?? test ENDIF IF TEST02 = 999.00 ?? " --" ELSE store str(test02,4,0) to test ?? test ENDIF IF TEST03 = 999* PRINT2.CMD erase release all like m* release all like M* set confirm on set colon off set bell off goto top @ 1,30 say "PRINT OUT CLASS SUMMARIES" store " " to mask store f to mdoit do while .not. mdoit @ 3,10 say "Is this GRADING PERIOD 1, 2 or 3 ? " get mask pict "##" @ 4,10 say "Type 0 to RETURN TO THE PRINT MENU." read if mask = "0" store t to mdoit release all like m* return endif if mask = "1" erase @ 12,30 say "PRINTING. PLEASE WAIT. " SET CONSOLE OFF set print on ? PLINE ?? PEMPH do while .not. eof ? NAME + " " + ; GRADE + " " + ; ENTER SKIP enddo ? PENDE if peject eject endif ? PENDS set print off SET CONSOLE ON store t to mdoit endif if mask = "2" erase do GP2 store t to mdoit endif if mask = "3" erase do GP3 store t to mdoit else loop endif enddo set confirm off set colon on set bell on release escape release all like m* return N8(N> @ʹ/*2@I:T]O!r6#w#w#.+++++<:V]ªQ r1:X]-R6*{!zK(!0)!"m]R!d"i]Ϳ/|RM*ʞQR'ʞQ*m]#"m]*i]+"i]|nO:pInO*m]̓:ͪ:>' @!d"i]:W]{P:U]•O*xDM!{> l;!2 {P!2"f]!{"q]*f]~5aP#[;#,30 say "PRINTING. PLEASE WAIT. " SET CONSOLE OFF set print on ? PLINE ?? PEMPH do while .not. eof ? NAME + " " + ; GRADE + " " + ; ENTER SKIP enddo ? PENDE if peject eject endif ? PENDS set print off SET CONSOLE ON store t to mdoit endif if mask = "2" erase do G* PRINT3.CMD erase @ 12,30 say "PRINTING. PLEASE WAIT. " SET CONSOLE OFF GOTO TOP SET PRINT ON ? PEMPH ?? PLINE store 1 to mcount do while .not. EOF ? NAME ?? phalf store 1 + mcount to mcount skip enddo ? PENDE IF PEJECT EJECT ENDIF ? PENDS SET CONSOLE ON SET PRINT OFF release all like M* return V#ESCAPEN|EMPHASIZEN|SPACEN |INCREMENTN |ENDEMPHN|ENDSPACEN|HALFLINEN|GEJECTL|PRINTERC |ASCIIC#| 0 0 0 0 0 0 0FCOMMODORE 27 69 65 18 70 50 0tEPSON A 27 69 65 18 70 64 50tMPS100/IBM 27 33 84 0 34 65 0TNEC 50 27 0 0 0 0 0 85FROYAL LQ 0 0 0 0 0 0 0 OTHER :Y]vR*[]>:T]¥NçN>́*:fN8(N> @ʹ/*2@I:T]O!r6#w#w#.+++++<:V]ªQ r1:X]-R6*{!zK(!0)!"m]R!d"i]Ϳ/|RM*ʞQR'ʞQ*m]#"m]*i]+"i]|nO:pInO*m]̓:ͪ:>' @!d"i]:W]{P:U]•O*xDM!{> l;!2 {P!2"f]!{"q]*f]~5aP#[;#* PRNTOPIC.CMD * This module prints out the descriptions of the topics that are * created in TOPIC.CMD. There are no special print commands to adjust * the printer. erase @ 12,30 say "PRINTING. PLEASE WAIT! " set console off set print on ? ? ? " " ?? gteacher ? " " ?? gschool ? " " ?? date() ? ? "Listing of Class Assignments/Projects/Tests" ? line * 8 lines used for heading ? "Assignment 1 " ?? assn1 ? "Assignment 2 " ?? assn2 ? "Assignment 3 " ?? assn3 ? "Assignment 4 " ?? assn4 ? "Assignment 5 " ?? assn5 ? "Assignment 6 " ?? assn6 ? "Assignment 7 " ?? assn7 ? "Assignment 8 " ?? assn8 ? "Assignment 9 " ?? assn9 ? "Assignment 10 " ?? assn10 ? "Assignment 11 " ?? assn11 ? "Assignment 12 " ?? assn12 ? "Assignment 13 " ?? assn13 ? "Assignment 14 " ?? assn14 ? "Assignment 15 " ?? assn15 ? * 16 lines for assignments ? "Test 1 " ?? test1 ? "Test 2 " ?? test2 ? "Test 3 " ?? test3 ? "Test 4 " ?? test4 ? "Test 5 " ?? test5 ? * 6 lines for tests ? "Project 1 " ?? proj1 ? "Project 2 " ?? proj2 ? "Project 3 " ?? proj3 ? "Project 4 " ?? proj4 ? "Project 5 " ?? proj5 * 5 lines for tests store 35 to mnum do while mnum < 66 ? store 1 + mnum to mnum enddo set print off set console on @ 12,30 say "Returning to Main Menu. " store t to done release mnum return NT|A:MINUSNZ|B:PLUSN`|BNf|B:MINUSNl|C:PLUSNr|CNx|C:MINUSN~|D:PLUSN|DN|D:MINUSN|NO:MARKN|TESTVALN|PROJVALN|ASNVALN|  * REMOVE.CMD store t to myes do while myes erase @ 0,55 say "PERIOD " + FILE2 goto top store 41 to mtop do LISTNAME store " " to mnum store t to myes1 store f to myes2 do while myes1 @ 22, 0 say " Type 0 to QUIT or # of student to DELETE --> " ; get mnum read if val(mnum) = 0 store f to myes store f to myes1 else store val(mnum) to mstudent goto mstudent store " " to myes2 @ 23,10 say " " @ 23,10 say "Are You Sure ? " get myes2 read @ 23,10 say " " if !(myes2) = "Y" delete pack store f to myes1 else loop endif endif enddo enddo release all like m* return 999.00999.00999.00999.00 NMNM SLY, MARLIA NAMEC|GRADE1C|GRADE2C|GRADEC |TOTALN"|ASN01N(|ASN02N.|ASN03N4|ASN04N:|ASN05N@|ASN06NF|ASN07NL|ASN08NR|ASN09NX|ASN10N^|ASN11Nd|ASN12Nj|ASN13Np|ASN14Nv|ASN15N||PROJ01N|PROJ02N|PROJ03N|PROJ04N|PROJ05N|TEST01N|TEST02N|TEST03N|TEST04N|TEST05N|ENTERC|LEAVEC| ANNABLE, SUSAN B B- 999.00 6.00 7.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.0009/09/85 *ATCHESON, KAREN A-A- 999.00 13.00 15.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.0009/09/85 *CARLSON, JASON D-A 999.00 13.00 15.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.0009/09/85 *CARRILLO, KELLI(KELLINE) C+B 999.00 14.00 15.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.0009/09/85 *CASTELLO, LARRY(LAWRENCE)NMNM 999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.0001/21/86 *CHAPIN, JEFF(JEFFRY) B A 999.00 13.00 14.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.0009/09/85 *EIBEN, RICHARD D-F 999.00 11.00 1.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.0009/09/85 *ELLIS, JOSE F D 999.00 8.00 13.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.0012/13/85 *FLESHER, TOM(THOMAS) F F 999.00 12.00 13.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.0009/09/85 *GARCIA, KRISTAL C A+ 999.00 14.00 15.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.0009/09/85 *GUZMAN, MARY D-C- 999.00 0.00 13.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.0009/09/85 *MALINEN, LANA C-A- 999.00 12.00 12.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.0009/09/85 *MCKAY, VALERIE C B+ 999.00 14.00 14.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.0009/09/85 *MILHOLLAND, SHILOH B+C 999.00 14.00 9.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.0009/09/85 *MITROU, LEIGH ANN F D+ 999.00 11.00 9.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.0009/09/85 *MOORE, YVONNE B+A 999.00 14.00 15.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.0009/09/85 *NEELY, RON F D 999.00 10.00 14.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.0009/09/85 *NOORLANDER, JASON F C- 999.00 10.00 13.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999!.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.0009/09/85 *RIVERA, ANGEL NMNM 999.00 13.00 5.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.0009/09/85 *RYSER, STEVE A A 999.00 14.00 14.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.0009/09/85 *SALAZAR, TRICIA(PATRICIA)C C+ 999.00 14.00 15.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.0009/09/85 *SARGENT, ALBERT D C+ 999.00 9.00 0.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.0009/09/85 *SPRANGER, TODD A-A 999.00 14.00 13.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.0009/09/85 *VANDERLIP, BEN C D 999.00 0.00 13.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.0009/09/85 *WHATLEY, MARK(MARKUS) F F 999.00 0.00 4.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.0009/09/85  MOR, TRICIA(PATRICIA)C C+ 999.00 14.00 15.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.0009/09/85 *SARGENT, ALBERT D C+ 999.00 9.00 0.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.0009/09/85 *SPRANGER, TODD A-A 999.00 14.00 13.00999.00999.00999.00999.00999.00999.00999.00999.00999.00999.009 * THREE.CMD store f to mdoit store " " to mchoice do while .not. mdoit @ 17,10 say "Are you sure you want to continue ? "; get mchoice read if !(mchoice) = "Y" store t to mdoit endif if !(mchoice) = "N" store t to mdoit return else loop endif enddo store f to mdoit do while .not. mdoit store " " to mclass @ 20,10 say "Type the new class name ---> " get mclass; pict "!!!!!!!!" read store trim(mclass)+".DBF" to class if file(class) @ 22,10 say trim(mclass) + " exists. Choose another name." store 1 to mcnt do while mcnt <= 40 store 1 + mcnt to mcnt enddo @ 22,10 say " " loop else use MASTER copy structure to &class use &FILE store t to mdoit endif enddo erase @ 12,30 say "Working!!! Please do not TOUCH!!!" copy field NAME,ENTER,GRADE,GRADE1 to temp store f to mdoit use &class append from temp goto top store " " to mgrade do while .not. eof store GRADE to mgrade replace GRADE2 with mgrade replace GRADE with " " replace TOTAL with 999.00 store 1 to mcnt do while mcnt <6 store "TEST0" + str(mcnt,1) to mfld replace &mfld with 999.00 store 1 + mcnt to mcnt enddo store 1 to mcnt do while mcnt <6 store "PROJ0" + str(mcnt,1) to mfld replace &mfld with 999.00 store 1 + mcnt to mcnt enddo store 1 to mcnt do while mcnt <16 if mcnt <10 store "ASN0" + str(mcnt,1) to mfld else store "ASN" + str(mcnt,2) to mfld endif replace &mfld with 999.00 store 1 + mcnt to mcnt enddo skip enddo use &FILE return while .not. mdoit store " " to mclass @ 20,10 say "Type the new class name ---> " get mclass; pict "!!!!!!!!" read * TOPIC.CMD set talk off set colon off set confirm ON set bell off use describe GOTO TOP erase ? text DESCRIBE AN ASSIGNMENT You are allowed to give a brief description to each of your assign- ments, tests and projects. The description must no longer than thirty columns(letters). Choose your topic and write in the description, and it will be saved for later printouts. 1. Write a Description of an Assignment. 2. Write a Description of a Project. 3. Write a Description of a Test. 4. Print Out Your Descriptions. 5. Begin a New Grading Period/Erase Descriptions. 6. Quit and Return to the Menu. endtext * CHOOSE FIELD NAME store f to done do while .not. done store " " to mnum store " " to man set confirm on @ 18,15 say "Your Choice -------> " get man pict "#" read if val(man) > 6 .or. val(man) < 1 loop endif if val(man) = 6 release" done release all like m* return endif if val(man) = 4 do prntopic release done release all like m* return endif if val(man) = 5 do newtopic release done release all like m* RETURN endif @ 18,15 say " " store t to mloop do while mloop if man = "1" @ 18,15 say "Which Assignment -----> " get mnum pict "##" read if val(mnum) < 0 .or. val(mnum) > 15 loop endif endif if man = "2" @ 18,15 say "Which Project --------> " get mnum pict "##" read if val(mnum) < 0 .or. val(mnum) > 5 loop endif endif if man = "3" @ 18,15 say "Which Test -----------> " get mnum pict "##" read if val(mnum) <0 .or. val(mnum) > 5  loop endif endif store f to mloop enddo * SET FIELD NAME if man = "1" .and. val(mnum) < 10 store "ASSN" + str(&mnum,1) to mtopic else if man = "1" .and. val(mnum) > 9 store "ASSN" + str(&mnum,2) to mtopic else if man = "2" store "PROJ" + str(&mnum,1) to mtopic else if man = "3" store "TEST" + str(&mnum,1) to mtopic endif 3 endif 2 endif 1/10 endif 1/1 * FILL OUT THE DESCRIPTION store f to mdone store " " to mfield do while .not. mdone @ 18,15 say " " @ 18,15 say "Give Your Description: " set confirm on set colon on @ 19,16 say " " get mfield read set colon off set confirm off store f to mdoit do while .not. mdoit store " " to manswer @ 21,30 say "Is This Correct? " get manswer pict "!" read if manswer = "Y" store t to mdone store t to mdoit @ 21, 30 say " " @ 19,16 say " " else if manswer = "N" store t to mdoit @ 20,30 say " " else loop endif endif enddo release mdoit enddo replace &mtopic with "&mfield" enddo set confirm on release all like m* release done return on must no longer than thirty columns(letters). Choose your topic and write in the description, and it will be saved for later printouts. 1. Write a Description of an Assignment. 2. Write a Description * TWO.CMD store f to mdoit store " " to mchoice do while .not. mdoit @ 17,10 say "Are you sure you want to continue ? "; get mchoice read if !(mchoice) = "Y" store t to mdoit endif if !(mchoice) = "N" store t to mdoit return else loop endif enddo store f to mdoit do while .not. mdoit store " " to mclass @ 20,10 say "Type the new class name ---> " get mclass; pict "!!!!!!!!" read store trim(mclass)+".DBF" to class if file(class) @ 22,10 say trim(mclass) + " exists. Use another name." store 1 to mcnt do while mcnt <= 40 store 1 + mcnt to mcnt enddo @ 22,10 say " " loop else use MASTER copy structure to &class use &file store t to mdoit endif enddo erase @ 12,30 say "Working!!! Please do not TOUCH!!!" copy field NAME,ENTER,GRADE to temp store f to mdoit use &class append from temp goto top store " " to mgrade do while .not. eof store GRADE to mgrade replace GRADE1 with mgrade replace GRADE with " " replace TOTAL with 999.00 store 1 to mcnt do while mcnt <6 store "TEST0" + str(mcnt,1) to mfld replace &mfld with 999.00 store 1 + mcnt to mcnt enddo store 1 to mcnt do while mcnt <6 store "PROJ0" + str(mcnt,1) to mfld replace &mfld with 999.00 store 1 + mcnt to mcnt enddo store 1 to mcnt do while mcnt <16 if mcnt <10 store "ASN0" + str(mcnt,1) to mfld else store "ASN" + str(mcnt,2) to mfld endif replace &mfld with 999.00 store 1 + mcnt to mcnt enddo skip enddo use &FILE return >#* UPDATE.CMD set talk off store f to done do while .not. done set confirm on set bell off set colon off erase @ 1, 0 say "Menu to Update " + FILE2 @ 2,10 say "Choice Description" @ 3, 0 say LINE @ 4,10 say " 1] Enter a Student " @ 5,10 say " 2] Delete a Student " @ 6,10 say " 3] Alphabetize a Class " @ 7,10 say " 4] Change Class Parameters" @ 8,10 say " 5] Adjust a Student's Grade " @ 9,10 say " 6] DELETE A WHOLE CLASS " @ 10,10 say " 7] Recalculate all Class Grades" @ 11,10 SAY " 8] Return to Main Menu " store " " to choice store t to mcorrect do while mcorrect @ 15,10 say "Make Your Choice -----> " get choice pict "#" read if val(choice) < 1 .or. val(choice) > 8 loop else store f to mcorrect endif enddo if choice = "1" do enter endif if choice = "2" do remove endif if choice = "3" erase @ 12,35 say "WORKING. DO NOT TOUCH!!!" sort on name to temp use temp copy to &file use &file endif if choice = "4" do param endif if choice = "5" do adjust endif if choice = "6" do kill endif if choice = "7" STORE " " TO MANSW STORE F TO MDOIT ERASE DO WHILE .NOT. MDOIT @ 12,0 SAY "THIS WILL TAKE 4-12 MINUTES DEPENDING ON YOUR SYSTEM." @ 13,0 SAY " DO YOU WISH TO CONTINUE? " GET MANSW READ IF !(MANSW) = "Y" goto top erase do while .not. eof @ 12,0 say " " ? "UPDATING STUDENT RECORD" ? # ?? " " + NAME ?? " " DO CALTOTAL STORE 0.00 TO MTOTAL STORE MTOT/MAVG TO MTOTAL REPLACE TOTAL WITH MTOTAL DO GETGRADE REPLACE GRADE WITH MGRADE SKIP enddo STORE T TO MDOIT ENDIF IF !(MANSW) = "N" STORE T TO MDOIT ELSE LOOP ENDIF ENDDO endif if choice = "8" store t to done endif enddo release all like m* release choice release done set confirm off set bell on return  if choice = "1" do enter endif if choice = "2" do remoEPENDING ON YOUR SYSTEM." @ 13,0 SAY " DO YOU WISH TO CONTINUE? " GET MANSW READ IF !(MANSW) = "Y" goto top erase do while .not. eof @ 12,0 say " " ? "UPDATING STUDENT RECORD" ? # ?? " " + NAME ?? " " DO CALTOTAL STORE 0.00 TO MTOTAL STORE MTOT/MAVG TO MTOTAL REPLACE TOTAL WITH MTOTA This is the release date of the disk. CLAS6 FON {4FLETTERS u[*CFONT EXE \)$fCONVPRF EXE `$fDELFONTSHP Pn $DOWNLOADEXE %t^'BDSKSPACEEXE h,l%EFONT EXE \,JFANCFONTPRO tou(FFCONFIGEXE ]e@ as part of the description of a file indicates that the program is distributed on a "try first, pay if you like it" basis. If you find the program(s) meet your need, please refer to the author's documentation for information on becoming a registered user. Only by registering and paying for the programs you like and use will the authors of such programs continue development. Often, more complete documentation, additional modules, and new releases are available only to registered users. Miscellaneous word handling utilities and dBASE II programs. Filename Description -04-00 .87 This is the r$elease date of the disk. -CPM176 .DOC This is the description of the disk contents. ANIMATE . ED6D 1K [dBASE Animate 1 of 3] Animate a character across any line of a screen in a dBASE II program. A useful subroutine for getting the attention of data entry personnel. ANIMATE .CMD 273D 3K [dBASE Animate 2 of 3] ANIMATE2.CMD 2AAE 3K [dBASE Animate 3 of 3] DECODER .COM C9D6 16K [DECODER 1 of 3] A program for solving cryptograms such as you find in the newspaper. Turbo Pascal (squeezed) source is included. DECODER .DOC 90A1 4K [DECODER 2 of 3] DECODER .PQS AE53 10K [DECODER 3 of 3] FOGINDEX.COM 8AB1 11K [Fog Index 1 of 2] Calculates the "fog index" of a text file, based on sentence length, number of syllables per word, etc. FOGINDEX.DOC 64D0 2K [Fog Index 2 of 2] GB .DOC 3DBB 14K  [Gradebook 1 of 41] Teacher's grade book program (requires dBASE II) for keeping track of students' grades during the year. GB .CMD 7206 2K [Gradebook 2 of 41] ADD .CMD D6B0 2K [Gradebook 3 of 41] ADDGRADE.CMD E239 4K [Gradebook 4 of 41] ADJUST .CMD A8D2 2K [Gradebook 5 of 41] CALTOTAL.CMD 1F64 1K [Gradebook 6 of 41] CHOOSE .CMD B43A 2K [Gradebook 7 of 41] CORRECT .CMD A089 7K [Gradebook 8 of 41] CREATE .CMD 72E3 2K [Gradebook 9 of 41] DESCRIBE.DBF 7C8D 2K [Gradebook 10 of 41] EDIT .CMD 1275 5K [Gradebook 11 of 41] EDIT1 .CMD 2652 1K [Gradebook 12 of 41] ENTER .CMD 5918 2K [Gradebook 13 of 41] FINGRADE.CMD 1FFB 2K  [Gradebook 14 of 41] GETCLASS.CMD 159D 1K [Gradebook 15 of 41] GETGRADE.CMD 93F3 3K [Gradebook 16 of 41] GP2 .CMD 425C 2K [Gradebook 17 of 41] GP3 .CMD 58CF 2K [Gradebook 18 of 41] GRADE .DBF 9EF6 2K [Gradebook 19 of 41] KILL .CMD ACE5 1K [Gradebook 20 of 41] LETGRADE.CMD F6A1 1K [Gradebook 21 of 41] LISTNAME.CMD DECE 1K [Gradebook 22 of 41] MASTER .DBF D6DC 1K [Gradebook 23 of 41] MENU .CMD 944D 3K [Gradebook 24 of 41] NEW .CMD 24D0 2K [Gradebook 25 of 41] NEWTOPIC.CMD 2641 2K [Gradebook 26 of 41] ONEGRADE.CMD 635F 4K [Gradebook 27 of 41] PARAM .CMD 6ACF 2K [Gradebook 28 of 41] PICGRADE.CMD 4FFE 3K [Gradebook 29 of 41] PRINT .CMD C2A1 3K [Gradebook 30 of 41] PRINT1 .CMD DD61 5K [Gradebook 31 of 41] PRINT2 .CMD 5CF3 2K [Gradebook 32 of 41] PRINT3 .CMD F8D8 1K [Gradebook 33 of 41] PRINTER .DBF 00C5 1K [Gradebook 34 of 41] PRNTOPIC.CMD 5E57 2K [Gradebook 35 of 41] REMOVE .CMD 19C2 1K [Gradebook 36 of 41] TEMP .DBF 1904 6K [Gradebook 37 of 41] THREE .CMD 9741 2K [Gradebook 38 of 41] TOPIC .CMD 97DB 4K [Gradebook 39 of 41] TWO .CMD 789D 2K [Gradebook 40 of 41] UPDATE .CMD C720 3K [Gradebook 41 of 41]  .CMD ACE5 1K [Gradebook 20 of 41] LETGRADE.CMD F6A1 1K [Gradebook 21 of%&'