-
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]
21 (Blackjack-variant)
1 LET B$="AJQK789T": LET c$=B$+B$+B$+B$: LET C=32: LET A$="": FOR A=0 TO 2: P
OKE 23620*(A6)
)+(P>20)): NEXT A: LET P=P*(P0)*(P1)): NEXT K: NEXT G: LET S=S+10*(A>4)*(S16: LET S=S*(SP;" ... -
SupadriveHere's an MDR image of Supadrive. Works with Spectaculator, but I haven't tested it with any other emulators. [url="http://www.superfudge.demon.co.u…
... of records 1-2,8-22 and 69-78.
As ... that COPY is the keyword (CHR$ 255).
You might also ... -
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…
... 61:
LET z=CODE (CHR$ (32+m+(40*(m=1 ... (t(w)=3-p)*n,22:
[/code]
Again an ... -
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…
... working version is now only 22 over the limit due to ... /> [code]
LET A$=A$+CHR$ (RND*4+49)
[/code ... -
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…
...
290 gosub 4000:print chr$(n+48):gosub 5000:print ... chr$(51):let s(n)=3< ... )*w:next z:if k$=chr$(m+48) then let t ... (m)=s(m)-1:print chr$(s(m)+48)
540 ... next n:let u$=chr$144:let z$=chr$145
1020 ... -
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…
... *j-1:gosub 4000:print chr$(n)
920 let n ... next n:let u$=chr$144:let z$=chr$145
1020 ... next n:let u$=chr$144:let z$=chr$145
1020 ... -
Getting started with asm Speccy codingSomeone on another forum I read has asked for good Speccy coding resources. I thought it would be great to link him to a simple tutorial about how to…
... tried and get only rubish Chr$
so should i poke ... ; Open Channel
LD A, 22 ; AT control code
RST ... -
Reading from the 128 Serial PortDon't shout at me if this is a silly question. I have Googled extensively, and searched the forums, but I can't find anything discussing what seems t…
... test file holding 6912 times CHR$ 51, and "Splitcom" found at ... -
Bak 2 SkoolI'm wondering where the alias "Bak 2 Skool" came from, considering the game is called "[URL="http://www.worldofspectrum.org/infoseekid.cgi?id=0000362…
... use a similar trick with CHR$ and some backspaces, or perhaps ... I still do remember using 22,1,0 in the first ... -
Bak 2 SkoolI'm wondering where the alias "Bak 2 Skool" came from, considering the game is called "[URL="http://www.worldofspectrum.org/infoseekid.cgi?id=0000362…
... I still do remember using 22,1,0 in the first ... as keyword. Even a TAB (chr 6) might work here.
Easy way to print text in machine code?Please? It sounds so simple, but I've never done it. At the moment I'm grabbing the start address for each letter then printing them out one at a t…
... , 17, 0 ; CHR$ codes INK7/PAPER0
defb 22, 4, 0 ; PRINT ...+3 how to detect if a file exist ?Need help. I am making a generic menu to my compilations over the spectrum +3. Exist some way programatically to detect if some file exists on the d…
... DATA 6,3,14,5,22,0,30,1,33,243 ... $;".";s$: LET f$=n$+"."+s$+CHR$ 255
60 FOR a ...+3 how to detect if a file exist ?Need help. I am making a generic menu to my compilations over the spectrum +3. Exist some way programatically to detect if some file exists on the d…
... DATA 6,3,14,5,22,0,30,1,33,243 ... $;".";s$: LET f$=n$+"."+s$+CHR$ 255
60 FOR a ...+3 how to detect if a file exist ?Need help. I am making a generic menu to my compilations over the spectrum +3. Exist some way programatically to detect if some file exists on the d…
... DATA 6,3,14,5,22,0,30,1,33,243 ... $;".";s$: LET f$=n$+"."+s$+CHR$ 255
60 FOR a ...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…
... a:
POKE n*a,22-3*(INKEY$="0">x ... 18,c; INK 5;" ";CHR$ 140;CHR$ 143;CHR$ 140;" "' INK 0; PAPER ...Fighting Fantasy games on Kindlehmmm it could tempt me into buying a kindle. [url]http://www.fightingfantasy.com/index.php?option=com_content&view=article&id=1853&Itemid=2[/url]
... file prc (kindle files), htm, chr files to name but a ... -tablet-pc-7-inch-android-22-via-8650-flash-101-720p ...Fighting Fantasy games on Kindlehmmm it could tempt me into buying a kindle. [url]http://www.fightingfantasy.com/index.php?option=com_content&view=article&id=1853&Itemid=2[/url]
... file prc (kindle files), htm, chr files to name but a ... -tablet-pc-7-inch-android-22-via-8650-flash-101-720p ...SE Basic Type-ins^Pete suggested creating a sticky thread for SE Basic discussion. I thought a Type-ins thread might also be useful. Up to the mods if they want to ma…
... LET n$(o,n,p)=CHR$ a
9908 NEXT p ... LET n$(o,n,1)=CHR$ 0
9915 LET n ... $(o,n,2)=CHR$ a
9916 NEXT n ... /> 9927 DATA 26,25,23,22,21,20,18,17,16 ...SE Basic Type-ins^Pete suggested creating a sticky thread for SE Basic discussion. I thought a Type-ins thread might also be useful. Up to the mods if they want to ma…
... TO 255
30 PRINT CHR$ x;
40 NEXT x ... , $00, $00
defb $22, $88, $22, $88, $22, $88, $22, $88, $55, $aa ...SE Basic Type-ins^Pete suggested creating a sticky thread for SE Basic discussion. I thought a Type-ins thread might also be useful. Up to the mods if they want to ma…
... 255
40 PRINT #4;CHR$ i;
50 NEXT i ...
ld a, (atflg) ; code 22 - the code for AT.
atchq:
cp 22 ; If the current character is ...SE Basic Type-ins^Pete suggested creating a sticky thread for SE Basic discussion. I thought a Type-ins thread might also be useful. Up to the mods if they want to ma…
... : LET n$(o,n,p)=CHR$ a
50 NEXT p ... LET n$(o,n,1)=CHR$ 0
80 LET n ... $(o,n,2)=CHR$ a
90 NEXT n ... /> 310 DATA 26,25,23,22,21,20,18,17,16 ...Copying a SCREEN$ in ZX BASIC in 1 second?!Following on from the revived "[thread=20207]Saving a complete SCREEN$ in BASIC[/thread]" thread (although Arjun really only needed a suitable POKE i…
... ,b,l,m,o)
=CHR$ (65+o+((CODE a$-1 ... $
+CHR$ (a-256*b)+CHR$ b+CHR$ (l-256*m)+CHR$ m
22:
IF PEEK dmSE Basic Type-ins^Pete suggested creating a sticky thread for SE Basic discussion. I thought a Type-ins thread might also be useful. Up to the mods if they want to ma…
... THEN PRINT #0;AT x-22,y; PEN 0; PAPER 8 ... ; FLASH 8; BRIGHT 8;CHR$ 144
320 PAUSE 5 ... THEN PRINT #0;AT x-22,y; PAPER 8; FLASH 1 ...New Functions for Sinclair BasicA total of 52 new functions can be added to Sinclair BASIC; 26 numeric functions (A-Z) and 26 string functions (A$-Z$). Owing to the internal structu…
... .php?p=544274&postcount=22[/URL]
NOTE:
CHR$ 19
3+"d" AND ...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. …
Hi Folks,
Well I have almost finished my Model Railway Timetable program and thoughts are starting to move on to project #2. A requirement is likely to be a full screen input routine and to this end I have rewritten my XINPUT code from a few ...File size in 128K RAM diskHi Folks, Is there a way to get the size of a file stored in the 128K RAM disk from within a BASIC program? Many thanks Paddy
... ,b-a+1)=CHR$ PEEK b: NEXT b
22 FOR b ...
