What im trying to do, is outline the text with a box, so. The menu here, what is needed is, an outline of * around, so its like a box, i cannot use the draw.box just yet,
(outlining this part with a box of "*")
put "1 - APPLES $1.99"
put "2 - BANANAS $2.99"
put "3 - YUCCA $0.67"
put "4 - CANDY $4.99"
put "5 - CHECK OUT"
| Turing: |
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Records - Used for Organizing data and such % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% type PAYMENT : % record % PRICE : real % GST : real % PST : real % end record % var Customer : PAYMENT % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% var Character : string (1) Customer.PRICE := 0.00 put "1 - APPLES $1.99" put "2 - BANANAS $2.99" put "3 - YUCCA $0.67" put "4 - CANDY $4.99" put "5 - CHECK OUT" loop locate (1, 30) put "Total: $", Customer.PRICE if hasch then getch (Character) if Character = "1" then Customer.PRICE += 1.99 elsif Character = "2" then Customer.PRICE += 2.99 elsif Character = "3" then Customer.PRICE += 0.67 elsif Character = "4" then Customer.PRICE += 4.99 elsif Character = "5" then Customer.PRICE += 0.97 elsif Character = "6" then exit else put "Sorry, We do not carry that item!" end if % delay (2000) % Not really but just incase! else end if end loop cls Customer.GST := ((Customer.PRICE * 5 / 100) * 100 div 1 / 100) Customer.PST := ((Customer.PRICE * 7 / 100) * 100 div 1 / 100) put "GST :$", Customer.GST put "PST :$", Customer.PST put "Total :$", Customer.PRICE + Customer.PST + Customer.GST |
| Turing: |
using this method. var depth, width : int % put "Enter the width of the box (less than 60)" % get width % put "Enter the depth of the box (less than 20)" % get depth % cls % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Arranges to center in window. % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% const topRow := (25 - depth) div 2 % const leftColumn := (80 - width) div 2 % var colorNo : int % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Draws the top of box. % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% locate (topRow, leftColumn) % for count : 1 .. width % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Chooses the random colours. % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% randint (colorNo, 0, 15) % % Set the colours % color (colorNo) % put "*" .. % end for % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Draws the bottom of box. % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% locate (topRow + depth - 1, leftColumn) % for count : 1 .. width % randint (colorNo, 0, 15) % color (colorNo) % put "*" .. % end for % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Draws left side of box. % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% const sideTop := topRow + 1 % const sideBottom := topRow + depth - 2 % for row : sideTop .. sideBottom % randint (colorNo, 0, 15) % color (colorNo) % locate (row, leftColumn) % put "*" .. % end for % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Draws the right side of box. % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% const rightColumn := leftColumn + width - 1 % for row : sideTop .. sideBottom % randint (colorNo, 0, 15) % color (colorNo) % locate (row, rightColumn) % put "*" .. % end for % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
so it makes a box of "*" around the menu,
I've tried to locate (1, 30) but it does not work correctly. I have to complete this, but im stuck. So is my programming teacher ^,^ but, our next assignment is with the draw.box way.
but first i have to solve this, Please help!!
i've tried to do this all day yesterday but I failed.