3"":53280,.:53281,.:C.:L.:W.:Y.:1:20vPR$" :":U$"":ER$" ":"SAVING PRICER":15,8,15,"S0:PRICER":15:"PRICER 2",8"VERIFYING PRICER":"PRICER",8:"< " WRITTEN BY " TOM POTTER " NOV. 27, 1984 0 " REVISED " OCT. 28, 1987 " IN # " PASADENA, CALIF. 6 655:375:295m Y1:" ENTER QUANTITY OR PRICE ";T:WT:295u 35 #" /=DIV *=MUL +=ADD -=SUB":295 (" -" GET A$ / IF A$ = PART G 2A$:A$"/"A$"*"A$"+"A$"-"A$"B"A$"I"60P 775 <A$"M"A$"N"A$"Q"A$"R"A$"T"A$"V"A$"X"70 A75 FA$(13)50 KA$"/"C.:230 PA$"*"C.:245 UA$"+"C.:260 ZA$"-"C.:275 _A$"X"C.:215) dA$"V"C.:205F iA$"R"C.:TW:X.:200i nA$"T"C.:WT:PR$" $":210 sA$"N"C.:MN:NM:U$:205 xA$"M"C.:NM:MT:U$:205:"":50 }A$"I"C.:525 :295:200A$"Q"330:""8)"PRICER STILL IN MEMORY":2A$(13)CC1:C3200CA$"B"180PC.:220B$:B$"Y"B$"N"B$"B"B$(13)150B$"Y"B$"B"WT:225200C$:C$"Y"C$"N"C$"B"C$(13)165C$"N" :1"":25C3B1:C.:330:455:295:200hD$"":SD$" ":w"" FUNCTION PRINTOUT SECTION " CURRENT TOTAL IS";PR$;T:295:35." VALUE IN MEMORY IS";ER$;PR$;M:295:290:35pL1:XT.065:TTX:" TOTAL WITH TAX IS";PR$;T:295:35TTX:" TOTAL MINUS TAXES :";PR$;T:X.:295:35" START OVER ? ":295:" CLEAR ALL VARIABLES ?":1656" DIVIDE BY WHAT # ";D$:D$"M"DM:295:240GD(D$):295ZTD:" ";T;"DIVIDED BY";D;"IS";PR$;Z:TZ:295:35" MULTIPLY BY HOW MUCH ";P$:P$"M"PM:295:255P(P$):295ZTP:" ";T;"TIMES";P;"IS";PR$;Z:TZ:295:35J" ADD HOW MUCH ";A$:A$"M"AM:295:270[ A(A$):295ZTA:" ";T;"PLUS";A;"IS";PR$;Z:TZ:295:35" SUBTRACT HOW MUCH ";S$:S$"M"SM:295:285S(S$):295ZTS:" ";T;"MINUS";S;"IS";PR$;Z:TZ:295:356"" *"34)"*":C'F1310t,F1:" "1" ":Z((Z100)100):6F2:" "%;" ":Z((Z100)100):4@"lE" SIDEWAYS SCREEN WIPERJC1$"_": TO CHANGE TO EITHER _ OR ^OC123:C219:C324:C439:C559903TJ.C1:C2$C2$(32)(157)(17)::C2$C2$(145)YJ.C2:J.781,C3:C59^C1$"_""";J);C2$:"";C4J);C2$_cC1$"^"781,J:C5:781,C3J:C5}h:"";:C2$"":L.:"":m"r" INSTRUCTIONSw"":T$"INSTRUCTIONS? (Y/N)"|A(T$):I1A2020I);(T$,I);(T$,I)F"";:D120::z"";" ";""""""10)"INSTRUCTIONS? (Y/N)">KK1:646,K:LL140:LL:K15K.eA$:A$"Y"A$(13)A$"N"415uA$"Y"445A$"N"A$(13)B.450"":295:200330:455"":" I N S T R U C T I O N S"'"THIS PROGRAM STARTED OUT TO BE JUST A"W"CALCULATER TYPE PROGRAM THAT WOULD MAKE""IT ALOT EASIER TO ADD UP THE COST OF""ALOT OF ITEMS AND ADD TAX TO THE TOTAL""REAL EASILY. THEN, I STARTED GETTING""ALOT OF NEAT SUBROUTINES. SO I DECIDED"G"TO PUT THEM IN THE PROGRAM. SO, IF YOU"w"LIKE ANYTHING, THEN LIST IT TO SEE HOW""IT WAS DONE. HAVE FUN. - TOM POTTER" PRESS ANY KEY TO CONTINUE INSTRUCTIONS""":(162)32""; A$:A$""505 ""5 185:X.73:A:49152X,A:Xn(147)(144)" I N S T R U C T I O N S":D$;"I-WILL DISPLAY THIS SCREEN AT ANY TIME ";D$;"M-STORES THE CURRENT TOTAL FOR LATER USE";D$;!"V-SHOWS WHAT VALUE IS STORED IN MEMORY ";D$;F&"N-WILL RESTORE WHAT USED TO BE IN MEMORY";D$;|+"T-WILL AUTOMATICALLY ADD TAX TO TOTAL ";D$;0"X-WILL SUBTRACT THE TAX FROM THE TOTAL ";D$;5"R-RESETS THE TOTAL TO THE PREVIOUS VALUE";D$;:"B-WILL LET YOU RE-START FROM BEGINNING ";D$;T?" PRESSING RETURN WITH NOTHING THERE ";D$;D" WILL SHOW THE CURRENT TOTAL AT ANYTIME ";SD$I" PRESS  SPACE TO RETURN CONTROL":49152N169,254,45,14,220,141,14,220,169 S16,44,.,220,240,40,44,1,220,240-X35,169,14,141,250,3,169,24,141Q]251,3,173,250,3,141,32,208,141wb33,208,206,251,3,208,251,206,250g3,201,255,240,213,169,.,240,226l162,15,142,32,208,162,14,142,33q208,169,1,13,14,220,141,14,220v96{53280,.:53281,.::"":C.:Y.%295:200W" " TITLE SCREEN "":T$" P R I C E R "A(T$):I1A218I);(T$,I);(T$,I)"";:D130::011);(34):"";25);(34)j"": 768,174: 769,167: 518: 768,139: 769,227A11600:A:"":PR$" :":U$"":ER$" "