Code:NextBasic Snippets

NextBasic Snippets

To read a file of any type or size to any bank this will load myfile.bin to bank 22 (8kbs):

.extract myfile.bin -mb 22

To get the filesize of a file in to var fsize:

OPEN #4, "myfile"
DIM #4 TO %a
fsize=%a
CLOSE #4

Check if a file exists in a location without generating an error

Layer 2,0: print at 0,0; : cat file$: exist$=screen$(0,0)
Layer 0: If exist$<>"N" then print "File found"

Press space to continue with flashy border when waiting for a key

Print "Press Space to continue": randomize usr 1300

Scroll screen up without prompt

poke 23692,255: print at 20,0;"Scroll my screen"
for s=1 to 20: print at 21,31;" ": next s

Select a file type to use by browsing the SD

.browse -t pt3 m$
If m$<>"" then .$ playpt3 m$

Change the font width to X pixels when printing

10 LAYER 1,1 : CLS
20 PRINT CHR$ 30+CHR$ 5  : REM 5 pixels wide
30 PRINT "HELLO"

Get the current CORE version

10 DEFPROC Nreg(r)
20 OUT 9275,1: LET %i= IN 9531: LET m=%i>>4: LET ml=%i&@00001111
30 OUT 9275,14: LET i= IN 9531: PRINT INK 2;"Current core :";m;".";ml;".";i
40 ENDPROC