Creating Downloadable Programs
Building USER Menus
10 CLEAR 723
20 OUTPUT 723;"IP;DISPOSE ALL;"
30 !
40OUTPUT 723;"FUNCDEF BANDA,@STARTWL 600NM;STOPWL 900NM;@;"
50OUTPUT 723;"FUNCDEF BANDB,@STARTWL 900NM;STOPWL 1200NM;@;"
60OUTPUT 723;"FUNCDEF BANDC,@STARTWL 1200NM;STOPWL 1700NM;@;"
70!
80OUTPUT 723;"VARDEF KEY,0;"
90OUTPUT 723;"VARDEF END_LOOP,0;"
100!
105 OUTPUT 723;"FUNCDEF SELECT_SPAN,@"; | Create SELECT |
|
| SP AN. | |||
|
| ||||||
110 OUTPUT 723;"REPEAT;"; |
|
|
|
|
| ||
160 OUTPUT 723;"READMENU KEY,1,$BAND A$,2,$BAND B$,3,$BAND |
|
|
|
|
| ||
C$,14,$EXIT$;"; |
|
|
|
|
| ||
170 ! |
|
|
|
|
|
| |
180 OUTPUT 723;"IF KEY,EQ,1;THEN;BANDA;"; |
|
|
|
|
| ||
190 OUTPUT | 723;"ELSIF KEY,EQ,2;THEN;BANDB;"; |
|
|
|
|
| |
200 | OUTPUT | 723;"ELSIF KEY,EQ,3;THEN;BANDC;"; |
|
|
|
|
|
210 | OUTPUT 723;"ELSIF KEY,EQ,14;THEN;MOV END_LOOP,1;"; |
|
|
|
|
| |
220 | OUTPUT | 723;"ENDIF;"; |
|
|
|
|
|
230 | OUTPUT 723;"UNTIL END_LO0P,EQ,1;"; |
|
|
|
|
| |
232 | OUTPUT 723;"MOV END_LOOP,0;" |
|
|
|
|
| |
235 | OUTPUT | 723;"@;" |
|
|
|
|
|
237 | OUTPUT | 723;"KEYDEF 7,SELECT_SPAN,$SELECT SPAN$;" | Assign SELECT |
| SPAN to softkey 7. | ||
| |||||||
240 | END |
|
|
|
|
|
|