SET PATH=C:\mingw-jp\bin;C:\borland\bcc55\bin;C:\Program Files\Java\j2re1.4.2_05\bin;C:\Program Files\Microsoft
Visual C++ Toolkit 2003\bin;C:\Program Files\Microsoft SDK\Bin;C:\ProgramFiles\Microsoft SDK\Bin\Win64;%PATH% SET INCLUDE=C:\Program Files\Microsoft Visual C++ Toolkit 2003\include;C:\Program Files\Microsoft SDK\Include SET LIB=C:\Program Files\Microsoft Visual C++ Toolkit 2003\lib;C:\Program Files\Microsoft SDK\Lib
>>944 いやー久々にBASIC書いたよ〜。あってるかな? 10 DIM A$,B(255),C 20 INPUT "データを入力してください:",A$ 30 IF VAL(A$)<0 THEN GOTO 50 40 C=C+1:B(C)=VAL(A$):GOTO 20 50 FOR I=1 TO C: PRINT "データ";C;"|"; 60 FOR J=1 TO B(C): PRINT "*"; : NEXT J:PRINT 70 NEXT I