+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: Not HP Calculators (/forum-7.html)
+--- Forum: Not remotely HP Calculators (/forum-9.html)
+--- Thread: Sharp PC-1211/TRS-80 PC-1 Software (/thread-16477.html)
Pages: 1 2
RE: Sharp PC-1211/TRS-80 PC-1 Software - Swell1 - 04-03-2022 02:11 AM
(03-20-2021 02:57 PM)SlideRule Wrote: Try;
Electrical Engineering I
Engineering Math III
Games II
BEST!
SlideRule
Thank You!
The Electrical Engineering looks really good!
Regards
Swell1
RE: Sharp PC-1211/TRS-80 PC-1 Software - robve - 04-04-2022 02:24 AM
(04-03-2022 02:11 AM)Swell1 Wrote:(03-20-2021 02:57 PM)SlideRule Wrote: Try;
Electrical Engineering I
Engineering Math III
Games II
BEST!
SlideRule
Thank You!
The Electrical Engineering looks really good!
Regards
Swell1
It looks like these are manuals, which is nice. But where can I find the programs?
- Rob
RE: Sharp PC-1211/TRS-80 PC-1 Software - toml_12953 - 04-04-2022 09:23 AM
(03-14-2021 09:14 PM)pyedog Wrote: I apologize if this is the wrong place to ask, but there are several posts from years ago about the PC-1211 so I figured I'd give it a shot ...
I'm looking for BASIC programs that will run on Sharp PC-1211/TRS-80 PC-1 pocket computers. I had one back in the 80s and recently acquired one and thought it would be interesting to see what could be done with it.
I made a web site with several games (Video Poker, Cave Adventure, and BlackJack) at https://pc1211.epizy.com/pc1211/ but I'd be interested in other programs people might still have available. I'd be happy top add it to the list if anyone is interested.
Truthfully, it is slower and more limited than I remember - I've been spoiled by modern smartphones - but I remember how amazed I was when I first got it (I think it was 1981).
Anyway, thanks for any pointers or information!
There's an applications manual at
https://archive.org/details/applications-manual/mode/2up
which has a large number of program listings in it. Of course, you'll type them in yourself and CSAVE them.
RE: Sharp PC-1211/TRS-80 PC-1 Software - Hollerith - 04-04-2022 10:28 AM
Listing of EE1 programs
Note: the special symbols for pi, square root and exponent have been changes to [PI], [SQR] and [E] so that the listings are plain ascii text. This was performed by the 'graph' option of Pocket Tools when decoding the wav files. Enjoy.
Code:
AMPDES
10 "A" INPUT "VCC=";V
20 INPUT "R TOL=";A
30 INPUT "T MAX=";B
40 INPUT "T MIN=";C
50 INPUT "VCE=";D
60 INPUT "ICBO=";I
70 F=M: INPUT "IE MAX=";F:M=F
80 E=N: INPUT "IE MIN=";E:N=E
90 G=O: INPUT "BETA MAX=";G:O=G
100 H=P: INPUT "BETA MIN=";H:P=H
110 INPUT "RE=";R
200 "S"F=F*0.85:E=E*1.15:H=H*.865*EXP (.00575*C)
210 G=G*.865*EXP (.00575*B):X=2000*(V-D)/(E+F)-R: IF X<0 PAUSE "RE ERROR": END
215 GOSUB 500:S=X:X=G+1
220 J=((F-E)*R+2.5*(B-C))/(I+E/(H+1)-F/X): IF J<=0 BEEP 1: PAUSE "IE ERROR": END
240 K=E*.001*(J/(H+1)+R)+.7-.0025*(C-25):X=V*J/K: GOSUB 500:T=X
250 X=V*J/(V-K): GOSUB 500:U=X:K=INT (100*K+.5)/100
260 "B" BEEP 2: PRINT "R1=";T: PRINT "R2=";U: PRINT "RC=";S: PRINT "RE=";R: PRINT "VB=";K: END
500 W=1.19927[E]-2*INT (1+1.5*A+.004*A*A):Y=INT (LN X/LN 10-INT (2.2-3*W)):X=X/10^Y
510 FOR L=27 TO 28:A(L)=INT (EXP (W*(INT (LN X/W)+L-27))+.5)
520 Z=1.88[E]-5*A(L)^3-.00335*A(L)*A(L)+.164*A(L)-1.284
530 A(L)=A(L)+INT (Z*INT (3*W+.8)): NEXT L
540 X=10^Y*A(X/[SQR](A(27)*A(28))+27):X=INT (X+.5): RETURN
600 "Z" INPUT "T J,MAX=";M
610 INPUT "T AIR=";A
620 INPUT "P J=";P
630 INPUT "THETA JC=";J
640 C=(M-A)/P-J: PAUSE "REQUIRED THETA CA IS:"
645 IF C<0 PAUSE "INPUT ERROR": GOTO 600
650 PRINT C;"DEG C/W": END
900 " " PRINT "TRANSISTOR AMPS": PAUSE "(C) 1981 TANDY CORP."
910 PRINT "TRANS BIAS:SHFT-A"
920 PRINT "HEAT SINK:SHFT-Z"
COMPLEX
1 " " AREAD F$: RADIAN : IF F$="I" CLEAR :I=23: PAUSE "(C) 1981 TANDY CORP.": GOTO 6
2 IF F$="C" GOSUB 18:I=I+2: GOSUB 17: GOTO 6
3 IF F$="P" GOSUB 18: PRINT A,B:I=I+2: GOTO 6
4 IF F$="" GOTO 6
5 PRINT "INVALID, RE-ENTER": END
6 INPUT "R=";A,"I=";B: GOSUB 17: GOTO 6
7 GOTO 6
8 "A" GOSUB 35: GOTO 19
9 "S" GOSUB 36: GOTO 19
10 "D" GOSUB 37: GOTO 19
11 "F" GOSUB 38: GOTO 19
12 "N"I=I-2: GOSUB 18: GOSUB 39:A=LN A: GOSUB 17
13 I=I+2: GOSUB 18:I=I+2: GOSUB 37: GOSUB 40: GOTO 19
14 "J" GOSUB 42:I=I+2: GOTO 19
15 "K" GOSUB 43:I=I+2: GOTO 19
16 "L" GOSUB 17: GOSUB 43:I=I-2: GOSUB 17:J=I:I=I-2: GOSUB 18: GOSUB 42: GOSUB 17:I=J: GOSUB 18:I=J: GOSUB 38: GOTO 19
17 GOSUB 20:A(I)=A:A(I+1)=B:I=I+2: RETURN
18 I=I-2: GOSUB 20:A=A(I):B=A(I+1): RETURN
19 I=I-4: GOSUB 17: PRINT A,B: GOTO 6
20 IF I<23 LET I=23:U=0:V=0: PAUSE "STK UNDER": RETURN
21 IF I>46 LET I=45: PAUSE "STK OVER": RETURN
22 RETURN
23 "="I=I+2: GOSUB 39:A=LN A: GOTO 19
24 "Z"I=I+2: GOSUB 40: GOTO 19
25 "X" GOSUB 44:A=ASN E:B=LN (D+[SQR](DD-1)):I=I+2: GOTO 19
26 "C" GOSUB 44:A=ACS E:B=LN (D+[SQR](DD-1)):I=I+2: GOTO 19
27 "V"E=AA:F=BB:C=E+F+2B+1:C=.25*LN (C/(C-4B))
28 A=2A:B=1-E-F+1[E]-10:G=A/B:A=ATN G/2: IF B<0 LET A=A+[PI]/2
29 B=C:I=I+2: GOTO 19
30 "B"J=I: GOSUB 39:A=LN A:I=I-2: GOSUB 17:I=I-2: GOSUB 18: GOSUB 39:A=LN A: GOSUB 17:I=J: GOSUB 18:I=J: GOSUB 38
31 GOTO 19
32 "M" GOSUB 17:A(I-4)=1:A(I-3)=0: GOSUB 38: GOTO 19
33 "G"I=I+2: GOSUB 39: GOTO 19
34 "H"I=I+2: GOSUB 41: GOTO 19
35 A=A+A(I-4):B=B+A(I-3): RETURN
36 A=A(I-4)-A:B=A(I-3)-B: RETURN
37 E=A:A=AA(I-4)-BA(I-3):B=EA(I-3)+BA(I-4): RETURN
38 E=A:G=AA+BB:A=(AA(I-4)+BA(I-3))/G:B=(EA(I-3)-BA(I-4))/G: RETURN
39 A=[SQR](AA+BB):B=ASN (B/A): RETURN
40 A=EXP A: GOSUB 41: RETURN
41 E=A:A=E*COS B:B=E*SIN B: RETURN
42 E=A:F=EXP B:G=(F+1/F)/2:H=G-1/F:A=G*SIN A:B=H*COS E: RETURN
43 E=A:F=EXP B:G=(F+1/F)/2:H=G-1/F:A=G*COS A:B=-H*SIN E: RETURN
44 D=AA+2A+1+BB:F=[SQR]D:G=[SQR](D-4A):D=(F+G)/2:E=D-G: RETURN
FILTERS
10 INPUT "FC=";F
20 INPUT "F MXATN=";M
30 INPUT "TERM RESIS=";R
40 M=[SQR](1-(F/M)^(K*2)): RETURN
50 "A"K=1: GOSUB 10:L=R/([PI]*F):C=1[E]6/([PI]*R*F):C=INT (100*M*C+.5)/100
80 O=INT (M*L*1[E]5/2+.5)/100:N=INT ((1-M*M)*L/4/M*1[E]5+.5)/100
100 PRINT "L1=";O: PRINT "L2=";N: PRINT "C=";C: END
110 "S"K=-1: GOSUB 10:L=R/(4*[PI]*F):O=(1[E]5*L/M+.5)/100:C=1[E]6/(4*[PI]*F*R):A=2*C/M
150 B=4*M*C/(1-M*M):A=INT (100*A+.5)/100:B=INT (100*B+.5)/100:O=INT (100*O+.5)/100
180 PRINT "C1=";A: PRINT "C2=";B: PRINT "L=";O: END
190 INPUT "FC=";F
200 INPUT "G=";G
210 INPUT "C1=";C
220 INPUT "PEAKING=";P
230 H=10^(G/20): RETURN
250 "Z" GOSUB 190:D=4*(H+1)*C/(P*P):X=(P*1[E]6)/(4*[PI]*F*C):Y=X/H:Z=X/(H+1)
260 PRINT "C2=";D: PRINT "R1=";Y: PRINT "R2=";X: PRINT "R3=";Z: END
270 "X" GOSUB 190:D=C/H:Y=(2*H+1)*1[E]6/(2*[PI]*F*C*P):X=P*1[E]6/(2*[PI]*F*C*(2+1/H))
280 PRINT "C2=";D: PRINT "R1=";Y: PRINT "R2=";X: END
290 "C" INPUT "CF=";F
300 INPUT "G=";G
310 INPUT "3 DB BW=";B
320 INPUT "C1=";C
330 INPUT "C2=";D
340 H=10^(G/20):Q=F/B:Y=Q*1[E]6/(2*[PI]*F*C*H):X=1/(Q*(C+D)*2[E]-6*[PI]*F-1/Y)
350 Z=Q*1[E]6*(1/C+1/D)/(2*[PI]*F)
360 PRINT "R1=";Y: PRINT "R2=";X: PRINT "R3=";Z: END
900 " " PRINT "FILTERS": PAUSE "(C) 1981 TANDY CORP."
910 PRINT "M DERIVED LOWPASS:SHFT-A"
920 PRINT "M DERIVED HIPASS:SHFT-S"
930 PRINT "ACTIVE LOWPASS:SHFT-Z"
940 PRINT "ACTIVE HIPASS:SHFT-X"
950 PRINT "ACTIVE BANDPASS:SHFT-C"
IMPCALC
10 "A"G=0:H=0
20 "G" GOSUB 100
30 E=C*C+D*D:G=G+C/E:H=H-D/E: GOTO 20
40 "S"E=G*G+H*H:C=G/E:D=-H/E: GOTO 60
50 "Z" GOSUB 100
60 A=A+C:B=B+D: PRINT A,B: GOTO 50
70 "D"C=A:D=B:A=0:B=0:G=0:H=0: GOTO 30
80 "C" INPUT "F=";F,"C=";E:Z=-1[E]6/(2*[PI]*F*E): PRINT "CZ=";Z: END
90 "X" INPUT "F=";F,"L=";E:Z=2*[PI]*F*E: PRINT "LZ=";Z: END
100 INPUT "R=";C,"I=";D: RETURN
110 "V" RADIAN : GOTO 130
120 "F" DEGREE
130 O=[SQR](A*A+B*B):P=ATN (B/A): PRINT O,P: END
140 "B" PRINT A,B: END
900 " " CLEAR : PRINT "CMPLX Z CALCULATOR": PAUSE "(C) 1981 TANDY CORP."
910 PRINT "PARALLEL NET INIT:SHFT-A": PRINT "PARALLEL NET END:SHFT-S"
920 PRINT "SERIES NETWORK:SHFT-Z": PRINT "PARA CURRENT Z:SHFT-D"
930 PRINT "Z IN POLAR(RAD):SHFT-V": PRINT "Z IN POLAR(DEG):SHFT-F": PRINT "CURRENT Z:SHFT-B"
940 PRINT "CAPACITIVE Z:SHFT-C": PRINT "INDUCTIVE Z:SHFT-X"
SIMEQ
1 F=84-9B:C=84-8G-B: RETURN
2 F=84-8B-H:C=84-8G-H: RETURN
3 F=84-B:C=84-G: RETURN
4 C=84-G:F=C-7G-B: RETURN
5 C=84-B:F=C-8B: RETURN
6 A(F)=A(F)+A(C): RETURN
7 A(C)=A(C)-E*A(F): RETURN
8 PRINT USING ;A(F): INPUT "CHANGE(C) OR ENTER";I$: IF I$="C" GOTO 10
9 RETURN
10 INPUT "NEW VALUE=";A(F): RETURN
11 GOTO 10
12 "S" GOSUB 5:D=A(F): IF D<>0 GOTO 16
13 FOR G=1 TO B-1: GOSUB 1:D=A(C): IF D=0 NEXT G: PRINT "UNSOLVABLE": END
15 FOR H=1 TO B: GOSUB 2: GOSUB 6: NEXT H: GOSUB 3: GOSUB 6
16 FOR G=1 TO B-1: GOSUB 1:E=A(C)/D: FOR H=1 TO B-1: GOSUB 2: GOSUB 7: NEXT H: GOSUB 3: GOSUB 7: NEXT G
18 B=B-1: IF B>1 GOTO 12
19 FOR B=1 TO A-1: GOSUB 5:A(C)=A(C)/A(F):E=A(C): FOR G=B+1 TO A: GOSUB 4: GOSUB 7: NEXT G: NEXT B
20 B=A: GOSUB 5:A(C)=A(C)/A(F): BEEP 2
21 "B" FOR G=1 TO A: GOSUB 4: PRINT "X(";USING ;G;")=";A(C): NEXT G: END
22 "A" INPUT "ORDER?";A:B=A: IF (A<=2)+(A>8) GOTO 22
23 FOR G=1 TO A: FOR H=1 TO A:C=84-G:F=C-7G-H
24 PAUSE USING "##";G;H: INPUT A(F): NEXT H: BEEP 1: GOTO 26
25 GOTO 24
26 INPUT A(C): NEXT G: END
27 GOTO 26
28 "D" FOR G=1 TO A: FOR H=1 TO A:F=84-8G-H: PAUSE USING "##";G;H: GOSUB 8: NEXT H: BEEP 1:F=84-G: GOSUB 8: NEXT G: END
29 "F" INPUT "ROW?";G: IF (G>=1)*(G<=A) GOTO 31
30 GOTO 29
31 INPUT "COLUMN?";H: IF (H>=1)*(H<=A) LET F=84-8G-H: PAUSE USING "##";G;H: GOSUB 8: END
32 F=84-G: GOSUB 8: END
33 " " PRINT "SIMULTANEOUS EQUATIONS": PAUSE "(C) 1981 TANDY CORP."
34 PRINT "ENTER EQU:SHFT-A": PRINT "SOLVE EQU:SHFT-S": PRINT "REVIEW ANS:SHFT-B"
35 PRINT "DISPLAY EQU:SHFT-D": PRINT "EDIT ENTRY:SHFT-F"
TABLES
10 "A" INPUT "AWG=";B:A=EXP (B*LN .79304+LN 105532):R=10.575/A: PRINT "R/FT =";R: END
15 GOTO 10
20 "S" INPUT "I=";I: IF I>0 LET B=INT ((10*(2*LN 325-LN (500*I))/LN 10)+.5): PRINT "AWG=";B: END
25 GOTO 20
30 "Z"B=1:V=0:T$="BAND"
32 PAUSE "INPUT ";T$;" ";B: INPUT "COLOR=";C$: GOTO 40
34 C$=" "
40 IF C$="BLACK" LET A=0: GOTO 60
41 IF C$="BROWN" LET A=1: GOTO 60
42 IF C$="RED" LET A=2: GOTO 60
43 IF C$="ORANGE" LET A=3: GOTO 60
44 IF C$="YELLOW" LET A=4: GOTO 60
45 IF C$="GREEN" LET A=5: GOTO 60
46 IF C$="BLUE" LET A=6: GOTO 60
47 IF C$="PURPLE" LET A=7: GOTO 60
48 IF C$="VIOLET" LET A=7: GOTO 60
49 IF C$="GRAY" LET A=8: GOTO 60
50 IF C$="GREY" LET A=8: GOTO 60
51 IF C$="WHITE" LET A=9: GOTO 60
52 IF C$="SILVER" LET A=10: GOTO 60
53 IF C$="GOLD" LET A=11: GOTO 60
54 IF C$=" " LET A=12: GOTO 60
55 PAUSE "REENTER COLOR": GOTO 32
60 IF T$="DOT" GOTO 160
61 IF A>9 GOTO 70
62 IF B<3 LET V=V*10+A:B=B+1: GOTO 32
70 IF B<3 GOTO 55
72 IF B=4 GOTO 90
74 IF A=10 LET A=-1: GOTO 80
76 IF A=11 LET A=-2: GOTO 80
78 IF A>11 GOTO 55
80 V=V*10^A:B=B+1: GOTO 32
90 IF A<10 GOTO 55
92 IF A=11 LET A=5
94 IF A=12 LET A=20
96 PRINT "R=";V;"TOL=";A;"%": END
100 "C"B=1:V=0:T$="DOT": GOTO 32
160 IF A>9 GOTO 55
162 IF B<3 LET V=V*10+A:B=B+1: GOTO 32
164 IF B=4 GOTO 180
166 IF A>4 GOTO 170
168 V=V*10^A:B=B+1: GOTO 32
170 IF A>7 LET A=A-10: GOTO 168
172 GOTO 55
180 IF A=0 LET A=20: GOTO 190
181 IF A<4 GOTO 190
182 IF A=4 GOTO 55
183 IF A=5 GOTO 190
184 IF A=9 LET A=10: GOTO 190
186 GOTO 55
190 PRINT "C=";V;"TOL=";A;"%": END
200 "L" INPUT "L=";L: IF L>0 GOTO 210
205 GOTO 200
210 INPUT "AWG=";B
220 INPUT "DIAMETER=";R: IF R>0 GOTO 230
225 GOTO 220
230 R=R/2:D=[SQR]((.79304^B)*105532)/1000:N=(10*D*L+[SQR](100*D*D*L*L+4*R*R*L*(9*R+10*D)
240 N=N/(2*R*R)
250 PRINT "NUMBER OF TURNS=";N: END
900 " " PRINT "EE TABLES": PAUSE "(C) 1981 TANDY CORP."
910 PRINT "AWG TO R/FT:SHFT-A": PRINT "CURRENT TO AWG:SHFT-S"
920 PRINT "R COLOR CODE:SHFT-Z": PRINT "C COLOR CODE:SHFT-C"
930 PRINT "RF COIL TURNS:SHFT-L": ENDRE: Sharp PC-1211/TRS-80 PC-1 Software - robve - 03-03-2023 02:34 AM
(03-15-2021 01:46 AM)Bill (Smithville NJ) Wrote: Not sure if you are aware of this, but Radio Shack published two books with lots of programs for the pocket computer. You can get each on the Internet Archive Site:
119 Practical Programs for the TRS-80 Pocket Computer
and
TRS-80 Pocket Computer Programs
Internet Archive also has:
Pocket Computer Programming Made Easy
73
Bill WD9EQD
Smithville, NJ
I've converted the 119 Practical Programs for the TRS-80 Pocket Computer to audio wav form for easy loading with a cassette interface or printer unit. Multiple programs can be merged too, to make optimal use of its 1424 bytes capacity. Playing the wav file with the afplay command on a Mac works very well, without transmission errors. Windows machines can use any audio player.
The Basic source files and wav files are on GitHub: 119 Practical Programs for the TRS-80 Pocket Computer
While transliterating and testing the programs, I found that five of the programs had minor bugs, which I fixed.
- Rob
RE: Sharp PC-1211/TRS-80 PC-1 Software - Les Nagy - 03-11-2024 10:39 PM
I have just replaced the screen in my pocket computer and am looking for the aviation program. I used it for navigation when I was flying my plane in the 80s but I can't find the cassette. Can anyone help me?
RE: Sharp PC-1211/TRS-80 PC-1 Software - toml_12953 - 03-12-2024 04:13 AM
(03-03-2023 02:34 AM)robve Wrote: While transliterating and testing the programs, I found that five of the programs had minor bugs, which I fixed.
- Rob
TAB Books were notorious for errors, omissions and generally low-quality proofreading. Instead of using camera-ready listings, they had someone manually typeset programs from the listings. Naturally errors crept in.
RE: Sharp PC-1211/TRS-80 PC-1 Software - Xorand - 03-12-2024 03:31 PM
(03-03-2023 02:34 AM)robve Wrote: I've converted the 119 Practical Programs for the TRS-80 Pocket Computer to audio wav form for easy loading with a cassette interface or printer unit.
Interesting. I'm currently in the process of more or less doing the same for all of the programs in the PC-1500A Pocket Computer - Applications Manual book that I have. I've been saving all of the programs to tape and had planned on uploading the .WAV files somewhere. Github makes a lot of sense.
RE: Sharp PC-1211/TRS-80 PC-1 Software - robve - 03-12-2024 05:50 PM
(03-12-2024 03:31 PM)Xorand Wrote:(03-03-2023 02:34 AM)robve Wrote: I've converted the 119 Practical Programs for the TRS-80 Pocket Computer to audio wav form for easy loading with a cassette interface or printer unit.
Interesting. I'm currently in the process of more or less doing the same for all of the programs in the PC-1500A Pocket Computer - Applications Manual book that I have. I've been saving all of the programs to tape and had planned on uploading the .WAV files somewhere. Github makes a lot of sense.
That would be very nice!
Instead of saving to tape and retrieving the WAV files as digital copies of noisy analog signals, it might be better to use PocketTools to create WAV files directly from the BASIC source files. If you don't have the BASIC source code on a Desktop PC, then you can load the BASIC source text converted from WAV files to a Desktop PC. Then generate high-quality WAV files.
PocketTools link:
https://www.peil-partner.de/ifhe.de/sharp/
Windows exe are included. To run on Linux and MacOS terminal, see my README notes on the 119 programs GitHub repo. Use --pc=1500 to create a WAV file for the PC-1500.
- Rob
RE: Sharp PC-1211/TRS-80 PC-1 Software - Xorand - 03-12-2024 08:38 PM
(03-12-2024 05:50 PM)robve Wrote: That would be very nice!
Instead of saving to tape and retrieving the WAV files as digital copies of noisy analog signals, it might be better to use PocketTools to create WAV files directly from the BASIC source files. If you don't have the BASIC source code on a Desktop PC, then you can load the BASIC source text converted from WAV files to a Desktop PC. Then generate high-quality WAV files.
I will definitely do that. I have played with that software before but it has been a while.