----------------------------------- GhettoSingh Tue Jun 10, 2003 10:25 pm Restarting a program ----------------------------------- I have this program and i'm wondering how would i make it at the end as if they want to play again and how to start the procoss over again. here's my prgm colorback (black) cls for colors:1..60 var font3:int font3:= Font.New ("Algerian:18") Font.Draw ("Calender Program Created by", 150, 200, font3, colors) Font.Draw ("Amardeep & Mark", 200, 160, font3, colors) delay (50) end for delay (9) colorback (white) for a:1..25 put "" end for color (blue) var month : array 1 .. 12 of int := init (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31) %-This command puts all the numbers in order which they come in the calander. Ex. 31 days in january var currweekday, currweek, selectedmonth : int var w : string put "For which month do want to see a calender (in numbers) ?" get selectedmonth put "What is the first day of this month? (0 is sunday, 6 is saturday)" get currweekday color (brightred) if selectedmonth = 1 then %- These else if commands assign each number with a month w := "January" elsif selectedmonth = 2 then w := "February" elsif selectedmonth = 3 then w := "March" elsif selectedmonth = 4 then w := "April" elsif selectedmonth = 5 then w := "May" elsif selectedmonth = 6 then w := "June" elsif selectedmonth = 7 then w := "July" elsif selectedmonth = 8 then w := "August" elsif selectedmonth = 9 then w := "September" elsif selectedmonth = 10 then w := "October" elsif selectedmonth = 11 then w := "November" elsif selectedmonth = 12 then w := "December" end if var font1: int font1:= Font.New ("Algerian:15") %-This command changes the font size and color and location locate (8, 39 - length (w) div 2) Font.Draw ( w,253, 275, font1, red) locate (10, 30) var font2: int font2:= Font.New ("Arial:10") Font.Draw ( "S M T W T F S ", 234, 245, font2, blue) currweek := 1 for currday : 1 .. month (selectedmonth) %-This for command starts the process of the calender locate (currweek + 10, (currweekday + 10) * 3) put currday if currweekday = 6 then currweekday := 0 currweek += 1 else currweekday += 1 end if end for ----------------------------------- Tony Tue Jun 10, 2003 10:44 pm ----------------------------------- put the playing part inside a loop. Here's the tricky part though... You have to declear all your variables OUTSIDE the loop, but initialize them INSIDE. Man... cant belive I used to program like this :? Why cant they just start teaching OOP instead of drawing boxes :cry: ----------------------------------- Homer_simpson Tue Jun 10, 2003 10:51 pm ----------------------------------- what's oop?! ----------------------------------- Catalyst Tue Jun 10, 2003 11:07 pm ----------------------------------- object-oriented-programming programming using objects (classes and such) very useful and efficient almost everyone of my programs is done using OOP (besides the trivial ones) ----------------------------------- Martin Wed Jun 11, 2003 12:54 am ----------------------------------- Yeah me too. Except for the ones that aren't, all of my programs are OOP :P