mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-20 09:04:43 +00:00
127 lines
2.6 KiB
QBasic
127 lines
2.6 KiB
QBasic
|
$NoPrefix
|
||
|
$CONSOLE:ONLY
|
||
|
|
||
|
Dim dim_m As _Mem
|
||
|
|
||
|
Dim dim_s As String
|
||
|
Dim dim_s2 As String * 8
|
||
|
|
||
|
Dim dim_b As _Bit
|
||
|
Dim dim_b1 As Bit
|
||
|
Dim dim_b2 As _Unsigned _Bit
|
||
|
Dim dim_b3 As Unsigned _Bit
|
||
|
Dim dim_b4 As _Unsigned Bit
|
||
|
Dim dim_b5 As Unsigned Bit
|
||
|
|
||
|
Dim dim_bn As _Bit * 7
|
||
|
Dim dim_bn1 As Bit * 7
|
||
|
Dim dim_bn2 As _Unsigned _Bit * 7
|
||
|
Dim dim_bn3 As Unsigned _Bit * 7
|
||
|
Dim dim_bn4 As _Unsigned Bit * 7
|
||
|
Dim dim_bn5 As Unsigned Bit * 7
|
||
|
|
||
|
Dim dim_byte As _Byte
|
||
|
Dim dim_byte1 As Byte
|
||
|
Dim dim_byte2 As _Unsigned _Byte
|
||
|
Dim dim_byte3 As Unsigned _Byte
|
||
|
Dim dim_byte4 As _Unsigned Byte
|
||
|
Dim dim_byte5 As Unsigned Byte
|
||
|
|
||
|
Dim dim_i64 As _Integer64
|
||
|
Dim dim_i64_1 As Integer64
|
||
|
Dim dim_i64_2 As _Unsigned _Integer64
|
||
|
Dim dim_i64_3 As Unsigned _Integer64
|
||
|
Dim dim_i64_4 As _Unsigned Integer64
|
||
|
Dim dim_i64_5 As Unsigned Integer64
|
||
|
|
||
|
Dim dim_o As _Offset
|
||
|
Dim dim_o1 As Offset
|
||
|
Dim dim_o2 As _Unsigned _Offset
|
||
|
Dim dim_o3 As Unsigned _Offset
|
||
|
Dim dim_o4 As _Unsigned Offset
|
||
|
Dim dim_o5 As Unsigned Offset
|
||
|
|
||
|
Dim dim_i As Integer
|
||
|
Dim dim_i2 As _Unsigned Integer
|
||
|
Dim dim_i3 As Unsigned Integer
|
||
|
|
||
|
Dim dim_l As Long
|
||
|
Dim dim_l2 As _Unsigned Long
|
||
|
Dim dim_l3 As Unsigned Long
|
||
|
|
||
|
Dim dim_si As Single
|
||
|
Dim dim_d As Double
|
||
|
Dim dim_f As _Float
|
||
|
|
||
|
test
|
||
|
|
||
|
SYSTEM
|
||
|
|
||
|
Sub test ()
|
||
|
Static m As _Mem
|
||
|
|
||
|
Static s As String
|
||
|
Static s2 As String * 8
|
||
|
|
||
|
Static b As _Bit
|
||
|
Static b1 As Bit
|
||
|
Static b2 As _Unsigned _Bit
|
||
|
Static b3 As Unsigned _Bit
|
||
|
Static b4 As _Unsigned Bit
|
||
|
Static b5 As Unsigned Bit
|
||
|
|
||
|
Static bn As _Bit * 7
|
||
|
Static bn1 As Bit * 7
|
||
|
Static bn2 As _Unsigned _Bit * 7
|
||
|
Static bn3 As Unsigned _Bit * 7
|
||
|
Static bn4 As _Unsigned Bit * 7
|
||
|
Static bn5 As Unsigned Bit * 7
|
||
|
|
||
|
Static byt As _Byte
|
||
|
Static byt1 As Byte
|
||
|
Static byt2 As _Unsigned _Byte
|
||
|
Static byt3 As Unsigned _Byte
|
||
|
Static byt4 As _Unsigned Byte
|
||
|
Static byt5 As Unsigned Byte
|
||
|
|
||
|
Static i64 As _Integer64
|
||
|
Static i64_1 As Integer64
|
||
|
Static i64_2 As _Unsigned _Integer64
|
||
|
Static i64_3 As Unsigned _Integer64
|
||
|
Static i64_4 As _Unsigned Integer64
|
||
|
Static i64_5 As Unsigned Integer64
|
||
|
|
||
|
Static o As _Offset
|
||
|
Static o1 As Offset
|
||
|
Static o2 As _Unsigned _Offset
|
||
|
Static o3 As Unsigned _Offset
|
||
|
Static o4 As _Unsigned Offset
|
||
|
Static o5 As Unsigned Offset
|
||
|
|
||
|
Static i As Integer
|
||
|
Static i2 As _Unsigned Integer
|
||
|
Static i3 As Unsigned Integer
|
||
|
|
||
|
Static l As Long
|
||
|
Static l2 As _Unsigned Long
|
||
|
Static l3 As Unsigned Long
|
||
|
|
||
|
Static si As Single
|
||
|
Static d As Double
|
||
|
Static f As _Float
|
||
|
|
||
|
' Just check a few of them
|
||
|
s2 = "HI"
|
||
|
b = -1
|
||
|
bn = 20
|
||
|
byt = 50
|
||
|
i64 = 23456
|
||
|
i = 70
|
||
|
l = 80
|
||
|
si = 2.2
|
||
|
d = 2.4
|
||
|
f = 2.8
|
||
|
|
||
|
PRINT "TEST: "; s2; b; bn; byt; i64; i; l; si; d; f
|
||
|
End Sub
|