home *** CD-ROM | disk | FTP | other *** search
- to "poly :d :a
- forward :d
- right :a
- poly :d :a
- end
-
- to "start
- DRAW
- BG 2 PC 3
- LT 120 HT
- POLYS 1 123 3
- PR [ Welcome to The Great Logo Adventure! ]
- WAIT 5
- PR [...powerful ideas in mind-sized bytes. ]
- WAIT 5
- UNO
- end
-
- to "polys :S :A :I
- IF :S > 160 [STOP]
- FD :S RT :A
- POLYS ( :S + :I ) :A :I
- end
-
- to "crystal :count
- IF :COUNT > 8 STOP
- SHAPE
- LT 45
- FD 70
- MAKE "COUNT :COUNT + 1
- CRYSTAL :COUNT
- end
-
- to "shape
- REPEAT 2 [ FD 40 RT 90 ]
- REPEAT 2 [ FD 20 RT 90 ]
- FD 40 RT 90
- REPEAT 2 [ FD 10 RT 90 ]
- FD 20
- end
-
- to "wait :t
- IF :T = 0 STOP
- MAKE "T :T - 1
- WAIT :T
- end
-
- to "final
- NODRAW CT
- CURSOR 1 6
- PR [ But Logo is much more than just]
- PR [ Turtle Graphics. It puts some very]
- PR [ powerful ideas at your fingertips --]
- JL PR [ ideas like structured programming,]
- PR [ interactive graphics]
- PR [ local and global variables,]
- PR [ list processing,]
- PR [ recursion.]
- JL PR [ Logo is a conversational language with]
- PR [ no threshold or ceiling. Preschoolers]
- PR [ can enjoy intuitive learning while]
- PR [ professionals can explore AI and other]
- PR [ advanced subjects.]
- WAIT 30
- CLEARWS
- LOAD "DEMO2
- START
- end
-
- to "turtle.walk
- DRAW CT HT
- PC 1
- PU SETXY 20 30 PD
- CRYSTAL 0
- PR [ A Turtle Walk. ]
- WAIT 10
- end
-
- to "je
- NODRAW CT CURSOR 1 1
- end
-
- to "jc
- BG 0 DRAW
- end
-
- to "jl
- PRINT "
- end
-
- to "jp
- REPEAT 3 [JI]
- end
-
- to "ji
- TYPE CHAR 32
- end
-
- to "jb
- PR [ FORWARD 50 ] WAIT 2 FD 50 WAIT 5
- PR [ RIGHT 90 ] WAIT 2 RT 90 WAIT 5
- PR [ BACK 50 ] WAIT 2 BK 50 WAIT 5
- PR [ LEFT 60 ] WAIT 2 LT 60 WAIT 5
- PR [ SETY 0 ] WAIT 2 SETY 0 WAIT 5
- PR [ HIDETURTLE ] WAIT 2 HT WAIT 5
- PR [ SETX 0 ] WAIT 2 SETX 0 WAIT 5
- PR [ SHOWTURTLE ] WAIT 2 ST WAIT 5
- PR [ PENUP ] WAIT 2 PU WAIT 5
- PR [ SETXY 25 10 ] WAIT 2 SETXY 25 10 wait 15
- PR [ PENDOWN ] WAIT 2 PD WAIT 2
- PR [ REPEAT 3 [ FD 50 RT 120 ] ] WAIT 2 REPEAT 3 [ FD 50 RT 120] WAIT 5
- PR [ CLEARSCREEN ] WAIT 2 CS WAIT 5
- PR [ PC 2 ] WAIT 2 PC 2 WAIT 5
- PR [ REPEAT 5 [ LT 18 FD 50 REPEAT 5 [ FD 20 RT 144 ] RT 90 ] ]
- WAIT 2
- REPEAT 5 [ LT 18 FD 50 REPEAT 5 [ FD 20 rt 144 ] rt 90 ]
- wait 10
- print [ DRAW ] wait 2 DRAW wait 10
- print [ REPEAT 30 [ REPEAT 4 [ FD 40 RT 90 ] RT 12 ] ]
- wait 10
- repeat 30 [ repeat 4 [ fd 40 rt 90 ] rt 12 ] wait 15
- TURTLE.WALK
- FINAL
- end
-
- to "uno
- print [ This drawing was made with the ]
- wait 5
- print [ Logo turtle... ]
- wait 5
- je cursor 5 1
- print [ ...a cybernetic pet who draws as she]
- jl print [ moves across the screen. By directing]
- jl print [ the turtle to create graphic designs, ]
- jl print [ programmers of all ages begin to ]
- jl print [ explore some unique aesthetic and ]
- jl print [ mathematical issues. ]
- cursor 1 22
- print [ Take a look! ]
- wait 15 draw st jb
- end
-
- to "pr :LIST
- PRINT :LIST
- end
-
- t [ mathematical issues. ]
- cursor 1 22
- print [ Take a look! ]
- wait 15 draw st jb
-