-
A BASIC compiler projectHi, I started my own BASIC compiler for the ZX Spectrum (and Z80 machines) 3 months ago. It's still in ALPHA stage (when it is mature, I will write …
Here's a simple 'Catch the bricks' game...
[code]
10 LET A$=">_ -
A BASIC compiler projectHi, I started my own BASIC compiler for the ZX Spectrum (and Z80 machines) 3 months ago. It's still in ALPHA stage (when it is mature, I will write …
[QUOTE=mulder;278471]
[CODE]140 IF CT>LEVEL-1 THEN LET LEVEL=LEVEL+1:LET SCORE=SCORE+10:GOTO 35:END IF
150 IF LEVEL=11 THEN GOTO 1000:END IF
160 IF CT -
Happy birthday RND!!Merry birthday... Get absolutely sloshed!! (And play lots of [I]Chaos[/I]) :)
... *2)
60 IF birthdaymessage=0 THEN PRINT, "Squiggly pip day, you ... /> 70 IF birthdaymessage=1 THEN PRINT, "Pap pap, my funky squind ... /> 80 IF birthdaymessage=2 THEN PRINT, "Happy birthday, RND!"
Happy birthday RND!!Merry birthday... Get absolutely sloshed!! (And play lots of [I]Chaos[/I]) :)
... br /> 1 INK 0
2 PRINT "*******************************"
3 PRINT "* RND's ... and SHOT *"
4 PRINT "* B I R T H ... T O R *"
7 PRINT "*******************************"
10 DIM A$( ... : INK 1
205 PRINT "What will it be?"
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. …
... clear 28000
10 border 0 : paper 0 : ink 7
20 ... /> 50 data 221,33,0,64,17,0,27,62,55,205 ... ,86,5,201
60 print ...
for example 0,64 0*64*256 = 16384 (code to ... br />
17
0 = high byte
27 = low ...oh my the old days :)programming on the speccy again here is a routine i remember of the top of my head to load screens or code without a header wow 5 Clear 27999 : Re…
... e.g.
[CODE]PRINT FN h(32768),FN l ... return
[CODE]128, 0[/CODE]
... LET y=32768: RANDOMIZE y: PRINT PEEK 23671, PEEK 23670[/CODE ...
[CODE]128, 0[/CODE]
Either way ...oh my the old days :)programming on the speccy again here is a routine i remember of the top of my head to load screens or code without a header wow 5 Clear 27999 : Re…
... CLEAR 27999
20 BORDER 0: PAPER 0: INK 7
30 ... /> 80 DATA 221,33,0,64,17,0,27,62,255,55 ... ,205,86,5,201
90 PRINT ... USR 28000
110 PAUSE 0[/CODE]
... /> ld de, 6912 ; 28004 17 0 27 10ts
ld a ...oh my the old days :)programming on the speccy again here is a routine i remember of the top of my head to load screens or code without a header wow 5 Clear 27999 : Re…
... CLEAR 27999
20 BORDER 0: PAPER 0: INK 7
30 ... CLS
40 FOR i=0 TO 13
50 READ ... /> 80 DATA 221,33,0,64,17,0,27,62,255,55 ... ,205,86,5,201
90 PRINT ...Handling RST8 on a +3Well, I've come to that bit of my project that I wasn't really looking forward to (because I don't understand enough about the ZX BASIC ROM) - extend…
[QUOTE=aowen;286615] If I PRINT #9 CHR$ 0-255 then I'm ... effect of OUT n, with PRINT #9.
[/quote]
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…
How to get a TAP directory listing?I want to be able to list a summary of the contents of a TAP file to a text file so that I can add comments to it. I've got several utilities and emu…
... { ord } split '', ;
my $pos = 0;
while( $pos < ... == 0x13 and $data[$pos] == 0 )
{
print 'Header: ';
my $type ... = $data[$pos+1];
print $type'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…
... LET n=85: FOR i=0 TO 7: POKE USR "a ... x=0 TO 31: FOR y=0 TO 21
30 PRINT AT ... : NEXT x
50 PAUSE 0
[/code]'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…
... LET n=85: FOR i=0 TO 7: POKE USR "a ... x=0 TO 31: FOR y=0 TO 21
30 PRINT AT ... : NEXT x
50 PAUSE 0
[/code][/QUOTE]
'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…
... /> 110 PAPER 5: CLS : PRINT "Welcome to screen 2": CIRCLE ... /> 200 PAUSE 0: GO SUB scr2: PAUSE 0: GO SUB scr1 ... /> 1030 LET b(p)=0: IF t>=s THEN ... '
2010 LET n=0: FOR p=1 TO 8 ... br /> 7010 FOR i=0 TO 6911: POKE 49152+i ... /> 8030 LET b(4)=0
8040 GO SUB ...'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…
... : PAPER 6: INK 1: CLS : PRINT "This is screen 1";AT ...
200 PAUSE 0: POKE syspage,23: PAUSE 0: POKE syspage,31 ...Any BBC aware Specchums out there?After the UK101 and VIC20 emulators I've moved my sights onto emulating a BBC computer. This emulator will be different though in that it will be a Z…
... . MOVE 0,0: DRAW 1279,0: DRAW 0,1023: DRAW 1279,1023: DRAW 0,0 will ... inputted it calls OSWORD routine 0. I just trap these and ... following program
[CODE]10 PRINT "AND ON ";
20 GOTO ... to support windowing and VDU5 (print at graphics cursor) features.VIC 20 emulation on the SpectrumI'm sure most people are aware of the my attempt at bringing the full Commodore experience to Sinclair users with the "Twenty Commodes" program. It e…
... #0
STA COMMODE
;Initialise score and print it ... /> LDA COMMODE
CMP #0
BNE NO_COMMODEGEN
... STY WORMHEAD
; print worm on new position
print it
SED
...CSSCGC 2008 has now officially begunFor coming last in the 2007 crap game compo, I have the honour and privilege of hosting CSSCGC 2008! I have now put up the CSSCGC 2008 website at …
... />
Reset and type "PRINT PEEK 50000"
... Spin 0.62 0
RealSpectrum 0
EightyOne 1.0 Various ( ... br /> POKE 50000,100:PRINT PEEK 50000 :- result=255 ... br /> POKE 50000,100:PRINT PEEK 50000 :- result=100 ...ANN: ColorPRINTColorPRINT gives you 256 fully programmable Timex mode 2 characters (maximum 16 colours per character if you have bright black) to use in your 48 BAS…
... by changing all instances of 0,1 and 3 to NOT ... :LET a$="*":GOSUB 9000 to print 32 stars.
The ...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…
... SGN PI
2) Change 0 to NOT PI
3 ... =1 to 10
9020 print x
9030 next x ... for x=1 to 10 : print x :next x
VIC 20 emulation on the SpectrumI'm sure most people are aware of the my attempt at bringing the full Commodore experience to Sinclair users with the "Twenty Commodes" program. It e…
... LDA #0
STA COMMODE
;Initialise score and print it ... /> LDA COMMODE
CMP #0
BNE NO_COMMODEGEN
... STA (PTR3),Y
; print worm head on new position ... ; increase score by one and print it
SED
...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…
... ]10 LET x=0
20 PRINT AT 0,0;65536-USR 7962,x ... an immediate command such as PRINT 10. BASin will accept it ...Print ATHello, Can someone please tell me how to do a Print AT command? Thanks,
PRINT AT Y,X;"Foo"
Where X is 0 to 31 and Y is 0 to 21 (assuming no funny poking around in the system variables...)Print ATHello, Can someone please tell me how to do a Print AT command? Thanks,
... , all those different ways to PRINT AT!!
How about ... long winded way to do PRINT AT, :D[/QUOTE]
1030 FOR g=0 TO 7
1040 POKE ... x=32 THEN LET x=0: LET y=y+1
BEEP conundrumFor the "CSSCGC 2008 Tape Magazine" December edition, I have decided to use a BASIC sound routine I wrote last year which plays a festive tune using …
... =1/s
5 CLS : PRINT "Press 'q' to quit"
15 FOR j=0 TO 1 STEP n
BEEP conundrumFor the "CSSCGC 2008 Tape Magazine" December edition, I have decided to use a BASIC sound routine I wrote last year which plays a festive tune using …
...
4 LET o=0
5 CLS : PRINT "Press 'q' to ... 24
15 FOR j=0 TO 1 STEP n
BEEP conundrumFor the "CSSCGC 2008 Tape Magazine" December edition, I have decided to use a BASIC sound routine I wrote last year which plays a festive tune using …
... /> 4 LET o=0
5 CLS :
PRINT "Press 'q' to ...
