File: string2.gbs

package info (click to toggle)
gambas3 3.20.2-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 76,984 kB
  • sloc: ansic: 197,178; cpp: 124,076; sh: 18,999; javascript: 7,761; sql: 5,399; makefile: 2,354; perl: 1,397; xml: 490; python: 335
file content (17 lines) | stat: -rwxr-xr-x 210 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
#!/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)