// ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ // ³ ³ ³ ³ // ³ BLOCKBOX.VDM ³ (C) 04/01/95 ³ Christian Ziemski ³ // ³ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ³ last change: 07/20/95 ³ Rostesiepen 164 ³ // ³ universal titel ³ ³ 58313 Herdecke ³ // ³ for macros ³ Version: 1.1 ³ - Germany - ³ // ³ ³ VEDIT-PLUS: 4.15 ³ ³ // ³ ³ ³ ³ // ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ // ³ Description: ³ // ³ ------------ ³ // ³ Draws a rectangle box inside the columnar block (if set). ³ // ³ Uses single or double lines (must be coded below!). ³ // ³ ³ // ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ // ³ Register usage: ³ // ³ --------------- ³ // ³ ³ // ³ #2 Cursor line of block end position ³ // ³ #3 Block begin position ³ // ³ #4 Block end position ³ // ³ #5 Column begin ³ // ³ #6 Column end ³ // ³ ³ // ³ #9 line counter ³ // ³ ³ // ³ #12 ³ // ³ #11 É Í » #13 ³ // ³ ³ // ³ #14 º º (or single lines) ³ // ³ ³ // ³ #15 È ÍÍÍÍÍÍ ¼ #16 ³ // ³ ³ // ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ if(Column_Mode){ Num_Push(1,16) Save_Pos() // chars for single line box: #11=218 #12=196 #13=191 #14=179 #15=192 #16=217 // chars for double line box: // >>> uncomment the following 3 lines to use the double line chars ! <<< // #11=201 #12=205 #13=187 // #14=186 // #15=200 #16=188 if(Block_Begin > Block_End){ #3=Block_End #4=Block_Begin } else { #3=Block_Begin #4=Block_End } if(Column_Begin > Column_End){ #5=Column_End #6=Column_Begin } else { #5=Column_Begin #6=Column_End } Goto_Pos(#4) #2=Cur_Line Goto_Pos(#3) Block_Fill(#11,Cur_Line,Cur_Line,LINESET+COLSET,#5,#5) Block_Fill(#12,Cur_Line,Cur_Line,LINESET+COLSET,#5+1,#6-1) Block_Fill(#13,Cur_Line,Cur_Line,LINESET+COLSET,#6,#6) for(#9=Cur_Line+1; #9<#2; #9++){ Block_Fill(#14,#9,#9,LINESET+COLSET,#5,#5) Block_Fill(#14,#9,#9,LINESET+COLSET,#6,#6) } Block_Fill(#15,#9,#9,LINESET+COLSET,#5,#5) Block_Fill(#12,#9,#9,LINESET+COLSET,#5+1,#6-1) Block_Fill(#16,#9,#9,LINESET+COLSET,#6,#6) Restore_Pos() Update() Num_Pop(1,16) }