diff --git a/beautiful-racket-demo/basic-demo-nth/3dplot.bas b/beautiful-racket-demo/basic-demo-nth/3dplot.bas index 1f148a7..dd455b6 100644 --- 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" diff --git a/beautiful-racket-demo/basic-demo-nth/aceyducey.bas b/beautiful-racket-demo/basic-demo-nth/aceyducey.bas index a24b783..aa49f9f 100644 --- 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 diff --git a/beautiful-racket-demo/basic-demo-nth/amazing.bas b/beautiful-racket-demo/basic-demo-nth/amazing.bas index b9e0d6e..85e9fac 100644 --- 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" diff --git a/beautiful-racket-demo/basic-demo-nth/bounce.bas b/beautiful-racket-demo/basic-demo-nth/bounce.bas index 655d39b..9469d10 100644 --- 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" diff --git a/beautiful-racket-demo/basic-demo-nth/change.bas b/beautiful-racket-demo/basic-demo-nth/change.bas index 4557e28..7f6bfa2 100644 --- 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 diff --git a/beautiful-racket-demo/basic-demo-nth/chemist.bas b/beautiful-racket-demo/basic-demo-nth/chemist.bas index 317873f..c14d091 100644 --- 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" diff --git a/beautiful-racket-demo/basic-demo-nth/dim.bas b/beautiful-racket-demo/basic-demo-nth/dim.bas index dc957f1..e8c3430 100644 --- 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) diff --git a/beautiful-racket-demo/basic-demo-nth/for.bas b/beautiful-racket-demo/basic-demo-nth/for.bas index 96797ee..4655e3d 100644 --- 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 diff --git a/beautiful-racket-demo/basic-demo-nth/gosub.bas b/beautiful-racket-demo/basic-demo-nth/gosub.bas index 4f94486..5d65e4a 100644 --- 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 diff --git a/beautiful-racket-demo/basic-demo-nth/main.rkt b/beautiful-racket-demo/basic-demo-nth/main.rkt index a8fb8ee..fdf046d 100644 --- 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) diff --git a/beautiful-racket-demo/basic-demo-nth/next-fix.bas b/beautiful-racket-demo/basic-demo-nth/next-fix.bas index 701637c..ca761d2 100644 --- 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 \ No newline at end of file diff --git a/beautiful-racket-demo/basic-demo-nth/on.bas b/beautiful-racket-demo/basic-demo-nth/on.bas index 591094d..5013a2c 100644 --- 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" diff --git a/beautiful-racket-demo/basic-demo-nth/sinewave.bas b/beautiful-racket-demo/basic-demo-nth/sinewave.bas index 47f9797..63d9103 100644 --- 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" diff --git a/beautiful-racket-demo/basic-demo-nth/tabs.bas b/beautiful-racket-demo/basic-demo-nth/tabs.bas index 10b4f1e..e053a3e 100644 --- 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);"*";