Data commit
This commit is contained in:
parent
7387c8f97b
commit
cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
23
Task/Include-a-file/M2000-Interpreter/include-a-file-1.m2000
Normal file
23
Task/Include-a-file/M2000-Interpreter/include-a-file-1.m2000
Normal file
|
|
@ -0,0 +1,23 @@
|
|||
Document A$={
|
||||
Module Global Beta {
|
||||
Print "This is Beta"
|
||||
x=10
|
||||
Print x
|
||||
}
|
||||
Print "This is statement to execute"
|
||||
Beta ' this call not happen
|
||||
}
|
||||
Save.Doc A$, "TestThis.Gsb"
|
||||
Module checkit {
|
||||
\\ we can delete Global
|
||||
\\ usinf New Modules we get latest TestThis, excluding statements calling modules.
|
||||
Load New Modules TestThis
|
||||
\\ check if Beta exist
|
||||
Print Module(Beta)=True
|
||||
\\ so now we call Beta
|
||||
Beta
|
||||
Print Valid(x)=False ' x is local to beta
|
||||
}
|
||||
Checkit
|
||||
\\ now Beta erased (after return form Checkit)
|
||||
Print Module(Beta)=False
|
||||
10
Task/Include-a-file/M2000-Interpreter/include-a-file-2.m2000
Normal file
10
Task/Include-a-file/M2000-Interpreter/include-a-file-2.m2000
Normal file
|
|
@ -0,0 +1,10 @@
|
|||
\\ we can delete global
|
||||
Module Global alfa {
|
||||
Print "this is alfa"
|
||||
X=10
|
||||
}
|
||||
Module Checkit {
|
||||
Inline Code alfa
|
||||
Print X=10
|
||||
}
|
||||
Checkit
|
||||
Loading…
Add table
Add a link
Reference in a new issue