update

7 years ago · 28d8a93dbe
parent 8a7504ac97
commit 28d8a93dbe
14 changed files with 14 additions and 15 deletions
--- a/beautiful-racket-demo/basic-demo-nth/3dplot.bas
+++ b/beautiful-racket-demo/basic-demo-nth/3dplot.bas
@ -1,4 +1,4 @@
-#lang basic-demo
+#lang basic-demo-nth

 1 PRINT TAB(32);"3D PLOT"
 2 PRINT TAB(20);"RACKET COMPUTING · HOLLYWOOD"
--- a/beautiful-racket-demo/basic-demo-nth/aceyducey.bas
+++ b/beautiful-racket-demo/basic-demo-nth/aceyducey.bas
@ -1,4 +1,4 @@
-#lang basic-demo
+#lang basic-demo-nth
 10 PRINT TAB(26);"ACEY DUCEY CARD GAME"
 20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
 21 PRINT
--- a/beautiful-racket-demo/basic-demo-nth/amazing.bas
+++ b/beautiful-racket-demo/basic-demo-nth/amazing.bas
@ -1,4 +1,4 @@
-#lang basic-demo
+#lang basic-demo-nth

 10 PRINT TAB(28);"AMAZING PROGRAM"
 20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
--- a/beautiful-racket-demo/basic-demo-nth/bounce.bas
+++ b/beautiful-racket-demo/basic-demo-nth/bounce.bas
@ -1,4 +1,4 @@
-#lang basic-demo
+#lang basic-demo-nth

 10 PRINT TAB(33);"BOUNCE"
 20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
--- a/beautiful-racket-demo/basic-demo-nth/change.bas
+++ b/beautiful-racket-demo/basic-demo-nth/change.bas
@ -1,4 +1,4 @@
-#lang basic-demo
+#lang basic-demo-nth
 2 PRINT TAB(33);"CHANGE"
 4 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
 5 PRINT:PRINT:PRINT
--- a/beautiful-racket-demo/basic-demo-nth/chemist.bas
+++ b/beautiful-racket-demo/basic-demo-nth/chemist.bas
@ -1,4 +1,4 @@
-#lang basic-demo
+#lang basic-demo-nth

 3 print TAB(33);"Chemist"
 6 print TAB(15);"Creative Computing | Morristown, New Jersey"
--- a/beautiful-racket-demo/basic-demo-nth/dim.bas
+++ b/beautiful-racket-demo/basic-demo-nth/dim.bas
@ -1,4 +1,4 @@
-#lang basic-demo
+#lang basic-demo-nth

 5 A=5
 10 DIM A(A)
--- a/beautiful-racket-demo/basic-demo-nth/for.bas
+++ b/beautiful-racket-demo/basic-demo-nth/for.bas
@ -1,4 +1,4 @@
-#lang basic-demo
+#lang basic-demo-nth
 10 for A=1 to 3 
 20 print A
 21 for B=5 to 8
--- a/beautiful-racket-demo/basic-demo-nth/gosub.bas
+++ b/beautiful-racket-demo/basic-demo-nth/gosub.bas
@ -1,4 +1,4 @@
-#lang basic-demo
+#lang basic-demo-nth
 10 GOSUB 50
 15 PRINT "2 of 3"
 17 GOSUB 30
--- a/beautiful-racket-demo/basic-demo-nth/main.rkt
+++ b/beautiful-racket-demo/basic-demo-nth/main.rkt
@ -10,7 +10,7 @@
  (set-port-next-location! port+newline line col pos)
  (define parse-tree (parse path (tokenize port+newline)))
  (strip-bindings
-   #`(module basic-mod basic-demo/expander
+   #`(module basic-mod basic-demo-nth/expander
       #,parse-tree)))

 (define (get-info port mod line col pos)
--- a/beautiful-racket-demo/basic-demo-nth/next-fix.bas
+++ b/beautiful-racket-demo/basic-demo-nth/next-fix.bas
@ -1,5 +1,4 @@
-#lang basic-demo
-
+#lang basic-demo-nth

 300 B=INT(RND(3*2))
 400 PRINT B
--- a/beautiful-racket-demo/basic-demo-nth/on.bas
+++ b/beautiful-racket-demo/basic-demo-nth/on.bas
@ -1,4 +1,4 @@
-#lang basic-demo
+#lang basic-demo-nth
 10 X = 3
 20 on X gosub 210, 220, 230
 21 print "yay"
--- a/beautiful-racket-demo/basic-demo-nth/sinewave.bas
+++ b/beautiful-racket-demo/basic-demo-nth/sinewave.bas
@ -1,4 +1,4 @@
-#lang basic-demo
+#lang basic-demo-nth

 10 PRINT TAB(30);"SINE WAVE"
 20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
--- a/beautiful-racket-demo/basic-demo-nth/tabs.bas
+++ b/beautiful-racket-demo/basic-demo-nth/tabs.bas
@ -1,4 +1,4 @@
-#lang basic-demo
+#lang basic-demo-nth

 5 print 30; "foo"
 10 PRINT TAB(10);"*";