17 lines
601 B
Plaintext
17 lines
601 B
Plaintext
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$
|