-
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…
... ). It's been mentioned that 1-bit sampling might be suitable ... never even dabbled in programming 1-bit sampled sound and so ... I can only output 1's and 0's to the speaker ... by a '1' and another frequency represented by a '0', is that ... -
BASin won't accept this code?Taken from the Oneliner contest 2007: [CODE]1 LET n=191: DIM i$(4,9): FOR g=2 TO 4: LET i$(g-1)=" # # # # ": NEXT g: LET b=0: LET p=16: LET a=p: LET …
... : LET i$(g-1)=" # # # # ": NEXT g: LET b=0: LET p=16 ... a=p: LET s=0: FOR y=0 TO 13: LET e ... AT b+1,a;" ";AT b,a;"| "(1+(b=0));AT h*b ... ,a;" ";AT g-1,x+3 ... g,x+4;"| "(1+(g=21));AT 20,p-1;" ^ ";: POKE 23620,22 ... -
3D Games in SpecBAS!Not really :) Actually, yes - here's a type-in for you: MontyMole's "Crap Castle Master" [code] ZXASCII AUTO -1 PROG CrapCastleMaster 1 REM Crap Ca…
... ZXASCII
AUTO -1
PROG CrapCastleMaster
1 REM Crap Castle ... br /> 5 WINDOW ORIGIN 0,0,0 TO 256,192: SCALE SCRw ... XCam=4: LET YCam=-20: LET ZCam=4: LET ... br /> 20 LET HAng=100: LET VAng=0: LET GotKey=0: GO ... /> 40 PRINT AT 19,0;"(Press Any Key) ": GO ... -
Basic program malfunctionHello. Please does anyone know why this basic program 10 LET x=0 20 LET x=x+0.1 30 print x 40 if x<>1 then goto 20 50 STOP does not properly work o…
Hello.
Please does anyone know why this basic program
10 LET x=0
20 LET x=x+0.1
30 print x
40 if x1 then goto 20
50 STOP
does not properly work on the speccy? -
Boomshine in SpecBASHere's a little game called "Boomshine": [url]http://www.k2xl.com/games/boomshine/[/url] It's a really nice, relaxing puzzle game about exploding b…
... ]
10 REM Boomshine
20 GO TO 420
30 ... blobs(nb+1,6)=-1: LET gamestate=0: LET wongame=0: LET np=0
0: SCREEN LOCK: LET expcount=0
160 FOR f=1 TO nb+1 ... 247;SCALE 2,2;CENTRE 20;"Level ";lv;": Goal: ";target;" out ... -
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…
... [": DIM x$(3,2):
20 INPUT n$: LET o$=""
30 FOR a=1 TO LEN n$: LET c ...
LET p$=p$+x$(1,2)
68 NEXT a ... -
Raycasting (3D Games!) with SpecBAS<div><font face="Arial, Verdana"><span style="font-size: 13.3333330154419px; line-height: normal;">Here's one I wrote just recently. I wanted to see …
... oh1,oh2=0,pla=IIF(map(px+1,py)=0,0.001, ... Engine60 RECTANGLE INK 5;0,0 TO SCRw-1,SCRh/2 FILL ... : RECTANGLE INK 6;0,SCRh/2 TO SCRw-1 ... ,SCRh-1 FILL ... 70 FOR x=0 TO ... /> ry,ddx=SQR(1+(rdy*rdy)/(rdx*rdx)),ddy ... -
Chromium / Iceweasel screen shotsFogartylee asked me in <a href="http://www.worldofspectrum.org/forums/discussion/50633/the-magic-s-gone/p3">this thread</a> to post a screenshot. Pos…
... :
Adblock Plus 1.8.12 (installed by ... br /> Disconnect 5.18.20 (came by default)
... and is version 38.0.1 with these add-ons:< ... 1.0
HTTPS-Everywhere 5.0.5
Unhide Passwords 1.2.7.0.1 ... -signed
User Agent Switcher 0. ... -
Help With AY Music Program in BASICHi, last year I started writing a BASIC program for making and recording AY Music. I thought it would be easier than learning how to use Soundtracker…
... 28th June 2014
20 REM ***USER DEFINED GRAPHICS***
108 DATA 0,0,0,0,0,0,128,128
110 ... x
118 DATA 0,0,0,0,0,64,192,192
... 1; INK 0;AT 1,1;"LOAD"
610 PRINT INVERSE 1; INK 0;AT 3,1 ... br /> 950 PRINT AT 20,Elite - Save data complete map[code] $0000 Commander Name $0001 Commander Name $0002 Commander Name $0003 Commander Name $0004 Commander Name $0005 Commander Name $00…
... (in galaxy >1: 1st mission at $20, 2nd mission at ... /> $0043 Twisted Galaxy Seed 1 MSB for current planet. ( ... /> $005C [ECM JAMMER|CLOAKING_DEVICE|0|0|MISSION_3_COMPLETED_FLAG|MISSION_3_TRIGGER_FLAG|MISSION_2_TRIGGER_FLAG|MISSION_1_TRIGGER_FLAG]
z88dk sp1lib with fzxThe numbers dont seem to display properly? fzx by itself works [quote] // for targets supporting fzx // zcc +zx -vn -startup=31 -O3 -clib…
... /> {0,0,0,0}//, {0,0,1,0}, {0,1,2,0}, {0,2,1,0}, {0,1,3,0},
// {0,3,1,0}, {0,2,3,0}, {0,3,2,0}, {
slenkar
June 2017
Development
A game from an other machine.if someone interesting, this is a game I created in 1989. this is the basic source, maybe somebody can convert to specy. An image: http://www.ep128.…
... ENVELOPE NUMBER 3;0,63,23,1;0,-20,-10,1;0,-40,-40,15
241 ENVELOPE NUMBER 4;0 ... ,23,63,1;0,-10,-20,2;0,-40,-40,25 ...
242 ENVELOPE NUMBER 10;0 ...IN instruction on emulatorsHi everyone I wrote: 10 PAUSE 0 20 PRINT IN 63486 If i press 1, result is 190 instead of 254 (i used FUSE and Spin) If i press 2, 189 (253) i…
Hi everyone
I wrote:
10 PAUSE 0
20 PRINT IN 63486
If i press 1, result is 190 instead of 254 (i used FUSE and Spin)
If i press 2, 189 (253)
if i press 3, 187 (251)
...
Why?Tutorial: Using UDGs in SpecBASSpecBAS is capable of using graphics mode, in a similar manner to the original Spectrum. Like most things though, the extended nature of SPecBAS's ab…
... /> 20 DATA 1,1,1,1,1,1,1,1
30 DATA 1,0,0,0,0,0,0,1
40 DATA 1,0,0,0,0,0,0,1
converting sna to tapsince i'm struggling to find a simple sna to tap converter that works fine on gnu/linux, i'm about starting to code one on my own (using a scripting …
... having it working like multiface-1 savings works
20 poke val"23739",val" ... "" code val"16384":rem 1.25kb - remaining 8kb and ... bit 2 is defined: 1 for EI, 0 for DI]
... br /> $19 Interrupt mode: 0, 1 or 2
$1A Border ...Stuck again! Please help meI'm in the process of making a little game, eventually it will become rather more sophisticated (I hope) but I am testing out routines one at a time.…
... work, I tried inserting OVER 1 all over the place to ... />
10 INK 0: REM Program lander
20 PRINT "This is ...
40 PRINT "Press 1 for LEFT, 0 for RIGHT"
50 ... a
110 IF a=1 THEN LET c=c ...Manic Miner (light modification)Hi, This project was a small try to make something different. I would like to present in old-fashion magazine style. I hope you will like :) Pg…
... /> 10 LET C=0
20 FOR F=1 TO 393
30 ... /> 200 DATA 33,0,88,17,1,88,1,255,1,117,237,176 ... ,128,17,67,0,183,237,82,1,255,0,17,221,91 ... 48,1,112,35,254,28,48,1,112,33,32,0,25 ... 19,254,28,48,1,112,33,25,0,25,201,205 ... DATA 48,2,54,1,33,25,0,25,201
[/ ...how do i set this code up, so i can print more than one line of text?well i got it working but how do i set this code up, so i can print more than one line of text? with a loop or something? not sure where to start on …
... ]org 40000
ld a,0
call 8859
ld ... 22, 4, 5, 17, 0, 16, 1, 18, 0 ;at command, y, x ... , **, flash
defb 19, 1, 21, 1, 20, 0 ;**,bright on/off,**,over,**,inverse ... this xxxyyy"
defb 21, 0, 20, 0
[/code]How to write a simple BASIC* horizontal scrolling game (Tutorial) [b]How to write a simple BASIC* horizontal scrolling game[/b] In this tutorial, we will be talking about how to write a simple BASIC* horizont…
... /> 20 DATA 6,191,33,1,64,17,0,64,175,197,1,31,0 ... br /> 300 PRINT AT RND*20,30;"*"
900 GO TO ... going negative or larger than 20.
The whole ... /> 20 DATA 6,191,33,1,64,17,0,64,175,197,1,31,0 ... br /> 300 PRINT AT RND*20,30;"*"
400 LET y ...uMIA: Backgammon V1.0 - Pi Software[b]Full Title:[/b] Backgammon [b]Also known as:[/b] [b]Year:[/b] 1982 [b]Company:[/b] Pi Software [b]Machine Type:[/b] ZX Spectrum 48K [b]Re-re…
... .com/s/y9t714chrut8u2l/Backgammon%20V1.0%20%28Pi%20Software%29.zip?dl ...FOR vs LET (speed)Hi dear friends. A question for you 10 FOR I = 0 TO 10 11 PRINT I 12 NEXT I 10 LET I = 0 20 PRINT I 30 LET I = I+1 40 IF I < 11 THEN GOTO …
Hi dear friends. A question for you
10 FOR I = 0 TO 10
11 PRINT I
12 NEXT I
10 LET I = 0
20 PRINT I
30 LET I = I+1
40 IF I < 11 THEN GOTO 20
What's the faster mode?Hunchback is back!Hi, I would like to publish again an old-fashion style writing what perhaps should be valueable if we wrote 1985. Maybe somebody will try it ... …
... :
1,32, 0,0, 0,0, 1,80, 0,0, 0,0, 1,160, 0,0, 0,0, 1,8, 0,0, 0,0, 1,4, 0,0, 1,0…De zeven sleutels van TARKUSI've decided to type in the game "De zeven sleutels van TARKUS" from a book I have for many years now. And, it seems the game as it was printed in…
... 10,10;"EVEN GEDULD"
20 GO SUB 1160: REM UDG ... n=0: LET z=0: LET a=0: LET o=0: LET w=0
0
100 INK 1
110 IF a(l,1)=1 THEN ... :- ";k;
155 PRINT AT 20,4;"LOKATIE: ";l;" "
160 ... AND k(x)=1 THEN LET dc=1: BORDER 0: BORDER 7: ...speccy v's comodore v's bbcThose old enough to remember the playground days when we each had our own little group speccy better than the comodore and the bbc users were all gee…
... C64, 1 with a vic 20, loads of speccy owners, 1 dragon 32 ...Machine Code ChallengeHere's a challenge for all you Z80 programmers. Points to be awarded for elegance and brevity. (I haven't got the solution either) HL addresses the …
... ,found0 ;byte with first 0 found; jump only once ... the position of the first 0 will be
buildmask: ... c ;put the masking bit (0) to c
......rlca ... we find the first 1 (it was 0 originally); jump more ... don't change the first 0
......rra ;prepare ...BASIC-code challengeFor the BASIC-coders among us. There is a number that has following aspects. divided by 16 remains 15 divided by 15 remains 14 divided by 14 remain…
... the form (base * k) - 1
(minus one, because ... said.
1 LET n = 1
2 LET base ... we know that modulus 1 is ALWAYS 0, and that modulus ... 2 will always be 1 by ... />
It completes in about 1 sec.
[ This ...Machine Code ChallengeHere's a challenge for all you Z80 programmers. Points to be awarded for elegance and brevity. (I haven't got the solution either) HL addresses the …
... nz,found0 ;byte with first 0 found
.....djnz ... the position of the first 0 will be
buildmask ... we find the first 1 (it was 0 originally)
.....ld ... don't change the first 0
nextbyte: rra ... pop af ;restore the bit 0 of the previous byte (in ...TZX to TAPIs there an application for the mac which will convert TZX files to TAP? I've searched around but can't find any.
... the flips denoted a 1 or a 0. We don't store ... flips for a 1, the time for a 0, then store the ...
