home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 3 / hamradioversion3.0examsandprograms1992.iso / control / frg960 / frg9600.txt < prev    next >
Text File  |  1989-07-29  |  12KB  |  673 lines
  1. DECLARE SUB infreqh ()
  2. DECLARE SUB infreql ()
  3. DECLARE SUB infreq ()
  4. DECLARE SUB normal ()
  5. DECLARE SUB low ()
  6. DECLARE SUB high ()
  7. 'FRG-9600 CONTROL PROGRAM
  8.  
  9. SCREEN 0
  10. COLOR 0, 15
  11.  
  12. 'Set Com: Port
  13. CLS
  14. LOCATE 10, 25
  15. PRINT " WHICH COM: PORT ? ( 1 or 2 )";
  16. DO
  17. FLAG = 1
  18. Z$ = INPUT$(1)
  19. SELECT CASE Z$
  20.     CASE "1"
  21.       c$ = "COM1:4800,N,8,2"
  22.     CASE "2"
  23.       c$ = "COM2:4800,N,8,2"
  24.     CASE ELSE
  25.       FLAG = 0
  26.   END SELECT
  27. LOOP WHILE FLAG = 0
  28. CLS
  29. OPEN c$ FOR RANDOM AS #1
  30.  
  31. LOCATE 2, 25
  32. PRINT "FRG-9600 CONTROL PROGRAM";
  33. LOCATE 8, 25
  34. PRINT "{1}  60 Mhz to 900 Mhz";
  35. LOCATE 12, 25
  36. PRINT "{2}  20 Hz to 60 Mhz";
  37. LOCATE 16, 25
  38. PRINT "{3}  900 Mhz to 1300 Mhz";
  39. LOCATE 22, 20
  40. PRINT "Select a Frequency Range : ";
  41. 2 i$ = INPUT$(1)
  42. SELECT CASE i$
  43.    CASE "1"
  44.      CALL normal
  45.    CASE "2"
  46.      CALL low
  47.    CASE "3"
  48.      CALL high
  49.    CASE ELSE
  50.      GOTO 2
  51.    END SELECT
  52.  
  53. SUB high
  54. DEFSNG F
  55.  
  56. SCREEN 0
  57. COLOR 1, 15
  58. CLS
  59. LOCATE 10, 25
  60. PRINT "TURN ON FC-1300 CONVERTER"
  61. FOR count = 1 TO 3000
  62. NEXT count
  63.  
  64. SCREEN 0
  65. COLOR 1, 15
  66. CLS
  67.  
  68. LOCATE 2, 25
  69. PRINT "FRG-9600 CONTROL PROGRAM";
  70. LOCATE 3, 25
  71. PRINT "( 800 Mhz. to 1300 Mhz. )";
  72. LOCATE 9, 10
  73. PRINT "{U} USB";
  74. LOCATE 11, 10
  75. PRINT "{L} LSB";
  76. LOCATE 13, 10
  77. PRINT "{A} AM - Wide";
  78. LOCATE 15, 10
  79. PRINT "{F} FM - Narrow";
  80. LOCATE 17, 10
  81. PRINT "{N} AM - Narrow";
  82. LOCATE 19, 10
  83. PRINT "{W} FM - Wide";
  84. LOCATE 22, 10
  85. PRINT "{Q} Quit";
  86. LOCATE 7, 10
  87. PRINT "{E} Enter Frequency: ";
  88.  
  89. COLOR 2, 0
  90. LOCATE 13, 51
  91. PRINT "        "
  92. COLOR 4, 15
  93. LOCATE 14, 53
  94. PRINT "Mode"
  95.  
  96. DO
  97.  
  98. DO
  99. COLOR 0, 15
  100. i$ = INKEY$
  101. LOCATE 5, 27
  102. PRINT DATE$; "  "; TIME$;
  103. LOOP WHILE i$ = ""
  104.  
  105. LOCATE 13, 52
  106. COLOR 2, 0
  107.  
  108. SELECT CASE i$
  109.    CASE "U", "u"
  110.      PRINT #1, CHR$(17);
  111.      FOR x = 1 TO 4
  112.      PRINT #1, CHR$(1);
  113.      NEXT x
  114.      PRINT " USB   "
  115.  
  116.    CASE "L", "l"
  117.      PRINT #1, CHR$(16);
  118.      FOR x = 1 TO 4
  119.      PRINT #1, CHR$(1);
  120.      NEXT x
  121.      PRINT " LSB   "
  122.  
  123.    CASE "A", "a"
  124.      PRINT #1, CHR$(21);
  125.      FOR x = 1 TO 4
  126.      PRINT #1, CHR$(1);
  127.      NEXT x
  128.      PRINT "AM - W"
  129.  
  130.    CASE "F", "f"
  131.      PRINT #1, CHR$(22);
  132.      FOR x = 1 TO 4
  133.      PRINT #1, CHR$(1);
  134.      NEXT x
  135.      PRINT "FM - N"
  136.  
  137.    CASE "N", "n"
  138.      PRINT #1, CHR$(20);
  139.      FOR x = 1 TO 4
  140.      PRINT #1, CHR$(1);
  141.      NEXT x
  142.      PRINT "AM - N"
  143.  
  144.    CASE "W", "w"
  145.      PRINT #1, CHR$(23);
  146.      FOR x = 1 TO 4
  147.      PRINT #1, CHR$(1);
  148.      NEXT x
  149.      PRINT "FM - W"
  150.  
  151.    CASE "Q", "q"
  152.      CLOSE #1
  153.      CLS
  154.      LOCATE 10, 25
  155.      PRINT " Created by   R.A. Harris WB4HRH";
  156.      FOR count = 1 TO 3000
  157.      NEXT count
  158.     
  159.      END
  160.    CASE "e", "E"
  161.      CALL infreqh
  162.  END SELECT
  163.  
  164. LOOP
  165. CLOSE #1
  166.  
  167.  
  168. END SUB
  169.  
  170. SUB infreq
  171. CR$ = CHR$(&HD)
  172. BS$ = CHR$(8)
  173.  
  174. DIM i$(8)
  175.  
  176. COLOR 2, 0
  177.  
  178. LOCATE 7, 32
  179. PRINT "          ";
  180.  
  181. 'ENTER AND PRINT
  182. N = 1
  183. DO  'MAIN ROUTINE
  184. IF N = 0 THEN N = 1
  185. DO  'INPUT ROUTINE
  186. FLAG = 1
  187. i$(N) = INPUT$(1)
  188.  
  189. IF i$(N) < "0" THEN FLAG = 0
  190. IF i$(N) > "9" THEN FLAG = 0
  191. IF i$(N) = BS$ THEN
  192.    FLAG = 1
  193.    N = N - 1
  194.    i$(N) = " "
  195.    END IF
  196. IF i$(N) = CR$ THEN FLAG = 1
  197.  
  198. LOOP WHILE FLAG = 0
  199. IF i$(N) = CR$ THEN EXIT DO
  200.  
  201. LOCATE 7, 32
  202. PRINT "        "
  203.  
  204. LOCATE 7, 32
  205.  
  206. IF N = 1 THEN PRINT i$(1) + " " + " " + ".";
  207. IF N = 2 THEN PRINT i$(1) + i$(2) + " " + ".";
  208. IF N = 3 THEN PRINT i$(1) + i$(2) + i$(3) + ".";
  209. IF N = 4 THEN PRINT i$(1) + i$(2) + i$(3) + "." + i$(4);
  210. IF N = 5 THEN PRINT i$(1) + i$(2) + i$(3) + "." + i$(4) + i$(5);
  211. IF N = 6 THEN PRINT i$(1) + i$(2) + i$(3) + "."; i$(4) + i$(5) + i$(6) + ".";
  212. IF N = 7 THEN PRINT i$(1) + i$(2) + i$(3) + "." + i$(4) + i$(5) + i$(6) + "." + i$(7);
  213.  
  214. IF i$(N) = " " THEN N = N ELSE N = N + 1
  215.  
  216. LOOP WHILE N < 7
  217.  
  218.  
  219. N = N - 1
  220.  
  221. FOR x = N + 1 TO 8
  222.   i$(x) = "0"
  223.   NEXT x
  224. N = 7
  225. COLOR 4, 15
  226. LOCATE 10, 50
  227. PRINT "Frequency"
  228. COLOR 2, 0
  229. LOCATE 9, 49
  230. PRINT "            ";
  231. LOCATE 9, 50
  232. IF N = 7 THEN PRINT i$(1) + i$(2) + i$(3) + "." + i$(4) + i$(5) + i$(6) + "." + i$(7);
  233. COLOR 2, 15
  234. LOCATE 7, 32
  235. PRINT "          ";
  236.  
  237. 'SEND INPUT TO RADIO
  238. PRINT #1, CHR$(10);
  239.  
  240. FOR x = 1 TO 7 STEP 2
  241. TWO$ = "&H" + i$(x) + i$(x + 1)
  242. d = VAL(TWO$)
  243.   PRINT #1, CHR$(d);
  244. NEXT x
  245.  
  246. COLOR 1, 15
  247.  
  248.  
  249. END SUB
  250.  
  251. SUB infreqh
  252.  
  253. CR$ = CHR$(&HD)
  254. BS$ = CHR$(8)
  255.  
  256. DIM i$(8)
  257.  
  258. 6 COLOR 2, 0
  259.  
  260. LOCATE 7, 32
  261. PRINT "          ";
  262.  
  263. 'ENTER AND PRINT
  264. N = 0
  265. DO  'MAIN ROUTINE
  266. IF N = -1 THEN N = 0
  267. DO  'INPUT ROUTINE
  268. FLAG = 1
  269. i$(N) = INPUT$(1)
  270.  
  271. IF i$(N) < "0" THEN FLAG = 0
  272. IF i$(0) > "1" THEN FLAG = 0
  273. IF i$(N) = BS$ THEN
  274.    FLAG = 1
  275.    N = N - 1
  276.    i$(N) = " "
  277.    END IF
  278. IF i$(N) = CR$ THEN FLAG = 1
  279.  
  280. LOOP WHILE FLAG = 0
  281. IF i$(N) = CR$ THEN EXIT DO
  282.  
  283. LOCATE 7, 32
  284. PRINT "        "
  285.  
  286. LOCATE 7, 32
  287. IF N = 0 THEN PRINT i$(0) + " " + " " + " " + ".";
  288. IF N = 1 THEN PRINT i$(0) + i$(1) + " " + " " + ".";
  289. IF N = 2 THEN PRINT i$(0) + i$(1) + i$(2) + " " + ".";
  290. IF N = 3 THEN PRINT i$(0) + i$(1) + i$(2) + i$(3) + ".";
  291. IF N = 4 THEN PRINT i$(0) + i$(1) + i$(2) + i$(3) + "." + i$(4);
  292. IF N = 5 THEN PRINT i$(0) + i$(1) + i$(2) + i$(3) + "." + i$(4) + i$(5);
  293. IF N = 6 THEN PRINT i$(0) + i$(1) + i$(2) + i$(3) + "."; i$(4) + i$(5) + i$(6) + ".";
  294. IF N = 7 THEN PRINT i$(0) + i$(1) + i$(2) + i$(3) + "." + i$(4) + i$(5) + i$(6) + "." + i$(7);
  295.  
  296. IF i$(N) = " " THEN N = N ELSE N = N + 1
  297.  
  298. LOOP WHILE N < 8
  299.  
  300.  
  301. N = N - 1
  302.  
  303. FOR x = N + 1 TO 8
  304.   i$(x) = "0"
  305.   NEXT x
  306. N = 7
  307. COLOR 4, 15
  308. LOCATE 10, 50
  309. PRINT "Frequency"
  310. COLOR 2, 0
  311. LOCATE 9, 49
  312. PRINT "            ";
  313. LOCATE 9, 50
  314. IF N = 7 THEN PRINT i$(0) + i$(1) + i$(2) + i$(3) + "." + i$(4) + i$(5) + i$(6) + "." + i$(7);
  315. COLOR 2, 15
  316. LOCATE 7, 32
  317. PRINT "          ";
  318.  
  319. IF i$(0) = "0" AND VAL(i$(1)) < 8 THEN GOTO 5
  320.  
  321. IF i$(0) = "1" AND i$(1) = "3" THEN i$(1) = "9"
  322. IF i$(0) = "1" AND i$(1) = "2" THEN i$(1) = "8"
  323. IF i$(0) = "1" AND i$(1) = "1" THEN i$(1) = "7"
  324. IF i$(0) = "1" AND i$(1) = "0" THEN i$(1) = "6"
  325. IF i$(0) = "0" AND i$(1) = "9" THEN i$(1) = "5"
  326. IF i$(0) = "0" AND i$(1) = "8" THEN i$(1) = "4"
  327.  
  328. 'SEND INPUT TO RADIO
  329. PRINT #1, CHR$(10);
  330.  
  331. FOR x = 1 TO 7 STEP 2
  332. TWO$ = "&H" + i$(x) + i$(x + 1)
  333. d = VAL(TWO$)
  334.   PRINT #1, CHR$(d);
  335. NEXT x
  336.  
  337. COLOR 1, 15
  338. GOTO 7
  339. 5  LOCATE 9, 49
  340.      PRINT "           ";
  341.      LOCATE 9, 50
  342.      COLOR 4, 0
  343.      PRINT " TOO LOW   ";
  344.      FOR count = 1 TO 2000
  345.      NEXT count
  346.      LOCATE 9, 50
  347.      COLOR 2, 15
  348.      PRINT "           ";
  349.      GOTO 6
  350.  
  351. 7  END SUB
  352.  
  353.      SUB infreql
  354. CR$ = CHR$(&HD)
  355. BS$ = CHR$(8)
  356.  
  357. DIM i$(8)
  358.  
  359. COLOR 2, 0
  360.  
  361. LOCATE 7, 32
  362. PRINT "          ";
  363.  
  364. 'ENTER AND PRINT
  365. N = 2
  366. DO  'MAIN ROUTINE
  367. IF N = 1 THEN N = 2
  368. DO  'INPUT ROUTINE
  369. FLAG = 1
  370. i$(N) = INPUT$(1)
  371.  
  372. IF i$(N) < "0" THEN FLAG = 0
  373. IF i$(2) > "6" THEN FLAG = 0
  374. IF i$(N) = BS$ THEN
  375.    FLAG = 1
  376.    N = N - 1
  377.    i$(N) = " "
  378.    END IF
  379. IF i$(N) = CR$ THEN FLAG = 1
  380.  
  381. LOOP WHILE FLAG = 0
  382. IF i$(N) = CR$ THEN EXIT DO
  383.  
  384. LOCATE 7, 32
  385. PRINT "        "
  386.  
  387. LOCATE 7, 32
  388.  
  389. IF N = 1 THEN PRINT i$(1) + " " + " " + ".";
  390. IF N = 2 THEN PRINT i$(1) + i$(2) + " " + ".";
  391. IF N = 3 THEN PRINT i$(1) + i$(2) + i$(3) + ".";
  392. IF N = 4 THEN PRINT i$(1) + i$(2) + i$(3) + "." + i$(4);
  393. IF N = 5 THEN PRINT i$(1) + i$(2) + i$(3) + "." + i$(4) + i$(5);
  394. IF N = 6 THEN PRINT i$(1) + i$(2) + i$(3) + "."; i$(4) + i$(5) + i$(6) + ".";
  395. IF N = 7 THEN PRINT i$(1) + i$(2) + i$(3) + "." + i$(4) + i$(5) + i$(6) + "." + i$(7);
  396.  
  397. IF i$(N) = " " THEN N = N ELSE N = N + 1
  398.  
  399. LOOP WHILE N < 8
  400.  
  401.  
  402. N = N - 1
  403.  
  404. FOR x = N + 1 TO 8
  405.   i$(x) = "0"
  406.   NEXT x
  407. N = 7
  408. COLOR 4, 15
  409. LOCATE 10, 50
  410. PRINT "Frequency"
  411. COLOR 2, 0
  412. LOCATE 9, 49
  413. PRINT "            ";
  414. LOCATE 9, 50
  415. IF N = 7 THEN PRINT i$(1) + i$(2) + i$(3) + "." + i$(4) + i$(5) + i$(6) + "." + i$(7);
  416. COLOR 2, 15
  417. LOCATE 7, 32
  418. PRINT "          ";
  419.  
  420. t = VAL(i$(2))
  421. t = t + 6
  422. i$(2) = STR$(t)
  423. i$(2) = RIGHT$(i$(2), 1)
  424. i$(1) = "0"
  425.  
  426. IF t > 9 THEN
  427.    i$(1) = "1"
  428.    i$(2) = STR$(t)
  429.    i$(2) = RIGHT$(i$(2), 1)
  430.  END IF
  431.  
  432.  
  433. 'SEND INPUT TO RADIO
  434. PRINT #1, CHR$(10);
  435.  
  436. FOR x = 1 TO 7 STEP 2
  437. TWO$ = "&H" + i$(x) + i$(x + 1)
  438. d = VAL(TWO$)
  439.   PRINT #1, CHR$(d);
  440. NEXT x
  441.  
  442. COLOR 1, 15
  443.  
  444.  
  445.  
  446. END SUB
  447.  
  448. SUB low
  449. DEFSNG F
  450.  
  451. SCREEN 0
  452. COLOR 1, 15
  453. CLS
  454. LOCATE 10, 25
  455. PRINT "TURN ON FC-965DX CONVERTER"
  456. FOR count = 1 TO 3000
  457. NEXT count
  458.  
  459. SCREEN 0
  460. COLOR 1, 15
  461. CLS
  462.  
  463. LOCATE 2, 25
  464. PRINT "FRG-9600 CONTROL PROGRAM";
  465. LOCATE 3, 26
  466. PRINT "( 20 Khz. to 60 Mhz. )";
  467. LOCATE 9, 10
  468. PRINT "{U} USB";
  469. LOCATE 11, 10
  470. PRINT "{L} LSB";
  471. LOCATE 13, 10
  472. PRINT "{A} AM - Wide";
  473. LOCATE 15, 10
  474. PRINT "{F} FM - Narrow";
  475. LOCATE 17, 10
  476. PRINT "{N} AM - Narrow";
  477. LOCATE 19, 10
  478. PRINT "{W} FM - Wide";
  479. LOCATE 22, 10
  480. PRINT "{Q} Quit";
  481. LOCATE 7, 10
  482. PRINT "{E} Enter Frequency: ";
  483.  
  484. COLOR 2, 0
  485. LOCATE 13, 51
  486. PRINT "        "
  487. COLOR 4, 15
  488. LOCATE 14, 53
  489. PRINT "Mode"
  490.  
  491. DO
  492.  
  493. DO
  494. COLOR 0, 15
  495. i$ = INKEY$
  496. LOCATE 5, 27
  497. PRINT DATE$; "  "; TIME$;
  498. LOOP WHILE i$ = ""
  499.  
  500. LOCATE 13, 52
  501. COLOR 2, 0
  502.  
  503. SELECT CASE i$
  504.    CASE "U", "u"
  505.      PRINT #1, CHR$(17);
  506.      FOR x = 1 TO 4
  507.      PRINT #1, CHR$(1);
  508.      NEXT x
  509.      PRINT " USB   "
  510.  
  511.    CASE "L", "l"
  512.      PRINT #1, CHR$(16);
  513.      FOR x = 1 TO 4
  514.      PRINT #1, CHR$(1);
  515.      NEXT x
  516.      PRINT " LSB   "
  517.  
  518.    CASE "A", "a"
  519.      PRINT #1, CHR$(21);
  520.      FOR x = 1 TO 4
  521.      PRINT #1, CHR$(1);
  522.      NEXT x
  523.      PRINT "AM - W"
  524.  
  525.    CASE "F", "f"
  526.      PRINT #1, CHR$(22);
  527.      FOR x = 1 TO 4
  528.      PRINT #1, CHR$(1);
  529.      NEXT x
  530.      PRINT "FM - N"
  531.  
  532.    CASE "N", "n"
  533.      PRINT #1, CHR$(20);
  534.      FOR x = 1 TO 4
  535.      PRINT #1, CHR$(1);
  536.      NEXT x
  537.      PRINT "AM - N"
  538.  
  539.    CASE "W", "w"
  540.      PRINT #1, CHR$(23);
  541.      FOR x = 1 TO 4
  542.      PRINT #1, CHR$(1);
  543.      NEXT x
  544.      PRINT "FM - W"
  545.  
  546.    CASE "Q", "q"
  547.      CLOSE #1
  548.      CLS
  549.      LOCATE 10, 25
  550.      PRINT " Created by   R.A. Harris WB4HRH";
  551.      FOR count = 1 TO 3000
  552.      NEXT count
  553.     
  554.      END
  555.    CASE "e", "E"
  556.      CALL infreql
  557.  END SELECT
  558.  
  559. LOOP
  560. CLOSE #1
  561.  
  562.  
  563.  
  564. END SUB
  565.  
  566. SUB normal
  567. DEFSNG F
  568.  
  569. SCREEN 0
  570. COLOR 1, 15
  571. CLS
  572.  
  573. LOCATE 2, 25
  574. PRINT "FRG-9600 CONTROL PROGRAM";
  575. LOCATE 9, 10
  576. PRINT "{U} USB";
  577. LOCATE 11, 10
  578. PRINT "{L} LSB";
  579. LOCATE 13, 10
  580. PRINT "{A} AM - Wide";
  581. LOCATE 15, 10
  582. PRINT "{F} FM - Narrow";
  583. LOCATE 17, 10
  584. PRINT "{N} AM - Narrow";
  585. LOCATE 19, 10
  586. PRINT "{W} FM - Wide";
  587. LOCATE 22, 10
  588. PRINT "{Q} Quit";
  589. LOCATE 7, 10
  590. PRINT "{E} Enter Frequency: ";
  591.  
  592. COLOR 2, 0
  593. LOCATE 13, 51
  594. PRINT "        "
  595. COLOR 4, 15
  596. LOCATE 14, 53
  597. PRINT "Mode"
  598.  
  599. DO
  600.  
  601. DO
  602. COLOR 0, 15
  603. i$ = INKEY$
  604. LOCATE 4, 27
  605. PRINT DATE$; "  "; TIME$;
  606. LOOP WHILE i$ = ""
  607.  
  608. LOCATE 13, 52
  609. COLOR 2, 0
  610.  
  611. SELECT CASE i$
  612.    CASE "U", "u"
  613.      PRINT #1, CHR$(17);
  614.      FOR x = 1 TO 4
  615.      PRINT #1, CHR$(1);
  616.      NEXT x
  617.      PRINT " USB   "
  618.  
  619.    CASE "L", "l"
  620.      PRINT #1, CHR$(16);
  621.      FOR x = 1 TO 4
  622.      PRINT #1, CHR$(1);
  623.      NEXT x
  624.      PRINT " LSB   "
  625.  
  626.    CASE "A", "a"
  627.      PRINT #1, CHR$(21);
  628.      FOR x = 1 TO 4
  629.      PRINT #1, CHR$(1);
  630.      NEXT x
  631.      PRINT "AM - W"
  632.  
  633.    CASE "F", "f"
  634.      PRINT #1, CHR$(22);
  635.      FOR x = 1 TO 4
  636.      PRINT #1, CHR$(1);
  637.      NEXT x
  638.      PRINT "FM - N"
  639.  
  640.    CASE "N", "n"
  641.      PRINT #1, CHR$(20);
  642.      FOR x = 1 TO 4
  643.      PRINT #1, CHR$(1);
  644.      NEXT x
  645.      PRINT "AM - N"
  646.  
  647.    CASE "W", "w"
  648.      PRINT #1, CHR$(23);
  649.      FOR x = 1 TO 4
  650.      PRINT #1, CHR$(1);
  651.      NEXT x
  652.      PRINT "FM - W"
  653.  
  654.    CASE "Q", "q"
  655.      CLOSE #1
  656.      CLS
  657.      LOCATE 10, 25
  658.      PRINT " Created by   R.A. Harris WB4HRH";
  659.      FOR count = 1 TO 3000
  660.      NEXT count
  661.  
  662.      END
  663.    CASE "e", "E"
  664.      CALL infreq
  665.  END SELECT
  666.  
  667. LOOP
  668. CLOSE #1
  669.  
  670.  
  671. END SUB
  672.  
  673.