-
St. Michael Micromasters: Computer GamesHi, The [URL="http://www.worldofspectrum.org/infoseekid.cgi?id=2000988"]St. Michael Micromasters: Computer Games[/URL] book doesn't currently have a…
... let w=30:let d=21:let g=10:let j ... *j-1:gosub 4000:print chr$(n)
920 let n ... next n:let u$=chr$144:let z$=chr$145
1020 ... ):let w=31:let d=21
200 input"top row ... next n:let u$=chr$144:let z$=chr$145
1020 ... -
Computer BattlegamesBook Title: [B][URL="http://www.worldofspectrum.org/infoseekid.cgi?id=2000080"]Computer Battlegames[/URL][/B] Authors: [B]Daniel Isaaman & Jenny Tyle…
... print
80 let c$=chr$(64+int(rnd*26+1 ...
90 let m$=m$+chr$(int(rnd*26+65))
80 let p$=chr$(int(rnd*58+33))
490 print chr$(w(x,y));
500 ... -
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…
... 2+2*(g>1);CHR$ (143+(g>1)): NEXT ... 6;AT 19,f;CHR$ 131;AT 21,f;CHR$ 140: NEXT f ... ; BRIGHT 1; INK 5;" ";CHR$ 145;CHR$ 146;CHR$ 147;" "
60 GO ... )+2,g+1; INK 4;CHR$ 144: IF a(g)=16 ... -1: PRINT AT x,y;CHR$ 148 AND x>3 ... -
'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…
'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…
Printing in 64 columns, from Basic?Not strictly a Sinclair Basic question but... Is there any known machine code utility that allows something similar to PRINT AT that can be called fr…
...
2008 IF x>21 THEN PRINT #0;"Scroll?": PAUSE ... THEN PRINT AT x,xx;CHR$ (cc): GO TO 2090
CHR$ (cc-32): GO TO 2090 ... THEN PRINT AT x,xx;CHR$ (cc): GO TO 2090
CHR$ (cc+32): GO TO 2090 ...+3 how to detect if a file exist ?Need help. I am making a generic menu to my compilations over the spectrum +3. Exist some way programatically to detect if some file exists on the d…
... it uses. (The example in #21 above is a more concise ... $;".";s$: LET f$=n$+"."+s$+CHR$ 255
60 FOR a ...+3 how to detect if a file exist ?Need help. I am making a generic menu to my compilations over the spectrum +3. Exist some way programatically to detect if some file exists on the d…
... .php?p=446147&postcount=21]#21[/url], here's a version ... f$ is the file name + CHR$ 255.
[code]
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…
... LET n$(o,n,p)=CHR$ a
9908 NEXT p ... LET n$(o,n,1)=CHR$ 0
9915 LET n ... $(o,n,2)=CHR$ a
9916 NEXT n ... /> 9922 DATA 3,68,3,21,2,233,2,191,2 ... DATA 26,25,23,22,21,20,18,17,16,16 ...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…
... : LET n$(o,n,p)=CHR$ a
50 NEXT p ... LET n$(o,n,1)=CHR$ 0
80 LET n ... $(o,n,2)=CHR$ a
90 NEXT n ... /> 240 DATA 3,68,3,21,2,233,2,191,2 ... DATA 26,25,23,22,21,20,18,17,16,16 ...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…
... ,b,l,m,o)
=CHR$ (65+o+((CODE a$-1 ... $
+CHR$ (a-256*b)+CHR$ b+CHR$ (l-256*m)+CHR$ m
IF off THEN RESTORE 21: LET off=0: GO SUB ...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…
... /> 170 FOR i=0 TO 21
180 FORMAT i*8 ... 8; FLASH 8; BRIGHT 8;CHR$ 144
320 PAUSE 5 ...File size in 128K RAM diskHi Folks, Is there a way to get the size of a file stored in the 128K RAM disk from within a BASIC program? Many thanks Paddy
... : LET n=n+1
21 FOR b=a TO a ... f$(n,b-a+1)=CHR$ PEEK b: NEXT b
File size in 128K RAM diskHi Folks, Is there a way to get the size of a file stored in the 128K RAM disk from within a BASIC program? Many thanks Paddy
... : LET n=n+1
21 FOR b=a TO a ... f$(n,b-a+1)=CHR$ PEEK b: NEXT b
User Defined GraphicsCan someone please give some very simple code for a displaying a UDG at a location on screen? Any assistance would be greatly appreciated. Sincerely…
... /> For UDG graphic is reserved 21 chars (8x8 pixels). ZX rom ... (30 PRINT AT 10,10;CHR$ 144)
UDG font ... size is 168 bytes(21 chars x 8 bytes each ... . This enable use more than 21 chars.New Tool: CheqEdit[b]CheqEdit[/b] it's a simple and small program that helps you to draw 64x48 graphics on screen in GRAPHICS MODE. Program can output as text in CHR$ …
... ;CHR$ 143;CHR$ 143;" ";" ";" ";" ";CHR$ 141;CHR$ 139;" ";" ";CHR$ 135;CHR$ 130
220 PRINT AT 21 ... ,3;CHR$ 129;CHR$ 143;CHR$ 143;CHR$ 143;CHR$ 139;" ";" ";" ";" ";CHR$ 133;CHR$ 143;CHR$ 143;CHR$ 143;CHR ...Display half a screenWorking in 128 Basic and saving screens to memory via - SAVE! "image" SCREEN$ . Is it possible to display just the top half (or the bottom half) of t…
... 1: FOR a=8 TO 21: PRINT AT a,0;:
CHR$ (a+57);:
NEXT b ...Mazes and Tremaux's AlgorithmI've done a version of Tremaux's maze solving algorithm which solves my current test maze with 400 junctions and 715 connections in a reasonably quic…
Arjun posted a link earlier to a page with descriptions of numerous maze types and solving algorithms. I didn't actually use Tremaux's Algorithm in the end because, although it's simple (see second code segment below), it assumes that all available forward ...Increasing the number of UDGs...Hi Folks, I know by default the Spectrum can have 21 UDGs (48K) and 19 (128K) and that the address of the bit patterns is pointed to by the UDG syst…
... so they are numbered 0-21 when it comes to print ... Spectrum would still only recognise 21 as being typed in. If ... routine to be the correct CHR$ code for printing.+3 DOS questionHey all, Is it possible to catalogue a +3 disk to a variable somehow from BASIC? I'm looking at extending my Snapshot to Microdrive utility, so it s…
... +256*PEEK (a+1)
21 DIM s$(200): POKE 23739 ... : LET s$(a-k1-32)=CHR$ PEEK a: NEXT a:
+3 DOS questionHey all, Is it possible to catalogue a +3 disk to a variable somehow from BASIC? I'm looking at extending my Snapshot to Microdrive utility, so it s…
... during the CAT loop (line 21). The trick is to assign ... TO 0: NEXT a
21 DIM s$(200): POKE 23739 ... : LET s$(a-k1+1)=CHR$ PEEK a: NEXT a:
21
[/code]
Disks ...
