Initial data commit

Task/Base64-decode-data/M2000-Interpreter/base64-decode-data-2.m2000

@@ -0,0 +1,16 @@
+inp$={VG8gZXJyIGlzIGh1bWFuLCBidXQ
+gdG8gcmVhbGx5IGZvdWwgdGhpbmdzI
+HVwIHlvdSBuZWVkIGEgY29tcHV0ZXI
+uCiAgICAtLSBQYXVsIFIuIEVocmxpY2g=
+}
+// decode inp$ (is 8-bit ANSI coded using 0xA for paragraph end/new line)
+a$=string$(inp$ as Decode64)
+locale 1033
+// convert ansi to utf16le using Locale 1033
+a$=chr$(a$)  // convert to utf16LE
+// expand LF to CRLF for M2000 console
+a$=replace$(chr$(0xA), chr$(0XD)+chr$(0XA), a$)
+// report handle cr and lf  using proportional spacing for text and auto word wrapping
+report a$
+// also Print channel #-2 handle cr and lf (using non proportional spacing)
+print #-2, a$