-
Notifications
You must be signed in to change notification settings - Fork 0
/
Script.txt
80 lines (61 loc) · 901 Bytes
/
Script.txt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
SET x=0
WHILE x<5
SET y=0
WHILE y<3
SET y=y+1
IF y==2
CALL test sub
//BREAKW
//GOTO nooo
ELSE
//y!=2
ENDIF
ENDW
:nooo
SET x=x+1
ENDW
EXIT
:test sub
SET Date=DateTime.Now.ToString()
RETURN
IF 1==2
//zz1
IF 2==2
//zz2
ENDIF
ELSE
//zz3
ENDIF
EXIT
SET x=0
SET a=1
WHILE x<5
SET x=x+1
IF a<16
SET a=a*2
ELSE
SET a=a+1
ENDIF
ENDW
EXIT
SET N = Detail.Get("Nome")
// STOP
IF N==""
Detail.Set("Nome","Luca")
ELSE
Detail.Set("Nome", N + " OK")
ENDIF
SET Len=Detail.Get("Nome").Length
SET K = 0
:ripeti
IF K<Len
Detail.Set("Ctr", Detail.Get("Ctr")+"*")
SET K = K + 1
GOTO ripeti
ENDIF
GOTO salta
IF Detail.Get("Cognome")==""
Detail.Set("Cognome","Cri")
ENDIF
:salta
Detail.Set("Data",DateTime.Now.ToString())