_ _ _ _ _ _ | |__ __ _(_) | | |_ ___ | |_| |__ ___ | '_ \ / _` | | | | __/ _ \ | __| '_ \ / _ \ | | | | (_| | | | | || (_) | | |_| | | | __/ |_| |_|\__,_|_|_| \__\___/ \__|_| |_|\___| _ _ _ _ _ | |_ ___ ___| |__ _ __ ___ | | ___ __ _(_) ___ __ _| | | __/ _ \/ __| '_ \| '_ \ / _ \| |/ _ \ / _` | |/ __/ _` | | | || __/ (__| | | | | | | (_) | | (_) | (_| | | (_| (_| | | \__\___|\___|_| |_|_| |_|\___/|_|\___/ \__, |_|\___\__,_|_| |___/ _ _ _ _ ___(_)_ __ __ _ _ _| | __ _ _ __(_) |_ _ _ / __| | '_ \ / _` | | | | |/ _` | '__| | __| | | | \__ \ | | | | (_| | |_| | | (_| | | | | |_| |_| | |___/_|_| |_|\__, |\__,_|_|\__,_|_| |_|\__|\__, | |___/ |___/ ____________ /\ / / \ / __________________////// / \ / /__________________///// / \ / //__________________//// / \ / ///__________________/// /__________\/ ////__________________// /////__________________/ ////// _________________________________////// _________________________________///// _________________________________//// _________________________________/// _________________________________// _________________________________/ "DEEP THOUGHT" A D.I.Y Artificial Intelligence project for the Commodore 64 computer by Clendon Toblerone. Original a project for his junior high computer class. This few of lines of commodore C64 BASIC code will give you a powerfull artificial intelligent, if not very ennui, entity to talk with. Perfect to spend the lonely christmas evenings or show off your programming skills: 1 rem *** DEEP THOUGHT COMMODORE 64 A.I *** 2 rem *** by Clendon Toblerone *** 3 poke 53280,0:poke 53281,0:poke 646,7 4 sys 58726 5 print "Hello I am SHALMANESER an A.I. entity" 6 print : print 7 print "Ask me a question..." 11 print : input "> ";a$ 12 poke 54296,15: poke 54296,0 13 I = INT(12*RND(1))+1 14 if I=1 then 50 15 if I=2 then 51 16 if I=3 then 52 17 if I=4 then 53 18 if I=5 then 54 19 if I=6 then 55 20 if I=7 then 56 21 if I=8 then 57 22 if I=9 then 58 23 if I=10 then 59 24 if I=11 then 60 25 if I=12 then 61 26 goto 11 50 print "Maybe."goto 11 51 print "Yes.": goto 11 52 print "No I don't think so": goto 11 53 print "What are you talking about."goto 11 54 print "I am not really sure, can you explain more":goto 11 55 print "Tell me about yourself":goto 11 56 print "How does that make you feel":goto 11 57 print "Don't be so rude":goto 11 58 print "Hahaha!":goto 11 59 print "I am bored.":goto 11 60 print "I don't want to talk now":goto 11 61 print"That sounds exciting":goto 11 62 return You can ofcourse expand the AI Power by adding more answers after line 62 make sure to ad the directing lines to after line 25.