AltME groups: search

We can do Roman indexes if need be. It's really bad for math, so 
we would need PICKZ and POKEZ if we want to do computed offsets (SKIP 
can have side effects with ports in cases where PICK/POKE don't necessarily 
have, but regardless it has overhead). Maybe Roman PICK/POKE will 
be easier for newbies to learn, though they may curse it later once 
they have to do anything hard. (Note: Roman in mathematical difficulty, 
not notation.)

At least triggering an error is easier to explain, it means that 
0 doesn't exist, like we're programming in Roman. It's (slightly) 
better than the 0 index existing but referring to a hole in the series 
(R2-style behavior).

...it means that 0 doesn't exist, like we're programming in Roman.

 - again, a cute formulation. I bet that there is no "programming 
 in Roman", the word "algorithm" is from the world where 0 does exist.

Yup, I knew Roman (the founded) when he introduced his stuff at SIGGRAPH, 
an when he first showed Calagari on the Amiga.  His stuff has come 
a LONG way.  Very impressive (very cool guy too).
I need only a 2D scripting system though.


BrianH, I did not know about EBML, but I don't see the advantage 
of EBML, or Rebin for that matter.  PCode (in my simple mind) servers 
several purposes:

- Portability to multiple systems.
- Faster execution
- Smaller size

Pretty much in that order.


Back when I did video games, I designed a language called MIDAS (which, 
while it looks like I made the name fit the acronym, I did not….Machine 
Independent Demonstration and Animation System)


It was designed to do the opening credits, scores, dialogs, win sequences, 
and it produced simple (very very simple pcode) out to the C64, IBM, 
Amiga, etc.  All you had to do was convert the art, and we had a 
tool to do that too.


