-
Get a listing to .txtI am messing with an old Spectrum game which was written in Basic for the 48k Speccy (not compatible with 128s). I get an error in the begining of th…
... PRINT AT 0,0; INVERSE 1; INK 5;"Multiprotocol joystick interface ... 223;" "
30 PRINT AT 8,1; INK 6;"FULLER: "; INK 7 ...
NVERSE (INKEY$=CHR$ 10);" D "; INVERSE (INKEY$=CHR$ 8);" L "; INVERSE (INKEY ... -
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 …
... references to INT (RND*6)+1 could be condensed with use ... then INK INT (RND*6)+1 becomes INK FN i() and ... shorter version:
[code]
1 PRINT AT 21,0;"FIRST ... :
PRINT AT d+1,5;"YOU" AND NOT d ... m: PRINT AT 20,(p-1)*7;" ";CHR$ 8;: LET pink=p AND ... -
Mini scroll routineI'm looking for a routine that scrolls a small section of the screen downwards and replaces it with nothing, 2 x 2 charcter blocks to be precise, to …
... 1 TO 8: READ a$: FOR b=0 TO 7: READ c: POKE ... 112
9000 FOR a=1 TO 16
9002 ... PAUSE 10
9005 POKE 23675,PEEK 23675-1
9008 NEXT ... /> 9010 FOR a=1 TO 16
9011 POKE 23675,PEEK 23675 ... +1
9012 PRINT ... -
Converting UDG to 2x2I've got a udg that I want to display in different sizes. Obviously I just print it for normal size, I can use the udg in bin format to display it ea…
... LET b2=PEEK (u+b+1): LET g$=""
35 ... FOR c=1 TO 4
40 ... ): LET b2=PEEK (u+b+1): PRINT ''TAB 3;
... 135 FOR c=1 TO 4
140 ... br /> 145 PRINT CHR$ (128+q2*4+q1);CHR$ 8;CHR$ 8;:
LET ... -
Converting UDG to 2x2I've got a udg that I want to display in different sizes. Obviously I just print it for normal size, I can use the udg in bin format to display it ea…
... d(16): FOR a=1 TO 16: READ d ... TO USR "u" STEP 8:
PRINT AT r,c ... 155 POKE df,d(l4+1): POKE df+1,d(r4+1)
156 POKE ... df+256,d(l4+1): POKE ... df+257,d(r4+1 ... -
my tiny intros[IMG]http://pouet.net/screenshots/60493.png[/IMG] [url]http://pouet.net/prod.php?which=60493[/url] the following work will appear behind Demosplash…
... four surrounding positions (1-4):
[PHP] 1
253 ... lp0:
ld e, (ix-1)
push de
... djnz lp1
, Adding value over
ld b, 2
1: inc hl
add a ... byte of add a, 8 to 1 byte add a, b ... -
Asking for help: ZXBC to ASM routine translationHallo, In order to save some bytes and gain speed, I'm asking for translation of a very simple ZXBC routine to Assembler [code] sub light(x as uinteg…
... problem?
Anyway, using 8 bit parameters and not using ... ubyte)
poke @light0+1,x
poke @light0+8,y
poke @light0+21 ... ,intensity
light0:
asm
ld a,1 ... -
Asking for help: ZXBC to ASM routine translationHallo, In order to save some bytes and gain speed, I'm asking for translation of a very simple ZXBC routine to Assembler [code] sub light(x as uinteg…
... problem?
Anyway, using 8 bit parameters and not using ... ubyte)
poke @light0+1,x
poke @light0+8,y
poke @light0+21 ... ,intensity
light0:
asm
ld a,1 ... -
need some help with a small programHi you all, maybe someone can quickly help me on this small program, I just did a really small program for a presentation, I want the letters to ch…
... /> [code]
3000 PAPER 0: OVER 1: CLS
3010 PRINT AT ... ,7;
3015 FOR i=1 TO 6
3020 PRINT ... INK i;"bla";: PLAY "O3"+CHR$ (96+i)
3030 NEXT ... TO 1 STEP -1
3050 PRINT INK i;"bla";: PLAY "O4"+CHR ... -
Saving a file and removing the title (Program:)I remember when saving a program how I could construct a string such as: 10 let a$=chr$ 8+ chr$ 8+"name" 20 save a$ In order to remove the "Program…
[QUOTE=leespoons;693954]
My favourite filename was the one used in Strangeloop:
CHR$ 22 + CHR$ 1 + CHR$ 0 + CHR$ 18 + CHR$ 1 + CHR$ 219 + CHR$ 239 + CHR$ 8 + CHR$ 69 + CHR$ 82[/QUOTE]
flash gordon? -
IZX: a new standard format and driver for ZX-Spectrum icons[B]IZX[/B] is a very compact and efficient standard format to create icons for the ZX-Spectrum. You can download it from here: [LIST] [*][URL="http:…
... /> 40 FOR s=0 TO 1
50 LET b=b ... /> 70 NEXT n
80 POKE end+g*9,b
120 FOR s=0 TO 1
130 LET r=7 ... -
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 …
... /> 20 FOR a=1 TO 200:
POKE 23681,INT (RND*32 ... ,0;: OVER 1
50 FOR a=1 TO 200:
POKE 23681,RND ... /> NEXT a: PRINT ''
60 OVER 0: PRINT total1,total2
Do NOT click this link...Unless you want to wave goodbye to your entire day. [url]http://orteil.dashnet.org/cookieclicker/[/url] You have been warned. D.
... =Moriarty;719176]70,622,729.8 cookies per second, when will ... machines and they already cost over 1,000,000,000,000 so ...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…
... /> 4 LET b=INT (y/8)
5 LET c=INT ... ((64+b)/8)*8+y-b*8)*256+(b-INT (b/8)*8)*32+c ... PEEK hl: LET p=8-x+c*8: LET e=b(p ... 2 THEN RETURN
7 POKE hl,w+e: RETURN
50 LET y1=y1+1: IF err=y1 THEN GO ... y=y1:
LET err=1-x1: GO SUB 1010: GO ...MOVE_M Object Movement Manager for BASICAs moving things around on the screen is usually the slowest part of a game written in BASIC, I've been pottering around with this routine to handle …
... restore normal speed POKE FN p(23675)-1,0 or POKE 10 to ... in the assembler listing. (The POKE & PAUSE having the same ... 's got a bit untidy over time. The ZIP file is ...SE Basic IV Buffy v4.1 source (WIP)I've been doing a major refactor on the SE Basic source and I'd appreciate a code review from anyone who has time to look at it. I've almost certainl…
... mask CLUT bits
cp 8 ; CLUT 8?
jr z, co_temp_d ... C
bit 0, c ; OVER 1?
jr nz, pl_tst_in ; ...
pos_1:
ld b, 8 ; 8 bytes to write
djnz pos_1a ; loop 8 times
jp pr_all_f ; ...SE Basic IV Buffy v4.1 source (WIP)I've been doing a major refactor on the SE Basic source and I'd appreciate a code review from anyone who has time to look at it. I've almost certainl…
...
defb po_1_oper - $ ; over
defb po_2_oper - $ ; ... + _p_flag), 1 ; set p-flag to over 1
... _flags) ; test for 8-bit ASCII
...SWIV digitised speech as easter egg?I read in the permission from one of the authors of the game that the game had a "easter egg" with a speech from Aliens. I have never tried it myself…
... 8192 bits or a little over 1 second of audio. You have ... treats the beeper as a 1 bit DAC -- it's ... a 0 followed by a 1 in succession very quickly, you ... get the diaphragm to a 1/3 position. The more levels ... possible to go up to 8 bits (7 has less harmonic ...Code to test if a rectangle is in a rectangle[SIZE=3][FONT=Calibri]I am looking to write some code that will check if a rectangular shape is outside or overlapping a second rectangle. If the sma…
... 44*256+64: POKE 40004,PEEK 23670: POKE 40005,PEEK 23671:
POKE 40006,PEEK 23670: POKE 40007,PEEK 23671
POKE 40000,PEEK 23670: POKE 40001,PEEK 23671:
22 OVER 1:
PLOT x,y: DRAW ...Get rid of 'Bytes:' when loading codeHow do you hide the 'Bytes:' when loading code? I've tried saving as CHR$ 22 + CHR$ 6+ CHR$ 0 (a blank part of the loading screen) but it still appe…
... ""screen$
Over 1 : Print at 1,0; : Load ""code : Over 0 : Rand usr ... code with
save chr$ 22+chr$1+chr$0+"Bytes:"code start,lengthPseudo-3D map renderingHave been mulling this over for a while, until that isometric thread prompted me to ask. I'm not sure if this is officially classed as 2D, 2.5D, or 3…
... his top half is superimposed over 1 character of the wall. He ... by a fairly low (3 chr high) wall:
[IMG ... /> My thinking now is that 1 bit of the tile could ... games that I was mulling over when I was posting the ...ULA snow effectIt's wintertime, you know. [quote="http://ramsoft.bbk.org.omegahg.com/floatingbus.html"]when the I register falls in the range 0x40-0x7F then the UL…
... 4
rlc c ;8 C=1 initially, so
sbc ... : 0, 1, 2, 3 ... 31
Line 1: 0, 1, 2, ... of R overflow situations over the course of the ... NOP string:
1. All character lines except every ... columns being offset vertically by 8 pixels.
2. ...reversing an LFSRWhat's the correct way of reversing an LFSR so that it produces the same numbers but in reverse order? The little BASIC program below shows a test I …
... , forward and reverse, with Xs over the tapped values.
X X XX
1 1010 0010 0100 = 1a24
X XX X
1 1010 0010 0100 = 1a24
1)=0: LET x(2)=1: LET x(3 ...
40 LET a$=CHR$ (48+x(1+VAL a$(13)+VAL ...New test for finding missing +2A/+3 ULA timing detailsHello, having added the +2A/+3 emulation recently, I want to make sure I got the ULA timing 100% right. We know when the contention pattern starts, …
... its length.
14365
8 pixels / 1 char
- the ... the black line is drawn over them
btime:
Help with 1-bit sampled soundHi all, I've been sent over this way from the CPC Wiki forums as you guys may be able to help me more specifically with a programming query. Firstly…
... experts in all things 8-bit. 1-bit music is also ... Beep;758428]SampleTracker 2.1 uses 8bit samples for ... original SampleTracker. Converting an 8-bit sample to a ... probably practical and getting over 6-bit is hard ... constant stream of 1/0s, not 1/0s separated by ...Fast and easy read/write of attributes?What are the fastest or easiest ways to check the attributes of tiles on the screen, in BASIC? It seems to be a great way of storing object info. …
... ]
If you set OVER 1; and print an empty character ... the INK or PAPER to 8 then when you update the ...Fast and easy read/write of attributes?What are the fastest or easiest ways to check the attributes of tiles on the screen, in BASIC? It seems to be a great way of storing object info. …
[QUOTE=Matt_B;772270]Yes, but I'd think that the point of doing it in BASIC is to avoid things like PEEK and POKE where possible.[/QUOTE]
Yes, very much so! I love the technique of using OVER 1. :)
