Table of Contents
Advertisement
Operating Instructions
30150
30160
30161
30173
30180
30190
30200
30210
30220
30230
30240
30250
30260
30270
30280
30290
30300
30310
30320
30321
30322
30323
30324
30326
30327
30328
30329
30330
30331
30332
30333
30334
30335
30336
30337
30338
30339
30340
30342
30343
30344
30345
30347
30350
30360
30361
30363
30368
30370
PRINT CHR#(12)
GINIT
GRAPHICS ON
CSIZE 4
MOVE 0,65
Labe11$="AMPLITUDE"
FOR L=1 TO 9
LABEL Labels[L.L]
NEXT L
!
MOVE 43,0
LABEL
"NUMBER OF SAMPLES"
!
VIEWPOINT 15,125,15,90
WINDOW 0,8192,-256,256
AXES 1024,64,0,-255
AXES 1024,64,8192,255
!
IF Gron=0 THEN 30327
I
GRID 102+,6+,0,-255
CLIP OFF
CSIZE 4
LORG 8
FOR Ylab=-256 TO 256 STEP 64
MOVE -l,Ylab
LABEL USING "#,K":Ylab
NEXT Ylab
Xlab=1024
!
FOR Xax=1350 TO 8518 STEP 1024
MOVE Xax,-280
LABEL USING "#,K";Xlab
Xlab=Xlab+1024
NEXT Xax
!
IF Datbuf(l)=0 THEN Bufpoint=16
IF Datbuf(l)>0 THEN Bufpoint=17
!
FOR P=Bufpoint TO 8192
PLOT P,Datbuf(P),1
NEXT P
SEND 7:UNT
CLEAR 7
GOTO Start
END
!SUBROUTINE PLOT 8K
!CLEAR SCREEN
I LABEL X AXES
!CHECK GRIP ON OFF FLAG IF ZERO TURN OFF
!LABEL Y AXIS
!SET UP BUFFER POINTER
I DUMP FIRST AND LAST 16 POINTS
19
Advertisement
Table of Contents