Each command would become 1 byte (since there were less than 256 
commands.  So it produced something that looked like assembly.


With both EBML and Rebin, there would be (I assume) still parsing, 
unless you are writing everything yourself (in other words, a player).

I don't think this is an AltME problem, but a rebol/clipboard general 
problem. But I think that Mac Roman text formatting does use a different 
line ending and that comes through with the clipboard into rebol.

bold and italic are a different font (i.e. you use Times-Italic instead 
of Times-Roman)

Can Greek and Roman fonts be mixed?

they are: Times-Roman, Times-Bold, Times-Italic, Times-BoldItalic, 
Helvetica, Helvetica-Bold, Helvetica-Oblique, Helvetica-Oblique, 
Courier, Courier-Bold, Courier-Oblique, Courier-BoldOblique, Symbol, 
ZapfDingbats

>> db: open mysql://root:[gaia-:-127-:-0-:-0-:-1]/information_schema
connecting to: 127.0.0.1
>> insert db "select * from collations"
== none
>> length? copy db
== 124
>> probe copy db
none
== none
>> insert db "select * from collations"
== none
>> probe copy db

[["big5_chinese_ci" "big5" "1" "Yes" "Yes" "1"] ["big5_bin" "big5" 
"84" "" "Yes" "1"] ["dec8_swedish_ci" "

dec8" "3" "Yes" "" "0"] ["dec8_bin" "dec8" "69" "" "" "0"] ["cp850_general_ci" 
"cp850" "4" "Yes" "" "0"] [
cp850_bin

 "cp850" "80" "" "" "0"] ["hp8_english_ci" "hp8" "6" "Yes" "" "0"] 
 ["hp8_bin" "hp8" "72" "" ""
0

] ["koi8r_general_ci" "koi8r" "7" "Yes" "" "0"] ["koi8r_bin" "koi8r" 
"74" "" "" "0"] ["latin1_german1_c

i" "latin1" "5" "" "" "0"] ["latin1_swedish_ci" "latin1" "8" "Yes" 
"Yes" "1"] ["latin1_danish_ci" "latin1"

 "15" "" "" "0"] ["latin1_german2_ci" "latin1" "31" "" "Yes" "2"] 
 ["latin1_bin" "latin1" "47" "" "Yes" "1"

] ["latin1_general_ci" "latin1" "48" "" "" "0"] ["latin1_general_cs" 
"latin1" "49" "" "" "0"] ["latin1_spa

nish_ci" "latin1" "94" "" "" "0"] ["latin2_czech_cs" "latin2" "2" 
"" "Yes" "4"] ["latin2_general_ci" "lati

n2" "9" "Yes" "" "0"] ["latin2_hungarian_ci" "latin2" "21" "" "" 
"0"] ["latin2_croatian_ci" "latin2" "27"


 "" "0"] ["latin2_bin" "latin2" "77" "" "" "0"] ["swe7_swedish_ci" 
 "swe7" "10" "Yes" "" "0"] ["swe7_bin"

 "swe7" "82" "" "" "0"] ["ascii_general_ci" "ascii" "11" "Yes" "" 
 "0"] ["ascii_bin" "ascii" "65" "" "" "0"

] ["ujis_japanese_ci" "ujis" "12" "Yes" "Yes" "1"] ["ujis_bin" "ujis" 
"91" "" "Yes" "1"] ["sjis_japanese_c

i" "sjis" "13" "Yes" "Yes" "1"] ["sjis_bin" "sjis" "88" "" "Yes" 
"1"] ["hebrew_general_ci" "hebrew" "16" "

Yes" "" "0"] ["hebrew_bin" "hebrew" "71" "" "" "0"] ["tis620_thai_ci" 
"tis620" "18" "Yes" "Yes" "4"] ["tis

620_bin" "tis620" "89" "" "Yes" "1"] ["euckr_korean_ci" "euckr" "19" 
"Yes" "Yes" "1"] ["euckr_bin" "euckr"

 "85" "" "Yes" "1"] ["koi8u_general_ci" "koi8u" "22" "Yes" "" "0"] 
 ["koi8u_bin" "koi8u" "75" "" "" "0"] ["

gb2312_chinese_ci" "gb2312" "24" "Yes" "Yes" "1"] ["gb2312_bin" "gb2312" 
"86" "" "Yes" "1"] ["greek_genera

l_ci" "greek" "25" "Yes" "" "0"] ["greek_bin" "greek" "70" "" "" 
"0"] ["cp1250_general_ci" "cp1250" "26" "

Yes" "" "0"] ["cp1250_czech_cs" "cp1250" "34" "" "Yes" "2"] ["cp1250_croatian_ci" 
"cp1250" "44" "" "" "0"]

 ["cp1250_bin" "cp1250" "66" "" "" "0"] ["gbk_chinese_ci" "gbk" "28" 
 "Yes" "Yes" "1"] ["gbk_bin" "gbk" "87
 
 

Yes" "1"] ["latin5_turkish_ci" "latin5" "30" "Yes" "" "0"] ["latin5_bin" 
"latin5" "78" "" "" "0"] ["

armscii8_general_ci" "armscii8" "32" "Yes" "" "0"] ["armscii8_bin" 
"armscii8" "64" "" "" "0"] ["utf8_gener

al_ci" "utf8" "33" "Yes" "Yes" "1"] ["utf8_bin" "utf8" "83" "" "Yes" 
"1"] ["utf8_unicode_ci" "utf8" "192"


 "Yes" "8"] ["utf8_icelandic_ci" "utf8" "193" "" "Yes" "8"] ["utf8_latvian_ci" 
 "utf8" "194" "" "Yes" "8"

] ["utf8_romanian_ci" "utf8" "195" "" "Yes" "8"] ["utf8_slovenian_ci" 
"utf8" "196" "" "Yes" "8"] ["utf8_po

lish_ci" "utf8" "197" "" "Yes" "8"] ["utf8_estonian_ci" "utf8" "198" 
"" "Yes" "8"] ["utf8_spanish_ci" "utf

8" "199" "" "Yes" "8"] ["utf8_swedish_ci" "utf8" "200" "" "Yes" "8"] 
["utf8_turkish_ci" "utf8" "201" "" "Y

es" "8"] ["utf8_czech_ci" "utf8" "202" "" "Yes" "8"] ["utf8_danish_ci" 
"utf8" "203" "" "Yes" "8"] ["utf8_l

ithuanian_ci" "utf8" "204" "" "Yes" "8"] ["utf8_slovak_ci" "utf8" 
"205" "" "Yes" "8"] ["utf8_spanish2_ci"
utf8

 "206" "" "Yes" "8"] ["utf8_roman_ci" "utf8" "207" "" "Yes" "8"] ["utf8_persian_ci" 
 "utf8" "208" ""
Yes

 "8"] ["utf8_esperanto_ci" "utf8" "209" "" "Yes" "8"] ["ucs2_general_ci" 
 "ucs2" "35" "Yes" "Yes" "1"]

 ["ucs2_bin" "ucs2" "90" "" "Yes" "1"] ["ucs2_unicode_ci" "ucs2" "128" 
 "" "Yes" "8"] ["ucs2_icelandic_ci"
ucs2

 "129" "" "Yes" "8"] ["ucs2_latvian_ci" "ucs2" "130" "" "Yes" "8"] 
 ["ucs2_romanian_ci" "ucs2" "131"


 "Yes" "8"] ["ucs2_slovenian_ci" "ucs2" "132" "" "Yes" "8"] ["ucs2_polish_ci" 
 "ucs2" "133" "" "Yes" "8"]

 ["ucs2_estonian_ci" "ucs2" "134" "" "Yes" "8"] ["ucs2_spanish_ci" 
 "ucs2" "135" "" "Yes" "8"] ["ucs2_swedi

sh_ci" "ucs2" "136" "" "Yes" "8"] ["ucs2_turkish_ci" "ucs2" "137" 
"" "Yes" "8"] ["ucs2_czech_ci" "ucs2" "1

38" "" "Yes" "8"] ["ucs2_danish_ci" "ucs2" "139" "" "Yes" "8"] ["ucs2_lithuanian_ci" 
"ucs2" "140" "" "Yes"

 "8"] ["ucs2_slovak_ci" "ucs2" "141" "" "Yes" "8"] ["ucs2_spanish2_ci" 
 "ucs2" "142" "" "Yes" "8"] ["ucs2_r

oman_ci" "ucs2" "143" "" "Yes" "8"] ["ucs2_persian_ci" "ucs2" "144" 
"" "Yes" "8"] ["ucs2_esperanto_ci" "uc

s2" "145" "" "Yes" "8"] ["cp866_general_ci" "cp866" "36" "Yes" "" 
"0"] ["cp866_bin" "cp866" "68" "" "" "0"

] ["keybcs2_general_ci" "keybcs2" "37" "Yes" "" "0"] ["keybcs2_bin" 
"keybcs2" "73" "" "" "0"] ["macce_gene

ral_ci" "macce" "38" "Yes" "" "0"] ["macce_bin" "macce" "43" "" "" 
"0"] ["macroman_general_ci" "macroman"
39

 "Yes" "" "0"] ["macroman_bin" "macroman" "53" "" "" "0"] ["cp852_general_ci" 
 "cp852" "40" "Yes" "" "0
] [

cp852_bin" "cp852" "81" "" "" "0"] ["latin7_estonian_cs" "latin7" 
"20" "" "" "0"] ["latin7_general_ci
 

latin7" "41" "Yes" "" "0"] ["latin7_general_cs" "latin7" "42" "" 
"" "0"] ["latin7_bin" "latin7" "79" ""

 "" "0"] ["cp1251_bulgarian_ci" "cp1251" "14" "" "" "0"] ["cp1251_ukrainian_ci" 
 "cp1251" "23" "" "" "0"] [
cp1251_bin

 "cp1251" "50" "" "" "0"] ["cp1251_general_ci" "cp1251" "51" "Yes" 
 "" "0"] ["cp1251_general_cs
 

cp1251" "52" "" "" "0"] ["cp1256_general_ci" "cp1256" "57" "Yes" 
"" "0"] ["cp1256_bin" "cp1256" "67" ""

 "" "0"] ["cp1257_lithuanian_ci" "cp1257" "29" "" "" "0"] ["cp1257_bin" 
 "cp1257" "58" "" "" "0"] ["cp1257_

general_ci" "cp1257" "59" "Yes" "" "0"] ["binary" "binary" "63" "Yes" 
"Yes" "1"] ["geostd8_general_ci" "ge

ostd8" "92" "Yes" "" "0"] ["geostd8_bin" "geostd8" "93" "" "" "0"] 
["cp932_japanese_ci" "cp932" "95" "Yes"

 "Yes" "1"] ["cp932_bin" "cp932" "96" "" "Yes" "1"] ["eucjpms_japanese_ci" 
 "eucjpms" "97" "Yes" "Yes" "1"]
 ["eucjpms_bin" "eucjpms" "98" "" "Yes" "1"]]

== [["big5_chinese_ci" "big5" "1" "Yes" "Yes" "1"] ["big5_bin" "big5" 
"84" "" "Yes" "1"] ["dec8_swedish_ci
 
dec8" "3" "Yes" "" "0"...

The utf-8 sequence for the multiply symbol is #{C397}. So you can 
look up character C3 in various code pages.

On Mac, you might be looking at Mac Roman  http://en.wikipedia.org/wiki/Mac-Roman

Thanks. Mac is definitely Mac Roman

Here's a 77 character Roman Numeral to integer converter:

Right.  And in 1 day of getting used to it, I can pretty easily translate 
the above Roman Numeral code as I read it

Look at the Roman Numerals program [rSfeCs[Nse[i1v5x10l50c100d500m1000]twCi~J[JnCN]Kk+elJn[alN-j 
N0]'jJn]pK+j]

Obviously people who do code golf come to it from different perspectives, 
I think Rebol's key here is just to engage by giving lively and flexible 
solutions which pique interest.  I intentionally didn't clone the 
deranged "winner" of the roman numeral contest because he'd thrown 
out the program logic, it was no longer source code.  I can edit, 
debug, and insert probe messages into mine easily.

I'd put as a challenge to the Rebol community to refine Rebmu (or 
a similar syntax) to the point where they can submit an answer to 
code golf challenges that demonstrates some awesome feature of Rebol 
while still being in striking distance of the "winning" answer.  
I thought that perhaps showing Rebol 3.0 extending the roman numeral 
system to support higher order numerals than 1000 through unicode 
characters for M with a bar over it, etc. would be a good one.

(refer to http://en.wikipedia.org/wiki/Roman_numerals#Symbols)

btw, what is the sourc of the roman-num function you use "in clear"

Stevee: Hm?  I don't know what you are referring to.  I wrote the 
roman numeral function from scratch, in a fairly naive way.

Nope, not playing.  I didnt spend much time on the roman numeral 
function, it's incidental.  Those code golfers were tweaking, I was 
writing plain and simple code.  What do you mean "roman-num"?

If anyone is interested in testing (lack of time here), but I've 
found that VID3.4 hangs when I want to use a .fon font, such as "Modern" 
or "Roman" in WinXP. Perhaps it's the same in the R3 public release?

PostScript dialect test ready. Try this:
do http://home.tiscali.dk/postscript/postscript.r
s: postscript [font ["Times-Roman" 20] ["Hello World!"]]


s is now the PostScript output, that can be saved to a PS-file or 
sent to a printer.

Oh, misunderstood.
Try:
s: postscript [font ["Times-Roman" 20] [at 72x72 "Hello World!"]]

New version. The postscript block consists of font definitions and 
pages. A page consists of paths and transformations. Try:
do http://home.tiscali.dk/john.niclasen/postscript/postscript.r

print postscript [font [Times-Roman 20] page [path [at 72x72 rotate 
45 "Hello World!"]]]

The "page" and "path" words are optional, so this'll give same result:

print postscript [font [Times-Roman 20] [[at 72x72 rotate 45 "Hello 
World!"]]]

setcm seems to influence font size. Try:
do http://home.tiscali.dk/john.niclasen/postscript/postscript.r

write %test.ps postscript [page [font [Times-Roman 1] setcm linewidth 
0.5 path [setgray 0.5 at 2.5 2 box 8 12] path [at 5x8 rotate 45 "Hello 
World!"]]]

Another example:

write %test.ps postscript [page [font [Times-Roman 40] linewidth 
0 path [at 72x720 "REBOL PostScript Dialect"] path [line 72x716 520x716] 
font [Times-Roman 16] path [at 96x680 "With this dialect it's possible 
to easily produce PostScript output."] font [Helvetica-Oblique 12] 
[at 72x72 "PostScript is copyright Adobe."]]]

Example with different fonts:

write %test.ps postscript [[font [Verdana 20][at 72x700 "Verdana"] 
font [Helvetica 20] [at 72x650 "Helvetica"] font [Times-Roman 20] 
[at 72x600 "Times"]]]

I guess, it looks at the fonts installed on the system. I'm not sure, 
how 'clever' it is to guess the names.

It seems, that Times has to be named "Times-Roman". Here on my Mac, 
I have "Times" and "Times New Roman" installed, so I'm a bit confused.

Yeah, in QML we ran into the same font problem.  So what we did was 
make Times, Helv, and Courier forced to be the defaults, then allowed 
any font name to be called as bassed to a variable as the real name 
of the font.  On windows you can have font names with spaces "Times 
New Roman" for example.  By have the top three just be one simple 
word everyone can remember I figured it would make people happy.

test: form ps [
	font Times-Roman 40
	linewidth 0
	at 72x720 "REBOL PostScript Dialect"
	at 72x716 line 520x716	
	font Times-Roman 16

 at 96x680 "With this dialect it's possible to easily produce PostScript 
 output."
	font Courier 24
	at 96x600 "You can use different fonts."
	font Times-Roman 16
	gsave
	at 120x550 rotate -30 
	"Make"
	grestore
	gsave
	at 160x450 rotate 30 scale 2 4 "transformations"
	grestore
	at 96x400 "And do graphics:"
	at 100x320 box 200x40 stroke
	gsave
	at 180x240 rotate 20 
	setgray .6 
	box 100x80 fill
	grestore
	at 150x250 line 200x290 180x305 194x340
	font Helvetica-Oblique 12
	at 72x72 "Postscript is copyright Adobe."
]

ps/header [
	newpage "Title"
	at 72x72 font Times-Roman 12 "page 1"
	showpage
	newpage "Body"
	at 144x144 "page 2"
	showpage
]

%!PS-Adobe-3.0 
%%Creator: ps.r ver 0.0.6 
%%Pages: (atend) 
%%EndComments 
%%Page: Title 1 
72 72 moveto /Times-Roman findfont 
12 scalefont 
setfont 
(page 1) show 
showpage 
%%Page: Body 2 
144 144 moveto (page 2) show 
showpage 

%%Trailer 
%%Pages: 2 
%%EOF

Times-Roman
 "Times New Roman"
		"Courier" 		"Courier New"
		"Helvetica-Oblique" "Arial Italic"
		"Helvetica" "Arial"
		"Times-Oblique" "Times New Roman Italic"
		"Helvetica-Oblique" "Arial Italic"
		"Courier-Oblique" "Courier New Italic"
		"Times-Bold" "Times New Roman Bold"
        "Helvetica-Bold" "Arial Bold"
		"Courier-Bold" "Courier New Bold"
		"Times-BoldOblique" "Times New Roman Bold Italic"
		"Helvetica-BoldOblique" "Arial Bold Italic"
		 "Courier-BoldOblique" "Courier New Bold Italic"

font1: make object! [
		name: "Nimbus Roman No9 L"
		style: none
		size: 33
		color: 255.0.0
		offset: 2x2
		space: 0x0
		align: 'center
		valign: 'center
		shadow: none
	]

font2: make object! [
		name: "Nimbus Roman No9 L"
		style: none
		size: 13
		color: 0.0.0
		offset: 2x2
		space: 0x0
		align: 'center
		valign: 'center
		shadow: none
	]

view layout [box 500x700 white effect [draw [
	box 0x0 493x698 
	fill-pen none 
	box 0x0 493x698 
	line-width 0 

 font font1 pen 255.0.0 text vectorial "REBOL PostScript Dialect" 
 59x68 
	pen 0.0.0 line 59x104 431x104 

 font font2 pen 0.0.0 text vectorial {With this dialect it's possible 
 to easily produce PostScript output.} 79x121
]]]

Is this indicative of the current problem?

>> foreach typeface ["arial" "times new roman" "verdana" "trebuchet 
ms"][

[    layout [tx: text font [name: typeface size: 10] do [probe second 
size-text tx]]
[    ]
13
12
12
15

Also new font options are included. bold and italic is valid words 
inside the font block. And "Times" can be written as "Times" or "Times-Roman", 
upper- lower-case doesn't matter, the dialect should figure it out.

; map postscript fonts to windows fonts
	fonts: [
Bookman-Demi
 "URW Bookman L Demi Bold"
Bookman-DemiItalic
 "URW Bookman L Demi Bold Italic"
Bookman-Light
 "URW Bookman L Light"
Bookman-LightItalic
 "URW Bookman L Light Italic"
Courier
 "Nimbus Mono L"
Courier-Oblique
 "Nimbus Mono L Regular Oblique"
Courier-Bold
 "Nimbus Mono L Bold"
Courier-BoldOblique
 "Nimbus Mono L Bold Oblique"
AvantGarde-Book
 "URW Gothic L Book"
AvantGarde-BookOblique
 "URW Gothic L Book Oblique"
AvantGarde-Demi
 "URW Gothic L Demi"
AvantGarde-DemiOblique
 "URW Gothic L Demi Oblique"
Helvetica
 "Nimbus Sans L"
Helvetica-Oblique
 "Nimbus Sans L Regular Italic"
Helvetica-Bold
 "Nimbus Sans L Bold"
Helvetica-BoldOblique
 "Nimbus Sans L Bold Italic"
Helvetica-Narrow
 "Nimbus Sans L Condensed"
Helvetica-Narrow-Oblique
 "Nimbus Sans L Condensed Italic"
Helvetica-Narrow-Bold
 "Nimbus Sans L Condensed Bold"
Helvetica-Narrow-BoldOblique
 "Nimbus Sans L Condensed Bold Italic"
Palatino-Roman
 "URW Palladio L Roman"
Palatino-Italic
 "URW Palladio L Italic"
Palatino-Bold
 "URW Palladio L Bold"
Palatino-BoldItalic
 "URW Palladio L Bold Italic"
NewCenturySchlbk-Roman
 "Century Schoolbook L Roman"
NewCenturySchlbk-Italic
 "Century Schoolbook L Italic"
NewCenturySchlbk-Bold
 "Century Schoolbook L Bold"
NewCenturySchlbk-BoldItalic
 "Century Schoolbook L Bold Italic"
Times-Roman
 "Nimbus Roman No9 L"
Times-Italic
 "Nimbus Roman No9 L Regular Italic"
Times-Bold
 "Nimbus Roman No9 L Medium"
Times-BoldItalic
 "Nimbus Roman No9 L Medium Italic"
Times-BoldOblique
 "Nimbus Roman No9 L Medium Italic"
Symbol
 "Standard Symbols L"
ZapfChancery-MediumItalic
 "URW Chancery L Medium Italic"
ZapfDingbats
 "Dingbats"
free 3 of 9 regular
 "FREE3OF9.TTF"
]

- Times Roman font on front page (needs a better looking welcome 
page)
- Stealing Vista UI on video is a copyright infringement.

- Bottom controls (just under 3 video frames) were hidden when I 
first came in (I needed to pull the iframe down).
- "Who is online" needs to be a list on the left side.

- The chance to send video took about 3 minutes, so I did not see 
how to do this.  The video box should say it will do this for you 
at some point.

==================
Current video list
==================

- Times Roman font is ugly

- Welcome page needs a better looking welcome page (put it in a nice 
standard box)
- Stealing Vista UI on video is a copyright infringement.

- Bottom controls (just under 3 video frames) were hidden when I 
first came in (I needed to pull the iframe down).
- "Who is online" needs to be a list on the left side.

- The chance to send video took about 3 minutes, so I did not see 
how to do this.  The video box should say it will do this for you 
at some point.
- Chat box shows "viewer n" as opposed to <name>
- Each iframe seems to come up too small.
- Chat buffer is too small (and allows too few characters.

- Echo is a big problem (Other systems have this problem, but TeamSpeak 
less than others).

==================
Current video list (ver 2)
==================

- What is the actual architecture here?

- Times Roman font is ugly

- Welcome page needs a better looking welcome page (put it in a nice 
standard box)
- Stealing Vista UI on video is a copyright infringement.

- Bottom controls (just under 3 video frames) were hidden when I 
first came in (I needed to pull the iframe down).
- "Who is online" needs to be a list on the left side.

- The chance to send video took about 3 minutes, so I did not see 
how to do this.  The video box should say it will do this for you 
at some point.
- Chat box shows "viewer n" as opposed to <name>
- Each iframe seems to come up too small.
- Chat buffer is too small (and allows too few characters.

- Echo is a big problem (Other systems have this problem, but TeamSpeak 
less than others).


= Screen shot capture = 


- Change [Download screen sender] to [Download Windows Screen Sender]. 
 Or just ad Windows icon.

- Add icons to all functions at bottom, like an upload icon for Upload.

- Rename [RockFactory] to same name as it thinks it is PNGShot.exe. 
 My virus catcher was NOT happy about this program running.

pagesize A4
font Times-BoldItalic 30
linewidth 1
at 190x750 My-Name
color (black)
font Times-Roman 12
newpath at 75x725 line1
at 75x715 line2
at 75x705 line3
at 445x715 "Ph: "
at 465x715 ph
at 445x705 "Fx: " 
at 465x705 fx
at 438x680 "Date:"  font Times-Bold at 465x680 consult-date
font Times-Roman 11
newpath at 75x740 line 530x740
newpath at 75x700 line 530x700
at 75x680 Provider-Template

at 75x600 "Dear " 
at 100x600 Provider
flow-translate 0x0
flowbox 75x150 540x590 float 20
flow-translate 0x0
flowbox 75x150 540x720
gonzo 
flow consult gonzo
flow-translate 0x0
flowbox 75x150 540x720 float 10
flow-translate 0x0
flowbox 75x72 540x720 float 50
showpage

Using Roman numerals has always been a challenge for their coding.