Post Reply 
SHARP PC 1211
06-05-2018, 07:46 PM (This post was last modified: 06-05-2018 07:50 PM by ijabbott.)
Post: #7
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
Find all posts by this user
Quote this message in a reply
Post Reply 


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 - 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)