Boriel Basic Forum

Welcome, Guest

You have to register before you can post on our site.

Search Forums

(Advanced Search)

Forum Statistics

» Members: 277
» Latest member: Elemento26
» Forum threads: 1,087
» Forum posts: 6,490

Full Statistics

Online Users

There are currently 108 online users.
» 0 Member(s) | 105 Guest(s)
Applebot, Bing, Google

Latest Threads

GuSprites
Forum: Help & Support
Last Post: zedex82
2026-06-19, 06:39 PM
» Replies: 2
» Views: 355

New video Couse / Nuevo c...
Forum: News
Last Post: Duefectu
2026-04-29, 11:02 PM
» Replies: 0
» Views: 2,699

location of heap manageme...
Forum: Help & Support
Last Post: boriel
2026-03-07, 12:13 AM
» Replies: 1
» Views: 745

non-paged supervisor code...
Forum: Help & Support
Last Post: sdo303
2026-02-20, 06:38 PM
» Replies: 8
» Views: 1,848

How to open fuse as an ex...
Forum: How-To & Tutorials
Last Post: Duefectu
2026-02-09, 01:52 PM
» Replies: 3
» Views: 1,742

Old zxbasic game errors
Forum: Help & Support
Last Post: boriel
2025-11-09, 11:52 AM
» Replies: 7
» Views: 2,538

Error: Undefined GLOBAL l...
Forum: Help & Support
Last Post: ardentcrest
2025-11-04, 05:46 PM
» Replies: 3
» Views: 1,395

A Fast(er) Plot Routine f...
Forum: How-To & Tutorials
Last Post: tubz74
2025-10-30, 03:16 PM
» Replies: 2
» Views: 1,479

Hall of Fame - Include fo...
Forum: How-To & Tutorials
Last Post: tubz74
2025-10-28, 03:48 PM
» Replies: 0
» Views: 819

[SOLVED] Array layout bug...
Forum: Bug Reports
Last Post: Zoran
2025-10-25, 05:48 PM
» Replies: 2
» Views: 1,539

Cargas de Produndidad / Depth Charge

Posted by: oblo - 2018-11-04, 06:47 PM - Forum: Gallery - Replies (12)

Hi all, long time no see Smile

Thanks to some spare time, I had the opportunity to retake the speccy programming, so here is my last creation: a clone of the Depthcharge arcade game. Nothing fancy, but at least I could have some fun developing for ours old but reliable Spectrums.
Game mechanic is simple: move your ship left and right and drop charges to destroy submarines, while avoiding their missiles. Number of submarines and missiles can be chosen at each game start.
[Image: Capture.jpg]

The file attached contains:
- .TAP Spanish version
- .TAP English version
- Source code for both versions
- A 'readme.txt' file

Hope you enjoy and as always, any comments are welcome. Cheers!

Attached Files
.7z

Cargas-Depthcharge.7z (Size: 13.15 KB / Downloads: 1,173)

Compiling +D G+DOS programs

Posted by: merlinkv - 2018-10-28, 08:40 PM - Forum: ZX Basic Compiler - Replies (4)

Hello.

I have a lot of programs written in the +D G+DOS, but I have problems when I try to compile commands like: LOAD D*"filename" or LOAD d1"filename".

None of the commands to load or save files, or format disks, can be compiled.

The +D ROM is completely disassembled (<a class="postlink" href="http://www.biehold.nl/rudy/plusd/plusd.htm">http://www.biehold.nl/rudy/plusd/plusd.htm</a>) but I don't have the knowledge to work from Basic with the +D "Machine Code".

Maybe it's possible to add in the future some options in the ZX Basic Compiler to allow work with G+DOS programs?

Thanks Smile

¿Qué tutorial se me recomienda para empezar a usar ZXBasic?

Posted by: Turriano - 2018-10-14, 05:39 PM - Forum: How-To & Tutorials - Replies (1)

	Y ya puestos a pedir, si puede ser en español mejor B-) --------------------------------------------------------------------------------- And already put to ask, if it can be in Spanish better B-)

bug on "if", "end if", etc.?

Posted by: nitrofurano - 2018-09-30, 01:15 PM - Forum: Help & Support - Replies (1)

when trying to compile this code on 1.8.8:

Code:
dim i as ubyte
i=3
if i>2 then:
  print "3>2"
  end if
do:loop

i get this error message when compiling

Code:
endifbug.bas:5: Syntax Error. Unexpected token 'IF' <IF>

on other few tests i tried, the same happened on "end if"

bug on --org command line argv, missing hex address support

Posted by: nitrofurano - 2018-09-29, 12:03 PM - Forum: Bug Reports - Replies (2)

Since always i used hex values on --org command line argument (zxb.py), it always worked until few months ago - like:
zxb.py code.bas --org=0xC000

