-
A standard emulator "hardware" for console outputAlmost every day, I want to copy text from zx spectrum format, yet, without peeking in the memory spending a lot of time, or typing it by hand, it is…
OK, there's a patch to FUSE on [URL=http://www. ... a$
20 FOR n=1 TO LEN a$
30 OUT 65151, CODE ... a$(n)
40 NEXT n ... -
Help with random numbers......Hi all, wonder if anyone can help me... sort of a novice here ... I have been trying to write a simple ish basic program to compare random sets of n…
... /> 30 FOR m=1 TO 21
40 DIM A(49)
70 FOR n ... =49 TO 44 STEP -1
80 ... (RND*n)
85 IF a(x) THEN GO TO 80
90 LET a(x)=50-n
110 NEXT n ... OF 6
115 FOR o=1 TO 49
116 IF ... -
Help with random numbers......Hi all, wonder if anyone can help me... sort of a novice here ... I have been trying to write a simple ish basic program to compare random sets of n…
... any extra use of GO TO, FOR...NEXT or IF...THEN. Line ... /> 30 FOR m=1 TO 21
40 DIM A(49)
70 FOR n ... =1 TO 6
80 LET ... a(FN a())=n
110 NEXT n ... OF 6
115 FOR o=1 TO 49
116 IF ... -
Help with random numbers......Hi all, wonder if anyone can help me... sort of a novice here ... I have been trying to write a simple ish basic program to compare random sets of n…
... , avoiding any use of GO TO, FOR...NEXT or IF...THEN. Line ... /> 30 FOR m=1 TO 21
40 DIM A(49)
70 FOR n ... =49 TO 44 STEP -1
80 ... LET a(FN a())=50-n ... OF 6
115 FOR o=1 TO 49
116 IF ... -
Simple 128 toastrack testingHi are there any simple tests/commands to test out an toastrack model to see its fully functioning,it powers on,displays and keys work fine,i just wa…
... three channels
Or for example, take a cassette with ... $
20 FOR n=1 TO 11
30 SAVE !"scr"+STR$ n SCREEN$
n SCREEN$
60 NEXT n
70 PAUSE ... your RAM is fine for sure.
For testing MIDI and ... -
Newbie says 'Alreet?'Hiya dudes, Just dropping a line to say hello as i've decided at 33 to try and fulfill a long time ambition to write a speccy game in machine code..…
... run this simple program: for z=16384 to 22527: poke z,255: next ... area is straightforward left to right, top to bottom.
for the character square. The attribute ... h,a
29
30 cp $58
31 ccf ... -
The curious case of the vanishing zerosRight, I'm back for more help guys This time I think I've figured out the code ok....but still it fails - well it works but only once... Basically …
... worked out how to use POKE USR commands to create a crude ... the player graphics
170 POKE USR "p"+0,BIN [ ... 0[/I]011000
180 POKE USR "p"+1,BIN [ ... FOR N=0 TO 7
190 READ A
200 POKE USR "P"+N ... , A
210 NEXT N
... -
The curious case of the vanishing zerosRight, I'm back for more help guys This time I think I've figured out the code ok....but still it fails - well it works but only once... Basically …
... built in UDG designer to create the sprite AND ... code?
As for the Case of the Vanishing ...
2) I'm trying to learn stuff, so figured getting ... FOR N=0 TO 7
190 READ A
200 POKE USR "P"+N ... , A
210 NEXT N
... -
The curious case of the vanishing zerosRight, I'm back for more help guys This time I think I've figured out the code ok....but still it fails - well it works but only once... Basically …
... FOR N=0 TO 7
190 READ A
200 POKE USR "P"+N ... , A
210 NEXT N
220 ... -
Amazonia (BUGFIX)This is a bugfix for game [URL="http://www.worldofspectrum.org/infoseekid.cgi?id=0027280"]Amazonia[/URL], please add the following "known errors" des…
... /> Fixed using POKE 48300,19: FOR f=48304 TO 48443: POKE f,PEEK (f ... : POKE 48448,16: POKE 48449,37: POKE 48450,2: POKE 48451,30: POKE 48452,66: POKE 48453 ... ,21: POKE 48454 ... -
A new multicolor engine called BIFROST*I'm glad to announce the release of a new multicolor engine implemented by yours truly, including high quality 16x16 tiles designed by R-Tape: [IMG]…
... FOR b=0 TO 1: FOR f=0 TO 15: FOR g=0 TO 3: POKE 59456 ... FOR b=0 TO 1: FOR f=0 TO 15: FOR g=0 TO 3: POKE ... : BORDER 0: CLS
30 PRINT INK 6;AT 4 ... RETURN
220 FOR f=0 TO 50: POKE 65283+INT (RND*80 ... br /> 20 LOAD ""CODE
30 LOAD "TILES"CODE
40 ... -
A new multicolor engine called BIFROST*I'm glad to announce the release of a new multicolor engine implemented by yours truly, including high quality 16x16 tiles designed by R-Tape: [IMG]…
... /> 30 LET t=0: FOR r=0 TO 16 STEP 2: FOR c=0 TO ... /> 100 FOR f=0 TO 1: FOR g=0 TO 7: FOR h=0 TO 1 ...
110 POKE ... LOAD "BIFROST*"CODE: FOR f=0 TO 80: POKE 65283+f,128+f ... :
[CODE]FOR f=0 TO 63: POKE 48500+X*64+f ... -
Hisoft Devpac and the MGT Plus DI've got (potentially) a bit of an odd one here that might cut across a couple of areas so I thought I would put it in misc. I am trying to Hisoft's…
... INKEY$#4
30 FOR p=0 TO 0 STEP 0: ... but then "GO TO 30" runs for about 30 seconds before "End ... /> [code]
30 FOR p=1 TO 28: LET a$=INKEY ...
70 FOR p=codead TO codead+length-1:
POKE p,byte:
NEXT ... -
Turn UDG to Attrribute blocksI'm trying to enlarge my UDG's to 8 x 8 character blocks per pixel, but struggling, is there any subroutine/program for enlarging UDG's x 8?
... $ pat:
FOR b=2 TO 16: LET c$=b ... 97)*8:
FOR b=0 TO 7:
LET ... 32:
FOR c=0 TO 7:
POKE d+c, ... NEXT b
30 FOR b=0 TO 7:
LET p ... 32:
FOR c=0 TO 7:
POKE d+7- ... -
Graphics DisplaysI?m not sure if this should be in here in in the BASIC section, so mods please move if necessary Does anyone know of any programs (TZX or type-in) t…
... for line 610 is highlighted in red:
[CODE]610 FOR n ... =0 TO 14: FOR m=0 TO [B][COLOR="Red ... "]1[/COLOR][/B]4: POKE ... 60000+n ... -
FOR 1 TO 0 - Execute "no times"?I checked a couple of basic variations, and generally a for loop executes at least once, even if you create a negative loop without step -1. But in s…
... probably a sign you need to structure your code better, rather ... /> Quite a useful thing to learn for obfuscation compos though. Who'd ... /> 10 FOR n = 1 TO 0
20 PRINT "Helllo"
30 IF 1 ... =2 THEN NEXT n: PRINT "WTF!"
Switching 48/128 modes within a BASIC programI'm not sure what use this would be; ie. being able to switch between 48k and 128k modes and back again from within a continuously running BASIC prog…
... a key": PAUSE 0
30 SPECTRUM
40 PRINT "48k ... /> ^^ error OUT 7I, 30:1 -> type GO TO 40 -> error ... /> ^^ error OUT 7I, 30:1 -> type GO TO 40 -> error ... key to POKE test": PAUSE 0
60 FOR X=23296 TO 23551: POKE x ...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 …
... ,C;"DEF"
140 POKE 23692,255
200 ... DEF"
260 FOR D=1 TO 25: NEXT D< ... +1
280 GO TO 140
400 PRINT ... 1000 FOR N=0 TO 5: READ G$
1010 FOR R=0 TO 7 ... : READ B
1020 POKE USR ... G$+R,B
1030 NEXT R: NEXT N ...Your Sinclair Smash Tips - Corrected ListingsOver at Hercules' [URL="http://craigsretrocomputingpage.eu5.org/smashtips/index.html"]YS Smash Tips site[/URL] he has a list of hacks that don't work…
...
30 FOR L=47872 TO 48019
40 READ A: POKE L,A ...
120 DATA 54,201,30,150,205,0,125,221 ...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 …
... /> 20 FOR Q=0 TO 7
30 FOR Z=0 TO 7: PAPER ...
[/CODE]Everything fine, nothing to see here....
...
20 REM
30 REM
40 REM draw ... RND*9)
170 LET n=INT (RND*20)
180 ... 200 REM
210 FOR x=0 TO n
220 LET d ...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 …
... C(7)
130 FOR S=1 TO 30
140 CLS
160 FOR P=1 TO 7
170 LET ... /> 220 FOR N=1 TO 672 STEP K
230 FOR J=1 TO K ... NEXT J
260 NEXT N
270 PAUSE 200
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 …
... P(7)
150 FOR S=1 TO 30
160 CLS
170 FOR I=1 TO 7
TO 180
220 NEXT I ... /> 250 FOR N=1 TO 672 STEP K
260 FOR J=1 TO K ... NEXT J
290 NEXT N
300 PAUSE 200
Your Sinclair Smash Tips - Corrected ListingsOver at Hercules' [URL="http://craigsretrocomputingpage.eu5.org/smashtips/index.html"]YS Smash Tips site[/URL] he has a list of hacks that don't work…
... here's a new hack for infinite time:
[CODE ... RESTORE 30: FOR F=32768 TO 32803: READ A: POKE F,A
30 LET ...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 …
... efects. However its better to have ****ty sound than ... /> I tend to follow the view that to involve as many ... FOR N=0 TO 40 STEP B
20 BEEP (A/1000),N
30 ... NEXT N ...
40 GO TO 10
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 …
... /> 30 NEXT J
31 STOP
40 FOR I=0 TO 15 ... FOR I=0 TO 15: INK INT (RND*6)+1: PRINT "\:: ";: FOR N=0 TO ... 40 STEP 5: BEEP 0.005,N: NEXT N: BORDER ... FOR N=0 TO 40 STEP INT (RND*10)+1: BEEP (INT (RND*30 ...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 …
... FOR I=0 TO 15: INK INT (RND*6)+1: PRINT "\:: ";: FOR N=0 TO ... 40 STEP 5: BEEP 0.005,N: NEXT N: BORDER ... FOR N=0 TO 40 STEP INT (RND*10)+1: BEEP (INT (RND*30 ... )/1000),N: NEXT N: RETURN
[/CODE][/QUOTE]
To get ...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 …
... />
Happy day, starting to understand arrays in basic.
10 FOR N=0 TO 30
20 READ D
30 DATA 12,12,12 ... BORDER 0
10 FOR N=0 TO 30
20 READ D
30 DATA 12,12,12 ...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 …
... would have been great to have had this when ... its not so hard to implement a interactive character sheet ... 20 GO SUB 9800
30 GO SUB 9020
40 ... SECTION
1000 GO TO 9100
1099 REM ... STAMINA";CSTAMINA
1120 FOR N=1 TO 100
1121 LET ...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 …
... ]
10 FOR a=USR "a" TO USR "a"+7: POKE a,0 ... : NEXT a
20 FOR a=7 TO 0 ... $-8):
FOR b=USR u$ TO USR u$+7: POKE b,p ... : NEXT b:
PRINT u$: NEXT a
30 FOR ... a=0 TO 100: PRINT AT 9 ...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 …
... />
[CODE]
100 FOR T=9 TO 0 STEP -1
[CODE]
100 FOR T=9 TO 0 STEP -1
160 PRINT ""
200 FOR T=9 TO 0 STEP -1
10 FOR O=1 TO 2: FOR N=1 TO 10
20 ... READ B(O,N)
30 NEXT N ...
