The 2626W was the "funniest" behaving of the "ET" type terminals.
It could scroll left and right.
It could be configured up into four mini-screens. We would call them
"windows" today. Only one "window" could communicate at a time however.
Tracy Johnson
Measurement Specialties, Inc.
BT
NNNN
> -----Original Message-----
> From: HP-3000 Systems Discussion
> [mailto:[log in to unmask]] On Behalf Of Glenn Mitchell
> Sent: Tuesday, December 20, 2005 9:47 AM
> To: [log in to unmask]
> Subject: Re: [HP3000-L] looking for a couple of files
>
>
> From the HP Museum
> (http://www.hpmuseum.net/display_item.php?hw=242):
>
> "The 2626W was introduced in 1982 at $4950 specifically as a
> word processing terminal running HPWORD off of 3000 systems.
> The 2626W had 64K of local RAM to hold documents and free the
> central CPU."
>
> Glenn Mitchell
> 3GM Associates, Inc.
>
>
>
> -----Original Message-----
> From: HP-3000 Systems Discussion
> [mailto:[log in to unmask]] On Behalf Of Bob Comeau
> Sent: Tuesday, December 20, 2005 8:52 AM
> To: [log in to unmask]
> Subject: Re: [HP3000-L] looking for a couple of files
>
> 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 *
>
> * 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 *
|