MS10:MV10K "A+B*C","(A+B)*(C-D)","(A*B+(C-D))/D","A*B@(C+D)/E"i "(A+B)-C*D/(E-F-(G+H))"wc "*END*"d *** MAIN PROGRAM ****n:x SK$(MS),TS NV,VN$(MV),VV(MV) EX$,AN,PO: LOOP: EX$:EX$"*END*" 210: PO$""%: "INFIX: ";EX$2: 1000I: "POSTFIX:";PO$Q: ]: 160ci:~ *** PSTFIX ***:IN1:OU1 4000 3000SY$(EX$,IN,1) 6000 WHILE (SY$"?" OS$"?") 1210*$: SY$"A" SY$"Z" X$SY$: 8000: 11906.: DO1D3: WHILEY8: (DO) 1190L: X$SY$:2000:P1X:X$OS$:2000:P2XV: (P1P2 SY$"(") 1130[: 7000`: DO0: 1160j: OS$"?" DO0: 1160t: 5000&~: OS$"("SY$")"DO0:1160>: X$OS$:8000T: 6000: 1080: SY$"?" ININ1:SY$(EX$,IN,1): 1050: *** PRORTY ***: X$"@" X5 X$"*" X$"/" X4 X$"+" X$"-" X3 X$"(" X2% X$")" X18 X$"?" X0> D :Y *** EBLANK ***_ :o EX$EX$"?"u {: *** ISTACK ***:TS1SK$(1)"?": *** DECSTK ***:TSTS1m:n *** RDSTAK ***o:pOS$SK$(TS)z$U:7V *** PUSH ***=W:]X TSMS "*STACK FULL*":ibTSTS1ylSK$(TS)SY$v=:> *** CONCAT ***?:@PO$PO$X$J