Now, since it stopped working, i had to fix all the code i had to something like:
zxb.py code.bas --org=$((0xC000))
(i only tested it on Ubuntu GNU/Linux - i have no idea how fine it works on other operating systems and distributions)

i have no idea what caused that... perhaps some code cleanup on ZX-Basic Compiler? or something else?

bug on mod (*solved*)

Posted by: nitrofurano - 2018-09-29, 11:36 AM - Forum: Bug Reports - Replies (1)

since few months ago i noticed some weird behaviour from mod operand

Code:
dim i as uinteger
cls
do
for i=0 to 65535
print at 9,9;chr$( 48+(i mod 10) )
print at 9,8;chr$( 48+(int(i/10) mod 10) )
print at 9,7;chr$( 48+(int(i/100) mod 10) )
print at 9,6;chr$( 48+(int(i/1000) mod 10) )
print at 9,5;chr$( 48+(int(i/10000) mod 10) )
next
loop

as happened months ago, it is supposed to display a number on screen ranging from 0 to 65535, but the result gets totally messy
(tested on version 1.8.5 now, the result is as messy as 1.6.12)

Looking for an Inkey$ routine.

Posted by: ardentcrest - 2018-09-16, 01:54 AM - Forum: Help & Support - Replies (12)

I'm thinking of re-doing my spectranet client but I need a good inkey$ input routine. the one I have ether misses keys presses or does multi letters.

I am using

#include <input.bas>
#include <keys.bas>

Code:
MAIN:
   NETmainloop()
   gosub NETinputloop
   NETmainloop()
goto MAIN

NETinputloop:
    for timeout=0 to 1500 : next timeout
   if rowx=0 then printat64(22,0):print64(xx$+" "):goto NetJump1 : end if


   FOR ii = 0 TO rowx : printat64(22,ii):print64(chr$(peek (@MyLabel + ii))) : NEXT ii : print64(xx$+" ")

NetJump1:
   let k=code inkey$ : for timeout=0 to 1500 : next timeout
   if k>31 and k<128 then goto NetKeyPress : end if
   if k=13 then goto senddata : end if
   if k=12 then goto NetDeleteKey : end if
return

NetDeleteKey:
   if rowx=0 then goto NETinputloop : end if
   POKE (@MyLabel + (rowx-1)), 0
   let rowx = rowx - 1
return

NetKeyPress:
   if rowx=length then goto NETinputloop : end if
   POKE (@MyLabel + rowx), k
   let rowx = rowx + 1
return

senddata:
printat64(22,0):print64("                                                            ")
   POKE (@MyLabel + rowx), 13
   POKE (@MyLabel + rowx+1), 10
   poke (@MyLabel2),(rowx+2)
poke (@MyLabel2+1),0
   send2()
NETline()

for ii=0 to rowx+1 : POKE (@MyLabel + ii), 0 : next ii

let rowx=0
return


END

any hekp

[msx] v9990 experiences

Posted by: nitrofurano - 2018-09-09, 10:00 AM - Forum: Other Archs - No Replies

	starting some experiences using Yamaha v9990 display processor - <!-- m --><a class="postlink" href="https://gitlab.com/nitrofurano/borielzxbasicexamples/tree/master/examples/z80/msx/demos/Experiences_Video9990">https://gitlab.com/nitrofurano/borielzx ... _Video9990</a><!-- m -->

Inconsistency in RND

Posted by: Alessandro - 2018-08-05, 07:21 PM - Forum: Help & Support - Replies (5)

If I write this simple program:

Code:
DIM u as UBYTE
10 let u =rnd*40
  print u
  pause 0
  if code inkey$=13 then stop
40 goto 10

a number between 0 and 40 will be shown at every pressing of ENTER.

However, inside of a larger program, this instruction:

Code:
DIM x AS UBYTE
...
x = rnd*40

always returns 38 when executed.

Also, the RND of the first example always returns exactly the same sequence when started afresh, at least under emulation (Spectaculator): 9, 34, 15, 7, 16, 25, 13, 37, 7, 24, 19 etc.

In the past I used a simple routine (by John Connolly) to generate random numbers. Here it is, modified to let it return values from 0 to 31:

Code:
LD A,R
AND %00011111
LD (address),A

When placed in a ZX-Basic listing as a subroutine, it will always return the first value. The only way to make it work is to assemble it elsewhere and call it from within ZX-BASIC with the usual RANDOMIZE USR call, then assign the PEEK [address] to a variable.

FZX support

Posted by: Alessandro - 2018-07-31, 08:11 AM - Forum: Help & Support - Replies (5)

	Is there a way to implement FZX? The compiler won't accept the PRINT#4 command, whereas, for instance, HiSoftBasic will.

Pages (101): « Previous 1 … 25 26 27 28 29 … 101 Next »

Login
Username:
Password:	Lost Password?
	Remember me