----------------------------------- theman Thu Jan 29, 2004 8:48 pm New bees newbee program! ----------------------------------- This is a program that i made for school. It's sort of a contest. Lets see how many of you can answer the questions!! (most are pretty easy though) PS. I YOU GET SOME BITS, PLEASE!?!: %declaration section import GUI %getch var key : string (1) %name var name : string %buttons var exitp, draw1, draw2, draw3, draw4, draw5, draw6, mainmenu, main : int := 0 %answer to question(userInput) var input6 : int var input7, input8, input9, input10 : int %percentage var score10, score9, score8, score7, score6, score5, score4, score3, score1, score2, total : int %Writing var font1, font2, font3, font4, font5 : int font1 := Font.New ("Juice ITC:30") assert font1 > 0 font2 := Font.New ("Juice ITC:100") assert font2 > 0 font3 := Font.New ("Matura MT Script Capitals:58") assert font3 > 0 font4 := Font.New ("Matura MT Script Capitals:16") assert font4 > 0 font5 := Font.New ("Matisse ITC:30") assert font5 > 0 %background var star, star1 : int := 200 var num := 50 Draw.FillBox (0, 0, maxx, maxy, 7) locate (13, 25) colorback (7) %This is the stars in the background for x : 1 .. 200 randint (star, 1, 640) randint (star1, 1, 400) for f : 1 .. 20 drawdot (star, star1, 0) delay (1) drawdot (star, star1, 0) end for end for %Border for x : 0 .. 640 drawbox (0, 1, 0 + x, 1, 0) drawbox (4, 5, 0 + x, 5, 0) drawbox (8, 9, 0 + x, 9, 0) drawbox (12, 13, 0 + x, 13, 0) drawbox (16, 17, 0 + x, 17, 0) drawbox (20, 21, 0 + x, 21, 0) drawbox (0, 398, 0 + x, 398, 0) drawbox (4, 394, 0 + x, 394, 0) drawbox (8, 390, 0 + x, 390, 0) drawbox (12, 386, 0 + x, 386, 0) drawbox (16, 382, 0 + x, 382, 0) drawbox (20, 378, 0 + x, 378, 0) drawbox (0, 1, 0, 0 + x, 0) drawbox (4, 5, 4, 0 + x, 0) drawbox (8, 9, 8, 0 + x, 0) drawbox (12, 13, 12, 0 + x, 0) drawbox (16, 17, 16, 0 + x, 0) drawbox (20, 21, 20, 0 + x, 0) drawbox (620, 398, 620, 398 - x, 0) drawbox (624, 394, 624, 398 - x, 0) drawbox (628, 390, 628, 398 - x, 0) drawbox (632, 386, 632, 398 - x, 0) drawbox (636, 382, 636, 398 - x, 0) drawbox (640, 378, 640, 398 - x, 0) delay (8) end for %progess bar for x : 0 .. 500 Font.Draw ("Math", 80, 260, font2, 0) delay (10) Font.Draw ("Contest", 300, 180, font2, 0) drawbox (70 + x, 125, 70, 113, 0) delay (1) locate (18, 40) color (103) put x div 5, "%" .. locate (17, 10) put "Loading..." .. end for play ("22>dcbbbaaabcbbbbbaaabcbbbaaab