From 3af60034adfce89798b3fba7c2d3c97697c19c57 Mon Sep 17 00:00:00 2001
From: Walter Bender <walter@walter-laptop.(none)>
Date: Mon, 24 Aug 2009 02:14:15 +0000
Subject: adding new samples

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

diff --git a/samples/sierpquad2.ta b/samples/sierpquad2.ta
new file mode 100644
index 0000000..ede1a22
--- /dev/null
+++ b/samples/sierpquad2.ta
@@ -0,0 +1,695 @@
+(lp0
+(I0
+S'hat1'
+p1
+I512
+I-8
+(lp2
+NaI1
+atp3
+a(I1
+S'penup'
+p4
+I524
+I42
+(lp5
+I0
+aI2
+atp6
+a(I2
+S'setcolor'
+p7
+I524
+I81
+(lp8
+I1
+aI3
+aI6
+atp9
+a(I3
+S'color'
+p10
+I598
+I98
+(lp11
+I2
+aI4
+atp12
+a(I4
+S'plus'
+p13
+I691
+I90
+(lp14
+I3
+aI5
+atp15
+a(I5
+(S'number'
+p16
+S'8'
+p17
+tp18
+I730
+I98
+(lp19
+I4
+aNatp20
+a(I6
+S'storeinbox1'
+p21
+I524
+I135
+(lp22
+I2
+aI7
+aI10
+atp23
+a(I7
+S'box1'
+p24
+I598
+I152
+(lp25
+I6
+aI8
+atp26
+a(I8
+S'division'
+p27
+I691
+I144
+(lp28
+I7
+aI9
+atp29
+a(I9
+(g16
+S'3'
+p30
+tp31
+I730
+I152
+(lp32
+I8
+aNatp33
+a(I10
+S'repeat'
+p34
+I524
+I189
+(lp35
+I6
+aI11
+aI12
+aI53
+atp36
+a(I11
+(g16
+S'4'
+p37
+tp38
+I610
+I198
+(lp39
+I10
+aNatp40
+a(I12
+S'hspace'
+p41
+I619
+I229
+(lp42
+I10
+aI13
+atp43
+a(I13
+g41
+I710
+I228
+(lp44
+I12
+aI14
+atp45
+a(I14
+g7
+I801
+I236
+(lp46
+I13
+aI15
+aI18
+atp47
+a(I15
+g10
+I875
+I253
+(lp48
+I14
+aI16
+atp49
+a(I16
+S'minus'
+p50
+I968
+I245
+(lp51
+I15
+aI17
+atp52
+a(I17
+(g16
+S'2'
+p53
+tp54
+I1007
+I253
+(lp55
+I16
+aNatp56
+a(I18
+S'if'
+p57
+I801
+I290
+(lp58
+I14
+aI19
+aI21
+aI41
+atp59
+a(I19
+S'greater'
+p60
+I881
+I300
+(lp61
+I18
+aI20
+aI69
+aNatp62
+a(I20
+g24
+I913
+I309
+(lp63
+I19
+aNatp64
+a(I21
+S'stack1'
+p65
+I896
+I364
+(lp66
+I18
+aI22
+atp67
+a(I22
+S'forward'
+p68
+I896
+I403
+(lp69
+I21
+aI23
+aI24
+atp70
+a(I23
+g24
+I970
+I412
+(lp71
+I22
+aNatp72
+a(I24
+g65
+I896
+I442
+(lp73
+I22
+aI25
+atp74
+a(I25
+g34
+I896
+I481
+(lp75
+I24
+aI26
+aI27
+aI31
+atp76
+a(I26
+(g16
+S'2'
+p77
+tp78
+I982
+I490
+(lp79
+I25
+aNatp80
+a(I27
+g68
+I991
+I530
+(lp81
+I25
+aI28
+aI29
+atp82
+a(I28
+g24
+I1065
+I539
+(lp83
+I27
+aNatp84
+a(I29
+S'right'
+p85
+I991
+I569
+(lp86
+I27
+aI30
+aNatp87
+a(I30
+(g16
+S'90'
+p88
+tp89
+I1065
+I578
+(lp90
+I29
+aNatp91
+a(I31
+S'pendown'
+p92
+I896
+I571
+(lp93
+I25
+aI32
+atp94
+a(I32
+g68
+I896
+I610
+(lp95
+I31
+aI33
+aI34
+atp96
+a(I33
+g24
+I970
+I619
+(lp97
+I32
+aNatp98
+a(I34
+g4
+I896
+I649
+(lp99
+I32
+aI35
+atp100
+a(I35
+g34
+I896
+I688
+(lp101
+I34
+aI36
+aI37
+aNatp102
+a(I36
+(g16
+g77
+tp103
+I982
+I697
+(lp104
+I35
+aNatp105
+a(I37
+g68
+I991
+I737
+(lp106
+I35
+aI38
+aI39
+atp107
+a(I38
+g24
+I1065
+I746
+(lp108
+I37
+aNatp109
+a(I39
+g85
+I991
+I776
+(lp110
+I37
+aI40
+aNatp111
+a(I40
+(g16
+S'90'
+p112
+tp113
+I1065
+I785
+(lp114
+I39
+aNatp115
+a(I41
+S'vspace'
+p116
+I801
+I405
+(lp117
+I18
+aI42
+atp118
+a(I42
+g116
+I801
+I474
+(lp119
+I41
+aI43
+atp120
+a(I43
+g116
+I801
+I543
+(lp121
+I42
+aI44
+atp122
+a(I44
+g116
+I801
+I612
+(lp123
+I43
+aI45
+atp124
+a(I45
+g116
+I801
+I681
+(lp125
+I44
+aI46
+atp126
+a(I46
+g116
+I801
+I750
+(lp127
+I45
+aI47
+atp128
+a(I47
+g68
+I801
+I819
+(lp129
+I46
+aI48
+aI51
+atp130
+a(I48
+g24
+I875
+I828
+(lp131
+I47
+aI49
+atp132
+a(I49
+S'product'
+p133
+I968
+I820
+(lp134
+I48
+aI50
+atp135
+a(I50
+(g16
+S'3'
+p136
+tp137
+I1007
+I828
+(lp138
+I49
+aNatp139
+a(I51
+g85
+I801
+I858
+(lp140
+I47
+aI52
+aNatp141
+a(I52
+(g16
+S'90'
+p142
+tp143
+I875
+I867
+(lp144
+I51
+aNatp145
+a(I53
+g21
+I524
+I279
+(lp146
+I10
+aI54
+aNatp147
+a(I54
+g24
+I598
+I296
+(lp148
+I53
+aI55
+atp149
+a(I55
+g133
+I691
+I288
+(lp150
+I54
+aI56
+atp151
+a(I56
+(g16
+g30
+tp152
+I730
+I296
+(lp153
+I55
+aNatp154
+a(I57
+S'clean'
+p155
+I512
+I373
+(lp156
+NaI58
+atp157
+a(I58
+S'setpensize'
+p158
+I512
+I412
+(lp159
+I57
+aI59
+aI60
+atp160
+a(I59
+(g16
+S'1'
+p161
+tp162
+I586
+I429
+(lp163
+I58
+aNatp164
+a(I60
+S'setxy'
+p165
+I512
+I466
+(lp166
+I58
+aI68
+aI67
+aI61
+atp167
+a(I61
+S'left'
+p168
+I512
+I542
+(lp169
+I60
+aI62
+aI63
+atp170
+a(I62
+(g16
+S'90'
+p171
+tp172
+I586
+I551
+(lp173
+I61
+aNatp174
+a(I63
+g21
+I512
+I581
+(lp175
+I61
+aI64
+aI65
+atp176
+a(I64
+(g16
+S'729'
+p177
+tp178
+I586
+I598
+(lp179
+I63
+aNatp180
+a(I65
+g65
+I512
+I635
+(lp181
+I63
+aI66
+atp182
+a(I66
+g92
+I512
+I674
+(lp183
+I65
+aI70
+atp184
+a(I67
+(g16
+S'-375'
+p185
+tp186
+I586
+I512
+(lp187
+I60
+aNatp188
+a(I68
+(g16
+S'350'
+p189
+tp190
+I586
+I475
+(lp191
+I60
+aNatp192
+a(I69
+(g16
+S'1'
+p193
+tp194
+I1062
+I309
+(lp195
+I19
+aNatp196
+a(I70
+g34
+I512
+I713
+(lp197
+I66
+aI71
+aI72
+aNatp198
+a(I71
+(g16
+S'4'
+p199
+tp200
+I598
+I722
+(lp201
+I70
+aNatp202
+a(I72
+g68
+I607
+I762
+(lp203
+I70
+aI73
+aI74
+atp204
+a(I73
+g24
+I681
+I771
+(lp205
+I72
+aNatp206
+a(I74
+g85
+I607
+I801
+(lp207
+I72
+aI75
+aNatp208
+a(I75
+(g16
+S'90'
+p209
+tp210
+I681
+I810
+(lp211
+I74
+aNatp212
+a(I-1
+S'turtle'
+p213
+F350.00000000000148
+F-375.00000000000279
+F270.0
+F0.0
+I50
+F1.0
+tp214
+a.
\ No newline at end of file
--
cgit v0.9.1