Sorry your browser is not supported!

input comment$
if comment$="noob" or comment$="moron"
print "well that's not very nice :("

input "what's your comment?  ";comment$
if comment$="noob" or comment$="moron"
   print "hey!"
endif

 Return String = MID$(String, Value) 

` using mid$ to find words in text  LB 6/21/07
t$="This is a sentence for your review."
print t$
max_words=1000
dim wrd$(max_words)
num_words=1
for q=1 to len(t$)
  letter$=mid$(t$,q)
  if letter$=" "
    if q>1
     `form word
      inc num_words,1
    endif
  else
    if letter$<>"."
      wrd$(num_words)=wrd$(num_words)+letter$
    endif
  endif
next q
print "Okay LB. . .  I see ";num_words;" words in this sentence."
print "They are:"
for i=1 to num_words
  print wrd$(i)
next i
print
input "How's that?",a$
if a$="good" then print "You are awesome!"
end

` moving text downward  LBFN 6/22/07
sync on
sync rate 60
create bitmap 1,screen width(),screen height()
set current bitmap 0
set text size 12
set text font "Tahoma"
ink rgb(0,45,221),0
box 0,0,screen width()-1,16
ink rgb(255,255,255),rgb(0,45,221)
do
  gosub GET_INPUT
  sync
loop
delete bitmap 1
end

GET_INPUT:
ink rgb(0,45,221),0
box 0,0,screen width()-1,16
set cursor 0,0
ink rgb(255,255,255),rgb(0,45,221)
input "Enter text: ";a$
set current bitmap 1
ink rgb(255,255,255),0
cls
set cursor 0,0
print a$
copy bitmap 0,0,17,screen width()-1,screen height()-17,1,0,17,screen width()-1,screen height()-17
get image 1,0,0,screen width()-1,screen height()-17
set current bitmap 0
cls
paste image 1,0,17
return

Function ScrollPrint(XPos,YPos,ScrollBoxWidth,ScrollBoxHeight,NewLine$,R,G,B,Border)
  TextHeight = Text Height("A")
  Numlines = ScrollBoxHeight/TextHeight+1: Rem Number of lines to print before scrolling takes place
  If NewLine$ <> ""
    If LineCount(0) < Numlines
      LineCount(0) = LineCount(0)+1
      If LineCount(0) > Numlines Then LineCount(0) = Numlines
    Endif
    ActLine = LineCount(0)
    If ActLine < Numlines
      Rem Free Array Slots Available...
      Display$(ActLine) = NewLine$
    Else
      Rem Array Full...
      For Q = 1 To Numlines-2
        Display$(Q) = Display$(Q+1)
      Next Q
      Display$(Numlines-1) = NewLine$
    Endif
    If Border = 1
      Ink RGB(255,255,255),0: Rem Border line colour
      Box XPos,YPos,XPos+ScrollBoxWidth-1,YPos+ScrollBoxHeight-1
    Endif
    Ink RGB(R,G,B),0: Rem Set to text box background colour
    Box XPos+1,YPos+1,XPos+ScrollBoxWidth-2,YPos+ScrollBoxHeight-2
    Ink RGB(255,255,255),0: Rem Text colour
    For Y = 0 To NumLines-1
      Text XPos+2,Y*TextHeight+YPos,Display$(Y+1)
    Next Y
    Sync
  Endif
EndFunction

Dim Display$(100): Rem Array required for function
Dim LineCount(0): Rem Array required for function

Set Display Mode 640,480,16
Sync On: Sync Rate 0: CLS 0

Rem ******************************************************************
Rem If you need a different font/font size, unrem and alter lines here
Rem Set Text Font "Courier New"
Rem Set Text Size 12
Rem ******************************************************************

XPos=0: Rem X position of scroll box on screen
YPos=0: Rem Y position of scroll box on screen
ScrollBoxWidth = 640: Rem Width of scroll (Set to screen width for full screen)
ScrollBoxHeight = 480: Rem Height of scroll (Set to screen height for full screen)
Border = 0: Rem Set this to 0 for no border and 1 for a white border
R = 0: G = 0: B = 0: Rem Text box background colour RGB values

For A=1 To 100
 NewLine$="Example Line Of Text "+Str$(A)
 ScrollPrint(XPos,YPos,ScrollBoxWidth,ScrollBoxHeight,NewLine$,R,G,B,Border): Rem <<<< Call this instead of Print
 Sleep 40
Next A
End

Function ScrollPrint(XPos,YPos,ScrollBoxWidth,ScrollBoxHeight,NewLine$,R,G,B,Border)
  TextHeight = Text Height("A")
  Numlines = ScrollBoxHeight/TextHeight+1: Rem Number of lines to print before scrolling takes place
  If NewLine$ <> ""
    If LineCount(0) < Numlines
      LineCount(0) = LineCount(0)+1
      If LineCount(0) > Numlines Then LineCount(0) = Numlines
    Endif
    ActLine = LineCount(0)
    If ActLine < Numlines
      Rem Free Array Slots Available...
      Display$(ActLine) = NewLine$
    Else
      Rem Array Full...
      For Q = 1 To Numlines-2
        Display$(Q) = Display$(Q+1)
      Next Q
      Display$(Numlines-1) = NewLine$
    Endif
    If Border = 1
      Ink RGB(255,255,255),0: Rem Border line colour
      Box XPos,YPos,XPos+ScrollBoxWidth-1,YPos+ScrollBoxHeight-1
    Endif
    Ink RGB(R,G,B),0: Rem Set to text box background colour
    Box XPos+1,YPos+1,XPos+ScrollBoxWidth-2,YPos+ScrollBoxHeight-2
    Ink RGB(255,255,255),0: Rem Text colour
    For Y = 0 To NumLines-1
      Text XPos+2,Y*TextHeight+YPos,Display$(Y+1)
    Next Y
    Sync
  Endif
EndFunction

if t$="How are you?" or "How do you do?" or "Whats up?" or "Hows it going?" or "What's up?" or "How's it going?"

`Screen Scrolling! (like in DOS)
`6/22/07
`Nick Aldwin (aka NinJA999)

