-
Image to ZXSpec 1.0Hi, I've written a piece of software (still not finished) that outputs any kind of image onto a Spectrum having being converted on a PC. It takes a…
... give an example of how to do this?
Thanks ... in program, you can then poke 512 Bytes from Adress 23760 ... ***
10 for a=0 to 255
15 poke 23760+a,a ...
20 next a
30 for a=0 to ... -
Image to ZXSpec 1.0Hi, I've written a piece of software (still not finished) that outputs any kind of image onto a Spectrum having being converted on a PC. It takes a…
... in program, you can then poke 512 Bytes from Adress 23760 ... ***
10 for a=0 to 255
15 poke 23760+a,a ...
20 next a
30 for a=0 to ... You've mentioned it has to be the first line, I ... 'd have to define characters to use in the REM ... -
MGT image format and file systemHello, I'm working now on the M.G.T. file support for my ZX-Modules applications. I've collected some data sheets and most of them describe the inte…
... that I was able to identify the data on ... random bytes}
10 FOR n=1 TO 50
15 LET ... 800
30 NEXT n
This seem to work perfectly, ... normal? I used ZX-Spin for this tests...
to restore the original files that ... -
Problem with loopingHi all, I'm looking for a way to code a loop into my program and then allow the computer to come out of that loop by itself. Is such a thing possibl…
... /> Even for the lowly FOR NEXT loop it's easy to bail whenever ... you want:
10 input a$
20 for n ... = 1 to 10
30 print n
40 if ... a$="bail" then let n ... -
Arcade Game Designer 2.0 releasedI know dozens of you downloaded the previous version of AGD. Well, you can put it away now because I've made some major improvements to that version…
... no assemblers for the Mac, so it's got to be something ... is a way to use a debugger and just poke in the ... />
10 FOR n=35792 TO 35799: READ a: POKE n,a: NEXT n
20 ... />
That should patch things for you - just start the game ... -
Arcade Game Designer 2.0 releasedI know dozens of you downloaded the previous version of AGD. Well, you can put it away now because I've made some major improvements to that version…
... , followed by LOAD ""CODE to load your saved game.
10 FOR n=35792 TO 35799: READ a: POKE n,a: NEXT n
20 ... />
That should patch things for you - just start the game ... 35800.[/QUOTE]
Thanks for the quick response on that :) -
2 questions about matrix and string handlingI was never good at understanding how to do something random in Sinclair Basic without repeating something that was already done. Had problems unders…
... of 10 x 10 set for a [URL="http://www. ... 10,10) and line 1, for example, is "XZGASMANRT"), I already ... br /> 20 FOR N=1 TO 10
30 IF W$=A$(N) THEN STOP ... : REM FOUND
40 NEXT N ... 10) : REM ALWAYS SIZE 10 for ANY word in W$
2 questions about matrix and string handlingI was never good at understanding how to do something random in Sinclair Basic without repeating something that was already done. Had problems unders…
... l = LEN a$
30 FOR n = LEN a$ TO 2 STEP -1
for each direction you are investigating you will try to match to all ... at the string index for the state correspnding to first letter=A ... . Do the same for each initial letter corresponding to a word in ...Question about operations and target numbers[size=1]Title should say *operators. It's been a long day.[/size] :p One of the homework problems my kids are working on consists on using a set of …
... just to make it easier for my ... 4): FOR b=1 TO 4: INPUT "n.";(b);": ... /> 13 PRINT "Searching for possible","expressions..."
... 30 FOR a=1 TO 4: FOR b=1 TO 4: FOR c=1 TO 4: FOR ... d=1 TO ... FOR x=1 TO 4: FOR y=1 TO 4: FOR z=1 TO<…Req' Help with Random numbersHello all, im new to the forum, i hope im putting this in the right place ... I would like to ask a question in the hope someone will be able to as…
... with numbers 1 to 100 like previously ... .
(don't need to sort them)
30 DIM a(a)
40 REM Populate Array
50 FOR n ... =1 TO a: LET a(n)=n: NEXT n
... 60 REM Choose random numbers
70 FOR n=a TO ...Req' Help with Random numbersHello all, im new to the forum, i hope im putting this in the right place ... I would like to ask a question in the hope someone will be able to as…
... list to do whatever you want to do, rather than having to write ... DIM n(5)
20 INPUT a$
30 FOR i = 1 TO 5 ...
40 LET n(i) = VAL ... would then refer to the variables as n(1), n(2) and so ...How paint in the down two lines ?The down two lines on the spectrum screen cant be used. But i remeber from the 80's that exist some code that allow us to paint on these two lines wi…
... lines:
30 BORDER 6
40 FOR N=0 TO 23
50 ... PRINT "THIS IS LINE: ";N
60 NEXT N ... BORDER 4
160 FOR N=95 TO 1 STEP -1
170 ...Die Rolling sound?Digging out my old Fighting fantasy programs (so far unsuccessfully... thanks c60) had me wondering how I'd program it these days. Hopefully better,…
... the rhythm needs adjusting to match that of dice ... bouncing. Something to experiment with, anyway.
... FOR a=USR "a"-10 TO USR "a"-1: READ b: POKE ... 3,201
3 FOR n=1 TO 8: LET a=USR ... which it occurred to me was similar to the click of ...Message to all programmersHello folks, more and more programmers in the recent time are using special loading routines for their Homebrew-Software. This makes their game runn…
... a bad time. I apologise for any insult given.
FOR n=0 TO 7
20 OUT 32765, n+8
30 LOAD (STR$ n ... ) CODE 49152
40 NEXT n
to be careful not to overwrite anything when I ...Help with a basic programI'm doing a very small basic program which I know is bloated, but it works. (I have limited basic knowledge compared to most on here). I just wondere…
... )
20 FOR N = 1 TO 8: READ P$(N): NEXT N
30 DATA "ONE ... code
40 LET N=8
50 INPUT "Which ... /> 60 IF X > N THEN GO TO 50
70 LET ... /> 80 LET P$(X)=P$(N): LET N=N-1
90 PRINT ... C$
100 IF N >0 THEN GO TO 50storing level datahi everyone im using arrays to store level data. its not working. just to set up the walls takes an array of size 92*2 is there a better way?
... FOR n=0 to 31
2 let a(n, 6) = n
3 next n ... cannot have a subscript to an array of zero ... So your code would need to look something like:
... for n=0 to 31
30 let a(n+1,6)=n
40 next n ... the available RAM is limited to 48K.
...DRAW x,y,a Algorithm - how does the ROM do it?Hi all, Getting on with SpecOS, and one of the things I would love to do is to preserve the original ROM's behaviour when drawing Arcs. This is don…
... up and into a .tap for you :-)
Looks like ... a suitable starting position
30 INPUT "X value ";X: PRINT ... INPUT "Limit angle to 2*PI (y/n)?";R$: IF R ... DRAW A LINE' from lastposition to X,Y
510 LET ... (B/2)
630 FOR N=B TO 1 STEP -1
...New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
... /> [CODE]
FOR i=9 TO 46:
FOR j=1 TO 4:
POKE (t(i)=0)*n,21:
[/CODE ... /> FOR i=9 TO 46:
POKE (t(i)=0)*n,21:
FOR j ... =1 TO ...New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
... POKE n+73,7:
CLS :
DIM t(49):
FOR ... x=1 TO 7:
FOR y=1 TO 4 ... FOR i=7 TO 37:
POKE (t(i)=0)*n,33:
FOR ... j=1 TO ...
[CODE]
POKE (b4)*n,13:
[/CODE]
New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
...
[CODE]
POKE n+73,7:
[/CODE]
FOR x=1 TO 7:
FOR y=1 TO 4: ... INKEY$-48:
POKE (b4)*n,13:
LET ... FOR i=7 TO 37:
POKE (t(i)=0)*n,33:
FOR ... j=1 TO ...New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
[QUOTE=Einar Saukas;480658]Even better, replace this:
[CODE]
POKE (g=0 OR g>256)*n,12:
[/CODE]
with this:
[CODE]
POKE (g*(257-g)Sorting an array...Hi Folks, Over the weekend I had a play with sorting algorithms - takes me back to my student days! :-o My first try was with the good old Bubble S…
... : DIM p$(nelem,1): FOR n=1 TO nelem: LET
... NEXT n
20 GO SUB 1000
30 LET t1 ...
1000 FOR n=1 TO nelem: PRINT p$(n);" ";: NEXT n: PRINT : RETURN ... pv)
4002 FOR i=fr+1 TO end
4005 ... upon the right choice for the pivot. A naive ...Sorting an array...Hi Folks, Over the weekend I had a play with sorting algorithms - takes me back to my student days! :-o My first try was with the good old Bubble S…
... 0: DIM p$(nelem,1): FOR n=1 TO nelem: LET
... ): NEXT n
20 GO SUB 1000
30 LET t1 ...
1000 FOR n=1 TO nelem: PRINT p$(n);" ";: NEXT n: PRINT : RETURN ... $(pv)
4002 FOR i=fr+1 TO end
4005 ... but it never seems to finish even if I ...Cool BASIC tricks and tips!Following on from Dunny's excellent suggestion of a compendium of BASIC tips + tricks, I believe it would be better to have a topic dedicated to it. …
... because I do not want to trample on anybody's toes ... with regard to copyright and suchlike).
n=12
20 LET a ... : LET adif=2*PI/n
30 FOR i=1 TO n
40 PLOT ...Oscilloscope Speccy ProgramHi all, I remember very well in the old days when my Speccy was my single computer (around 1992) that I have had an oscilloscope software. This uses…
... of range. However, changing it to start with LD BC,$AF00 ... /> 410 FOR N=TONE TO TONE+21: READ
D: POKE N,D: NEXT N: RETURN ...Oscilloscope Speccy ProgramHi all, I remember very well in the old days when my Speccy was my single computer (around 1992) that I have had an oscilloscope software. This uses…
... order byte to the value n from IN A,(n), so the ... ... I changed the routine to do the same, as below ... than 175 is returned for the Y co-ord. ... bit annoying; I may have to start throwing things.
... 410 FOR N=TONE TO TONE+19: READ D: POKE N,D: NEXT N: RETURN< ...Recursive 4-way floodfillHi guys) Shortly, I wanna find out whether there's a way to some object. Perhaps some of you have already encountered such an issue which is relativ…
... key is how to draw shapes' boundaries: for non horizontal lines, ... is drawn from 30 to 80 and substitute it for a circle ... /> GO SUB 1000
30 FOR i=0 TO 2*PI STEP PI ... ,yc=center
1010 FOR n=0 TO r*2-1
... 1020 LET y=n-r
...Fast LogsAnyone know of a fast ln function I can steal? The ROM function seems to be hideously slow. I wrote a look-up table dirty and less accurate sin func…
... that extra space was required for routines to work through the variable ... FOR N = 1 TO 100
20 IF SQR N = INT(SQR N) THEN PRINT N ...
30 ... NEXT N
or ...Copying a SCREEN$ in ZX BASIC in 1 second?!Following on from the revived "[thread=20207]Saving a complete SCREEN$ in BASIC[/thread]" thread (although Arjun really only needed a suitable POKE i…
... , allocated in line 30, with the requested parameters for up to two (optional ... obviously only makes sense to use it for large chunks where a ... $ FN h(l)
30 GO SUB 32: CLEAR udg ...
33 FOR m=1 TO 18: POKE deftmp+m-1,CODE ...Back to BASIC[U][B]Archaeology guide to programs compiled used MCODERII.d[/B][/U] After various people have been talking about "Frank'n'stein" I decided to finis…
... /> LD (51023), HL ; 28137 34 79 199
LD HL, 1 ... DE, (51023) ; 28159 237 91 79 199
LD BC, (51025 ... : POKE 23607,222: POKE 59197,0: POKE 53795,1: POKE 53796,0: FOR x=23510 TO ...
