github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-11 23:53:12 +00:00
Code Issues Releases Wiki Activity

Add Moon's "Amber", AI memo 628, and typeset it with Bolio.

Browse Source
This commit is contained in:
Lars Brinkhoff 2019-06-13 16:04:06 +02:00
parent 5965a9963d
commit 79ccd08e36
4 changed files with 1608 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
build/build.tcl
View File

@ -154,6 +154,7 @@ if {$env(BASICS)!="yes"} {
source $build/scheme.tcl
source $build/muddle.tcl
source $build/sail.tcl
source $build/typeset.tcl
}
bootable_tapes

5
build/typeset.tcl Normal file
View File

@ -0,0 +1,5 @@
log_progress "ENTERING BUILD SCRIPT: TYPESET"
respond "*" ":bolio;bolio moon;amber\r"
respond "NIL" "(quit)"
expect ":KILL"

1572
doc/moon/amber.66 Normal file
View File

File diff suppressed because it is too large Load Diff

30
doc/moon/amber.bolio Normal file
View File

@ -0,0 +1,30 @@
;; BOLIO init file for Amber paper -*-LISP-*-
;; Not much to say, yet...
(PAPER-STYLE '|The Chaosnet *** DRAFT ***|)
;;; .packet opcode 3-letter-code long-name
(DEFPROP PACKET PACKET-REQUEST REQUEST)
(DEFUN PACKET-REQUEST ()
(CHECK-ENV 'TEXT 'PACKET)
(OR (NEED-SPACE 200.) ;1 inch
(OUTPUT-LEADING 50.)) ;1/4 inch
(CHECK-FONT-STATUS 1)
(SETQ CUR-HPOS 0)
(LET ((NUMERIC-CODE (GET-WORD-STRING))
(3LETTER-CODE (GET-WORD-STRING))
(FULL-NAME (GET-LINE-STRING))
(JIN-CUR-FONT 7)
(TAB-STRING (STRING '| |)))
(SET-HPOS LEFT-MARGIN)
(PUT-STRING-FLUSH-LEFT NUMERIC-CODE)
(OUTPUT-NOFILL-STRING TAB-STRING)
(PUT-STRING-FLUSH-LEFT 3LETTER-CODE)
(OUTPUT-NOFILL-STRING TAB-STRING)
(SETQ JIN-CUR-FONT 1)
(PUT-STRING-FLUSH-LEFT FULL-NAME))
(LINE-ADVANCE)
(SETQ BEGIN-NEW-PARAGRAPH T)
(OUTPUT-LEADING 25.)) ;1/8 inch