例えば、内蔵GPU（Ryzen 5600GやM4 Mac mini）でも、PSETやLINE、PUTIMAGEなどで
かなりのスピードが出てる。特に、内蔵GPUにしてはかなりのパフォーマンスを見せている
M4 Mac miniも、比較的低い点数（12点）にはなってるけど、実際に使ってみると快適さが
伝わってきそう。
Dim Shared A As Integer
A = 12: B = 34: C = 56: D = 78: ret = 0
sample1 A
Print Using "mainloop: A=### / B=### / C=### / D=### / ret=###"; A; B; C; D; ret
ret = sample2(A)
Print Using "mainloop: A=### / B=### / C=### / D=### / ret=###"; A; B; C; D; ret
End
Sub sample1 (C)
D = A
C = B
D = D + 1
A = 99
Print Using "sub proc: A=### / B=### / C=### / D=### / ret=###"; A; B; C; D; ret
End Sub
Function sample2 (C)
D = A
C = B
D = D + 1
A = 33
Print Using "func prc: A=### / B=### / C=### / D=### / ret=###"; A; B; C; D; ret
sample2 = D
End Function
DATA "0010000010001000"
DATA "0010000010001000"
DATA "0010000011111000"
DATA "0010000010001000"
DATA "0000000000000000"
DATA "0000000110000000"
DATA "0100000100000100"
DATA "0111111111111110"
DATA "1100000000000100"
DATA "1000001100001000"
DATA "0000001000000100"
DATA "1111111111111110"
DATA "0000010000100000"
DATA "0000010000100000"
DATA "0000100001000000"
DATA "0001111101000000"
DATA "0000000010110000"
DATA "0000001100001000"
DATA "0000110000000100"
DATA "0111000000000000"
DATA "0000000000000000"
DATA "0000000110000000"
DATA "0000000100000100"
DATA "0011111111111110"
DATA "0010000010000000"
DATA "0010000100000000"
DATA "0011111111111100"
DATA "0010001000100000"
DATA "0010010010010000"
DATA "0010111111111000"
_Define A-Z As LONG
T = Timer: ct = 0
For j = 3 To 1000000 Step 2
f = 0: k = 3
Do
If (j Mod k) = 0 Then f = 1: Exit Do
k = k + 2
Loop Until k = j
If f = 0 Then Print Using "###### "; j;: ct = (ct + 1) Mod 11: If ct = 0 Then Print
Next
Print: Print Using "###.###"; Timer - T
