From 4ef760f0e4eadd736b2ff3e14d109eeefda6a802 Mon Sep 17 00:00:00 2001
From: dschmenk <dschmenk@sbcglobal.net>
Date: Tue, 8 Sep 2015 16:11:08 -0700
Subject: [PATCH] Update version # rto reflect latest fixes

---
 SANDBOX.PO             | Bin 143360 -> 143360 bytes
 src/samplesrc/test.pla | 127 ++++-------------------------------------
 src/toolsrc/sb.pla     |   2 +-
 src/vmsrc/cmd.pla      |   2 +-
 4 files changed, 13 insertions(+), 118 deletions(-)
 mode change 100755 => 100644 src/samplesrc/test.pla

diff --git a/SANDBOX.PO b/SANDBOX.PO
index 78d970fb6ee30e4775d13884bad6c3d71ad6405f..ef5806663119058886803da8838d81f6da062a5c 100644
GIT binary patch
delta 339
zcmZp8z|ru4V?!#75IaL8H$#~$D>nzjV+I8cc}9WB<t)l98uCm6ljngMi~^gFvV^cR
zI&7BWdF<wqa5ML&)6Kw}({HT3arwsQ8;5T^z9D{-`KH{>s+-+6U*EL3m3OQ4)(3_k
zSNX5iT$^(3)is{$Pp*Hz-g15R_3hVBU+2G}e<S2Z@r}u@!3Q@pR{dh!6!w=9uc_N_
z^4+qzm36BTXsYHlw`*&!oxWyxJrb*_n_VL!nHVKD&yTvxIC*!B*<`I)&B=eGxhGGJ
zb)BpoXSjKF96uwI<*mtk;`KBwZ&ma%AIMmd(fTE$_3O&Zt-pLeFl;^0`gH4s)@Lu4
ze)U-T#bbttg5|C0!jl+Pfx4z!O=5JJzG)KU#YqWejE0-b6HfkToVeXFfpPzN0KKTJ
A{{R30

delta 506
zcmZp8z|ru4V?!#75C_8@9)>bmR&EZ4#|#Qla#DPg%UP6J9?R(pPo4*4M9FdTZ$8Qr
z!aiAngJrWU&jUA)^|$uins{r$t!Fp?+*G>dbW7-#(XF&wLAP>moxFAHmeuX<+aGUp
z-1)%p<0}8Pnrl<8y}HJ8J?2LKjh5@PuYbGFbz|R+dpAOE7T=ug8hnuP<YvaIpNyNr
z{xae<m+f}!?VY#Z-ev)st9i}s+S+TUuNhvCyxx9e!Hw<LuUuEYVS9u5rsmD*H}~A!
z>>3ft#Ava3e$-t?i>(J+pKiU_`fTfgmM6VT2Np0)eA>%=;Khq2PkcTwz$BqkTMtZp
zdSdGZu!_m0F}7Mj4J&|x4?sG=8ctkbdiHhW7qEJ;3`jXhdh+5J3vGljP=tW`kI~|j
zpT)THqq%GH$7nfTWOuv(ibzh@jn$uQ5i7z2_5ny5WF=5353<tD;jto&OdYo;=f>$x
ex0u8z%D8n>LK&mM=JJG-{~0H2cT8a1e;xoWwG!X}

diff --git a/src/samplesrc/test.pla b/src/samplesrc/test.pla
old mode 100755
new mode 100644
index 7ac719b..e5372d2
--- a/src/samplesrc/test.pla
+++ b/src/samplesrc/test.pla
@@ -1,118 +1,13 @@
-//
-// Include all imported modules and their data/functions.
-//
-include(cmdsys.plh)
-include(testlib.plh)
-//
-// Structure definition.
-//
-struc mystruc
-  byte cmd
-  word param
-  byte[3]
-  word data
+import cmdsys
+  predef puts
 end
-//
-// Const expression
-//
-const constval = 2*(2+3) // a test expression should evaluate to 10
-//
-// Declare all global variables for this module.
-// Note that arrays are declared with prefix []. postfix [], or no [].
-// Only arrays with predclared sizes need [ and ], such as "int[3] a".
-//
-byte[] hello = "Hello, Apple "
-byte[] a1 = "1"
-byte[] a2 = "]["
-byte[] a2p = "][+"
-byte[] a2e = "//e"
-byte[] a2c = "//c"
-byte[] a3 = "///"
-byte   constr = "Constant expression = "
-byte[] offsets = "Structure offsets:"
-word array[] = 1, 10, 100, 1000, 10000
-word ptr
-byte spaces = "   "
-//
-// Define functions.
-//
-def tens(start)
-  word i
-  i = start
-  repeat
-    print:hex(i)
-    print:str(@spaces)
-    print:dec(i)
-    print:newln()
-    i = i / 10
-  until i == 0
+
+def header(text)
+  puts("Before\n")
+  puts(text)
+  puts("After\n")
 end
-def ascii
-  byte i
-  i = 32
-  while i < 128
-    putc(i)
-    i = i + 1
-  loop
-end
-def nums(range)
-  word i
-  for i = range downto -range step range/10
-    puti(i)
-    putln
-  next
-end
-export def main(range)
-  nums(*range)
-  tens(*range*10)
-  ascii
-  putln
-  puts(@hello)
-  when MACHID & $C8
-    is $08
-      puts(@a1)
-      break
-    is $00
-      puts(@a2)
-      break
-    is $40
-      puts(@a2p)
-      break
-    is $80
-      puts(@a2e)
-      break
-    is $88
-      puts(@a2c)
-      break
-    is $C0
-      puts(@a3)
-      break
-    otherwise
-      putc('?')
-  wend
-  putln
-end
-ptr = @main
-ptr(@array:6)
-ptr = @array
-puti((ptr):6)
-putln
-puti(ptr=>6)
-putln
-puti((ptr).6)
-putln
-puti(ptr->6)
-putln
-puts(@offsets)
-putln
-puti(cmd)
-putln
-puti(param)
-putln
-puti(data)
-putln
-puti(mystruc)
-putln
-puts(@constr); puti(constval); putln
-puts("Hello from in-line string!\n")
-done
+
+header("Hello, world.\n")
+
+done
\ No newline at end of file
diff --git a/src/toolsrc/sb.pla b/src/toolsrc/sb.pla
index 6c90f8a..edfa47b 100644
--- a/src/toolsrc/sb.pla
+++ b/src/toolsrc/sb.pla
@@ -90,7 +90,7 @@ word              = $0450,$04D0,$0550,$05D0,$0650,$06D0,$0750,$07D0
 // Editor variables
 //
 byte nullstr      = ""
-byte version      = "PLASMA ][ SANDBOX VERSION 00.90"
+byte version      = "PLASMA ][ SANDBOX VERSION 00.91"
 byte errorstr     = "ERROR: $"
 byte okstr        = "OK"
 byte outofmem     = "OUT OF MEMORY!"
diff --git a/src/vmsrc/cmd.pla b/src/vmsrc/cmd.pla
index dc27378..73a31c2 100644
--- a/src/vmsrc/cmd.pla
+++ b/src/vmsrc/cmd.pla
@@ -33,7 +33,7 @@ predef loadmod, execmod, lookupstrmod
 //
 // System variable.
 //
-word version     = $0090 // 00.90
+word version     = $0091 // 00.91
 word systemflags = 0
 word heap
 word xheap       = $0800