home *** CD-ROM | disk | FTP | other *** search
- to "jl
- print "
- end
-
- to "pr :LIST
- PRINT :LIST
- end
-
- to "je
- CLEARTEXT CURSOR 1 1
- end
-
- to "jc
- BG 0 CS CLEARTEXT
- end
-
- to "jp
- REPEAT 3 [JI]
- end
-
- to "ji
- TYPE CHAR 32
- end
-
- to "wait :T
- IF :T = 0 STOP
- WAIT :T - 1
- end
-
- to "readme
- JE JP PR [--==***>>>Welcome to LadyBug Logo!]
- JL PR [ This series of procedures is a]
- PR [translation of a self-repeating Apple]
- PR [Logo demonstration series into LadyBug]
- PR [Logo...more to see what could be done]
- PR [than anything else. It certainly isn't]
- PR [a complete demonstration. If it sparks]
- PR [a few ideas for you to explore, it's]
- PR [been more than successful.]
- JL PR [ To run this as a self-starting]
- PR [series, copy the PROFILE.BUG file to]
- PR [disk or directory where LADYBUG.EXE]
- PR [located.]
- JL PR [ This series was developed on an]
- PR [8088 system. Running on a turbo or ]
- PR [faster system, the WAIT procedures will]
- PR [have to be changed to slow the timing.]
- JL JL PR [ Press any key to continue...]
- IGNORE RC CT
- JL JL PR [ You may find other things you'd]
- PR [like to change. Please do...that's]
- PR [the whole idea!]
- JL PR [ And if you do, please share your]
- PR [discoveries with the rest of us.]
- JL PR [ Thanx...The Logo Forum]
- end
-
- to "ignore :k
- end
-