2020-04-06 04:44:09 +02:00
|
|
|
#!/usr/bin/env gbs3
|
|
|
|
|
|
2020-04-08 14:02:32 +02:00
|
|
|
Dim S As String
|
|
|
|
|
Dim I As Integer
|
|
|
|
|
Dim C As String
|
|
|
|
|
Dim J As Integer
|
2020-04-06 04:44:09 +02:00
|
|
|
|
2020-04-08 14:02:32 +02:00
|
|
|
For I = 1 To 1000000
|
|
|
|
|
For J = 65 To 90
|
|
|
|
|
C = Chr$(J)
|
|
|
|
|
S &= ".(" & C & ")"
|
|
|
|
|
Next
|
|
|
|
|
Next
|
2020-04-06 04:44:09 +02:00
|
|
|
|
2020-04-08 14:02:32 +02:00
|
|
|
Print Len(S)
|
2020-04-06 04:44:09 +02:00
|
|
|
Error CStr(Jit.Time)
|
2020-04-08 14:02:32 +02:00
|
|
|
|
