Maths and Algebra for 1K

Anything Sinclair ZX Basic related; history, development, tips - differences between BASIC on the ZX80 and ZX81
User avatar
AN7805
Posts: 91
Joined: Fri Oct 16, 2020 4:17 am

Maths and Algebra for 1K

Post by AN7805 »

Hi at all again,

anyone know if exhist a math or algebra program at 1K?
Sadly i found this programs only at 16K.

Thanks at all,

Matt :D
dr beep
Posts: 2060
Joined: Thu Jun 16, 2011 8:35 am
Location: Boxmeer

Re: Maths and Algebra for 1K

Post by dr beep »

AN7805 wrote: Mon Dec 07, 2020 10:48 pm Hi at all again,

anyone know if exhist a math or algebra program at 1K?
Sadly i found this programs only at 16K.

Thanks at all,

Matt :D
I coded this:
https://sinclairzxworld.com/viewtopic.p ... 349#p25349

And the video of the game.. https://www.youtube.com/watch?v=lmWkLrS9Ato
User avatar
AN7805
Posts: 91
Joined: Fri Oct 16, 2020 4:17 am

Re: Maths and Algebra for 1K

Post by AN7805 »

Thanks Beep.

I ask, any program at 1k display an expression like this,
with this passage?

Image

Thanks,

Matt m(_ _)m
User avatar
AN7805
Posts: 91
Joined: Fri Oct 16, 2020 4:17 am

Re: Maths and Algebra for 1K

Post by AN7805 »

Nothing? :-/

Thanks,

Matt
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: Maths and Algebra for 1K

Post by XavSnap »

TS1000 !
:mrgreen:
Cap0031.jpg

Code: Select all

5 DIM A$(10,10)
10 LET V$="9*2+15/3+4+12/4*2-3*5*2"
15 LET B=1
16 LET C=1
20 FOR A=1 TO LEN V$
30 IF V$(A)<>"+" AND V$(A)<>"-" THEN NEXT A
40 LET A$(B)=V$(C TO A-1)
42 LET B=B+1
45 IF A<LEN V$+1 THEN LET A$(B)=V$(A)
46 LET B=B+1
47 LET C=A+1
48 NEXT A
49 LET A$(B-1)=V$(C TO)
50 LET R$=""
51 FOR A=1 TO B-2 
60 IF A$(A,1)="+" OR A$(A,1)="-" THEN GOTO 68
65 PRINT A$(A);"=";VAL A$(A)
67 LET R$=R$+STR$ VAL A$(A)
68 LET R$=R$+("+" AND A$(A,1)="+")+("-" AND A$(A,1)="-")
70 NEXT A
75 PRINT
80 PRINT V$,,,R$;"=";VAL V$
NUM.P
(645 Bytes) Downloaded 148 times
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
User avatar
AN7805
Posts: 91
Joined: Fri Oct 16, 2020 4:17 am

Re: Maths and Algebra for 1K

Post by AN7805 »

Thanks so much Xav m(_ _)m

Matt :-)
Moggy
Posts: 3231
Joined: Wed Jun 18, 2008 2:00 pm

Re: Maths and Algebra for 1K

Post by Moggy »

@XavSnap

Try this with the X2 ROM, it really is much faster.
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: Maths and Algebra for 1K

Post by XavSnap »

True…
Tested on Vb81... and it's hard to go back to the old rom...
:mrgreen:

But, there's a problem with the Centronics Memotech card patch!
:lol:

Impressive Rom...
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
User avatar
AN7805
Posts: 91
Joined: Fri Oct 16, 2020 4:17 am

Re: Maths and Algebra for 1K

Post by AN7805 »

Xav sorry again,

is a 2k program you have made?

Thanks,

Matt
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: Maths and Algebra for 1K

Post by XavSnap »

I will try to convert it to a 1k program.
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
Post Reply