-
Diminishing MircodrivesHi All Got my first ever set of MD carts today and have been fiddling around - I have what seems to be 9 blanks and the Demo cart. The demo cart loa…
... TO 23823
30 LET n = PEEK a
40 FOR b ... INT (n/2)
60 LET n = INT (n/2)
Autorun BASIC programsIs it possible to write a basic program which will autorun after typing in LOAD ""? Thanks
... IF PEEK 50014=0 THEN LET m$="Program: "
70 IF PEEK 50014 ... =3 THEN LET m$="Bytes: "
80 LET start=(PEEK 50027+256*PEEK ... :"AND PEEK 50014=0);start
120 LET cby=PEEK 50025+256*PEEK 50026 ...Oneliner contestHello to you all, I dare you to make a program on 1 BASIC line. Here is the place to sent your ONELINERS [url]http://www.zxspectrum.00freehost.co…
... FOR Z=1 TO COUNT: LET X(Z)=INT (RND*255): ... COUNT: OVER 0: PLOT X(Y),64+(Y*2): ... X(Y),64+(Y*2):
OVER 0: LET X(Y)=(6+X(Y)): LET ... R=INT ((X(Y)/256)):
LET X(Y)=x( ... Y)-(256*R): PLOT X ...Oneliner contestHello to you all, I dare you to make a program on 1 BASIC line. Here is the place to sent your ONELINERS [url]http://www.zxspectrum.00freehost.co…
... : POKE f,a: NEXT f: LET s=0:
BORDER 0 ... : PAPER 0: INK 7: CLS : LET x=15: FOR f=0 TO ... 1:
PRINT AT 0,x; INK 6;CHR$ 144: FOR ... g:
LET s=s+USR 3282-800: LET x=x+(INKEY$="0" AND ... x0):
LET f=ATTR (0,x)7 ...Oneliner contestHello to you all, I dare you to make a program on 1 BASIC line. Here is the place to sent your ONELINERS [url]http://www.zxspectrum.00freehost.co…
... f: LET x=9: LET y=1: LET p=9: LET a=1: LET b=1 ... AT x,y;" ": LET x=x+a: LET y=y+b:
LET t=(ATTR (x,y ... )7): PRINT AT x,y;CHR ... *-(2*t-1): LET s=s+t: LET f=(x=21 AND (yp ... +5)):
LET p=p ...Oneliner contestHello to you all, I dare you to make a program on 1 BASIC line. Here is the place to sent your ONELINERS [url]http://www.zxspectrum.00freehost.co…
... .
[code]
1 CLS : LET b=12: DIM p(b ... q=1 TO b: LET p(q)=VAL "3579b6bbbbb2"(q)-(q> ... (k))="HOUND"(k): NEXT k: LET u=p(6): FOR m ... n=1 TO 5: LET e=n: LET n=n+q*(a ... ,1)="HOUND"(n)): NEXT n: LET d=p(e)+(a$(q ... and at the end as LET L=...
All +1 are ...Using a multiface to exit to BasicBack in the days I was always fascinated with the idea of getting access to BASIC listings inside a program or game. I was able to work a way around …
... IF PEEK 50014=0 THEN LET m$="Program: "
70 IF PEEK 50014 ... =3 THEN LET m$="Bytes: "
80 LET start=(PEEK 50027+256*PEEK ... :"AND PEEK 50014=0);start
120 LET cby=PEEK 50025+256*PEEK 50026 ...Using a multiface to exit to BasicBack in the days I was always fascinated with the idea of getting access to BASIC listings inside a program or game. I was able to work a way around …
... =43756 TO 5E4 : LET A=PEEK F :
LET B=(32 AND A31 ... .
[CODE]RANDOMIZE USR PEEK 23627+(256*PEEK 23628)[/CODE] :confused:Using a multiface to exit to BasicBack in the days I was always fascinated with the idea of getting access to BASIC listings inside a program or game. I was able to work a way around …
... =43756 TO 5E4 : LET A=PEEK F :
LET B=(32 AND A31 ... .
[code]RANDOMIZE USR PEEK 23627+(256*PEEK 23628)[/code] :confused:[/quote ... your own BASIC and then PEEK it a-byte-at-a ... same routine I use to peek header data, but change the ...Oneliner contestHello to you all, I dare you to make a program on 1 BASIC line. Here is the place to sent your ONELINERS [url]http://www.zxspectrum.00freehost.co…
... to
LET p=p+s*(a(5 ... 1: LET k$=INKEY$: LET
x=x+(k$="p")*(x
0): LET y ... =y+(k$="a")*(y0): LET ... c$=SCREEN$ (y,x ... )
: LET c=(m& ...Oneliner contestHello to you all, I dare you to make a program on 1 BASIC line. Here is the place to sent your ONELINERS [url]http://www.zxspectrum.00freehost.co…
... 2e3 STEP .1: LET k$=INKEY$:
LET x=x+(k$="p")*(x0):
LET y=y+(k$="a ... ")*(y0):
LET c$=SCREEN$ (y,x): LET c=(m>0 ... =s+a(i): NEXT i: LET d=0:
FOR i ... ): NEXT i: NEXT r:
LET p=p+s*(a(5 ...Oneliner contestHello to you all, I dare you to make a program on 1 BASIC line. Here is the place to sent your ONELINERS [url]http://www.zxspectrum.00freehost.co…
... /> LET m=704:
LET s=0:
LET t=1:
LET h ... =3:
LET d ... /> LET n=1:
LET w=0:
LET c=0:
DIM x ... TO h:
LET x(i)=15:
LET y(i)=15-i ... :
PRINT AT y(i),x(i ...Oneliner contestHello to you all, I dare you to make a program on 1 BASIC line. Here is the place to sent your ONELINERS [url]http://www.zxspectrum.00freehost.co…
... /> LET m=704:
LET s=0:
LET t=1:
LET h ... =3:
LET d ... /> LET n=1:
LET w=0:
LET c=0:
DIM x ... TO h:
LET x(i)=15:
LET y(i)=15-i ... :
PRINT AT y(i),x(i ...plotting and rotating wireframesCan anyone point me to an example of plotting a (2d) shape and rotating it in basic. Unfortunately my trig was never that good and I want to get a h…
... 180)*5
20 LET tx=128: LET ty=96
... READ x,y
830 LET sr=SIN (r)
840 LET cr ... (r)
850 LET v(i,1)=x*cr+y*sr+tx ...
860 LET v(i ... ,2)=y*cr-x*sr+ty
970 LET x0=x1: LET y0=y1
...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…
... />
[quote]
LET z=z+(k$="6")*(18+2*(ABS z ... *(z>0))+(k$="7")*(18+2*(ABS z>1 ... /> [/quote]
[quote]
LET w=m(q+(20-ABS ...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…
... !
[QUOTE]
LET z=z+(k$="6")*(18+2*(ABS z ... *(z>0))+(k$="7")*(18+2*(ABS z>1 ... this...
[CODE]
LET u=(k$="7")-(k$="6 ... "):
LET z=z*(u=0)+u ...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…
... $(32):
LET p=11:
LET s=14:
LET r$(p ... /> LET r$(p+8)="I":
POKE 23692,0:
LET f=PEEK ... 23688:
LET g=PEEK 23689:
FOR ... /> NEXT a:
DATA PEEK 23688,PEEK 23689,"","",p-1*(p> ...Weird Computer GamesBook Title: [B][URL="http://www.worldofspectrum.org/infoseekid.cgi?id=2000411"]Weird Computer Games[/URL][/B] Page: 3, Program: Tower of Terror - [U…
... $
180 let v$="":let w$="":let vb=0:let ob=0:let li=len ... $(8)+" ") then let m$="well done!":let f(15)=1:let l(1 ... (ob)=25 then let m$="terminal password="+o$(18)
1090 return ...
1100 if ob5 then let m ...Announce: BASin r14b availableHere's the fix mentioned earlier for those of you that either are too lazy to update your OS (XP SP2 has been out aaaaages, Arjun!) or even junk that…
... $(32): LET p=11: LET s=14: LET r$(p)="I": LET r$(p ... +8)="I": POKE 23692,0: LET ... f=PEEK 23688: LET g=PEEK 23689: FOR a=0 ... : RESTORE : NEXT a: DATA PEEK 23688,PEEK 23689,"","",p-1*(p> ...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…
... r$(32): LET a=23688: LET p=11: LET s=14: LET r$(p ... )="I": LET r$(p ... : POKE a+5,5: LET f=PEEK a: LET g=PEEK (a+1): FOR ...Microdrive CATIs there a way in Basic to obtain any more useful info on the contents of a Microdrive? File size, head info for example? Also, is it possible in ge…
... ,0;: RANDOMIZE USR 55648: LET NO=PEEK 56072 + 256*PEEK 56073
- 6 ... TO NO STEP 11: IF PEEK Q13 THEN NEXT Q
PEEK N;: NEXT N
Format ...Microdrive CATIs there a way in Basic to obtain any more useful info on the contents of a Microdrive? File size, head info for example? Also, is it possible in ge…
... TO 23823
30 LET n = PEEK a
40 FOR b ... INT (n/2);
60 LET n = INT (n/2)
Some things to talk aboutThere's not too much posting going on here, so to hopefully break up this temporary lull in the postings, feel free to answer or discuss these follow…
... machine anything up to 80' x 40' x 18' on the flat bed ...Sudoku on ZX Spectrum 48KZX Spectrum 48К Sudoku game 25 years Spectrum and 300 years Leonhard Euler anniversary. 6000 (and more) puzzles, 8 levels. [url]http://www.t…
... LET q$="": LET t$="": FOR x=0 TO 255: LET q$=q$+CHR$ 0: LET ... t$=t$+CHR$ x: NEXT x
140 FOR ... y=0 TO 175: LET p$=q$: LET ... FOR x=0 TO 255: LET p=1-m*POINT (x,y): LET s ... +1)+0.5): LET l=x-INT (s/2): LET r=l+s ...Bubbler for sale on EbayI am having a cleaerout of all of my retro collection. All that is left is my Spectrum & C64 collections. I have started by listing Bubbler on Ebay…
... pack. (Big square box about 18" x 18", same as released in the ...'orange' on a spectrumalways wondered why spectrums could never seem to achieve the colour orange? wasn't one of the default colours, and don't remember seeing anything th…
... in at 49152)
6010 LET n=PEEK syspage
6020 GO ... SUB decbin
6030 LET b(1 ... select main screen
8010 LET n=PEEK syspage
8020 GO ... select second screen
9010 LET n=PEEK syspage
9020 GO ...BASin r14c - maintenance releaseAfter the recent discussions, BASin has been released as version 14c. It's only a maintenance release, and some of the really big new features are un…
But isn't VAL$(x$) the same as STR$(VAL(x$)) ?
Perhaps SE BASIC can use the VAL$ token value to implement new BASIC commands (like BBC BASIC having double-byte tokens).
