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