TR No.22 
9 SAMP#SAMPE1. 
TIME#TIMEG1¢/25006¢ 
GO TO 7 
14 SAMP#SAMPE&1. 
TIME#TIMEG1¢/25006 
CHAN#T IME-CHAN 
SWHSW le 
VEL#4 .2/%5e10*CHANH 
WRITE%619300SWsTIMEs CHANs VEL 
WRITE%2 5 3000CHANs VEL» TIMEs SW 
300 FORMAT%SF12¢59Fl1l0e59F1l2e52F5.00 
30 FORMAT%1Xs19HSQUARE WAVE CYCLE# »F5e022Xs20HTIME TO THIS POINT# oF 
1120¢552X513HTIME CHANGE# 3F12-522Xs10HVELOCITY# »F10-5n 
CHAN#TIME 
NSWP#NSWPG61 
IFSNSWPeEQe500H6627 
66 NRIGSAMP#NBIGSAMPE1 
WRITE%612808 
80 FORMAT%1X9///2100%1H*oOn 
RIGCHAN#TIME-BIGCHAN 
WRITE%612s1O00HNBIGSAMP:sTIME»BIGCHAN 
100 FORMAT%1X2/s1Xs20HLARGE SAMPLE NUMBER 2®12919Xs10H AT TIME# sF12.53 
18H SECONDS3/230X925H TIME SINCE LAST SAMPLE# »F12e¢5:s8H SECONDS 9/291 
2Xe100%1H*os///u 
NSWP# 
BIGCHAN#TIME 
7 CONTINUE 
GO TO i 
6 WRITE%59210000H%A%lOs1#128n 
1009 FORMAT%1X»6HCODE# »801n 
PAUSE 12345 
GO) lO SSeS on SSWil Giileode 
B35) Mbeki 
IF %ML eGTeNRO42 941 
41 READ%60»4001B%MLU 
NSWP# 
BIGCHAN#O.e 
CHAN# 
TIME# . 
SWHO e 
B-3 
