mbutterick
/
beautiful-racket
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

update

Browse Source
dev-srcloc
Matthew Butterick 8 years ago
parent 8a7504ac97
commit 28d8a93dbe
14 changed files with 14 additions and 15 deletions
Show Stats Download Patch File Download Diff File

2
beautiful-racket-demo/basic-demo-nth/3dplot.bas
Unescape Escape View File

@ -1,4 +1,4 @@
#lang basic-demo #lang basic-demo-nth
1 PRINT TAB(32);"3D PLOT" 1 PRINT TAB(32);"3D PLOT"
2 PRINT TAB(20);"RACKET COMPUTING · HOLLYWOOD" 2 PRINT TAB(20);"RACKET COMPUTING · HOLLYWOOD"

2
beautiful-racket-demo/basic-demo-nth/aceyducey.bas
Unescape Escape View File

@ -1,4 +1,4 @@
#lang basic-demo #lang basic-demo-nth
10 PRINT TAB(26);"ACEY DUCEY CARD GAME" 10 PRINT TAB(26);"ACEY DUCEY CARD GAME"
20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
21 PRINT 21 PRINT

2
beautiful-racket-demo/basic-demo-nth/amazing.bas
Unescape Escape View File

@ -1,4 +1,4 @@
#lang basic-demo #lang basic-demo-nth
10 PRINT TAB(28);"AMAZING PROGRAM" 10 PRINT TAB(28);"AMAZING PROGRAM"
20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"

2
beautiful-racket-demo/basic-demo-nth/bounce.bas
Unescape Escape View File

@ -1,4 +1,4 @@
#lang basic-demo #lang basic-demo-nth
10 PRINT TAB(33);"BOUNCE" 10 PRINT TAB(33);"BOUNCE"
20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"

2
beautiful-racket-demo/basic-demo-nth/change.bas
Unescape Escape View File

@ -1,4 +1,4 @@
#lang basic-demo #lang basic-demo-nth
2 PRINT TAB(33);"CHANGE" 2 PRINT TAB(33);"CHANGE"
4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
5 PRINT:PRINT:PRINT 5 PRINT:PRINT:PRINT

2
beautiful-racket-demo/basic-demo-nth/chemist.bas
Unescape Escape View File

@ -1,4 +1,4 @@
#lang basic-demo #lang basic-demo-nth
3 print TAB(33);"Chemist" 3 print TAB(33);"Chemist"
6 print TAB(15);"Creative Computing | Morristown, New Jersey" 6 print TAB(15);"Creative Computing | Morristown, New Jersey"

2
beautiful-racket-demo/basic-demo-nth/dim.bas
Unescape Escape View File

@ -1,4 +1,4 @@
#lang basic-demo #lang basic-demo-nth
5 A=5 5 A=5
10 DIM A(A) 10 DIM A(A)

2
beautiful-racket-demo/basic-demo-nth/for.bas
Unescape Escape View File

@ -1,4 +1,4 @@
#lang basic-demo #lang basic-demo-nth
10 for A=1 to 3 10 for A=1 to 3
20 print A 20 print A
21 for B=5 to 8 21 for B=5 to 8

2
beautiful-racket-demo/basic-demo-nth/gosub.bas
Unescape Escape View File

@ -1,4 +1,4 @@
#lang basic-demo #lang basic-demo-nth
10 GOSUB 50 10 GOSUB 50
15 PRINT "2 of 3" 15 PRINT "2 of 3"
17 GOSUB 30 17 GOSUB 30

2
beautiful-racket-demo/basic-demo-nth/main.rkt
Unescape Escape View File

@ -10,7 +10,7 @@
(set-port-next-location! port+newline line col pos) (set-port-next-location! port+newline line col pos)
(define parse-tree (parse path (tokenize port+newline))) (define parse-tree (parse path (tokenize port+newline)))
(strip-bindings (strip-bindings
#`(module basic-mod basic-demo/expander #`(module basic-mod basic-demo-nth/expander
#,parse-tree))) #,parse-tree)))
(define (get-info port mod line col pos) (define (get-info port mod line col pos)

3
beautiful-racket-demo/basic-demo-nth/next-fix.bas
Unescape Escape View File

@ -1,5 +1,4 @@
#lang basic-demo #lang basic-demo-nth
300 B=INT(RND(3*2)) 300 B=INT(RND(3*2))
400 PRINT B 400 PRINT B

2
beautiful-racket-demo/basic-demo-nth/on.bas
Unescape Escape View File

@ -1,4 +1,4 @@
#lang basic-demo #lang basic-demo-nth
10 X = 3 10 X = 3
20 on X gosub 210, 220, 230 20 on X gosub 210, 220, 230
21 print "yay" 21 print "yay"

2
beautiful-racket-demo/basic-demo-nth/sinewave.bas
Unescape Escape View File

@ -1,4 +1,4 @@
#lang basic-demo #lang basic-demo-nth
10 PRINT TAB(30);"SINE WAVE" 10 PRINT TAB(30);"SINE WAVE"
20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"

2
beautiful-racket-demo/basic-demo-nth/tabs.bas
Unescape Escape View File

@ -1,4 +1,4 @@
#lang basic-demo #lang basic-demo-nth
5 print 30; "foo" 5 print 30; "foo"
10 PRINT TAB(10);"*"; 10 PRINT TAB(10);"*";

Write Preview
Loading…
Cancel
Save