for i=1 to len(in$)
select case mid$(in$,i,1)
case "a"
print"hi"
case "b"
'put code here
case "c"
'put code here
end select
next
print
goto [start]
fill in the blanks bitch.
Name:
Anonymous2007-09-24 17:27 ID:on03ffSy
Toy language? Is this a Lisp thread?
Name:
Anonymous2007-09-24 20:56 ID:RI/XE0Z9
[start]
input"";in$
for i=1 to len(in$)
select case mid$(in$,i,1)
case "s"
print"sage"
case "g"
b=b+1
print b;"GET"
case "4"
print "4chan"
end select
next
print
goto [start]
>>3
Heres an awesome program for it.
4ggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggs