Dont Thread The Box! Part II, Final Questions.

[jj2007]

             .Until 0
             ret
AnyKey             ENDP

Or, alternatively, close it with Alt F4 instead of Escape ;-)

Anothe┘ p┘ob└em cou└d be the cha┘acte┘s used to c┘eate the co┘ne┘s. Think of some f└ags...

[StatusQuo]

             .Until 0
             ret
AnyKey             ENDP

Or, alternatively, close it with Alt F4 instead of Escape ;-)

Anothe┘ p┘ob└em cou└d be the cha┘acte┘s used to c┘eate the co┘ne┘s. Think of some f└ags...

Classic keybard commands lol. What do you mean the characters used to create the corners? I dont see the relivance.

[jj2007]

The AnyKey switches LRlr- are there to ease generating the box:

Code Select Expand

L------R
|  xx  |
l------r


If you want to use the same characters inside the box, you need some flags as shown below.

Code Select Expand

.data?
FlagCR db ?
.code
AnyKey PROC
.Repeat
getkey
.Break .if eax==27
xchg eax, ecx
inc FlagCR
SWITCH ecx
CASE 13
sub ecx, 3
or FlagCR, -1
CASE "L"
.if FlagCR==0
dec FlagCR
m2m ecx, 218
.endif
CASE "l"
.if FlagCR==0
dec FlagCR
m2m ecx, 192
.endif
CASE "-"
.if FlagCR==0
dec FlagCR
m2m ecx, 196
.endif
CASE "|"
m2m ecx, 179
CASE "R"
.if FlagCR==0
m2m ecx, 191
.endif
CASE "r"
.if FlagCR==0
m2m ecx, 217
.endif
ENDSW
mov OneByteBuffer, cl
print offset OneByteBuffer
.Until 0
ret
AnyKey ENDP


[StatusQuo]

The AnyKey switches LRlr- are there to ease generating the box:

Code Select Expand

L------R
|  xx  |
l------r


If you want to use the same characters inside the box, you need some flags as shown below.

Code Select Expand

.data?
FlagCR db ?
.code
AnyKey PROC
.Repeat
getkey
.Break .if eax==27
xchg eax, ecx
inc FlagCR
SWITCH ecx
CASE 13
sub ecx, 3
or FlagCR, -1
CASE "L"
.if FlagCR==0
dec FlagCR
m2m ecx, 218
.endif
CASE "l"
.if FlagCR==0
dec FlagCR
m2m ecx, 192
.endif
CASE "-"
.if FlagCR==0
dec FlagCR
m2m ecx, 196
.endif
CASE "|"
m2m ecx, 179
CASE "R"
.if FlagCR==0
m2m ecx, 191
.endif
CASE "r"
.if FlagCR==0
m2m ecx, 217
.endif
ENDSW
mov OneByteBuffer, cl
print offset OneByteBuffer
.Until 0
ret
AnyKey ENDP


Thank you, Ive learned something new today.

[jj2007]

Thank you, Ive learned something new today.

My pleasure, hope to see you more often here :U

A few comments (for others who read this thread - we are in the Campus...):

getkey
      .Break .if eax==27
      xchg eax, ecx   ; SWITCH changes eax, so we use ecx
      inc FlagCR   ; the flag will be zero for the first character after 13 aka CR
      SWITCH ecx
      CASE 13
         sub ecx, 3
         or FlagCR, -1   ; same as mov FlagCR, -1

[StatusQuo]

Thank you, Ive learned something new today.

My pleasure, hope to see you more often here :U

A few comments (for others who read this thread - we are in the Campus...):

getkey
      .Break .if eax==27
      xchg eax, ecx   ; SWITCH changes eax, so we use ecx
      inc FlagCR   ; the flag will be zero for the first character after 13 aka CR
      SWITCH ecx
      CASE 13
         sub ecx, 3
         or FlagCR, -1   ; same as mov FlagCR, -1

Now that my final is done, I thank you again, as for an independant study, I plan to rewrite this program using Inheritance which is even tricker for a common box.