PC Logo Wiki

Welcome to the PC Logo Wiki

PC Logo 4.0 PC Logo is a language you can write a program. PC Logo is an education language can help we calculate, sing, draw, write.

HAVE FUN!

Please Download the PC Logo 4.0.

Describe your topic

PC Logo is a programming language. The newest is the PC Logo 4.0.

Latest activity

Example programs:

TO PARTITA.IN.E
PLAY [R T200]
ONE
TWO
THREE
END

TO ONE
PLAY [L8 E D#]
PLAY [L4 E OB B G# B]
PLAY [L8 E F# E D#]
PLAY [L4 E OB B G# B]
REPEAT 2 [PLAY [L8 E B F# B G# B A B G# B F# B E O# E D# C# OB B O# E D# C# OB B A G# F#]]
PLAY [E F# G# A B O# C# D# E F# G# A F#]
PLAY [G# B E F# G# A B O# C# D# E C# D#]
PLAY [E OB B A B G# B A B G# B F# B]
PLAY [E O# E D# C# OB B E O# C# OB E B E A E]
PLAY [G# B F# B G# B A B G# B F# B]
PLAY [E O# E D# C# OB B E O# C# OB E B E A E]
REPEAT 2 [PLAY [G# E E E D# E E E F# E D# E E E G# E F# E G# E A E F# E]]
END

TO TWO
REPEAT 3 [PLAY [G# E G# E]]
REPEAT 3 [PLAY [G# E G# D#]]
REPEAT 3 [PLAY [G# E G# D]]
REPEAT 3 [PLAY [A E A C#]]
PLAY [A E A OB B]
REPEAT 2 [PLAY [O# A E A OB B]]
REPEAT 3 [PLAY [O# G# E G# OB B]]
REPEAT 3 [PLAY [O# G# E G# OB A]]
REPEAT 3 [PLAY [O# F# E F# OB A]]
REPEAT 3 [PLAY [O# F# E F# OB G#]]
REPEAT 3 [PLAY [O# E E E OB G#]]
REPEAT 3 [PLAY [O# E E E OB F#]]
REPEAT 3 [PLAY [O# D# E D# OB F#]]
END

TO THREE
PLAY [E F# E F# G# B E F# G# B E F#]
PLAY [G# A G# A B O# E OB G# A B O# E OB G# A]
PLAY [B O# C# OB B O# C# D G# OB B O# C# D G# OB B O# C#]
PLAY [D B G# E D OB B G# E D C# D OB B]
PLAY [O# C# D# C# D# F G# C# D# F G# C# D#]
PLAY [F F# F F# G# O# C# OB F F# G# O# C# OB F F#]
PLAY [G# A G# A B O# F OB G# A B O# F OB G# A]
PLAY [B O# G# F C# B G# A F# F G# C# OB B]
PLAY [A O# C# OB A F# O# F# D# E C# C D# OB G# F#]
PLAY [E G# E C# E G# O# C# OB G# O# E C# G# C#]
PLAY [C D# C OB G# O# G# G G# G G# D# E C#]
PLAY [C D# C OB G# O# F# F F# F F# D# E C#]
PLAY [C D# C OB G# A G# A G# A D# E C#]
PLAY [C F# C# F# D# F# C# F# C F# D# F#]
PLAY [OB G# O# F# O# D# OB F# O# C OB F# O# D# OB F# O# C OB F# O# D# OB F#]
PLAY [OB G# O# E O# C# OB E O# E OB E O# C# OB E O# E OB E O# C# OB E]
PLAY [OB G# O# F# O# D# OB F# O# C OB F# O# D# OB F# O# C OB F# O# D# OB F#]
PLAY [OB G# O# E O# C# OB E O# E OB E O# C# OB E O# E OB E O# C# OB E]
REPEAT 2 [PLAY [OB G# O# G O# C# OB G O# E OB G O# C# OB G O# E OB G O# C# OB G]]
PLAY [OB G# O# G# O# C# OB G# O# D# OB G# O# C# OB G# O# D# OB G# O# C# OB G#]
PLAY [OB G# O# F# O# C OB F# O# D# OB F# O# C OB F# O# D# OB F# O# C OB F#]
PLAY [L1 C# R]
END

TO SET.TEMPO :TEMPO
PLAY (LIST WORD "T :TEMPO)
END

TO PLAY.RIT :LIST :TEMPO :DIM
MAKE "T :TEMPO
WHILE [NOT EMPTY? :LIST] [SET.TEMPO :T PLAY (LIST FIRST :LIST) MAKE "LIST BF :LIST MAKE "T :T \- :DIM]
SET.TEMPO :TEMPO
END

TO THEME
PLAY [O4 E D# E O3 B O4 D C O3 A O1 E A O3 C E A B O1 E G# O3 E G# B O4 C O1 E A O4]
PLAY [O3 E]
PLAY [O4 E D# E D# E O3 B O4 D C O3 A O1 E A O3 C E A B O1 E G# O3 E O4 C O3 B A O1 E A]
PLAY [O3 B O4 C D E O1 G O2 C O3 G O4 F E D O1 G B O3 F O4 E D C]
PLAY.RIT [O1 E G O3 E O4 D C O3 B O1 E O2 E O3 E O4 E O3 E O4 E E O5 E O4 D# E D# E D# E] :TEMPO 1
PLAY [O4 D#]
PLAY [O4 E D# E D# E O3 B O4 D C O3 A O1 E A O3 C E A B O1 E G# O3 E G# B O4 C O1 E A O4]
PLAY [O3 E]
PLAY [O4 E D# E D# E O3 B O4 D C O3 A O1 E A O3 C E A B O1 E G# O3 E O4 C O3 B]
END

TO INTERLUDE.1
PLAY [A O1 E A S5]
PLAY [O3 E F G O3 [F A O4 4C] F. L32 E L8 E D L16 Bb. 32A A G F E D C O3 8Bb 8A L32 A G A B]
PLAY [L16 O4 C O1 G O2 C O1 G O4 D D# E O1 G O2 C O4 E F O3 A O4 C O2 E O1 G O2 E O4 D. O3 32B]
REPEAT 2 [PLAY [L32 O4 C G O3 G O4 G O3 A O4 G O3 B O4 G C G D G E G O5 C O4 B A G F E D G F D]]
PLAY [E F E D# E O3 B O4 E D E O3 B O4 E D L8 E.]
PLAY.RIT [L16 O3 B O4 E D# L8 E. L16 O3 B O4 E D# E D# E D# E D#] :TEMPO 1
END

TO CRESCENDO
PLAY [L16 A S10 O1 A A A A A]
PLAY [[O3 E G Bb O4 C#] O1 A A A A A]
PLAY [[O3 F A O4 D] O1 A A A O4 E F]
PLAY [[O3 G# O4 D F] O1 A A A [O3 G# O4 D F] O1 A]
PLAY [[O3 A O4 C E] O1 A A A A A]
PLAY [[O3 F O4 D] O1 D D D O4 C O3 B]
PLAY [[C F# A] O1 D# D# D# O3 [C A] O1 D#]
PLAY [[O3 C A] O1 E [O3 E O4 C] O1 E [O3 D B] O1 G#]
PLAY [[O3 C A] O1 A A A A A]
PLAY [[O3 E G Bb O4 C#] O1 A A A A A]
PLAY [[O3 F A O4 D] O1 A A A O4 E F]
PLAY [[O3 G# O4 D F] O1 A A A [O3 G# O4 D F] O1 A]
PLAY [[O4 D F] O1 Bb Bb Bb Bb Bb]
PLAY [[O3 G O4 Eb] O1 Bb Bb Bb O4 D C]
PLAY [[O3 D F Bb] O1 Bb Bb Bb [O3 D F A] O1 Bb]
PLAY [[O3 D F G#] O1 B B B [O3 D F G#] O1 B]
PLAY [[O2 C O3 C E 4A] 8P]
PLAY [[O2 E G O3 D E 8B] 4P]
END

TO INTERLUDE.2
PLAY [S0 O2 A O3 C E A O4 C E D C O3 B A O4 C E A O5 C E D C O4 B]
PLAY [A O5 C E A O6 C E D C O5 B Bb A G# G F# F E D# D]
PLAY.RIT [C# C O4 B Bb A G# G F# F] :TEMPO 1
END

TO CODA
PLAY [[O0 A C E O1 A C E O2 A C E O3 2A] R]
END

NOCASE

TO FOR.ELISE
MAKE "TEMPO 70
PLAY [R] SET.TEMPO :TEMPO
PLAY [L16 S0]
PLAY [O4 E D#]
THEME
INTERLUDE.1
THEME
CRESCENDO
INTERLUDE.2
THEME
CODA
END

CASE
MAKE "TEMPO 70
MAKE "T 38

TS CT
PRINT [THE PROCEDURES IN THIS FILE WILL PLAY \"PARTITA IN E\" BY BACH]
PRINT [AND \"FOR ELISE\" BY BEETHOVEN]
PRINT [TO PLAY THE PARTITA, TYPE PARTITA.IN.E]
PRINT [TO PLAY FOR ELISE, TYPE FOR.ELISE]