Dim timeval As Single
result = vensim_command("GAME>GAMEON")
'result = vensim_command("GAME>BACKUP") to back up
If result = 0 Then Exit Sub
result = vensim_get_val("Time", timeval)
| If result = 1 Then |
| stime$ = timeval |
| Label3.Caption = "Time = " + stime$ |
End If
result = vensim_get_val("Population", timeval)
| If result = 1 Then |
| stime$ = timeval |
| Label4.Caption = "Population = " + stime$ |
End If
To continue or backup a game just bass the GAME>GAMEON or GAME>BACKUP commands. Once that has happened the results are displayed.
