HP-28 programs

These are some HP-28 programs written by me. Unfortunately most older programs have been lost in the Bits' Heaven.

Morse

Plays given string in Morse code with the beeper. This program makes ½ of my project to send data to my PC using the beeper. Now I just need Morse code receiver. That's not as easy as this. 
<<
  { "11111" "01111" "00111" "00011" "00001" "00000" "10000" "11000" "11100" "11110"
    "" "" "" "" "" "" "01" "1000" "1010" "100" "0" "0010" "110" "0000" "00" "0111"
    "101" "0100" "11" "10" "111" "0110" "1101" "010" "000" "1" "001" "0001" "011"
    "1001" "1011" "1100" } -> MSG CODES
  <<
    1 MSG SIZE FOR I
      MSG I I 1 + SUB NUM 48 -
      IF DIP 0 > THEN
        'CODES' SWAP GET DUP SIZE 1 SWAP FOR J
          DUP J J SUB STR-> 2 * 1 + .05 * 1000 SWAP BEEP
        NEXT
      END
      DROP
    NEXT
  >>
>>

Scan

Turns HP-28 into a Tricorder! 
 << RAND 5000 * 100 + -> A
   << 0 RAND 20 * IP 2 + FOR I
        A RAND 100 * + RAND .03 * BEEP
      NEXT
   >>
 >>


Pääsivu Takaisin Last modified: Sun Sep 24 15:59:06 EEST 2000