-
Keyboard TrickI know how to use the multi key in BASIC with IN you can get the keys [QUOTE]IN 254+256*(255-2^K)[/QUOTE] K is the keyboard's half row, comes from …
... /> 10 CLS
20 LET a=USR 49152:REM or wherever ... (a+5) THEN PRINT "DOWN (A) ";
50 IF PEEK (a+26) THEN PRINT ... ";
60 IF PEEK (a+25) THEN PRINT "RIGHT (P) ";
... PEEK (a+35) THEN PRINT "FIRE (SPACE) ";
75 PRINT : POKE 23692,5 ... -
New game: Knights & DemonsHi everybody! Our new game is here. Knights & Demons is a puzzle game in which you have to turn all demons into knights before time is up. [IMG]htt…
... />
Let's start with a few multicolor tiles, ... 0: CLS
PRINT AT 21,1;"Use keys ... A,O,P,M"
for f=0 TO 80: POKE ...
let row=0: let col=0
1000 let c = BIFROSTgetTile ...
2000 LET a$=INKEY$
if a$="o" and col& ... -
BLOG- ZXSporgBasic RPG development thread- Inspired by the Spectrum 30 show, and after a six-month wait while I was busy playing loads of gigs, I have decided to do a spot of Spectrum coding…
... couldn't change direction towards a barrier if you were next ... =0 TO 31: READ g: POKE 65368+j,g: NEXT j ... : LET y=3: LET xo=3: LET yo=3: LET d=0: LET hp=8: PRINT ... : LET ny=5: LET nxo=5: LET nxy=5: LET nd=0: LET nhp=2: PRINT ... -
BLOG- ZXSporgBasic RPG development thread- Inspired by the Spectrum 30 show, and after a six-month wait while I was busy playing loads of gigs, I have decided to do a spot of Spectrum coding…
... ! Makes the whole process seem a little bit more like something ... I could have a crack at one day :)[/QUOTE ... =0 TO 31: READ g: POKE 65368+j,g: NEXT j ... : LET ny=5: LET nxo=5: LET nxy=5: LET nd=0: LET nhp=2: PRINT ... -
Screens and BasicA question about the ZX screens. I am using software to convert my own art and drawings to the ZX Spectrum. I have some tools to change .jpg files in…
... LET z=0: LET row=9: LET col=10: PRINT AT row,col;:
LET ... :
PRINT CHR$ (a+64);: NEXT b:
LET row=row+1: PRINT AT ... /> LET s=s+cc: LET a$=s$(s TO s+cc-1): POKE d ... -
BLOG- ZXSporgBasic RPG development thread- Inspired by the Spectrum 30 show, and after a six-month wait while I was busy playing loads of gigs, I have decided to do a spot of Spectrum coding…
- Now sorted the bug where a dead npc overwrites the live ... . The screenshot therefore looks like a backwards step because there is ... =0 TO 31: READ g: POKE 65368+j,g: NEXT j ... : LET nxo=3: LET nxy=5: LET nd=0: LET nhp=2: LET nw=0: PRINT ... -
SAVE writing zeros after program?Hi there! I hope this is the right forum, but I didn't find any other more appropriate... I'm trying to recover some very old tapes with stuff I mad…
... and CLEAR eg:
POKE 23627,57: POKE 23628,97: CLEAR
a+PEEK (a+1): LET l=PEEK (a+2)+256*PEEK (a+3):
PRINT ... /> a;TAB 24;a-INT (a/256)*256;TAB 28;INT (a/256):
LET a=a ... -
BLOG- ZXSporgBasic RPG development thread- Inspired by the Spectrum 30 show, and after a six-month wait while I was busy playing loads of gigs, I have decided to do a spot of Spectrum coding…
... . PCs and NPCs now have a strength variable, which affects how ... =0 TO 31: READ g: POKE 65368+j,g: NEXT j ... : LET yo=3: LET d=0: LET hp=100: LET w=1: LET st=100: PRINT ... : LET nyo=5: LET nd=0: LET nhp=20: LET nw=0: LET nst=50: PRINT ... -
BLOG- ZXSporgBasic RPG development thread- Inspired by the Spectrum 30 show, and after a six-month wait while I was busy playing loads of gigs, I have decided to do a spot of Spectrum coding…
- have begun work on a simple map, which is initialised ... v0pt024 20130318 - next to do = print room based on map grid ... 2210-200*w
2010 PRINT AT ny,nx; INK npc ... -
Using FOR/NEXT like 'while'I don't know if this has already been discussed (I did search, but the search engine didn't like the word 'while'), but here's a way of using a FOR/N…
... PRINT a$(TO 35): LET a$(4 TO)=a$(5 TO)+a$(4):
POKE 23618,3:POKE ... PRINT a$(TO 35): LET a$(4 TO)=a$(39)+a$(4 TO 38):
POKE 23618 ... ,4:POKE 23620 ... -
Font hack that was used in a lot of early gamesThere was a little hack for changing the fonts on a spectrum and I remember it being used in a couple of old games on the 48k, it was a sort of ye od…
... USR 30000
30 POKE 23607,249: PRINT "ITALIC CHARACTERS"
40 ... /> [code]15 POKE 23606,0: POKE 23607,60: CLEAR 31743: LET a=31744
20 FOR i=32 TO 127: PRINT AT ... /> 80 NEXT x: POKE a,PEEK (22432-256*y): LET a=a+1: NEXT y ... -
BIN2BAS (load BASIC text into emulator) utilityI've nearly finished testing this. It allows a BASIC program to be loaded from a text file in any emulator which has a "load binary" option. I was wo…
... THEN PRINT ASN c+ATN d
30 LET a=ATTR (b,c): POKE ... 12345,BIN 01010101: LET a$=CHR$ b
31 PRINT ... CODE "a"+COS ... -
File comparitorI thought Taper might do it but its not quite what I was after. Unless I misunderstood that shows if tapes are identical or not but not the differenc…
... LET b=last-first+1:
FOR a=first TO last:
POKE ... 23618,10: POKE 23620,5+NOT (PEEK a-PEEK (a+b)):
PRINT a;" ";PEEK a,a ... +b;" ";PEEK (a ... -
ZX7: an "optimal" LZ77 packerAbout 20 years ago, I started a M.Sc. in Computing, planning to work on data compression. Although I quickly changed to another subject for a number …
... I uncompress them into a certain array in boriels ... />
For instance, let's consider the example you ... 0 TO 15: READ a: POKE 40000+f,a: NEXT f
[*] Finally write a ZX BASIC program that will ... FOR f=0 TO 15: PRINT myarray(f);","; : NEXT ... -
The Official Crap Games Competition 2013 Thread!Just to announce that the 2013 CGC is OPEN! [IMG]http://i1142.photobucket.com/albums/n608/daveyboyhughes/cgctitle2_zps77591934.jpg[/IMG] And for th…
[QUOTE=Rebelstar without a cause;708962]otters are hard ... UDG, the other is 3x2, a.k.a. cow sized.
LET a=USR "a"
15 READ b:IF b-1 THEN POKE a,b:LET a=a ... 7:INK 0:CLS:PRINT AT 10,10;"{A}{B}{C}"
17 PRINT AT 12,15;"{D ... -
Full 16*16-digit BASIC multiplicationI liked Andre Adrian's 32-bit long multiplication routine so much that I decided to a decimal version. After all, 2^63 is only 9223372036854775808, a…
... "Number 2: ";E$
102 PRINT STR$ USR (LMUL10+3): GO ... ;1000 REM LMUL:
;1001 PRINT " ";FN b$(V)+FN b ... : IF a$(a)="0" THEN NEXT a
;1393 PRINT "= "'a$(a TO)'32-a+1;" ... ld (I1),a ; LET I=VAL s$(LEN s$): POKE var,CODE r ... -
Confounded DEF FNCan anyone see why this is going wrong? I've been tinkering with it since tea time and got nowhere. [code] 2 DEF FN t$(n,t,d) =STR$ INT (n/t)…
... and assigned values with LET, which is much easier ... (a)=PEEK a+256*PEEK (a+1):
CLEAR 65367: LET ... UDG=FN p(23675): LET ... 11 FOR a=0 TO 20: LET base=UDG+a*8: ... b:
NEXT a
12 POKE b-1,CODE ")": ... -
Can a guy that traveled on the short bus learn machine code...Hmmm So after some soul searching I figured it was time to finaly nail spectrum machine code. Its so frustrating to sit infront of a basic listing w…
... ": PRINT AT 2,5;"THE POOR MAN'S ZEUS"
20 LET A ... $=""
30 IF A$="" THEN INPUT A$
40 LET Y=CODE A$-48 ... >9 THEN LET Z=Z-7
60 POKE X,16 ... *Y+Z
70 LET X=X ... +1
80 LET A$=A$(3 TO )
Problem With POINT StatementHello everyone this is my first ever post, So firstly i'd like to say hello to everyone and secondly thank you to the admins for such a great site, …
... LET a(a,1)=(rg-rt-5)/3: LET a(a,2)=a(a,1): PRINT a$(a(a,1));u$(a):
LET a(a ... ,3)=(rr-rt-8)/3: LET a(a ...display file addressing; screen slicingWhile working on this Compendium I'm updating or rewriting a lot of stuff. One thing I eventually came to appreciate was the simple & clever way in w…
... /> [code]
[COLOR=Red]LET e=b(8-x+c ... Using the exponent operator with "LET e=2^( 7-x+c ... slow; just compare PRINT 2*2 with PRINT 2^2; the ... and so is doing a lot of extra calculations ... 's resolving the coordinates into a POKE address & value which ...BLOG- ZXSporgBasic RPG development thread- Inspired by the Spectrum 30 show, and after a six-month wait while I was busy playing loads of gigs, I have decided to do a spot of Spectrum coding…
... is so I can print black (for a door) or blue for ... v0pt025 20131204 - next to do = print room based on map grid ... version: sets ink for each print of room wall section line ... 2210-200*w
2010 PRINT AT ny,nx; INK npc ...BLOG- ZXSporgBasic RPG development thread- Inspired by the Spectrum 30 show, and after a six-month wait while I was busy playing loads of gigs, I have decided to do a spot of Spectrum coding…
... . Line 9720 is now a bit of a monster as the ink ... 2210-200*w
2010 PRINT AT ny,nx; INK npc ...Graphics questionHello. I was wondering, does anybody here know of a method to display a large (as in, the better part of the screen) bitmap/raster image using ZX Sp…
... n=1 TO 96: LET a$(n)=CHR$ (31+n ... POKE 23606,p-256*PEEK 23607
110 PRINT a$;
120 LET ... p=p+96*8: NEXT n
900 POKE ... 23606,0: POKE ... modifications, one can print full screen composed of ...Graphics questionHello. I was wondering, does anybody here know of a method to display a large (as in, the better part of the screen) bitmap/raster image using ZX Sp…
... ,64: POKE da+15,0: POKE da+16,27
10 LET a$=s ... $: CLS: PAUSE 0
11 LET s$=a$
12 POKE 23564 ... UDGs, I posted a simple print routine in assembler a little while ago ... to point to the other print routine.really dumb questionbut can I use the following line to create a udg and if so how do I call it or use it via the graphics mode? Do I need to READ something somewhere? …
... c>=0 THEN POKE a+b,c:LET b=b+1:GO ... THEN LET a=a-256:LET b=0:GO TO 21
25 CLS:PRINT"{A ... FOR i=0 TO 4:POKE 23676,p-i:BORDER 6 ... 3 TO 1 STEP -1:POKE 23676,p-i:BORDER 5 ... TO 4:POKE 23676,p-i:PRINT AT 0,0;"{A}{B}{C ... STEP -1:POKE 23676,p-i:PRINT AT 0,0;"{A}{B}{C ...
