Make a program that is a person if they were coded!

[red_Marvin]

me: sorta....

Code:

option explicit
dim as string i
dim as integer x,y,c,d,n,p
randomize timer
screen 18,32,,1
x=rnd*640:y=rnd*640
d=rnd*4
c=rgb(rnd*255,rnd*255,rnd*255)
do
  i=inkey$
  if int(rnd+.01) then d=(d+int(rnd*4) and 3)
  select case d
    case 0: x+=1
    case 1: y+=1
    case 2: x-=1
    case 3: y-=1
  end select
  if x>=640 then x=0
  if x<0 then x=639
  if y>=480 then y=0
  if y<0 then y=479
  if point(x,y)>c and p>1024 and int(rnd+.01) then
    circle(x,y),16,rgb(127,127,127)
    locate iif(y\16+2>29,29,y\16+2),iif(x\8+2>80-13,80-13,x\8+2)  
    print "Took a photo."
    p=0
  end if
  p+=1
  pset(x,y),c
  if int(rnd+.001) then
    for n=0 to 255
      c=rgb(rnd*255,rnd*255,rnd*255)
      pset(x+int(rnd*16)-int(rnd*16),y+int(rnd*16)-int(rnd*16)),c
      sleep 1
    next  
    d=rnd*4
    locate iif(y\16+2>29,29,y\16+2),iif(x\8+2>80-6,80-6,x\8+2)
    print "meh...";
  end if
  if int(rnd+.0005) then locate iif(y\16+2>29,29,y\16+2),iif(x\8+2>80-7,80-7,x\8+2):print "zzzZZzz":sleep 3000
  sleep 5
loop while i=""