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/bubbles.ta')

diff --git a/samples/bubbles.ta b/samples/bubbles.ta
index 93dfe7f..2583b7a 100755
--- a/samples/bubbles.ta
+++ b/samples/bubbles.ta
@@ -2,8 +2,8 @@
 (I0
 S'setcolor'
 p1
-I737
-I246
+I128
+I60
 (lp2
 NaI1
 aI2
@@ -14,16 +14,16 @@ p4
 S'60'
 p5
 tp6
-I811
-I263
+I202
+I77
 (lp7
 I0
 aNatp8
 a(I2
 S'repeat'
 p9
-I737
-I300
+I128
+I114
 (lp10
 I0
 aI3
@@ -34,16 +34,16 @@ a(I3
 S'5000'
 p12
 tp13
-I823
-I309
+I214
+I123
 (lp14
 I2
 aNatp15
 a(I4
 S'setxy'
 p16
-I832
-I349
+I223
+I163
 (lp17
 I2
 aI5
@@ -53,8 +53,8 @@ atp18
 a(I5
 S'random'
 p19
-I906
-I339
+I297
+I153
 (lp20
 I4
 aI6
@@ -65,8 +65,8 @@ a(I6
 S'-600'
 p22
 tp23
-I934
-I358
+I325
+I172
 (lp24
 I5
 aNatp25
@@ -75,15 +75,15 @@ a(I7
 S'600'
 p26
 tp27
-I1056
-I358
+I447
+I172
 (lp28
 I5
 aNatp29
 a(I8
 g19
-I906
-I376
+I297
+I190
 (lp30
 I4
 aI9
@@ -94,8 +94,8 @@ a(I9
 S'-450'
 p32
 tp33
-I934
-I395
+I325
+I209
 (lp34
 I8
 aNatp35
@@ -104,16 +104,16 @@ a(I10
 S'450'
 p36
 tp37
-I1056
-I395
+I447
+I209
 (lp38
 I8
 aNatp39
 a(I11
 S'storeinbox1'
 p40
-I832
-I425
+I223
+I239
 (lp41
 I4
 aI12
@@ -122,8 +122,8 @@ atp42
 a(I12
 S'ycor'
 p43
-I906
-I442
+I297
+I256
 (lp44
 I11
 aI13
@@ -131,8 +131,8 @@ atp45
 a(I13
 S'plus'
 p46
-I999
-I434
+I390
+I248
 (lp47
 I12
 aI14
@@ -142,16 +142,16 @@ a(I14
 S'900'
 p49
 tp50
-I1038
-I442
+I429
+I256
 (lp51
 I13
 aNatp52
 a(I15
 S'setpensize'
 p53
-I832
-I479
+I223
+I293
 (lp54
 I11
 aI16
@@ -160,8 +160,8 @@ atp55
 a(I16
 S'box1'
 p56
-I906
-I496
+I297
+I310
 (lp57
 I15
 aI17
@@ -169,8 +169,8 @@ atp58
 a(I17
 S'division'
 p59
-I999
-I488
+I390
+I302
 (lp60
 I16
 aI18
@@ -180,16 +180,16 @@ a(I18
 S'9'
 p62
 tp63
-I1038
-I496
+I429
+I310
 (lp64
 I17
 aNatp65
 a(I19
 S'setshade'
 p66
-I832
-I533
+I223
+I347
 (lp67
 I15
 aI20
@@ -197,16 +197,16 @@ aI23
 atp68
 a(I20
 g56
-I906
-I550
+I297
+I364
 (lp69
 I19
 aI21
 atp70
 a(I21
 g59
-I999
-I542
+I390
+I356
 (lp71
 I20
 aI22
@@ -216,16 +216,16 @@ a(I22
 S'12'
 p73
 tp74
-I1038
-I550
+I429
+I364
 (lp75
 I21
 aNatp76
 a(I23
 S'forward'
 p77
-I832
-I587
+I223
+I401
 (lp78
 I19
 aI24
@@ -235,8 +235,8 @@ a(I24
 S'1'
 p80
 tp81
-I906
-I596
+I297
+I410
 (lp82
 I23
 aNatp83
--
cgit v0.9.1