
(4)
Program
example
4 "W i"
comma
nd
Thi
s program writes
data
in sweep trace
memo
ry A using "wi"
comman
d.
The 0 thru 999 address
waveform
data are written in sweep trace memory
as shown in fig. 4-3.
Program example 4-1
ASC
II c
ode
convers
ion
10
•••
WI (mmmm.nnnn.x)
CO
M
MAND
(GW-BASIC)
••••
20 DI M AS(1000)
30
CNT
~
0
40
FOR
1 = 1
TO
2
50
FOR
B = 1 TO 250
60
IF
B >= 100
THEN
BS = MI OS(STRS(B) . 2. 3)
70
IF
B < 100
THEN
BS = "0" + M
lD
S(STRS
CB
l.
2. 2)
80
IF
B < 10
THEN
BS • "00" i MI DS(STRS(B). 2. 1)
90
AS
CB
+
CNT
• 250) = B$ + " v "
100
NEXT
B
110
CNT
=
CNT
' 1
120
fOR B = 1 TO 250
130 C
= 251 - B
140
IF
C >= 100 'mEN BS = MI OS(STR$ (C) . 2. 3)
150
IF
C < 100 TIlEN BS =
"0"
+ M
lD
S(STRS(C) . 2. 2)
160
IF
C < 10
THEN
BS •
"00"
+ MlDS (STRS(C). 2.
1)
170 AS(B +
CNT
• 250) = BS + '', "
180
NEXT
B
190
CNT
=
CNT
+ 1
200
NEXT
I
210
OPEN
"CO
M2
:4800. N. 8. 1.
CS.
OS.
CD"
FOR
RANDO
M
AS
#1
220 PRINT #1, " W3 (0000. 1000.
A)"
230 LINE INPUT #1.
RTN$
240
RTN
'
ASC(RTNS)
250
IF
RTN
<>
&H41
THEN
360
260 PRINT "Wi
COMM
AND
PASS"
270 PRINT
#1. "
#3@.
0000. 1000.
":
280
FOR
I = 1 TO
999
290
PRl/
iT #1,
AS
(I)
:
300
NEXT
I
310
PR
I NT #1. A
S(l)
320 LI NE I
NPUT
#1.
RTNS
330
RTN
= ASC
(RTN
S)
340 IF
RTN
<>
&H4
1 THEN 360
350
GO
TO 370
360 PRINT "ER
RO
R ST
ATIJS
·":
HEXS(
RTN)
370 C
LOSE
#1
380
END
lOX
Commenti su questo manuale