Interpreter Basic programmieren auf Taschenrechner Sharp pce500

[jojo7683453457]

Hallo an alle,
kennt Ihr einen Interpreter, Simulator oder Emulator um als Hobby in Sharp Basic zu programmieren?

Ich meine die Basic Sprache vom alten Taschenrechner Sharp pce500.

Ich habe das Buch Yachtbücherei 101 von Werner Kumm und würde gerne seine Taschenrechner Programme im Anhang ausprobieren. Ich habe den Taschenrechner nicht als Gerät, sondern würde reine open source Software bevorzugen
Danke Jojo

[Livingston]

Das, was dem am nächsten kommt, wäre wohl ein Emulator, den gefunden hat:
https://matsumo.tripod.com/e500/index.html
Scheint auf DOS (z.B. FreeDos) zu laufen, möglicherweise auch in Debian über dosbox. Das wäre dann eine Emulation innerhalb einer Emulation. Keine Ahnung, ob das klappt.

[GregorS]

... Das wäre dann eine Emulation innerhalb einer Emulation. Keine Ahnung, ob das klappt.

Vielleicht könnte man das ja simulieren

SCNR

Gregor

[ralli]

Muß das denn Sharp Basic sein? In Debian gibt es doch bwbasic, das läuft einwandfrei.

Gruß ralli

[MSfree]

Muß das denn Sharp Basic sein? In Debian gibt es doch bwbasic, das läuft einwandfrei.

Solange man keine der speziellen Sharp-Basic-Funktionen braucht, ist bwbasic wohl ausreichend. Will man aber Ergenisse auf dem PC-e500 graphisch anzeigen lassen, kommt man mit bwbasic nicht weit.

Die Frage wäre also, was da so ausgegeben werden soll. Für rein numerische und textuelle Ausgaben mit PRINT ist gwbasic völlig ausreichend.

Im Nachbarthread der OP ging es im Navigationsaufgaben. Da dürften graphische Ausgaben auf dem nur 240x30 Pixel auflösenden LCD kaum eine Rolle spielen.

[jojo7683453457]

Hi an alle, erstmal danke für die Tipps,
Ich benutze bwbasic allerdings bebötige ich Eure Hilfe bei dem Taschenrechner Basic Code aus dem Segelbuch.

Zweck ist die Berechnung der Höhe der Gezeit im Meer

Code: Alles auswählen

REM* HOEHE DER GEZEIT **
REM* FUER SHARP PCE500
REM* พ. K. 12/91 ******
REM
REM* VARIABLENBEZEICHNUNGEN:
REM* NZ: NIEDRIGWASSERZEIT, HZ: HOCHWASSERZEIT,
REM* NH: NIEDRIGWASSERHOEHE, HH: HOCHWASSERHOEHE,
REM* ZP: ZEITPUNKT ZWISCHEN HOCH- UND NIEDRIGWASSERZEIT,
REM* ZU: ZEITUNTERSCHIED ZWISCHEN ZP UND HZ, DA: STEIG-
REM* BZW. FALLDAUER, H: HOEHE DER GEZEIT,
REM* H1, H2, H3, Z: HILFSVARIABLE
REM* PROGRAMM
15 CLS
20 INPUT "NWZ? (HH.MM) ";NZ
25 H1=NZ: GOSUB85: NZ=H2
30 INPUT "NWH? (M) ";NH
35 INPUT "HWZ? (HH.MM) "; HZ
40 H1=HZ:GOSUB85 :HZ=H2
45 GOSUB90: DA=Z
50 INPUT "HWH? (M) ";HH
55 INPUT "UHRZEIT? (HH.MM) "; ZP
60 H1=ZP: GOSUB85 : ZP=H2
65 NZ=ZP: GOSUB90: ZU=Z
70 H=NH+ (HH-NH) * (COS (90*ZU/DA) ) ^ 2
75 PRINT "H ="; (. 1*INT ( (ABS H+. 05) *10)) *SGN H; "METER"
80 END
85 H3=INT H1: H2=H3+ (H1-H3) *5/3: RETURN
90 IF HZ-NZ>10 THEN LET Z=24-HZ+NZ: RETURN
95 IF HZ-NZ<-10 THEN LET Z=HZ-NZ+24: RETURN
100 Z=ABS (HZ-NZ)
105 RETURN


REM Beispiel im Buch
REM ...14.30
REM ...0.3
REM ...20.51
REM ...3.5
REM ...17.45 ==> Ergebnis 2

Meine jetzige bearbeitete bwbasic Variante ist

Code: Alles auswählen

20 INPUT "NWZ? (HH.MM) ";NZ
25 H1=NZ: GOSUB85: NZ=H2
26 print NZ
30 INPUT "NWH? (M) ";NH
35 INPUT "HWZ? (HH.MM) "; HZ
40 H1=HZ: GOSUB85: HZ=H2
42 print HZ
43 Z=999:H9=HZ-NZ
44 print H9
45 GOSUB90: DA=Z
46 print Z
REM ...50 INPUT "HWH? (M) ";HH
REM ...51 print HH
REM ...55 INPUT "UHRZEIT? (HH.MM) "; ZP
REM ...56 print ZP
REM ...60 H1=ZP: GOSUB85 : ZP=H2
REM ...65 NZ=ZP: GOSUB90: ZU=Z
REM ...70 H=NH+ (HH-NH) * (COS(90*ZU/DA) )^2
REM ...75 PRINT "H ="; (0.1*INT( ABS(H+0.05) *10)) *SGN(H); "METER"
80 END
85 H3=INT H1: H2=H3+ (H1-H3) *5/3: RETURN
90 IF H9>10 THEN Z=(24-HZ+NZ): RETURN
95 IF H9<-10 THEN Z=HZ-NZ+24:RETURN
100 Z=ABS (HZ-NZ)
105 RETURN
REM Beispiel im Buch
REM ...14.30
REM ...0.3
REM ...20.51
REM ...3.5
REM ...17.45 ==> Ergebnis 2

Mein jetziges Problem ist
45 GOSUB90
da funktioniert das mit dem if nicht, da z sich nicht ändert und ich finde den Fehler nicht