-
48k spectrum, video problems help neededHi All, I have been browsing this site for a long time and today i have finally registered and am after some help!! I have a 48k speccy and the vid…
... /> ?BEEP? ?1? ?Comma? ?0? ?Enter? = [B]BEEP 1,0[/B]
?BEEP? ?1? ?Comma? ?1? ?0? ?Enter ... ? = [B]BEEP 1 ... ]
?BEEP? ?1? ?Comma? ?2? ?0? ?Enter? = [B]BEEP 1,20[/B]
ZX Spectrum BogoMipsBogoMips value gives some indication of the processor speed, and is one of the most used way of comparing diferent systems. The definition of BogoMi…
...
Intel 8086:--------------0.5
Intel386SX/20:-----------2.70
386DX ... ,555555
;bogomips=result/500000= 0,2912711111.
The ... for
the[MODE 1] Sam Coup? = 0.336 BogoMIPS
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…
... in line 1:10[/INDENT][INDENT][code]1 BORDER 0:\
PAPER 0:\
FOR t=1 TO 20:\
LET o=INT ... (RND*3-1):\
INK 7: PRINT ... AT 11,c-1;" ^ ^ ";AT m,0,,AT 21,0;"t";t,:\
1 TO d+(d=0)):\
LET c ...Spin problems/issuesI am running Spin 0.666 and have noticed a few issues (some are bugs, some might be just me). I am using Vista sp1 (yeah I know!), and I've seen Dunn…
... as follows :
1) Spin still processes CTRL and ... and make sure the Interface 1 peripheral is ticked. Enter 128 ... and try typing in "CAT 1". It doesn't work. ... and repeat the CAT 1 test it will work ... [CODE]10 OUT 251,0
20 OUT 251,RND*255
Porting 8k Adventure to SpectrumSomeone has tried to help me port 8k Adventure over to the spectrum. Here is the code thus far. It doesn't seem to work with the verbs, however. I tr…
... NEXT X
20 FOR X=1 TO 18: READ V ... NEXT X: FOR X=1
TO 20: READ L(X): ... 50 LET RM=1: LET IC=0: LET LZ=0: LET HP=200 ... 84 IF LEN (W$(1))>20 THEN PRINT "COMMAND TOO ... /> 87 LET V=0: FOR X=1 TO 20: IF V$(X)= ... 89 LET N=0: FOR X=1 TO 20: IF N$(X)= ...Computer & Video Games Book of Adventure, TheBelow is the spectrum listing from the "[URL="http://www.worldofspectrum.org/infoseekid.cgi?id=2000078"]Computer & Video Games Book of Adventure, The…
... that.
[CODE]1 BORDER 6: PAPER 6: INK ... v$(9,32)
20 FOR i=1 to 11: READ l ... /> 50 LET pn=0: LET in=1: LET ct=0: LET q$(2 ... 200 FOR i=1 to len (e$(pn+1))
210 IF ... /> 290 LET n=0: LET ii=0: FOR i=0 to 10: IF ... n(i+1)=2 AND pn+1=2 AND pn+1=5 AND ...John Elliot does it again! Re: TOS disks.[url]http://groups.google.co.uk/group/comp.sys.amstrad.8bit/browse_thread/thread/aa809b6f6b9c6f7f#[/url] It is now possible (and easier) to extract …
... br /> }
if (c == 0) hl = 7;
else hl ... p3dos[15] = timex[0];
if (timex[0] == 0)
{
... + 18, timex + 1, 2);
memcpy(p3dos + 20, timex + 5, ...A nice Basic type in for your coffee break[code]5 BEEP 0.212765,20 10 BEEP 0.106383,19 15 BEEP 0.106383,20 20 BEEP 0.106382,24 25 BEEP 0.106383,22 30 BEEP 0.106007,19 35 BEEP 0.105634,20 40 B…
... 0.043448,22
1495 BEEP 0.102739,20
1500 BEEP 0.02,1 ...
1505 BEEP 0.08204 ... 0.044166,22
2355 BEEP 0.104167,20
2360 BEEP 0.02,1 ...
2365 BEEP 0.084166 ...An update on ZX BASIC support for the SpectranetOne for zxbruno, I hope :-) So just an example of what now can be done with the network filesystem and BASIC. The following listing is of a program …
... BORDER 0: PAPER 0: INK 7: BRIGHT 1
14 DIM f$(20,32 ... ): DIM t$(20 ... 1200
1020 FOR i=1 TO 20
1030 INPUT #4 ... 2 AND (a$(1 TO 1)="i" OR a$(1 TO 1)="p") THEN ... TO 2)-CODE "0"
2810 IF a$(1 TO 1)="p" THEN ...Strangely, I just can't STOPOK, I bought an RWAP keyboard matrix and put it in my Spectrum+ last night (ta), I did the Swedish composite mod with a capacitor, I fixed the missin…
... /> [CODE]10 PRINT AT 0,0;
20 LET A = 128 * 256
30 FOR N = 1 TO 8 ...Seeking alternatives to DATA statementsAnyone know of any memory saving alternatives to storing a list of numbers, other than using DATA statements or poking data into addresses?... Im ti…
... PITCH=60 + (0)
11 LET MININ=1/(51+0)
20 READ L ... : IF L=0 THEN RESTORE ... 1,74,1,78,20,62,1,69
83 DATA 1,74,45,78,1 ... ,70,1 ...Request for help (Z80 gigascreen loader)Although I'd attempted to stick to keeping things simple in Image to ZX Spec now I've implemented Gigascreen (8x8 only) I've found the BASIC Gigascre…
... />
[CODE]
1 BRIGHT 1: PAPER 0: BORDER 0: INK 7
10 ... below top 16k page
20 LET Y = 4
30 ... /> 250 PRINT AT Y,1;"(type USR 0 to switch to 48K ... /> 274 PRINT AT Y,1;"setting of 0 waits for a key ...A z88dk + sp1 demo (with source)Since nowadays people are still wondering about how difficult it is to make something in z88dk, I thought I just put a very simple demo to show how e…
... , 28, 20}; // full screen - border
struct sp1_Rect levelbrect = {0, 0, 32, 24 ... ,2,0},
{0,96,56,1,1}, {0,160,88,2,0}, {0,160,120,2,0}, {0 ... ,160,56,2,0}, {0,0,0,2,0 ...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 …
... /> 10 INK 0: PAPER 4: BORDER 4: CLS
20 RESTORE 1000 ...
30 FOR m=1 TO 3 ... : READ a$: PRINT AT m,1;a$: NEXT m
1000 ... can) despite trying a OVER 1 and OVER 0 type instructionnumber padding functionI wrote a number padding function in BASIC a while ago, but when I came to want it again I couldn't find it, so I've done this enhanced [url=http://w…
... /> FN p$(1.2,-5,2) := " 1.20"
FN p$(0.12,0,0) := ".12 ... "
FN p$(0.12,1,1) := "0.12 ...Developing apps for ZX Spectrum with SDCCDue to troubles with makebin utility which always starts coversion at memory address 0x0000 and can only produce binaries < 32KB, it can't be used to…
... br /> ;; tomaz stih, sun may 20 2012
.module crt0 ... .area _BSS
store_sp: .word 1
;; 1024 bytes ... {
int ret = *((*p)++) - '0';
if (ret > 9 ... {
ret -= 'A' - '9' - 1;
}
return ret;
WIP: ULAPlus hardware implementationThis aims to be an "almost" plug-in replacement for the Sinclair ULA chip fitted in Spectrum 16K/48K/Plus machines. It comes in a form of a small PC…
... a small PCB with a 20+20 pin header to plug-in ... the goodies) CPLD is almost 1.5 times the cost of ... br /> Isolation resistors (about 30): 0.04 EUR. (if buying a ... -about 6 EUR- )
1.2V regulator: 0.6 EUR EUR
2.5V regulator: 0.92 EUR
[B]FPGA ...Boriels ZX CompilerI'm trying to compile a very simple program and I keep getting the error: unexpected end of file. Here's my code: [CODE]10 cls 20: let n=0 22 do 2…
... /> [CODE]10 cls
20: let n=0
22 do
25 PAUSE 1
30 PRINT AT 20 ...
36 let n=n+1
40 while n0
80 GO TO 20
90 stop[/CODE]
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…
... sporg basic v0pt004 20130215
20 REM next to do - combat ... l2110
1002 BORDER 0: PAPER 0: INK 6: CLS
1060 DATA 0,0,1,25,63,254,188,0: DATA 96,32 ... ,28: DATA 0,61,127,252,152,128,0,0: DATA 56 ... x=1: LET y=1: LET xo=1: LET yo=1: LET d=0: PRINT ...Timing in loading routinesJust for curiosity I have done some experiments with SAVE command in accurate emulators, and then analyzing the generated WAV and I have obtained lit…
... . The different is between 0.15 and 0.20 per cent compared with ... same, but the times are 1.34% shorter.March offers: lot's of parts!!!I have PLENTY parts available like a lot of 4164 ram chips. I even got some rare spare parts like ZX Spectrum issue two ULA's. - Logic chips: 74LSXX…
... (new)
[B]0.5 GBP each; 20% discount from 10 pieces ... /mic sockets (used)
[B]1 GBP each[/B]
[B]1.5 GBP each; 20% discount from 10 pieces ... !
Postage for parts: only 1.5 GBP worldwide (if it ...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…
... in BASIC:
[code]
1 REM While loop example
0 TO 1: PRINT AT 0,0;: PRINT a$(1 TO 32);: LET ... a$=a$(2 TO )+a$(1 ... is used as a slight delay: the scrolly will continue to ...Hardware description - MULTIFACE 3[B]Hardware description - MULTIFACE 3[/B] This is description of MF3 clone, because I can't find more about original interface. Schematic and PAL ch…
... port #1FFD sign D0=0(allram mode is not active ... for select 8kB rom page 0/1:
OUT #3F,xx - ... in log.0=set rom 1 / D0 in log.1=set rom 0) + enable ... in log.0=set rom 1 / D0 in log.1=set rom 0) + ... /> WPORT1=18 RPORT=19 VCC=20
equations
< ...Getting aquainted with the IF1bisToday, fifteen days after dispatch, the IF1bis arrived at my door. In perfect order. No customs, no TVA and no handling fee involved. The arrival of …
... it can emulate the Interface 1 it also goes beyond ... . Specially for ON/OFF (1.2 sec.), which is the ... a short push (< 0.5 sec.) on the button ... whether OUT 255,0 and OUT 127,0 will toggle the ... 1bis:
10 OUT 127,0
20 PAUSE 10
30 ...Troublesome routine, help needed!Having problems with this routine, it basically fires a rocket up the screen, but refuses to detect collisions. I'm using attribute blocks for detect…
... br /> defb 0
bv1 defb 0
defb 0
attr ... HL)
cp 1
call nz,0 ;reset if rocket hits ... 22
rx4 defb 20,15,150,151,22
defb 12, 0, 128, 192
defb 192 ... , 65, 65
defb 0, 144, 184, 184
...DIM DATA and the likeSo...I'm trying to work out arrays in BASIC a bit more and have knocked up the following quick test bed to fiddle about with before trying anything m…
... />
[CODE]10 PAUSE 0
20 RANDOMIZE
30 REM array ... (10)
50 FOR n=1 TO 10
60 READ ... x(n)
70 DATA 1,2,3,4,5,6 ... n
90 PRINT x(1)
100 PRINT x(2 ... (10)
190 PRINT x(1)+1[/CODE]What's wrong with this code?[code]10 LET X=1+INT (RND*99999999): LET Y=1+INT (RND*99999999) 20 INK 4 30 PAPER 0 40 PRINT "Quest for ye flask!" 50 PRINT "?2014 Yoshiatom" 60 PRIN…
... ): LET Y=1+INT (RND*99999999)
20 INK 4
30 PAPER 0
40 ... to start..."
80 PAUSE 0
90 CLEAR
... PRINT "TO BE CONTINUED...": PAUSE 0: NEW
140 IF Xx ... flask is not here.": PAUSE 0: CLEAR : GO TO 100 ...
