Page 1 of 1

Another 1K wonder lol

Posted: Mon May 12, 2014 1:13 am
by poglad
In the tradition of Shaun_B's 1K wonders, may I humbly offer the following! :lol:

Re: Another 1K wonder lol

Posted: Mon May 12, 2014 7:42 am
by Shaun_B
Thanks, I didn't test my code on a 1K machine so I wasn't sure, but it probably will work now there have been corrections to the listing.

Regards,

Shaun.

Re: Another 1K wonder lol

Posted: Mon May 12, 2014 9:25 pm
by Shaun_B
I think this should be a dice program but it doesn't seem to be working for me :-| hmmm

Anyway, I'm not keen on the pause thing with the ZX81 due to the screen flicker, so you could remove line 190 and change the program as follows:

Code: Select all

180 GOTO 180+(INKEY$<>"")
181 GOTO 150
EDIT: Spotted my mistake - what a dope I am (and I don't mean in a good way!)

Regards,

Shaun.