Power-Programmierung/CD1.mdf/logo/labybug/start.bug

Text File | 1989-12-31 | 1KB | 63 lines

to "poly  :d :a
forward :d
right :a
poly :d :a
end

to "je
CT CURSOR 1 1
end

to "jc
BG 0 CS CT
end

to "jl
print "
end

to "jp
REPEAT 3 [JI]
end

to "ji
TYPE CHAR 32
end

to "hello
JL JP print [In The Great Logo Adventure, you'll]
JP print [be introduced to the fascinations]
JP print [of LadyBug Logo.]
JL JP print [Enjoy your adventure.]
JL JP print [Then go back and see how this demo]
JP print [was put together.]
JL JP print [Explore each procedure.]
JP print [Discover how to combine these]
JP print [ideas for your own Logo video show.]
JL print [Many thanks to Robs Muir, Jeff Sandys,]
print [Peter Carter, and the many YPLA members]
print [from around the world whose ideas made]
print [this adventure possible.]
jl jp jp print [When you're ready to start,]
jp jp print [press any key...]
end

to "start
CT HELLO
IGNORE RC
CLEARWS
LOAD "DEMO
START
end

to "wait  :t
IF :T = 0 STOP
WAIT :T - 1
end

to "ignore  :k
end

HELLO
IGNORE RC
CL