AmigaBASIC to QB64pe question out of left field

[CharlieJV]

I somehow manage to lose my evening by getting transfixed on AmigaBASIC's "AREA" statement.

Anybody have enough AmigaBASIC experience to let me know if I have it straight in my head what AREA does and how it would be translated to QB64pe?

Here's my guess on a couple samples:

Code: (Select All)

<<AREA "(25,10) - (50,20) - (0,20)">>
PSET (25,10) : AreaStartX = POINT(0) : AreaStartY = POINT(1)
LINE - (50,20)
LINE - (0,20)
LINE - (AreaStartX, AreaStartY)

<<AREA "(50,25) - STEP (20,15) - STEP (-10,15) - STEP (-10,-10)">>
PSET (50,25) : AreaStartX = POINT(0) : AreaStartY = POINT(1)
LINE - STEP (20,15)
LINE - STEP (-10,15)
LINE - STEP (-10,-10)
LINE - (AreaStartX, AreaStartY)

I did some shorthand there.  In AmigaBASIC, the first example would look like 

Code: (Select All)

AREA (25,10)
AREA (50,20)
AREA ( 0,20)
AREAFILL 0

The AreaStartX and AreaStartY stuff, that's in case the first set of coordinates are prefixed by STEP.