| 
  • If you are citizen of an European Union member nation, you may not use this service unless you are at least 16 years old.

  • You already know Dokkio is an AI-powered assistant to organize & manage your digital files & messages. Very soon, Dokkio will support Outlook as well as One Drive. Check it out today!

View
 

gbasic manual

Page history last edited by nitrofurano 14 years, 1 month ago

It seems to be a bit difficult to find GBasic manual, or NS-HUBasic manual. Anyway, the idea of this manual is being made colaborativelly with the help from all of us.

 

All the commands (tokens) used on GBasic may be these ones:

 GOTO, GOSUB, RUN, RETURN, RESTORE, THEN, LIST, SYSTEM, TO, STEP, SPRITE, PRINT, FOR, NEXT,

PAUSE, INPUT, LINPUT, DATA, IF, READ, DIM, REM, STOP, CONT, CLS, CLEAR, ON, OFF, CUT, NEW,

POKE, CGSET, VIEW, MOVE, END, PLAY, BEEP, LOAD, SAVE, POSITION, KEY, COLOR, DEF, CGEN,

SWAP, CALL, LOCATE, PALET, ERA, TR, FIND, GAME, BGTOOL, AUTO, DELETE, RENUM, FILTER, CLICK,

SCREEN, BACKUP, ERROR, RESUME, BGPUT, BGGET, CAN, XOR, OR, AND, NOT, <>, >=, <=, =, >, <, +, -,

MOD, /, *, ABS, ASC, STR$, FRE, LEN, PEEK, RND, SGN, SPC, TAB, MID$, STICK, STRIG, XPOS, YPOS,

VAL, POS, CSRLIN, CHR$, HEX$, INKEY$, RIGHT$, LEFT$, SCR$, INSTR, CRASH, ERR, ERL, VCT,

 

 Because of this issue, be welcome on completing and fixing this snippets reference.

 

-----

- <

10 A=7

20 B=5

30 IF A>B THEN PRINT "A>B"

40 IF A>B THEN PRINT "A<B"

50 IF A=B THEN PRINT "A=B"

-----

- <=

10 A=7

20 B=5

30 IF A<=B THEN PRINT "A<=B"

40 IF A>=B THEN PRINT "A>=B"

-----

- <>

10 A=7

20 B=5

30 IF A<>B THEN PRINT "A<>B"

40 IF A=B THEN PRINT "A=B"

-----

- =

10 A=7

20 B=5

30 IF A>B THEN PRINT "A>B"

40 IF A>B THEN PRINT "A<B"

50 IF A=B THEN PRINT "A=B"

-----

- >

10 A=7

20 B=5

30 IF A>B THEN PRINT "A>B"

40 IF A>B THEN PRINT "A<B"

50 IF A=B THEN PRINT "A=B"

-----

- >=

10 A=7

20 B=5

30 IF A<=B THEN PRINT "A<=B"

40 IF A>=B THEN PRINT "A>=B"

-----

- -

10 PRINT 6-2

-----

- /

10 PRINT 6/2

-----

- *

10 PRINT 2*3

-----

- +

10 PRINT 2+3

-----

- ABS

10 PRINT ABS(-7)

20 PRINT ABS(5)

-----

- AND

10 PRINT 240 AND 63

-----

- ASC

10 PRINT ASC ("A")

-----

- AUTO

-----

- BACKUP

-----

- BEEP

-----

- BGGET

-----

- BGPUT

-----

- BGTOOL

-----

-CALL

-----

- CAN

-----

- CGEN

-----

- CGSET

-----

- CHR$

10 FOR I=32 to 255

20 PRINT CHR$(I);

30 NEXT

-----

- CLEAR

-----

- CLICK

-----

- CLS

10 PRINT "LINE 10"

20 CLS

30 PRINT "LINE 30"

-----

- COLOR

10 CLS

11 PALETB 0,18,48,26,42

12 PALETB 1, 0,34,22,33

13 PALETB 2,22,38,40,56

14 PALETB 3,10,20,16,29

20 FOR X=0 TO 3:PRINT CHR$(32)+CHR$(254);:NEXT:PRINT

30 FOR X=0 TO 3:PRINT CHR$(253)+CHR$(255);:NEXT

40 FOR X=0 TO 3:FOR Y=0 TO 1:COLOR X*2,Y*2,X:NEXT:NEXT

-----

- CONT

-----

- CRASH

-----

- CSRLIN

-----

- CUT

-----

- DATA

10 CLS

20 FOR I=1 TO 5

30 READ A$

40 PRINT A$

50 NEXT

60 PRINT

70 DATA "THE","PROJECT","PLAYPOWER.ORG","IS","AWESOME"

-----

- DEF

-----

- DELETE

-----

- DIM

-----

- END

10 PRINT "LINE 10"

20 PRINT "LINE 20"

30 END

40 PRINT "LINE 40"

-----

- ERA

-----

- ERL

-----

- ERR

-----

- ERROR

-----

- FILTER

-----

- FIND

-----

- FOR

10 FOR I=1 TO 5

20 PRINT I

30 NEXT

-----

- FRE

PRINT FRE

-----

- GAME

GAME 0

GAME 1

GAME 2

GAME 3

-----

- GOSUB

10 PRINT "LINE 10"

20 GOSUB 50

30 PRINT "LINE 30"

40 END

50 PRINT "LINE 50"

60 RETURN

-----

