�@BASIC�́C1964�N����Ƀ_�[�g�}�X��w��J.G.�P���j�[��T.E.�J�[�c�ɂ���ĊJ�����ꂽ����p�v���O���~���O����ł��B
�����C�嗬������FORTRAN����{�Ƃ��āCFORTRAN�̎g���ɂ����Ƃ�������w�Ҍ����ɉ��߂č쐬���ꂽ����ł��B
�@�P���j�[�ƃJ�[�c��BASIC�́C���݁CTrue BASIC�ƌĂ�CWindows�CMac�CUNIX�ȂǂɑΉ������o�[�W����������܂��B
�@NEC��N88-BASIC��x�m�ʂ�F-BASIC�C�}�C�N���\�t�g�Ђ�Visual BASIC�ȂǑ����̐l��BASIC���Ǝv���Ďg���Ă��錾��́C�������͂悭���Ă��܂����C�����ƂȂ镔���Ŗ{����BASIC�Ƒ��Ⴗ��_������܂��B
�@�����̌���́C�}�C�R���p�ɉ��ς��ꂽ���@���p�����Ă��܂��B�����̃}�C�N���R���s���[�^�̓��������\���Ɏg�����Ƃ��ł����C����ꂽ�e�ʂ�ROM�̂Ȃ���BASIC�����n���l�ߍ��ނ��ƂɃG�l���M�[��������܂����B���̂��߂ɍ̗p���ꂽ��@��1���C���^�v���^�ł����C��������邽�߂ɍ̗p���ꂽ��@�͂��ꂾ���ł͂���܂���B
����ɂ���đ����̐l�������BASIC�̎g����R���s���[�^�����ł���悤�ɂȂ����̂ł����C���w�Ҍ�������Ƃ��Đ��܂ꂽBASIC�̖{���͑��Ȃ��Ă��܂��܂����B
BASIC�̕W�����̂��߂̍�Ƃ�1974�N�Ɏn�܂�C4�N���1978�N�ɕč�����щ��B��Minimal BASIC�i�ŏ�BASIC�j�Ƃ��ċK�i������܂����B1982�N�ɂ͍��ەW�����@�\(ISO)���Ă��쐬����C1984�N�ɂ�Minimal BASIC�̍��ۋK�i�����肳��܂����B���{�ł́CISO�K�i�ĂɊ�Â��āC1982�N�Ɂu��{BASIC�v�Ƃ������̂�Minimal BASIC���K�i������܂����B
�@Minimal BASIC�̋K�i���Ɉ��������āCBASIC�̊��S�o�[�W�����iFull BASIC�j�̋K�i����Ƃ��J�n���ꂽ�̂ł����C���̍�Ƃ͂��Ȃ��q�����悤�ł��B1982�N�Ɍ��Ă��쐬����C1986�N�ɉ��B�C1987�N�ɕč��ŋK�i�Ƃ��Đ������܂����B���ەW�����@�\(ISO)�́C1991�N�ɉ��B�K�i�ƕč��K�i���܂���`��Full BASIC��ISO�K�i�𐧒肵�܂����B���{�ł́CISO�����̌`��1993�N��Full BASIC��JIS�����肳��܂����B
�@1989�N�C�č��Ń��W���[������ђP�������͂Ɋւ���lj��̋K�肪�K�i������܂����B����́CJIS�ł͎Q�l�Ƃ��Ď��^����Ă��܂��B
�@�@�}�C�R���p��BASIC�̓V�X�e���J���p�̌���Ƃ��čL���p�����Ă��܂����BVisual BASIC�ł́C�t�H�[�����쐬���C�t�H�[����Ɏ��s���J�n���邽�߂̃{�^���ƌ��ʂ�\�����邽�߂̃E�C���h�E���쐬����Ƃ��납��n�߂Ȃ��Ɖ����ł��܂���BVisual BASIC�́C�v���O�����������l���g�̖����������邽�߂ł͂Ȃ��C���҂��g�����߂̃v���O�������������߂̌���ł��B
�@�������C�{����BASIC�́C�������w���ł��B�v���O�����́C�v���O�������쐬����l���g�̖����������邽�߂ɏ�����܂��B
�@Full BASIC�̓R���s���[�^�̐��ƂłȂ��l���������g�Ŗ����������邽�߂Ɏg�����Ƃ�ړI�ɐv����Ă��܂��B�R���s���[�^�̐��E�̏펯��m��Ȃ��l�ɂ��m���Ɏg����悤�ȍH�v������܂��B
�@Full BASIC�̓�����[�I�ɂ����C���@�̌��i���ł��B�Ӗ��������܂��ɂȂ�\���̂���Ƃ���@�I�ɋ֎~���āC�v���O�������������l�̈Ӑ}���@�B�Ɍ���ē`����Ă��܂����Ƃ��Ȃ��悤�ɂ��Ă��܂��B
�@N88-BASIC�̂悤�ȃC���^�v���^�^��BASIC�ł́C���@��̌��͎��s���Ɍ��o����܂��B�������CFull BASIC�ł͕��@��̌��̓v���O�����̎��s�J�n�O�Ɍ��o����邱�ƂɂȂ��Ă��܂��B�܂�CFull BASIC�ł́C���@�̌���������̂͐l�Ԃ̎d���ł͂Ȃ��C�@�B�̎d���ł��B
�@�i�����W���K�i�łȂ��jFull BASIC�̗\���͎���18��ł��B
NOT�CELSE�CPRINT�CREM�CPI�CRND�CMAXNUM�CTIME�CDATE�CEXTYPE�CEXLINE�CZER�CCON�CIDN�CTRANSFORM, DATE$, TIME$, NUL$
�@�}�C�N���\�t�g�nBASIC�ł́C��J���č쐬�����v���O�������ϐ������\���ƂԂ����Ă��܂��ē����Ȃ����Ƃ��悭����܂������CFull BASIC�ł͗\���͑S����18�����Ȃ��̂ŗ\��������ăv���O�����������̂ɋ�J���邱�Ƃ͂���܂���B�\����Ǝ��Ɋg�����邱�Ƃ͋�����Ă��Ȃ��̂ŁC���Ђ�BASIC�ɈڐA���悤�Ƃ�����C������Ђ�BASIC�ł����Ă��o�[�W�����A�b�v����ƕϐ������\���ƂԂ����Ă��܂��ē����Ȃ��Ȃǂ������͋N����܂���B
�@�Ȃ��CFull BASIC�ɂ́C�����W�����j�ƌĂ��K�i�������āC���̏ꍇ�́C�\���̐��������܂��B�������C���̏ꍇ�ł��C�����n���Ǝ��ɗ\���𑝂₷���Ƃ͋�����Ă��܂���B
�@Microsoft BASIC�̋@�\��ɂ́CCDBL�CCINT�CPSET�CCLS�ȂǁC�����̌���܂Ƃ߂Ċȗ����������ꂪ��������o�Ă��܂��B�܂��CLINE����CIRCLE���̂悤�Ƀp�����[�^�����������ׂđ��@�\��������������܂��B
�@�W��BASIC�ł��C�����Ɋm���������@�ł́CSIN, COS, TAN, LOG, EXP, ATN�CRND, MOD�Ȃǐ��l�g�������𒆐S��3�������ꂪ�����p�����܂����C��r�I�V��������ɒlj����ꂽ���@�ł́C
OPTION ARITHMETIC DECIMAL
OPTION ANGLE DEGREES
SET POINT COLOR
SET LINE STYLE
�̂悤�ɒ����Ԃ�ł����Ă�����ɂ����ɋL�q����̂����ʂɂȂ��Ă��܂��B�܂��C�P���߂ł܂Ƃ߂Ă�������̃p�����[�^���w�肵�Ă��܂��悤�ȕ��@�͂���܂���B���̂��߁C�v���O�����̕������������Ȃ�C�^�C�v���͂̎�Ԃ͑��債�܂����C���S�҂ł��Ӗ���z�N���₷�����̂ɂȂ��Ă��܂��B
�@Full BASIC�ł́C���l�͕��������_10�i���ł��B�P���x�C�{���x�̋�ʂ�C�����^�Ƃ����̂͂���܂���B
�@10�i������2�i�����ŋߎ����邽�߂ɔ�������덷������܂���C0.1��10����Z����ΐ��m��1�ɂȂ�܂��B���Ƃ��C���̃v���O�����ł́C11��J��Ԃ������s���C�Ō�̌��ʂ͐��m��0�ɂȂ�܂��B
10 FOR x=-1 TO 0 STEP 0.1 20 PRINT x 30 NEXT x 40 END
Full BASIC�ɂ͐��l���Z�̎��s���ʂ̐��m���Ɋւ���K�肪����܂��B���̋K��͎l�����Z����łȂ��C�ׂ��扉�Z��SQR���Ȃǂ̑g���݊��ɂ��K�p����܂��B���̋K��̂������ŁC�ׂ��扉�Z��SQR���̗\�����ʌ덷��S�z����K�v���Ȃ��Ȃ�܂��B
���̃v���O������100�ȉ��̃s�^�S���X�������ׂċ��߂���̂ł����CFull BASIC�ł͐������v���O�����ł��B�������C�K�i�O��BASIC�ł͐��������ʂ������邱�Ƃ�ۏ��邱�Ƃ��ł��܂���B���ہC�̂�N88-BASIC�ł͐������Ȃ����ʂ������܂��B
10 FOR x=1 TO 100 20 FOR y=x TO 100 30 LET z=SQR(x^2+y^2) 40 IF INT(z)=z THEN PRINT x,y,z 50 NEXT y 60 NEXT x 70 END
�@�����揜�̎l�����Z�Ƃׂ��扉�Z��2�����Z�ł����C��O������܂��B�u-2*a+3�v�̂悤�ɐ��l���̐擪�ɕ����������Ƃ��C���̕�����2�����Z�ł͂���܂���BFull BASIC�ł́C���l���̐擪�ɂ��鐳���C�������C2�����Z�̐����C�����Ɠ����Ɉ����ɂȂ��Ă��܂��B�������C�R���p�C����C���^�v���^����闧�ꂩ�炷��ƁC����������O�͂�������ł��B
�@��{BASIC, Full BASIC�ȊO�̑����̌���ł́C�����]���镉����D�揇�ʂ̍����P�����Z�Ƃ��Ĉ������@���̗p���āC���̂�����������������Ă��܂��B�}�C�N���\�t�g��BASIC�������������@���̗p���Ă��܂��B
�@��{BASIC��Full BASIC�̕��@�ŏ����ꂽ���l���̓}�C�N���\�t�g�̕��@�ł������������ł��܂��B�������C�t�͐������܂���B���̎��������Ŕ��f����ƃ}�C�N���\�t�g�̂����̂ق����D��Ă���悤�Ɏv�������m��܂��C���ۂ͂����ł͂���܂���B
�@�C���^�v���^�Ƃ��R���p�C���������ō���Ă݂悤�ƍl����l�ȊO�́C���l���̕��@�܂Ő[���l���邱�Ƃ͂Ȃ��̂����ʂ��Ǝv���܂��B���@�̋��e�͈͂��L���Ƃ������Ƃ́C�@�B�Ɛl�ԂƂ̊ԂňӖ��̉��߂ɐH���Ⴂ��������\�����傫���Ȃ�Ƃ������Ƃł��B
�@BASIC�ł́C�����ʂ̉��Z�𑱂��ď������Ƃ��ɂ͍����珇�Ɏ��s����邱�ƂɂȂ��Ă��܂��B���Ƃ��C2^3^4��(2^3)^4���Ӗ����܂�����C4096�ɂȂ�܂��B����́C�}�C�N���\�t�g��BASIC�ł������ł��B
�@�}�C�N���\�t�g��BASIC�ł́C�P�����Z�̕������]�́C�ׂ��扉�Z�q�̉E���łׂ͂��扉�Z�����D�悷��ɂȂ��Ă��܂��B�ł�����C2^(-3)�̂��Ƃ�2^-3�Ə������Ƃ��ł��܂��B�������C2^-3^2��2^(-3)^2�Ƃ͓����Ӗ��ɂ͂Ȃ�܂���B�}�C�N���\�t�gBASIC�ł́C2^-3^2��2^(-3^2)���Ӗ�������̂Ɖ��߂���܂��B
�@Full BASIC�ł́C�召��r��AND, OR, NOT�̘_�����Z�͐��l���Z�Ƃ͕ʂ̃J�e�S���[�ɑ�������̂Ƃ��Ĉ����܂��B�������C�}�C�N���\�t�g��BASIC�ł́C�_�����Z�͐��l���Z�̈ꕔ�ł��B�召��r�́C�^�̂Ƃ�-1�C�U�̂Ƃ�0��2�����Z�ł��B�召��r�̗D�揇�ʂ͉����Z���Ⴍ�ݒ肳��Ă��܂�����C���Ƃ��C1+2<4��(1+2)<4�̈Ӗ��ɂȂ��āC��{BASIC��Full BASIC�̕��@�ŏ����ꂽ�召��r�̓}�C�N���\�t�g��BASIC�ł������������ł��܂��B
�@�}�C�N���\�t�g��BASIC�ł́C�召��r��_�����Z�͐��l���Z�̈ꕔ�ł�����C���l���̒��ɍ����ď������Ƃ��ł��܂��B���Ƃ��C
10 PRINT 2+(1<3)
�����s����ƁC������1�ɂȂ�܂��B���l��
10 PRINT 2<1<3
�����s�\�ŁC������-1�ɂȂ�܂��B�}�C�N���\�t�g�̉��߂ł�
2<1<3 �� (2<1)<3 �� 0<3 �� -1
�ƂȂ�킯�ł��B
�������C2<1<3�͋U�Ȃ̂�����0�ɂȂ�͂����Ƃ����l������ł��傤�B���������l���}�C�N���\�t�g��BASIC���g���̂͊댯�ł��B
�@�}�C�N���\�t�g�̕��@�ł́CIF���ȂǁCFull BASIC�̕��@�ł͘_�������������ƂɂȂ��Ă���Ƃ���ɂ͐��l�����������ƂɂȂ��Ă��܂��B�����āC���̐��l��0�łȂ��Ƃ��������^�ł���Ɣ��f����܂��B�ł�����C�}�C�N���\�t�gBASIC��
10 IF 2<1<3 THEN PRINT "Y" ELSE PRINT "N"
�����s����ƌ��ʂ́uY�v�ɂȂ�܂��B����CFull BASIC�ł́C���̕��͕��@���ƂȂ��Ď��s�ł��܂���B
Microsoft BASIC�͐��l�萔�␔�l�ϐ��̖����ɁI�⁓�C���Ȃǂ̋L����t�����Đ��l�̌^�̕ʂ��w�肵�܂����CFull BASIC�ɂ͐��l�̌^�̕ʂ�����܂���B
Full BASIC�́I���s�����߂��������߂ɗp���܂��B�I���E�͒��߂ł��B���̂��߁C���̂悤�ȃv���O������Full BASIC�ł͈قȂ�Ӗ��ɉ��߂���܂��B���Ƃ��C
10 PRINT 10!+15!
��Full BASIC�ł�PRINT 10�̈Ӗ��ɂȂ�܂��B
�@Full BASIC�ɂ�Microsoft BASIC�ɂ���MOD���Z�q������܂���B�����MOD�����p�ӂ���Ă��܂��B�܂��CFull BASIC�ɂ͐����^�Ƃ������̂��Ȃ��̂Ő������Z���Ӗ����遏���Z�q������܂���B
�@Full BASIC��MOD���́C
MOD(x,y)=x-y*INT(x/y)
�Œ�`����Ă��܂��B��`��͎����S�̂ł��B���Ƃ��CMOD(9, 2.5)��1.5�ł��B
�@Microsoft BASIC��MOD���Z��Full BASIC��MOD���ɂ͒��ӂ��ׂ��Ⴂ������܂��BFull BASIC��MOD���͐����_�ɂ������]�̒�`�Ɠ����ŁC�폜���̕����ɊW�Ȃ����ʂ͏����Ɠ������ɂȂ�܂��B����CMicorsoft BASIC��MOD���Z�ł́C���ʂ̕������폜���̕����Ɠ����ɂȂ�܂��B�ʏ�̉��p�ł͏������萔�ɂȂ�ꍇ�������̂ŁC�����_�ł̒�`�ƈ�v����MOD���̂ق����֗��Ȃ��Ƃ������̂ł����CMicrosoft BASIC��MOD���Z��O��ɏ����ꂽ�v���O���������̂܂�MOD���ɏ����������ꍇ�ɂ͐��������삵�Ȃ����ƂɂȂ�܂��B
�@�Ȃ��CFull BASIC��Microsoft BASIC��MOD���Z�Ɠ��l�̌��ʂ��~�����ꍇ�ɂ�REMAINDER����p���܂��BREMAINDER���́C
REMAINDER(x,y)=x-y*IP(x/y)
�Œ�`����Ă��܂��B�����ŁCIP���́CIP(x)=SGN(x)*INT(ABS(x))
�Œ�`�������ł��BIP(x/y)�́CMicrosoft BASIC�� x\y �ɑ������܂��B
�@BASIC�ł͑�����́C
LET �ϐ� = ���l��
�̌`�ɏ�����܂��B�}�C�N���\�t�gBASIC�ł�LET�͏ȗ��ł��܂��B�������ɍςނ��̂Ȃ珑���Ȃ��ق����y�ł����Ǝv�������m��܂��C�������v�Z���s�̈Ӗ��ɗp���錾��͏��w�Ҍ����ł͂���܂���B�i�\�iBASIC��LET���Ȃ��Ɩ|��LET�������I�ɕ₤�̂ŁCLET��ł̂��ʓ|�Ȃ���͂��Ȃ��Ă����܂��܂���j
�@A�̒l��0�ł���Ƃ���
100 IF A<>0 THEN IF A=1 THEN GOTO 200 ELSE GOTO 300
�����s������ǂ��Ȃ�ł��傤���B
�}�C�N���\�t�g�̕��@�ł́C
IF A<>0 THEN �m IF A=1 THEN GOTO 200 ELSE GOTO 300�@�n
�̂悤�ɉ��߂����̂�A=0�̂Ƃ��͉����N����܂���B�������C
IF A<>0 THEN GOTO 200 ELSE GOTO 300
��GOTO 200�̕�����IF A=1 THEN GOTO 200�ɒu�������Ă��܂��������������ł���̂ŁC
IF A<>0 THEN �m IF A=1 THEN GOTO 200 �nELSE GOTO 300
�Ƃ�������ł��̕��������l�����邩���m��܂���B
Full BASIC�ł́CIF���̂Ȃ���IF�����������Ƃ��֎~���ď�q�̂悤�Ȗ�肪�N����Ȃ��悤�ɂ��Ă��܂��B
Full BASIC�ł́C���̂悤�ɏ�����������܂��C���̏������ł͈Ӑ}�͖��m�ɕ\������܂��B
IF A<>0 THEN IF A=1 THEN 200 ELSE 300 END IF
���邢��
IF A<>0 THEN IF A=1 THEN 200 ELSE GOTO 300 END IF
Full BASIC�ɂ͂Ȃ��}�C�N���\�t�gBASIC�ɓ��L�̕��@�Ƃ��ă}���`�X�e�[�g�����g������܂��B���S�҂�ɂ���Ƃ��C2�̕����R�����łȂ��ď����Ă悢�Ƌ������邱�Ƃ������̂ł����C���ۂɂ͂����ł��Ȃ��ꍇ������܂��B
10 IF A=1 THEN GOTO 100
20 IF A=2 THEN GOTO 200
��2�̕�����������
10 IF A=1 THEN GOTO 100 : IF A=2 THEN GOTO 200
�Ƃ�����Ӗ����ς���Ă��܂��܂��B
�@N88-BASIC�Ȃǂ̍\���������O��BASIC�ł�IF���ɕ����̕����������߂Ƀ}���`�X�e�[�g�����g���g���K�v������܂������C���݂̍\�������ꂽBASIC�ł̓}���`�X�e�[�g�����g�͖��p�ł��B
�@Full BASIC�ɂ́CN88-BASIC�Ȃǂ̃C���^�v���^�^�̌���ƈقȂ�C�|�ɏ�������C���s���ɂ͐��䂷�邱�Ƃ̂ł��Ȃ���ނ̕������݂��܂��B
N88-BASIC�Ȃǂ̃C���^�v���^�^��BASIC�ł�DIM����DEF���͎��s���ɏ�������܂����CFull BASIC�ł�DIM����DEF���͖|�ɏ�������܂��B�ł�����C�v���O�����̎��s�r���Ŕz����`����ύX����悤�Ȃ��Ƃ͂ł��܂���B
�@�Ȃ��CFull BASIC�ł�DEF���Œ�`������̖��O��FN�Ŏn�߂�K�v�͂���܂���Bf(x)�̂悤�Ȏ��R�ȕ\�����\�ł��B
�@�Â��^�C�v�̃}�C�N���\�t�gBASIC�ł͎��s���̃G���[������ON ERROR GOTO����p���čs���܂����CFull BASIC�ɂ͍\������O�����̍\�����p�ӂ���Ă��܂��B�G���[�����̃l�X�e�B���O���ł��܂����C���v���O��������Ȃǂ̎葱�����s���ɔ���������O���Ăяo�����ɓ`�B����(������C��)���Ƃ��ł��܂��B
Full BASIC�ł́C���s���ɔ�������G���[���O(exception)�ƌĂт܂��BFull BASIC�ł͗�O������WHEN EXCEPTION IN �` USE �` END WHEN�Ƃ����\����p���܂��BWHEN�s��USE�s�̊Ԃŗ�O����������ƁCUSE�s�̎��̍s�ɕ��܂��B
�@���̃v���O�����ɗ�O������lj����Ă݂܂��B
10 DEF f(x)=1/x 20 FOR x=-10 TO 10 30 PRINT x,f(x) 40 NEXT x 50 END
Full BASIC�ɂ́C�葱���ɂ������O�̓`�B�Ƃ�������������܂��B�葱�����s���ɋN������O�́C���̎葱�����ŏ�������Ȃ���C�Ăяo�����ɓ`�B����܂��B���Ƃ��C���̃v���O�����Ŏ��ۂɗ�O����������̂�100�s�ł����C�Ăяo�����ł���130�s�ɓ`�B����āC��������130�s�ŗ�O���N�������̂悤�ɓ��삵�܂��B
100 DEF f(x)=1/x 110 FOR x=-10 TO 10 120 WHEN EXCEPTION IN 130 PRINT x,f(x) 140 USE 150 PRINT x,"error" 160 END WHEN 170 NEXT x 180 END
���̂悤�ɂ��邱�Ƃ��ł��܂��B
100 DEF f(x)=1/x 110 WHEN EXCEPTION IN 120 FOR x=-10 TO 10 130 PRINT x,f(x) 140 NEXT x 150 USE 160 PRINT x,"error" 170 CONTINUE 180 END WHEN 190 END
CONTINUE�́C��O�����s�̎��̍s������s���ĊJ���邱�Ƃ��w�����閽�߂ŁCMicrosoft BASIC��RESUME NEXT�ɑ������܂��B�Ȃ��CMicrosoft BASIC��RESUME 0 �ɑ�������Full BASIC�̖��߂�RETRY�ł��B
[Memo] Visual BASIC�̐V�o�[�W�����ł���VB.NET�ł́C�\������O��������������Ă��܂��BVB.NET�� Try �` Catch �` End Try�́CFull BASIC��WHEN EXCEPTION IN �` USE �` END WHEN �ɑ������܂��B�������CVB.NET�ɂ́CFull BASIC��CONTINUE��RETRY�ɑ������閽�߂͂Ȃ��悤�ł��B
�@Microsoft BASIC��Full BASIC�Ƃł�END���̈Ӗ����قȂ�܂��BMicrosoft BASIC�ł�END���̓v���O�����̎��s���I������Ƃ����Ӗ�������܂����CFull BASIC��END���͎�v���O�����̏I�����������߂ɗp�����܂��BMicrosoft BASIC�ł͔C�ӂ̏ꏊ�ɂ�����ł�END���������܂����CEND�����܂����������Ȃ����Ƃ��ł��܂����CFull BASIC�ł�END���͕K��1����������܂��B
�@Microsoft BASIC��END���ɑ�������Full BASIC�̕���STOP�ł��B
�i�⑫ Microsoft BASIC��STOP�ɑ�������Full BASIC�̖��߂́CDEBUG ON �� BREAK �ł��B�j
Microsoft��BASIC�ł�DATA���̓v���O�����S�̂ɍL��I�ł����CFull BASIC�ł�DATA���̗L���͈͂̓v���O�����P�ʂɂȂ��Ă��܂��B�ł�����C��v���O���������Ȃ��悤�ȃv���O�����ł�DATA����END�s����O�ɏ����Ȃ���Ȃ�܂���B
�@Full BASIC�ɂ�GOTO���̕�����\�����x���̍\�����p�ӂ���Ă��܂���BFull BASIC�̓G���[�����܂Ŋ܂߂č\��������Ă���̂�GOTO�����K�v�ɂȂ邱�Ƃ͖ő��ɂ���܂���B�������C�ǂ����Ă�GOTO�����g�������ꍇ�͍s�ԍ����g���܂��BFull BASIC�����x���̕��@��p�ӂ��Ă��Ȃ��̂́CGOTO���̗��p��}������Ӑ}��������̂Ɖ����ׂ��ł��B
�@�\�����v���O���~���O����ł���Full BASIC��GOSUB�`RETURN�̃T�u���[�`���͗p����ׂ��ł͂���܂��C�݊����̂��߂ɋK�i��͎c����Ă��܂��BGOSUB����p����ꍇ�̒��ӂ�GOSUB����END�s���ĕ��邱�Ƃ͋�����Ă��Ȃ����Ƃł��B���������āC�T�u���[�`�����̂�END�s����O�ɏ����Ȃ���Ȃ�܂���B�T�u���[�`���̎�O�ɏ������߂�STOP�ł��B
�@��{BASIC�ł͔z��Y���̉�����0�ł������CFull BASIC�ł͔z��Y���̉�����1�ɕύX����Ă��܂��BOPTION BASE���͗L���ł�����COPTION BASE 0 �������Ώ]���ʂ�Y���̉�����0�ɂ��邱�Ƃ��ł��܂��B
��{BASIC�ł͔z���錾�����ɗp���邱�Ƃ��ł��܂������CFull BASIC�ł͔z���錾�����ɗp���邱�Ƃ͂ł��܂���B����́CFull BASIC�ŗ��p�Ғ�`���̋@�\���lj����ꂽ���߁C�錾���Ȃ��Ɗ��Ȃ̂��z��Ȃ̂����f�ł��Ȃ����߂ł��B
�@Microsoft BASIC�ł͓������O�̒P���ϐ��Ɣz����ɗp���邱�Ƃ��ł��܂����CFull BASIC�ł�1�̖��O��P���ϐ��Ɣz��̑o���ɗp���邱�Ƃ͂ł��܂���B
�@Full BASIC�ł�DIM����p���ĒP���ϐ���z��ɕς�����C�z��̎�����ς��邱�Ƃ͂ł��܂���B�z��̎����@�I�ȑ����Ƃ��Ĉ����C�|�Ƀv���O�������������܂��B���������āC���s���ɔz���̌��̃G���[���N���邱�Ƃ͂��肦�܂���B
�@Full BASIC�͓��o�͂��Ȍ��ɋL�q�ł��錾��ł��B�z����o�͂ƍs�Z�̂��߂�MAT�����p�ӂ���Ă��܂��BMAT��matrix(�s��)�̍ŏ���3�����ł��B
�@MAT READ����p�����DATA������z��̑傫�����̃f�[�^��ǂݍ��݂܂��B
10 DIM A(4) 20 MAT READ A 30 DATA 12,43,45,21
�@2�����܂���3�����̔z��̏ꍇ�ɂ́C����̓Y������ɕω����鏇�ɓǂݍ��݂܂��B���Ƃ��C
DIM A(2,3)
�Ő錾���ꂽ�z��A������Ƃ�
MAT READ A
�����s����ƁCA(1,1), A(1,2), A(1,3), A(2,1), A(2,2), A(2,3) �̏��ɓǂ݂܂��B
�@�ł�����C�z��A��2�s3��̍s��Ƃ��Ĉ��������Ƃ��́C���̂悤�ȃv���O�����ŏ����l�̐ݒ肪�ł��܂��B
10 DIM A(2,3) 20 MAT READ A 30 DATA 1,2,3 40 DATA 3,4,5
MAT INPUT����p����ƃL�[�{�[�h����̓��͂��Ȍ��ɋL�q���邱�Ƃ��ł��܂��BMAT INPUT���̎��s���ɂ͔z��̊e�v�f���R���}�ŋ���đł����݂܂��BDATA ���ł͍s���ɃR���}�������Ȃ�����ǂ��C���l�� MAT INPUT ���œ��͎��ɉ��s���s���ꍇ�́C�r���̍s�ł́C�����ɃR���}���K�v�ɂȂ�܂��B
MAT PRINT���𗘗p����ƁC�z��̑S�v�f���o�͂ł��܂��BMAT PRINT USING���ŏ������w�肵�ďo�͂��邱�Ƃ��ł��܂��B
�@Full BASIC�ł�DIM�Ő錾����Y���̏���͒萔�ŋL�q���܂��B���������āCN88-BASIC�Ȃǂ̂悤��DIM���Ŕz��̑傫����ς��邱�Ƃ͂ł��܂���B����ɑ���@�\�Ƃ��āC�z��̓Y���̏�������s���ɓ��I�ɕύX����@�\���p�ӂ���Ă��܂��B�������C�ύX��̔z��̑傫����DIM���Ő錾�����傫������悤�ȕύX�͂ł��܂���B
���̃R�[�h�����s�����A�̓Y���̏����2�����3�ɕύX����܂��B
10 DIM A(10,10) 20 MAT READ A(2,3) 30 DATA 1,2,3 40 DATA 3,4,5
MAT INPUT���ł����l�̂��Ƃ��ł��܂��B����ɁCA��1�����z��ł���ꍇ�ɂ́C
MAT INPUT A(?)
�Ə������ƂŁCA�̑傫�����L�[�{�[�h������͂���f�[�^�̌��ɍ��킹�邱�Ƃ��ł��܂��B
�@�z��̑傫���I�ɕύX�����Ƃ��C���݂̓Y���̏����UBOUND����p���Ēm�邱�Ƃ��ł��܂��B
�@READ����IF MISSING THEN EXIT DO ���������Ƃɂ����DATA���̃f�[�^���s���Ă��܂����Ƃ���DO�`LOOP�̌J��Ԃ����邱�Ƃ��ł��܂��B���̋@�\�𗘗p����ƁCDATA�̌����v���O�������ŊǗ����邷��K�v���Ȃ��Ȃ�܂��B����2�̃v���O�������r���Ă݂Ă��������BFOR�`NEXT��p����v���O�����ł́C�v���O�����������l���f�[�^�̌���m��Ȃ��Ă͂Ȃ�Ȃ��̂ŕύX���ʓ|�ł��B�f�[�^�̌�������������ǂ��Ȃ邩�l���Ă݂Ă��������B�i�f�[�^�̌��̓R���s���[�^�ɐ������������Ǝv���܂��H�j
10 DATA 12,43,54,65 20 FOR i=1 TO 4 30 READ a 40 PRINT a,SQR(a) 50 NEXT i 60 END
10 DATA 12,43,54,65 20 DO 30 READ IF MISSING THEN EXIT DO: a 40 PRINT a,SQR(a) 50 LOOP 60 END
�@N88-BASIC�ł͕`��̈�̑傫���͏c400�h�b�g�C��640�h�b�g�ƌ��܂��Ă��܂����CFull BASIC�ł͕`��̈�̑傫���͒�߂��Ă��܂���B�`��̈�̉�f�����قȂ��Ă��������ʂ������邱�Ƃ�ړI�Ƃ������ߑ̌n�ɂȂ��Ă��܂��B
�@�Ȃ��CFull BASIC�ł́C���Ɏw�肵�Ȃ�����`��̈�̏����l�͐����`�ɂȂ�܂��B
�@�}�C�N���\�t�g�nBASIC�ł͉�ʍ���[�����_�Ƃ����f��P�ʂƂ�����W�n����{�ɂȂ��Ă��܂����CFull BASIC�ł͉�f��P�ʂƂ���̂ł͂Ȃ��C�`�����Ƃ���Ώۂɑ����ăv���O�������Œ�`�������W�n�ŕ`�悷��̂������ł��B
�@�v���O�����̂Ȃ��ʼn��z�I�ɒ�`���ꂽ���W�n�̂��Ƃ�����W�Ƃ����܂��B�����W��N88-BASIC�̃��[���h���W�ɂ悭�����T�O�ł����CN88-BASIC�̃��[���h���W��y���W�̐��̌������������ɂ�����`�ł��Ȃ��̂ɑ��CFull BASIC�̖����W��y���W�͏�������W���ł��B�i�������C�������ɒ�`���邱�Ƃ��\�ł��j
�@Full BASIC�Ŗ����W��ݒ肷�閽�߂� SET WINDOW �ł��B�p�����[�^�́C���[x���W�C�E�[x���W�C���[y���W�C��[y���W�̏��ɃR���}�ŋ���ď����܂��BN88-BASIC��WINDOW���Ƃ̓p�����[�^����ׂ鏇�����قȂ�܂��BSET WINDOW���ł́C�܂��Cx���W�͈̔͂������āC����y���W�͈̔͂��������ƂɂȂ�܂��B
��
SET WINDOW -8,8,-12,12
x���W�͈̔͂�-8�`8�Cy���W�͈̔͂�-12�`12�Ƃ���B
�@�}�C�N���\�t�g�nBASIC�ł͓_��`�����߂�PSET�ł����CFull BASIC�ł�PLOT POINTS��p���܂��B
�� 2����y=x2�̃O���t��`��
10 SET WINDOW -4,4,-1,7 20 FOR x=-4 TO 4 STEP 0.1 30 PLOT POINTS:x,x^2 40 NEXT x 50 END
�@��̃v���O�����ł́C�`�����_�̌`�́��ł��B
15 SET POINT STYLE 1
��lj�����Ɠ_�̌`���E�ɕς��邱�Ƃ��ł��܂��B
POINT STYLE�́C1���E�C2���{�C3�����C4�����C5���~�ł��B�v���O�������s�J�n����POINT STYLE��3�ł��B
�@Full BASIC�Ő܂����`�����߂�PLOT LINES�ł��BPLOT LINES: �ɑ����č��W���Z�~�R�����ŋ���ď����Ƃ��������Ɍ��Ԑ܂����`���܂��B���W�́Cx���W��y���W���R���}�ŋ���ď����܂��B
���Ƃ��CPLOT LINES: 1,2 ; 3,4 ; 5,6
�����s����ƁC�_(1,2)�C(3,4)�C(5,6)�����Ԑ܂����`���܂��B
�@PLOT POINTS���̍Ō���Z�~�R�����Ŏ~�߂Ă����ƁC����PLOT LINES�������s�����Ƃ��C�͂��߂�PLOT LINES���ōŌ�Ɏw�肵���_�Ǝ���PLOT LINES���ōŏ��Ɏw�肵���_�Ƃ̊Ԃ������Ō���܂��B
�� 2����y=x2�̃O���t��`��
10 SET WINDOW -4,4,-1,7 20 FOR x=-4 TO 4 STEP 0.1 30 PLOT LINES: x,x^2; 40 NEXT x 50 END
�@Microsoft BASIC��LINE���߂ł́C LINE -(x,x^2) �̂悤�ɏ����ƒ��O�Ɏw�肵���_�Ƃ̊Ԃ����Ԃ��Ƃ��ł��܂����C�ŏ��ɂ��̕������s�����Ƃ��ɉ�ʏ�̂ǂ����̓_�Ƃ̊Ԃ������Ō���C�Ӑ}���Ȃ��]���Ȑ����`����Ă��܂��܂��BPLOT LINES�ł́C�ŏ��Ɏw�肳���_���܂���̎n�_�ɂȂ�܂��B
�@PLOT LINES�𗘗p���ĕ����̋Ȑ���`���Ƃ��ɂ͐܂���̐ڑ���r���Œf���Ȃ���Ȃ�܂���B�����ɃZ�~�R�����������Ȃ�PLOT LINES�����s��������Ȃ�̂ł����C���̂Ƃ��C���W�w����ȗ����ď������Ƃ��ł��܂��B���傤�ǁC���s����Ƃ��ɏ�����PRINT�Ɠ����v�̂ł��B�Ȃ��C���̏ꍇ�CLINES�̎��ɏ����R�������Ȃ��܂��B
�� n����y=xn (n=1,2,3,4,5)�̃O���t��`��
10 SET WINDOW -4,4,-4,4 20 FOR n=1 TO 5 30 FOR x=-4 TO 4 STEP 0.01 40 PLOT LINES: x,x^n; 50 NEXT x 60 PLOT LINES 70 NEXT n 80 END
�@Full BASIC��p���ċȐ���`���Ƃ��CXY�v���b�^�Ƃ������u�̒��ɑz�N���Ă��������BXY�v���b�^�ł́C�y�������낵����ԂŃy�������ΐ����`����܂��B�y�����グ�ăy�������Ă����͕`����܂���B
�@Full BASIC�ł�PLOT LINES���Ńy���̈ړ��ƃy���̏グ�����ɑ������鏈�����s���܂��B���W���w�肷��ƁC�y�����w�肳�ꂽ�ʒu�Ɉړ����܂��B���W�����Z�~�R�����̓y���������铭�������܂��B�������Z�~�R�����ŏI����Ă���ƁC�y���͉��������܂܂ł��B����C�����ɃZ�~�R�������Ȃ��Ǝw����W�܂ňړ����ăy�����グ�܂��B���ɁC���W���w�肵�Ȃ�PLOT LINES�����y�����グ��ړI�Ɏg���܂��B
�@Microsoft BASIC�ł́CAND, OR�͐����^�̐��l�ɑ��Ē�`���ꂽ���l���Z�ł����CFull BASIC��AND, OR�͐���\���̈ꕔ�ł��B Full BASIC�ł́C�_���� p AND q ��p ���U�ł��邱�Ƃ��킩���q ��]�����܂���B���l�ɁC�_���� p OR q �ł�p ���^�ł��邱�Ƃ��킩���q ��]�����܂���B�ł�����C���Ƃ��C�z��A�̓Y���̏����10�ł���Ƃ��Ci<=10 AND A(i)=0 ��i�̒l��11�̂Ƃ��ɕ]�����Ă����s���G���[�ɂ͂Ȃ�܂���B�������CMicrosoft BASIC�ł� i<=10 �̐^�U�ɊW�Ȃ� A(i)=0 �̒l���v�Z���܂�����C�Y�����͈͊O�̃G���[�ɂȂ�܂��B
�@Full BASIC�ɂ�WHILE�`WEND�̍\���͂���܂���BFull BASIC�ł́CDO WHILE�`LOOP��p���܂��B
Full BASIC��SELECT�`END SELECT�\���́C���@�I�ɂ�Quick BASIC��Visual BASIC�̂���ƂقƂ�Ǔ����ł����C���삪�����قȂ�܂��BCASE ELSE���Ȃ����Ƃ��C���s���Ɉ�v����CASE���ڂ��Ȃ��ƁCMicrosoft��BASIC�ł͉��������Ɏ��ɐi�݂܂����CFull BASIC�ł͗�O��ԂɂȂ�܂��B
�@�葱����`�ɂ́C����`�C���v���O�����C�G��`�CHandler��4��ނ�����܂��B���v���O�����́CQuick BASIC, Visual BASIC��sub�v���V�[�W���̂��Ƃł��B�G��`��Handler��Microsoft BASIC�ɑΉ�������̂�����܂���B
�@����`�C���v���O�����C�G��`�ɂ́C�����葱���ƊO���葱����2��ނ�����܂��B�����葱���́C��v���O��������ъO���葱���̓����ɏ������葱���ŁC�����ȊO�͎�v���O�����܂��͊O���葱���ōL��I�ł��B�O���葱���́C��v���O��������ё��̊O���葱���ƓƗ��������݂ŁC�ϐ��̂ق��CDATA���̃f�[�^���сC�[���ԈȊO�̌o�H�ԍ�(Microsoft BASIC�̃t�@�C���ԍ�)���Ɨ��ł��B
�@Full BASIC�ł́C��v���O�����ƊO���葱�����v���O�����P�ʂƌĂт܂��B
�@Quick BASIC��Visual BASIC�ł͊��v���V�[�W����SUB�v���V�[�W���̈����ɕϐ��������ƎQ�Ɠn���ɂȂ�܂����CFull BASIC�ł́C����`�ł͒l�n���C���v���O�����ƊG��`�ł͎Q�Ɠn���ł��B�Ȃ��CVisual BASIC�ł� ByVal ���邢�� byRef �������Ĉ����̓n������ύX���邱�Ƃ��ł��܂����CFull BASIC�ɂ͂���ɑΉ�����\���͂���܂���B
�@Full BASIC�Ŕz��������Ƃ������Ƃ��C�������ɂ͊��ʂƃR���}�Ŏ����������܂��B
A()�@ 1����
A(,)�@2����
A(,,) 3����
�@�������ɔz��������Ƃ��́C�z�݂̂������܂��B
�@���̈����ɔz��������ƒl�n���ɂȂ�܂��B���v���O�����ƊG��`�ł͎Q�Ɠn���ł��B���̈����ɔz���p����Ƃ��́C���Ăяo�����Ƃɔz������邽�߂̗]���Ȏ��Ԃ������邱�Ƃɒ��ӂ��Ă��������B
��1 ����`�ɔz�������p����
100 DATA 23,43,54,61,62,82,90,33,43,15 110 DECLARE EXTERNAL FUNCTION ave 120 DIM a(10) 130 MAT READ a 140 PRINT ave(a) 150 END 160 EXTERNAL FUNCTION ave(a()) 170 LET t=0 180 LET n=UBOUND(a) 190 FOR i=1 TO n 200 LET t=t+a(i) 210 NEXT i 220 LET ave=t/n 230 END FUNCTION
��2 ���v���O�����ɔz���n��
100 DATA 23,43,54,61,62,82,90,33,43,15 110 DECLARE EXTERNAL SUB mean 120 DIM a(10) 130 MAT READ a 140 CALL mean(a,m) 150 PRINT m 160 END 170 EXTERNAL SUB mean (a(),m) 180 LET t=0 190 LET n=UBOUND(a) 200 FOR i=1 TO n 210 LET t=t+a(i) 220 NEXT i 230 LET m=t/n 240 END SUB
�@Full BASIC�ł̓[���ԈȊO�̌o�H�ԍ��̓v���O�����P�ʂ��ƂɓƗ����Ă��܂����C�o�H�ԍ����O�����v���O�����̈����Ƃ��邱�Ƃ��ł��܂��B�������� #1�C#2 �Ȃǂ̂悤��#�Ɛ����������܂��B��������#�Ɛ��l���Ŏw�肵�܂��B
�@Full BASIC�ɂ́C�����̊O���葱������Ȃ郂�W���[�����`���邱�Ƃ��ł��܂��B���W���[���ɂ́C���W���[���O����̋��p���\�ȐÓI�ϐ���u�����Ƃ��ł��܂��B�܂��C���W���[�����ł̂��p�����ÓI�ϐ����`���邱�Ƃ��ł��܂��B���W���[���ł́C���W���[�����ŋ��p�����ΏۂƂ��Čo�H�ԍ���錾���邱�Ƃ��ł��܂��B���W���[���ɂ́C�ÓI�ϐ������������邽�߂̏������R�[�h���܂߂邱�Ƃ��ł��܂��B
�@������̈�������Microsoft BASIC�Ƃ��Ȃ�قȂ�܂����C������ϐ����͖�����$��t�����ĕ\�����Ƃ�C������萔�͑O���2�d���p���ł������ĕ\�����Ƃ͂ǂ���������ł��B�������CVisual BASIC�̂悤�ɕ�����ł����l�ł�����ł���o���A���g�^�̕ϐ��Ƃ����̂͂���܂���B���l�f�[�^�ƕ�����f�[�^�́C���@��C���m�ɋ�ʂ���Ă��܂��B
�@Full BASIC�ł͕�����A�����Z�q�́��ł��BMicrosoft BASIC�ł�"2"+"3"��"23"�ɂȂ�܂����CFull BASIC�ł͓������Ƃ�"2"��"3"�Ə����܂��BVisual BASIC�ł́C������A���Ɂ����g�����Ƃ��ł��܂����CVB�ł�"2"+3��5�ɂȂ邽�ߕ�����Ƃ��Ẳ��Z���s�킹�邽�߂ɕʂ̉��Z�q���K�v�ɂȂ�������ł��BFull BASIC�̏ꍇ�ɂ͕��@��̖��͂���܂��C"2"+"3"��"23"�ɂȂ�̂͏��S�҂�f�킷�����ɂȂ�̂ł��������������������܂���B
�@Microsoft BASIC�ł͕������̊�{��MID$���ł����CFull BASIC�ł͕�����ϐ��̕���������w�肪��{�ł��B������ϐ�s$�ɑ���s$(m:n)��s$��m�����ڂ���n�����ڂ܂ł̕������\���܂��B
�@MID$���ł͕����𑀍�Ώۂɂ��邱�Ƃ��ł��܂����CFull BASIC�̕���������w��͕�����ϐ����Ώۂł��B���̂��߁C�����̌v�Z���ʂ��畔������������o�������Ƃ��ɂ́C��U�C�����̒l����ϐ��ɑ�����Ă����Ȃ���Ȃ�܂���B���ꂪ�킸��킵���Ƃ��́C���̂悤��DEF����lj������Microsoft BASIC�Ɠ��l��MID$�����g���܂��B
DEF MID$(s$,m,n)=s$(m:m+n-1)
�@�Ȃ��C(����)�\�iBASIC�̍ŐV�ł́CMID$����g�����Ƃ��ėp�ӂ��Ă��܂��B
�@Microsoft BASIC�ł�MID$���������̍��ӂɏ����ĕ�����̒u�����ł��܂����CFull BASIC�ł͕���������w��������̍��ӂɏ����܂��B���Ƃ��C
MID$(s$,4,2)="xy"
�ɑ�������Full BASIC�̕���
LET s$(4:5)="xy"
�ł��B
�@Microsoft BASIC��MID$�ւ̑���ł͎w�肳�ꂽ�ʒu�ȊO�̕����͓����܂��CFull BASIC�̕���������w��̂��镶����ϐ��ւ̑���ł́C������镶����̒������w�蕔���̒����ƐH������Ă���ꍇ�C�S�̂̒������ω����܂��B���Ƃ��Cs$="12345"�̂Ƃ��C
MID$(s$,2,2)="a"
�����s�����s$="1a345"�ɂȂ�܂����C
LET s$(2:3)="a"
�̎��s���ʂ�s$="1a45"�ɂȂ�܂��B�܂��C
MID$(s$,2,2)="abcd"
�����s�����s$="1ab45"�ɂȂ�܂����C
LET s$(2:3)="abcd"
�̎��s���ʂ�s$="1abcd45"�ɂȂ�܂��B
�@Full BASIC�ł́C���̐����𗘗p���āC������̈ꕔ���폜���Ă߂���C�r���ɕ������}�������肷�邱�Ƃ��ł��܂��B
���Ƃ��Cs$="12345"�̂Ƃ��C
LET s$(2:4)=""
�����s�����s$="15"�ɂȂ�܂��B
�@����������w��s$(m:n)�ł́Cn��m��菬�����Ƃ���m�̒��O�̋����\���ɂȂ��Ă��܂��B�ł�����C
LET s$(n:n-1)=t$
�����s����ƁCn�����ڂ̒��O��t$���}������܂��B
���Ƃ��Cs$="12345"�̂Ƃ��C
LET s$(3:2)="ab"
�����s�����s$="12ab345"�ɂȂ�܂��B
�@�܂�Cm-1��n�̏ꍇ�C
LET s$(m:n)=t$
��
s$ = LEFT$(s$,m-1) + t$ + RIGHT$(s$, LEN(s$)-n)
�Ɠ����Ӗ��ł��B
�@Full BASIC�K�i�́C�������Ƃ̂ł���t�@�C���̎�ނɂ���āC���j�C�����`���g�[�t�@�C���C�ŗL�`���g�[�t�@�C����3�̃��x��������܂��B(����)�\�iBASIC�̌��݂̃o�[�W�������T�|�[�g����t�@�C���͒��j�ł��B
N88-BASIC�Ȃǂ̌Â��^�C�v�̃}�C�N���\�t�g�nBASIC�ł�1���R�[�h��256�o�C�g�̃����_���t�@�C�����g���܂����CFull BASIC�ł̓����_���A�N�Z�X���\�ȃt�@�C���`��(���ΕҐ�)�͊g�[�t�@�C���Ƃ��Ē�`����Ă��܂��B�܂��C�Â��^�C�v�̃}�C�N���\�t�g�nBASIC�ł̓����_���t�@�C���̓��o�͂�FIELD����p���邱�Ƃ��ł��܂����C���l�̎�@�ɂ����o�͂͌ŗL�`���g�[�t�@�C���Œ�`����Ă��܂��B
�@(����)�\�iBASIC��N88-BASIC�̃����_���E�t�@�C���𑀍삵��������
������
���������������B
�@���j�Ŏg����t�@�C���ɂ́C�\���`���t�@�C���C���Ґ������`���t�@�C���C����Ґ������`���t�@�C����3��ނ�����܂��B�\���`���t�@�C���́C�ʏ�̃e�L�X�g�t�@�C���ł��C���Ґ������`���t�@�C����WRITE����READ�����g���ēǂݏ�������V�[�P���V�����E�t�@�C���̂��Ƃł��B����Ґ��t�@�C���Ƃ����̂́C1�s��1�̃f�[�^���L�^�����t�@�C���ł��B
| Microsoft BASIC | Full BASIC |
OPEN "ABC.TXT" FOR INPUT AS #1 | OPEN #1: NAME "ABC.TXT" ,ACCESS INPUT |
OPEN "ABC.TXT" FOR OUTPUT AS #1 | OPEN #1: NAME "ABC.TXT" |
OPEN "ABC.TXT" FOR APPEND AS #1 | OPEN #1: NAME "ABC.TXT" ,ACCESS OUTPUT |
�@�}�C�N���\�t�g�nBASIC�ɂ́CINPUT�COUTPUT�CAPPEND��3�̃A�N�Z�X���[�h������܂����CFull BASIC�̃A�N�Z�X�E���[�h��OUTIN�CINPUT�COUTPUT��3�ł��BFull BASIC��INPUT���[�h�ƃ}�C�N���\�t�g�nBASIC��INPUT���[�h�͂قړ������̂ł��BFull BASIC��OUTPUT���[�h�̓}�C�N���\�t�g�nBASIC��APPEND���[�h�ɑΉ����܂��B�}�C�N���\�t�gBASIC��OUTPUT���[�h�ɑΉ����鏈�����s���Ƃ��́C�A�N�Z�X���[�hOUTIN�Ńt�@�C�����J������CERASE�������s���ăt�@�C�����e���������Ă��珑���o�����n�߂܂��B
�@Full BASIC�ł̓A�N�Z�X�E���[�h�̊���l��OUTIN�ł�(�ȗ��ł���)�BOUTIN�ŊJ�����t�@�C���͓��͂ɂ��g���܂��B�܂��C�t�@�C���E�|�C���^���Ɉړ����ĒNjL�����o�����s�����Ƃ��ł��܂��B
�@Microsoft BASIC�ł�WHILE NOT EOF(n) �` WEND�̃��[�v�Ńt�@�C���ɃA�N�Z�X����̂���ł����CFull BASIC��EOF���͂���܂���(Microsoft BASIC��EOF���͌��ʂ����l�̊����Ƃ����_�ɒ���)�BFull BASIC�ł́CDATA������̓ǂݍ��݂Ɠ�����@��p���ăt�@�C����ǂ݂܂��B
10 OPEN #1: NAME "readme.txt" 20 DO 30 LINE INPUT #1, IF MISSING THEN EXIT DO: s$ 40 PRINT s$ 50 LOOP 60 CLOSE #1 70 END
�@�����o���ł́C�t�@�C�����J������ERASE�������s���܂��B
10 OPEN #1: NAME "A:SQRTABLE.TXT" 20 ERASE #1 30 FOR i=1 TO 10 40 PRINT #1: i,SQR(i) 50 NEXT i 60 CLOSE #1 70 END
20�s��ERASE�����Ȃ��ƁCA:SQRTABLE.TXT�����łɑ��݂���Ƃ��̓t�@�C���̍ŏ�����㏑�����邱�ƂɂȂ��ăG���[�ɂȂ�܂��B
�@�Ȃ��C�NjL�����o���ɂ������ꍇ�́C20�s��
20 SET #1:POINTER END
�ɕς��܂��B
�@Full BASIC�ł́C�����`���t�@�C���𗘗p����ƁCWRITE���ŏ������f�[�^��READ���œǂݍ��ނ��Ƃ��ł��܂��B
�Ȃ��C�\�iBASIC�ł́C�����`����CSV���̗p���Ă��܂��B���������āC�����`���ŏ����o���ƁCMicrosoft�nBASIC��WRITE���ɂ��o�͂Ƃقړ������̂������܂��B
�����o���v���O����
100 DATA "��", 56, 74 110 DATA "�ѓc", 92, 83 120 OPEN #1: NAME "A:sample.CSV",RECTYPE INTERNAL 130 ERASE #1 140 DO 150 READ IF MISSING THEN EXIT DO: s$, x,y 160 WRITE #1: s$,x,y 170 LOOP 180 CLOSE #1 190 END
�ǂݍ��݃v���O����
10 OPEN #1: NAME "A:sample.CSV",RECTYPE INTERNAL 20 DO 30 READ #1,IF MISSING THEN EXIT DO: s$, x,y 40 PRINT s$,x,y 50 LOOP 60 CLOSE #1 70 END
���Ӂ@RECTYPE���w�肹���Ƀt�@�C�����J���ƕ\���`���ŊJ�������̂Ƃ݂Ȃ���܂��B�\���`���ŊJ���ꂽ�t�@�C���ł́CWRITE���̓����PRINT���Ɠ����ł��B
�@�}�C�N���\�t�gBASIC�ł�PRINT���CINPUT���CREAD���CWRITE���̃t�@�C���ԍ��̎��ɏ����̂̓R���}�ł����CFull BASIC�ł̓R�����ł��B
��
PRINT #1: x,SQR(x)
INPUT #1: A,B
LINE INPUT #1: s$
PRINT���ɏ����w���lj�����Ƃ��́C�R�����̎�O�ɁC�R���}�ŋ����USING�߂������B
PRINT #1,USING "### ##.###": a,b
Microsoft BASIC�Ƃ̑���̏ڍׂ́C BASIC Help �́u����BASIC�Ƃ̑���v���Q�Ƃ��Ă��������B