DIM FLOAT vertices(2,7) = (-1,1,-1, 1,1,-1, 1,-1,-1, -1,-1,-1, -1,1,1, 1,1,1, 1,-1,1, -1,-1,1)
DIM INTEGER facecount(5)=(4,4,4,4,4,4)
DIM INTEGER faces(23)=(0,1,2,3, 1,5,6,2, 0,4,5,1, 5,4,7,6, 2,6,7,3, 0,3,7,4)
DIM INTEGER colours(6)=(rgb(blue), rgb(green), rgb(yellow), rgb(cyan), rgb(red), rgb(magenta),0)
DIM INTEGER edge(5)=(6,6,6,6,6,6)
DIM INTEGER fill(5)=(0,1,2,3,4,5)
DIM n=1, nv=8, nf=6, camera=1
MATH SCALE vertices(), 200.0, vertices()
DRAW3D CREATE n, nv, nf, camera, vertices(), facecount(), faces(), colours(), edge(), fill()
DIM FLOAT yaw=rad(1), pitch=rad(2), roll=rad(0.5)
DIM FLOAT q(4)
DIM INTEGER viewplane=500
DRAW3D CAMERA n, viewplane
DIM INTEGER x=0, y=0, z=1000
PAGE WRITE 1
DRAW3D SHOW n, x, y, z
DO
 MATH Q_EULER yaw, pitch, roll, q()
 DRAW3D ROTATE q(),n
 DRAW3D show n,x,y,z
 INC yaw,RAD(1)
 INC pitch,RAD(2)
 INC roll,RAD(0.5)
 PAGE COPY 1 to 0,B
 do : loop until inkey$ <> ""
LOOP

// uses a variant of Bresenham's line algorithm:
//   https://en.wikipedia.org/wiki/Talk:Bresenham%27s_line_algorithm

int absX = ABS(x1-x2);          // absolute value of coordinate distances
int absY = ABS(y1-y2);
int offX = x2<x1 ? 1 : -1;      // line-drawing direction offsets
int offY = y2<y1 ? 1 : -1;
int x = x2;                     // incremental location
int y = y2;
int err;
DrawPixelFast(x, y, Colour);
if (absX > absY) {

// line is more horizontal; increment along x-axis
err = absX / 2;
while (x != x1) {
err = err - absY;
if (err < 0) {
y   += offY;
err += absX;
}
x += offX;
DrawPixelFast(x, y, Colour);
}
} else {

// line is more vertical; increment along y-axis
err = absY / 2;
while (y != y1) {
err = err - absX;
if (err < 0) {
x   += offX;
err += absY;
}
y += offY;
DrawPixelFast(x, y, Colour);
}
}

//we are drawing a filled triangle which may also have an outline
int  a, b, y, last;

if (y0 > y1) {
swap(y0, y1);
swap(x0, x1);
}
if (y1 > y2) {
swap(y2, y1);
swap(x2, x1);
}
if (y0 > y1) {
swap(y0, y1);
swap(x0, x1);
}

           if(y1 == y2) {
               last = y1;                                          //Include y1 scanline
           } else {
               last = y1 - 1;                                      // Skip it
           }
           for (y = y0; y <= last; y++){
               a = x0 + (x1 - x0) * (y - y0) / (y1 - y0);
               b = x0 + (x2 - x0) * (y - y0) / (y2 - y0);
               DrawHLineFast(a, y, b, Colour);
           }
           while (y <= y2){
               a = x1 + (x2 - x1) * (y - y1) / (y2 - y1);
               b = x0 + (x2 - x0) * (y - y0) / (y2 - y0);
               DrawHLineFast(a, y, b, Colour);
               y = y + 1;
           }

OPTION EXPLICIT
OPTION DEFAULT NONE
OPTION BASE 0

DIM t!, v!

DO
 v!= RND*13: PAUSE v!
 t!=TIMER:MAP SET:t!=TIMER-t!
 PRINT "v+t="+STR$(v!+t!)+" t="+STR$(t!)
LOOP
END

v+t=15.876133 t=13.23
v+t=15.97213922 t=8.809
v+t=16.69374181 t=13.388
v+t=16.32962766 t=5.967
v+t=15.21458084 t=8.545
v+t=15.90818469 t=12.126
v+t=15.29405745 t=5.704
v+t=15.88671867 t=14.284
v+t=16.0750811 t=10.863
v+t=15.47299851 t=11.442
v+t=15.88896651 t=7.023
v+t=15.416201 t=15.083
v+t=16.52745739 t=12.179
v+t=15.41312528 t=14.035
v+t=16.61239922 t=12.337
v+t=15.78710054 t=5.917
v+t=15.49287802 t=13.497
v+t=15.61619191 t=5.075
v+t=16.12775504 t=3.654

400MHz Colour Maximite 2
MMBasic Version 5.07.00b33
Copyright 2011-2021 Geoff Graham
Copyright 2016-2021 Peter Mather

Dim msg$
Cat msg$, Chr$(128)
Cat msg$, Chr$(0)
Cat msg$, Chr$(0)
Cat msg$, Chr$(0)
Cat msg$, Chr$(0)
Cat msg$, Chr$(0)
Cat msg$, Chr$(0)
Cat msg$, Chr$(0)
Dim msg_addr% = Peek(VarAddr msg$)
Dim i%
For i% = 0 To 7 : Print Hex$(Peek(Byte msg_addr% + i%), 2) " "; : Next
Print
Print Hex$(Peek(Word msg_addr% - 1))
Print Hex$(Peek(Word msg_addr% + 0))
Print Hex$(Peek(Word msg_addr% + 1))
Print Hex$(Peek(Word msg_addr% + 2))
Print Hex$(Peek(Word msg_addr% + 3))
Print Hex$(Peek(Word msg_addr% + 4))

> *foo
08 80 00 00 00 00 00 00
0
8008
8008
8008
8008
0

 ...
 /* Configure the system clock */
 SystemClock_Config();
 HardwareVersion=getVersion();
 /* USER CODE BEGIN SysInit */
 firsttime=MX_RTC_Init();
 LoadOptions();
 ...