-
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 …
... ;"Choose one..."
100 LET k$=INKEY$
110 ...
120 LET k=CODE k$-CODE "a"+1
... br /> 2020 LET a$=INKEY$
2030 IF a$="n" THEN CLS ... --"
2710 LET a$=INKEY$
2720 IF a$="" THEN GO TO ... RETURN
2800 LET clr=CODE a$(2 TO 2)-CODE ... -
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…
... Swedish composite mod with a capacitor, I fixed ... disconnects and operates FIRE on a second joystick port.
The 'A' key works, caps-shifted ... AT 0,0;
20 LET A = 128 * 256
... 40 PRINT IN (65534 - A);" "
50 LET A = A / 2
60 ... -
WTF stupid machine10 LET X = 28672 or 61440 depending on how much memory you have 20 LET A$ = ?? 30 IF A$ = ?? THEN INPUT A$ 40 LET Y = CODE A$ ? 48:IF Y>9 THEN LET Y …
... 20 LET A$ = ??
30 IF A$ = ?? THEN INPUT A$
40 LET Y = CODE A ... $ ? 48:IF Y>9 THEN LET ... Y ? 7
50 LET Z = CODE A$(2) ? 48: IF Z ... >9 THEN LET Z = ... = X + 1
80 LET A$ = A$(3 TO )
90 GO ... -
Machine code issue...Hi Folks, My trials with MCODE continue and I am stuck. I wrote the following program in BASIC to simply POKE an attribute byte in to a "box" on th…
... p(5)=Attribute
1045 LET a=22528+p(1)*32+p ... /> POKE a,p(5):
LET a=a+1:
NEXT c:
LET a=a+32 ... /> 3A02FA LD A,(64002) ;A=Height
47 LD B,A ;B=Height ... -
variable variable names with VAL$It's possible to make the RH-side variable names in a LET statement be themselves variable by using VAL$. Thus, if v$ holds the [b]name[/b] of anothe…
... RH-side variable names in a LET statement be themselves variable by ... another variable, then:
[b]LET a$=VAL$ v$[/b]
for ... a string, or:
[b]LET anumber=VAL VAL ... LH-side variable name in a LET statement be variable. I can ... -
INSTR function...Hi Folks, Another little program that people might find useful: [CODE]100 DIM i(4) 110 LET a$="This is some sample text" 120 LET b$="text" 130 GO S…
... DIM i(4)
110 LET a$="This is some sample text ... SUB 9000
140 PRINT "a$=";a$:
PRINT "b$=";b$:
LET i(3)=LEN a$-i(2)+1:
LET i(4)=0
9080 LET i(1)=i(1)+1:
IF a$(i(1 ... -
Storing two 4 bit values in one byteHi Folks, Another little tip to share although I suspect this one will be known to a lot of you out there. ;-) I wanted the ability to store two 4 …
... one will be known to a lot of you out there ... ]100 LET A=7
110 LET B=5
120 LET BYTE=A*16 ... +B
130 LET A=INT(BYTE/16 ... )
140 LET B=BYTE-A*16[/CODE ... -
Manipulating attributes...Hi Folks, I have written a routine that allows a blue bar to be scrolled up and down a list to select an item. Each item in the list occupies two l…
... /> LET RedWhi0=58:
LET RedWhi1=122:
LET b=0:
LET a$="Sample ... First Line Data Here":
LET b ... ;"ATTR Line ";a;"=";ATTR (a,1):
NEXT a
190 LET y=0 ... -
Klaatu barada niktoSo, they let a complete stranger, a man, look after their boy for the day? heh - that's now seems more far fetched than the whole alien from another…
So, they let a complete stranger, a man, look after their boy for the day?
heh - that's now seems more far fetched than the whole alien from another planet part of the story. -
SpecBAS 0.646 now available.Yay! Here's another round of bugfixes and additions to the Program. Not so much of the extract coding features, but more back-to-basics this time: […
... highlighting to the LIST window. Let me know what you think ... the # character:
10 LET a$="Hello"#32"there!"
a very good reason... a bug.
Small ... meant that loading graphics into a graphic bank was pretty ... -
Storing and displaying attributes...Hi Folks, I have a requirement to store and then redisplay a line of attributes from the screen. For example: 100 DIM a$(1,32) 110 LET line=10 120…
... />
I have a requirement to store and then ... redisplay a line of attributes from ... a$(1,32)
110 LET line=10
120 LET a$( ... 1)=USR xxxxx
After line 120 a$(1 ... or will it require a couple of machine code ... -
Speeding up select processing...Hi Folks, I have the following code in my program and it works fine but is rather "sluggish". I have even moved it to the beginning of the program …
... REM
260 LET t(1)=2:
LET t(3)=t ... /> POKE 23560,0
280 LET t(2)=PEEK 23560:
320 LET a=t(1)+(2 AND t ... at(1) THEN LET a$=s$:
LET t(1)=a: GO TO 270 ... /> 340 OVER NOT PI:
LET s$="":
POKE 23563,0 ... -
Operator ANDHi I'm trying to write some very simple game in ZX Basic, but I guess I've forgot most of it because I can't understand why simple IF....THEN sequen…
... executed:
...
10 let a=1
...
100 IF ... a=0 AND SCREEN$ (1,1)=" " THEN LET Y=Y ... true. I was surprised that LET Y=Y-1 is executed ... SCREEN$ (1,1)=" " AND a=0 THEN LET Y=Y-1
Sneak Peak...Hi Folks, A sneak peak of the application I have been writing over the last few months (with a lot of help from this group, BASin and recently ZXDS)…
... Folks,
A sneak peak of the application ... the last few months (with a lot of help from this ... move areas of memory via a simple LET A$=B$.
... the application but I wanted a program that would run my ... timetable for my layout on a DSi XL. ;)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…
... the sets, someone suggested a randomize command ,but that ...
40 DIM A(49)
50 LET Z=49
... FOR n=1 TO z: LET a(n)=n: NEXT n< ... n)
90 LET X(c)=a(x): LET c=c+1< ... SETS OF 6
140 LET C1=1
150 ... 170 NEXT F
180 LET C1=C1+6: PRINT
Streams - File HandlingHello there my fellow WoS'ers I am attempting to write a Z80 / Snapshot Launching program that is based on a category of files # - Z whereby each f…
... FILE HANDLING
10 LET y=0:
LET a$=""
... 13 THEN GO SUB 1000: LET a$=""
50 IF c ... AND c < 128 THE LET a$=a$+ CHR$ c
60 ... 1000 PRINT AT y,0; a$ :
LET y=y+1 :
a character at a time from the file ...Would you be an organ donor?I don't know what prompted it, but at work I overheard a typist tell another that she'd never sign up to be an organ donor as if you were dying in ho…
... then they'd just let you die instead of ... people were corrupt enough to let people die for their ... person see, or my eardrums let a deaf person hear, or ... my spinal column and legs let a wheel-chair bound person ... my body is just a corpse on a mortuary slab, then ...SpecBAS 0.718 Now AvailableHi Folks! After an appreciable delay, the latest and (dare I say it?) greatest SpecBAS update is now available. We're moving into modern times with …
... coord(x,y)
20 LET a$=STRUCT coord(x=100,y ... be assigned to strings, with LET a$=STRUCT name[(default param=value ... separate member parameters - LET a$.myval=10 or LET a$.mystr$="Hello"
Can ...BASIC: Find the nearestHello guys) A few days ago I found oldie ?Jeux et casse-tete a Programmer? by Jacques Arsac (Paris?85) and suggested my nephew to try a few in Basic…
... Jeux et casse-tete a Programmer? by Jacques Arsac ... Shortly,
- there?s a field NxM
- there?s ... a hero at a random position
... via
a) bruteforce dim A/B scanning, e ... let a=abs(A(i)-x): let b=abs(B(i)-y)
let distance2=a ...M/C mathsHow would I do the equivalent of LET A=B*7 in machine code?
How would I do the equivalent of LET A=B*7 in machine code?more on storing mazesPrompted by Wookiee's escapades, I've been pondering on how to use DATA statements directly for displaying background graphics, thus avoiding the dup…
... /> POKE a,PEEK a-201: POKE a+1,PEEK (a+1)-96: LET a=a+1
74 IF PEEK a> ... a+1,PEEK (a+1)-96: POKE a+2,PEEK (a+2)-96: LET a=a+2 ...
76 NEXT a
Code optimisation - can you help?Hi Folks, I have been looking at the following code fragment for days and I have been able to improve its performance quite a bit. However, it is a…
... its performance quite a bit. However, it is a time critical section ... .
[CODE]...
350 LET h=INT (CODE i$(4 ... ;i$(8 TO 30):
LET h=INT (CODE i$(32 ... ):
LET m=CODE i$(32)-h*16:
LET a$="":
IF ...New dual floppy disk drives sets offered on eBayI just offered my new dual floppy sets on eBay: [url]http://cgi.ebay.co.uk/ws/eBayISAPI.dll?ViewItem&item=180850230689[/url] Included is the dual fl…
... on
A floppycable without twist is used ... /> Drives are often named ‘A’ and ‘B’ and often ...
A floppycables with a twist is used to let a drive respond ... to drive A ... me!
Also let me know if you want ...Brand new dual floppy disk drives setsI am offering brand new boxed dual floppy sets: [IMG]http://benophetinternet.nl/ebay/IMG_3517.JPG[/IMG] Included in a set are: - A boxed dual flopp…
... />
Included in a set are:
- A boxed dual floppy drive ... 16: Motor on
A floppycable without twist is used ...
A floppycables with a twist is used to let a drive respond ... to drive A or ...ds lite screen issueright heres the story my kids had a pink ds lite after a couple of years it developed a fault, where its not calibrated properly, even when weve tri…
... br /> the eldest now has a 3ds and the youngest has ... is indeed still quite a way off for you ... br /> thought just buying a new bottom screen might solve ... theres two?
a bottom screen plus a touch part?
its a shame to let a whole a ds lite go to ...What is the best way to detect CAPS LOCK?Hi Folks, Not sure what the correct behaviour is here as I do not have access to a real Spectrum. Under BASin, when you press CAPS LOCK on the PC k…
... do not have access to a real Spectrum.
... Any keyboard reading from within a BASIC program reflects this.
[CODE]100 LET a=CODE INKEY$
110 PRINT ... printed on the screen. Unfortunately, a second press does not seem ...Best books & Sugested reading..Hi i was trying to search the forum but couldnt find it. Looking at WOS there is a number of books on BASIC, programming, machine code ect.. I mess…
... articles assumed you were using a assembler already..) usualy it ended ... and think of a solution to a problem and write a solution in ... than black?
10 LET A$=CHR$ 16+CHR$ 2+"INPUT ... SOMTHING:"
20 INPUT (A$); LINE A$
So what ...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 …
... Spectrum Games Master. Its a great start thanks for that ... , its supposed to let you draw a title page for the ... : CLS
20 LET L=10: LET C=15
30 ... LET I=2
40 PRINT AT L,C;"*"
50 LET A ... $=INKEY$: IF A$="" THEN GO TO 50 ...Questions about BasicHi everyone, I am Max, student of media studies in berlin, and I have to do a little project on the spectrum. I am working on a sinclair zx spectrum…
... . I am working on a sinclair zx spectrum +2 ... dim a(10)
let a(1)=7
let a(2)=-3
let a(3 ... of just adding: print a(1)+a(2)+a(3)
a=val("hallo")
a=val("15")
... :(
10 Let a$="ux1000w0c&w1c&w2c ...Keyboard TrickI know how to use the multi key in BASIC with IN you can get the keys [QUOTE]IN 254+256*(255-2^K)[/QUOTE] K is the keyboard's half row, comes from …
... c = 0 to 7
let a = 254+256*(255-2^c ... )
let b = 191 - IN a
if(b ... < 16)then let k(c ... > 16)then let b = b-16:let k(c+1,1 ... > 8)then let b = b-16:let k(c+1,2 ... > 4)then let b = b-16:let k(c+1,3 ...
