[Wisp-cvs] wisp/users/dig mswhello.tran,1.15,1.16

[<di...@us...>]

Update of /cvsroot/wisp/wisp/users/dig
In directory sc8-pr-cvs1:/tmp/cvs-serv5707

Modified Files:
	mswhello.tran 
Log Message:
use cleaner string syntax

Index: mswhello.tran
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/mswhello.tran,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- mswhello.tran	18 May 2003 17:47:38 -0000	1.15
+++ mswhello.tran	18 May 2003 21:33:05 -0000	1.16
@@ -16,12 +16,14 @@
 
 label _start
     -11 GetStdHandle
-    'message 7 'rckeep 0 WriteFile drop
+    'message '#msglen 'rckeep 0 WriteFile drop
     0 ExitProcess
 
 .data
 label message
-    #/H b, #/E b, #/L b, #/L b, #/O b, 13 b, 10 b,
+    "Hello, world!\r\n"
+    dup =: #msglen
+    times b,
 
 .bss
 label rckeep