Calculator for the zx81

[xubuntu]

Is there a graphical calculator for the zx81?
Not a text-based one. A calculator with buttons. Is there any?

[xubuntu]

Ok after searching online for thirty minutes, I didn't find anything, and I thought perhaps we could all together build one !!!



I start first!

But because I am the most stupid, I will only do the graphics! So the clever people can take over!




Let's build a calculator !

Code: Select all

10 LET A = 0

1000 PRINT AT 0,0
1050 PRINT "\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
1100 PRINT "\##\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\##"
1120 PRINT "\##\::0                          \::\##"
1130 PRINT "\##\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\##"

1150 PRINT "\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
1210 PRINT "\##\::\::\::\::\::\##\::\::\::\::\::\##\::\::\::\::\::\##\::\::\::\::\::\##\::\::\::\::\::\##"
1220 PRINT "\##\::\::%7\::\::\##\::\::%8\::\::\##\::\::%9\::\::\##\::\::%/\::\::\##\::C%L%R\::\##"
1230 PRINT "\##\::\::\::\::\::\##\::\::\::\::\::\##\::\::\::\::\::\##\::\::\::\::\::\##\::\::\::\::\::\##"

1250 PRINT "\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
1310 PRINT "\##\::\::\::\::\::\##\::\::\::\::\::\##\::\::\::\::\::\##\::\::\::\::\::\##\::\::\::\::\::\##"
1320 PRINT "\##\::\::%4\::\::\##\::\::%5\::\::\##\::\::%6\::\::\##\::\::%*\::\::\##\::%R%U%T\::\##"
1330 PRINT "\##\::\::\::\::\::\##\::\::\::\::\::\##\::\::\::\::\::\##\::\::\::\::\::\##\::\::\::\::\::\##"

1350 PRINT "\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
1410 PRINT "\##\::\::\::\::\::\##\::\::\::\::\::\##\::\::\::\::\::\##\::\::\::\::\::\##\::\::\::\::\::\##"
1420 PRINT "\##\::\::%1\::\::\##\::\::%2\::\::\##\::\::%3\::\::\##\::\::%-\::\::\##\::%S%Q%R\::\##"
1430 PRINT "\##\::\::\::\::\::\##\::\::\::\::\::\##\::\::\::\::\::\##\::\::\::\::\::\##\::\::\::\::\::\##"

1450 PRINT "\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"
1510 PRINT "\##\::\::\::\::\::\##\::\::\::\::\::\##\::\::\::\::\::\##\::\::\::\::\::\##\::\::\::\::\::\##"
1520 PRINT "\##\::\::%0\::\::\##\::\::%,\::\::\##\::%P%E%R\::\##\::\::%+\::\::\##\::\::%=\::\::\##"
1530 PRINT "\##\::\::\::\::\::\##\::\::\::\::\::\##\::\::\::\::\::\##\::\::\::\::\::\##\::\::\::\::\::\##"
1550 PRINT "\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##\##"

[Paul]

That looks text based

[xubuntu]

No. Text based are those that ask you "Would you like to add, subtrack, divide or multiply? Mine is very advanced and futuristic.



And please be so kind to help me with the coral rom before I destroy a dozen of eproms.

[xubuntu]

So let's see..

In visual basic when you press a button, let's say "3" for example, you can do this

on button "3" click
if textbox = 0 then textbox = 3
else
textbox +=3

And if there is already a string in our textbox, for example "321", our program will place the character "3" next to our string "321" and we will get a "3213" textbox on our screen.

I guess is not that simple with zx basic is it ?:)

[1024MAK]

I guess is not that simple with zx basic is it ?:)

No. The ZX81 BASIC has absolutely no concept of such a thing.

Instead you may have to use IF THEN constructs.

Mark

[dr beep]

I guess is not that simple with zx basic is it ?:)

No. The ZX81 BASIC has absolutely no concept of such a thing.

Instead you may have to use IF THEN constructs.

Mark

Yes, just use a string, add the key pressed and display the string.

[xubuntu]

Doctor Beep I was hoping that we will co-operate on this one, after checking out your enormous BASIC experience.

But anyway, if you are more concerned building games, as it seems, perhaps write down how the "add to string" function works and I will continue from there.

[dr beep]

Doctor Beep I was hoping that we will co-operate on this one, after checking out your enormous BASIC experience.

But anyway, if you are more concerned building games, as it seems, perhaps write down how the "add to string" function works and I will continue from there.

I am more than willing to help, but don't make assumptions that are not true.

as for my goodwill:

Code: Select all

10 let d$=""
20 let k$=inkey$
30 if k$="" then goto 20
40 let d$=d$+k$
50 print at 10,10;d$
60 goto 20

[xubuntu]

I made progress and thus I am obligated to upload my superior code on this obsolete and god-forsaken forum, because what if my computer suddenly explodes and humanity suffers the loss of the most futuristic calculator ever made for zx81? That of course can't be tolerated.

At that point I would like to thank my mom and my dad for making me so incredibly clever, and point out that nobody helped me making this calculator, and especially not mister beep!

You are all free and welcome to suggest parts for improvement, although that would be nearly impossible considering how clever I am, so I can take all the credit, mention no one and state with bold letters that this was entirely my own idea/creation.

For the moment only addition and subtraction work.

Why are the keys not responding very well? Sometimes I have to press them 2 or 3 times.