home *** CD-ROM | disk | FTP | other *** search
/ TAP YIPL / TAP_and_YIPL_Collection_CD.iso / PHREAK / BOXES / PAGROJA0.BAS < prev    next >
BASIC Source File  |  1995-12-24  |  2KB  |  83 lines
  1. 10 ' ==========================
  2. 20 ' == IBM SPANISH BLUE BOX ==
  3. 30 ' ==     BY FLUKE         ==
  4. 40 ' ==========================
  5. 50 DEFINT A-Z
  6. 60 DIM FA(21),FB(21),FR(20)
  7. 70 FOR I=0 TO 11:READ FR(I):NEXT I
  8. 80 FOR I=0 TO 21:READ FA(I),FB(I):NEXT I
  9. 90 '
  10. 100 '
  11. 110 CLS:BEEP
  12. 114 PRINT
  13. 115 PRINT"--------------------------------------
  14. 116 PRINT"   Captain Fluke IBM Blue-Box
  15. 117 PRINT"--------------------------------------
  16. 120 PRINT"Z -> 1700Hz Conmfirmation  Spain
  17. 130 PRINT"X -> 2280Hz Magic Tone     UK
  18. 140 PRINT"C -> 2400Hz Magic Tone     Swedeen
  19. 150 PRINT"V -> 2500Hz Magic Tone     Spain
  20. 160 PRINT"B -> 2600HZ Magic Tone     USA
  21. 170 PRINT"N -> 3000Hz Magic Tone     Switzerland
  22. 180 PRINT"M -> 3825Hz Magic Tone     Spain
  23. 190 PRINT"--------------------------------------
  24. 200 PRINT"0..9 Numbers from 0 to 9.
  25. 210 PRINT"Q -> 11 Key
  26. 220 PRINT"W -> 12 Key
  27. 230 PRINT"E -> KP (start)
  28. 240 PRINT"R -> KP2
  29. 250 PRINT"T -> ST (stop)
  30. 260 PRINT"--------------------------------------
  31. 270 PRINT:PRINT "Push the desired Key :";
  32. 280 A$=INPUT$(1):IF A$=CHR$(13) THEN 110
  33. 290 N=INSTR("0123456789QWERTZXCVBNM",A$)-1
  34. 300 IF N>=0 THEN PRINT A$; ELSE 280
  35. 310 GOSUB 380
  36. 320 FOR I=0 TO 500:NEXT
  37. 350 IF B$<>"" THEN A$=B$:GOTO 280
  38. 360 GOTO 280
  39. 370 END
  40. 380 ' =========== MF TONES ================
  41. 480 SOUND FR(FA(N)),.05:SOUND FR(FB(N)),.05
  42. 481 SOUND FR(FA(N)),.05:SOUND FR(FB(N)),.05
  43. 482 SOUND FR(FA(N)),.05:SOUND FR(FB(N)),.05
  44. 483 SOUND FR(FA(N)),.05:SOUND FR(FB(N)),.05
  45. 484 SOUND FR(FA(N)),.05:SOUND FR(FB(N)),.05
  46. 485 SOUND FR(FA(N)),.05:SOUND FR(FB(N)),.05
  47. 486 SOUND FR(FA(N)),.05:SOUND FR(FB(N)),.05
  48. 487 SOUND FR(FA(N)),.05:SOUND FR(FB(N)),.05
  49. 488 SOUND FR(FA(N)),.05:SOUND FR(FB(N)),.05
  50. 489 SOUND FR(FA(N)),.05:SOUND FR(FB(N)),.05
  51. 510 RETURN
  52. 520 ' =======================
  53. 530 ' ==== SOKOTEL FREQS ====
  54. 540 ' =======================
  55. 550 DATA 700,900,1100,2280,1300,3000,3825,1500,2500,2600,1700,2400
  56. 560 ' =======================
  57. 570 ' ==== SOKOTEL CODES ====
  58. 580 ' =======================
  59. 590 DATA 4,7
  60. 600 DATA 0,1
  61. 610 DATA 0,2
  62. 620 DATA 1,2
  63. 630 DATA 0,4
  64. 640 DATA 1,4
  65. 650 DATA 2,4
  66. 660 DATA 0,7
  67. 670 DATA 1,7
  68. 680 DATA 2,7
  69. 690 DATA 10,0
  70. 700 DATA 10,1
  71. 710 DATA 10,2
  72. 720 DATA 10,4
  73. 730 DATA 10,8
  74. 740 DATA 10,10
  75. 750 DATA 3,3
  76. 760 DATA 11,11
  77. 770 DATA 8,8
  78. 780 DATA 9,9
  79. 790 DATA 5,5
  80. 800 DATA 6,6
  81.  
  82.  
  83.