As the code mentions, the terminal it supports was the 2626, specifically
the 2626A I think. We only ever had one of these way back when. They were
a rather pricey item at the time. It also had the ability to have the
screen divided up into 4 'windows'.
There was a 2626W version which was used with the early word processing
program available on the HP whose name escapes me, we didn't have that.
I had written a simple keystroke capture program which mapped nearly all the
keys on the keyboard to one of the 16 values for the tone parm in the escape
sequence. It kept my son busy while I did weekend maintenance on the
system.
We're stretching the memory cells now...
Bob Comeau
Sr. Systems Programmer Analyst
Crossley Carpet Mills Ltd.
(902)895-5491 ex 139
-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]]On
Behalf Of Miller, Keven
Sent: December 20, 2005 9:36 AM
To: [log in to unmask]
Subject: Re: looking for a couple of files
Simpkins, Terry wrote:
> Years ago, when I was a programmer (and dinosaurs ruled the earth), at
> HP in Boise, we created some songs that would play on
> the old HP terminals (HP2645, HP2624, etc).
>
> These files were a series of bells driven by escape sequences. As I
> recall you could get a little over an octive range on those
> terminals.
>
Ever since I found this on CSL ("MUSIC") I have wanted to test it.
But I have never come across any documentation or terminal that
supported this escape sequence <esc>&t#d#v#F .
I have a user manual for the HP2626A/W, but its not mentioned in there.
Anyway, here is MUSIC.DOC, the MUSIC.SOURCE, in basic.
Terry, if you happen to find and "song" files, I would like to view
a few of them.
Keven
MUSIC.DOC
*************************************
! !
! MUSIC !
! !
*************************************
VERSION 1.0 FEB. 9, 1983
CONTACT: GERALD L. OTTERBEIN
THE YOUNG INDUSTRIES CO., INC.
PAINTER ST.
MUNCY, PA. 17756
717/546-3165
SYSTEM 3000 SERIES 30, MPE IV C.L0.C3
CLASSIFICATION 910 General Demonstrations
LANGUAGE BASIC
This program will play music automatically, or allow you to
compose your own tunes utilizing the tone generator in the 2626
terminal. The program is self-documenting.
MUSIC.BAS
MUSIC
10 DIM A$[16],B$[250],T$[5],D$[5],V$[5]
18 PRINT "MUSIC <02.01> GLO Young Inds., Muncy, Pa. 17756"
19 PRINT " "
20 INPUT "1 = MANUAL INPUT, 2 = AUTOMATIC",K
30 IF K=2 THEN DO
40 INPUT "1=Aura Lee, 2=Bautiful Dreamer, 3=Do Re Me",G
50 READ B$
60 IF G=1 THEN 100
70 READ B$
80 IF G=2 THEN 100
90 READ B$
100 GOTO 400
110 DOEND
120 LET D=14
130 LET V=0
140 PRINT " 0"
150 PRINT "---------------------------------------------------0-----"
160 PRINT " 0"
170 PRINT "---------------------------------------------0-----------"
180 PRINT " 0"
190 PRINT "---------------------------------------0-----------------"
200 PRINT " 0"
210 PRINT "-----------------------------0--#0-----------------------"
220 PRINT " 0"
230 PRINT "-----------------------0---------------------------------"
240 PRINT " 0"
250 PRINT " --0--"
260 PRINT " 0"
270 PRINT " --0--"
280 PRINT " a b c d e f g #q A B C D E F G "
290 PRINT &
"Code: 0=Whole note, 1= 1/2 note, 2= 1/4 note, 3= 1/8 note, 4= 1/1&
6 note"
300 PRINT "Volume code is: < = soft, > = loud"
310 PRINT "Eg: A2<f1>"
320 PRINT " |||"
330 PRINT " ||L__volume"
340 PRINT " ||"
350 PRINT " |L__ duration"
360 PRINT " |"
370 PRINT " L__frequency"
380 PRINT &
"Enter notes optionally followed by code; terminate with -X-"
390 INPUT B$
400 PRINT CTL(208);'27;";"
410 A$="abcdefgqABCDEFGH"
420 LET D=12
430 FOR I=1 TO 250
440 X=POS(A$,B$[I;1])-1
450 IF B$[I;1]="X" THEN 600
460 IF X=-1 THEN 590
470 CONVERT X TO T$
480 J=I+1
490 IF B$[J;1]="0" THEN D=14
500 IF B$[J;1]="1" THEN D=10
510 IF B$[J;1]="2" THEN D=8
520 IF B$[J;1]="3" THEN D=6
530 IF B$[J;1]="4" THEN D=4
540 CONVERT D TO D$
550 J=I+2
560 IF B$[J;1]="<" THEN V=0
570 IF B$[J;1]=">" THEN V=1
580 PRINT CTL(208);'27;"&t";D$;"d";V;"v";T$;"F";
590 NEXT I
600 PRINT CTL(208);'27;":"
610 INPUT "DO YOU WANT TO RUN AGAIN ?",R$
620 IF R$="N" THEN 650
630 RESTORE
640 GOTO 20
650 STOP
660 REM ~~~~~~~~~~~~~~~~~~~ AURA LEE ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
670 DATA "g0<CBCDADHCBABCCX"
680 REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
690 REM ********************** BEAUTIFUL DREAMER ******************
700 DATA "F1>EFC0<AHI>g1fgDH3C0E1DDCBBAgAX"
710 REM **************************************************************
720 REM +++++++++++++++++++ DO RE ME SONG ++++++++++++++++++++++++++
730 DATA &
"e0<f1g0e2g1e2g0H0f0g3A2A2g2f2A0H0g0A1B0g2B1g2B0H0A0B3C2C2B2A2C0X"
740 REM ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
>
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
