This program checks how much memory (RAM) is present (with or without the memory expansion):
1 POKE 18000, 33
2 POKE 18001, 11
3 POKE 18002, 0
4 POKE 18003, 57
5 POKE 18004, 68
6 POKE 18005, 77
7 POKE 18006, 201
8 PRINT (USR(18000) - 16373) / 1024; "K"
Search found 6 matches
- Mon Apr 29, 2024 2:41 am
- Forum: Hardware
- Topic: ZX80 / ZX81 Memory (RAM) Size Program
- Replies: 0
- Views: 584
- Tue Feb 20, 2024 6:51 pm
- Forum: Emulators
- Topic: Best web browser based ZX 80 or ZX 81 emulator
- Replies: 3
- Views: 3624
- Tue Feb 20, 2024 6:42 pm
- Forum: ZX BASIC
- Topic: New Screen Saver :-) Enjoy!
- Replies: 3
- Views: 1894
New Screen Saver :-) Enjoy!
10 CLS
20 PLOT RND*60, RND*40
30 UNPLOT RND*60, RND*40
40 GOTO 10
20 PLOT RND*60, RND*40
30 UNPLOT RND*60, RND*40
40 GOTO 10
- Sun Dec 10, 2023 7:17 pm
- Forum: ZX BASIC
- Topic: Circles on a ZX80
- Replies: 5
- Views: 21034
Re: Circles on a ZX80
The above works with the ZX81 only. My mistake: the ZX80 only supports integers, and to create a circle, you must work with decimal numbers.
- Sun Dec 10, 2023 4:14 pm
- Forum: ZX BASIC
- Topic: Circles on a ZX80
- Replies: 5
- Views: 21034
Re: Circles on a ZX80
Try this and let us know how it goes:
10 FOR ANGLE = 0 TO 360 STEP 5
20 LET X = RND * 10 * SIN(ANGLE)
30 LET Y = RND * 10 * COS(ANGLE)
40 PLOT 96 + INT(X), 48 + INT(Y)
50 NEXT ANGLE
10 FOR ANGLE = 0 TO 360 STEP 5
20 LET X = RND * 10 * SIN(ANGLE)
30 LET Y = RND * 10 * COS(ANGLE)
40 PLOT 96 + INT(X), 48 + INT(Y)
50 NEXT ANGLE
- Sat Dec 09, 2023 4:22 pm
- Forum: ZX BASIC
- Topic: ZX81 Screen Saver
- Replies: 0
- Views: 16245
ZX81 Screen Saver
10 CLS
20 FOR X=INT(RND*64) TO 62
30 FOR Y=INT(RND*44) TO 42
40 PLOT X,Y
50 NEXT Y
60 NEXT X
70 GOTO 10
20 FOR X=INT(RND*64) TO 62
30 FOR Y=INT(RND*44) TO 42
40 PLOT X,Y
50 NEXT Y
60 NEXT X
70 GOTO 10