-
Keyboard problem...Hi Folks, I have hit a problem in MRT and I cannot see how to get around it. Please allow me to explain. I have a list of items from which one can…
... ":
PRINT AT e15,VAL "12"; OVER e1; INK e6;"> ... ;>"
3140 IF INKEY$=CHR$ VAL "13" THEN GO TO ... -
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…
... />
NEXTROW:ld b,(ix+12)
ld c,(ix+04 ... /> djnz MOVE1C
inc (ix+12)
ld a,(ix+20 ... )
cp (ix+12)
jr nc,NEXTROW
CHR$ 17+CHR$ (p+1)+CHR$ c:
LET ... -
General purpose full screen input routineHi Folks, One of the things that annoyed me back in the 1980s with most BASICs was the lack of a full screen "formatted" input function. You could …
Hi Folks,
Hard to believe it is 18 months since I posted this. Now on version 3.2 (see demo program below). This version is smaller (300+ bytes) and faster than the previous version.
As before it still offers the following ... -
General purpose full screen input routineHi Folks, One of the things that annoyed me back in the 1980s with most BASICs was the lack of a full screen "formatted" input function. You could …
Hi Folks,
Been optimising again - this version is shorter and feels more responsive.
[Code]100 REM ----------------------
110 REM XINPUT DEMO
120 REM \* 2011 PeaSea Software
130 REM 3.1 18-Jul-2011
140 REM ... -
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…
... FOR a=1 TO 12: PRINT #4;CHR$ 7;: NEXT a
CHR$ 14;CHR$ 28;CHR$ 1;CHR$ 29;CHR$ 1;"Size ";c ... to the character size: ";CHR$ 142;CHR$ 137;CHR$ 131;CHR$ 135;" but UDGs ... ; PAPER 7;CHR$ 18;CHR$ 1;CHR$ 19;CHR$ 1;CHR$ 30;CHR$ 1;CHR$ 1;CHR$ 14 ... -
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…
... ,0
defb 0,12,16,16,16,16,16 ... /> defb 0,28,34,2,12,2,34,28
defb ... 0,62
defb 0,12,18,16,60,16,26 ... 28
defb 0,0,12,16,60,16,16,16 ... ; used during printing of ctrl chr$
shiftamount defb 0 ; ... 72,9,201,138,75,12,204,141,78,15, ... -
Get a listing to .txtI am messing with an old Spectrum game which was written in Basic for the 48k Speccy (not compatible with 128s). I get an error in the begining of th…
... AT 12,1; INK 6;"CURSOR: "; INK 7; INVERSE (INKEY$=CHR$ 11 ... );" U "; I
NVERSE (INKEY$=CHR$ 10);" D ... "; INVERSE (INKEY$=CHR$ 8);" L "; INVERSE ... -
BEEP / PLAY equivalentI'm so tired I can't even think of a proper title for this. Has anyone seen a table showing a comparison between BEEP notes durations and equivalent …
... $
60 PRINT "PLAY ";CHR$ 34;p$;CHR$ 34
65 PRINT ... -
BLOG- ZXSporgBasic RPG development thread- Inspired by the Spectrum 30 show, and after a six-month wait while I was busy playing loads of gigs, I have decided to do a spot of Spectrum coding…
... ,1,0,0: DATA 56,12,14,30,30,14,4 ... AT j,0;CHR$ 143;AT j,15;CHR$ 143;AT 0 ... ,j;CHR$ 143;AT 15 ... ,j;CHR$ 143: NEXT j ... =0: PRINT AT y,x;CHR$ (144+d)
2010 REM ... -
BLOG- ZXSporgBasic RPG development thread- Inspired by the Spectrum 30 show, and after a six-month wait while I was busy playing loads of gigs, I have decided to do a spot of Spectrum coding…
... ,1,0,0: DATA 56,12,14,30,30,14,4 ... AT j,0;CHR$ 143;AT j,15;CHR$ 143;AT 0 ... ,j;CHR$ 143;AT 15 ... ,j;CHR$ 143: NEXT j ... =0: PRINT AT y,x;CHR$ (144+d)
1230 INK ... =0: PRINT AT ny,nx;CHR$ (144+nd)
2010 REM ... -
BLOG- ZXSporgBasic RPG development thread- Inspired by the Spectrum 30 show, and after a six-month wait while I was busy playing loads of gigs, I have decided to do a spot of Spectrum coding…
... ,128,0,0: DATA 56,12,14,30,30,14,4 ... AT j,0;CHR$ 143;AT j,15;CHR$ 143;AT 0 ... ,j;CHR$ 143;AT 15 ... ,j;CHR$ 143: NEXT j ... =0: PRINT AT y,x;CHR$ (144+d)
1230 LET ... AT ny,nx; INK 5;CHR$ (144+nd)
2010 REM ... -
BLOG- ZXSporgBasic RPG development thread- Inspired by the Spectrum 30 show, and after a six-month wait while I was busy playing loads of gigs, I have decided to do a spot of Spectrum coding…
... ,128,0,0: DATA 56,12,14,30,30,14,4 ... AT j,0;CHR$ 143;AT j,15;CHR$ 143;AT 0 ... ,j;CHR$ 143;AT 15 ... ,j;CHR$ 143: NEXT j ... =0: PRINT AT y,x;CHR$ (144+d)
1230 LET ... AT ny,nx; INK 5;CHR$ (144+nd)
2010 REM ... -
BLOG- ZXSporgBasic RPG development thread- Inspired by the Spectrum 30 show, and after a six-month wait while I was busy playing loads of gigs, I have decided to do a spot of Spectrum coding…
... ,128,0,0: DATA 56,12,14,30,30,14,4 ... AT j,0;CHR$ 143;AT j,15;CHR$ 143;AT 0 ... ,j;CHR$ 143;AT 15 ... ,j;CHR$ 143: NEXT j ... =0: PRINT AT y,x;CHR$ (144+d): REM character data ... AT ny,nx; INK 5;CHR$ (144+nd)
2010 LET ... -
BLOG- ZXSporgBasic RPG development thread- Inspired by the Spectrum 30 show, and after a six-month wait while I was busy playing loads of gigs, I have decided to do a spot of Spectrum coding…
... ,128,0,0: DATA 56,12,14,30,30,14,4 ... AT j,0;CHR$ 143;AT j,15;CHR$ 143;AT 0 ... ,j;CHR$ 143;AT 15 ... ,j;CHR$ 143: NEXT j ... =0: PRINT AT y,x;CHR$ (144+d): REM character data ... AT ny,nx; INK 5;CHR$ (144+nd)
2010 LET ... -
BLOG- ZXSporgBasic RPG development thread- Inspired by the Spectrum 30 show, and after a six-month wait while I was busy playing loads of gigs, I have decided to do a spot of Spectrum coding…
... ,128,0,0: DATA 56,12,14,30,30,14,4 ... ;AT j,15;CHR$ 143;AT 0,j;CHR$ 143;AT 15 ... ,j;CHR$ 143: NEXT j ... =8: PRINT AT y,x;CHR$ (144+d): REM character data ... AT ny,nx; INK 5;CHR$ (144+nd)
2010 PRINT ... AT y,x;CHR$ (144+d): LET xo=x ... -
BLOG- ZXSporgBasic RPG development thread- Inspired by the Spectrum 30 show, and after a six-month wait while I was busy playing loads of gigs, I have decided to do a spot of Spectrum coding…
... ,128,0,0: DATA 56,12,14,30,30,14,4 ... AT j,0;CHR$ 143;AT j,15;CHR$ 143;AT 0 ... ,j;CHR$ 143;AT 15 ... ,j;CHR$ 143: NEXT j ... =8: PRINT AT y,x;CHR$ (144+d): REM character data ... AT ny,nx; INK 5;CHR$ (144+nd)
2010 PRINT ... -
BLOG- ZXSporgBasic RPG development thread- Inspired by the Spectrum 30 show, and after a six-month wait while I was busy playing loads of gigs, I have decided to do a spot of Spectrum coding…
... ,128,0,0: DATA 56,12,14,30,30,14,4 ... AT j,0;CHR$ 143;AT j,15;CHR$ 143;AT 0 ... ,j;CHR$ 143;AT 15 ... ,j;CHR$ 143: NEXT j ... =8: PRINT AT y,x;CHR$ (144+d): REM character data ... AT ny,nx; INK 5;CHR$ (144+nd)
2010 PRINT ... -
BLOG- ZXSporgBasic RPG development thread- Inspired by the Spectrum 30 show, and after a six-month wait while I was busy playing loads of gigs, I have decided to do a spot of Spectrum coding…
... ,128,0,0: DATA 56,12,14,30,30,14,4 ... AT j,0;CHR$ 143;AT j,15;CHR$ 143;AT 0 ... ,j;CHR$ 143;AT 15 ... ,j;CHR$ 143: NEXT j ... =8: PRINT AT y,x;CHR$ (144+d): REM character data ... AT ny,nx; INK 5;CHR$ (144+nd)
2010 PRINT ... -
BLOG- ZXSporgBasic RPG development thread- Inspired by the Spectrum 30 show, and after a six-month wait while I was busy playing loads of gigs, I have decided to do a spot of Spectrum coding…
... ,128,0,0: DATA 56,12,14,30,30,14,4 ... AT j,0;CHR$ 143;AT j,15;CHR$ 143;AT 0 ... ,j;CHR$ 143;AT 15 ... ,j;CHR$ 143: NEXT j ... =8: PRINT AT y,x;CHR$ (144+d): REM character data ... AT ny,nx; INK 5;CHR$ (144+nd)
2010 PRINT ... -
BLOG- ZXSporgBasic RPG development thread- Inspired by the Spectrum 30 show, and after a six-month wait while I was busy playing loads of gigs, I have decided to do a spot of Spectrum coding…
... ,128,0,0: DATA 56,12,14,30,30,14,4 ... AT j,0;CHR$ 143;AT j,15;CHR$ 143;AT 0 ... ,j;CHR$ 143;AT 15 ... ,j;CHR$ 143: NEXT j ... =1: PRINT AT y,x;CHR$ (144+d): REM character data ... AT ny,nx; INK 5;CHR$ (144+nd)
2000 GO ... -
BLOG- ZXSporgBasic RPG development thread- Inspired by the Spectrum 30 show, and after a six-month wait while I was busy playing loads of gigs, I have decided to do a spot of Spectrum coding…
... ,128,0,0: DATA 56,12,14,30,30,14,4 ... AT j,0;CHR$ 143;AT j,15;CHR$ 143;AT 0 ... ,j;CHR$ 143;AT 15 ... ,j;CHR$ 143: NEXT j ... =1: PRINT AT y,x;CHR$ (144+d): REM character data ... AT ny,nx; INK 5;CHR$ (144+nd)
2000 GO ... -
BLOG- ZXSporgBasic RPG development thread- Inspired by the Spectrum 30 show, and after a six-month wait while I was busy playing loads of gigs, I have decided to do a spot of Spectrum coding…
... ,128,0,0: DATA 56,12,14,30,30,14,4 ... AT j,0;CHR$ 143;AT j,15;CHR$ 143;AT 0 ... ,j;CHR$ 143;AT 15 ... ,j;CHR$ 143: NEXT j ... =1: PRINT AT y,x;CHR$ (144+d): REM character data ... AT ny,nx; INK 5;CHR$ (144+nd)
2000 GO ... -
BLOG- ZXSporgBasic RPG development thread- Inspired by the Spectrum 30 show, and after a six-month wait while I was busy playing loads of gigs, I have decided to do a spot of Spectrum coding…
... ,128,0,0: DATA 56,12,14,30,30,14,4 ... AT j,0;CHR$ 143;AT j,15;CHR$ 143;AT 0 ... ,j;CHR$ 143;AT 15 ... ,j;CHR$ 143: NEXT j ... =1: PRINT AT y,x;CHR$ (144+d): REM character data ... AT ny,nx; INK 5;CHR$ (144+nd)
2000 GO ... -
BLOG- ZXSporgBasic RPG development thread- Inspired by the Spectrum 30 show, and after a six-month wait while I was busy playing loads of gigs, I have decided to do a spot of Spectrum coding…
... ,128,0,0: DATA 56,12,14,30,30,14,4 ... AT j,0;CHR$ 143;AT j,15;CHR$ 143;AT 0 ... ,j;CHR$ 143;AT 15 ... ,j;CHR$ 143: NEXT j ... =1: PRINT AT y,x;CHR$ (144+d): REM character data ... AT ny,nx; INK 5;CHR$ (144+nd)
2000 GO ... -
Screens and BasicA question about the ZX screens. I am using software to convert my own art and drawings to the ZX Spectrum. I have some tools to change .jpg files in…
... d+11,14: POKE d+12,z: POKE d+13,FN ... 40 : change LET s$(s)=CHR$ PEEK c to POKE s ... -
BLOG- ZXSporgBasic RPG development thread- Inspired by the Spectrum 30 show, and after a six-month wait while I was busy playing loads of gigs, I have decided to do a spot of Spectrum coding…
... ,128,0,0: DATA 56,12,14,30,30,14,4 ... AT j,0;CHR$ 143;AT j,15;CHR$ 143;AT 0 ... ,j;CHR$ 143;AT 15 ... ,j;CHR$ 143: NEXT j ... =1: PRINT AT y,x;CHR$ (144+d): REM character data ... AT ny,nx; INK 5;CHR$ (144+nd)
2000 GO ... -
SAVE writing zeros after program?Hi there! I hope this is the right forum, but I didn't find any other more appropriate... I'm trying to recover some very old tapes with stuff I mad…
... line which makes sense, line 12 in the example, is where ... ):
PRINT n;TAB 5;CHR$ PEEK (a+4),
a ...
