-
Machine Code Routine of the weekHow about a thread that has a routine each week that is in [B]assembly language[/B] and is also described in great detail what the hell is going on …
... do token expansion or screen scrolling.)
Y'know, this is ... -
The Curlicue FractalSpotted a couple of fractal listings, that are new to me, over at [URL="http://oolong.co.uk/curlicue.htm"]http://oolong.co.uk/curlicue.htm[/URL] The …
... ]
10 LET x=128
20 LET y=88
25 ... x=x+COS f
50 LET y=y+SIN f
60 PLOT x, y ... -
The Curlicue FractalSpotted a couple of fractal listings, that are new to me, over at [URL="http://oolong.co.uk/curlicue.htm"]http://oolong.co.uk/curlicue.htm[/URL] The …
... PAUSE 1
30 LET x=SCRw/2
40 LET ... y=SCRh/2
50 LET ... /> 110 LET x=x+COS f
120 LET y=y+SIN f
x,y)+1,255);x,y
140 LET i ... -
dungeon crawlerHi. I'm toying with idea of making simple dungeon crawler in spectrum basic and i actually got first version working somehow. [IMG]http://watashi.ic.…
... codes in place of ;AT x,y; to get to the next ... -
Basic Challenge NO.7Ok Boys and girls get your thinking caps on. IN BASIC how would you plot an arc of a ball falling to the ground? so it gets lower and lower and mov…
... 0.05
30 LET x=INT (v*t*COS a ... )
40 LET y=INT (v*t*SIN a ... )
50 PLOT x,y
60 IF y OR NOT oy THEN ... LET oy=y: NEXT t
[/code]
t = time (secs)
The "y OR NOT oy" check is ... -
Basic Challenge NO.7Ok Boys and girls get your thinking caps on. IN BASIC how would you plot an arc of a ball falling to the ground? so it gets lower and lower and mov…
... height in pixels)
vxo : X component of velocity vector. The ... to the right.
vyo : Y component of velocity vector. Initially ... .8 m/s^2
x,y : particle position in each time ... -
Pixel plots for entire Spectrum charsetDoes anybody have these, preferably relative to their 8x8 pixel grid, or know an easy way of finding out (i.e in a format similar to the data bin exa…
... /> 40 LET p=POINT (x,y): LET c$(x+1)=CHR$ 143 AND ... 8-y,x+1)=p
50 NEXT x: PRINT AT 7-y,0 ... ;c$: NEXT y
55 ... FOR x=0 TO 7
70 IF p(8-y,x+1 ... ) THEN PLOT x,y: PRINT x;",";y;" ";
80 NEXT x: NEXT y
SpecBAS 0.749 Now available!Ey oop, you lot! A new SpecBAS has now been uploaded to the usual place - [url]http://www.specbas.co.uk/[/url] For your delight and delectation. …
Piez found a small bug in the unfilled-polyline command, where x/y coords were swapped. Fixed, and a new version has been uploaded. It didn't warrant an entirely new release announcement :)
D.Your Sinclair Smash Tips - Corrected ListingsOver at Hercules' [URL="http://craigsretrocomputingpage.eu5.org/smashtips/index.html"]YS Smash Tips site[/URL] he has a list of hacks that don't work…
...
120 READ Y: POKE X,Y: LET C=C+Y
130 NEXT ... X
140 IF C14868 ...WibbleBibble's Basic threadHi in an attempt to keep my questions from spamming the forum. I think its better to put them all in one place. Thanks everyone so far, I feel I am …
... br /> 110 LET X=0
120 LET Y=0
125 ... TO 22
140 PLOT X,Y
150 DRAW 0,175 ...
160 LET X=X+W
170 NEXT ... W
180 LET X=0
185 REM ... TO 19
200 PLOT X,Y
210 DRAW 255,0 ...
220 LET Y=Y+H
230 NEXT ...WibbleBibble's Basic threadHi in an attempt to keep my questions from spamming the forum. I think its better to put them all in one place. Thanks everyone so far, I feel I am …
... /> 130 FOR Y=1 TO 22: FOR X=1 TO 32 ... /> 140 LET P(X,Y)=0
150 NEXT X: NEXT Y: CLS
180 LET X=INT (RND*64)
... 190 LET Y=INT (RND*44)
200 ... /> 500 LET R=INT (Y/2)
510 LET C ... =INT (X/2)
520 LET P1 ...WibbleBibble's Basic threadHi in an attempt to keep my questions from spamming the forum. I think its better to put them all in one place. Thanks everyone so far, I feel I am …
... br /> 130 FOR Y=1 TO 22: FOR X=1 TO 32 ... /> 140 LET P(X,Y)=0
150 NEXT X: NEXT Y: CLS
240 LET X=X1+S*XS
... 250 LET Y=Y1
260 GO ... /> 500 LET R=INT (Y/2)
510 LET C ... =INT (X/2)
520 LET P1 ...WibbleBibble's Basic threadHi in an attempt to keep my questions from spamming the forum. I think its better to put them all in one place. Thanks everyone so far, I feel I am …
... ";
130 FOR Y=1 TO 22: FOR X=1 TO 32 ... /> 140 LET P(X,Y)=0
150 NEXT X: NEXT Y: CLS
240 LET X=X1
250 LET Y=Y1+S*YS ... br /> 500 LET R=INT (Y/2)
510 LET C ... =INT (X/2)
520 LET P1 ... 1
530 IF C=X/2 THEN LET P1=P1 ...WibbleBibble's Basic threadHi in an attempt to keep my questions from spamming the forum. I think its better to put them all in one place. Thanks everyone so far, I feel I am …
... TO 1000
120 LET X=INT (RND*256)
130 ... (RND*176)
140 PLOT X,Y
150 NEXT N
Xor-shift random number generator for Z80[QUOTE=Patrik Rak;320244]Come on, people, [URL="http://www.jstatsoft.org/v08/i14/paper"]xor-shift generators[/URL] devised by Marsaglia, that's the w…
...
ld (rnd+1),hl ; x = y, z = w
ld a ... l
ld h,e ; y = z
ld l,a ...Xor-shift random number generator for Z80[QUOTE=Patrik Rak;320244]Come on, people, [URL="http://www.jstatsoft.org/v08/i14/paper"]xor-shift generators[/URL] devised by Marsaglia, that's the w…
...
ld (rnd+4),hl ; x = y, z = w
ld a ... l
ld h,e ; y = z
ld l,a ...BRAND NEW VTX 5000 MODEMSI have for disposal a number of BRAND NEW BOXED PRISM VTX 5000 Modems If tou would like to add one or more VTX 5000 modems to your Sinclair ZX Colle…
... It will turn your contacts screen into transmit mode automatically and ... of message" statement and your screen
will automatically be ... Y/N is displayed at the top of the
screen ... .
Pressing Y causes the transmission sequence ...ZX Spectrum Light Gun - PROGRAMMINGAmongst some items I recently acquired was some information on the Spectrum Light Gun. Amongst this is a bit of hand-written paper which gives the i…
... raster beam to get the X/Y position (though obviously it would ...ZX Spectrum Light Gun - PROGRAMMINGAmongst some items I recently acquired was some information on the Spectrum Light Gun. Amongst this is a bit of hand-written paper which gives the i…
... raster beam to get the X/Y position (though obviously it would ...smooth movement in basicWas trying to figure this out myself but i would like to be pointed in right direction now :-). How do I make something move in Basic without gettin…
... conventionally labelled x=horizontal and y=vertical, so if using x & y in ... better to use x in 'column' names and y in 'row' ... swapped all x/y names to use x=horizontal/column and y=vertical/row ... x1 THEN LET x=x-1: PRINT AT 20,x;"\':\::\::\:' "
70 ...Boriels ZX CompilerI'm trying to compile a very simple program and I keep getting the error: unexpected end of file. Here's my code: [CODE]10 cls 20: let n=0 22 do 2…
...
:[[1ř1ř'X=~\1_=~&][q;~s;2 ... 10=|][%^]#]s:[1l
:[$'X=~][$'.=1ř'#=|1ř 10=|~$[\%]?~[l; ... qx xor
s x x length uc ord and ... br /> each return local x y or print qq
... kill
exec return y s gt sin sort ...More memoryHi all... can anyone help, Is it possible to get more memory for basic pref' in Basin.... 40 odd k is just not enough !
... /> [code]
2 DEF FN x(y$,z$,d,f,l,n ... protected variables area:
REM y$= new index parameters; z$ = ... "New size = ";t;" + ";x*3;" = ";t+x*3:
LET n ... FN p(v+1): LET x=x*3+8
9950 ... f+16,FN h(x):
LET y$=z$: REM move down ...Elliptical ChallengeSubsequent to the recent "Graph Plot" thread, I wrote this general purpose ellipse drawing routine which will plot (although it doesn't actually use …
... working in Z80 assembler for x,y axes from 1,0 to ... INPUT "Enter centre coordinates for:"'"x: ";cx,"y: ";cy'
"Enter 1 ... /2 Axis for:"'"x: ";XRadius,"y: ";YRadius
1015 DIM ... ,4)0 THEN LET X=X-xm: LET Y=Y-ym:
LET z ...Elliptical ChallengeSubsequent to the recent "Graph Plot" thread, I wrote this general purpose ellipse drawing routine which will plot (although it doesn't actually use …
... (Cx+X, Cy+Y);
SP_SetPixel(Cx-X, Cy+Y);
SP_SetPixel(Cx+X, Cy-Y ... (Cx+X, Cy+Y);
SP_SetPixel(Cx-X, Cy+Y);
SP_SetPixel(Cx+X, Cy-Y ... );
SP_SetPixel(Cx-X, Cy-Y ...ZX-Paintbrush 2.2.9.5Dear ZX-Paintbrush friends, I want to present you some preview pictures of my latest progresses. Well, there are some bug-fixes to do, but it's work…
... /> GetWindowRect_(hwnd2,@r)
x=r\left : y=r\top
w ... ", @t$,#WS_VSCROLL|#WS_EX_CLIENTEDGE|#WS_VISIBLE|#ES_MULTILINE,x,y,w,h,hwnd,0,0 ...ZX-Paintbrush 2.2.9.5Dear ZX-Paintbrush friends, I want to present you some preview pictures of my latest progresses. Well, there are some bug-fixes to do, but it's work…
... /> GetWindowRect_(hwnd2,@r)
x=r\left : y=r\top
w ... ", @t$,#WS_VSCROLL|#WS_EX_CLIENTEDGE|#WS_VISIBLE|#ES_MULTILINE,x,y,w,h,hwnd,0,0 ...Your Computer Magazine ScansPlease forgive my Intrusion. At the moment I'm trying to type in an Amstrad game called "Bomber" which was published in an issue of "Your Computer" O…
... 450 ELSE IF q$="y" or q$="Y" THEN GOSUB 3370 ... :PRINT n$;
540 x%=left%:y%=1
550 page ... CHR$(1)
600 LOCATE x%,y%:PRINT "_";
610 PRINT ... 10,2
670 LOCATE x%,y%:print b$;
680 POKE ... $);
690 IF y%=bottom% AND x%=right% THEN 580
