From df17cabaf657cbdcce0b6050696a5494c5df1c43 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Tue, 25 Sep 2018 07:44:48 +0200
Subject: [PATCH] Make LLOGO use DSK device rather than AI.

Rename file versions to one more than the last known version.
---
 src/llogo/{define.1 => define.95}    | 2 +-
 src/llogo/{error.1 => error.224}     | 8 ++++----
 src/llogo/{germ.1 => germ.147}       | 2 +-
 src/llogo/{loader.1 => loader.153}   | 8 ++++----
 src/llogo/{music.1 => music.13}      | 2 +-
 src/llogo/{parser.1 => parsers.129}  | 2 +-
 src/llogo/{primit.1 => primit.304}   | 2 +-
 src/llogo/{print.1 => print.165}     | 2 +-
 src/llogo/{reader.1 => reader.201}   | 2 +-
 src/llogo/{setup.1 => setup.306}     | 4 ++--
 src/llogo/{turtle.465 => turtle.466} | 2 +-
 src/llogo/{tvrtle.1 => tvrtle.541}   | 2 +-
 src/llogo/{unedit.1 => unedit.212}   | 2 +-
 13 files changed, 20 insertions(+), 20 deletions(-)
 rename src/llogo/{define.1 => define.95} (99%)
 rename src/llogo/{error.1 => error.224} (99%)
 rename src/llogo/{germ.1 => germ.147} (99%)
 rename src/llogo/{loader.1 => loader.153} (97%)
 rename src/llogo/{music.1 => music.13} (99%)
 rename src/llogo/{parser.1 => parsers.129} (99%)
 rename src/llogo/{primit.1 => primit.304} (99%)
 rename src/llogo/{print.1 => print.165} (99%)
 rename src/llogo/{reader.1 => reader.201} (99%)
 rename src/llogo/{setup.1 => setup.306} (98%)
 rename src/llogo/{turtle.465 => turtle.466} (99%)
 rename src/llogo/{tvrtle.1 => tvrtle.541} (99%)
 rename src/llogo/{unedit.1 => unedit.212} (99%)

diff --git a/src/llogo/define.1 b/src/llogo/define.95
similarity index 99%
rename from src/llogo/define.1
rename to src/llogo/define.95
index 982739fb..a97406bc 100644
--- a/src/llogo/define.1
+++ b/src/llogo/define.95
@@ -18,7 +18,7 @@
 	 (GENPREFIX DEFINE-)
 	 (COND ((STATUS FEATURE DEFINE))
 	       ((AND (OR (STATUS FEATURE ITS) (STATUS FEATURE DEC10))
-		     (ERRSET (FASLOAD DEFINE FASL AI LLOGO))))
+		     (ERRSET (FASLOAD DEFINE FASL DSK LLOGO))))
 	       ((AND (STATUS FEATURE MULTICS)
 		     (ERRSET (LOAD "DEFINE.LISP"))))
 	       ((IOG NIL (PRINT '(DEFINE MUST BE READ INTO COMPILER)))))) 
diff --git a/src/llogo/error.1 b/src/llogo/error.224
similarity index 99%
rename from src/llogo/error.1
rename to src/llogo/error.224
index 3b56708c..55644a06 100644
--- a/src/llogo/error.1
+++ b/src/llogo/error.224
@@ -7,7 +7,7 @@
 (DECLARE (OR (STATUS FEATURE DEFINE)
 	     (COND ((STATUS FEATURE ITS)
 		    ;;MULTICS?
-		    (FASLOAD DEFINE FASL AI LLOGO))))) 
+		    (FASLOAD DEFINE FASL DSK LLOGO))))) 
 
 (SAVE-VERSION-NUMBER ERROR) 
 
@@ -735,9 +735,9 @@
 
 ;;MISCELLANEOUS SYSTEM DEBUGGING FEATURES.
 
