From eba6e303eaf72d59d988a248c6da6f6e436543cf Mon Sep 17 00:00:00 2001
From: Walter Bender <walter@walter-laptop.(none)>
Date: Sat, 29 Aug 2009 15:32:58 +0000
Subject: converting samples to json

---
(limited to 'samples/sierptri.ta')

diff --git a/samples/sierptri.ta b/samples/sierptri.ta
index 25a258b..5e60749 100644
--- a/samples/sierptri.ta
+++ b/samples/sierptri.ta
@@ -1,416 +1 @@
-(lp0
-(I0
-S'hat1'
-p1
-I688
-I-4
-(lp2
-NaI1
-atp3
-a(I1
-S'pendown'
-p4
-I700
-I46
-(lp5
-I0
-aI2
-atp6
-a(I2
-S'setcolor'
-p7
-I700
-I85
-(lp8
-I1
-aI3
-aI6
-atp9
-a(I3
-S'color'
-p10
-I774
-I102
-(lp11
-I2
-aI4
-atp12
-a(I4
-S'plus'
-p13
-I867
-I94
-(lp14
-I3
-aI5
-atp15
-a(I5
-(S'number'
-p16
-S'6'
-p17
-tp18
-I906
-I102
-(lp19
-I4
-aNatp20
-a(I6
-S'repeat'
-p21
-I700
-I139
-(lp22
-I2
-aI7
-aI8
-aNatp23
-a(I7
-(g16
-S'3'
-p24
-tp25
-I786
-I148
-(lp26
-I6
-aNatp27
-a(I8
-g7
-I795
-I188
-(lp28
-I6
-aI9
-aI12
-atp29
-a(I9
-g10
-I869
-I205
-(lp30
-I8
-aI10
-atp31
-a(I10
-S'minus'
-p32
-I962
-I197
-(lp33
-I9
-aI11
-atp34
-a(I11
-(g16
-S'2'
-p35
-tp36
-I1001
-I205
-(lp37
-I10
-aNatp38
-a(I12
-S'if'
-p39
-I795
-I242
-(lp40
-I8
-aI13
-aI16
-aI26
-atp41
-a(I13
-S'greater'
-p42
-I875
-I252
-(lp43
-I12
-aI14
-aI15
-aNatp44
-a(I14
-S'box1'
-p45
-I907
-I261
-(lp46
-I13
-aNatp47
-a(I15
-(g16
-S'16'
-p48
-tp49
-I1056
-I261
-(lp50
-I13
-aNatp51
-a(I16
-S'storeinbox1'
-p52
-I890
-I316
-(lp53
-I12
-aI17
-aI20
-atp54
-a(I17
-g45
-I964
-I333
-(lp55
-I16
-aI18
-atp56
-a(I18
-S'division'
-p57
-I1057
-I325
-(lp58
-I17
-aI19
-atp59
-a(I19
-(g16
-g35
-tp60
-I1096
-I333
-(lp61
-I18
-aNatp62
-a(I20
-S'stack1'
-p63
-I890
-I370
-(lp64
-I16
-aI21
-atp65
-a(I21
-g52
-I890
-I409
-(lp66
-I20
-aI22
-aI25
-atp67
-a(I22
-g45
-I964
-I426
-(lp68
-I21
-aI23
-atp69
-a(I23
-S'product'
-p70
-I1057
-I418
-(lp71
-I22
-aI24
-atp72
-a(I24
-(g16
-g35
-tp73
-I1096
-I426
-(lp74
-I23
-aNatp75
-a(I25
-S'penup'
-p76
-I890
-I463
-(lp77
-I21
-aNatp78
-a(I26
-S'vspace'
-p79
-I795
-I357
-(lp80
-I12
-aI27
-atp81
-a(I27
-g79
-I795
-I426
-(lp82
-I26
-aI28
-atp83
-a(I28
-g79
-I795
-I495
-(lp84
-I27
-aI29
-atp85
-a(I29
-S'forward'
-p86
-I795
-I564
-(lp87
-I28
-aI30
-aI31
-atp88
-a(I30
-g45
-I869
-I573
-(lp89
-I29
-aNatp90
-a(I31
-S'right'
-p91
-I795
-I603
-(lp92
-I29
-aI32
-aNatp93
-a(I32
-(g16
-S'120'
-p94
-tp95
-I869
-I612
-(lp96
-I31
-aNatp97
-a(I33
-S'clean'
-p98
-I519
-I1
-(lp99
-NaI34
-atp100
-a(I34
-S'setpensize'
-p101
-I519
-I40
-(lp102
-I33
-aI35
-aI36
-atp103
-a(I35
-(g16
-g35
-tp104
-I593
-I57
-(lp105
-I34
-aNatp106
-a(I36
-S'setxy'
-p107
-I519
-I94
-(lp108
-I34
-aI37
-aI38
-aI39
-atp109
-a(I37
-(g16
-S'200'
-p110
-tp111
-I593
-I103
-(lp112
-I36
-aNatp113
-a(I38
-(g16
-S'-375'
-p114
-tp115
-I593
-I140
-(lp116
-I36
-aNatp117
-a(I39
-S'left'
-p118
-I519
-I170
-(lp119
-I36
-aI40
-aI41
-atp120
-a(I40
-(g16
-S'90'
-p121
-tp122
-I593
-I179
-(lp123
-I39
-aNatp124
-a(I41
-g52
-I519
-I209
-(lp125
-I39
-aI42
-aI43
-atp126
-a(I42
-(g16
-S'768'
-p127
-tp128
-I593
-I226
-(lp129
-I41
-aNatp130
-a(I43
-g63
-I519
-I263
-(lp131
-I41
-aNatp132
-a(I-1
-S'turtle'
-p133
-F199.9999999999994
-F-375.00000000000165
-F270.0
-F0.0
-I50
-F2.0
-tp134
-a.
\ No newline at end of file
+[[0, "hat1", 688, -4, [null, 1]], [1, "pendown", 700, 46, [0, 2]], [2, "setcolor", 700, 85, [1, 33, 3]], [3, "repeat", 700, 139, [2, 4, 5, null]], [4, ["number", "3"], 786, 148, [3, null]], [5, "setcolor", 795, 188, [3, 36, 6]], [6, "if", 795, 242, [5, 7, 10, 14]], [7, "greater", 875, 252, [6, 8, 9, null]], [8, "box1", 907, 261, [7, null]], [9, ["number", "16"], 1056, 261, [7, null]], [10, "storeinbox1", 890, 316, [6, 39, 11]], [11, "stack1", 890, 370, [10, 12]], [12, "storeinbox1", 890, 409, [11, 42, 13]], [13, "penup", 890, 463, [12, null]], [14, "vspace", 795, 357, [6, 15]], [15, "vspace", 795, 426, [14, 16]], [16, "vspace", 795, 495, [15, 17]], [17, "forward", 795, 564, [16, 18, 19]], [18, "box1", 869, 573, [17, null]], [19, "right", 795, 603, [17, 20, null]], [20, ["number", "120"], 869, 612, [19, null]], [21, "start", 490, 16, [null, 22]], [22, "clean", 502, 66, [21, 23]], [23, "setpensize", 502, 105, [22, 24, 25]], [24, ["number", "2"], 576, 122, [23, null]], [25, "setxy", 502, 159, [23, 26, 27, 28]], [26, ["number", "200"], 576, 168, [25, null]], [27, ["number", "-375"], 576, 205, [25, null]], [28, "left", 502, 235, [25, 29, 30]], [29, ["number", "90"], 576, 244, [28, null]], [30, "storeinbox1", 502, 274, [28, 31, 32]], [31, ["number", "768"], 576, 291, [30, null]], [32, "stack1", 502, 328, [30, null]], [33, "plus2", 774, 78, [2, 34, 35]], [34, "color", 814, 86, [33, null]], [35, ["number", "6"], 814, 119, [33, null]], [36, "minus2", 869, 181, [5, 37, 38]], [37, "color", 909, 189, [36, null]], [38, ["number", "2"], 928, 222, [36, null]], [39, "division2", 964, 309, [10, 40, 41]], [40, "box1", 1004, 317, [39, null]], [41, ["number", "2"], 1023, 350, [39, null]], [42, "product2", 964, 402, [12, 43, 44]], [43, "box1", 1004, 410, [42, null]], [44, ["number", "2"], 1004, 443, [42, null]], [-1, "turtle", 199.9999999999994, -375.00000000000165, 270.0, 0.0, 50, 2.0]]
\ No newline at end of file
--
cgit v0.9.1