Category : Science and Education
Archive   : GRADE3.ZIP
Filename : GRADE3.DEC

 
Output of file : GRADE3.DEC contained in archive : GRADE3.ZIP
'====================== MASTER SUBROUTINE FILE QB4.5 =========================
DECLARE SUB mouse ()
DECLARE SUB getcomment (x!)
DECLARE SUB nameidsort ()
DECLARE SUB doscommand ()
DECLARE SUB gradedelete ()
DECLARE SUB readinifile ()
DECLARE SUB writeinifile ()
DECLARE SUB sortroutine (leftcol!, rightcol!)
DECLARE SUB dialog (margin!, head$)
DECLARE SUB switchdirectory ()
DECLARE SUB openfile ()
DECLARE FUNCTION strg$ (in!)
DECLARE SUB helpscreen ()
DECLARE SUB setcolor ()
DECLARE SUB setsound ()
DECLARE SUB makescreen ()
DECLARE SUB mainscreen ()
DECLARE SUB clearall ()
DECLARE SUB namechange ()
DECLARE SUB namedelete ()
DECLARE SUB nameidchange ()
DECLARE SUB namesenter ()
DECLARE SUB namesort ()
DECLARE SUB outputprinter ()
DECLARE SUB outputscreen ()
DECLARE SUB gradechange ()
DECLARE SUB gradetypechange ()
DECLARE SUB gradeweight ()
DECLARE SUB gradesenter ()
DECLARE SUB calculate ()
DECLARE SUB setnames ()
DECLARE SUB getkey ()
DECLARE SUB menuarrays ()
DECLARE SUB menuroutine ()
DECLARE SUB menuunhighlight ()
DECLARE SUB menuletter ()
DECLARE SUB menufindcol ()
DECLARE SUB menuhighlight ()
DECLARE SUB menutoploop ()
DECLARE SUB hideid ()
DECLARE SUB menuinput ()
DECLARE SUB initialize ()
DECLARE SUB header ()
DECLARE SUB goodbye ()
DECLARE SUB prompt (msg$)
DECLARE SUB checkdatafile ()
DECLARE SUB getname ()
DECLARE SUB commentprint (type$)
DECLARE SUB commentone ()
DECLARE SUB commentall ()
DECLARE SUB commentroutine ()
DECLARE SUB fudgea ()
DECLARE SUB setup ()
DECLARE SUB fudger ()
DECLARE SUB getdirname ()
DECLARE SUB zscores ()
DECLARE SUB zscoresoutput (zout$)
DECLARE SUB gradeweight ()
DECLARE SUB gradechange ()
DECLARE SUB gradetypechange ()
DECLARE SUB commentchange ()
DECLARE SUB outputbusiness (type$)
DECLARE SUB outputdirect ()
DECLARE SUB gradesenter ()
DECLARE SUB getfilename ()
DECLARE SUB readcommandline ()
DECLARE SUB getgrade ()
DECLARE SUB getdirectory ()
DECLARE SUB setupfile ()
DECLARE SUB writedatafile ()
DECLARE SUB writeheader ()
DECLARE SUB readdatafile ()
DECLARE SUB readheader ()
DECLARE FUNCTION convertgrade (grade$)
DECLARE SUB openingscreen ()
DECLARE SUB qsort (srt$(), srtn(), n, mid)
DECLARE SUB writescreen (indent!)
DECLARE SUB click ()
DECLARE SUB keyin (inlength!)
DECLARE SUB cursor (value!)
DECLARE SUB numberpad (value!)
DECLARE SUB pagehead (page$)
DECLARE SUB restart ()

COMMON SHARED pgup$, pgdn$, lft$, rght$, home$, end$, tab$, bksp$, bktab$
COMMON SHARED found, indent, numgrades, plus$, minus$, totalmean
COMMON SHARED numstudents, total, sel, subsel, lin, col, ofile$
COMMON SHARED compress$, reset$, skip$, form$, classname$, drive$, inline$, id1$, id2$
COMMON SHARED option1$, course$, teacher$, term$, section$, newfile, k$
COMMON SHARED esc$, enter$, quote$, delimiter$, up$, down$, in$, absfudge, relfudge
COMMON SHARED datafile$, outfile$, filedate$, grade, s, namefile$, numberfile$
COMMON SHARED autocalc, fore, high, back, freq, id, leftset, downset, items, mouseon

students = 201
grades = 21
items = 9

DIM SHARED sel$(11, 11), final(students), save$(10), ms$(230), d$(10), zscore(students)
DIM SHARED l$(25), gradetype$(grades), description$(grades), weight(grades)
DIM SHARED grade(students, grades), student$(students), id$(students), grademean(grades)
DIM SHARED studenttotal(students), gradetotal(grades), srt$(students), srtn(students), comment$(students)



  3 Responses to “Category : Science and Education
Archive   : GRADE3.ZIP
Filename : GRADE3.DEC

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/