SHARP PC 1211
06-05-2018, 07:46 PM (This post was last modified: 06-05-2018 07:50 PM by ijabbott.)
Post: #7
 ijabbott Senior Member Posts: 1,276 Joined: Jul 2015
RE: SHARP PC 1211
(06-01-2018 07:12 PM)ijabbott Wrote:  Perhaps storing the programs in TRS-80 CAS format (same idea as the various TAP formats for Commodore and Sinclair home computers) would be an option. There is a list of conversion utilities at:
TRS-80 Disk and Tape Conversion Utilities.

Those turned out to be unsuitable, but these Pocket Tools for SHARP Pocket Computers (also available from Pocket-Tools) seem to work.

(06-03-2018 06:28 PM)Michael Eckstein Wrote:  In the meantime enjoy another audio program for solving simultaneous equations, load A1 then press SHFT A and enter coefficients, then SHFT S solves equations. The program A1 is here

I was able to convert your audio file, after first converting to WAV format, to a BASIC program and back to a WAV file using those Pocket Tools utilities on a Windows machine.

Here is the result of converting to a BASIC program:

Code:
   10 "A": INPUT "ORDER?";A    20 GOSUB 600    30 B=A: END     40 "S": GOSUB 570    50 D=A(K): IF D<>0 GOTO 160    60 FOR G=1 TO B-1    70 GOSUB 500    80 D=A(C): IF D<>0 LET A(K)=D: GOTO 110    90 NEXT G   100 BEEP 2: PRINT "NO SOLUTION": END    110 FOR H=1 TO B-1   120 GOSUB 520   130 A(K)=A(K)+A(C): NEXT H   140 GOSUB 540   150 A(K)=A(K)+A(C)   160 FOR G=1 TO B-1   170 GOSUB 500   180 E=A(C)/D: FOR H=1 TO B-1   190 GOSUB 520   200 A(C)=A(C)-E*A(K): NEXT H   210 GOSUB 540   220 A(C)=A(C)-E*A(K): NEXT G   230 B=B-1: IF B>1 GOTO 40   240 FOR B=1 TO A-1   250 GOSUB 570   260 A(C)=A(C)/A(K):E=A(C)   270 FOR G=B+1 TO A   280 GOSUB 550   290 A(C)=A(C)-E*A(K)   300 NEXT G: NEXT B   310 B=A: GOSUB 570   320 A(C)=A(C)/A(K)   330 "B": FOR G=1 TO A   340 GOSUB 550   350 I=A(C)   360 BEEP 1: PRINT USING "####";G;"    ";USING ;I   370 NEXT G   380 END    500 K=A*B+B+11:C=A*G+B+11   510 RETURN    520 K=A*B+H+11:C=A*G+H+11   530 RETURN    540 K=B+11:C=G+11: RETURN    550 C=G+11:K=A*G+B+11   560 RETURN    570 C=B+11:K=A*B+C: RETURN    600 C=12:K=A+12   610 FOR G=1 TO A   620 FOR H=1 TO A   630 PAUSE USING "####";G;H: INPUT I   640 A(K)=I:K=K+1: NEXT H   650 BEEP 1: INPUT I   660 A(C)=I:C=C+1: NEXT G   670 RETURN
 « Next Oldest | Next Newest »

 Messages In This Thread SHARP PC 1211 - Michael Eckstein - 05-30-2018, 12:21 PM RE: SHARP PC 1211 - Valentin Albillo - 05-31-2018, 11:08 AM RE: SHARP PC 1211 - SW library project - Michael Eckstein - 06-01-2018, 05:52 AM RE: SHARP PC 1211 - ijabbott - 06-01-2018, 07:12 PM RE: SHARP PC 1211 - ijabbott - 06-05-2018 07:46 PM RE: SHARP PC 1211 - Michael Eckstein - 06-06-2018, 08:14 PM RE: SHARP PC 1211 - Valentin Albillo - 06-06-2018, 11:58 PM RE: SHARP PC 1211 - foroplus - 06-01-2018, 10:15 AM RE: SHARP PC 1211 - Michael Eckstein - 06-03-2018, 06:28 PM

User(s) browsing this thread: 1 Guest(s)