-[ITS (DEFPROP LOAD-TECO (LISPT FASL AI /.TECO/.) AUTOLOAD) 
-     (DEFPROP START-TECO (LISPT FASL AI /.TECO/.) AUTOLOAD) 
-     (DEFPROP MEV (STEPMM FASL AI COMMON) AUTOLOAD) 
+[ITS (DEFPROP LOAD-TECO (LISPT FASL DSK /.TECO/.) AUTOLOAD) 
+     (DEFPROP START-TECO (LISPT FASL DSK /.TECO/.) AUTOLOAD) 
+     (DEFPROP MEV (STEPMM FASL DSK COMMON) AUTOLOAD) 
      (DEFUN TECO NIL (COND (TECO? (P)) ((SETQ TECO? T) (LOAD-TECO) (G)))) 
      (SETQ TECO? NIL)] 
 
diff --git a/src/llogo/germ.1 b/src/llogo/germ.147
similarity index 99%
rename from src/llogo/germ.1
rename to src/llogo/germ.147
index e776093b..f5fa1429 100644
--- a/src/llogo/germ.1
+++ b/src/llogo/germ.147
@@ -754,7 +754,7 @@ OKAY, WE'RE READY TO START. SHALL WE BEGIN? ")
 
 (DEFUN GERMDEMOS NIL 
        (PROG (^Q READTABLE REPEAT-INTRO) 
-	     (UREAD DEMOS GERM AI LLOGO)
+	     (UREAD DEMOS GERM DSK LLOGO)
 	     (CLEARSCREEN)
 	     (SETQ 
 	      ^Q
diff --git a/src/llogo/loader.1 b/src/llogo/loader.153
similarity index 97%
rename from src/llogo/loader.1
rename to src/llogo/loader.153
index 3bc84884..cce5cbe6 100644
--- a/src/llogo/loader.1
+++ b/src/llogo/loader.153
@@ -42,7 +42,7 @@
 			    (MAPC 
 			     '(LAMBDA (SOURCE-FILE) 
 				      (APPLY 'UREAD
-					     (CONS SOURCE-FILE '(> AI LLOGO)))
+					     (CONS SOURCE-FILE '(> DSK LLOGO)))
 				      (MAPC 'PRINC
 					    (LIST 'READING
 						  '/ 
@@ -81,9 +81,9 @@ FASLOADING/ 						 FASL-FILE
 							 '/ FASL))
 					     (APPLY 'FASLOAD
 						    (CONS FASL-FILE
-							  '(FASL AI LLOGO))))
+							  '(FASL DSK LLOGO))))
 				    (CDR (GET 'LLOGO 'FILES)))))
-		     (AND DUMP (UWRITE AI LLOGO) (IOC R)
+		     (AND DUMP (UWRITE DSK LLOGO) (IOC R)
 		     (MAPC 'PRINC
 			   (LIST '/
 CREATING/ 			 DUMP
@@ -139,7 +139,7 @@ UUO:/	)	       (PRINC (COND ((NUMBERP PURE) (* PURE 2048.)) (0.)))
 		(TERPRI)
                 (SSTATUS TOPLEVEL '(START-UP))
 		(COND ((AND DUMP (STATUS FEATURE ITS))
-		       (ERRSET (UFILE LLOGO > AI LLOGO) NIL)
+		       (ERRSET (UFILE LLOGO > DSK LLOGO) NIL)
                        (IOG NIL (PRINC 'VERSION/ NUMBER?/ )
                             (PUTPROP 'LLOGO (LIST DUMP (READ)) 'VERSION))
                        (UCLOSE)
diff --git a/src/llogo/music.1 b/src/llogo/music.13
similarity index 99%
rename from src/llogo/music.1
rename to src/llogo/music.13
index e3cc323e..01be6cc8 100644
--- a/src/llogo/music.1
+++ b/src/llogo/music.13
@@ -6,7 +6,7 @@
 
 ;;*SLASHIFY #
 
-(DECLARE (OR (STATUS FEATURE DEFINE) (FASLOAD DEFINE FASL AI LLOGO)))
+(DECLARE (OR (STATUS FEATURE DEFINE) (FASLOAD DEFINE FASL DSK LLOGO)))
 
 (DECLARE (GENPREFIX MUSIC)
 	 (SPECIAL :INSTRUMENT :NVOICES :SCALEBASE :VOICE :SAVBUF BUFFERS NEWMUSIC
diff --git a/src/llogo/parser.1 b/src/llogo/parsers.129
similarity index 99%
rename from src/llogo/parser.1
rename to src/llogo/parsers.129
index dbd5bc7e..9f7c84f3 100644
--- a/src/llogo/parser.1
+++ b/src/llogo/parsers.129
@@ -31,7 +31,7 @@
 (DECLARE (OR (STATUS FEATURE DEFINE)
 	     (COND ((STATUS FEATURE ITS)
 		    ;;MULTICS?
-		    (FASLOAD DEFINE FASL AI LLOGO))))) 
+		    (FASLOAD DEFINE FASL DSK LLOGO))))) 
 
 (SAVE-VERSION-NUMBER PARSER) 
 
diff --git a/src/llogo/primit.1 b/src/llogo/primit.304
similarity index 99%
rename from src/llogo/primit.1
rename to src/llogo/primit.304
index 49a04bbd..8a15ee86 100644
--- a/src/llogo/primit.1
+++ b/src/llogo/primit.304
@@ -10,7 +10,7 @@
 (DECLARE (OR (STATUS FEATURE DEFINE)
 	     (COND ((STATUS FEATURE ITS)
 		    ;;MULTICS?
-		    (FASLOAD DEFINE FASL AI LLOGO))))) 
+		    (FASLOAD DEFINE FASL DSK LLOGO))))) 
 
 (SAVE-VERSION-NUMBER PRIMIT) 
 
diff --git a/src/llogo/print.1 b/src/llogo/print.165
similarity index 99%
rename from src/llogo/print.1
rename to src/llogo/print.165
index 6fb63852..e4743e48 100644
--- a/src/llogo/print.1
+++ b/src/llogo/print.165
@@ -7,7 +7,7 @@
 (DECLARE (OR (STATUS FEATURE DEFINE)
 	     (COND ((STATUS FEATURE ITS)
 		    ;;MULTICS?
-		    (FASLOAD DEFINE FASL AI LLOGO))))) 
+		    (FASLOAD DEFINE FASL DSK LLOGO))))) 
 
 (SAVE-VERSION-NUMBER PRINT) 
 
diff --git a/src/llogo/reader.1 b/src/llogo/reader.201
similarity index 99%
rename from src/llogo/reader.1
rename to src/llogo/reader.201
index d902669e..d976b0c0 100644
--- a/src/llogo/reader.1
+++ b/src/llogo/reader.201
@@ -6,7 +6,7 @@
 (DECLARE (OR (STATUS FEATURE DEFINE)
 	     (COND ((STATUS FEATURE ITS)
 		    ;;MULTICS?
-		    (FASLOAD DEFINE FASL AI LLOGO))))) 
+		    (FASLOAD DEFINE FASL DSK LLOGO))))) 
 
 ;;; 
 ;;READ SYNTAX FOR LOGO, LOGO READER, EVALUATION FUNCTIONS
diff --git a/src/llogo/setup.1 b/src/llogo/setup.306
similarity index 98%
rename from src/llogo/setup.1
rename to src/llogo/setup.306
index dde55d25..bc3d6eed 100644
--- a/src/llogo/setup.1
+++ b/src/llogo/setup.306
@@ -14,7 +14,7 @@
 	 (OR (STATUS FEATURE DEFINE)
 	     (COND ((STATUS FEATURE ITS)
 		    ;;MULTICS?
-		    (FASLOAD DEFINE FASL AI LLOGO))))) 
+		    (FASLOAD DEFINE FASL DSK LLOGO))))) 
 
 ;;FOR DEFINING NEW LLOGO PRIMITIVES, DEFINE IS DEFINED TO AUTOLOAD IN FILE
 ;;LLOGO;DEFINE FASL, CONTAINING A FEXPR DEFININTION OF DEFINE, PUSH, POP AND OTHER