- GOTO

10 PRINT "LINE 10"

20 GOTO 40

30 PRINT "LINE 30"

40 PRINT "LINE 40"

-----

- HEX$

10 PRINT HEX$(255)

-----

- IF

10 A=7

20 B=5

30 IF A>B THEN PRINT "A>B"

40 IF A>B THEN PRINT "A<B"

50 IF A=B THEN PRINT "A=B"

-----

- INKEY$

10 A$=INKEY$

20 PRINT A$

30 GOTO 10

-----

- INPUT

10 INPUT"WRITE SOMETHING:",A$

20 PRINT A$

-----

- INSTR

-----

- KEY

-----

- LEFT$

10 A$="ABCDEFGHIJKLMNOP"

20 PRINT LEFT$(A$,9)

-----

- LEN

-----

- LINPUT

-----

- LIST

10 PRINT "HELLO WORLD!"

LIST

-----

- LOAD

-----

- LOCATE

10 CLS

20 LOCATE 5,7:PRINT"5,7"

30 LOCATE 9,3:PRINT"9,3"

-----

- MID$

10 A$="ABCDEFGHIJKLMNOP"

20 PRINT MID$(A$,5,3)

-----

- MOD

10 PRINT 7 MOD 5

-----

- MOVE

-----

- NEW

10 PRINT "HELLO WORLD!"

NEW

LIST

-----

- NEXT

10 FOR I=1 TO 5

20 PRINT I

30 NEXT

-----

- NOT

-----

- OFF

-----

- ON

-----

- OR

10 PRINT 240 OR 63

-----

- PALET

-----

- PALETB

10 CLS

11 PALETB 0,18,48,26,42

12 PALETB 1, 0,34,22,33

13 PALETB 2,22,38,40,56

14 PALETB 3,10,20,16,29

20 FOR X=0 TO 3:PRINT CHR$(32)+CHR$(254);:NEXT:PRINT

30 FOR X=0 TO 3:PRINT CHR$(253)+CHR$(255);:NEXT

40 FOR X=0 TO 3:FOR Y=0 TO 1:COLOR X*2,Y*2,X:NEXT:NEXT

-----

- PAUSE

10 PRINT "PAUSING 10 SECONDS AT 50HZ COUNTRIES..."

20 PAUSE 500

30 PRINT "DONE."

40 PRINT "PAUSING 10 SECONDS AT 60HZ COUNTRIES..."

50 PAUSE 600

60 PRINT "DONE."

-----

- PEEK

-----

- PLAY

10 PLAY"V12O3C#CD#DEF#FG#GA#AB"

-----

- POKE

-----

- POS

-----

- POSITION

-----

- PRINT

10 PRINT "HELLO WORLD!"

-----

- READ

10 CLS

20 FOR I=1 TO 5

30 READ A$

40 PRINT A$

50 NEXT

60 PRINT

70 DATA "THE","PROJECT","PLAYPOWER.ORG","IS","AWESOME"

-----

- REM

10 REM THIS LINE DOES NOTHING, IT'S ONLY USED FOR COMMENTING CODE

-----

- RENUM

-----

- RESTORE

10 DATA 3,5,4,7,3

20 DATA 8,9,6,8,6

30 RESTORE 20

40 FOR I=1 TO 5

50 READ J

60 PRINT J

70 NEXT

-----

- RESUME

-----

- RETURN

10 PRINT "LINE 10"

20 GOSUB 50

30 PRINT "LINE 30"

40 END

50 PRINT "LINE 50"

60 RETURN

-----

- RIGHT$

10 A$="ABCDEFGHIJKLMNOP"

20 PRINT RIGHT$(A$,7)

-----

- RND

10 FOR I=1 TO 10

20 PRINT RND(1000)

30 NEXT

-----

- RUN

10 PRINT "HELLO WORLD!"

RUN

-----

- SAVE

-----

- SCR$

10 CLS

20 LOCATE 7,5

30 PRINT "A"

40 PRINT SCR$(7,5)

-----

- SCREEN

-----

- SGN

10 PRINT SGN(-7)

20 PRINT SGN(5)

-----

- SPC

-----

- SPRITE

-----

- STEP

10 FOR I=1 TO 9 STEP 2

20 PRINT I

30 NEXT

-----

- STICK

10 PRINT STICK(0)

20 PRINT STICK(1)

30 GOTO 10

-----

- STOP

10 PRINT "LINE 10"

20 PRINT "LINE 20"

30 STOP

40 PRINT "LINE 40"

-----

- STR$

-----

- STRIG

10 PRINT STRIG(0)

20 PRINT STRIG(1)

30 GOTO 10

-----

- SWAP

10 A=5

20 B=7

30 SWAP A,B

40 PRINT A

50 PRINT B

-----

- SYSTEM

-----

- TAB

-----

- THEN

10 A=7

20 B=5

30 IF A>B THEN PRINT "A>B"

40 IF A>B THEN PRINT "A<B"

50 IF A=B THEN PRINT "A=B"

-----

- TO

10 FOR I=1 TO 5

20 PRINT I

30 NEXT

-----

- TR

-----

- VAL

10 PRINT VAL("3"+"2")

-----

- VCT

-----

- VIEW

-----

- XOR

10 PRINT 240 XOR 63

-----

- XPOS

-----

- YPOS

-----

 

 

 

 

Comments (0)

You don't have permission to comment on this page.