-
Notifications
You must be signed in to change notification settings - Fork 0
/
Stackless.rb
64 lines (49 loc) · 1.21 KB
/
Stackless.rb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
when flag clicked
hide
when I receive "rtWORDS"
..DQ. (join join join (Built_in) " " (Words) " ")
when I receive "rtIMMEDIATE"
add item last of Words to Immediates
when I receive "rtBELL"
broadcast "bell"
wait 0.1 secs
when I receive "bell"
set instrument to 2
play note 70 for 0.25 beats
when I receive "rtCLEAR"
clear
when I receive "rtPAGE"
PAGE
when I receive "rtCR"
println ""
when I receive "rtSPACE"
..DQ. " "
when I receive "rt.KEYB"
.KEYB
define PAGE
broadcast "cls" and wait
define println [s]
..DQ. (s)
change Current_row by 1
set Current_column to 0
define ..DQ. [s]
set String to s
broadcast "print" and wait
define .KEYB
println ""
println "1! 2@ 3# 4[ 5% 6] 7& 8_ 9© 0␈"
println "Q' W| E~ R{ T\\ Y} U$ I( O) P\""
println "Aa S` D´ F£ G€ H^ J- K+ L="
println "Z: X; C? V/ B* N< M> ␠b ␈µ ␍Å .,"
define .ZXFKEYB
println ""
println "1 2 3 4 5 6 7 8 9 0␈"
println "Q@ W! E# R T Y U£ I( O) P\""
println "A, S[ D F G] H J- K+ L="
println "Z: X; C? V/ B* N< M> ␠ ␈ ␍ .,"
define .JAKEYB
println ""
println "1! 2@ 3# 4$ 5% 6& 7' 8( 9) 0_␈"
println "Q W E R< T> Y[ U] I© O; P\""
println "A~ S| D\\ F[ G] H^ J- K+ L="
println "Z: X£ C? V/ B* N, M. ␠ ␈ ␍ s"