TGC Codebase Backup



CAD (Computer Aided Device). by dark basic rules

17th Nov 2007 12:28
Summary

all CAD wants is a friend ;( please don't kill him. simple but funny text. beginners, try and copy from it.



Description



Code
                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    INK RGB(1000,200,600),RGB(100,100,0)
 CLS
 SET CURSOR 50,10
 PRINT "please enter your name, my name is CAD by the way"
 SET CURSOR 50,40 
 SLEEP 3000
 PRINT "this stands for Computer Aided Device, now enter your name or i will kill you"
 SET CURSOR 50,70
 INPUT a$
 SET CURSOR 50,100
 PRINT "welcome to this multiplying calculator"
 SET CURSOR 300,100
 PRINT a$
 SLEEP 2000
 SET CURSOR 50,130
 PRINT "please enter the first number for me to multiply"
 SET CURSOR 50,160
 INPUT a#
 SET CURSOR 50,190
 PRINT "good, now a second number"
 SET CURSOR 50,220
 INPUT b#
 SET CURSOR 50,250
 PRINT "calculating..."
 SLEEP 1000
 SET CURSOR 50,280
 PRINT a#*b#
 SLEEP 2000
 SET CURSOR 50,310
 PRINT "thank you for using this AW PRODUCT, goodbye"
 SET CURSOR 368,310
 PRINT a$
 SLEEP 5000
 SET CURSOR 50,340
 PRINT "by the way, you can donate 1 or more of your organs to the AW research centre, its true!"
 SLEEP 7000
 SET CURSOR 50,370
 PRINT "now do not type anything else, or i will die. you wouldnt do that to CAD? would you?"
 SET CURSOR 50,400
 INPUT b$
 SET CURSOR 50,430
 PRINT "AHH! SYSTEM ERROR! TESTING: 2x2=22. why did you type that anyway? cya fool!"
 SLEEP 12000
 END