SpecNext Wiki - User contributions [en-gb]

https://wiki.specnext.dev/api.php?action=feedcontributions&feedformat=atom&user=Szerman SpecNext Wiki - User contributions [en-gb] 2026-05-07T08:37:12Z User contributions MediaWiki 1.43.5 https://wiki.specnext.dev/index.php?title=Code:NextBasic_Snippets&diff=11912 Code:NextBasic Snippets 2023-12-11T14:13:14Z

<p>Szerman: </p> <hr /> <div><br /> '''NextBasic Snippets<br /> '''<br /> <br /> To read a file of any type or size to any bank this will load myfile.bin to bank 22 (8kbs):<br /> <br /> <syntaxhighlight><br /> .extract myfile.bin -mb 22<br /> </syntaxhighlight><br /> <br /> To get the filesize of a file in to var fsize: <br /> <br /> <syntaxhighlight><br /> OPEN #4, "myfile"<br /> DIM #4 TO %a<br /> fsize=%a<br /> CLOSE #4<br /> </syntaxhighlight><br /> <br /> Check if a file exists in a location without generating an error<br /> <syntaxhighlight><br /> Layer 2,0: print at 0,0; : cat file$: exist$=screen$(0,0)<br /> Layer 0: If exist$<>"N" then print "File found"<br /> </syntaxhighlight><br /> <br /> Press space to continue with flashy border when waiting for a key<br /> <syntaxhighlight><br /> Print "Press Space to continue": randomize usr 1300<br /> </syntaxhighlight><br /> <br /> Scroll screen up without prompt<br /> <syntaxhighlight><br /> poke 23692,255: print at 20,0;"Scroll my screen"<br /> for s=1 to 20: print at 21,31;" ": next s<br /> </syntaxhighlight><br /> <br /> Select a file type to use by browsing the SD<br /> <syntaxhighlight><br /> .browse -t pt3 m$<br /> If m$<>"" then .$ playpt3 m$<br /> </syntaxhighlight><br /> <br /> Change the font width to X pixels when printing<br /> <syntaxhighlight><br /> 10 LAYER 1,1 : CLS<br /> 20 PRINT CHR$ 30+CHR$ 5 : REM 5 pixels wide<br /> 30 PRINT "HELLO"<br /> </syntaxhighlight><br /> <br /> Get the current CORE version<br /> <syntaxhighlight><br /> 10 DEFPROC CoreVersion()<br /> 20 OUT 9275,1: LET %i= IN 9531: LET m=%i>>4: LET ml=%i&@00001111<br /> 30 OUT 9275,14: LET i= IN 9531: PRINT INK 2;"Current core :";m;".";ml;".";i<br /> 40 ENDPROC <br /> </syntaxhighlight><br /> <br /> Get Next version running<br /> <syntaxhighlight><br /> .nextver v<br /> print "Current Next OS:";v<br /> if v<2.07 then print "Think about upgrading your distro"<br /> </syntaxhighlight></div>

Szerman https://wiki.specnext.dev/index.php?title=Code:NextBasic_Snippets&diff=11907 Code:NextBasic Snippets 2023-12-11T13:44:15Z

<p>Szerman: </p> <hr /> <div><br /> '''NextBasic Snippets<br /> '''<br /> <br /> To read a file of any type or size to any bank this will load myfile.bin to bank 22 (8kbs):<br /> <br /> <syntaxhighlight><br /> .extract myfile.bin -mb 22<br /> </syntaxhighlight><br /> <br /> To get the filesize of a file in to var fsize: <br /> <br /> <syntaxhighlight><br /> OPEN #4, "myfile"<br /> DIM #4 TO %a<br /> fsize=%a<br /> CLOSE #4<br /> </syntaxhighlight><br /> <br /> Check if a file exists in a location without generating an error<br /> <syntaxhighlight><br /> Layer 2,0: print at 0,0; : cat file$: exist$=screen$(0,0)<br /> Layer 0: If exist$<>"N" then print "File found"<br /> </syntaxhighlight><br /> <br /> Press space to continue with flashy border when waiting for a key<br /> <syntaxhighlight><br /> Print "Press Space to continue": randomize usr 1300<br /> </syntaxhighlight><br /> <br /> Scroll screen up without prompt<br /> <syntaxhighlight><br /> poke 23692,255: print at 20,0;"Scroll my screen"<br /> for s=1 to 20: print at 21,31;" ": next s<br /> </syntaxhighlight><br /> <br /> Select a file type to use by browsing the SD<br /> <syntaxhighlight><br /> .browse -t pt3 m$<br /> If m$<>"" then .$ playpt3 m$<br /> </syntaxhighlight></div>

Szerman https://wiki.specnext.dev/index.php?title=Code:NextBasic_Snippets&diff=11902 Code:NextBasic Snippets 2023-12-11T13:31:29Z

<p>Szerman: </p> <hr /> <div><br /> '''NextBasic Snippets<br /> '''<br /> <br /> To read a file of any type or size to any bank this will load myfile.bin to bank 22 (8kbs):<br /> <br /> <syntaxhighlight><br /> .extract myfile.bin -mb 22<br /> </syntaxhighlight><br /> <br /> To get the filesize of a file in to var fsize: <br /> <br /> <syntaxhighlight><br /> OPEN #4, "myfile"<br /> DIM #4 TO %a<br /> fsize=%a<br /> CLOSE #4<br /> </syntaxhighlight><br /> <br /> Check if a file exists in a location without generating an error<br /> <syntaxhighlight><br /> Layer 2,0: print at 0,0; : cat file$: exist$=screen$(0,0)<br /> Layer 0: If exist$<>"N" then print "File found"<br /> </syntaxhighlight><br /> <br /> Press space to continue with flashy border when waiting for a key<br /> <syntaxhighlight><br /> Print "Press Space to continue": randomize usr 1300<br /> </syntaxhighlight><br /> <br /> Scroll screen up without prompt<br /> <syntaxhighlight><br /> poke 23692,255: print at 20,0;"Scroll my screen"<br /> for s=1 to 20: print at 21,31;" ": next s<br /> </syntaxhighlight></div>

Szerman https://wiki.specnext.dev/index.php?title=Code:NextBasic_Snippets&diff=11901 Code:NextBasic Snippets 2023-12-11T13:12:06Z

<p>Szerman: </p> <hr /> <div><br /> '''NextBasic Snippets<br /> '''<br /> <br /> To read a file of any type or size to any bank this will load myfile.bin to bank 22 (8kbs):<br /> <br /> <syntaxhighlight><br /> .extract myfile.bin -mb 22<br /> </syntaxhighlight><br /> <br /> To get the filesize of a file in to var fsize: <br /> <br /> <syntaxhighlight><br /> OPEN #4, "myfile"<br /> DIM #4 TO %a<br /> fsize=%a<br /> CLOSE #4<br /> </syntaxhighlight><br /> <br /> Check if a file exists in a location without generating an error<br /> <syntaxhighlight><br /> Layer 2,0: print at 0,0; : cat file$: exist$=screen$(0,0)<br /> Layer 0: If exist$<>"N" then print "File found"<br /> </syntaxhighlight></div>

Szerman