diff --git a/src/samplesrc/rpncalc.pla b/src/samplesrc/rpncalc.pla
index 87d01df..ea0dbc4 100644
--- a/src/samplesrc/rpncalc.pla
+++ b/src/samplesrc/rpncalc.pla
@@ -33,7 +33,7 @@ byte inputStr[32] = ""
 // Display format state
 //
 byte displayFix = 6
-byte displayInt = displayWidth - 8 //  - displayFix - 2
+byte displayInt = displayWidth - 7 //  - displayFix - 1
 //
 // Store/load memory
 //
@@ -194,14 +194,14 @@ def initDisplay#0
     word pkeys
 
     conio:home()
-    rect(0, 0, 40, 23, 1, "RPN Calculator")
-    rect(1, 1, 19, 6, 0, "Stack")
+    rect(0, 0, 40, 23, 1, "<RPN Calculator>")
+    rect(1, 1, 19, 6, 0, ":Stack:")
     rect(1, 6, 19, 3, 0, 0)
     conio:gotoxy(2, 2); puts("T:")
     conio:gotoxy(2, 3); puts("Z:")
     conio:gotoxy(2, 4); puts("Y:")
     conio:gotoxy(2, 5); puts("X:")
-    rect(20, 1, 19, 12, 0, "Memory")
+    rect(20, 1, 19, 12, 0, ":Memory:")
     for i = 0 to 9
         conio:gotoxy(21, 2 + i); puti(i); putc(':')
     next
@@ -393,7 +393,7 @@ def cmdKey(pkey)#0
     d = getc - '0'
     if d >= 1 and d <= 9
         displayFix = d
-        displayInt = displayWidth - displayFix - 2
+        displayInt = displayWidth - displayFix - 1
     fin
     clearStatus
     //