-
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…
... CLS : PRINT
INVERSE 1;"DUNRIC'S 8K ADVENTURE": PRINT ... L(16)=-1 THEN
PRINT : PRINT INVERSE 1;"CONGRATULATIONS!": ... FOR X=1 TO 200: PRINT ... "TYPE ";
INVERSE 1;"HELP"; INVERSE 0;" FOR CLUES": GO ... -
Problem with PRINT #stream on +128kWorking on a +128k, I want to choose whether all report output goes to screen or printer, so I use PRINT #stream where stream = 2 or 3 for screen or …
... on 48k.
PS#1.
I forgot to mention ... .
More experimentation shows PS#1 to be misleading. If I ... End of file" on calls 1,3,5,7 etc. and ... ]
1719 PRINT #stream; INVERSE 1;t$(1);TAB 0;
1720 FOR ... -
A fast DRAW routineI was investigating how to speed up the line drawing for the [URL="http://www.worldofspectrum.org/forums/showthread.php?t=20225"]BASIC compiler[/URL]…
... :
ld (DX1 + 1), hl ; Updates DX1 call address ... :
ld (DY1 + 1), hl ; Updates DX1 call address ... ; Replace with CPL if INVERSE 1
__PLOTOVER:
... 1 AND INVERSE 0
; Replace with AND (hl) if INVERSE 1 ... -
ZX-Preview 2.0 out nowDear forum readers, I've had published a new version of ZX-Preview today, we have version 2.0 now. :-) You find it on my homepage at [url]http://www…
... a very wrong display of INVERSE attributes in Basic listings: Instead ... of setting permanent INVERSE attribute, it was simply toggled ... an occurrence of an INVERSE 0 or INVERSE 1. Very silly bug.
Shaded Desktop...Hi Folks, As part of some BASin testing I thought I would create a little program that creates a shaded desktop. In this case it goes from solid bl…
... BORDER 0: PAPER 0: INK 1: CLS
120 REM ... $ 0+CHR$ 16+CHR$ 1+CHR$ 22+CHR$ 0+CHR ... (143)
170 FOR a=1 TO 160: LET b$=b ... )
190 FOR a=1 TO 160: LET b$=b ... )
210 FOR a=1 TO 160: LET b$=b ...
290 PLOT INVERSE 1;255,0: DRAW INVERSE 1;0,175
...Ideas for speeding up this BASIC routine?This loop can take up to 2 minutes to run, depending upon the content of the screen being scanned, about 70% of that time being taken up by lines 105…
... =tri TO tri-ml*my+1 STEP -my
1051 IF ... z=y TO (y-my+1) AND my ...dumping protected BASIC loadersI wrote this a few weeks ago but forgot to post it. It will load & list from tape/TAP/TZX any BASIC program which has been saved with SAVE, including…
... FOR a=bytes+1 TO bytes+10: PRINT INVERSE 1;CHR$ PEEK ... bs,"VARSsize=";vs: POKE mc+1,255:
POKE mc ... /> PRINT : LET a=a+1: GO TO 15
... 2;"[";:
FOR d=1 TO 5: PRINT BRIGHT bt ... 1+(c>=22):
PRINT INK 6; PAPER 0; INVERSE ...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…
... /> 600 PRINT INVERSE 1; INK 0;AT 1,1;"LOAD"
610 PRINT INVERSE 1; INK ... PRINT INVERSE 1; INK 1;AT 1,21;"PROGRAM BY"
750 PRINT INVERSE 1; INK 1 ... ;AT 2,21;" STEPHEN "
760 PRINT INVERSE 1; INK 1 ...New Compo IdeaI've had this idea and would like to know what do you think about it. I think that most of us here know how to code in BASIC. The problem with Specc…
... (0) or depressed (1). The port addresses are ... /> * Sinclair Interface II: Joystick 1 is mapped to the keys ... the BORDER color (bits 2, 1 and 0).
On 48K without interface 1
POKE 23756 ... collission.
1 LET Y=10: LET X ...Cool BASIC tricks and tips!Following on from Dunny's excellent suggestion of a compendium of BASIC tips + tricks, I believe it would be better to have a topic dedicated to it. …
... $ 3 = bright 1
Chr$ 4 = True video (or inverse 0)
Chr$ 5 = Inv. video (or inverse 1)
Chr$ 6 = Print komma ... = Bright 19,0-1
Chr$ 20 = Inverse 20,0-1
Chr ... $ 21 = Over 21,0-1
Lesser used BASIC commandsAre there any interesting articles or books that explore some of the lesser used BASIC commands/functions e.g. DEF FN, IN, OUT etc? The Spectrum BAS…
The SCREEN$ function does work with INVERSE though which is a nice surprise.
10 PRINT "A"
20 PRINT INVERSE 1; "A"
30 PRINT SCREEN$ (0,0)
40 PRINT SCREEN$ (1,0)
produces 4 letter "A"s. :-)Lesser used BASIC commandsAre there any interesting articles or books that explore some of the lesser used BASIC commands/functions e.g. DEF FN, IN, OUT etc? The Spectrum BAS…
... SCREEN$ function does work with INVERSE though which is a nice ... PRINT "A"
20 PRINT INVERSE 1; "A"
30 PRINT SCREEN ... ,0)
40 PRINT SCREEN$ (1,0)
produces 4 ... "s. :-)[/QUOTE]
Well INVERSE doesn't actually invert the ...Lesser used BASIC commandsAre there any interesting articles or books that explore some of the lesser used BASIC commands/functions e.g. DEF FN, IN, OUT etc? The Spectrum BAS…
... =Crisis]I use TAB and INVERSE together!!!
... br /> 20 print f; inverse 1; tab (7+x*8- ... len str$ p); p; INVERSE 0;
30 next ... attribute settings, effectively making the INVERSE 1 useless...
... br /> 20 PRINT f; INVERSE 1; TAB (7+x*8-l ...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…
... it is.
[code]
1 CLS : LET b=12: DIM ... b: PRINT AT g,0; INVERSE 1;a$(g): NEXT g: INPUT ... n=n+q*(a$(q,1)="HOUND"(n)): NEXT n: ... +6)=p(e+6)-1: LET l=1+(p(b)=11)*q ... L as variable and the 1 comes in as well.
All +1 are +1 and no +LOneliner 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…
... improved version:
1 BORDER 1: PAPER 0: INK 7: CLS ... : LET s=s+1: NEXT t: PRINT INVERSE 1; FLASH 1; INK 4;AT ... 0,h;"V": PRINT AT 1,1;" ... Congratulations! You survived!": PRINT AT 2,1;"Meteoroids: ";s ...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…
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…
... ]
PRINT AT 20,0;INVERSE 1;"Lives:";l,"Score:";t,:
INVERSE etc.. See if I can ...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…
... e) Replace ((a-1)/10) with (a/10-.1)
... :
[CODE]
1 BORDER 0:
POKE 23693 ... INT (l/10)*3+1,3*l-30*INT ( ... l/10);l+1:
LET a=.5 ... +RND*(l+1):
LET c(l+1)=c(a):< ... LET b=53:
PRINT INVERSE 1;AT 20,0;" Lives:";l ...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…
... liner:
[CODE]
1 BORDER 4:
POKE 23693 ... 30*INT (l/10);l+1:
LET a=.5+ ... RND*(l+1):
LET c(l+1)=c(a):
LET c(a)=1+INT (l/2):
NEXT ... /> LET b=53:
PRINT INVERSE 1;AT 20,0;" Lives:";l ... ,3*INT (a/10-.1),3*a-10*y-3 ...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…
... of "Graphic+A", code like INVERSE 1 instead of "Shift+4", and ...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…
... of "Graphic+A", code like INVERSE 1 instead of "Shift+4", and ...St. Michael Micromasters: Computer GamesHi, The [URL="http://www.worldofspectrum.org/infoseekid.cgi?id=2000988"]St. Michael Micromasters: Computer Games[/URL] book doesn't currently have a…
... br /> 150 input" level (1-20) ";d:gosub 3000< ... int(g):let n=n-1
460 gosub ... r(n)=int(rnd*n)+1
2010 randomize: ... 170 data -2,1,-1,2,1,2,2,1
180 border ... br /> 200 input"level (1-6) ";w:gosub 3000< ...
240 if n=1 then goto 270
...St. Michael Micromasters: Computer GamesHi, The [URL="http://www.worldofspectrum.org/infoseekid.cgi?id=2000988"]St. Michael Micromasters: Computer Games[/URL] book doesn't currently have a…
... 110 gosub 1000:let bl=1:gosub 2000
120 ... 290 input"flash (0 to 1) ";f(j)
300 ...
110 border 1:paper 7:ink 0: ... v=0:let h=0:inverse 0
130 ... let v=20:let h=1:inverse 1:gosub 700
... 1:let t=1:gosub 800:let w=1
350 if t=1 ...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…
[code]
1 DEF FN a(r,n)= ... ),40)^2:
FOR g=1 TO 4:
LET h ...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…
... /> 10 PRINT INVERSE 1;1;2
and
10 PRINT INVERSE 1;1;STR$ 2 ...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…
... CLS : PRINT
INVERSE 1;"DUNRIC'S 8K ADVENTURE": PRINT ... L(16)=-1 THEN
PRINT : PRINT INVERSE 1;"CONGRATULATIONS!": ... FOR X=1 TO 200: PRINT ... "TYPE ";
INVERSE 1;"HELP"; INVERSE 0;" FOR CLUES": GO ...
