-
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…
... good at understanding how to do something random in ... of 10 x 10 set for a [URL="http://www. ... 10,10) and line 1, for example, is "XZGASMANRT"), I ... for x = 1 to n : rem n = 10 here
20 for y = 1 to n
30 ... if a$(y,x) = w$(1) then go to ... -
John Grant InterviewHere is an interview, from Tuesday, with John Grant - director of a 'small firm of Cambridge mathematicians' (ZX81 manual) who wrote Sinclair BASIC f…
... n$(4,7): DIM n(4): REM players' names
30 ... = "North"
100 FOR i = 1 TO 4
110 INPUT ... 300 FOR i = 1 TO 4
310 INPUT (n$(i, TO n(i));"' ... 510 FOR i = 1 TO 3
520 FOR j = i + 1 TO 4 ... 2010 CLS
2020 FOR i = 1 TO 4
2030 LET ... -
ZXSpin 0.7 public testingOk, now that the private testing phase is over, I need to get more people testing ZXSpin 0.7 I am not terribly interested in emulation problems, bec…
... ?
[QUOTE=Hern?n;396614]Dunny,
Direct3D ... br /> 10 FOR f=0 TO 7 STEP 2: POKE USR "a"+f ... ,170: POKE USR ... "a"+f+1,85: NEXT f: FOR f=0 TO ... turbo loader. You could download for testing from here: [url] ... -
Converting games from tap to dskHi to all from Greece, Being an old Speccy user and now owner of most models of Spectrum (48k , 48k+ , 128K, +2 grey and +3) , I desided to salvage m…
... j=0
15 POKE 23739,111: LOAD "terramex.scr ... "CODE
20 FOR X=1 TO 4 : READ A: ... 28: NEXT X
30 LOAD "terramex.bin"CODE
For basic loader.
... . What are the calls for disk loading directly into banks ... -
BEEP pitch values for key of G?I've been transcribing a listing which is supposed to include a DATA statement with the pitch values for the key of G. What it's got is: DATA 5,7,9,…
... 84)
20 FOR f=1 TO 84: READ s(f ... Lydian "
50 FOR r=1 TO 4
60 BEEP ... ": LET chord=12: GO TO 50
100 IF chord ... ": LET chord=24: GO TO 50
110 IF ... 72: GO TO 50
150 IF chord=80 THEN GO TO 30 ...
160 GO TO 50
... -
'orange' on a spectrumalways wondered why spectrums could never seem to achieve the colour orange? wasn't one of the default colours, and don't remember seeing anything th…
... /> 20 LET syspage=23388
30 LOAD !"scr"CODE 49152
FOR i=1 TO 5: CIRCLE INK 3 ... 0: POKE syspage,31: GO TO 200
300 POKE syspage,23: POKE syspage ... ,31: GO TO 300 ... -
Playing AY sounds with BASIC.Is it possible? If so how? I've seen in one forum a while back mention of using interrupts to play but AFAIK this is machine code only. The goal of …
... . You just write values to the AY data ports using ... /> 20 RESTORE 1000+10*n: FOR i=0 TO 13: READ a: OUT ... a: NEXT i
30 GO TO 10
1000 DATA 100 ... , but it can be useful for some things.
... account and write proper values to the ports. You can ... -
Crap games that you fondly rememberCant remember if this ones been done before tbh, but we always have classic games threads so heres one slightly different :P what crapper games do yo…
... s Making Whoopie. Played this for absolutely ages hoping something interesting ... ]
I used to play Dangermouse in Double Trouble ... [QUOTE=ToxieDogg;450327]I used to think that Spiky Harold was ... get about 28 of the 30 fruits n' berries or whatever the ... -
Merlin has risen from the grave!Those of you following the Merlin saga [thread=29902]over here[/thread] might be slightly interested to know that the program is now available in the…
... enough to prove it.
For anyone wanting to try level 'n', after ... :
from BASIC, type POKE 26790,n: RANDOMIZE USR 30950;
... program setup routine, so the POKE alters a LD A,1 ... setting the "moving right" flag to 'n' as well, but that soon ... -
Retro Computer Games Festival 9th-11th July, SurreyJust going to cross-plug this: [URL="http://www.retrocomputergamesfestival.com/"][IMG]http://www.retrocomputergamesfestival.com/images/RCGF-Sig.png[…
... at around 11:30 ( half an hour to doors opening ) ... and other bits n bobs for people to get hands on ... with?
Now for ... weekend wasn?t going to allow for it. Plug in the ... I get invited to contribute to any future events they ... -
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…
There's no simple POKE to change the pitch in higher ... POKE 23562,n. On reset this is set to 5, and AGD defaults to ... 3. POKE ... it to 1 for the fastest rate. This ... -
Z80 Machine Code Question...Hi Folks, I know not strictly a BASIC question but I have started to learn Z80 machine code - 25 years too late! :smile: I have been reading a book…
... Guys,
Thank you for the information and it works ... "]10 FOR L=16384 TO 22527
20 POKE L,255
30 NEXT ... /> This program takes 45 seconds to run on BASin but the ... -
Location of variableHi everyone When basic makes an array how to you find out the location in the ram of where the data is stored. :) Also, does it store the values in…
... Red, Green & White
30 BRIGHT 1: BORDER 0: PAPER ... 15,20)
45 FOR l=1 TO 10: NEXT l
n$)
9220 PRINT n$( TO 8);TAB 9;t ... VAL$ (n$)
9320 PRINT n$( TO 8);TAB 9;t$( TO 6);TAB ... 16;VAL$ n$
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…
... br /> BORDER 1:
POKE n+73,7:
CLS :
FOR b=2 TO 29:
LET ... z(b)=INT (RND*9)+1:
FOR ... a=1 TO z(b):
PRINT ... so perhaps there's opportunity for more optimizations here, but ...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 (t(m)=p)*n,29:
NEXT e:
FOR f=1 TO ... /> POKE (k8)*n,14:
LET b=k*3:
FOR a=0 TO ... 15 STEP 3:
POKE (t(k ... /> POKE (t(m)=p)*n,29:
NEXT e:
FOR f=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 23693,5:
CLS :
DIM t(87):
FOR x ... =1 TO 7:
FOR y=1 TO 7:
POKE (8*c30):
LET ... ;30)+(c7)):
LET g=t(k):
FOR y=0 TO ... BEEP (y>01):
POKE (t(x-d)*t(x ...numbers to binaryHi everyone, I have looked through the manual and have found nothing. How do you change a number to binary easily? I know you can go binary to decim…
... ): ";n
20 FOR a=0 TO 1:
FOR b=0 TO 1:
FOR ... TO 1:
FOR g=0 TO 1:
FOR h=0 TO 1
30 ... LET n$=STR ...numbers to binaryHi everyone, I have looked through the manual and have found nothing. How do you change a number to binary easily? I know you can go binary to decim…
... ? (0-255): ";n
30 RESTORE: FOR i=0 TO INT (n/16): READ h ... $: NEXT i
40 RESTORE: FOR ... i=0 TO n ... -16*INT (n/16): READ l ...Sprite RoutineI was wondering if anyone could point me in the direction of a really basic example of a per-pixel sprite routine? Preferably commented. The screen …
... FOR X=16384 TO 16384+6144
20 POKE X,255
30 NEXT ... 64, L=0,
To go on byte right you ... (again),L=32
And for the 9th line it would ...
The leftmost byte for line 15th will be H ... /> But what will it be for line 16th?
H=64 ...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. …
... ?
20 LET n=13
30 LET x=127: LET ... B=-4
60 FOR i=0 TO n
70 LET u ... *COS (s+i*2*PI/n)
80 LET v=y ... *SIN (t+i*2*PI/n)
90 IF i=0 ...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. …
... today with trying to get numbes to scroll within a ... character cell (bottom to top). Wrote the ... /> FOR B=C TO C+72:
FOR A=D TO D+ ... 1792 STEP 256:
POKE ... A-D)/256):
POKE A+256,0:
...Mikie tape error?I purchased a copy of this to play on my +2B, but something strange happens once it appears to have loaded. The screen goes black with lots of heart…
... time writing a patch for the original release of ... Mikie for use with a +2A:
FOR C=A TO A+B-1: READ B: POKE C ...
9100 DATA 237,79,205,253
9110 ... 9150 DATA 203,255,237,79
9160 DATA 205 ... it if you want to), run it and then ...Manipulating attributes...Hi Folks, I have written a routine that allows a blue bar to be scrolled up and down a list to select an item. Each item in the list occupies two l…
... PAUSE 1
260 POKE 23693,79
270 PRINT AT y ... AND y0)
THEN
POKE 23693,ar1:
PRINT AT ... y,0;l$(1, TO 32);:
POKE 23693,ar2:
PRINT ... /> 320 STOP [/CODE]
N.B. I know the AR1 ...Compiling Basic to MCHello, I have a lot of long Basic programs. These are mostly strategy programs, good but slow. I was thinking about how to speed them up without com…
... , mainly 'cause coding for an interpreted environment you ... are you going to compile a "INPUT n: GOTO n*1000" line? ...
[code]10 FOR a = 0 TO 9
20 IF ... EVEN": NEXT a
30 IF INT (a/2) a ... and incredibly easy to use, to get used to, and comfortable. ...+2: 128k enhanced games no longer loading (but OK in 48k mode) :-/Having a spot of bother with my +2, a couple of my favourite games are now refusing to work in standard "Tape Loader" based 128k mode - Marauder (Hew…
... =0
20 FOR x=49152 TO 65535
30 POKE x,0:IF ... PEEK x0 THEN PRINT x:GO TO 50 ...
40 POKE x,255:IF ...
This will run for quite a long time! RUN ... and leave for a while. It will print ...SE Basic Type-ins^Pete suggested creating a sticky thread for SE Basic discussion. I thought a Type-ins thread might also be useful. Up to the mods if they want to ma…
... -assemble the font to a tape file for this one. For example:
POKE 23607,248: DIR 8
20 FOR x=32 TO 255
30 ... PRINT CHR$ x;
40 NEXT x
50 POKE 23607 ...SE Basic Type-ins^Pete suggested creating a sticky thread for SE Basic discussion. I thought a Type-ins thread might also be useful. Up to the mods if they want to ma…
... with 8 foreground colours to use for sprites, each of which ... CLUT) which could be used for a side panel.
... br /> 20 POKE USR "a",60
30 POKE USR "a"+1 ... colours
110 FOR i=0 TO 7
120 ... backdrop
170 FOR i=0 TO 21
180 ...Random numbers...Hi Folks, I am not an expert when it comes to random numbers. If I have the RANDOMIZE statement the beginning of a program and then proceed to gene…
... IF INKEY$="" THEN GO TO 20
30 RANDOMIZE
40 IF ... i$"5" THEN GO TO 60
70 POKE 23671, PEEK 23672 ... starts here...
110 FOR a=1 TO 10
120 LET ... option (although RANDOMIZE in line 30 should be executed only once ...Frank N SteinThis one > [url]http://www.worldofspectrum.org/infoseekid.cgi?id=0001849[/url] Always seems to crash about level 7 (maybe a bit more) or so with an …
... the [B]Frank N Stein[/B] code back to MCODER BASIC? Impressive ... IF key=0 THEN FOR i=1 TO 100: NEXT i: GOTO ... GOTO 260
219 POKE 23675,164: POKE 23676,221: GOSUB 1000 ... GOTO 260
229 POKE 23675,78: POKE 23676,222: GOSUB 1100 ...
