* ADDING MACHINE-6/7/87A "":BL$" "wX$"ADDING MACHINE":S6$" ":B$" ":C$" "SX$" ":S2$S6$SX$S6$53280,6:53281,1S6$C$S2$(S6$C$S2$B$2S6$C$S6$X$S6$B$<S6$C$S2$B$ FS6$C$S2$B$PS6$" "S2$" "<ZI11500::53281,6:""gd" TURN ON PRINTER IF NEEDED"znA$:A$""110x1,4" ENTER NUMBERS TO ADD OR (-) SUBTRACT"" ENTER T FOR TOTAL, S FOR SUBTOTAL OR"" E TO END.": Z$: Z$"T" 400+ Z$"S" 500? Z$"E" 390KZ(Z$)WTZTZZe"";BL$;u1,"";BL$; 80025(Z$));Z$"1,22(Z$));Z$, 2101:1,TZ((TZ100).5)100ZTZ:800 25(Z$));Z$;" T":'1,34(Z$));Z$;" T":1:A$:A$""460HTZ0:200NV1,pTZ((TZ100).5)100~ZTZ:80025(Z$));Z$;" S":&1,34(Z$));Z$;" S":10A$:A$""560: 210 *JZ 4Z999999.99Z999999.99950' >Z(((Z).005)1000)1000: HJ$((Z)(J))U RL(J$):Z$(J$,1,L1) \(Z$)7R$(Z$,6):L$(Z$,L7):Z$L$","R$ f IFL=8THENZ$=L$+R$ p Z0 Z$"" z J$(Z):L(J$) L8J$J$".00" L10J$J$"0"!Z$(J$,2)","(J$,3,3)","(J$,6)#!