-
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 ... -
saving part of a BASIC programHere's a short routine to save part of a BASIC program. The idea is that it can be merged into a program and then used to save sub-routines, etc. to …
... =av-ap: LET l$=CHR$ FN g(l)+CHR$ FN h(l ... $=f$+l$+CHR$ k0+CHR$ VAL "128"+(l$ AND apv)+((CHR$ k0+CHR$ k0 ... -
+3 DOS questionHey all, Is it possible to catalogue a +3 disk to a variable somehow from BASIC? I'm looking at extending my Snapshot to Microdrive utility, so it s…
... : LET s$(a-k1+1)=CHR$ PEEK a: NEXT a:
22 PAUSE 0: RANDOMIZE USR 5808 ... -
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 ... $(r TO r+2)=CHR$ 17+CHR$ (p+1)+CHR$ c:
LET ... AND p=top AND r=22):
PRINT #(2 AND r -
dungeon crawlerHi. I'm toying with idea of making simple dungeon crawler in spectrum basic and i actually got first version working somehow. [IMG]http://watashi.ic.…
... window 4,8->18,22; frame 3,7->19 ... TO 32: LET c$(c)=CHR$ a: NEXT c: LET c ... $(8)=CHR$ 40:
FOR c=9 ... TO 23: LET c$(c)=CHR$ 0: NEXT c: LET c ... $(24)=CHR$ 40:
FOR c=33 ... -
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…
... -c; PAPER 6;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 ... ,22,7"
510 PRINT #6; PAPER 4; INK 0;CHR$ 14;CHR ... ; 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 ... )
80 LET L=L+(22 AND L21)
90 LET ... )
80 LET L=L+(22 AND L21)
90 LET ... -
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 ... n
31 DATA 02,22,10,0,16,1,21 ... ,143
32 DATA 10,22,20,0,16,3,21 ... :
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 …
... A(P)=122+INT (RND*22)
180 LET C(P ... /> 240 PRINT INK C(J);CHR$ A(J);
250 NEXT ... -
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 …
... A(I)=122+INT (RND*22)
190 LET C(I ... C(J); PAPER P(J);CHR$ A(J);
280 NEXT ... -
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 …
... /> 130 LET R=INT (RND*22)
135 REM SET INK ... /> 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 …
...
110 DIM P(32,22)
120 PRINT AT 0 ... /> 130 FOR Y=1 TO 22: FOR X=1 TO 32 ... -
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 …
...
110 DIM P(32,22)
120 PRINT AT 0 ... /> 130 FOR Y=1 TO 22: FOR X=1 TO 32 ... -
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 …
...
110 DIM P(32,22)
120 PRINT AT 0 ... /> 130 FOR Y=1 TO 22: FOR X=1 TO 32 ... -
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 …
... ";
130 DIM P(32,22)
140 FOR Y=1 ... TO 22: FOR X=1 TO 32 ...
180 LET Y1=22: LET Y2=22
190 LET W ... /> 1050 PRINT AT R,C;CHR$ (128+P(C+1,R ... -
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…
... : LOAD "t:": LOAD "f1"
22 LOAD "f1" DATA a(): LOAD ... 12345,BIN 01010101: LET a$=CHR$ b
31 PRINT CODE ... -
pathfindingworking on pathfinding in the game. here is Russian description of Lee's algorithm: [url]http://algolist.manual.ru/games/wavealg.php[/url] "if-then"…
... : PRINT PAPER 2+5*z;CHR$ 144;: NEXT f
40 ... INPUT "Source row (1-22)? ";sx: INPUT "Source col (1 ... /> 50 INPUT "Target row (1-22)? ";tx: INPUT "Target col (1 ... ;AT sx-1,sy-1;CHR$ 145;AT tx-1,ty ... -1;CHR$ 146
70 DIM d(22,32): LET ... -
pathfindingworking on pathfinding in the game. here is Russian description of Lee's algorithm: [url]http://algolist.manual.ru/games/wavealg.php[/url] "if-then"…
... : PRINT PAPER 2+5*z;CHR$ 144;: NEXT f
40 ... DIM d(22,32): LET q1=60000: LET ... : INPUT "Source ";(f);" row (1-22)? ";a(f): INPUT "Source ";(f ... (f)-1,b(f)-1;CHR$ 145: NEXT f
... : INPUT "Target ";(f);" row (1-22)? ";i(f): INPUT "Target ";(f ... -
generating a pre-defined list in an un-defined sequenceI've decided to become a drunkard, to which end I've been drinking a whole bottle of beer in one day (whereas normally I'd make it last 2 or 3 days).…
... the routine. The list has 22 elements "a"-"v" rather than ... show that all 22 have been selected in 22 passes. Run ... ":
RANDOMIZE: LET s=22: DIM p$(s,2)
CHR$ 0+CHR$ (f+96): NEXT f ... ,2): LET p$(f,1)=CHR$ 10
96 FOR ... -
How to get 720KB on Opus Discovery floppy (using PC drive)I upgraded an Opus Discovery yesterday with a PC drive, but I'm looking for the way to get a floppy formatted as 720KB. If I understand other topics…
... up:
(for DOS 2.22 + 6116Ram, the final DOS from ... PRINT #4; CHR$ 80;: REM note the semicolon !!!!!!
22 POINT# 4 ... ; 8250
24 PRINT #4; CHR$ (BIN 01001110 ... )
(A ROM 2.22 is going your way in ... -
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 ... -
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…
... LET cl=32: LET rw=22: REM Columns and Rows of ... ;0 THEN LET e$=e$+CHR$ 13
1560 LET e ... =FN w(p$(sb TO),CHR$ 13): IF se THEN LET ... -
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…
... the token-code off PLAY chr$ 163 or $ 164, although in ... the second byte is either $22 or $41-$5A or $61 ... ,a-z,(,FN,VAL$,STR$,CHR$.)
It's easier ...
