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.