Original BASIC Interpreter 'NicoBASIC'....During development.
■■■ What is NicoBASIC ?マイコンで動作するオリジナルのBASICインタプリタです。 (This is Original BASIC Interpreter on MicroController) パソコンは不要です。ライタも不要です。コンパイラも必要ありません。 (PC less, Writter less , and Compiler less.) PS/2キーボードやシリアル通信でそのままマイコンのプログラミングが行えます。 (We can program this with a PS/2 keyboard,etc...) ![]() ■■■命令/コード(Command/Code) RUN |
| avrsp -Pc1 -W default\nicobasic.hex |
| avrsp -Pc1 -FX11111001 -FL11100010 -W default\nicobasic.hex |


または
NicoKeyboardを接続します。

・CHaNさん仕様のAVRライタでPCと接続してシリアル通信で行います。
ハイパーターミナルを使って入力するか、専用ソフト「nb_term.exe」を使って一括送信します。
ボーレートは9600bps、データビット8、パリティなしです。
1バイトごとにウエイトを入れて送信してください。
・対応しているメモリカードはFAT12かFAT16にフォーマットしたSDカード、またはマルチメディアカードです。|
10 A=0 20 A=A+1 30 PRINT A 40 IF A<3 THEN GOTO 20 ![]() |
|
10 PORTD=&HFE 20 X=8 30 Y=8 40 K=PIND 50 PSET X,Y,0 60 IF K AND &H40=0 THEN X=X+1 70 IF K AND &H20=0 THEN X=X-1 80 IF K AND &H80=0 THEN Y=Y+1 90 IF K AND &H10=0 THEN Y=Y-1 100 PSET X,Y,1 110 GOTO 40 ![]() |
|
10 X1=7 20 Y1=8 30 X2=12 40 Y2=9 50 X1D=1 60 Y1D=1 70 X2D=-1 80 Y2D=-1 90 R=PEEK &HB2 94 R=R AND 2+1 95 X1=X1+X1D:Y1=Y1+Y1D 96 X2=X2+X2D:Y2=Y2+Y2D 100 IF X1<0 THEN X1D=R 110 IF X1>15 THEN X1D=-R 120 IF Y1<0 THEN Y1D=R 130 IF Y1>15 THEN Y1D=-R 140 IF X2<0 THEN X2D=R 150 IF X2>15 THEN X2D=-R 160 IF Y2<0 THEN Y2D=R 170 IF Y2>15 THEN Y2D=-R 175 CLS 180 LINE X1,Y1,X2,Y2,1 190 GOTO 90 ![]() |
|
10 FOR J=0 TO 15 20 FOR I=15 TO 0 STEP -1 30 CLS 40 LINE I,0,J,15,1 50 FOR K=0 TO 20 60 NEXT 70 NEXT 80 NEXT 90 GOTO 10 ![]() |
|
1 PORTD=&HFE 2 X=9:Y=8:H=7:I=7:W=1:V=1 3 K=PIND 4 IF K AND &H80=0 THEN IF H<13 THEN H=H+1 5 IF K AND &H10=0 THEN IF H>0 THEN H=H-1 6 IF K AND &H04=0 THEN IF I<13 THEN I=I+1 7 IF K AND &H02=0 THEN IF I>0 THEN I=I-1 8 X=X+W:Y=Y+V 9 IF X<0 THEN W=-W 10 IF X>15 THEN W=-W 11 IF Y<0 THEN V=-V 12 IF Y>15 THEN V=-V 13 IF X=2 THEN 14 IF H<=Y THEN IF H+3>Y THEN W=-W 15 ENDIF 16 IF X=13 THEN 17 IF I<=Y THEN IF I+3>Y THEN W=-W 18 ENDIF 19 CLS:LINE 2,H,2,H+2,1:LINE 13,I,13,I+2,1 20 PSET X,Y,1 21 GOTO 3 ![]() |
|
1 X=20:Y=15:X1=40:Y1=0 2 H=700:V=700 3 CLS 4 PSET X/100,Y/100,1 5 PSET H/100,V/100,1 7 IF SW AND 8 THEN H=H+10 8 IF SW AND 4 THEN H=H-10 9 IF SW AND 2 THEN V=V+10 10 IF SW AND 1 THEN V=V-10 11 IF X>H THEN XD=H-X-100 ELSE XD=H-X+100 13 IF Y>V THEN YD=V-Y-100 ELSE YD=V-Y+100 15 X1=XD/90+X1:Y1=YD/90+Y1 16 X=X+X1:Y=Y+Y1 18 GOTO 3 ![]() |
|
1 WHILE 1 2 FOR I=0 TO 12 3 CLS 4 COLOR 1 5 LOCATE I,0:PRINT "R" 6 COLOR 2 7 LOCATE I,8:PRINT "G" 8 FOR J=0 TO 500 9 NEXT 10 NEXT 11 WEND ![]() |
