関連PDF1 取扱説明書 RS-232-Cインターフェース
Contents
1. 5840 REM gt 5850 REM 5860 DATA SAVE 5870 CLS COLOR 7 GOSUB 5880 PRINT SPC 10 j 5890 PRINT SPC 25 Y N 1 w 5900 COLOR 4 INPUT A GOSUB 5910 IF A Y OR A y THEN 5920 ELSE RETURN 5920 COLOR 7 PRINT PRINT SPC 20 X COLOR 4 5930 INPUT JI GOSUB PBEEP 5940 Ji gt 0 AND JI lt 24 THEN 5950 ELSE GOSUB 5920 5950 COLOR 7 PRINT PRINT SPC 20 X COLOR 4 5960 INPUT FUN GOSUB PBEEP 5970 IF FUN lt 60 THEN 5980 ELSE GOSUB GOTO 5950 5980 JI STR JI JI RIGHT JIS LEN JI 1 5990 IF LEN JI lt 2 THEN 0 GOTO 5990 6000 FUN STR FUN FUN RIGHT FUN LEN FUN 1 6010 IF LEN FUN lt 2 THEN FUN 0 FUN GOTO 6010 6020 FUN 00 6030 COLOR 7 PRINT PRINT 5 10 NO L A 23 270 6040 COLOR 4 INPUT A GOSUB2. REM 7 2 amp FH REM ERROR GOTO 7690 0 CLOSE 2 FOR INPUT AS 2 DIR CNT 1 FOR 6 INPUT 2 0 INPUT 2 A IF EOF 2 THEN DIR DIR CNT AS DIR CNT DIR CNT 1 GOTO 669 DIR DIR CNT A S DIR CNT DIR CNT 1 0 6670 K 1 46 6700 6710 6720 6730 6740 6750 6760 6770 6780 6790 6800 6810 6820 6830 6840 6850 6860 6870 6880 6890 6900 6910 6920 6930 6940 6950 6960 6970 6980 6990 7000 7010 7020 7030 7040 7050 7060 7070 7080 7090 7100 7110 7120 7130 7140 7150 FOR 1 1 DIR CNT 1 IF MID DIR 1 19 3 0 THEN 6730 IF MIDS DIR I 9 4 THEN DIRDATAS K DIR I K K 1 DIR CNT K IF K gt 1 THEN 6780 COLOR 2 LOCATE 20 10 PRINT GOSUB TIME 00 00 00 CANCEL 1 A 8 IF VAL RIGHTS A 2 lt 2 THEN 6770 ELSE RETURN COUNT 1 PAGE 1 CLOSE 2 CLS LOCATE 14 6 DEF SEG amp SHA200 COLOR 4 PRINT
3. REM E R RO R BE Ec P REM FOR 1 3 1 FOR 1 100 0 RETURN REM REM REM MENU SUB CONSOLE 0 25 0 1 Char line 25 not menu SCREEN 3 0 0 1 CRT mode 640x400 WIDTH 80 25 Char size 80 25 CLS 3 CRT Clear COLOR 5 PRINT SPC 20 X X X NA 29 X X X CO
4. 14 Oo 16 5 3 D T Z t gt 5 4 TA L Z R 4 4 6646 6 66666 6 60 6 17 5 5 tj 18 NEC FC 9000U 25 6 1 RS 232C 25 6 2 FEA 27 5 22 Z PSP Sh C u ZZ Z NA 29 PC PC NA 29
5. cr MODE DISP RESTORE HYOUJI TABLE FOR 1 1 TO VAL MID DOD 1 3 1 1 READ HYOUJI NEXT 56 11930 11940 11950 11960 11970 11980 11990 12000 12010 12020 12030 12040 12050 12060 12070 12080 12090 12100 12110 12129 12130 12140 12150 12160 12170 12180 12190 12200 12210 12220 12230 12240 12250 12260 12270 12280 12290 12300 12310 12320 12330 12340 12350 12360 12370 12380 12390 12400 12410 12420 LOCATE 33 7 PRINT HYOUJI RETURN REM REM REM REM GRAPHICS DISP FOR TO 10 G VAL MID DOD 5 I 1 6 3 5 LOW LEVEL F 368 4 8 xG IF F lt 80 THEN 80 LINE 55 I 1 20 F 70 I 1 20 F 6 LINE 55 I 1 20 368 55 I 1 20 F 6 LINE 70 I 1 20 368 70 I 1 20 F 6 NEXT RETURN GRAPHICS1 DISP J 1 LINE 51 77 254 367 0 BF FOR I 8 16 8 16 48 4 STEP 16 3 S0 1 255 12 7yy amp H1 111 NEXT GOSUB MARKER1 DISP FOR I FREQ ADD TO FREQ ADD 199 IF 21500 12200 F F TABLE FREQ POINT I 10 LOW LEVEL G 368 4 8 IF G lt 80 THEN G 80 PSET 52 J G 6 J J 1 NEXT LINE 50 368 255 368 7 RETURN GRAPHICS2 DISP LINE 51 77 254 367 0 BF FOR I 1 TO 10 IF FREQ ADD gt 1500 THEN 12330 F F TABLE I FREQ ADD 10 LOW LEVEL G 368 4 8 F IF G lt 80 THEN G 80 LINE 55 I 1 20 G 70 I 1 20 G 6 LINE 55 I 1
6. ms m OTD am s ANO os mio mas am ams mme uue lt s Q s Q v lt s lt A om se PP PE Po SRA say mmm von ena wan 6404 Qo w s ae GEM ea PS mR AD eo wn Cams
7. LOCATE 14 15 COLOR 7 COLOR 6 PRINT FREQ 2 X 1 gt 1500 Y 0 31 5 gt 9 Z 0 1 1 2 2 5 9 3 10 4 20 PRINT GOSUB RECV DATA IF TIMEOUT 1 THEN RETURN 1 sample read A RIGHT I LEN I 2 LOCATE 14 17 COLOR 7 FOR I 1 TO 40 PRINT COLOR 6 1 11 1 12 1 1 VAL MID A I 1 6 1 5 10 LOCATE 36 17 PRINT USING FOR 35 112 I 1 F TABLE LI1 LI2 I 39 VAL MID H I 1 6 1 5 10 LOCATE 36 17 PRINT USING NEXT 112 I 39 NOKORI 100 111 1 1500 112 1 39 150 LOCATE 14 19 COLOR 7 LOCATE 36 19 PRINT USING GOSUB PBEEP NEXT NEXT COUNTER 4 MODE 2 GOSUB START IF TIMEOUT PRINT 2 EDR REM GOSUB DATA SAVE RETURN REM PRINT COLOR 6 R NOKORI PRINT 05 1 RETURN EDR Data save 3110 3120 3130 REM REM F 3 X REM k 5 3k 3k 3140 HYOUJ 1 3150 CLS COLOR 3 3160 PRINT SPC 14 y 1 2
8. 35 Gok aisy Troe LUCR ROHE NA 29 CR LF 2 1 2 3 O SRT X1X2X3 Leq Lmax LA XiX2 01 59 Xs 0 1 01 24 Xs 2 0 2 STP r s Leq Lmax LAg PSE DSP Lp Leq Lmax Lae 0 Lp 1 Lmax 2 Leq 3 LAE OCT SLM GRP j NUM TMC X1 0 FAST 1 SLOW 2 10 ms WGT 0 A 1 2 F gt lt 1 0 7255 2 70 dB 1 80 dB 6 130 dB 7 140 dB TE w L TRG X2X3
9. 00 74 0 31 5 Hz 1 63 9 0 1 1 12 2 2 216 3 1 10 4 1 20 PSI3 AF 6 8 L JL lt E0T gt lt CR2 gt 2 lt LF2 On 0 AUTO 1 MANU 0 Lp 1 Lmax 2 Leq 3 LAE Lp OG MS 11 10 5 Leq 1 C59 0 1 2 0 AUTO 1 MANU Lp 0 2 ms 4 50 ms 8 Is 1 5 ms 5 100 ms 20258 2 10 ms 6 200 ms 10 5s 3 20 ms 7 500 ms TJ U S D Leq Leq TIME 1 C59 0 1 2 0 0 Lp 20
10. 1 1 2 2 f 1 1 2 Usrsion 1 0 COs X X X X X NO _ Hmm 12550 2 DEMO 1 75100 88 07 06 14 25 3 29001 163 88 06 15 0 00 4 N 29MM2 75180 88 06 15 0 22 5 NA 29003 163 88 06 15 90 00 6 NA 29004 75100 88 06 15 80 23 7 NA 29005 163 88 06 15 90 04 8 29006 75180 88 06 20 80 18 9 29007 163 88 06 15 80 00 10 290408 75100 0 2 bb RR Df 6 1 1 OCTAVE 1 Uersion 1 0 99 46 15 f 4 1 UP L DOWN
11. dB D 0 A ER 2 FLAT 0 FAST 1 SLOW 2 10 ms O PSI6 L 000 ON D 2 9 F on off 0 1 off 6 PC98015 1510 REM 29 RS 2326C REM REM 1988 6 By RION Co LTD REM S sk REM CONSOLE 0 25 0 1 SCREEN 3 0 0 1 WIDTH 80 25 CLS 3 AS 2 RS 232C open COLOR 5 PRINT 17 NA 29 RS 232C XX PRINT PRINT SPC 10 Command COLOR 7 PRINT SPC 15 END PRINT SPC 15 RECEIVE PRINT SPC 15 29 COLOR 1 PRINT wue CONSOLE 8 17 CLS 3 PRINT COLOR 7 PRINT SPC 15 COLOR 4 LINE INPUT COMMAND BEEP IF COMMAND lt gt END THEN 1230 CLOSE 2 RS 232C close END Program end IF COMMAND RECEIVE THEN GOSUB RECEIVE GOTO 1180 REM GOSUB START IF TIMEOUT 1 THEN 1180 Check ACK PRINT 2 COMMAND GOTO 11
12. SOEP EZAT OS OS MS DOS SORT EXE SWITCH EXE N 88BASIC EXE 1 Z 2 1 PC 9801 3 10 MS DOS MS DOS NA 29 PC 9801 NEC MS DO0S BASIC 3 0 BASIC 2 PC MS D0S A 1 B 2 MS DOS MS D0S FORMAT B
13. 1 MS D0S SWITCH EXE 6 EXIT RETURN 7 NA 9090 NA 29 MS DO0Sz 1000 1010 1020 1030 1040 1050 1060 1070 1080 1090 1100 1110 IZO 1130 1140 1150 1160 1170 1180 1190 1200 1210 1220 1230 1240 1250 1260 1270 1280 1290 1300 1310 1320 1330 1340 1350 1360 1370 1380 1390 1400 1410 1420 1430 1440 1450 1460 1470 1480 1490 1500 1510 1520 E EE EE E EE REM REM TTET lt NA 29
14. 1 12 2 13 FORMAT RETURN BASIC NA 29 a OS MS DOS N88 BASIC 1 1 10 s Lea 2 ms Lp PC CRT 7 1 1 f 1 2 F 2 f 2 3
15. L lt E0T gt lt CR gt lt LF2 35 75 75 455 PC NA 29 2 75 7207F Z 40 1 1 lt CR gt lt LFE gt lt EOT gt lt CR gt lt LFE gt 4 DL EET 1 l 2222 OCC 2 lt emsa EE 2 Se s 0 4 5 ROSE Zay 721 204 Z F gt Z 2 89 O D L x ws ICICI 0 gt lt gt 44 5 2 MKV NA 29 PC
16. CO POA NA 29 NA 29 NA 29 lt BNO gt NA 29 lt ENO gt lt ACKREADY lt CRE gt LF PC PC lt ACK gt READY CR lt LF 4 1 NA 29 0PE 2 PC lt ACK gt READY CR gt lt LFE gt 10 ms PC NA 29 E 10 ms 4 5 lt C
17. 9 2 REM kok ok sk Oc S qc sc yk sk sS sc kok kk k Ye kok 3k c MODE2 CLS COLOR 3 PRINT SPC 10 2msec pp PRINT PRINT SPC 10 PRINT PRINT SPC 10 j AP 1 1 1 PRINT PRINT COLOR 5 PRINT 20 f 1 7 PRINT PRINT COLOR 5 PRINT SPC 20 f 1 COLOR 7 PRINT COLOR 6 PRINT PRINT PRINT SPC 20 f 1 f 2 FKEY 2 GOSUB IF 2 RETURN CLS PRINT COLOR 4 PRINT SPC 10 g7 4 F 9 05 GOSUB START PRINT 2 IF TIMEOUT 1 THEN RETURN i REM EDR GOSUB START IF TIMEOUT 1 THEN RETURN PRINT 2 GOSUB START IF TIMEOUT 1 THEN RETURN PRINT 2 0 0 0 1 0 REM 0 0 OFF REM TMCO FAST REM WGTO EA REM RNG1 2 Dp FS 6 B REM REFO 0 O F F REM FOR 1 1 TO 500 NEXT PRINT COLOR 5 PRINT 5 10 4 2msec L p G
18. gt REM KOK KK Version 1 0 REM 3 sk ok bk 3k ok k ok 1988 6 By RION LTD REM Program 29 BAS PEE EE REM k 3k 5k 3k 3k bc 5k 5k 3k ok ok k ROF FOR R R R OR ROF REM CLEAR amp H100 amp H100 amp H2000 amp H1000 System map set BASE 0 Dimension base 0 DIM DOD 10 DIRDATA 100 DIR 100 DIM F TABLE 10 1500 GOSUB INITIALIZE Dimension set RS 232C KEY open GOSUB REM MODE1 Farst Menu ee MENU SUB PROCESS GOSUB Process menu FKEY 7 GOSUB KEY IN Function key in IF FM 1 THEN GOSUB MODE1 GOTO 1180 Mode 1 IF FM 2 THEN GOSUB MODE2 GOTO 1180 Mode 2 IF FM 3 THEN GOSUB HYOUJI GOTO 1180 Data display IF FM 4 THEN GOSUB COMMAND IN GOTO 1180 Command input IF FM 5 THEN GOSUB RS232C RS 232C CALL IF FM 6 THEN GOSUB SYSTEM CALL SYSTEM CALL IF FM 7 THEN GOSUB SYSTEM END NA 29 process end GOTO 1180 REM REM REM k Rk REM F 1 F 1 REM CLS COLOR 3 PRINT SPC 20 1 Z 1 2 2 7 F G 10 L EQ 2 WEL PRINT PRINT SPC 20 PRINT PRINT COLOR 5 PRINT SPC 20
19. NA 29 8 RS 232C 0OPE 8 2 ACK gt NEXT CR gt LE gt DATA CR lt LE 10 ms 3 3 5 4H NA 29 PC PC NA 29 PC K lt ENO gt 2 lt ENQ gt 5 6 NA 29 1 2 ES 232C 3 NA 29 B ACK gt READY CR gt LE gt 4 ss NA 29 1 f lt ENO gt D
20. 3170 PRINT SPC 14 3180 PRINT PRINT COLOR 5 3190 PRINT SPC 20 f 1 s COLOR 7 PRINT 3200 PRINT COLOR 5 3210 PRINT SPC 20 f 2 COLOR 7 PRINT 3220 COLOR 6 PRINT 3230 PRINT PRINT SPC 20 f 1 f 2 3240 FKEY 2 GOSUB 3250 2 THEN RETURN 3260 CLS COLOR 3 3270 3280 PRINT SPC 14 29 3290 PRINT PRINT COLOR 5 3300 PRINT 5 2009 1 7 PRINT 3310 PRINT COLOR 5 3320 PRINT SPC 20 f 2 7 PRINT 2 9 O I gt gt 3330 PRINT COLOR 5 3340 PRINT 20 7 PRINT 3350 COLOR 6 PRINT 3360 PRINT PRINT SPC 20 f f 3 3370 FKEY 3 GOSUB KEY IN 3380 IF FM 3 THEN RETURN 3390 IF FM 2 THEN GOSUB SYUNJI DISP RETURN 3400 CLS PRINT 3410 COLOR 7 PRINT NO 1 2 3 4 Cancel 152 3420 COLOR 4 INPUT A GOSUB ERR
21. NA 29 NA 2 E RS 232 C RESTORE IS0 1996 3891 IEC Pub 804 JIS Z 8202 8731 FLAT wm 6866 Ku2 bu a ne BR gr L lt JV A Lv 0 C 28 Bi i ip B r 1 H 1 1 2 1 68086506663 2 3 1 PC NA 29 2 3 2 3 3 3 34 4 6 25 6 4 6 0 14 5 1
22. 0 ZZ W812 0025 TEL 092 281 5366 FAX 09 x ww 1 lt c lt CD lt 13610 98 12
23. 4 TRAFAJ f 4 5 RS 232C f 5 6 MS DO0S f 6 7 NA 29 1757 TI ee 1 1 10 s Leq NA 29 Leq NA 29 2 ms Lp NA 29 t 1 FNA 29 Lp NA 29 1 3 gt Z 2
24. lt ACKNEXT lt CR gt lt LEF 4 NA 29 2 1 2 3 CR LP 2 3 D B D NA 29 2 3 4 Z ya U i gt 7 1 2 3 2566 4
25. F E 56 1 1200 2400 4800 9600 BPS O X NA 29 PC DC3 X_off CTRL S 13H DC1 X CTRL 0 11H DC3 NA 29 PC DC1 DC3 PC O RS 232C PC LOC NA 29 EXIT RS 232C 3 1 PC NA 29 PC NA 29
26. MRK LEFT IF PT 0 THEN RETURN GOSUB 11 62 20 367 62 20 80 0 G VAL MIDS DOD 5 PT 6 3 5 LOW LEVEL 368 4 8 x G IF F lt 80 THEN 80 LINE 55 PT 20 F 70 PT 20 F 6 LOCATE 48 PT 8 PRINT PT PT 1 RESTORE FREQ TABLE FOR 1 1 TO 1 READ FREQ NEXT LOCATE 15 24 COLOR 6 PRINT B MID S DODS 5 PT 6 3 5 1 62 20 367 62 20 80 2 amp H5555 LOCATE 24 24 COLOR 7 PRINT COLOR 6 LOCATE 48 PT 8 PRINT RETURN REM REM Marker right MRK RIGHT IF PT 9 THEN RETURN GOSUB PBEEP LINE 62 PT 20 367 62 PT 20 80 0 G VAL MID DOD 5 PT 6 3 5 LOW LEVEL F 368 4 8 x G IF F lt 80 THEN F 80 LINE 55 PT 20 F 70 PT 20 F 6 LOCATE 48 PT 8 PRINT PT PT 1 RESTORE FREQ TABLE FOR 1 1 TO PT 1 READ FREQ NEXT LOCATE 15 24 COLOR 6 PRINT FREQ 6 5 6 3 5 62 20 367 62 20 80 2 8 5555 LOCATE 24 24 PRINT B COLOR 7 COLOR 6 LOCATE 48 PT 8 PRINT RETURN 8760 8770 8780 8790 8800 8810 8820 8830 8840 8850 8860 8870 8880 8890 8900 8910 8920 8930 8940 8950 8960 8970 8980 8990 9000 9010 9020 9030 9040 9050 9060 9070 9080 9090 9100 9110 9120 9130 9140 9150 9160 9170 9180 9190 9200 9210 92 20 9230 9240 9250 9260 9270 9280 9
27. PSIn NA 29 PC O PSIO CN 40 3 9 0 0 CUR D L OFF 1 1 DL ON 2 RCL 3 2 RCL O A ww DW PL rH 20 0 D L OFF 5 2227 z 0 D L ON 11 Lp Lmax Leq LA Lmax Leq X gt Lp Lmax Leq L AE 2 11 12 13 14 15 Lp Lmax Leq E L SE Lmax Leq La Lmax Leq LAg D NO DATA Ls G10 2 L 50 3 1 90 L s 6 P_AVE J r F L v 21 O PSI1 SE 0O D 900 21 Leq 30 sec gt 300 45 gt 4
28. 0 CO KN 12990 13000 13010 13020 13030 13040 13050 13060 13070 13080 13090 13100 13110 13120 13130 13140 13150 13160 13170 13180 13190 213200 13210 13220 13230 13240 13250 13260 13270 13280 13290 13300 13310 13320 13330 13340 13350 13360 13370 13380 13390 13400 13410 13420 13430 13440 13450 13460 13470 13480 13490 13500 13510 13520 13530 GOSUB REF DISP Reference display GOSUB WEIGHT DISP Weight display GOSUB JITEISU DISP GOSUB TIME DISP Time display GOSUB MODE DISP Mode display KEY 1 ON 0 DSP FLAG COLOR 4 LOCATE 51 20 PRINT X X LOCATE 48 22 COLOR 5 PRINT f 1 COLOR 7 PRINT COLOR 7 LOCATE 50 5 PRINT GOSUB GRAPHICS DISP t Graphics display GOSUB MARKER DISP Marker display GOSUB NUMERIC DISP Numeric display GOSUB PBEEP GOSUB START IF TIMEOUT 1 THEN RETURN PRINT 2 RMT DOD REM RMT REMOTE REM DOD LOCATE 40 24 PRINT SPACE 39 GOSUB IF TIMEOUT 1 THEN 13120 DOD 5 H LINE 51 76 254 367 0 BF LINE 50 368 255 368 7 FOR 8 16 TO 8 16 48 4 STEP 16 3 LINE 50 1 255 1 7 amp H1111 NEXT ON KEY GOSUB FK1 IF FM lt gt 1 THEN GOSUB LOC CLEAR GOTO 13080 GOSUB PBEEP GOSUB START IF TIMEOUT 1 THEN RETURN PRINT 2 LOC REM LOC LO
29. 1 2 3 Z 0001 1500 Xs 07 also iz Xe 4 20 DL X1X2X3 001 250 0 BGN 1759 a lt UN _ 1 63 Hz 1 2 CLR X1X2X3XA X5X6X7X8 X1X2X3Xa X5XeX7Xga D 1 2 5 6 7 8 9 2 x Z RAJ XiX2X3X4 X1X2X3Xa 5 6 7 8 00F 00 1 2 X4X5X6X7 X1X2XSs 001 250 5 6 7 0001 9999 5 R X1X2X3 001 250 XuX5XeX7 0001 9999
30. 5200 REM I N I T I L I Z E 5210 REM 5220 INITIALIZE 5230 KYBD AS 1 Key in open 5240 AS 2 RS 232C open 5250 Baudrate 9600bps 5260 Character size 8 bit 5270 gt StOD Bit 2 5280 Parity none 5290 X parameter off 5300 STOP GOSUB STOP SUB STOP 5310 HELP GOSUB HELP SUB HELP 5320 RETURN 5330 xSTOP SUB RETURN 5340 HELP SUB RETURN 5350 REM 5360 REM 5370 REM 2 52 5380 REM r x x s s s sx x s s x s x s s s s 5390 5400 TIMEOUT 0 H 5410 TIMES 00 00 00 5420 IF LOC 2 lt gt 0 THEN 5520 5430 B TIME IF VAL RIGHT B 2 lt 4 THEN 5420 5440 IF DSP FLAG 1 5460 5450 PRINT COLOR 2 PRINT SPC 20 Not receive Error 5460 G
31. 5 7 8 9 4 Xis EDO TA D DL DIEE FOREN X2X3 1 Xi X2X3 D LZ E 01 99 D Y n X1X2 0 31 5 Hz 01 63 2 09 10 X3 0 1 5 L Tr DL DIR 1 2 X5XeX7Xg XIX2X3X4 5 6 7 _ 2 1 0 D OL sF 5 1 DOD NA 29 PC O 0 000 10 kaysa 64 s 243 2 272 212
32. BREIE F 10 LEVEL FREQ 1 0 _ 000 lt 0 lt 17 LEVEL TIME s b IS ES CA L 22 DL 4 5 DL 5 lt EOT lt CR lt LF gt 5 F DDL NA 29 PC QI WW N Tessi 202 5 4 DIR NA 29 PC HLLULLLLILJHLULILILILILILLILLHI EEN S S RS F n ES E EE S E El E CRL 242 F 1 1 1 l 1 l Z 2422 F l l EOT gt XCR gt LF DL DIR LiH LL 3 sP 5 5
33. XXX NA 29 XXX Version 1 0 2055 ee U U U DEMO 1 FREQUENCY 21 5 Hz DATA ADDRESS 1 52 UP t3 DOWN 4 2 T 27 9 UP 2 F gt PLR DOWN na sess Py 7 2 29 Uersion 1 0 DEMO 1 FREQUENCY 31 5 2 DATA ADDRESS 1 n 3 ES NN p S pt CJ Q 0 Ng Z l F ZERA XY gt lp Z Kaat 4 2 5 4 T lt FAJ NA 29 5 RS 232C NA 29 PC
34. 1 Lmax 21 L 2 Leq 22 LL 3 LAE 99 NO DATA O PSI4 IME b 0 D 2 EAC 0000N O 5 ss 5 Leq 6 P_AVE Lx Leq AVE GO D gt INDEX 0 1 A 0 47 INDEX D 40 NA 29 0PE 0 1 5 5 Leq 6 AVE 21252 99 O DL PSI5 MM EN 11 0 ib s DQ D 292 DL on off 0 off 1 on DL 0 D roog 2 BAND 05521 2 Hz 4 500 Hz 8 8 kHz 1 63 Hz 5 1 kHz 9 AP 2 125 Hz 6 2 kHz 10 ALL 9 250 7 4 kHz 0 202 2 2 AA 655 DL AE O Leq 0 70 dB 7 140 dB 0 off 1 2
35. 8 RETURN 4480 9 9 RETURN 4490 REM 4800 4510 REM KEY AJ A S 2 gt 4520 REM 4530 LOC CLEAR 4540 A LOC 1 4550 IF 0 RETURN 4560 FOR Al 1 4570 1 4580 4590 GOTO 4540 4 2 REM REM REM B E P REM 1 FOR 1 50 0 RETURN REM REM
36. s ums s lt w Qm ew ase am D m m a a Qm s s PRINT FREQ 0 12430 12440 REM 12450 REM Numeric Display 12460 12470 NUMERIC DISP 12480 LOCATE 48 6 COLOR 4 PRINT 12490 LOCATE 50 7 COLOR 7 PRINT 12500 RESTORE FREQ TABLE 12510 FOR 1 TO 10 12520 READ FREQ COLOR 5 LOCATE 50 7 PRINT FREQ 12530 COLOR 6 LOCATE 62 7 1 PRINT MID DOD 5 3 1 1 6 5 12540 COLOR 5 PRINT 12550 NEXT 12560 LOCATE 48 18 4 wasss z 12570 RETURN 12580 REM 12590 REM 12600 Inst display 12610 REM 12620 SYUNJI DISP 12630 CLS COLOR 4 12640 PRINT SPC 10
37. GS PV rm w wm m u wm ems sm mm oc EEN Go CO d CSS own wo wn so GA Po PO m m PRS quen emo ee am fa see Q lt s ome lane sme c ha sh PCO GEA M m D amo cp n w CEW CIPFA CUND NEXT PRINT 9 62 20 367 62 20 80 2 8 5556 2 11410 11420 11430 11440 11450 11460
38. 0 1 hh ON 2 0N X2X3 fj L X1X2 1 2 LEVEL FREO 00 31 5 Hz 01 63 Hz 09 AP LEVEL TIME X2X3 1 0 OFF 1 ON 2 07 70 dB 08 80 dB 200 dB 20 DE 5 Xi 2 X1 0 Lp 1 Lmax Leq 2 L AE 2 Lp 22 415 1 D WS HP 10559 41025 Lp 2 01 59 721201 24 0 1 2 STM 1 2 ra e 1 2 3 7 0001 1500 STS 2 DL 7 7 001 250 O T X1X2X3X4 5 ES TR LEVEL FREQ 1 2 X5 X6 X1X2X3Xua 0001 1500 Xs 1 0 LEVEL TIME
39. GOSUB RECV DATA DOD 1 H GOSUB RECV DATA DOD 2 H GOSUB RECV DATA DOD 3 H GOSUB RECV DATA DOD 4 H IF TIMEOUT 1 THEN IF TIMEOUT 1 THEN IF TIMEOUT 1 THEN IF TIMEOUT 1 THEN GOSUB START IF TIMEOUT 1 THEN RETURN PRINT 2 DSP2 DOD REM REM REM REM REM REM GOSUB RECV DATA IF TIMEOUT 1 THEN DOD 5 H COUNTER 5 MODE GOSUB START IF TIMEOUT 1 THEN RETURN PRINT 2 DSPO REM REM GOSUB DATA SAVE RETURN REM REM PSIO LETAT PSII 5 ise 513 RETURN receive RETURN receive RETURN receive RETURN receive DSP2 x 2 L eq 3 L A E DOD RETURN 1 sample read DSPO Lp save j GOSUB RETURN 0 0 OFF FAST WGTO A RNG1 65 80 REFO 0 O F F J PBEEP 9 2050 2060 2070 2080 2090 2100 2110 2120 2130 2140 2150 2160 2170 2180 2190 2200 2210 2220 2230 2240 2250 2260 2270 2280 2290 2300 2310 2320 2330 2340 2350 2360 2370 2380 2390 2400 2410 2420 2430 2440 2450 2460 2470 2480 2490 2500 2510 2520 2530 2540 2550 2560 2570 REM
40. REM J lt gt x u x xY s Yp REM Display REM READ WEIGHTS NEXT JITEISU DISP RESTORE JITEISU TABLE FOR VAL MID DOD 2 14 1 1 LOCATE 33 22 PRINT JITEISUS RETURN REM REM REM Sample Time Display REM jq Fk c x s cx F READ JITEISUS NEXT RESTORE SAMPLE READ SAMPLE TABLE NEXT LOCATE 33 17 PRINT SAMPLE TABLE LOCATE 33 16 PRINT LOCATE 33 6 PRINT CUR RETURN REM REM EEEE REM Mode Display REM
41. f 1 ssCOLOR 7 PRINT PRINT COLOR 5 PRINT 20 2 COLOR 7 PRINT COLOR 6 PRINT PRINT PRINT SPC 20 f 1 f 2 2 5 GOSUB IF FM 2 THEN RETURN GOSUB START PRINT 2 EDR REM GOSUB START PRINT 2 IF TIMEOUT 1 RETURN IF TIMEOUT 1 THEN RETURN EDR EDO 360 1530 1540 1550 1560 1570 1580 1590 1600 1610 1620 1630 1640 1650 1660 1670 1680 1690 1700 1710 1720 1730 1740 1750 1760 1770 1780 1790 1800 1810 1820 1830 1840 1850 1860 1870 1880 1890 1900 1910 1920 1930 1940 1950 1960 1970 1980 1990 2090 2010 2020 2030 2040 CLS PRINT COLOR 4 PRINT 10 GOSUB START TIMEOUT 1 THEN PRINT 2 TRGO 0 TMCO WGT0 RNG1 REFO 0 REM REM REM REM FOR 1 1 500 COLOR 5 PRINT 8 10 1 Osec L eq GOSUB START IF TIMEOUT 1 THEN RETURN PRINT 2 5 100 CK GOSUB PRINT COLOR 6 PRINT 10 SRT100 XX TX IF TIMEOUT 1 RETURN 8050 PBEEP GOSUB START IF TIMEOUT 1 THEN RETURN PRINT 2 PSTL0 PSI1 FP912 PST9 REM REM REM REM
42. kLINE DISP 0 75 820 399 7 LINE 50 LINE 255 FREQUENCY RETURN 80 50 368 7 802 lt 255 368 7 LINE 50 368 255 368 7 FOR 8 16 8 16 48 4 STEP 16 3 50 1 2509 1 HI111 RETURN REM REM REM REM kREF DISP IF MID DOD 3 6 1 0 THEN 11190 3 8 3 GOTO 11220 REF 7 VAL MIDS DOD 2 5 1 RESTORE REF TABLE FOR I 1 REF 1 READ COLOR 6 LOCATE 2 LOCATE LOCATE LOCATE LOCATE LOCATE LOCATE LOCATE RETURN REM REM REM REM 2 8 2 11 2 14 22172 2 20 3 22 14 095 RESTORE FREQ TABLE PT VAL MIDS DOD 3 3 2 LOCATE 5 6 3 5 24 24 7 24 PRINT PRINT PRINT PRINT PRINT S PRINT USING USING USING USING USING USING COLOR 7 PRINT L 1 14 PRINT A 1 18 PRINT JL COLOR 7 10 10 10 10 10 10 PRINT PRINT PRINT B COLOR 7 PRINT FOR 1 1 PT 1 s COLOR 6 READ FREQS qena ome uce ane eme e Qm asye mup mmp wes suey
43. 10310 10320 10330 10340 10350 IF F lt 80 F PSET 52 MARKER POINT F 6 MARKER POINT 1 S FREQ ADD MARKER POINT 1 LINE 52 MARKER POINT 367 52 MARKER POINT 80 2 8 amp H5555 dB LINE 50 368 255 368 7 FOR 1 1 100 IF LOC 1 0 THEN RETURN IF MARKER POINT 1 THEN RETURN S INPUT 1 GOSUB LOC CLEAR 1 1 lt 10 THEN GOSUB 10020 AA 9 IF MARKER POINT 10 lt 1 THEN RETURN F TABLE FREQ POINT S 10 LOW LEVEL 4 8 80 GOTO 10130 MARKER POINT FREQ ADD 1 F T IF ASC S lt gt 29 THEN RETURN LINE 52 MARKER POINT 367 52 MARKER POINT 80 0 S FREQ ADD MARKER POINT 1 IF S gt 1500 THEN G 0 GOTO 10260 G F MARKER POINT MARKER POINT 10 IF PT GS F 3 PT 368 gt IF F lt 80 THEN F PSET 52 MARKER POINT 6 0 THEN RETURN GOSUB PBEEP LINE 62 PT 20 367 62 PT 20 80 0 68 PT s 1 lt 80 LINE 55 PT 20 F 70 PT 20 F 6 F TABLE FREQ POINT S 10 LOW LEVEL 4 8 G 80 GOSUB PBEEP F TABLE PT 1 FREQ ADD 10 LOW LEVEL 4 8 G 80 GOTO 10080 10360 10370 10380 10390 10400 10410 10420 10430 10440 10450 10460 10470 10480 10490 10500 10510 10520 10530 10540 10550 10560 10570 10580 10590 RESTORE FREQ TABLE FOR TO 1 LOCATE
44. 20 368 55 1I 1 20 G 6 LINE 70 I 1 20 368 70 I 1 20 G 6 NEXT F F TABLE PT 1 FREQ ADD 10 LINE 50 368 255 368 7 RESTORE FREQ TABLE FOR TO PT 1 READ FREQ NEXT LOCATE 7 24 COLOR 7 PRINT COLOR 6 LOCATE 24 24 PRINT USING FOR 8 16 TO 8 16 48 4 STEP 16 3 LINE 50 12 255 1 7 8 1111 NEXT LINE 62 PT 20 367 62 PT 20 80 2 amp H5555 RETURN mo we ums sme que lt oms lt mie w H m x s lt a G n sm s s lt s lt W lt h s s x s lt s mmo x s m lt c lt mm m lt t lt s m mio am m mm s w S s x s s lt s s s wn a m lt lt s x Vm m s a lt m G s
45. S RETURN gt 9 N 5 640 KB 1 RETERN MNS DOS Y N N LRETURN 7 COPY SORT EXE RETURN 8 SWITCH EXE RETURN 9 1 MS DOS MS DOS N88 BA SLMU 10 N88 BASIC COPY_N88BASIC EXE 11 1 MS DOS N88 BASIC MSc00S
46. 1 5 2 5 6 7 8 2 5 6 7 X8 00 00N 1 CMT 1 X5 2 8 2 DRM LRM Xa CX7 4 Ek O k x k 7 gt z O Xe X7X8X9 X1X2X3Xa Xs 0 Ls 1 Lio 2 Lso 3 L909 4 L 95 5 Leq XeX7XaX9 SDR 1 2 X3 Xa X1X2XaXu DEM SDA X1X2 5 6 X1X2X3 001 250 XaXsXe 001 250 SLR 1 2 XiX2X3Xu LRM SLA X1X2X3 XaX5 Xe X7X8X9 X1X2X3 Xu X5X6
47. 1 RETURN 1520 1530 1540 1550 IF LOC 2 0 THEN 1500 A INPUT 1 2 H H A IF ASC A lt gt 10 THEN TOUT 1000 GOTO 1500 Check lf LEN H IF MID H A 2 1 CHR amp H4 THEN 1610 PRINT 2 CHR 8H6 SEND ACK PRINT 2 NEXT H LEFT H LEN H 2 SEND NEXT PRINT SPC 10 H GOTO 1490 H LEFT H LEN H 3 PRINT SPC 10 H RETURN START REM REM T t t i T iT i i i i REM E N Q A C K O A 7 F gt 72 REM TT T T T i i iT iIi T T H PRINT 2 CHR 8 amp H5 SEND ENQ TOUT 1000 TIMEOUT O IF LOC 2 O THEN TOUT TOUT 1 IF TOUT O THEN 1730 ELSE GOTO 1690 A INPUT 1 2 H H A IF ASC A lt gt 10 THEN 1690 Check LF RETURN REM TIMEOUT 1 PRINT COLOR 2 PRINT 20 Not receive Error FOR I 1 TO 5000 NEXT RETURN 2 5 ass O RS 232C RS 232C OPEN YES INA 29 NA 29 RS 232C a CLOSE _NA 29 EBJ PC CRT Not recieve Error PC NA 29
48. 3890 3900 3910 3920 3930 3940 3950 3960 3970 3980 3990 4000 4010 4020 4030 4040 4050 4060 4070 4080 4090 COLOR 4 LINE INPUT F GOSUB PBEEP THEN 3720 GOSUB PRINT FM REM REM REM REM REM RS232C GES PRINT PRINT PRINT PRINT PRINT COLOR PRINT 0 START IF TIMEOUT 1 THEN RETURN 82 RETURN Command out 3k 5k ok 5k 3k oF 3k o 3k 5k 3k Ok ok ok ok k F 5 2 9 52 C C E 333222222222 22552555222 COLOR 3 SPC 15 RS 232C PRINT COLOR 5 SPC 15 j f 1 COLOR 5 SPC 15 f COLOR 7 PRINT R C 2 COLOR 7 PRINT PRINT 6 PRINT SPC 20 f 1 f 2 FKEY 2 GOSUB IF FM CONSOLE 0 25 CHILD SWITCH GOSUB REM REM REM REM REM CLS PRINT PRINT PRINT PRINT COLOR PRINT 2 THEN RETURN System call PBEEP RUN e sk k ok bk kok OE RR OE R OR OR E 6 S Y S T E M C A o 43 3k 3k R k bk Ok k OR CALL COLOR 3 PRINT
49. 7 GOSUB PBEEP 12650 GOSUB START IF TIMEOUT 1 RETURN 12660 PRINT 2 TRGO 0 OCT TMCO WGTO RNG1 REF0 0 DSPO 12670 REM 0 0 OFF 12680 REM OCT 1 Z 1 OC T l Z 12690 REM TMCO FAST 12700 REM WGTO FLAT 12710 REM RNG1 FS 80 12720 REM 0 0 12730 REM DSPO L p 7 12740 REM 12750 FOR I 1 TO 1000 NEXT PRINT COLOR 5 12760 PRINT SPC 10 B GOSUB 12770 GOSUB START IF TIMEOUT 1 THEN RETURN 12780 PRINT 2 RMT PSIO PSI1 PSI2 PSI3 DOD 12790 REM RMT 12800 REM PSIO 12810 REM PSII 12820 REM PSI2 12830 REM PS1I3 12840 REM 12850 GOSUB RECV DATA IF TIMEOUT 1 THEN RETURN Data receive 12860 DOD 1 H 12870 GOSUB RECV DATA IF TIMEOUT 1 RETURN Data receive 12880 DOD 2 H 12890 GOSUB RECV DATA IF TIMEOUT 1 THEN RETURN Data receive 12900 DOD 3 H 12910 GOSUB RECV DATA IF TIMEOUT 1 THEN RETURN Data receive 12920 DOD 4 H 12930 GOSUB RECV DATA IF TIMEOUT 1 THEN RETURN Data receive 12940 DOD 5 5 12950 LINE 50 80 50 368 7 12960 LINE 255 80 255 368 7 12970 LINE 50 368 255 368 7 12980 GOSUB LINE DISP Line display 5 gt
50. 7 24 COLOR 7 PRINT F F TABLE PT 1 FREQ ADD 10 LINE 62 PT 20 367 62 PT 20 80 2 amp 5555 LOCATE 24 24 USING FREQ POINT PT 1 GOSUB FREQ DISP RETURN REM REM Marker right READ FREQ NEXT COLOR 6 MRK RIGHT2 IF D MODE 2 THEN 10770 AA 1 IF MARKER POINT 200 THEN RETURN ELSE GOSUB PBEEP LINE 52 MARKER POINT 367 52 MARKER POINT 80 0 S FREQ ADD MARKER POINT 1 IR S gt 1500 THEN G 0 GOTO 10520 G F TABLEX FREQ POINT S 10 LOW LEVEL F 368 4 8 G IF F lt 80 THEN F 80 PSET 52 MARKER POINT F 6 MARKER POINT MARKER POINT 1 S FREQ ADD MARKER POINT 1 LINE 52 MARKER POINT 367 52 MARKER POI NT 80 2 8 5555 LOCATE 7 24 COLOR 6 IF S gt 1500 THEN PRINT PRINT USING dB ABLEX FREQ 9 10 10600 10610 10620 10630 10640 10650 10660 10670 10680 10690 10700 10710 10720 10730 10740 10750 10760 10770 10780 10790 10800 10810 10820 10830 10840 10850 10860 10870 FOR I 8 16 8 16 48 4 STEP 16 3 50 1 255 1 7 amp 1111 LINE 50 368 255 368 7 FOR 100 LOC 1 0 RETURN IF MARKER POINT 200 RETURN S INPUT 1 GOSUB LOC CLEAR IF ASC S gt 28 THEN RETURN AA AA 1 1F lt 10 THEN GOSUB PBEEP GOTO 10490 AA 9 IF MARKER POINT 10
51. DOWN 1 1 IF FREQ ADD 1 RETURN FREQ ADD FREQ ADD 1 FOR TO 4 KEY I OFF NEXT 5 2 9840 9850 9860 9870 9880 9890 9900 9910 9920 9930 9940 9950 9960 9970 9980 9990 10000 10010 10020 10030 10040 10050 10060 10070 10080 10090 10100 10110 10120 1 IF MARKRR POINT 1 THEN RETURN left GOSUB GOSUB PBEEP LOCATE 50 10 COLOR 7 PRINT LOCATE 64 10 COLOR 6 IF D MODE 1 THEN GOSUB GRAPHICS1 DISP ELSE GOSUB GRAPHICS2 DISP IF LOC 1 0 THEN 9950 IF FREQ ADD 1 THEN 9950 S INPUT 1 GOSUB LOC CLEAR IF ASC S lt gt 31 THEN RETURN AA AA l IF lt 5 THEN 9830 AA 5 IF FREQ ADD 10 lt 1 THEN 9950 BB BB 1 IF lt 5 THEN FREQ ADD FREQ ADD 10 GOTO 9840 BB 5 IF FREQ ADD 100 lt 1 THEN BB 0 GOTO 9920 FREQ ADD FREQ ADD 100 FFF FREQ ADD REM MRK LEFT2 IF D MODE 2 THEN 10300 ADDRESS PRINT USING FREQ ADD GOTO 9840 RETURN ELSE GOSUB PBEEP LINE 52 MARKER POINT 367 52 MARKER POINT 80 0 S FREQ ADD MARKER POINT 1 IF 821500 THEN 6 0 0 0 10050 G F MARKER POINT LOCATE 7 24 COLOR 6 IF S gt 1500 THEN PRINT USING PRINT 368 ABLE FREQ POINT S 10 FOR I 8 16 8 16 48 4 STEP 16 3 60 1 C255 1 7 amp H1111 10130 10140 10150 10160 10170 10180 10190 10200 10210 10220 10230 10240 10250 10260 10270 10280 10290 10300
52. PBEEP ON ERROR 6360 6050 IF A gt 0 AND lt 4 THEN 6060 ELSE GOSUB 5980 6060 RESTORE DRV TABLE FOR 1 1 TO DRV NEXT CLOSE 2 6070 OPEN DRV FOR OUTPUT AS 2 CLOSE 2 KILL DRV 6080 COLOR 7 PRINT PRINT SPC 10 COLOR 4 INPUT NAMAE GOSUB IF LEN NAMAE gt 8 THEN GOSUB EBEEP GOTO 6080 6090 6100 6110 6120 6130 6140 6150 6160 6170 6180 ON ERROR DRV OPEN DRV NAMAE S FOR INPUT AS 2 105 2 GOSUB 6300 DRV TNAMAE S FOR OUTPUT AS 2 COLOR 6 LOCATE 20 20 PRINT PRINT 2 MODE FOR 11 1 COUNTERIPRINT 2 11 IF MODE 1 6230 FOR 10 45 1 96 6190 6200 6210 6220 6230 6240 6250 6260 6270 6280 6290 6300 6310 6320 6330 6340 6350 6360 6370 6380 6390 6400 6410 6420 6430 6440 6450 6460 6470 6480 6490 6500 6510 6520 6530 6540 6550 6560 6570 6580 6590 6600 6610 6620 6630 6640 6650 5660 6670 6680 6690 FOR 1 1500 PRINT 2 CLOSE 2 PRINT AS 2 RETURN DRV TABLEIDATA DRV ERI ER ERR EL ERL RE
53. PRINT SPC 20 f 1 f 2 4250 FKEY 21GOSUB KEY IN 4260 IF FM 1 THEN SYSTEM Program 4270 FM 0 RETURN 4280 REM 4290 REM gt gt 7 gt gt gt gt 7 gt gt gt gt gt gt gt gt gt gt gt gt gt gt 4300 REM 4310 REM 4320 REM ER 4330 REM cS 4340 KEY IN 4350 FOR TO 10 I OFF NEXT FOR I 1 TO I ON NEXT FM 0 4360 GOSUB LOC CLEAR 4370 ON KEY GOSUB K1 K2 K3 K4 K5 K6 K7 K8 K9 4380 IF lt gt 0 THEN GOSUB PBEEP FOR I 1 10 I OFF NEXT RETURN 4390 GOTO 4360 4400 Kl FM 1 RETURN 4410 2 2 RETURN 4420 3 RETURN 4430 4 FM 4 RETURN 4440 5 5 RETURN 4450 6 RETURN 4460 kK7 7 RETURN 4470 8
54. SPC 15 MS DOS COLOR 5 1 gt PRINT COLOR 5 6 PRINT PRINT SPC 20 3 f 2 s COLOR T PRINT gt X 2 COLOR 7 PRINT 1 FKEY 2 GOSUB IF COLOR PRINT 9 2 THEN RETURN 4 PRINT PRINT E SPC 10 PRINT SPC 18 E X I RETURN KEY A INPUT S 1 GOSUB 4 1 4100 CONSOLE 0 25 CHILD System call 4110 GOSUB PBEEP RUN 4120 REM 4130 REM 4140 gt 3k 3k 3k ok E kk k k Ok jc k kk kO kk 4150 REM F 7 2 9 R 4160 REM sk c ok R k k k ok 4170 SYSTEM END 4180 CLS COLOR 3 PRINT SPC 18 NA 29 4190 COLOR 5 PRINT PRINT PRINT 4200 PRINT SPC 20 f 1 xsCOLOR 7 PRINT K Y 4210 COLOR 5 PRINT 4220 PRINT 20 2 COLOR 7 PRINT 4230 COLOR 6 PRINT 4240 PRINT
55. USING FREQ ADD GOSUB GRAPHICS2 DISP 1 RETURN REM REM Function key 2 22 FM 2 FOR 1 4 I IF FREQ POINT 10 THEN FREQ POINT 0 GOSUB 0 1 GOSUB FREQ DISP IF D MODE 2 THEN GOSUB GRAPHICS2 DISP ELSE GOSUB GRAPHICS1 DISP RETURN REM REM Function key 3 FK23 FM 3 FOR TO 4 I OFF NEXT IF FREQ POINT 1 THEN FREQ POINT 11 GOSUB PBEEP FREQ POINT FREQ POINT 1 GOSUB FREQ DISP IF D MODE 2 THEN GOSUB GRAPHICS2 DISP ELSE GOSUB GRAPHICS1 DISP RETURN REM REM Function key 4 FK2 4 GOSUB PBEEP FM 4 RETURN REM REM Data up DATA UP 1 1 IF FREQ ADD 1500 RETURN FREQ ADD FREQ ADD 1 FOR TO 4 KEY I OFF NEXT GOSUB 50 10 COLOR 7 PRINT DATA ADDRESS LOCATE 64 10 COLOR 6 PRINT USING ADD IF D MODE 1 THEN GOSUB GRAPHICS1 DISP ELSE GOSUB GRAPHICS2 DISP IF LOC 1 0 THEN 9770 IF FREQ ADD 1500 THEN 9770 S INPUT 1 GOSUB LOC CLEAR IF ASC S gt 30 THEN RETURN AA AA 1 IF lt 5 THEN 9650 AA 5 1F FREQ ADD 10 gt 1500 THEN 9770 BB BB 1 IF BB lt 5 THEN FREQ ADD FREQ ADD 10 GOTO 9660 BB 5 IF FREQ ADD 100 gt 1500 THEN 0 6 9740 FREQ ADD FREQ ADD 100 GOSUB GOTO 9660 FFF FREQ ADD RETURN REM REM Data down DATA
56. gt 200 THEN RETURN LINE 52 MARKER POINT 367 52 MARKER POINT 80 0 S FREQ ADD MARKER POINT 1 IF 521500 THEN G 0 GOTO 10730 G FREQ POINT S 10 LOW LEVEL F 368 4 8 G IF F lt 80 THEN F 80 5 52 6 MARKER POINT MARKER POINT 10 GOSUB PBEEP GOTO 10550 IF PT 9 THEN RETURN GOSUB PBEEP LINE 62 PT 20 367 62 PT 20 80 0 G F TABLE PT 1 FREQ ADD 10 LOW LEVEL F 368 4 8 G IF F lt 80 THEN F 80 LINE SS PT 20 F 70 PT 20 F 6 PT PT 1 RESTORE FREQ TABLE FOR I 1 TO PT 1 LOCATE 7 24 COLOR 7 PRINT F F TABLE PT 1 FREQ ADD 10 62 20 367 lt 62 20 80 2 8 5555 READ FREQ NEXT gt COLOR 6 PRINT FREQ 10600 gt MARKER POINT FREQ ADD 1 F PRINT FREQ 10880 10890 10900 10910 10920 10930 10940 10950 10960 10970 10980 10990 11000 11010 11020 11030 11040 11050 11060 11070 11080 11090 11100 11110 11120 11130 11140 11150 11160 11170 11180 11190 11200 11210 11220 11230 11240 11250 11260 11270 11280 11290 11300 11310 11320 11330 11340 11350 11360 11370 11380 11390 11400 LOCATE 24 24 PRINT USING dB F FREQ POINT PT 1 GOSUB FREQ DISP RETURN REM REM REM REM FREQ DISP LOCATE 50 8 COLOR 7 PRINT RESTORE FREQ TABLE FOR TO FREQ POINT READ A NEXT LOCATE 64 8 COLOR 6 PRINT A
57. 0 UP 7560 IF PPOINT MA 9 THEN GOSUB 7570 KP PPOINT 160 160 9 40 7580 FOR K KP KP 80 STEP 2 POKE 1 7590 PPOINT PPOINT 1 KP PPOINT 160 160 9 40 7600 FOR K KP 80 STEP 2 K amp HC5 NEXT 7610 RETURN 7620 DOWN 7630 IF PPOINT 1 THEN GOSUB EBEEP RETURN 7640 KP PPOINT 160 160 9 40 7650 FOR K KP 80 STEP 2 8 1 7660 PPOINT PPOINT 1 KP PPOINT 160 160 9 40 7670 FOR K KP KP 80 STEP 2 8 5 7680 RETURN 7690 ER ERR ERN ERL RESUME 7700 7700 ON ERROR GOTO O 7710 PRINT COLOR 2 7720 PRINT 5 13 XX PRINT 7730 PRINT SPC 19 j PRINT ABORT 1 7740 GOSUB EBEEP FOR 1000 NEXT RETURN 7750 REM 7760 REM 7770 REM L E Q O Y W 7780 REM 7790 CHECK PSI 7800 00 00 00 OK O L 0 7810 ON 00 00 02 GOSUB TIME CHECK 7820 TIME 7830 IF 1 THEN TIME OFF RETURN ELSE GOTO 7810 7840 7850 GOSUB START IF 1 RETURN 7860 PRINT 2 510 7870 PSIO L E Q Y WE S 7880 GOS
58. 11470 11480 11490 COLOR 6 LOCATE 48 PT 8 PRINT RETURN MARKER1 DISP S FREQ ADD MARKER POINT 1 IF S gt 1500 THEN F 0 GOTO 11460 F F TABLE FREQ POINT S 10 LOW LEVEL LINE 52 MARKER POINT 367 52 MARKER POINT 80 2 amp H5555 LOCATE 7 24 COLOR 6 IF 521500 THEN PRINT gt RETURN PRINT USING dB MARKER POINT FREQ ADD 1 F ABLE FREQ POINT FREQ ADD MARKER POINT 1 10 11500 11510 11520 11530 11540 11550 11560 11570 11580 11590 11600 11610 11620 11630 11640 11650 11660 11670 11680 11690 11700 11710 11720 11730 11740 11750 11760 11770 11780 11790 11800 11810 11820 11830 11840 11850 11860 11870 11880 11890 11900 11910 11920 FOR VAL MID DOD 4 17 2 1 RETURN MARKER21 DISP RESTORE FREQ TABLE PT VAL MID DOD 3 3 2 FOR TO PT 1 READ FREQ NEXT LOCATE 7 24 COLOR 7 PRINT COLOR 6 PRINT FREQ B MID DOD 5 PT 6 3 5 LINE 62 PT 20 367 62 PT 20 80 2 amp H555 LOCATE 24 24 PRINT B COLOR 7 PRINT RETURN REM WEIGHT DISP RESTORE WEIGHT TABLE FOR I 1 VAL MID DOD 2 12 1 1 LOCATE 33 20 PRINT WEIGHT RETURN REM
59. 290 9300 REM REM REM E 22502 22 wa MODE2 DI SP D MODE 1 FREQ POINT 1 FREQ ADD 0 MARKER POINT 1 0 COLOR 4 LOCATE 12 5 PRINT LEVEL TIME GOSUB LINE DISP GOSUB REF DISP l GOSUB MARKER21 DISP j GOSUB WEIGHT DISP Weight display GOSUB JITEISU DISP GOSUB TIME DISP Time display Line display Reference display Marker display GOSUB MODE DISP Mode display GOSUB DATA UP Data display GOSUB FREQ DISP Frequency display COLOR 4 LOCATE 51 15 PRINT X M H R LOCATE 50 16 COLOR 5 PRINT f i 200 COLOR 7 PRINT RRF 2 UJ D HR Z LOCATE 50 17 COLOR 5 PRINT 4 2 gt ssCOLOR 7 PRINT LOCATE 50 18 COLOR 5 PRINT 3 7 7 PRINT DOWN LOCATE 50 19 COLOR 5 PRINT f 4 COLOR 7 PRINT 9 LOCATE 50 20 COLOR 5 PRINT 21 skCOLOR 7 PRINT 9 9 UP LOCATE 50 21 COLOR 5 PRINT 4 1 COLOR 7 PRINT DOWN LOCATE 50 22 0 2 PRINT 2 CO
60. 51 24 hour gt 242 REFP OFF 0 70 dB 4 110 dB 1 80 dB 5 120 dB 2 90 dB 6 130 dB 3 100 dB 7 140 dB 02 POD 2 OBP 1 2 dB 0 A 2 FLAT 0 FAST 1 SLOW 2 10 ms D CAL on off 0 off 1 on PAUSE CONTINUE 0 CONTINUE 1 PAUSE O PS12 UN g E o L Q 35 0 Lp 1 Lmax 2 Leq 3 L AE LEVEL FREQ 05 21 59 1 63 9 onoff 0 off 1 on 0 dB Leq 10 ms NA 29 STRT STP GRAPH NUMERIC 0 1 O on off 0 off 1 on on off 0 off 1 on
61. 80 REM REM REM Z E F W REM RECEIVE PRINT COLOR 7 PRINT 5 10 PRINT 20 1 COLOR 6 LINE INPUT COMMAND BEEP GOSUB START IF TIMEOUT 1 THEN RETURN Check ACK PRINT 2 COMMAND COLOR 4 PRINT PRINT SPC 10 A JZ 9 GOSUB RECV DATA RETURN REM REM REM REM RECV DATA COLOR 6 H TOUT 1000 TIMEOUT 0 TOUT TOUT 1 IF TOUT 0 THEN COLOR 2 PRINT 5 20 Not receive Error OUT
62. AGE 1 THEN GOSUB EBEEP RETURN IF COUNT lt gt 11 THEN PAGE PAGE 1 COUNT PAGE 1 10 1 FM 2 GOSUB PBEEP ELSE GOSUB 7200 RETURN 7210 7220 COLOR 6 LOCATE 20 22 PRINT 7230 FOR I 1 TO 10 KEY I OFF NEXT 7240 FM 3 GOSUB 7250 RF ILE LEFT DIRDATA S PAGE 1 10 PPOINT 8 A LENCREILES 7260 FOR I 1 TO A 7270 IF RIGHT RFILE 1 lt gt THEN 7300 7280 A LEFT RFILE LEN RFILE 1 7290 NEXT 7300 ON ERROR GOTO DO ERR 7310 OPEN DRV RFILE FOR INPUT AS 2 7320 INPUT 2 MODE 7330 IF MODE 1 THEN 7410 7340 FOR 1 1 TO 4 LINE INPUT 2 DOD 1 NEXT DR CNT 4 7350 FOR I 1 TO 10 7360 FOR J 1 TO 1500 7370 INPUT 82 1 70 7380 NEXT 7390 NEXT 7400 CLOSE 2 RETURN 7410 DR CNT 1 7420 LINE INPUT 2 DOD DR CNT IF EOF 2 THEN CLOSE 2 RETURN 7430 DR CNT DR CNT 1 GOTO 7420 7440 DO ERR 7450 PR ERR EL ERL RESUME 7460 7460 ON ERROR 0 LOCATE 0 18 GOSUB 7470 COLOR 2 PRINT X x x X 7480 COLOR 7 PRINT 1 rH W 2 w 7490 COLOR 4 INPUT AiGOSUB PBEEP 7500 IF A gt 0 AND A lt 3 THEN 7510 ELSE GOSUB EBEEP GOTO 7480 7510 IF A 1 THEN CANCEL 1 ELSE CANCEL 0O LOCATE 0 20 PRINT 8 1609 0 7520 OPEN AS 2 RETURN 7530 F4 7540 FM 4 GOSUB PBEEP CANCEL 1 RETURN 755
63. CAL RETURN REM REM Data table REM REM Level Range TABLE DATA 140 130 120 110 100 90 80 70 60 50 40 30 20 10 REM Weight WEIGHT TABLE DATA t FLAT REM JITEISU TABLE DATA FAST SLOW 10msec REM xHYOUJ I TABLE DATA Lmax Leq TABLE DATA 31 5 Hz 63 125 2 250 2 500 Hz DATA 1 2 2 2 4 2 8 2 S SAMPLE TABLE DATA 2msec 5 10msec 20msec 50 DATA 100 0 2 DATA 0 5sec lsec 25 5sec 10sec 3 20 4 1 m 185 8533 042 359 7887 R FAX 042 359 7441 2 T 151 0053 03 3379 5521 6 8 7 530 0047 06 6364 3671 489 FA 982 0015 TEL 022 249 5533 FA 2 3 9460 0002 052 232 0470 4 FAX 1 1 2 TEL 082 243 8899 489 0
64. DIRECTORY PRINT COLOR 6 PRINT SPC 14 NO H COLOR 1 PRINT 6 14 LOCATE 0 24 5 PRINT 1 COLOR 7 PRINT ssiCOLOR 5 PRINT 2 7 PRINT COLOR 5 PRINT 4 3 7 PRINT COLOR 5 PRINT f 4 COLOR 7 PRINT COLOR 5 8 7 PRINT COLOR 5 PRINT 4 7 PRINT DOWN COLOR 6 CANCEL 0 Y AXIS 10 10 LA COUNT PPOINT 1 COLOR 5 LOCATE 13 Y AXIS PRINT USING COUNT COLOR 7 DIRDATA COUNT COUNT COUNT 1 YM YM 1 Y AXIS Y AXIS 1 IF COUNT gt DIR CNT THEN 6990 IF YM lt 20 THEN 6940 MA YM 1 KP PPOINT 160 160 9 40 FOR KP 80 STEP 2 amp HC5 NEXT FOR I 5 10 KEY I OFF NEXT FOR 4 KEY I ON NEXT KEY GOSUB 1 2 IF 10 0 THEN 7120 A TINPUT 1 GOSUB IF ASC A 31 THEN GOSUB UPIGOTO 7090 IF ASC A S 30 THEN GOSUB DOWwN A LOC 1 IF 0 THEN 7040 FOR I 1 A A INPUT 1 NEXT GOTO 7040 IF FM 3 OR FM 4 THEN ON ERROR GOTO 0 RETURN IF FM 1 OR FM 2 THEN FM 0 CLS GOTO 6790 ELSE 7040 IF COUNT gt DIR CNT THEN FM 0 GOSUB ELSE FM 1 PAGE PAGE 1 COUNT GE 1 10 1 GOSUB 7160 7170 2 7180 7190 RETURN IF P
65. GOSUB 8180 GOSUB WEIGHT DISP 8190 GOSUB JITEISU DISP 8200 GOSUB TIME DISP 8210 GOSUB MODE DISP 8220 GOSUB GRAPHICS DISP Graphics display 8230 GOSUB NUMERIC DISP Numeric display 8240 COLOR 4 LOCATE 51 20 PRINT X R 8250 LOCATE 50 21 COLOR 5 PRINT f 1 COLOR 7 PRINT 1 Line display Reference display Marker display Weight display Time display Mode display gt gt 49 8260 8270 8280 8290 8300 8310 8320 8330 8340 8350 8360 8370 8380 8390 8400 8410 8420 8430 8440 8450 8460 8470 8480 8490 8500 8510 8520 8530 8540 8550 8560 8570 8580 8590 8600 8610 8620 8630 8640 8650 8660 8670 8680 8690 8700 8710 8720 8730 8740 8750 LOCATE 50 22 2 PRINT gt 1 ssCOLOR 7 PRINT G LOCATE 50 23 COLOR 2 PRINT ssCOLOR 7 PRINT LOCATE 52 24 COLOR 6 PRINT KEY 1 ON FM O GOSUB LOC CLEAR KEY IF 1 THEN KEY 1 OFF RETURN 10 0 THEN 8300 A INPUT 1 IF ASC A 29 OR ASC A 30 THEN GOSUB GOTO 8290 IF ASC A 28 OR ASC A 31 THEN GOSUB GOTO 8290 GOSUB GOTO 8290 REM REM Function key 1 FK1 GOSUB PBEEP FM 1 RETURN REM REM Marker left
66. LOR 7 PRINT 6 LOCATE 50 23 COLOR 2 PRINT c COLOR 7 PRINT Z LOCATE 52 24 COLOR 6 PRINT FOR 1 TO 4 KEY K ON NEXT GOSUB LOC CLEAR ON KEY GOSUB 21 22 23 24 IF FM 4 THEN FOR TO 4 I OFE NEXT RETURN IF FM lt 4 AND FM gt 0 THEN 0 GOTO 9100 LOC 1 0 THEN 9110 A INPUT 1 IF ASC A 31 THEN GOSUB DATA DOWN GOTO 9100 IF 30 THEN GOSUB DATA UP GOTO 9100 ASC A 29 THEN GOSUB MRK LEFT2 GOTO 9100 IF ASCCA 28 THEN GOSUB MRK RIGHT2 GOTO 9100 GOSUB GOTO 9110 REM REM Function key 1 RK21 GOSUB COLOR 4 IF D MODE 1 THEN 2 ELSE D MODE FOR 1 1 TO 4 KEY 1 OFF NEXT IF D MODE 2 THEN 9320 LOCATE 12 5 LEVEL TIME FREQ ADD LOCATE 64 10 COLOR 6 PRINT USING FREQ ADD 5 1 9310 9320 9330 9340 9350 9360 9370 9380 9390 9400 9410 9420 9430 9440 9450 9460 9470 9480 9490 9500 9510 9520 9530 9540 9550 9560 9570 9580 9590 9600 9610 9620 9630 9640 9650 9660 9670 9680 9690 9700 9710 9720 9730 9740 9750 9760 9770 9780 9790 9800 9810 9820 9830 GOSUB GRAPHICS1 DISP 1 RETURN LOCATE 12 5 PRINT LEVEL FREQ FREQ ADD FREQ ADD FREQ ADD MARKER POINT 1 IF FREQ ADD gt 1500 THEN FREQ ADD 1500 LOCATE 64 10 COLOR 6 PRINT
67. LOR 7 PRINT PRINT Version 1 0 COLOR 2 PRINT R ION CO LTD PRINT COLOR 1 FOR TO 10 KEY PRIN CONSOLE 5 20 RETURN REM MENU CLS 3 PRINT COLOR 4 PRINT SPC 25 PRINT COLOR 5 PRINT SPC 20 f 1 COLOR 7 PRINT 1 PRINT COLOR 5 PRINT SPC 20 f PRINT COLOR 5 PRINT SPC 20 f PRINT COLOR 5 D PRINT 3 PRINT SPC 20 f 4 COLOR 7 PRINT NA 29 D 6 T COLOR 7 PRINT PRINT COLOR 5 PRINT SPC 20 f PRINT COLOR 5 PRINT SPC 20 f PRINT COLOR 5 PRINT SPC 20 f lt kCOLOR 7 PRINT NA 2 PRINT PRINT COLOR 6 e COLOR 7 PRINT s COLOR 7 PRINT 4 3 5150 PRINT 20 12 o f 7 5160 DSP FLAG 0O RETURN 5170 REM 5180 5190 REM
68. OR 3550 3430 IF gt 0 AND A lt 5 THEN 3440 ELSE GOSUB 3410 3440 IF A 4 THEN RETURN 3450 RESTORE DRV TABLE FOR TO A READ DRV NEXT CLOSE 2 3460 DRV FOR OUTPUT AS 2 CLOSE 2 KILL DRV 3470 CHILD DIR DRV SORT gt DIR MAP 3480 GOSUB INITIALIZE 3490 GOSUB MENU SUB 3500 GOSUB FILE IN IF ABORT 1 3410 3510 CLOSE 2 OPEN COM AS 2 3520 IF CANCEL 1 THEN RETURN 3530 GOSUB DISPLAY 3540 RETURN 3550 ER ERR EL ERL RESUME 3560 3560 ON ERROR GOTO O 3570 COLOR 2 PRINT PRINT SPC 16 X UB 3580 PRINT GOTO 3410 4 0 3590 3600 3610 3620 3630 3640 3650 3660 3670 REM REM REM REM COMMAND CLS PRINT PRINT PRINT k 3k k ok EEE E E EE EE E E E 4 a 35 3k bF ok sk ok 5k k Sk E EE EE IN COLOR 3 SPC 10 NA 29 PRINT COLOR 7 SPC 10 COLOR 6 PRINT ITRETURN KEY COLOR 7 PRINT 3680 3690 3700 3710 3720 3730 3740 3750 3760 3770 3780 3790 3800 3810 3820 3830 3840 3850 3860 3870 3880
69. OSUB TIMEOUT 1 TIME 00 00 00 5470 A TIMES IF VAL RIGHT A 2 lt 2 THEN 5470 5480 CLOSE 2 Error close 5490 COM AS 2 165 2328 5500 RETURN 5510 j 5520 INPUT 1 2 5930 H H A 5540 IF ASC A lt gt 10 THEN 5410 Check 1 5550 RETURN 6560 REM 5570 REM ss 5580 REM F 4 5590 REM 5600 5610 TIMEOUT O 5620 TIME 00 00 00 5630 LOC 2 lt gt 0 5730 5640 A IF 2 lt 4 THEN 5630 5650 IF DSP FLAG 1 5670 5660 PRINT COLOR 2 PRINT 20 Not receive Error 5670 GOSUB TIMEOUT 1 TIME 00 00 00 44 5680 A TIMES IF VAL RIGHT A 2 lt 2 THEN 5680 5690 CLOSE 2 Error close 5700 OPEN AS 2 RS 232C open 5710 RETURN 5720 5730 A INPUT 1 2 5740 H H A 5750 IF ASC A lt gt 10 THEN 5620 Check 17 5760 LEN H 5770 IF MID H 2 1 CHR amp H4 THEN 5810 5780 PRINT 2 8 6 SEND ACK 5790 PRINT 2 NEXT COLOR 7 I LEFT H LEN H 2 5 SEND NEXT 5800 GOTO 5610 5810 H LEFT H LEN H 3 RETURN 5820 REM 5830 REM
70. OSUB GOSUB START IF TIMEOUT 1 THEN RETURN PRINT 2 0 STAX Y X REM 0 LP REM Y REM 0 2ms ec REM CK 2 GOSUB IF TIMEOUT 1 THEN RETURN PRINT COLOR 6 PRINT SPC 10 4 GOSUB PBEEP GOSUB START IF TIMEOUT 1 THEN RETURN PRINT 2 PSIO PSI1 PSI2 PSI3 REM PSIO O REM PS1I 1 1 REM PSI 2 2 REM PSI3 B GOSUB RECV DATA IF TIMEOUT 1 THEN RETURN receive 2580 2590 2600 2610 2620 2630 2640 2650 2660 2670 2680 2690 2700 2710 2720 2730 2740 2750 2760 2770 2780 2790 2800 2810 2820 2830 2840 2850 2860 2870 2880 2890 2900 2910 2920 2930 2940 2950 2960 2970 2980 2990 3000 3010 3020 3030 3040 3050 3060 3070 3080 3090 3100 DOD 1 H GOSUB RECV DATA IF TIMEOUT 1 THEN RETURN receive DOD 2 H GOSUB RECV DATA IF TIMEOUT 1 DOD 3 H RETURN receive GOSUB RECV DATA IF TIMEOUT 1 THEN RETURN receive DOD 4 H RESTORE FREQ TABLE FOR 111 1 TO 10 READ FREQ FOR LI2 1 TO 1426 STEP 75 CM1 STR LI2 CM1 RIGHT CM1 LEN CM1 1 CM2 STR LI1 1 CM2 RIGHT CM2 1 GOSUB START IF TIMEOUT 1 THEN RETURN PRINT 2 1 2 0
71. R gt lt LF 5 1 5 4 13 10 05H 5 6 _ OD om 4 lt c gt 13 1i0 3 2 29 lt CR gt 250 1 250 1 250 1 PC lt ACK gt NEXT lt CR gt lt LE gt PC 1 4 lt ACK gt NEXT lt CR gt lt LF gt NA 29 1 1 DATA XEOT gt lt CR gt lt LF5 DATA 250 EO
72. SUME 6290 ON ERROR GOTO 0 GOTO 6130 COLOR 2 PRINT x PRINT 1 2 COLOR 4 A GOSUB PBEEP IF A gt 0 AND A lt 3 THEN 6340 ELSE GOSUB 6310 IF 1 THEN 6080 KILL DRV NAMAE GOTO 6130 ER ERR EL ERL RESUME 6370 ON ERROR GOTO 0 COLOR 2 PRINT GOSUB GOTO 5820 REM REM REM Q A C K gt 4 7 REM m ms mi m m ss START PRINT 2 CHRS amp H5 SEND ENQ TIME 00 00 00 TIMEOUT 0 IF LOC 2 lt gt 0 THEN 6490 A TIME IF 2 gt 4 THEN 6510 ELSE 6470 A INPUT 1 2 H H A IF ASC A lt gt 10 THEN 6470 Check LF RETURN IF DSP FLAG 1 THEN 6540 TIMEOUT 1 PRINT COLOR 2 PRINT 5 20 Not receive Error GOSUB PBEEP 00 00 00 VAL RIGHT A 2 gt lt 2 THEN 6550 CLOSE 2 Error close COM AS 2 RS 232C open RETURN REM REM
73. T CTRL D 04H N DATA 1 lt CR LE gt 1 DATA 2 lt CR gt lt LF gt 2 DATAw N DATA lt EO0T gt PC DATA lt E0T gt lt CR gt NA 29 lt ACK gt NEXT lt CR gt lt LF gt DATA 2 DATA 3 NA 29 lt ACK gt READY lt CR gt LF gt 10 ms 4 S KER AE 8 s DATA XCR gt 10 ms 4 s lt DATA lt CR lt LF gt ACK gt NEXT CR gt LP lt 2 1 OPE
74. UB 7890 TIME 00 00 00 7900 IF TIMEOUT 1 THEN L L 1 IF L gt 3 THEN TIME OFE RETURN ELSE 7810 7910 IF MID H 6 1 CK THEN OK 0 ELSE OK 1 7920 RETURN 7930 REM 7940 REM 7950 REM 7960 REM 7970 DISPLAY 7980 CLS 3 COLOR 7 LOCATE 42 5 7990 PRINT COLOR 6 8000 PRINT RFILE 8010 LINE 50 80 50 368 7 8020 255 80 255 3682 7 8030 LINE 50 368 lt 255 368 7 8040 FOR 8 16 8 16 48 4 STEP 16 3 8050 LINELL 50 12 5255 12 7 1 8060 8070 MODE GOSUB MODE1 DISP MODE2 DISP 8080 RETURN 8090 REM 8100 REM 8110 REM NN 8120 REM lt lt cc 8130 xMODE1 DISP 8140 COLOR 4 LOCATE 14 5 PRINT 1 1 OCTAVE 8150 GOSUB LINE DISP 8160 GOSUB REF DISP 8170
75. s s lt s lt s w m m s s lt s s s s s s m s s s s s s s n s s Q Q sm m um J s Q s wama me w s w lt lt s Q ense u w mio w O s w es an m s mm c GAD a GOE lt m a Qs m SOA s us x sn veo qms umm mme Om m uoe aus cme wne se w s q oc wim mim GA
Download Pdf Manuals
Related Search