@@ -23,7 +23,7 @@
 ;;NOTE: DEFINE MAY ONLY BE CALLED FROM LISP, NOT LOGO!
 ;;;
 
-[ITS (OR (STATUS FEATURE DEFINE) (DEFPROP DEFINE (DEFINE FASL AI LLOGO) AUTOLOAD))] 
+[ITS (OR (STATUS FEATURE DEFINE) (DEFPROP DEFINE (DEFINE FASL DSK LLOGO) AUTOLOAD))] 
 
 (SETQ GENSYM (GENSYM) 
       LISP-READTABLE READTABLE 
diff --git a/src/llogo/turtle.465 b/src/llogo/turtle.466
similarity index 99%
rename from src/llogo/turtle.465
rename to src/llogo/turtle.466
index 9dbd1fe3..e482d479 100644
--- a/src/llogo/turtle.465
+++ b/src/llogo/turtle.466
@@ -1,7 +1,7 @@
 
 ;;;			LOGO TURTLE FUNCTIONS
 
-(DECLARE (OR (STATUS FEATURE DEFINE) (FASLOAD DEFINE FASL AI LLOGO))) 
+(DECLARE (OR (STATUS FEATURE DEFINE) (FASLOAD DEFINE FASL DSK LLOGO))) 
 
 (SSTATUS FEATURE TURTLE) 
 
diff --git a/src/llogo/tvrtle.1 b/src/llogo/tvrtle.541
similarity index 99%
rename from src/llogo/tvrtle.1
rename to src/llogo/tvrtle.541
index 82f34a37..926cc8c2 100644
--- a/src/llogo/tvrtle.1
+++ b/src/llogo/tvrtle.541
@@ -18,7 +18,7 @@
 
 (DECLARE (EVAL (READ)) (EVAL (READ)))
 
-(OR (STATUS FEATURE DEFINE) (FASLOAD DEFINE FASL AI LLOGO))
+(OR (STATUS FEATURE DEFINE) (FASLOAD DEFINE FASL DSK LLOGO))
 
 (COND ((BOUNDP 'COLOR) (SETQ BW (NOT COLOR)))
       ;;READ-TIME SWITCHES FOR COLOR OR BLACK AND WHITE SYSTEM.
diff --git a/src/llogo/unedit.1 b/src/llogo/unedit.212
similarity index 99%
rename from src/llogo/unedit.1
rename to src/llogo/unedit.212
index d12edb81..5482a8f0 100644
--- a/src/llogo/unedit.1
+++ b/src/llogo/unedit.212
@@ -7,7 +7,7 @@
 (DECLARE (OR (STATUS FEATURE DEFINE)
 	     (COND ((STATUS FEATURE ITS)
 		    ;;MULTICS?
-		    (FASLOAD DEFINE FASL AI LLOGO))))) 
+		    (FASLOAD DEFINE FASL DSK LLOGO))))) 
 
 (SAVE-VERSION-NUMBER UNEDIT)