6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-01-10 06:30:41 +00:00
Code Issues Projects Releases Wiki Activity

Adjust disply chars width

Browse Source
This commit is contained in:
David Schmenk 2017-11-24 16:19:45 -08:00
parent 035450fbb3
commit 7782359eaa
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/samplesrc/rpncalc.pla
View File

@ -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
//