10 ' ==========================
20 ' == IBM SPANISH BLUE BOX ==
30 ' ==     BY FLUKE         ==
40 ' ==========================
50 DEFINT A-Z
60 DIM FA(21),FB(21),FR(20)
70 FOR I=0 TO 11:READ FR(I):NEXT I
80 FOR I=0 TO 21:READ FA(I),FB(I):NEXT I
90 '
100 '
110 CLS:BEEP
114 PRINT
115 PRINT"--------------------------------------
116 PRINT"   Captain Fluke IBM Blue-Box
117 PRINT"--------------------------------------
120 PRINT"Z -> 1700Hz Conmfirmation  Spain
130 PRINT"X -> 2280Hz Magic Tone     UK
140 PRINT"C -> 2400Hz Magic Tone     Swedeen
150 PRINT"V -> 2500Hz Magic Tone     Spain
160 PRINT"B -> 2600HZ Magic Tone     USA
170 PRINT"N -> 3000Hz Magic Tone     Switzerland
180 PRINT"M -> 3825Hz Magic Tone     Spain
190 PRINT"--------------------------------------
200 PRINT"0..9 Numbers from 0 to 9.
210 PRINT"Q -> 11 Key
220 PRINT"W -> 12 Key
230 PRINT"E -> KP (start)
240 PRINT"R -> KP2
250 PRINT"T -> ST (stop)
260 PRINT"--------------------------------------
270 PRINT:PRINT "Push the desired Key :";
280 A$=INPUT$(1):IF A$=CHR$(13) THEN 110
290 N=INSTR("0123456789QWERTZXCVBNM",A$)-1
300 IF N>=0 THEN PRINT A$; ELSE 280
310 GOSUB 380
320 FOR I=0 TO 500:NEXT
350 IF B$<>"" THEN A$=B$:GOTO 280
360 GOTO 280
370 END
380 ' =========== MF TONES ================
480 SOUND FR(FA(N)),.05:SOUND FR(FB(N)),.05
481 SOUND FR(FA(N)),.05:SOUND FR(FB(N)),.05
482 SOUND FR(FA(N)),.05:SOUND FR(FB(N)),.05
483 SOUND FR(FA(N)),.05:SOUND FR(FB(N)),.05
484 SOUND FR(FA(N)),.05:SOUND FR(FB(N)),.05
485 SOUND FR(FA(N)),.05:SOUND FR(FB(N)),.05
486 SOUND FR(FA(N)),.05:SOUND FR(FB(N)),.05
487 SOUND FR(FA(N)),.05:SOUND FR(FB(N)),.05
488 SOUND FR(FA(N)),.05:SOUND FR(FB(N)),.05
489 SOUND FR(FA(N)),.05:SOUND FR(FB(N)),.05
510 RETURN
520 ' =======================
530 ' ==== SOKOTEL FREQS ====
540 ' =======================
550 DATA 700,900,1100,2280,1300,3000,3825,1500,2500,2600,1700,2400
560 ' =======================
570 ' ==== SOKOTEL CODES ====
580 ' =======================
590 DATA 4,7
600 DATA 0,1
610 DATA 0,2
620 DATA 1,2
630 DATA 0,4
640 DATA 1,4
650 DATA 2,4
660 DATA 0,7
670 DATA 1,7
680 DATA 2,7
690 DATA 10,0
700 DATA 10,1
710 DATA 10,2
720 DATA 10,4
730 DATA 10,8
740 DATA 10,10
750 DATA 3,3
760 DATA 11,11
770 DATA 8,8
780 DATA 9,9
790 DATA 5,5
800 DATA 6,6