TGC Codebase Backup



SimpleMath Commandline Application by KCB

12th Jun 2005 17:34
Summary

The first application I ever made in DarkBasic. SimpleMath 2.0 is a simple application that just asks you questions (eg. What is the first number) and then gives you the answer. Ne



Description



Code
                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    print "Welcome to SimpleMath"
input "Do you want to change the settings? (y/n)" ; S$
if S$ = "y" then goto settings
if S$ = "n" then goto math
math:
input "please enter the first number>";N1#
input "please enter the second number>";N2#
input "Enter the first letter of the operation you want to use(add, subtract, multiply, or divide)>"; O$
if O$ = "a" then input "your answer is>";N1# + N2#
if O$ = "s" then print "your answer is>";N1# - N2#
if O$ = "m" then input "your answer is>";N1# * N2#
if O$ = "d" then print "your answer is>";N1# / N2#
print "thank you for using SimpleMath"
input "Do you want to do another problem (y/n/s(settings)/c (clear)?>" ;P$
if P$ = "n" then end
if P$ = "y" then goto math
if P$ = "s" then goto settings
if P$ = "c" then cls
Goto math
settings:
print "Enter the rgb color of the text (Must be a whole number between 1 and 255)"
input "Red>" ; R
input "Green>" ; G
input "Blue>" ; B
ink rgb(R,G,B),1
input "Do yo like this color?(y/n)>" ; CV$
if CV$ = "n" then Goto settings
Goto math