-
mire mareproof? [url]http://pic15.picturetrail.com:80/VOL600/2588775/9185163/153133785.jpg[/url]
... . CHR$ 22+CHR$ 1+CHR$ 0 is the same as PRINT AT (CHR$ 22) 1,0 (CHR$ 1+CHR ... the "Program:" before ending with CHR$ 6, which is the same ... of that line (ie PRINT CHR$ 6+CHR$ 6 would clear the ... were others which used the CHR$ 22 to print the filename ... -
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 +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…
... 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…
... 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 ...Disappearing/appearing effectI remember doing a small routine in BASIC which could be used to cover the attributes section randomly, until all 704 characters were filled with the…
... )=CHR$ (f-1):
LET a$(f+256)=CHR$ (f-1): ...
LET a$(f+512)=CHR$ (f-1): ...
LET b$(f)=CHR ... /> LET b$(f+256)=CHR$ (1):
LET b$( ... f+512)=CHR$ (2):
NEXT f ...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 ...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…
... 6: CLS : PRINT INVERSE 1;"DUNRIC'S 8K ADVENTURE": PRINT ... goto71
70 PRINT INVERSE 1;"ENTER YOUR NAME";: INPUT ... (16)=-1 THEN PRINT : PRINT INVERSE 1;"CONGRATULATIONS!": FOR X=1 TO ... RECOGNIZED": PRINT "TYPE "; INVERSE 1;"HELP"; INVERSE 0;" FOR CLUES": GO ...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…
... 6: CLS : PRINT INVERSE 1;"DUNRIC'S 8K ADVENTURE": PRINT ... 200: LET DM=1
70 PRINT INVERSE 1;"ENTER YOUR NAME ... (16)=-1 THEN PRINT : PRINT INVERSE 1;"CONGRATULATIONS!": FOR X=1 TO ... RECOGNIZED": PRINT "TYPE "; INVERSE 1;"HELP"; INVERSE 0;" FOR CLUES": GO ...Interlace demoSorry to reference another thread like this, but in the thread: [url]http://www.worldofspectrum.org/forums/showthread.php?p=313428#post313428[/url] …
... and INK 0, PAPER 7, INVERSE 1 chequerboards.
Nobody actually ...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. …
... mode by doing: [B]print chr$ 144[/B]. This will print ... graphics A. [B]print chr$(144+1[/B]) will print graphics B ...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. …
... mode by doing: [B]print chr$ 144[/B]. This will print ... graphics A. [B]print chr$(144+1[/B]) will print graphics B ...Amiga 'notebook'Interesting Auction on Ebay.. [url]http://cgi.ebay.com/Amiga-1200-Black-Edition-Notebook_W0QQitemZ250412259536QQcmdZViewItemQQptZUK_VintageComputing…
... one you linked to... Almost Inverse 1! :)
Wouldn't say ...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 …
... to stream #3, then the INVERSE 1 in the first PRINT #stream ... one for the printer is INVERSE then it's no great ...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 …
... to stream #3, then the INVERSE 1 in the first PRINT #stream ... one for the printer is INVERSE then it's no great ... the same result as using INVERSE because if you have black ...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…
I propose a 1-byte per number solution which ... ASCII characters from space (chr$(32)) to copyright (chr$(126)) is more ... /> (space) = chr$(32) = 0
! = chr$(33) = 1
" = chr$(34) = 2
# = chr$(35 ... until you each
h = chr$(72+32) = 72
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. …
Location of variableHi everyone When basic makes an array how to you find out the location in the ram of where the data is stored. :) Also, does it store the values in…
... )=PEEK a+256*PEEK (a+1)
3000 REM FIND ... PRINT #0;AT k0,k0; INVERSE 1;"SEARCHING FOR ARRAY ";o$;"$()";TAB ... =i+2+FN p(i+1): NEXT i
3005 IF ... THEN
FOR a=i+1 TO FN p(23641)-2 ...RFC: 64 column font codeIn BASIC, type CLEAR 49999 then import the code at 50000. Then type RANDOMIZE USR 50000. This will create a new channel and attach stream #4 to it. A…
... br />
Actually implementing INVERSE is even easier. You just ... a way to interpret the INVERSE statement correctly, without causing ... /> [CODE]
PRINT #4; INVERSE 1;: PRINT #4;"a";
PRINT #4;: INVERSE 1: PRINT #4;"a";
[/CODE ...Othello/Reversi Validate and Make MovesI'm working an Othello/Reversi game The board is represented as a 2d array 8*8 ie: 00000000 00000000 00000000 00012000 00021000 00000000 00000000 000…
... /> 130 PRINT AT y,x; INVERSE 1; INK a(x,y)+3 ... THEN PRINT AT p,q; INVERSE 1; INK a(x,y)+3 ... THEN PRINT AT p,q; INVERSE 1; INK a(x,y)+3 ... THEN PRINT AT p,q; INVERSE 1; INK a(x,y)+3 ... THEN PRINT AT p,q; INVERSE 1; INK a(x,y)+3 ... THEN PRINT AT p,q; INVERSE 1; INK a(x,y)+3 ...Othello/Reversi Validate and Make MovesI'm working an Othello/Reversi game The board is represented as a 2d array 8*8 ie: 00000000 00000000 00000000 00012000 00021000 00000000 00000000 000…
... /> 130 PRINT AT y,x; INVERSE 1; INK a(x,y)+3 ... THEN PRINT AT p,q; INVERSE 1; INK a(p,q)+3 ... THEN PRINT AT p,q; INVERSE 1; INK a(p,q)+3 ... THEN PRINT AT p,q; INVERSE 1; INK a(p,q)+3 ... THEN PRINT AT p,q; INVERSE 1; INK a(p,q)+3 ... PRINT AT p,q; INVERSE 0; FLASH 1; INK a(p, ...Othello/Reversi Validate and Make MovesI'm working an Othello/Reversi game The board is represented as a 2d array 8*8 ie: 00000000 00000000 00000000 00012000 00021000 00000000 00000000 000…
... PRINT AT p,q; INVERSE 1; INK a(p,q)+3;" ... XOO"(a(p,q)+1):: LET p=p-1
205 IF ... THEN PRINT AT p,q; INVERSE 1; INK a(p,q)+3 ... ;"XOO"(a(p,q)+1): LET q=q-1
207 IF ...
