' MINICALC - WRITTEN BY BILL C128F DELETE REM LINES 10 - 40Z VARIABLE LISTn AN$ = ANSWER$‚ AV = AVERAGE› CA% = FLAG TCH¯ CO% = COUNTERÊ EN$ = ENTRY$ / TOTALê LN = LAST NUMBER ENTERED QU$ = QUESTION$ RA = RANGE$ SI$ = SIGN$B SU = VAL(ENTRY$) Mi ********************************¶ WHAT IT'S FOR - SUBROUTINE THAT ALLOWS FOR A SIMPLE POP-UP CALCULATOR.Ü CLEARS SCREEN FROM LINE 20 - 24 ******************************** HOW IT WORKSc THIS WORKS PRETTY MUCH THE WAY ANY ORDINARY CALCULATOR WOULD WORK WITHy FEW EXCEPTIONS. ********************************° FUNCTIONSÑ CLR/HOME CLEARS EVERYTHING! INST/DEL KEY DELETES LAST CHARACTER ENTERED.2" 'A' KEY GIVES AVERAGE (TOTAL / COUNTER)Z# 'ENTER' KEY REPEATS LAST FUNCTION™$ '%' KEY GIVES PERCENTAGE, I.E., ENTER '100','*','12','%'Õ% '+' ADDS, '-' SUBTRACTS, '*' MULTIPLIES, '/' DIVIDES. & '=' SIGN ONLY WORKS IF THERE IS OMETHING TO WORK WITH.P ' 'ESC'APE KEY CLEARS THE VARIABLES, (ABOVE), AND RETURNSw ( ********************************“ dç5,2:ç0,7:ç4,7:è:102:€œ f230· hà0,20,20,"""!jà0,0,22,"ENTER: ":à0,9,22," ’":à0,25,22,"<":™û"#";SI$;:™">":à0,30,22,"#=":™û"####";CO%;:™"’"|!là0,0,24,"LAST=":™û"#######.##";LN;:™"’";:à0,20,24,"TOTAL=":™û"#######.##";SU;:™"’";É!nà0,9,22,"":DE%²0:180:‹AN$²""§SU²0:EN$²"":AN$²"":LN²0:CO%²0:SI$²"":‰106"p‹(SU²0¯CO%²0¯LN²0¯Å(EN$)³±0)§LN²Å(EN$):EN$²"":CA%²1:SI$²AN$:CO%²CO%ª1:‰106*"r‹AN$²"H"§‰102B"t‹AN$²"A"¯CO%²0§‰110X"v‹AN$²"A"¯CO%±0§þ¸"xAV²SUCO%:à0,0,22,Ç(27)ª"Q":à0,0,22,"AVERAGE = ":™û"#######.##";AV:232:AV²0:AN$²"":þ:‰104ù"z‹AN$²Ç(27)§230:AN$²"":EN$²"":SU²0:CO%²0:LN²0:DE%²0:SI$²"":Ž#|‹AN$³±Ç(13)§‰138)#~‹SI$²"+"§SU²SUªLN:‰136D#€‹SI$²"-"§SU²SU«LN:‰136_#‚‹SI$²"*"§SU²SU¬LN:‰136z#„‹SI$²"/"§SU²SULN:‰136#†‹SI$²""§SU²SUªLN°#ˆEN$²"":AN$²"":CO%²CO%ª1:‰106Á#Š‹CA%³±1§‰154Ú#Œ‹Å(EN$)²0§SU²LN:‰156ù#Ž‹SI$²"+"§SU²LNªÅ(EN$):‰152$‹SI$²"-"§SU²LN«Å(EN$):‰1523$’‹SI$²"/"¯Å(EN$)²0§‰106R$”‹SI$²"/"§SU²LNÅ(EN$):‰152q$–‹SI$²"*"§SU²LN¬Å(EN$):‰152›$˜LN²Å(EN$):EN$²"":CA%²0:CO%²CO%ª1:‰106¯$š‹Å(EN$)³±0§‰166É$œ‹AN$²"+"§SI$²"+":‰164ã$ž‹AN$²"-"§SI$²"-":‰164ý$ ‹AN$²"/"§SI$²"/":‰164%¢‹AN$²"*"§SI$²"*":‰1648%¤LN²SU:SU²0:CA%²1:AN$²"":‰106W%¦‹AN$²"+"§SU²SUªÅ(EN$):‰176v%¨‹AN$²"-"§SU²SU«Å(EN$):‰176•%ª‹AN$²"*"§SU²SU¬Å(EN$):‰176¾%¬‹AN$²"/"¯Å(EN$)²0§EN$²"":AN$²"":‰106Ø%®‹AN$²"/"§SU²SUÅ(EN$)&°LN²Å(EN$):EN$²"":AN$²"":CO%²CO%ª1:‰106&²‰106-&´¡ùAN$:‹Ã(EN$)²0¯AN$²"-"§‰224J&¶‹Ã(EN$)²6¯AN$²Ç(20)§‰186l&¸‹Ã(EN$)²6¯DE%³±1§AN$²".":‰224&º‹Ã(EN$)²0§‰198”&¼‹AN$³±Ç(20)§‰198á&¾‹Ã(EN$)²6¯AN$²Ç(20)§™" "ª""ª"’";:RA²Ã(EN$)«1:EN$²È(EN$,RA):¡ùAN$:‰188 'À‹AN$²Ç(20)§RA²Ã(EN$)«1:EN$²È(EN$,RA).'Â™" "ª""ª"’";:‹Ã(EN$)²6§DE%²07'Ä‰180V'Æ‹AN$²Ç(27)§EN$²"":SI$²"":Žm'È‹AN$²"+"§SI$²"+":Ž„'Ê‹AN$²"-"§SI$²"-":Ž›'Ì‹AN$²"*"§SI$²"*":Ž²'Î‹AN$²"/"§SI$²"/":ŽÎ'Ð‹AN$²"="¯CA%²1§AN$²"":Žï'Ò‹AN$²"%"§EN$²Ä(Å(EN$)¬.01):Žþ'Ô‹AN$²""§Ž(Ö‹AN$²Ç(13)¯Å(EN$)²0§Ž'(Ø‹AN$²"A"§Ž@(Ú‹Ã(EN$)²9§¡ùAN$:‰188X(Ü‹AN$²"."§DE%²1:‰224r(Þ‹AN$³"0"°AN$±"9"§‰180²(à™""AN$"’";:EN$²EN$ªAN$:‹Ã(EN$)²6¯DE%³±1§AN$²".":DE%²1:‰224Ë(â‹Ã(EN$)²9§¡ùAN$:‰188Ô(ä‰180ì(æà0,0,20,Ç(27)ª"@":Ž.)èà0,0,24,Ç(27)ª"Q":à0,11,24,"ANY KEY TO CONTINUE",1:¡ùQU$:‰230