-
Making a mapI should learn Z80 assembly, but I don't have the time (really busy) and I feel like making a game. I've tried with Colt which gives me enough speed…
... read as...
[code]
9100 LET DIR=BASE ... MC as
[code]
org 50000
ink =chr for ink
paper =chr for paper
bright ... =chr for bright
22 =chr AT
[/code]
< ... -
New Compo IdeaI've had this idea and would like to know what do you think about it. I think that most of us here know how to code in BASIC. The problem with Specc…
... at the top of your code.
* If you are ... LET X=10
5 INK 0: PAPER 7: CLS
INK 2; CHR$(144): REM UDG A
code being stored in 23560 (the ... ROM routines in a machine code program.
* 23613/4 ... -
Using INPUT without clearing last two lines of screen?I'm trying to print to the 22nd row of the screen using the ol' print #0 trick. Unfortunately, I require user INPUT which seems to wipe out the botto…
[QUOTE=Bob Stains;325796][code]
PRINT #1;AT 1, ... ,6;b$; PAPER 7; INK 7
[/code]
The second ... if you poked in the code! [/QUOTE]
Brilliant! Exactly ...
2) Nevermind. A chr$ 8 at the end of ... -
Activision's Ghostbusters (1984 version)Did anyone ever manage to work out (or hack) the account numbers? If so, are they the same for the 1986 rehash?
... br />
[CODE]5 BORDER 2: PAPER 2: INK 7
10 ... ;95 THEN LET n$(i)=CHR$ (CODE n$(i)-32)
32 ... TO 20: LET b=b+CODE n$(i): NEXT i
9110 DATA -1
[/CODE]
Paste it into ... invalid BCD results and the code tends to change these back ... -
DATA vs PRINT and OVERjust messing about and came across this alternative way of drawing a map....now before I start mucking about with my actual program.....is there any …
... /> [code]10 LET o$=CHR$(16)+CHR$(2)+CHR$(17)+CHR$(6)+"HELLO"+CHR$(16)+CHR$(1)+CHR ... $(17)+CHR$(4)+"WORLD"
20 PRINT a$[/code]
CHR ... $ 16 corresponds to INK
CHR$ 17 corresponds ... -
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 /> [code]
10 BORDER 0: PAPER 0: INK 4: CLS ... 10: LET i$(r)=CHR$ (CODE i$(r)-48): NEXT ... * To minimise the INK changes line 10 sets INK to green as ... 1:1 relationship between INK colour and UDG: UDGs ... /> * This enables a UDG INK colour lookup table to be ... -
Books that you just can't quit.Much as parts of the presentation,writing style infurates me, there is a book I just keep comming back to again and again. Its like the Yang to the …
[code]
1000 DIM R(55): ... /> 1020 BORDER 1: PAPER 7: INK 0
1030 LET HSC ... long from row R collum CHR$
1049 REM P is ... I$=CHR$ 18+CHR$ 1+"PRESS ENTER TO START GAME"+CHR$ 18+CHR$ 0 ... lower case.
4020 IF CODE A$ -
hash function permutation tableI'm using a simple Pearson hash function to generate keys for a $(103,6) array using a 256-byte permutation table. How do I arrange the entries in th…
... Spectrum BASIC keywords:
[code]
char *strings[] = {
" ... SUB", "GO TO",
"IF", "INK", "INPUT", "INVERSE", "LET", "LIST", "LLIST ... ", "ACS", "AND", "ASN", "ATN", "ATTR", "CHR$", "CODE", "COS", "EXP", "FN", "INKEY$", "INT ... -
hash function permutation tableI'm using a simple Pearson hash function to generate keys for a $(103,6) array using a 256-byte permutation table. How do I arrange the entries in th…
... add instead.
[code]
char *strings[] = {
"IF", "INK", "INPUT", "INVERSE", "LET", " ... "AND", "ASN", "ATN", "ATTR", "CHR$", "CODE", "COS", "EXP", "FN", "INKEY$", ... rsl;
}
[/code]
Modified perfect ... -
Routine for handling large scores?[FONT=Calibri][SIZE=3]I want to store various numbers for scores and levels etc. Some of these can be very large so will need to be held in multiple …
... the correct ASCII code for the digit.
[code]
12 INPUT ... -
Dock's ZX Maze gameI'm hoping to finish a simple maze game in ZX Spectrum BASIC this week, as part of the Ludumdare Retro challenge. I used to dabble in speccy basic on…
... commentary follows ...
[code]
35 LET j1= 0 ... AT 20,16; BRIGHT 1;CHR$ (CODE i$-11):
LET ... $(r,k): LET z$=CHR$ 22+CHR$ r+CHR$ k:
LET ... THEN
GO SUB CODE y$*2-12
84 ... r-1,k): PRINT z$;INK 5;x$: POKE 23729, ... -
Dock's ZX Maze gameI'm hoping to finish a simple maze game in ZX Spectrum BASIC this week, as part of the Ludumdare Retro challenge. I used to dabble in speccy basic on…
... commentary follows ...
[code]
35 LET j1= 0 ... AT 20,16; BRIGHT 1;CHR$ (CODE i$-11):
LET ... $(r,k): LET z$=CHR$ 22+CHR$ r+CHR$ k:
LET ... THEN
GO SUB CODE y$*2-12
84 ... r-1,k): PRINT z$;INK 5;x$: POKE 23729, ... -
The 20th comp.sys.sinclair Crap Games Competition thread!Hi all, [SIZE="7"][B][CENTER]ANNOUNCEMENT![/CENTER][/B][/SIZE] The comp.sys.sinclair Crap Games Competition 2015 is now well and truly OPEN! [url]…
... ASN AT ATN ATTR BIN CHR$ CODE COS EXP FN IN INKEY ... FOR FORMAT GO_SUB GO_TO IF INK INPUT INVERSE LET LINE LIST ... -
Better "Hello World"are their any more visually impressive Hello world loops i can do in basic other than the print-goto one.
[code]
1 LET a$="Hello World!!"
2 PRINT INK 9; PAPER INT (RND*8); BRIGHT INT (RND*2);CHR$ CODE a$;: OUT 254,RND*32: POKE 23692,PI: LET a$=a$(2 TO ): GO TO 2-(a$="")
[/code] -
Proportional-width fontsFor reasons that are still not quite clear to me (because I’ve always loved typography and design,) I never bothered to write a proportional-font rou…
... text color.
[code]
;Proportional-width font drawing ... /> txt_clr equ %00111001 ;PAPER 7,INK 1
call ... l,a ;load L with chr code
add hl,hl ; ... /> add hl,bc ;bitmap (chr code*8+font addr - 256), load ... -
New Functions for Sinclair BasicA total of 52 new functions can be added to Sinclair BASIC; 26 numeric functions (A-Z) and 26 string functions (A$-Z$). Owing to the internal structu…
... FN B(b$)=VAL(CHR$ 196+b$)
[/code]
[b ... ])
[code]
DEF FN C$(n)=CHR$ INT (n/256)+CHR$ (n ... ]posint16[/i])
[code]
DEF FN H$(n)=CHR$ (INT (n ... $)=CHR$ (CODE l$)+(32 AND CODE l$>64 AND CODE l$96 AND CODE ... -
A 128 Routine to Put Tokens in StringsI was writing a DEF FN on the +128k and decided that I'd had enough of not being able to put function tokens in strings without a great palaver and s…
... DATA line with the correct CHR$ code following and in the main ... ..."len",177,"uln",184...
[code]
9990 DATA "fn",168 ... =CODE t$+47: CLS :
PRINT "Line:";l;" replace:";CHR$ u;" with:";CHR ... ): POKE b,p:
PRINT CHR$ p;: GO TO 9995-(3 ... -
Soundex routineIn an idle 5 minutes I wrote a short routine to calculate Soundex codes using the algorithm described here: [url]http://en.wikipedia.org/wiki/Sounde…
... all had the same Soundex code (ie. "tell me words which ... reference a dictionary.
[code]
10 REM letter encodings ... -
Peeking the contents on screen? How?You will have to forgive me for growing up on the C64, but I know I can peek the location of a character (1024 is top left from memory) and the peek …
... the peek will return the chr$ code of the character in the ... -
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. …
... +f2, you're expecting an INK 2 code to be sent - so ... it sends that code to the ROM, which converts ... BASIC, as I couldn't code in z80 assembly back then ... -
Font centering problemA while back today, I started coding a simple Othello/Reversi game in BASIC, with the precious aid of BASin (great tool, hope it eventually becomes b…
... , y
70 LET pos=CODE c$*8+chs
80 ... 9
230 LET c$=CHR$ (CODE "0"+n)
240 LET ... -
Oneliner contestHello to you all, I dare you to make a program on 1 BASIC line. Here is the place to sent your ONELINERS [url]http://www.zxspectrum.00freehost.co…
... br />
[CODE]
PAPER 0: INK 7:
[/CODE]
with ... this:
[CODE]
[CODE]
LET k=(z=0 ... replacing this:
[CODE]
LET b=(1-h ... -
Oneliner contestHello to you all, I dare you to make a program on 1 BASIC line. Here is the place to sent your ONELINERS [url]http://www.zxspectrum.00freehost.co…
... br />
[CODE]
PAPER 0: INK 7:
[/CODE]
with ... this:
[CODE]
[CODE]
LET k=(z=0 ... replacing this:
[CODE]
LET b=(1-h ... -
Oneliner contestHello to you all, I dare you to make a program on 1 BASIC line. Here is the place to sent your ONELINERS [url]http://www.zxspectrum.00freehost.co…
... this:
[CODE]
IF 1-(a> ... br /> with this:
[CODE]
IF a=1 OR ... this:
[CODE]
(1+((w-1)*INT ... (RND*2)))
[/CODE]
with this ... :
[CODE]
(1+(w-1)*(RND -
Oneliner contestHello to you all, I dare you to make a program on 1 BASIC line. Here is the place to sent your ONELINERS [url]http://www.zxspectrum.00freehost.co…
... this yesterday, but got the code mixed up somewhere, so just ... positions replacing this:
[CODE]
LET o$(a)=(o ... positions replacing this:
[CODE]
IF 1-(a> ... positions replacing this:
[CODE]
(1+((w-1)*INT ... -
Oneliner contestHello to you all, I dare you to make a program on 1 BASIC line. Here is the place to sent your ONELINERS [url]http://www.zxspectrum.00freehost.co…
... /> [CODE]
INK 4;"?"
[/CODE]
with this:
[CODE]
INK ... a;"?"
[/CODE]
It doesn ...