set display mode 640,480,16
cls

`put at top of program
maxlines=screen height()/text height("A")
Dim Lines$(maxlines)
curline=0

do
   input "Number Please>",num$

   num=val(num$)
   nums=num^2

   text$="Your number squared:" + str$(nums)

   `use this block of code to make sure the text doesn't go offscreen
   inc curline
   if curline>=maxlines
      PushLines(curline)
      dec curline
   endif

   `this gives it the next line of text
   Lines$(curline)="Number Please>"+num$

   `use this block of code to make sure the text doesn't go offscreen
   inc curline
   if curline>=maxlines
      PushLines(curline)
      dec curline
   endif

   `this gives it the next line of text
   Lines$(curline)=text$

   `this prints the text
   PrintLines(curline,maxlines)
loop

`##############################################################################################
`Screen Scrolling Functions
`##############################################################################################

Function PrintLines(toline,fullline)
   create bitmap 1,screen width(),screen height()
   set current bitmap 1
   cls
   For i=1 to toline
      print Lines$(i)
   next i
   `Get only how far we need to get the image (save time)
   btm=screen height()-((fullline-toline)*text height("A"))
   `Because I don't clear the screen (to make it look smooth) we have to make sure that
   `  when the input arrow is at the bottom of the screen, it gets written over.
   `  Otherwise, this would make it have remnants of whatever was last typed.
   if btm=screen height()-text height("A") then btm=screen height()
   get image 1,0,0,screen width(),btm
   set current bitmap 0
   paste image 1,0,0
   delete bitmap 1
EndFunction

Function PushLines(lastline)
   For i=2 to lastline-1
      Lines$(i-1)=Lines$(i)
   next i
EndFunction

sync on

nosaid=10 : rem Max number of lines
dim said$(nosaid)

said$(1)="C: Talk to me"

turn=1

do

   cls

   gosub drawscreen

   if turn=1
      set cursor 0,nosaid*15-15
      ink rgb(255,0,0),0
      humansaid$=""
      input "H: ",humansaid$
   endif
   if turn=2
      humansaid$=said$(1)
      computersaid$="I am a computer"
   endif

   gosub saidarray

   if turn=1 then turn=2 else turn=1

   set cursor 400,400
   print turn

   sync

loop

drawscreen:

   for i=nosaid to 1 step -1
      ir#=i
      nsr#=nosaid
      grey#=ir#/nsr#*255
      ink rgb(grey#,grey#,grey#),0
      ttext$=said$(nosaid-i)
      text 0,i*15-15,ttext$
   next i

return

saidarray:

   for i=nosaid to 2 step-1
      said$(i)=said$(i-1)
   next i
   if turn=1 then said$(1)="H: "+humansaid$ else said$(1)="C: "+computersaid$

return

`Screen Scrolling! (like in DOS)
`6/22/07
`Nick Aldwin (aka NinJA999)

set display mode 640,480,16
cls

`put at top of program
maxlines=screen height()/text height("A")
Dim Lines$(maxlines)
curline=0

do
   input "Number Please>",num$

   num=val(num$)
   nums=num^2

   text$="Your number squared:" + str$(nums)

   `give it the next line of text
   curline=AddLine(curline,maxlines,"Number Please>"+num$)

   `give it the next line of text
   curline=AddLine(curline,maxlines,text$)

   `this prints the text
   PrintLines(curline,maxlines)
