dove@ucscb.ucsc.edu (Ray Rischpater) (10/12/90)
At the encouragement of some email, I've decided to post the inprt program for
transferring data files from other HP-IR interfaces to the 48sx.
The first object here is INPRT -- it lets you transfer data from the printer
port on another calculator to the SX. Simply line up the printing diode
on the transmitting calculator with the little triangle on the SX, run
INPRT and print your file.
%%HP: T(3)A(R)F(.);
"D9D20D488151A81CCD20A75008FB97608FE316084F8F60860DA34F0100EE4438
19F21098F51110808F8FDBB101198F97B50AF210C243065068F5E0108DAA5608
F176611FB010014F8088514D8FF8B108F5E0101108F662458FB976011CD08AE4
0E48DC75302430375025BA93DA093B50B357DB034008007BB15D281A30A74B15
D093FB1D7739011A7C80DBFE0E31748011CE610C31F7D5111CC4E3101D914C16
18F47C004921FB010014F80885A0C4D080895A0C55014D6B5F6C0F07C2135153
29240007302A37580A0E4B893F1F619F0E39D0AE479CF035665309ACFFCA9A9F
CCF9A30655603CF9AA9FC5603306565300356FCA99ACFEDB88BDE74211247471
22174DE8BB8ED21744712B8EDDE8B8BDEEDB81247742174211247EDB88BDEDE8
BB8ED47122174B8EDDE8B21744712124774218BDEEDB89ACFFCA903566530306
55603A9FCCF9A56033065CF9AA9FCFCA99ACF65300356A374008193293F2F030
7C281B3A35A37B37A4F53F0204D1A852F30B20AC7AB3840783248F775241F705
24AE80824C4000A6C4BB1574A4652FA64C4789F69B165B161B16DA169A165A16
1A16D916991659161916D816981658161816D71697167B163B16FA16BA167A16
3A16F916B91679163916F816B81678163816F716B7167716D116911651161116
D016901650161016DF069F065F061F06DE069E065E061E06F806B80678063806
F706B70677063706F606B60676063606F506B506750635063D06FC06BC067C06
3C06FB06BB067B063B06FA08600080821D2A62A6E5CF1574A46580A3DB370208
604580C0093151B35850A4F4FBA6E5CF1574A46511808DB3786050A3DC5C7157
4157415746A3E8607280C0312184066BF860A352031F07A808405F931F07C705
E808602835200000B01A0331216F7F6EAD08701D50CD9AB21FA1100CE4311574
A4653F31A14E1070331A0A6E4001574A4652F31B1A6E5CF1574A4650002A35B0
7A37A4F5000702FBD8132230C2A2050100027F7D38485868788898A8B8C8D8E8
5BF70BBABBF7F7F72B3BF7F7F7F7F7F7F7080C2C8CACBCECFC4B06E58AE79DBD
3AFADDDF0B7C7E1D1F1AFB4A3A5A7A662A2EAE4FBF1E9E3FAF0E8E2F9F4EBE6F
CF5CEE8D6C5EDE8F6E4CCE6DCD9CFEFD4D1C3C3E0D0FDCCC3D2D5D5F3537AD95
FFEDEF7B5B6BEBD2CBDBAAABBAE9BB1B0A9F32332230B21303FDE"
Here is the original ->ASC and ASC-> programs, posted for those
who don't have them saved.
%%HP: T(3)A(D)F(.);
DIR
P1 @ ASC\-> Version 1.
\<<
IF DUP TYPE 2 \=/
THEN "Not A String" DOERR
END RCWS \-> ws
\<< 16 STWS
#0 NEWOB SWAP DUP SIZE
IF DUP 4 <
THEN DROP SWAP DROP "Invalid String" DOERR
END
DUP 65 / IP - 4 - # 18CEAh SYSEVAL
"" OVER # 61C1Ch SYSEVAL
SWAP # 6641F8000AF02DCCh
# 130480679BF8CC0h # 518Ah SYSEVAL
# 19610313418D7EA4h # 518Ah SYSEVAL
# 7134147114103123h # 518Ah SYSEVAL
# 5F6A971131607414h # 518Ah SYSEVAL
# 12EA1717EA3F130Ch # 518Ah SYSEVAL
# 280826B3012808F4h # 518Ah SYSEVAL
# 6B7028080BEE9091h # 518Ah SYSEVAL
# BE5DC1710610C512h # 518Ah SYSEVAL
# 705D00003431A078h # 518Ah SYSEVAL
# 3D8FA26058961431h # 518Ah SYSEVAL
# 312B0514h # 518Ah SYSEVAL
# 18F23h SYSEVAL
DUP BYTES DROP 4 ROLL
IF ==
THEN SWAP DROP
ELSE DROP "Invalid String" DOERR
END ws STWS
\>>
\>>
P2 @ ASC\-> Version 2. To be converted by ASC\-> version 1.
"D9D20D29512BF81D0040D9D20E4A209000000007566074726636508813011920
140007FE30B9F060ED3071040CA1304EC3039916D9D2085230B9F06C2A201200
094E66716C696460235472796E676933A1B21300ED30FD5502C230C1C1632230
CCD20FA0008F14660CC8FB97608403104AE7D814313016913213014117414317
414706131179A6F5C031F3AE7171AE214F8082103B6280821909EEB0808207B6
215C0160171CD5EB870A13430000D50713416985062AF8D341508813044950B9
F06BBF06EFC36B9F0644230C2A201200094E66716C696460235472796E676933
A1B2130B21300373"
P3 @\->ASC. To be converted by ASC\->.
"D9D20D2951881304495032230FD5502C230A752688130ADB467FE30322306AC3
0CB916E0E30CBD30F6E30C1C1632230CCD20DC0008F14660CC8FB97608403104
AE7D8143130169174147061741431311534AC6B4415141534946908D9B026155
4A6F53131F3AE731A014C161AE215F08082103A6280821939EEC08082170A621
4C161170CD56B870A18503430000D5071351796A9F8D2D02639916D9D2085230
C2A209100025F4D402F426A6563647933A1B2130A2116B213033C0"
SETUP @Automatic setup program
\<< P2 P1 'ASC\->' STO
P3 ASC\-> '\->ASC' STO
{ P1 P2 P3 SETUP } PURGE
\>>
END
--
-- dove@ucscg.ucsc.edu Ray Rischpater
-- dove@ucscb.ucsc.edu (408) 426-0716
--As usual, all of the opinions contained herein are my own...akcs.morton@hpcvbbs.UUCP (Larry Morton) (10/23/90)
RAY:
I HAVE TRIED SEVERAL TIMES TO GET YOUR PROGRAMS TO WORK BUT TO
NO AVAIL. I HAVE CAREFULLY CHECKED EACH CHARACTER OF P2 AND P3
BUT I STILL GET AN "INVALID STRING" MESSAGE FROM PROGRAM P1
FOR BOTH STRINGS IN P2 AND P3. I ASSUME THAT IT IS CORRECT TO
CREATE THESE STRINGS WITHOUT ANY <CR><LF> COMBINATIONS THAT
ARE PART OF THE ASCII LISTING YOU GAVE. I HAVE BEEN CAREFUL
TO ELIMINATE ANY LEADING OR TRAILING JUNK CREATED DURING THE
KERMIT TRANSFER FROM MY PC TO THE 48. THE ONLY THING CONTAINED
WITHIN THE STRINGS ARE THE ALPHANUMERICS YOU LISTED WITHIN ".
PLEASE HELP.
--- LARRY MORTON
(805) 733-4275