github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-05-03 06:39:17 +00:00
Code Issues Releases Wiki Activity

LLOGO - Logo written in Lisp.

Browse Source 
By Ira Goldstein, Henry Lieberman, et al.

The added IOC LSP file is for emulating older Maclisp forms no longer
supported in the latest version.
This commit is contained in:
Lars Brinkhoff
2018-05-12 19:07:33 +02:00
parent 433dc9bc3e
commit e1753de866
7 changed files with 58 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
build/lisp.tcl
View File

@@ -865,3 +865,38 @@ respond_load "(load '((lmio1) ukbd))"
respond "T" "(as 'ukbd)"
respond "UKBD" "(quit)"
expect ":KILL"
# Lisp Logo
respond "*" ":cwd llogo\r"
respond "*" ":complr\r"
respond "_" "ioc\r"
respond "_" "\032"
type ":kill\r"
respond "*" ":complr\r"
respond "_" "\007"
respond "*" "(load 'ioc)"
respond_load "(load 'define)"
respond "T" "(maklap)"
respond "_" "define\r"
respond "_" "\032"
type ":kill\r"
respond "*" ":complr\r"
respond "_" "\007"
respond "*" "(load 'ioc)"
respond_load "(load 'define)"
respond_load "(maklap)"
respond "_" "error\r"
respond "_" "parser\r"
respond "_" "primit\r"
respond "_" "print\r"
respond "_" "reader\r"
respond "_" "setup\r"
respond "_" "unedit\r"
respond "_" "\032"
type ":kill\r"
respond "*" ":lisp loader\r"
respond "?" "Y\r"
respond "?" "LLOGO\r"
respond "?" "1700\r"
expect ":KILL"
respond "*" ":link sys1; ts llogo, llogo; ts llogo\r"