SHARP PC 1211

[ijabbott]

(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