Example 14: Archive Program (Command 201)
This program stores and retrieves a data set.
:Send({201,0,0,0,2.46802})
:Send({201,21,5,0,1.1,2.0}
)
:2üX
:While Xø0
:Get(X)
:End
:Send({201,1,0,0,83.1})
:Get(L
)
1
:{1,2,3,4,5}üL
2
:{201,24,L
(1),1}üL
1
:augment(L
,L
)üL
3
2
:Send(L
)
4
:"SEC 1.1, EXP 2"üStr1
:Send({201,4,0,L
:Send(Str1)
:Send({201,22,L
1
:ClrAllLists
:Send({0})
:Send({201,1,0,0,83.1})
:Get(L
)
1
:Send({201,2,0,L
:Get(L
)
2
:Send({201,3,0,L
:Get(Str1)
:Disp Str1,L
2
:Send({201,26,L
1
:Get(L
)
3
:Disp L
3
:Send({201,23,L
1
:Get(L
)
2
:Disp L
2
54
Enable "writes" to the CBL 2 FLASH memory.
Save the data. Make room for 5 list elements. Give some optional
identification (e.g., data from Section 1.1, Experiment 2).
Wait for operation to complete.
Locate newest data set in FLASH memory. Its entry number will be in
L
[1].
1
Save associated data from L
3
4
Label the data set.
(1)})
1
Close the data set. Saving is complete.
(1),0})
Reset the CBL 2 and calculator.
Locate the most recently saved data set.
Get and display the identifying label and numbers.
(1)})
1
(1),83.1})
1
Get and display the saved list data.
(1),1})
Restore and display the sample data. Data can be retrieved using
(1),0})
Command 5, which is described elsewhere in this document.
into the record.
2
CBL 2 Technical Reference