home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 2: Collection B / 17Bit_Collection_B.iso / files / 1701.dms / 1701.adf / Utilities / Touchpad < prev   
Encoding:
Text File  |  1988-01-19  |  1.4 KB  |  43 lines
  1. 'PROGRAM THAT FUNCTIONS AS A DTMF TOUCHTONE PAD. 8/86 KMW. PTL.
  2. '* AND # DURATIONS SET LONGER FOR OLDER AUTOPATCHES.
  3. CLEAR
  4. D=8 ' TONE DURATION VARIABLE
  5. PRINT"TOUCH TONE PAD. ENTER NUMBER. "
  6. SAY TRANSLATE$("TOUCH TONE PAD.ENTER NUMBER.")
  7.  
  8. GETADIGIT:
  9. B:
  10. R3$=INKEY$
  11. IF R3$="" THEN GOTO B
  12.  
  13. IF R3$="1" THEN SOUND 1209,D,255,0:SOUND 697,D,255,3
  14. IF R3$="2" THEN SOUND 1336,D,255,0:SOUND 697,D,255,3
  15. IF R3$="3" THEN SOUND 1477,D,255,0:SOUND 697,D,255,3
  16. IF R3$="A" THEN SOUND 1633,D,255,0:SOUND 697,D,255,3
  17. IF R3$="a" THEN SOUND 1633,D,255,0:SOUND 697,D,255,3
  18.  
  19.  
  20. IF R3$="4" THEN SOUND 1209,D,255,0:SOUND 770,D,255,3
  21. IF R3$="5" THEN SOUND 1336,D,255,0:SOUND 770,D,255,3
  22. IF R3$="6" THEN SOUND 1477,D,255,0:SOUND 770,D,255,3
  23. IF R3$="B" THEN SOUND 1633,D,255,0:SOUND 770,D,255,3
  24. IF R3$="b" THEN SOUND 1633,D,255,0:SOUND 770,D,255,3
  25.  
  26. IF R3$="7" THEN SOUND 1209,D,255,0:SOUND 852,D,255,3
  27. IF R3$="8" THEN SOUND 1336,D,255,0:SOUND 852,D,255,3
  28. IF R3$="9" THEN SOUND 1477,D,255,0:SOUND 852,D,255,3
  29. IF R3$="C" THEN SOUND 1633,D,255,0:SOUND 852,D,255,3
  30. IF R3$="c" THEN SOUND 1633,D,255,0:SOUND 852,D,255,3
  31.  
  32. IF R3$="*" THEN SOUND 1209,30,255,0:SOUND 941,30,255,3
  33. IF R3$="0" THEN SOUND 1336,D,255,0:SOUND 941,D,255,3
  34. IF R3$="#" THEN SOUND 1477,20,255,0:SOUND 941,20,255,3
  35. IF R3$="D" THEN SOUND 1633,D,255,0:SOUND 941,D,255,3
  36. IF R3$="d" THEN SOUND 1633,D,255,0:SOUND 941,D,255,3
  37. FOR X=1 TO 700:NEXT X 'WAIT A LITTLE WHILE
  38. GOTO GETADIGIT
  39.  
  40.  
  41. END
  42.  
  43.