-
+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…
... =28672 TO 28788: READ p: POKE a,p: NEXT a
POKE 23658,8
50 INPUT ... $+"."+s$+CHR$ 255
60 FOR a=28659 TO 28671: POKE a ... a
70 LET open=USR 28672
75 LET f ... PRINT f$;" exists": LET close=USR 28740
100 GO TO ... -
+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…
... =48896 TO 49012: READ p: POKE a,p: NEXT a
POKE 23658,8
50 INPUT ... $+"."+s$+CHR$ 255
60 FOR a=48883 TO 48895: POKE a ... a
70 LET open=USR 48896
75 LET f ... PRINT f$;" exists": LET close=USR 48964
100 GO TO ... -
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 playing with this and made a few improvements.
[Code]100 REM *---------------------*
110 REM PSS-XINPUT DEMO
120 REM PeaSea Software \*2010
130 REM *---------------------*
140 GO SUB 9315: ... -
Override AUTOLINE start?Hi there, Is there a poke that prevents a BASIC program from auto running, when it was previously saved with the LINE command? Cheers, Steve
... :READ b:POKE a,b:NEXT a
50 RANDOMIZE USR 50000 ... TO 50024:PRINT FLASH 1;CHR$ PEEK n;:NEXT n
CHR$) of the BYTE BLOCK would ... -
Activision's Ghostbusters (1984 version)Did anyone ever manage to work out (or hack) the account numbers? If so, are they the same for the 1986 rehash?
... ;95 THEN LET n$(i)=CHR$ (CODE n$(i)-32)
120 POKE 49152,t
130 FOR ... i=1 TO b: RANDOMIZE USR 49153: NEXT i
140 ... =-1 THEN RETURN
9020 POKE i,d: LET i=i ... ..
Alternatively POKE 33840,0 and POKE 33843,0 to allow ... -
User Defined GraphicsCan someone please give some very simple code for a displaying a UDG at a location on screen? Any assistance would be greatly appreciated. Sincerely…
... FOR F=USR "a" TO USR "a"+7:READ B:POKE F,B ... (30 PRINT AT 10,10;CHR$ 144)
UDG font ... font can be change with POKE to system variables. This enable ... -
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 …
... br /> 9990 CLS: RANDOMIZE USR VAL "FN p(23637)+96 ... VAL "FN p(23637)+27": POKE m,k0: RETURN
... br /> PAUSE k0: RANDOMIZE USR VAL "m+88": STOP
CHR$ k0+CHR$ VAL "128"+(l$ AND apv)+((CHR$ k0+CHR$ k0 ... RANDOMIZE ap: LET s=l+USR VAL "m+20":
... -
Auto generated spritesLooking around for some graphics I came across [url]http://blog.disktree.net/?p=19[/url] , one of several such pages. Need the odd 8x8 UDG or two (…
... SEED";A: POKE 30003,A
2 RANDOMIZE USR 30000
10 ... : PRINT
20 PRINT CHR$(143+F);" = CHR:";F
30 NEXT ... -
Mazes and Tremaux's AlgorithmI've done a version of Tremaux's maze solving algorithm which solves my current test maze with 400 junctions and 715 connections in a reasonably quic…
... : LET so=go:
PRINT USR ms,k2,em,"v$()",mi ... k4,kY-k6;loc,:
POKE a+bo+k2,PEEK (a ... -
Auto generated spritesLooking around for some graphics I came across [url]http://blog.disktree.net/?p=19[/url] , one of several such pages. Need the odd 8x8 UDG or two (…
... of C (you can poke it from BASIC if you ... like - eg: POKE 30003,17), you change the ... br />
5 POKE 30003,17: RANDOMIZE USR 30000
10 FOR ... PRINT
20 PRINT F;"= ";CHR$(143+F);" =";143+F:NEXT ... 17" in line 5 from POKE 30003,17 to anything you ... -
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…
... I could not get the USR 8015 to work reliably. I ...
3130 REM
3135 POKE P,CODE "G":
LPRINT ... ;>"
3140 IF INKEY$=CHR$ VAL "13" THEN GO TO ... -
+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…
... /> 21 DIM s$(200): POKE 23739,129: POKE 23740,15:
LET ... =FN p(23643):
POKE 23739,244: POKE 23740,9:
FOR ... : LET s$(a-k1+1)=CHR$ PEEK a: NEXT a:
22 PAUSE 0: RANDOMIZE USR 5808: GO TO 21
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 …
... ,1, thus v$(CODE "."-31)=CHR$ (16+8+2).
* "any ... reduced to simply: "IF i6+USR valkey THEN ... [OK]"
POKE 23563,da-INT (da/256 ... )*256: POKE 23564,INT (da/256):
Switching 48/128 modes within a BASIC programI'm not sure what use this would be; ie. being able to switch between 48k and 128k modes and back again from within a continuously running BASIC prog…
... *80: PRINT AT 0,0;CHR$ 163,"in ";mode;" mode",
USR 32834
2013 IF m ... p(23613):
POKE sp,FN g(trap): POKE sp+1,FN ... =FN p(23613): POKE sp,FN g(ret): POKE sp+1,FN ...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 …
... u$=CHR$ (144+8-a): LET p=2^a+PEEK (USR u ... ):
FOR b=USR u$ TO USR u$+7: POKE b,p: NEXT ... c=1 TO b: PRINT CHR$ 143;: NEXT c:
... c=1 TO b: PRINT CHR$ 143;: NEXT c:
PRINT ... CHR$ (144+score-b*8)
...Ideas for speeding up this BASIC routine?This loop can take up to 2 minutes to run, depending upon the content of the screen being scanned, about 70% of that time being taken up by lines 105…
... also a list of the USR routine sizes. One other change ... I had to change USR copychar and add USR updatewarray to make ... b$="n" THEN POKE 23678,y: LET y=USR toprow:
IF ...help needed :) how to rotate a 3 x 3 array 90 degreesI just cant seem to get this sorted in my head ( or on paper ) , I've found multiple examples in C , python , etc but cant find any z80 examples any …
... TO m: LET a$(a)=CHR$ (PEEK (65399+a)): NEXT a ... RANDOMIZE USR 65450
35 FOR a=65425 TO 65449: POKE a ...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…
... LET m=48000: RANDOMIZE 49151+USR m
9910 DIM ... FOR n=1 TO e: POKE 23388,16+7:
... f$(n,b-a+1)=CHR$ PEEK b: NEXT b ... INT f(n,1): POKE 23388,16+(f(n,1 ... PRINT
9945 NEXT n: POKE 23388,16+0
REM ... gt;49151 THEN RANDOMIZE r+USR m
9951 RETURN ...Font hack that was used in a lot of early gamesThere was a little hack for changing the fonts on a spectrum and I remember it being used in a couple of old games on the 48k, it was a sort of ye od…
...
20 RANDOMIZE USR 30000
30 POKE 23607,249: PRINT " ... 85):
[code]15 POKE 23606,0: POKE 23607,60: CLEAR 31743 ... 127: PRINT AT 21,0;CHR$ i
40 FOR ... y
80 NEXT x: POKE a,PEEK (22432-256*y ... y
110 NEXT i: POKE 23607,123: LIST[/code]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…
... 2;5,6
26 POKE 54321,255: PRINT #3: RANDOMIZE ... (b,c): POKE 12345,BIN 01010101: LET a$=CHR$ b
31 ... $=STR$ 12345: PRINT TAN a+USR b
35 LET a ... =USR "a": LET b=VAL "b": ...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"…
... : FOR f=USR "a" TO USR "c"+7: READ z: POKE f,z ... : PRINT PAPER 2+5*z;CHR$ 144;: NEXT f
40 ... ;AT sx-1,sy-1;CHR$ 145;AT tx-1,ty ... -1;CHR$ 146
70 DIM d ...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"…
... : FOR f=USR "a" TO USR "c"+7: READ z: POKE f,z ... : PRINT PAPER 2+5*z;CHR$ 144;: NEXT f
40 ... (f)-1,b(f)-1;CHR$ 145: NEXT f
60 ... )-1;CHR$ 146: LET d(i(f),j(f))=2: POKE q2 ... ,i(f): POKE q2+1,j(f ...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)…
Here's a way to get both the calculator & machine stacks included when you're calculating function memory usage in BASIC. Just put the DEF FN in 1001 and the FN call in line 1030.
[center][img]http://www.users.globalnet.co.uk/~jg27paw4/ ...IF EXIST?In MS-DOS scripting, there is an IF EXIST command that lets you check wether a file exists in disk or not. There are any way to check it out from BA…
...
When BASIC's USR function is used, the code ... BASIC (using DOS)
(after USR)
+---------+ +---------+
| Page 0 ...hash function permutation tableI'm using a simple Pearson hash function to generate keys for a $(103,6) array using a 256-byte permutation table. How do I arrange the entries in th…
... "OVER", "PAPER",
"PAUSE", "PLOT", "POKE", "PRINT", "RANDOMIZE", "READ", "REM", "RESTORE ... ACS", "AND", "ASN", "ATN", "ATTR", "CHR$", "CODE", "COS", "EXP", "FN", "INKEY ... "SIN", "SQR", "STR$", "TAN", "TO", "USR", "VAL$", "VAL",
"AT", "LINE ...hash function permutation tableI'm using a simple Pearson hash function to generate keys for a $(103,6) array using a 256-byte permutation table. How do I arrange the entries in th…
... ", "OVER", "PAPER",
"PAUSE", "PLOT", "POKE", "PRINT", "RANDOMIZE", "READ", "REM", "RESTORE ... "ACS", "AND", "ASN", "ATN", "ATTR", "CHR$", "CODE", "COS", "EXP", "FN", "INKEY ... "SIN", "SQR", "STR$", "TAN", "TO", "USR", "VAL$", "VAL",
"AT", "LINE ...Block RoutineHi Folks, I want to draw a block on the screen dependent on providing the X,Y,W,H values. I came up with the following: [CODE]100 LET l$=" …
... a(x,y,h,v)=USR 63000
2 REM FAST ... RND*7; INK RND*7;CHR$ (RND*80+32): NEXT x ... -1: READ a
7002 POKE (b+i),a: LET z ...
