Hi, This quizz is my first 20 line program(and my second thing in dbp)
Set window title "Quizz" ; Set display mode 800, 600, 32 ; hide mouse ; Maximize window ; set window off ; set text size 20 ; set text font "Arial"
PRINT "Welcome in Quizz"
PRINT "In this Quizz, we will test your mathematics abilities! Press a key to continue!"
suspend for key ; cls
input "17+25= ";num1#
input "3*15= ";num2#
input "60/12= ";num3#
input "31-19= ";num4#
input "34/2*7-200= ";num5#
PRINT "Question 1:"
if num1#=42 then PRINT "RIGHT" else print "WRONG"
wait 700 ; PRINT "Question 2:"
if num2#=60 then PRINT "RIGHT" else print "WRONG"
wait 700 ; PRINT "Question 3:"
if num3#=5 then PRINT "RIGHT" else print "WRONG"
wait 700 ; PRINT "Question 4:"
if num4#=12 then PRINT "RIGHT" else print "WRONG"
wait 700 ; PRINT "Question 5:"
if num5#=59 then PRINT "RIGHT" else print "WRONG"
wait 1000; wait key
20 Lines!
Any comments?
Dark Basic Pro Rulz!