Kraftwerk's Pocket Claculator on hp

Groves Benjamin Perry

unread,

Apr 23, 1994, 3:58:55 PM4/23/94

to

This was given to me to post. It is the routine to get your hp
to sound similar to the jingle in Kraftwerk's song, "Pocket Calculator".
Enjoy all, and thanks Ted...

-BPG
pe...@unt.edu

------------------------------------------------------------------------

From di9...@yngve.pt.hk-r.se Sat Apr 23 12:14:12 1994
Date: Fri, 22 Apr 94 21:28:19 +0200
From: Teddy Hegeborn <di9...@yngve.pt.hk-r.se>
To: Groves Benjamin Perry <pe...@sol.acs.unt.edu>
Subject: Re: Kraftwerk's "Pocket Calculator"

(Please post this on comp.sys.hp48, my newsreader doesn't like me.)

I've written one.
(It also displays a nice screen.)
I sampled the tones from my record and counted the pulses by hand
in a sample-editor to get the correct frequency and duration.
It's the *old* version of Pocket Calculator, btw, I don't have The Mix.
I got my version from Computer Welt (the record).

Let's see if I can get the program in here..
(This is typed in by hand, so don't trust it to transfer
right into your Hp48)

# 238076d SYSEVAL displays the current menu explicitly.
# 24386d SYSEVAL runs garbage collect without

<< RCLMENU { "POCK"
"ET " "" " CA"
"LCUL" "ATOR" }
TMENU # 238076d
SYSEVAL
" Unt wenn Ich diese
Tasse druckt spielt Er
ein kleines Musikstuck
----------------------
By pressing down a
special key it plays
a litle melody"
1 DISP # 24386d
SYSEVAL
DO 1502.34 .07266
BEEP .0825833 WAIT
1033.85 .0745833
BEEP .0145833 WAIT
621.18 .070833 BEEP
.00925 WAIT 1496.4
.0694166 BEEP
.0064166 WAIT
1591.51 .079916
BEEP 1034.01
.0715833 BEEP
.00533 WAIT 418.6
.0765 BEEP 1.1515
WAIT 1495.21
.071033 BEPP 210.53
.08475 BEEP 632.35
.0740833 BEEP 358.8
.0800833 BEEP
1028.57 .0629166
BEEP 2526.32 .09625
BEEP 1036.12
.0839166 BEEP
222.77 .07675 BEEP
2747.94 .0744166
BEEP 1.003 WAIT
UNTIL KEY
END DROP MENU
>>

Now, I don't know how many of these values that makes sense,
but it plays perfectly on my Hp48sx ROM rev A.

Scott C Pettigrew

unread,

Apr 23, 1994, 6:26:31 PM4/23/94

to

In article <perry.767131135@sol> pe...@sol.acs.unt.edu (Groves Benjamin Perry) writes:
> This was given to me to post. It is the routine to get your hp
>to sound similar to the jingle in Kraftwerk's song, "Pocket Calculator".
>Enjoy all, and thanks Ted...
>
>-BPG
>pe...@unt.edu
>

[>snip<]

Could someone email me this in binary form? Or the usual posted form?
I can't seem to get it to work in this form. :(

Scoot
--
==========================================================================
"...loving goes by haps; some cupid kills with arrows, some with traps!"
===irc nickname: Geraden======= --Hero "Much Ado About Nothing"=========
Amateur Radio Callsign: N8VSI ,/,,/ email: spet...@umich.edu

holb...@ins.infonet.net

unread,

Apr 23, 1994, 11:53:53 PM4/23/94

to

In article <2pc7an...@srvr1.engin.umich.edu>, spet...@engin.umich.edu (Scott C Pettigrew) writes:
>In article <perry.767131135@sol> pe...@sol.acs.unt.edu (Groves Benjamin Perry) writes:
>> This was given to me to post. It is the routine to get your hp
>>to sound similar to the jingle in Kraftwerk's song, "Pocket Calculator".
>>Enjoy all, and thanks Ted...
>>
>>-BPG
>>pe...@unt.edu
>>
>
>[>snip<]
>
>Could someone email me this in binary form? Or the usual posted form?
>I can't seem to get it to work in this form. :(

It worked fine for me. Just don't forget to turn USER mode off, and anywhere
in the post that you see a number with two decimal points (ie: ..00925), just
type in one decimal point. Works great!

Mr. Perry said it worked great on his SX rev. A, but how about on a GX? The
song works fine, but it sounds a bit fast. How for to fix it? Should I just
multiply all the numbers by 2, or some of the numbers, or what? In general,
how do you convert SX BEEPs to GX BEEPS? I think there were some posts
concerning this a while back, but I'm not sure. If you could help, thanks!

>Scoot
>--
>==========================================================================
> "...loving goes by haps; some cupid kills with arrows, some with traps!"
>===irc nickname: Geraden======= --Hero "Much Ado About Nothing"=========
>Amateur Radio Callsign: N8VSI ,/,,/ email: spet...@umich.edu