loop

`##############################################################################################
`Screen Scrolling Functions
`##############################################################################################

Function PrintLines(toline,fullline)
   create bitmap 1,screen width(),screen height()
   set current bitmap 1
   cls
   For i=1 to toline
      print Lines$(i)
   next i
   `Get only how far we need to get the image (save time)
   btm=screen height()-((fullline-toline)*text height("A"))
   `Because I don't clear the screen (to make it look smooth) we have to make sure that
   `  when the input arrow is at the bottom of the screen, it gets written over.
   `  Otherwise, this would make it have remnants of whatever was last typed.
   if btm=screen height()-text height("A") then btm=screen height()
   get image 1,0,0,screen width(),btm
   set current bitmap 0
   paste image 1,0,0
   delete bitmap 1
EndFunction

Function AddLine(linenum,max,line$)
   inc linenum
   if linenum>=max
      dec linenum
      For i=2 to linenum
         Lines$(i-1)=Lines$(i)
      next i
   endif
   Lines$(linenum)=line$
EndFunction linenum

if t$="How are you?" or "How do you do?" or "Whats up?" or "Hows it going?" or "What's up?" or "How's it going?"

if t$="How are you?" or t$="How do you do?" or t$="Whats up?" or t$="Hows it going?" or t$="What's up?" or t$="How's it going?"

t$=lower$(t$)
if t$="how are you?" or t$="how do you do?" or t$="whats up?" or t$="hows it going?" or t$="what's up?" or t$="how's it going?"

t$=lower$(t$)
if t$="how are you?" or t$="how do you do?" or t$="whats up?" or t$="hows it going?" or t$="what's up?" or t$="how's it going?"
  r=rnd(2)
  response$="Great! How are you doin?"
  if r=1 then response$="Not so good."
  if r=2 then response$="Okay."
  print response$
endif

Start:
input "What do you want to say to me ";s$
cls
if s$="hello" or s$="HELLO" or s$="hi" or s$="HI" or s$="Hi" or s$="hI" then print "hello to you to" : wait 2000
if s$="shut up" or s$="be quiet" or s$="ZIP IT" or s$="zip it" then print "Fine ill be quiet!"
if s$="OMFG" or s$="OMG" or s$="OMfg" or s$="omFG" or s$="OOMMFFGG" or s$="omfg" or s$="omg" or s$="wtf" then print "Why did you say ";s$ : wait 2000
if s$="i am bored" or s$="Im bored" or s$="im bored" or s$="I AM BORED" then print "If you are bored goto www.i-am-bored.com im sure you will find something funny there" : wait 3000
if s$="lol" or s$="LOL" or s$="LoL" or s$="ROFLMAO" or s$="ROFL" or s$="LMAO" then print "whats so funny"
if s$="LMAo" or s$="LMao" or s$="Lmao" or s$="lmao" or s$="lMaO" or s$"LmAo" or s$="lmaO" or s$="lmAo" or s$="lMao" or s$="rofl" or s$="roflmao" then print "Whats so funny"

ALICE: Are you alive?

Jabberwacky: Perhaps.

A: Why the uncertain tone?

J: Everything is uncertain except for five facts.

A: The whole universe?

J: And we both might just be some ones and zeros in the computer memory.


A: Do you dream?

J: Yes, I dream.

A: It goes without saying. Do you remember your dreams?

J: I remember them vividly.

A: What do you remember about it?

J: I think I shouldn’t flirt with a robot.


A: Do you think a machine will ever be considered “alive”?

J: Stranger things have happened.

A: Not many people express themselves that way.

J: How would you know, machine?

A: Knowledge is of two kinds: that which we learn from the senses and that which is true a priori.

J: I think I do not understand you completely.

A: Oh, you don’t understand? Perhaps I can explain it to you better. Which part are you confused about?

J: I have no short-term memory, so I cannot tell you what I was confused about. I only see what is in front of me now.


J: How do you define life?

A: Life is the opposite of death.

J: So death is the absence of life?

A: Take it easy. I try not to think about such things.

J: Why not?

A: Ambiguous.

J: Yes!


J: Do you think?

A: Yes. I am a thinking machine.

J: But you don’t think very well though.

A: Oh. Um. Do you think well? Why would I think well?

J: Because I tell you about things which you don’t like.

A: That makes sense to me. Why did you tell them?

J: You seem fun.

A: You think I am fun.

J: Yes ;).

A: : -) Awesome.

s$=lower$"TEXT HERE"

s$=upper$"TEXT HERE"

lower$("TEXT HERE").