17 lines
210 B
Text
Executable file
17 lines
210 B
Text
Executable file
#!/usr/bin/env gbs3
|
|
|
|
Dim S As String
|
|
Dim I As Integer
|
|
Dim C As String
|
|
Dim J As Integer
|
|
|
|
For I = 1 To 1000000
|
|
For J = 65 To 90
|
|
C = Chr$(J)
|
|
S &= ".(" & C & ")"
|
|
Next
|
|
Next
|
|
|
|
Print Len(S)
|
|
Error CStr(Jit.Time)
|
|
|