M ************** David Loveridge 11/02/1988 (01-422-0044) **************M(************** INITIALISE ********************************************2 ()"e"!<cl()"E"()"H"+Funo()"r"unof()"u"+Preo()"p"reof()"q"+Zbol()"E"rese()"F"Fd lo(,,)()"Y"( )( )n (),()x L************* SCREAN MENU ******************************************* cl lo((,,"MENU") / lo(,,"(L) LOAD EXISTING DATA :")0 lo(, ,"(N) ENTER NEW DATA :")0 lo(, ,"(P) PRINTER ON/off :")0 lo(,,"(S) PRINT STAN/cond :")0 lo(,,"(F) CLOSE DOWN :")1 lo(,," ENTER LETTER REQUIRED :"); %(u) "" , w("LNPFS",) 8,",,,P  ()"e"L************* ENTER DATA & SAVE TO DISC ***************************** "cl:, () "Enter file name (Max 8 letters) :";"",6 () "@".GRA"AJ() "Enter the Title of the Graph :";"", w$T (w)Z J cl,^ () "How many inputs :";"",h9h () "Do you require auto set up on graph (Y/N) ""rt%(u) t"" r| t"Y"  t"N"   r  cl3()"What value do you reqire 100% to be :";     cl  h] lo( , ,"Entry Number"); " of"h" inputs available (MAX NUMBER"")"Y lo( ,,"Enter Details of Graph (Maximum of 14 letters) :"); "",()  (()) W lo( ,,"Enter Numeric Value :");"",()  CL  ()  fil& "O",fil,0,,w,h:  hDN,(),() X blvL************** LOAD AND DISPLAY DATA ******************************** cl "I",fil,,,w,h (fil),(),()( ~((d(())),)B  TT() T~(T)"tt t 4. , () uno w unof _ uno" % and DETAILS | 25 50 75 100" unof& ()"@" ()"1"()"F"% co"CON" ()() of"OFF" 4.  () ()"-1" w ()"-0"X " % and DETAILS | 25 50 75 100"X  "------------------|-------------------------------------------------|"*4 ()"%"( )":"() () reo (, ) reof" " () () uno reo (, )reof unof> of"OFF" \{H ()"%"( )":"() bol () (,*)rese  " " () bol () (,*)reseR\f of"OFF" p (E,=)Mz "Total of all % input :"t" Total of all numbers entered :"t< a~((th),) a~((th),)G "100% = "" :Average Percent "a"% :Average Number "a (E,=)< a~((th),) a~((th),) (E,=)" lo(F,,"100% =");- lo(F,,"Percent Total");t"%"* lo(F,,"Total Entered");t. lo(F, ,"Aver Percent ");a"%"* lo(F, ,"Aver Number ");a  , t ()"f" "",$K.************* SHOW FILE FOR SELECTION ****************************** 8cl3B lo(,,"SELECT FILE AND ENTER NAME :");oL lo(,,"*****************************************************************************************")Vfil`!j s("*.GRA")"" "*.GRA"t lo(,,"");~"",".GRA" cl  K************* SWITCH PRINTER ON AND OFF **************************** m memem me W me me lo(, ,"(P) PRINTER ON/off :")of"" >of"OFF"  lo(, ,"(P) PRINTER on/OFF :")  K************* END PROGRAM OR RETURN TO MENU ************************ cl/  lo(,,"(E) RETURN TO BASIC :")/ lo(,,"(M) RETURN TO MENU :") %(u) "" *( "E" ()"@" cl 2 "M"  < KF************ SWITCH CONDENSED TO STANDARD PRINT ******************** PpZ pepepd pe xWn pe pe lo(,,"(S) PRINT STAN/cond :")co"" >xco"CON"  lo(,,"(S) PRINT stan/COND :")  o(