From ebbaf1f427c01334106add9a11802381e170d7ce Mon Sep 17 00:00:00 2001
From: U-BRIAN-X60\Brian Silverman <Brian Silverman@Brian-X60.(none)>
Date: Thu, 30 Aug 2007 21:48:32 +0000
Subject: added journal awareness

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

diff --git a/samples/smoothcandy.ta b/samples/smoothcandy.ta
index 5b424e6..c65a175 100755
--- a/samples/smoothcandy.ta
+++ b/samples/smoothcandy.ta
@@ -2,16 +2,16 @@
 (I0
 S'clean'
 p1
-I181
-I407
+I212
+I39
 (lp2
 NaI1
 atp3
 a(I1
 S'repeat'
 p4
-I181
-I446
+I212
+I78
 (lp5
 I0
 aI2
@@ -22,16 +22,16 @@ a(I2
 p7
 I350
 tp8
-I267
-I455
+I298
+I87
 (lp9
 I1
 aNatp10
 a(I3
 S'setpensize'
 p11
-I276
-I495
+I307
+I127
 (lp12
 I1
 aI4
@@ -40,8 +40,8 @@ atp13
 a(I4
 S'heading'
 p14
-I350
-I512
+I381
+I144
 (lp15
 I3
 aI5
@@ -49,8 +49,8 @@ atp16
 a(I5
 S'plus'
 p17
-I443
-I504
+I474
+I136
 (lp18
 I4
 aI6
@@ -59,16 +59,16 @@ a(I6
 (g7
 I4
 tp20
-I482
-I512
+I513
+I144
 (lp21
 I5
 aNatp22
 a(I7
 S'forward'
 p23
-I276
-I549
+I307
+I181
 (lp24
 I3
 aI8
@@ -79,16 +79,16 @@ a(I8
 S'1000'
 p26
 tp27
-I350
-I558
+I381
+I190
 (lp28
 I7
 aNatp29
 a(I9
 S'setcolor'
 p30
-I276
-I588
+I307
+I220
 (lp31
 I7
 aI10
@@ -96,8 +96,8 @@ aI13
 atp32
 a(I10
 g14
-I350
-I605
+I381
+I237
 (lp33
 I9
 aI11
@@ -105,8 +105,8 @@ atp34
 a(I11
 S'division'
 p35
-I443
-I597
+I474
+I229
 (lp36
 I10
 aI12
@@ -115,16 +115,16 @@ a(I12
 (g7
 I3
 tp38
-I482
-I605
+I513
+I237
 (lp39
 I11
 aNatp40
 a(I13
 S'storeinbox1'
 p41
-I276
-I642
+I307
+I274
 (lp42
 I9
 aI14
@@ -132,16 +132,16 @@ aI17
 atp43
 a(I14
 g14
-I350
-I659
+I381
+I291
 (lp44
 I13
 aI15
 atp45
 a(I15
 g35
-I443
-I651
+I474
+I283
 (lp46
 I14
 aI16
@@ -150,16 +150,16 @@ a(I16
 (g7
 I2
 tp48
-I482
-I659
+I513
+I291
 (lp49
 I15
 aNatp50
 a(I17
 S'setshade'
 p51
-I276
-I696
+I307
+I328
 (lp52
 I13
 aI18
@@ -169,8 +169,8 @@ a(I18
 (g7
 I100
 tp54
-I350
-I713
+I381
+I345
 (lp55
 I17
 aI19
@@ -178,8 +178,8 @@ atp56
 a(I19
 S'minus'
 p57
-I443
-I705
+I474
+I337
 (lp58
 I18
 aI20
@@ -187,16 +187,16 @@ atp59
 a(I20
 S'box1'
 p60
-I482
-I713
+I513
+I345
 (lp61
 I19
 aNatp62
 a(I21
 S'back'
 p63
-I276
-I750
+I307
+I382
 (lp64
 I17
 aI22
@@ -207,16 +207,16 @@ a(I22
 S'1000'
 p66
 tp67
-I350
-I759
+I381
+I391
 (lp68
 I21
 aNatp69
 a(I23
 S'left'
 p70
-I276
-I789
+I307
+I421
 (lp71
 I21
 aI24
@@ -225,16 +225,16 @@ a(I24
 (g7
 I1
 tp73
-I350
-I798
+I381
+I430
 (lp74
 I23
 aNatp75
 a(I-1
 S'turtle'
 p76
-F0.0
-F0.0
+I-558
+I383
 F10.0
 F3.6666666666666665
 F94.5
--
cgit v0.9.1