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