Filter
Top Products
Malntenance
-
494[l4g4Ap
Servtce
Vot.
1
5000
!
Retrieve
taped
settings (s$)
and
send
to
memory
tocations (s1)
5010
Z-0
5020 Delete
var
s$
5030 Dim
s$
to 6zt0
5040
Open #100:"FtL"&st6(t1)&'(ope-otd),,
5050
Input
#100:v1,s$
5060 lf
v1-0
then
goto
SiSO
5070
lf
Y-0
then
goto
5120
5080
Print
#a1:"RECALL
";s1
;,';ReS
OFF;WAIT;ERR?,
5090 Input
#al:e$
5100
E$:seg(e$,S,2)
5110
lf e$<>"62'then
goto
51S0
5120
Print
#a1:s$
5130
Print
#a1:"STORE
";s1;":ReS
OFF,,
5140 Z-1
5150
Close 100
5160
Return
6000
I
Send waveform
(X9)
& readouts
(M$,L$)
to memory
tocation
(Wl)
6010
z:0
6020
lf
v-0
then
goto
6180
6030
lf
Y-0
then
goto
6080
6040
PriNt
#A1
:'SAVEA
OFF;DRECNL
A:";Wl;',;ERR?,,
6050 Input
#a1:e$
6060 E$-seg$(e$,5,2)
6070 lf e$<>"62"
then
goto
6190
6080 Print
#al:"WA|T:TR|?"
6090 Input
#a1:h$
6100 Print
#al
:"RDOUT'";69.t';r,
61
10
Print
#a1:'RDOUT',,;l$;"'"
61
20
PriNt
#A1
:NVFM
WFID:A,ENCDG:BIN;SIG;SAVEA
ON-
6130 Wbyte
atn(mta,32+a1),x9,eoi
6140 Wbyte
atn
(unt,unt)
6150 Print
#a1:'DSTORE
A:...wl
6160 Print
#a1:h$
6i7a z-1
6180 Return
7000
!
Store
readouts (M$,L$),
and
waveforms
(X9)
on
TApE
Fite
(I1)
701
0
Open #1
00:'FtL"&strg(tl)&,IopE-REp,St2_doOO).
7020
M$:m$
7030
L$-t$
7040 Print
#100:v
7050 Print
#100:m$
7060
Print
#100:l$
7070 Print
#100:xg
7080
Close 100
7090
Return
8000 ! Retri€ves
readouts
(M$,
L$),
and
waveform
(X9)
from
TApE
8010 ! From
setected
TAPE
Fite
[r1)
8020
Open #1
00:"FtL"&strg(tl
)&(ope-otd)',
8030
Delete
var
x9,mg,tg
8040 lnteger
x9
(1000)
8050
Dim
m$
to
SO,tg
to
SO
8060
Input #100:v
8070 Input
#100:m$
8080
Input
#100:t$
8090 Input
#100:x9
8100
Close 100
6-66
o
o
o
I
a
o
)
o
o
?
t
I
t
o
o
o
o
o
a
O
a
O
o
o
I
o
a
o
o
o
I
o
f
I
I
o
o
o
o
o
o
a
t
o