-
Need to scroll one column using m.c.I've used many of the available routines to scroll the entire screen in any direction, but I'm not being able to find one that would allow me to scro…
... "LET a$=a$(2 TO)+CHR$ 0" scrolls the attributes reasonably ... bc=FN l(column,0,21,0,0)" would provide the ... $(r TO r+2)=CHR$ 17+CHR$ (p+1)+CHR$ c:
LET ... -
What is the best way to detect CAPS LOCK?Hi Folks, Not sure what the correct behaviour is here as I do not have access to a real Spectrum. Under BASin, when you press CAPS LOCK on the PC k…
... />
[CODE]100 PRINT AT 21,0;PEEK 23658,,
110 ... 0
120 PRINT AT 21,0,,
130 LET a ... PRINT AT 0,0;a,CHR$ a
150 POKE 23560 ... -
Pixel plots for entire Spectrum charsetDoes anybody have these, preferably relative to their 8x8 pixel grid, or know an easy way of finding out (i.e in a format similar to the data bin exa…
... 127
20 PRINT AT 21,0;CHR$ c
30 FOR ... ,y): LET c$(x+1)=CHR$ 143 AND p: LET p ... y
55 PRINT AT 21,0;" ";AT 8,0,,,,,,AT ... -
Printing a ListingHello my fellow WoS'ers Todays trouble starts with the need to print-out a listing - personally I would prefer a text file, but beggars cannot be c…
... ,"w>"+STR$ (c*2)+",21,2,8,"+STR$ c
21,2,8,"+STR$ c
21,2,8,"+STR$ c
CHR$ 14;CHR$ 28;CHR$ 1;CHR$ 29;CHR$ 1;"Size ";c ... ; PAPER 7;CHR$ 18;CHR$ 1;CHR$ 19;CHR$ 1;CHR$ 30;CHR$ 1;CHR$ 1;CHR$ 14 ... -
WibbleBibble's Basic threadHi in an attempt to keep my questions from spamming the forum. I think its better to put them all in one place. Thanks everyone so far, I feel I am …
This isn't a reply to the previous post, it's a follow-up to post #4.
Before I go any further, I'll point out that the following routine won't work correctly in BASin, as BASin doesn't return the correct codes for Symbol(Ctrl)-shifted keys or ... -
WibbleBibble's Basic threadHi in an attempt to keep my questions from spamming the forum. I think its better to put them all in one place. Thanks everyone so far, I feel I am …
... = 2
CHR$ 51 = 3
CHR$ 52 = 4
CHR$ 53 = 5 ...
CHR$ 54 = 6 ...
CHR$ 55 = 7 ... -
WibbleBibble's Basic threadHi in an attempt to keep my questions from spamming the forum. I think its better to put them all in one place. Thanks everyone so far, I feel I am …
Thank you. I understand.:)
That code snippet is going to get used all over the place. Very useful.
Ok as this was supposed to be a 'Space docking simulation' (snigger snigger...)
Lets set the background to something a ... -
40 Column Printing RoutineI've written a 40 column printing routine, which I'd like to share... It's my first piece of 'public' code so go easy on me! I don't think it is a…
... printing routine y=0 to 21
fontaddress defw uglifont ...
; accepts: CHR$22,Yccord,Xccord
; CHR$13
; Routine ... ; used during printing of ctrl chr$
shiftamount defb 0 ; ... defb 18,210,147,84,21,213,150,87,24,216 ... -
WibbleBibble's Basic threadHi in an attempt to keep my questions from spamming the forum. I think its better to put them all in one place. Thanks everyone so far, I feel I am …
... g: LET g$(n,b)=CHR$ g: NEXT b:
PRINT ... ,22,10,0,16,1,21,1,143
32 DATA ... ,22,20,0,16,3,21,1,142
50 POKE ... :
LET g$(n,3)=CHR$ (g AND g1): IF b ... ):
LET g$(n,2)=CHR$ (g AND g -
WibbleBibble's Basic threadHi in an attempt to keep my questions from spamming the forum. I think its better to put them all in one place. Thanks everyone so far, I feel I am …
From page 21
[YOUTUBE]mSiHTe7a9ck[/YOUTUBE]< ... /> 170 PRINT AT R,C;CHR$ S;
180 NEXT N ... -
WibbleBibble's Basic threadHi in an attempt to keep my questions from spamming the forum. I think its better to put them all in one place. Thanks everyone so far, I feel I am …
[QUOTE=WibbleBibble;649808]So with an array whats faster for basic to work with a array of strings or a numeric array if i have data that could be used either as a numeric array or i could just put them in a char array.[/QUOTE]
Here's a simple ... -
WibbleBibble's Basic threadHi in an attempt to keep my questions from spamming the forum. I think its better to put them all in one place. Thanks everyone so far, I feel I am …
... /> [code]
1 PRINT AT 21,0;"FIRST HEART SHOWS WINNER ... ;"MOVE";"S" AND d;TAB 21;"SPACES":
NEXT d
CHR$ 8;: LET pink=p AND ... -
Converting UDG to 2x2I've got a udg that I want to display in different sizes. Obviously I just print it for normal size, I can use the udg in bin format to display it ea…
... =1 TO 4:
PRINT CHR$ (128+CODE d$(b2,c ... quite respectable now, printing all 21 4x4 UDGs positively whizzes along. -
Your Computer Magazine ScansPlease forgive my Intrusion. At the moment I'm trying to type in an Amstrad game called "Bomber" which was published in an issue of "Your Computer" O…
... br /> 340 PRINT #8,CHR$(27);"A";CHR$(SPACE%);
350 PRINT ... ,CHR$(27);"C";CHR$(0);CHR$(11);
370 PRINT #8,CHR$(27);"N";CHR ... $="12345678901234567890123456789012345678901234567890123456789012345678901234567890"
530 LOCATE 1,21:PRINT n$;
540 x ... -
CAT!RAM and PUTRAMLast year sometime I posted a couple of routines to: * catalogue the 128k RAMdisk in BASIC; * move RAMTOP and the stacks from BASIC. CAT!RAM and PUTR…
... f$(n,b-a+1)=CHR$ PEEK b: NEXT b:
21;f(n,3):
PRINT ... t THEN
PRINT TAB 21;f(n,7);TAB 27 ... -
calculator and sinusok, look at the Sysel's routine: [PHP]3 5b00 *s 4 5b00 tabsin = #7000 03 mksin 19.11.1995 Busy soft …
... gives $34,$ee,$7c,$50,$21,$2a which prints out correctly ... /> 10 DEF FN h$(n)=CHR$ (n+48+(7 AND n ... -
calculator and sinusok, look at the Sysel's routine: [PHP]3 5b00 *s 4 5b00 tabsin = #7000 03 mksin 19.11.1995 Busy soft …
... STOP
2010 PRINT AT 21,0'
2011 FOR i ... p,CODE "AEDCB"(i): INPUT (CHR$ PEEK p);" "; LINE n$:
CHR$ PEEK p;"=";b(i);" ";:
CHR$ (INT n+48+(7 AND ... -
BIN2BAS (load BASIC text into emulator) utilityI've nearly finished testing this. It allows a BASIC program to be loaded from a text file in any emulator which has a "load binary" option. I was wo…
... 4: INPUT #5;a$
21 INVERSE 1: LET a=c ... : LIST #3;21: LLIST 11: LOAD "t:": LOAD ... 12345,BIN 01010101: LET a$=CHR$ b
31 PRINT CODE ... -
Confounded DEF FNCan anyone see why this is going wrong? I've been tinkering with it since tea time and got nowhere. [code] 2 DEF FN t$(n,t,d) =STR$ INT (n/t)…
... can be used to hold 21 single-letter variables which can ...
[/code]
All 21 don't have to be ... -
Code execution logging/profilingAs revealed in [url="http://www.worldofspectrum.org/forums/showthread.php?t=41666"]this thread[/url], I'm adding support for reading code execution l…
... $(4): LET h=p
21 DIM q$(100,4): DIM ...
32 IF a$(a)CHR$ 10 THEN NEXT a
Books that you just can't quit.Much as parts of the presentation,writing style infurates me, there is a book I just keep comming back to again and again. Its like the Yang to the …
... long from row R collum CHR$
1049 REM P is ... ,0; PAPER 6;,,: PRINT AT 21,0; PAPER 6;,,
1099 ... I$=CHR$ 18+CHR$ 1+"PRESS ENTER TO START GAME"+CHR$ 18+CHR$ 0 ... ,0.06,19,0.06,21,0.15,27,0.06 ... ,21,0.2,27
2019 ...Problem With POINT StatementHello everyone this is my first ever post, So firstly i'd like to say hello to everyone and secondly thank you to the admins for such a great site, …
... )
=CHR$ 16+CHR$ INT (RND*8)+CHR$ 17+CHR$ INT (RND*8)+CHR$ (a ... /> 802 LET ra=INT (RND*21): LET ca=INT (RND*31 ... ):
LET rz=INT (RND*21): LET cz=INT (RND*31 ...Type-in BASIC contest on Reddit.Not sure how WOS-legal it is to mention/link to other forums, but Reddit is having a contest on r/retrobattlestations, asking readers to type a speci…
... ;0 THEN LET e$=e$+CHR$ 13
1560 LET e ... =FN w(p$(sb TO),CHR$ 13): IF se THEN LET ...
