5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

PRINT("BASIC デマターリカタルスレ。")

1 :スズキケンイチロウ:01/12/28 03:39
10 COLOR 7
20 PRINT ("BASIC ノコマンドダケデカタルスレッド。")
30 PRINT ("ハンカクモジ イガイデモ カ。")
40 PRINT ("C ゲンゴ トカ ツカイタケレバ ツカッテモヨシ。")
50 PRINT ("マターリ カタリアイマセウ")
60 END

2 :1:01/12/28 03:41
今気が付いた。

関数() はC言語の構文だった。
マジ、鬱。

3 :ナイコンさん:01/12/28 04:28
>>1
10 CLS
20 INPUT"反省してますか? 1 YES 2 NO";A
30 IF A=1 THEN PRINT"スレ続行":GOTO 50
40 PRINT"逝ってよし!!!!!!!!!!!!":BEEP:GOTO 40
50 END

4 :ナイコンさん:01/12/28 04:48
10 REM ソモソモ シッパイ イゼンニ 2デ ザセツシテル スレッド

5 :ナイコンさん:01/12/28 09:26
5 PRINT "5ゲット- ズザザザ"

6 :ナイコンさん:01/12/28 09:48
cload "konosure.bas"
OK
run
Syntax Error in 1
OK


7 :ナイコンさん:01/12/28 10:19
NEW

8 :再開!:01/12/28 17:46
NEW
OK
10 COLOR 7
20 PRINT "BASIC ノコマンドダケデカタルスレッド。"
30 PRINT "ハンカクモジ イガイデモ カ。"
40 PRINT "C ゲンゴ トカ ツカイタケレバ ツカッテモヨシ。"
50 PRINT "マターリ カタリアイマセウ"
60 END

40
RUN

9 :ナイコンさん:01/12/28 17:57
1 REM 1000ゲット ver0.1
10 DEFINT A-Z
20 IF LN=1000 THEN 40
30 GOTO 20
40 PRINT "1000 !!!!!";
50 END

10 :ナイコンさん:01/12/28 18:01
>>9
いつまでも1000ゲットできないと思われ。
あ、変数クリアしないBASICなら可能性はあるか・・・。

11 :ナイコンさん:01/12/28 18:07
#include <stdio.h>
#include <stdlib.h>
main()
{
printf("BASICワスレタ\n");
printf("デモコノスレオモロイ\n");
printf("8レスデ40ギョウケシテルケド Cデカイチャウモンネ\n");
printf(">>10 CトBASICイガイデハツゲンスルノハハンソク イッテヨシ!!\n");

exit(1);
}

12 :ナイコンさん:01/12/28 18:14
10 for I=1 to 4
20 print mid("マターリ",I,1);
30 for J=0 to 10000:next J
40 next I

13 :ナイコンさん:01/12/28 18:17
? "FORTRANヲ ツカワセロ。 ゴルァ!"

14 :ナイコンさん:01/12/28 18:28
10 PRINT"QuickBASICヤBASIC09ハ OK?"

15 :ナイコンさん:01/12/28 18:38
10 'マチガエテルカモ
20 PRINT "FORTRANオボエテネー"
30 INPUT "COBOLハドウダ?";A$
40 IF A$="OK" OR "ok" THEN 70
50 PRINT "COBOLハフカ"
60 GOTO 80
70 PRINT "COBOLモOK"
80 END
OK
RUN
FORTRANオボエテネー
COBOLハドウダ?OK
COBOLモOK
OK


16 :15:01/12/28 18:41
NEW
OK
10 PRINT "80ギョウノウシロニOKナンテデネー"
20 PRINT "ウツダシノウ"
30 BOOT

17 :アレ?:01/12/28 18:47
10 PRINT "コマンドマチノトキ OKトデルキシュトREADYトデルキシュヲオシエロ"
20 PRINT "BASICノシュルイニモヨルハズ"

18 :ナイコンさん:01/12/28 19:36
10 REM コチラモヨロシク
20 GOSUB http://pc.2ch.net/test/read.cgi/i4004/1008847300/

19 :ナイコンさん:01/12/28 22:31
10 PRINT"MZハ リョウホウアッタゾ"
20 PRINT"S-BASICハREADYデWICSハOKダッタキオクガ"
30 END

20 :17:01/12/28 23:03
10 PRINT ">>19 ソウカ S-BASICガREADYダッタカ"
20 PRINT "WICSッテナンダ?"
30 PRINT "Hu-BASICナラシッテイルガ"
40 PRINT "ホカジョウホウモトム!!"
50 GOTO 40

21 :ナイコンさん:01/12/28 23:07
>>20
GOTO *Google

22 :ナイコンさん:01/12/28 23:30
10 REM マトメ
20 INPUT "アナタノ パソコンハ OK デスカ READY デスカ?(OK=1, READY=2)";F
30 IF F=1 THEN PRINT "アナタノ パソコンハ マイクロソフトケイBASIC カ HuBASICケイ デス":GOTO 50
40 PRINT "アンタノ パソコンハ SHARPケイBASIC デス"
50 END

23 :名無しさん ◆MZ2000oY :01/12/29 01:43
10 INPUT "F-BASIC モ Ready ダッタトオモウンダケド。"
20 PRINT "アト、 HuBASIC ハプログラムジッコウチュウニ BREAK シテ、"
30 PRINT "CONT デキルジョウタイノトキハ Ok. トナルデスヨ。"
40 END

24 :ナイコンさん:01/12/29 01:45
シッカシ、半角カナ ハ 読ミヅライナア(ワライ)
ムカシハ ナントモ ナカッタノニ

25 :ナイコンさん:01/12/29 02:01
ON ERROR GOTO イッテヨシ

26 :ナイコンさん:01/12/29 02:30
ニカカインラトニ!(藁

27 :ナイコンさん:01/12/29 02:51
スナミ
?SN Error
Ok


28 :ナイコンさん:01/12/29 03:16
ミイテ

Ready
リニト■

29 :ナイコンさん:01/12/29 05:56
10 FOR I=1 TO 7
20 PRINT "ナゼカNECノBASICダト、ウマクイカナインダヨネ"
30 NEXT I
50 GOTO 10

30 :29:01/12/29 06:34
RUN
ナゼカNECノBASICダト、ウマクイカナインダヨネナゼカNECノBASICダト、ウマクイカナインダヨネナゼカNECノBASICダト、ウマクイカナインダヨネナゼカNECノBASICダト、ウマクイカナインダヨネナゼカNECノBASICダト、ウマクイカナインダヨネナゼカNECノBASICダト、ウマクイカナインダヨネ
BREAK IN 30
OK

25 COLOR I

コレ忘れてたよ。

31 :ナイコンさん:01/12/29 07:13
10 DEFINT A-Z
20 PRINT "N-88 BASIC(86)とか";
30 PRINT "BASIC 98では";
40 PRINT "全角が使えて助かったな"
50 REM
60 PRINT "X1turboもそうじゃなかったっけ?"
70 END

32 :ナイコンさん:01/12/29 09:10
10 CLS
20 PRINT "if800model50だってMS-DOSだからOKだよ。"
30 PRINT "でも、変換がローマ字onlyなので、仮名入力バリバリの";
40 PRINT "8Bitユーザーには辛かった。"

33 :ナイコンさん:01/12/29 09:51
10 PRINT ">>31"
20 PRINT "MZ-2500も忘れるなゴルァ"
30 PRINT "辞書ROMオプションだったけどな"
40 PRINT "単漢字入力うざい"
50 I$=INKEY$:IF I$="" THEN 50
60 END

34 :MH:01/12/29 11:08
ハニリイト
OK


35 :MH:01/12/29 11:11
10 STOP ON
20 ON STOP GOSUB 40
30 GOTO 30
40 RETURN
RUN■

36 :ナイコンさん:01/12/29 11:36
DIR
?SN Error


37 :ナイコンさん:01/12/29 12:19
セスニミカ フコンナコトモアッタナ・・・フ
Syntax Error
OK


38 :ナイコンさん:01/12/29 13:55
10 PRINT">>33"
20 変数="MZ-2500はこんなことまで出来たっけ?"
30 PRINT 変数

39 :名無しさん ◆MZ2000oY :01/12/29 14:04
10 PRINT">>31"
20 [変数]="X1turbo の場合は [ ] で囲む必要がありました。"
30 PRINT [変数]

40 :ナイコンさん:01/12/29 14:06
>>35
10 STOP ON 'ダケデ可

41 :ナイコンさん:01/12/29 14:08
MONアー
h]■

42 :33:01/12/29 14:08
10 PRINT ">>38"
20 変数$="$が要るぞ、忘れるなゴルァ!!"
30 PRINT 変数$

43 :ナイコンさん:01/12/29 14:10
[for N88-BASIC(86)]

LIST
10 WIDTH 80,25:CONSOLE 0,25,0,1,0
20 PRINT "正直、うらやましいな、変数に漢字使えるの・・・"
Ok
RUN
正直、うらやましいな、変数に漢字使えるの・・・
Ok


44 :ナイコンさん:01/12/29 14:15
10 ON ERROR GOTO 40
20 SCREEN,
30 PRINT"98!":END
40 PRINT"88!":END
50 REM N88-BASIC ノ ナゾ

45 :ナイコンさん:01/12/29 14:17
printf("
イマダ!45ゲットォォォォワショーイ!!\n
 ̄ ̄ ̄ ̄ ̄∨ ̄ ̄ ̄       (´´\n
     /■\       (´⌒(´\n
  ⊂(´∀` ⊂⌒`つ≡≡≡(´⌒;;;≡≡≡\n
        ̄ ̄  (´⌒(´⌒;;\n
      ズザーーーーーッ\n
");

46 :ナイコンさん:01/12/29 14:32
PRINT"未だ工事!"

47 :ナイコンさん:01/12/29 14:44
2 ゲットォォォ
3 ゲットォォォ

RENUM

48 :ナイコンさん:01/12/29 15:24
10 PRINT"マターリノコンゲンッテダレ";
20 INPUT MONA$
30 IF INSTR(MONA$,"チュウボー")>0 THEN PRINT"否":END
40 IF INSTR(MONA$,"83")>0 THEN PRINT"逝":END
50 PRINT"オマエモナー"
60 END

49 :ナイコンさん:01/12/29 17:03
PRINT SEARCH(I4004%,"マターリノカミ@")

50 :MZ-2000:01/12/31 01:03
NEW
Ready
RUN
*ERROR 19
Ready


51 :MZ-2000:01/12/31 01:06
POKE$952,0
Ready
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAA■

52 :if800:01/12/31 01:53
800 ?"懐かしいねぇ。GW-BASIC"

53 :名無しさん ◆MZ2000oY :01/12/31 07:36
>>51
POKE$952,166
Ready


54 :ナイコンさん:02/01/05 19:33
1000 REM MS-BASICデマターリ
4380 GOSUB >>52:PRINT"ウマー"
5550 PRINT"S-BASIC vs CBS-BASIC"
5560 IF INKEY$="" THEN 5560

55 :ナイコンさん:02/01/08 00:45
55 CHAIN "FORMAT /P /G"
RUN

Syntax Error in 55
OK

NEW

10 PRINT "そういや,領域確保が必要だったんだっけ・・・"
20 PRINT "どんなコマンドだっけ.もうすっかり忘れちゃったなあ."

56 :MH:02/01/08 12:54
>>40
10 PRINT "ウオ、ウヤラレタ"
20 PRINT "デナオシテキマス"
30 GOTO 30

57 :ナイコンさん:02/01/08 13:05
=40=54
若いということは良いことだ。(^^)

58 :ナイコンさん:02/01/08 13:07
57 GOTO >>1

59 :ナイコンさん:02/01/08 13:10
BOOT
Aer you sure?(y/n) Y

60 :ナイコンさん:02/01/08 13:25
KEY 5,"new"+chr$(13)

61 :ナイコンさん:02/01/08 14:08
100 REM SAVE"61",A 'シマタ!!
110 CHAIN MERGE "61",62,DELETE 57
120 PRINT "スマヌー オメメワスレテタ";
132 LET TRUE=(40 EQV 54)
140 PRINT RIGHT$("GOOD!",1)

62 :ナイコンさん:02/01/08 18:56
100 REM >>60
110 PRINT "ヒデエ(w";

63 :ナイコンさん:02/01/08 20:24
RETURN

64 :ナイコンさん:02/01/08 22:18
load "60.bas"

OK
run

OK

KEY 1,"save "+chr$(&H22)

OK
CLS 3

65 :ナイコンさん:02/01/08 23:09
10 print chr$(12)
20 PRINT"pc-8001 ノ N-BASIC ニハ CLS ガ ナカッタンダ"
20 beep 1 :for I=1 to 50
30 beep 0 :next
50 end

66 :ナイコンさん:02/01/08 23:15
ジョウキ ノ プログラム エラー デ トマル スマソ
OK

67 :ナイコンさん:02/01/08 23:17
ヤハリ トマラズ ナニヲヤッテンダ オレ

68 :ナイコンさん:02/01/09 12:39
NEW ON 1

69 :ナイコンさん:02/01/09 13:07
TRON

70 :ナイコンさん:02/01/09 13:31
MON

71 :ナイコンさん:02/01/09 14:06
カタカナハナゼエラーニナラナイカ
Ok

72 :ナイコンさん:02/01/12 13:52
100 GOSUB >>65
110 INPUT "イツカラツイタンダロウネ、オセーテヨ";A$

73 :ナイコンさん:02/01/14 03:34
10 H$="150エン":N$="ネギダク":O$="オオモリ":T$="ツユダク":Y$="ヨシノヤ"
10 INPUT"ソンナコトヨリ キイテクレヨ >>1ヨ。 スレトハ アンマ カンケイナイケドサ。(Y/N)";A$
20 IF A$="Y"or"y" THEN 40:IF A$="N"or"n" THEN 30 ELSE 10
30 PRINT"ソウイワズニ キケ ゴルァ!":FOR I=0 TO 10:BEEP:NEXTI
40 PRINT"コノアイダ キンジョノ";Y$;"イッタンデス。";Y$
50 PRINT"ソシタラ、ナンカヒトガイーッパイイテ ハイレナインデス。"
60 PRINT"デ、ヨクミタラ ナンカ タレマク サガッテテ、"
70 PRINT H$;"ビキ トカ カイテアルンデス。"
80 PRINT"モウネ、アホカト。 バカカト。"
90 PRINT"オメエラナ、";H$;"ビキ ゴトキデ フダン キテナイ";Y$;"ニ キテンジャネーヨ。"
100 GOSUB 470
110 PRINT H$;"ダヨ、";H$;"。"
120 PRINT"ナンカ オヤコヅレ トカモ イルシ。"
130 PRINT"イッカ ヨニンデ";Y$;"カ。"
140 PRINT"オメデテーナ。"
150 PRINT"ヨーシ、パパトクモリ タノンジャウゾー、トカ イッテルノ。"
160 PRINT"モウミテランナイ。"
170 PRINT"オメエラナ、";H$;"ヤルカラ ソノセキ アケロト。"
180 PRINT Y$;"ッテノハナ、モット サツバツト シテルベキ ナンダヨ。"
190 PRINT"Uノジテーブルノ ムカイニ スワッタ ヤツト イツ ケンカガ ハジマッテモ オカシクナイ。"
200 PRINT"サスカ ササレルカ、ソンナ フンイキガ イインジャネエカ。"
210 PRINT"オンナ コドモハ スッコンデロ。"
220 PRINT"デ、ヤット スワレタカト オモッタラ、トナリノ ヤツガ、"
230 PRINT O$;T$;"デ、トカ イッテルンデス。"
240 PRINT"ソコデ マタ ブチギレ デスヨ。"
250 PRINT"アノナ、";T$;"ナンテ キョウビ ハヤンネーンダヨ。"
260 GOSUB 470
270 PRINT"トクイゲナ カオ シテ ナニガ";T$;"ダ。"
280 PRINT"オメエハ ホントウニ";T$;"ヲ タベタイノカト トイタイ。"
290 PRINT"トイツメタイ。"
300 PRINT"コイチジカン トイツメタイ。"
310 PRINT"オマエ、";T$;"ッテ イイタイ ダケ ナンジャナイカト。"
320 PRINT Y$;"ツウノ オレカラ イワセテ モラエバ、"
330 PRINT"イマ、";Y$;"ツウノ アイダデノ サイシン リュウコウハ ヤッパリ";N$;"。"
340 PRINT"コレダネ。"
350 PRINT N$;"ッテノハ ネギガ オオメニ ハイッテル。"
360 PRINT"ソノカワリ ニクガ スクナメ。"
370 PRINT"コレ。"
380 PRINT"デ、ソレニ";O$;"ギョク。"
390 PRINT"コレ。"
400 PRINT"サイキョウ。"
410 PRINT"シカシ コレヲ タノムト ツギカラ テンインニ マーク サレル トイウ キケンモ トモナウ、モロハノケン。"
420 PRINT"シロウトニハ オススメデキナイ。"
430 INPUT"マア オマエラハ、ギュウサケテイショク デモ クッテナサイッテ コッタ。(Y/N)";A$
440 IF A$="Y"or"y" THEN 460:IF A$="N"or"n" THEN 450 ELSE 430
450 PRINT"ダマレ チュウボウ!":FOR I=0 TO 10:BEEP:NEXTI
460 END
470 PRINT"ボケガ。":RETURN

74 :ナイコンさん:02/01/14 03:39
   DO 100 I=0,0
     WRITE (*,*) '読みにきーよ'
100 CONTINUE
   END

75 :ナイコンさん:02/01/14 06:00
Hit Any Key!

76 :ナイコンさん:02/01/14 08:10
10 DEFINT A=0
20 INPUT A
30 IF A=0 THEN *THEN. ELSE *ELSE.
40 *THEN.
50 PRINT "構造化プログラミングに憧れて";
60 PRINT "こんな馬鹿な書き方をした時期がありました" : GOTO *ENDIF.
70 *ELSE.
80 PRINT "at N88-BASIC(86)。ところで文法あってる?"
90 *ENDIF.

77 :ナイコンさん:02/01/14 08:11
100 REM うわ。せっかくインデントしたのに半角スペースが消えてるよ(;´Д`

78 :ナイコンさん:02/01/14 10:56
>>74
これFORTRANじゃん…

79 :ナイコンさん:02/01/14 15:25
10 PRINT "MSX-BASIC ナツカシイ"
20 GOTO10

80 :ナイコンさん:02/01/14 23:05
CALL FORMAT

81 :ナイコンさん:02/01/15 14:35
100 GOSUB>>73
110 PRINT"ヨシノヤネタドッカデミタゾ

82 :ナイコンさん:02/01/15 14:39
1000 PRINT"小泉孝太郎は佐藤藍子がお鍋してる時の姿
1010 PRINT"佐藤藍子は小泉孝太郎がお釜してる時の姿
1020 PRINR"だまされるなよ

83 :ナイコンさん:02/01/15 17:03
>>82
Syntax Error

84 :ナイコンさん:02/01/15 17:19
>>83
1020
?"信託す偉い人、もういない

85 :ナイコンさん:02/01/16 00:03
10 CLS:CLEAR
20 PRINT "なぜに最初にCLSする奴が少ないのだ?"
30 END

86 :ナイコンさん:02/01/16 12:01
1 REM ウケケ
5 CLS
10 ON STOP GOSUB 30
20 PRINT "ヘヘヘ"
30 RETURN

87 :ナイコンさん:02/01/16 13:27
>>86
ヘヘヘ
RETURN without GOSUB in 30

88 :86:02/01/17 17:54
guha---
1 REM ウケケ
5 CLS
10 ON STOP GOSUB 30
20 PRINT "ヘヘヘ":GOTO 20
30 RETURN

89 :ナイコンさん:02/01/17 18:04
>>88
6 PRINT ">>35 デ ガイシュツ":END

90 :ナイコンさん:02/01/18 02:01
>>73
WIDTH 80,25:LOCATE 12,36:PRINT "ハゲシクワラタ"


91 :90:02/01/18 02:49
マチガイスマソ m(__)m
WIDTH 80,25:LOCATE 35,12:PRINT "ハゲシクワラタ"



92 :ナイコンさん:02/01/18 14:31
KEY 5,"DEFUSR=0:A=USR(0)"+CHR$(13)

93 :MH:02/01/18 18:56
10 REM >>88
20 PRINT "ミンナオナジコトヲカンガエルノネ(w"


94 :ナイコンさん:02/01/18 21:35
'printするなら;をつけたほうが楽しいと思う

95 :ナイコンさん:02/01/19 06:06
10 REM * シレイショ *
20 WIDTH 40,25:SCREEN 0,25,0,1,1:COLOR ,,,1:CLS 3
30 LOCATE 15, 9:PRINT "シレイ : コトシジュウニBASICヲキョウヨウゴニセヨ!"
40 FOR N=1 TO 1000:NEXT:BEEP
50 LOCATE 15,10:PRINT "...ナオコノプログラムハジドウテキニショウメツスル"
60 FOR N=1 TO 500:FOR M=1 TO 10:BEEP 1:BEEP 0:NEXT M,N
70 LINE (0,0)-(37,23),"*",7,BF
80 FOR N=1 TO 100
90 BEEP 1:LOCATE INT(RND(1)*35+1),INT(RND(1)*21+1):COLOR 2:PRINT "*":BEEP 0
100 NEXT N
110 CLS:NEW
120 REM ヤバイ、ケッコウワスレテルヨ(ウツ
130 END

96 :ナイコンさん:02/01/19 12:23
100 GOSUB>>95
110 REM コレハドノマシンデジッコウスレバイイノダ

97 :漏れ:02/01/19 13:58
10 PRINT"YOUNG JUMP":GOTO10
20 REM コンナ イチギョウ プログラム ヲ
30 REM ヤンジャン ノ ランガイニ
40 REM トウコウ シテ
50 REM ケイサイ サレタ コトガ アルヨ

98 :漏れ:02/01/19 14:01
10 GOTO>>96
20 PRINT"N BASIC ミタイダヨ"
30 PRINT"タブン PC-8001 デショウ"
40 NEW

99 :ナイコンさん:02/01/19 14:13
100 GOSUB>>98
110 PRINT"なんでSCREENあんの

100 :ナイコンさん:02/01/19 15:04
10 DEFINT A-Z
20 ON KEY GOSUB >>99
30 ON STOP GOSUB >>98
40 GOTO >>1

101 :ナイコンさん:02/01/19 16:12
10 GOTO >>95
20 PRINT "20 ギョウノ SCREEN 0,25,0,1,1 ッテノハ イッタイ ナニ?"

102 :ナイコンさん:02/01/20 01:36
10 'MSX ノ リブート
20 DEFUSR=0
30 A=USR(0)


103 :ナイコンさん:02/01/20 21:04
NEW ON 1

104 :ナイコンさん:02/01/21 18:26
1 REM フトシタ ギモン コレッテ ツカエッタケ?
10 PRINT "ハァハァ"
20 RUN

105 :ナイコンさん:02/01/21 19:54
ゲーム作ってて、ゲームオーバー後各変数を初期化するのが
めんどくさかったときは、Replay時にRUN、って書いてた覚えがある

106 :ナイコンさん:02/01/21 22:36
10 COLOR INT(RND(1)*7)+1
20 LOCATE 10,10:PRINT "センターシケンノ BASICッテ ヤルヤツイルノカ"
30 GOTO 10

107 :ナイコンさん:02/01/21 23:02
5e 2a 54 eb 74 cd 79 3d
ef e1 2a 34 ff c3 fa 41


108 :ナイコンさん:02/01/22 01:12
10 LIST オレノジンセイ

10コウカイ
20コウカイ
30コウカイ
40コウカイ
50コウカイノ レンゾクダネ


109 :ナイコンさん:02/01/22 09:29
>>105
しんでしまうとはなさけない・・・はじめからやりなおせ

110 :ナイコンさん:02/01/22 10:56
RUN 110

111 :ナイコンさん:02/01/22 11:49
考えてみればプログラム中でRUNでジャンプすんのってメチャメチャ強引だなあ(笑

112 :ナイコンさん:02/01/23 00:05
CONT

113 :ナイコンさん:02/01/24 12:06
ハニリイト
OK

FILES
OK

スナミ
OK

RUN
OK

114 :ナイコンさん:02/01/24 12:19
0OQ
OK

ワラタ
OK


115 :ナイコンさん:02/01/24 12:43
10 SCREEN 0.0
20 CLS 3
30 END

116 :ナイコンさん:02/01/26 11:10
Syntax error in >>1-115

117 :ナイコンさん:02/01/29 18:45
100 HOMO

118 :ナイコンさん:02/01/29 21:37
10 END

119 :ナイコンさん:02/02/02 17:39
100 LEZ

120 :ナイコンさん:02/02/03 04:07
'ハニリイト激しく藁タ

121 :ナイコンさん:02/02/04 04:08
10 BEEP 1

122 :ナイコンさん:02/02/06 12:49
Syntax error in >>1-1001

123 :本田ギケン:02/02/06 12:54
10 REM コノスレスキデシ

124 :ナイコンさん:02/02/07 06:15
DOS-BASICならトントカイモだろ。

125 :ナイコンさん:02/02/08 20:42
>>124
MSX-BASICなら
ソチリリ トントカイモ

126 :ナイコンさん:02/02/08 21:27
10 '>124-125
20 TALK "m1:be-ssikude katareyo"

127 :ナイコンさん:02/02/08 22:24
10 REM >>126
20 PRINT "ソウイウ オマエ ハ PC-6001ジャネェカ"

128 :ナイコンさん:02/02/10 10:09
FOR i=1 to 8
READ A$
PRINT A$
NEXT i
DATA ***************************************************
DATA きょうびBASICには笑えた 高校ではBASICかおめでてーな
DATA Cは難しすぎるし結果としてよかったんじゃないかな
DATA ところで漢字の使えないBASICって今思うと読みにくいんだよ!
DATA 目が悪くなるだろ! むかつく!
DATA 今はVBか? やっぱ原点はN88BASIC これだね。
DATA そして QuickBASIC これ最強。
DATA *************************************************
END


129 :ナイコンさん:02/02/10 10:33
ニカカインラトニ!


130 :ナイコンさん:02/02/10 13:20
10 REM >>128
20 PRINT "ギョウバンゴウ ハ イラナイノカ?"

131 :ナイコンさん:02/02/10 14:08
10 PRINT "ギョウバンゴウ ノ ナイ BASIC ナド ミトメン!"
20 GO TO 10


132 :ナイコンさん:02/02/10 14:27
シツモンシテモイイデスカ? 1+1 ハイクツデショウ
2
Ok
_

133 :ナイコンさん:02/02/10 18:45
10 PRINT "ハゲシク イタチガイダガ、「BASIC STUDIO パワフル ゲーム コウボウ」ノ"
20 PRINT "EZ-BASIC ニモ ギョウバンゴウガ アルネ。"
30 PRINT "http://www.artdink.co.jp/japanese/title/bs/index.html"
40 PRINT "http://www.artdink.co.jp/japanese/title/bs/gr/g_ezbas.jpg"

134 :ナイコンさん:02/02/10 18:52
10 TALK "F2 TORIAEZU AGE"
RUN
女声「とりあえずage」
Ok



135 :ナイコンさん:02/02/10 20:43
10 '>>132
20 PRINT "リスト ハ ドコダ?"
30 END

136 :ナイコンさん:02/02/10 21:21
10 ' >>135
20 PRINT "N88(86)-BASICデ 1ギョウメヲ コノママウチコンデミヨウ"
30 PRINT "コウブンチェックデ カタカナハ Syntax Errorニナラズニ"
40 PRINT "ムシスルツクリニ ナッテイルカララシイ"
50 PRINT "シュウワガムカシダシテイタ 'ESC' トイウ スウゴウデ アボーン"
60 PRINT "サレタザッシニ デテイタYO!"


137 :ナイコンさん:02/02/10 22:23
PRINT "インタープリタ ナンダカラ ダイレクトコマンドモ アリ ジャ ナイノカナ"

138 :ナイコンさん:02/02/10 22:48
1 PRINT "BASIC ト イエバ MSX ダロ"
2 INPUT ANS$
3 IF ANS$="ソウデスネ" THEN GOTO 10 ELSE GOTO 4
4 PRINT "クソッタレ シネ"
10 PRINT "MSX ノ ゲーム ガ タダ デ テニハイルヨ"
11 PRINT "http://messages.yahoo.co.jp/bbs?.mm=GN&action=m&board=1835377&tid=a4dea4bfqya45a4la4bfa1aaa47a4aba4ba5da5ua1bca4dea4gmha4fa1aa&sid=1835377&mid=1&type=date&first=1"
12 PRINT "###ナガクテゴメソ"
13 BEEP
14 GOTO 10


139 :ナイコンさん:02/02/11 11:17
10 '>>138
20 PRINT "MSX-BASICナラ 3 ギョウメ ハ コウダロ?"
30 PRINT "モジ ツメナキャ MSX-BASIC ジャ ナイYO!"
40 DATA "3 IFANS$="ソウデスネ"THENGOTO10ELSEGOTO4"

140 :ナイコンさん:02/02/13 12:06
10 OPEN "1:RANDOMF" AS #1
20 FIELD #1,255 AS MOJI$
30 LSET MOJI$="コノスレ スキデス"
40 PUT #1,LOF(1)+1
50 CLOSE #1
60 END


141 :ナイコンさん:02/02/14 04:09
10 'IF A$="" THEN 10 E;SE 4

20 'MSXなら注釈はremと書いたほうが速い

142 :ミスプレ改:02/02/14 14:48
10 PRINT"コノスレ ナンダカ オモロイ"
20 PRINT"コノイタ ナンダカ オチツク"
30 PRINT"コレデモ 19サイノ センモンガコーセーデス。"
40 PRINT"ガッコウノ パーコンニ コンナブン シカケマクッテマシタ(w"
50 PRINT"シタニカキマスノデ BASICジッコウデキテ カツ オンゲンガアルカタハ レッツ トライ!"
60 PLAY"T100GEGET240GEGET100GEGAGFT52EC"
70 PRINT"ナオ MULTI8ニシカケル タメニ カイタ ブンナノデ PC-98ノ バアイ ハ"
80 PRINT"ジブンデ カキナオシテ クダサルト タイヘン ウレシイデス。"
SAVE"2"
Ok.

143 :ナイコンさん:02/02/15 00:43
1000 REM BEEPノテスト
1010 FOR I=1 TO 4
1020  READ A,B
1030  FOR J=1 TO A
1040   BEEP
1050   FOR K=1 TO B:NEXT K
1060  NEXT J
1070 NEXT I
1080 DATA 50,500,50,250,100,150,250,100


144 :ナイコンさん:02/02/15 03:06
<HTML>
<HEAD>
<TITLE>っていうかさ</TITLE>
<BODY>
<H1>オモロイケド読みにくい</H1>
<A HREF="http://www.2ch.net/">トップ</A>
<!--コレ反則かな。だれかヤルト思ったって?スマソ-->
</BODY>
</HTML>

145 :ナイコンさん:02/02/15 18:06
CLOAD "test.bas"
RUN
Ok

146 :ナイコンさん:02/02/15 18:13
AUTO
10 PRINT ">>144"
20 PRINT "ハンソク ト イウヨリ ハ ブスイ ナ ダケカト オモワレ"
30 PRINT CHR$(7)


147 :ナイコンさん:02/02/16 14:36
100 GOSUB >>144
200 REM 大なり小なり恐怖症だからいやデス

148 :ナイコンさん:02/02/16 20:16
Syntax Error in >>1000
Ok


149 :ナイコンさん:02/02/16 21:48
1 REM XEVIOUS
2 PLAY"T240L16V15"
3 PLAY"O4CO5CO4BO5CECO4BO5C"
4 PLAY"O4CO5CO4B-O5CECO4B-O5C"
5 PLAY"O4CO5CO4AO5CECO4AO5C"
6 PLAY"O4CO5CO4A-O5CECO4A-O5C"
7 GOTO 3

150 :ナイコンさん:02/02/18 13:59
10 '>138
20 PRINT"クソッタレシネ ノ アトデモ"
30 PRINT"MSX ノ ゲーム ガ タダ デ テニハイルヨ ト レンゾク デ デルノハ"
40 PRINT"シヨウデスカ? (Y/N)"
50 INPUT A$
60 IF A$<>"N" THEN 80
70 FOR I=0 TO 1000:PRINT "バグ ダスンジャネエ ゴルァ!":BEEP:NEXT:NEW
80 IF A$<>"Y" THEN 50
90 PRINT"ナライイデス"

151 :ナイコンさん:02/02/19 21:12
WIDTH 40

Ready
10 PRINT”16*8ドットジャナイト アマリアジガデナイNE!”

152 :◆3/V75Pys :02/02/19 22:16
こういう事しなかった?
10 'BEEPデイロンナオトヲダス
20 FOR I=0 TO 50
30 BEEP 1:BEEP 0:BEEP 1:BEEP 1:BEEP 0
40 NEXT I


153 :ナイコンさん:02/02/19 23:19
10 GO TO HELLrun
アボーン シマシタ
OK.

154 :ナイコンさん:02/02/19 23:52
>>152
こういうことならした。

10 ' N-BASIC version
20 PRINT CHR$(12);
30 PRINT "Ok"+CHR$(&HFC)
40 LINE INPUT A$
50 PRINT "Syntax error"+CHR$(&HFC)
60 BEEP
70 GOTO 30

以上を入力したあと、runして逃げる。

155 :ナイコンさん:02/02/20 00:31
今のPCショップで、XPのテーマがクラシックになっているのはよく見るけど、
この時代はかわいいいたずらだったんだなぁ...

156 :ナイコンさん:02/02/20 07:42
10 '>152
20 'データレコーダー ノ スイッチ デ イロンナ オト ヲ ダソウ
30 INPUT A
40 MOTOR ON:FOR I=0 TO A:NEXT:MOTOR OFF:GOTO 40
50 'ソノホカ ノ リヨウホウ デスガ
60 'データレコーダー ニ コエ ヲ ロクオンシタ テープ ヲ イレ サイセイスルト ボイスチェンジャー ニ ナリマス
70 'ソレニシテモ キカイ ニ ワルソウ デスナ (ワラ

157 :ナイコンさん:02/02/20 16:33
10 CLS
20 RESTORE *DT
30 READ D$,A,B
40 C=A+B
50 PRINT USING "& & ### ### ###";D$,A,B,C
60 END
70 *DT
80 "ナツカシイ",10,20


158 :お。:02/02/20 22:18
10 cls
20 x=10:y=10
30 a$=inkey$
40 x=x+(a$="4")-(a$="6")
50 y=y+(a$="8")-(a$="2")
60 cls:locate x,y:print "(゚Д゚)ウマー"
70 goto 30

画面外でエラーとか 細かい事は なしの方向で…
ってか INKEY$の使い方って こうだっけ?
CLSてのも強引だが…

159 :ナイコンさん:02/02/21 10:10
100 CLS
110 WIDTH 80,25
120 X=1:Y=1
130 A$=CHR$(&HFF)
140 WHILE A$<>CHR$(&HFF)
150 LOCATE X,Y:PRINT "(゚Д゚)ウマー"
160 A$=INKEY$
170 IF A$="4" THEN X=X-1:IF X< 1 THEN X=80
180 IF A$="6" THEN X=X+1:IF X>80 THEN X= 1
190 IF A$="2" THEN Y=Y-1:IF Y< 1 THEN Y=25
200 IF A$="8" THEN Y=Y+1:IF Y>25 THEN Y= 1
210 WEND
210 END


160 :ナイコンさん:02/02/21 10:42
100 'スロットマシン
105 CLS
110 IK$=CHR$(&HFF):WHILE IK$<>" ":IK$=INKEY$:A%=INT(RND(TIME)*9):LOCATE 1,1:PRINT STR$(A%):WEND
120 IK$=CHR$(&HFF):WHILE IK$<>" ":IK$=INKEY$:B%=INT(RND(TIME)*9):LOCATE 4,1:PRINT STR$(B%):WEND
130 IK$=CHR$(&HFF):WHILE IK$<>" ":IK$=INKEY$:C%=INT(RND(TIME)*9):LOCATE 7,1:PRINT STR$(C%):WEND
140 IF A%=B% AND A%=C% THEN PRINT "オオアタリ":GOTO *ED
150 IF A%=B% OR A%=C% OR B%=C% THEN PRINT "オシイ" :GOTO *ED
160 PRINT "ハズレ"
170 *ED
180 END


161 :ミスプレ改:02/02/21 23:26
10 print">>160ナツカシーナ。 ムカシBASICチューダッタコロ ヨクツクッタ。"

162 ::02/02/22 00:30
だって、論理演算を使えって Dr,Dがさぁ・・・

163 :ナイコンさん:02/02/22 13:03
100 CLS
110 PRINT "ワタシガ、ヨクダシタ、エラーベスト10"
115 PRINT
120 PRINT " 1イ:syntax error"
130 PRINT " 2イ:illegal function call"
140 PRINT " 3イ:file not found"
150 PRINT " 4イ:file write protected"
160 PRINT " 5イ:disk offline"
170 PRINT " 6イ:tape read error"
180 PRINT " 7イ:type mismatch"
190 PRINT " 8イ:out of data"
200 PRINT " 9イ:out of subscript out of range"
210 PRINT "10イ:string too long"


164 :ナイコンさん:02/02/22 21:36
10 CONSOLE ,,,1:WIDTH 80,25
20 PRINT ">>162"
30 PRINT "最近ベーマガ買ってないけど、Dr.D元気かなあ?"


165 :ミスプレ改:02/02/25 21:57
10 ' >>164ハ N88-BASIC モシクハ ゴカン BASICデカイタト オモワレ。
20 ' チューカ REM ト LET ハ ゼンゼン ツカワネーナ。
30 ' マァ、 スクネーメモリ ハ タイセツニシナイトナ。
40 ' メモリ ノ 1バイト ハ チノ イッテキ!!
50 ' イマノ Win モシクハ マカー ハ スコシハ ミナラエ!!

166 :1ljytff:02/02/27 21:04
10 ' 気合で削った ハイドライド3を思い出せ!

167 :ナイコンさん:02/02/27 23:39
あきんどないと

168 :ナイコソさん:02/03/02 20:26
Abort

169 :PC-8001:02/03/09 17:33
10 PRINT CHR$(12);
20 PRINT "セミコロン ツケナイト 1ギョウ アイチャウヨ!"

170 :ナイコンさん:02/03/09 19:51
10 ' スターウォーズ ノ タイファイター
20 PRINT "(-O-)"

171 :PC-8801:02/03/09 20:43
10 CLS 0
20 PRINT "ドゥ?"


172 :ナイコンさん:02/03/09 23:57
10 PRINT ">>171"
20 PRINT "CLS ノ パラメータ ニ 0 ナンテ アッタッケ?"

173 :ナイコンさん:02/03/10 11:25
ag

174 :ナイコンさん:02/03/10 12:30
EXEC &H0

175 :ナイコンさん:02/03/11 13:24
PLAY "@1O3L4BBL8BL4BO4DL8D-L4D-L8O3BL4BL8B-L2B"

176 :ナイコンさん:02/03/12 00:19
10 REM >>175
20 PRNT "MML ヲ カクナラ モット キレイニ カイテヨ"

177 :ナイコンさん:02/03/12 04:47
10 REM >>176
20 PRINT "スマソ ナンセPC-8801ノN-88BASICデMMLツカッタキリダタノデ"

178 :ナイコンさん:02/03/14 00:05
10 CLS
20 PRINT "こんは゛んわ。N60-BASICて゛すか゛、なにか?";

179 :ナイコンさん:02/03/14 00:24
10 REM >>172
20 PRINT "N88デ タシカアッタハズ。キャラクタ ガメン ト グラフィック ガメン ノ";
30 PRINT "ショウキョヲ ツカイワケル パラメータ。";
40 NEW

180 :ナイコンさん:02/03/14 19:07
10 REM >>179
20 PRINT "N88-BASIC ノ CLS ノ パラメータ ハ、"
30 PRINT "1 --- テキスト ガメン ヲ ショウキョ"
40 PRINT "2 --- グラフィック ガメン ヲ ショウキョ"
50 PRINT "3 --- テキスト ト グラフィック ノ リョウホウ ヲ ショウキョ"
60 PRINT "ダト オモッタ。"
70 PRINT "キニナルンデ CLS 0 ヲ タメシテ ミタラ、エラーハ デナイケド"
80 PRINT "ナンノ コウカモ ナカッタヨ (ワラ"

181 :ナイコンさん:02/03/14 19:18
Sub Main()
MsgBox "REM と ' は中間言語的にはメモリ消費は一緒では?", vbQuestion Or vbYesNo, ">>165"
End Sub

182 :ナイコンさん:02/03/14 21:52
10 REM >>180
20 PRINT "オォ、ワザワザカクニン アリガト。"
30 PRINT "ジャア、CLS 0 テナンダロ ?"
40 REM
50 PRINT "コノ スレ ミルトキダケ、ブラウザノ セッテイカエテ クロヂ ニ シロデ"
60 PRINT "ヒョウジ スルト カンジガデルナァ。"
70 STOP

183 :ナイコンさん:02/03/17 10:38
10 END

184 :ナイコンさん:02/03/17 11:36
10 PRINT ">>181"
20 PRINT "キミ、N88-BASIC ヲ シラナイネ?"

185 :ナイコンさん:02/03/17 11:45
1 REM テユーカ、memoryショウヒ キニスルナラ サイショカラ REM ナンカ イレルナヨ(w

186 :ナイコンさん:02/03/17 16:20
10 ' >>181
20 PRINT "チュウカン ゲンゴ テキ ニハ コメント ジタイ ガ ムシ サレル ノデハ?"

187 :ナイコンさん:02/03/18 19:02
10 ' for MSX-BASIC Ver.3.0
20 PRINT"MSX-BASICの変数名は最初の2文字しか判別しなかったから"
30 PRINT"大学の実習のBASICプログラム(N88-BASIC)で困ったことになった。"
40 PRINT"だって、偏差(HENSA)と平均(HEIKIN)が同じ変数になるんだもん。"
50 PRINT"それさえなければ、いいBASICだと思うんだがねぇ…。"


188 :ナイコンさん:02/03/18 23:55
10 CLS
20 PRINT "コノスレ ゲキワラタ"
30 PRINT "モレハ CASIOノ SUPER COLLEGE"
40 PRINT "PERSONAL COMPUTER Z-1 ッテユー ポケコンヲ"
50 PRINT "ツカッテ イタガ ナニカ?"
60 FOR a=0 to 10
70 NEXT a
80 CLS
90 END


189 :でしょう〜に !:02/03/20 17:47
CLS 0
Illegal function call
Ok


190 :180:02/03/20 19:50
10 REM >>189
20 PRINT "オレ ガ ジッケン シタ N88-BASIC (V2) デハ、 エラー ハ デナカッタヨ。"

191 :ナイコンさん:02/03/22 01:06
10 REM >>182
20 PRINT "ビット0ガ テキスト ショウキョ"
30 PRINT "ビット1ガ グラフィック ショウキョ"
40 PRINT "ダカラナノデス。"

192 :古い人:02/03/22 01:41
10 SCREEN 0:WIDTH 32:CALL KANJI 3:CALL CLS
15 DEFINT A-Z
20 '
25 PRINT "数当てゲーム(^^;;)"
30 AN=RND(1)*10000
40 INPUT "数はいくつでしょう?";QS
50 IF AN > QS THEN ME$="小さすぎます。"
60 IF AN < QS THEN ME$="大きすぎます。"
70 IF AN = QS THEN 500
80 PRINT ME$:GOTO 40
500 '
510 NEW

間違えてたらスマソ


193 :P6AVTOWNS:02/03/22 04:18
10 CLS
20 RANDOMIZE TIME
30 DEFINT A-Z
40 X1=RND(1)*640:Y1=RND(1)*200
50 X2=RND(1)*640:Y2=RND(1)*200
60 C=RND(1)*8
70 LINE(X1,Y1)-(X2,Y2),C,PSET,BF
80 GOTO 40

スクリーンセーバー代わりだな^^

194 :ナイコンさん:02/03/22 06:32
10 カケ "ニホンゴベーシック モ ガイトウ スルノカ?"
20 イケ >>1 :'イケ ハ GOTO ノ イミ

195 :ナイコンさん:02/03/22 08:53
10 ' >>180,>>189〜190
20 ' N88-BASIC デ カイテマス
30 CLS 0
40 PRINT "ナンダカ,CLS コマンドヲ アツク カタル スレニナッテキタナァ.(w"
50 INPUT "ギョウバンゴウ 30 ノ CLS 0 ハ ウゴクノカ ウゴカナイノカ" (Y/N)";A$

196 :PC-8001:02/03/22 12:13
10 PRINT CHR$(12)
20 LOCATE 10,15:PRINT"PC-8001ニハ、CLSガナイナンテシンジラレナイ・・・。"
30 NEW


197 :ナイコンさん:02/03/22 12:37
10 REM カンケイナイガ ジブンジシンヲ
20 REM ケシテシマウ PROGRAM ヲミタトキハ
30 REM ショウガクセイ ナガラ ナンダカ
40 REM ヨクワカラナイ フシギナキモチガ
50 REM シタ。
60 NEW 

198 :ナイコンさん:02/03/22 13:28
10 REM >197
20 NEW
30 END

199 :ナイコンさん:02/03/22 22:07
10 REM BASIC ハングアップ
20 CLS
30 PRINT "BASICガハングアップシマシタ"
40 GOTO 20

200 :PC-8001Mk2:02/03/22 22:11
10 cmd screen 2,0,1:width80,25:cmd cls 3
20 cmd circle(159,100),50,2
30 cmd paint(159,100),3,2
40 locate15,10:print"N80-BASIC ノ CMD ッテ、チョウウザイ!"
50 locate15,11:print"デモ、コノキシュデ アソンダ 「サラトマ」 ノ グラフィックニハ カンドウシタ!"
60 end


201 :ナイコンさん:02/03/23 14:17
10'>>189
20'うちもエラーだったよ。まさか8ビット版じゃないとだめとか
30'そんな骨董品ないよ

202 :ナイコンさん:02/03/23 14:55
10 REM >>201
20 PRINT "シヨウ ショ ヲ ヨメ"
30 END

203 :N88-BASIC(86):02/03/23 16:05
CLS 0
Illegal function call
Ok



204 :ナイコンさん:02/03/24 00:23
10 PRINT "ヒョットシテ、 CLS 0 ノ ジッコウ ケッカ ハ、"
20 PRINT "PC-88 ..... エラー ナシ (ナニモ オコラナイ)"
30 PRINT "PC-98 ..... Illegal function call"
40 PRINT "ナノカ ?"

205 :ナイコンさん:02/03/25 18:02
N88-BASIC で

WIDTH 79
Illegal function call
Ok


…になるのが信じられなかった漏れはMSXユーザー…

206 :ナイコンさん:02/03/26 15:29
AUTO
10 REM >>205
20 PRINT "スナオ ニ MSX BASICツカットケ"
30 END

207 :古い人:02/03/26 23:11
auto*
1000 'MSXのSCREEN 0とSCREEN 1で最大表示桁数が違うの忘れて
1010 'なんどか悩んだ。今でもたまにハマる。
1020 '1桁ずつ指定できるのはRF出力で繋いだときに融通が利くように
1030 '考慮してのことだろうけど、1桁ずつでなくても良かったんじゃない
1040 'か?と思う今日この頃。
1050 'アイデア勝負の一画面プログラムで利用したりしたのかな?
1060 '…ところで?sage進行ですか?
Ok.

208 :ツ?:02/03/28 22:22
10 rem
20 cls:console 0,10,0,0:color 1,0,1
30 ? "ひまなときはただPRINTするた゛けのPGつくったな"
40 goto 40
ok


209 :ナイコンさん:02/03/29 12:54
100 WIDTH 80,25
110 CLS
120 FOR I = 0 TO 79
130   LOCATE 0,0:PRINT "  ∧_∧"
140   LOCATE 0,1:PRINT " ( ´∀`)"
150 LOCATE 0,2:PRINT " (    )"
160   LOCATE I,3:PRINT " | | |"
170   LOCATE I,4:PRINT " (__)_)"
180 NEXT I
190 END

210 :209修正:02/03/29 12:58
130   LOCATE I,0:PRINT "  ∧_∧"
140   LOCATE I,1:PRINT " ( ´∀`)"
150   LOCATE I,2:PRINT " (    )"

211 :ナイコンさん:02/03/29 19:40
>>209

120 FOR I=0 TO 72 ' 辺りが適切だと思われ

212 :ナイコンさん:02/03/29 21:54
その当時のBASICにインデントってあったっけか?>>209-210

213 :209でも210でもないが:02/03/29 22:42
手作業でインデントを付けたことはある。

214 :ナイコンさん:02/03/29 23:29
1 REM N-BASICとかは中間言語にする段階でインデント用のスペース削られたような。
2 REM でも>209-210は全角使ってるからN-88 BASICあたりか。
3 REM それならインデントは有効だったはず。

215 :MSX:02/03/30 07:41
10 PLAY "README.DOC"
20 PLAY "GAME OVER"


216 :ナイコンさん:02/03/31 11:27
10 'SAVE "gomi.bas" for if800(プ
11 ' ッテカ、リアルショウボウ ノ トキ オヤジガ カイシャノ ハライサゲ デ モラッテカエッテキタ マシン デ
12 ' アソンデイタノデシタ
20 CLS:RESTORE 100
30 READ A$:IF A$="END" THEN END
40 PRINT A$:GOTO 30
90 'カクノウ データ
100 DATA "チュウガクノトキ ギジュツノジカンニ パソコン ノ ジュギョウガアッタトキ、"
110 DATA "サッサトカダイヲオワラセテシマイ、アマリニヒマニナッタノデBASICデプログラムウチコミ"
120 DATA "シテタラ センセイニ ソンケイサレタYO!"
130 DATA "チナミニ ツクッタプログラムハ ガッコウニホウチ(ソツギョウゴ、DISKフォーマットサレタカモシレンガ)"
140 DATA "コノスレ、ミテルトナツカシクナルナ。ヒサビサニ98のBASICタチアゲルカ。"
150 DATA ""
160 DATA ">>200サン"
170 DATA "PC8001Mk2デハ グラフィック ハ カクチョウメイレイ ダッタノデスネ。"
180 DATA "END"


217 :FM77AV:02/04/01 11:49
1 REM Oh!FM ヨリ
10 PLAYHG "o4l4CDEFGAB>C"

218 :ナイコンさん:02/04/15 22:32
こんなの発見

CQ出版「トランジスタ技術 SPECIAL No.78」
特集:技術者のためのExcel活用研究
  第8章 N88BASICプログラムのリユース法

昔のBASICプログラムを、ExcelのVBAにコピペして使うというもの。
もちろん、文法の修正は必要だし、グラフィックも使えない。
ま、ご参考までに。

219 :ナイコンさん:02/04/16 01:21
How many files(0-15)?
NEC N-88 BASIC Version 1.1
Copyright (C) 1981 by Microsoft
56799 Bytes free
Ok


220 :ナイコンさん:02/04/16 01:28
run "format.nip"
新しいディスクをドライブにセットして下さい
フォーマットするドライブは? 2
物理フォーマッティングを行いますか (y/n) ? y
ディスクタイプ (1. 1MB 2. 640KB) ? 1

ドライブ 2 を物理フォーマット中です

システムディスクを作成しますか? (y/n) ? n
処理中です
終了しました

221 :ナイコンさん:02/04/24 15:22
100 SCREEN1,1,1:CLS
110 X=10:Y=10
120 A$=INKEY$
130 IF X<1 THEN X=1:else
140 IF X>20 THEN X=20:else
150 IF Y<1 THEN Y=1:else
160 IF Y>20 THEN Y=20:else
170 LOCATE X,Y-1:PRINT "       "
180 LOCATE X,Y:PRINT " (・∀・) "
190 LOCATE X,Y+1:PRINT "       "
200 IF A$="A" OR A$="a" THEN X=X-1
210 IF A$="S" OR A$="s" THEN X=X+1
220 IF A$="W" OR A$="w" THEN Y=Y-1
230 IF A$="Z" OR A$="z" THEN Y=Y+1
240 IF A$=" " THEN GOTO 260
250 GOTO 120
260 LOCATE X,Y:PRINT " (・∀・)イイ!!"
270 FOR I=0 TO 500 :NEXT
280 LOCATE X,Y:PRINT "        "
290 GOTO 120

MSX BASICダYO!

222 :age:02/04/24 22:53
How many files(0-15)?
NEC N-08 BASIC Version 0.0b
Copyright (C) 1901 by Miraclesoft
1 Bytes free
Ok


223 :syntax eroor:02/04/24 23:10
IDENTY FICATION DIVISION
PROGURAM ID SEX

ENVIRONMENT DIVISION

DATA DIVISION
PRIVATE SEX VTR

PROCIDUER DIVISION
SEIJOI
KIJOUI
BACK
KUKKYOKUI
DAKKO

224 :ナイコンさん:02/04/24 23:25
コボルってこうみると頭悪い言語だね

225 :99:02/04/24 23:27

-------風俗の総合商社・MTTどこでも-------

〇デリバリーヘルス〇デートクラブ〇女性専用ホストクラブ〇
〇ハードSM奴隷クラブ〇レズビアン倶楽部〇ホモ・オカマ倶楽部
〇変態痴女と遊ぶ会〇痴漢・覗き趣味の会〇変態同好会・各種!
●楽しく遊べます! 090-8002-8356番
-----------美男・美女会員など多数在籍中-----------
  http://www.mttdocomo.jp/
-----女性アルバイト随時募集・高収入(日払い)月100万円可能-----
-----レズビアン・スタッフ●ホモスタッフ●女性専用ホストスタッフ同募-----
http://www.mttdocomo.jp/
------------------------------------------------

226 :ナイコンさん:02/04/25 22:02
>>221

130 IF X<1 THEN X=1:else
140 IF X>20 THEN X=20:else
150 IF Y<1 THEN Y=1:else
160 IF Y>20 THEN Y=20:else

…後ろの「:else」ってナニ?
「:else」ってことは、「:」でつなげて「else」っていう命令を実行しろってことに
なるけど、「else」は単体の命令じゃ使えないYO!


227 :ナイコンさん:02/04/26 23:11
>>221はHSPと記憶がごっちゃになっているのではないかと言ってみるテスト。

228 :ナイコンさん:02/05/13 20:43
10 SCREEN 0:WIDTH 1:CLS
20 DEFUSR(0)=&H0
30 PRINT "アボーン"
40 FOR I=0 TO 10000:NEXT I
50 A=USR(0)
60 END

229 :ナイコンさん:02/06/05 09:12
保全


230 :ナイコンさん:02/06/11 01:17
10 CLEAR
20 FOR I=0 TO 50000:NEXT I
30 FOR X=0 TO 50000
40 FOR Y=0 TO 50000
50 BEEP 1
60 NEXT Y
70 NEXT X
80 END

・・・厨房の頃ショップのあらゆるパソコンでやった時限機能付きの悪戯。
もちろんボリューム最大してから逃げた(w
この程度しかBASICが分からなかったアホな俺。

231 :ナイコンさん:02/06/30 15:13
10 SCREEN 1
20 FOR I=&H100 TO &H107
30 VPOKE I,INT(RND(1)*256)
40 NEXT I
50 VPOKE &H2004,&HC1

MSXでコレを実行すると背景がゼビウスマップになったりする
昔よくやってた(ちなみにコレをはじめて知ったとき感動した)



232 :ナイコンさん:02/06/30 15:23
ここの管理人最高
http://isweb43.infoseek.co.jp/play/ta-bo-z/

233 :ナイコンさん:02/06/30 17:07
10 '色番号の表示
20 CLS
30 DIM A(7)
40 P=0
50 PRINT "色番号"
60 FOR I=1 TO 7
70 P=P+1
80 A(I)=P
90 COLOR P
100 PRINT A(I);
110 NEXT I
120 END


234 :ナイコンさん:02/06/30 17:16
10 PRINT "ボクハテンサイダ"
20 GOTO 10

ポプラ社の絵本サイズのやつに乗ってたやつ。
PRINT文の中身を嫌いなやつの悪口に変えて遊んだ小学低学年の冬・・・


235 :ナイコンさん:02/07/01 09:18
>>233

10 '色番号の表示
20 CLS
30 PRINT "色番号"
40 FOR I=1 TO 7
50 COLOR I
60 PRINT I;
70 NEXT I
80 END

これでもいいんじゃない?

236 :ナイコンさん:02/07/01 09:41
10 NEW

RUN
Ok

237 :ナイコンさん:02/07/01 10:59
はじめて見たプログラムというもの
(たしかこんなのだったと思う)

10 INPUT A
20 INPUT B
30 C = A + B
40 INPUT D
50 IF C=D THEN GOTO 80
60 PRINT "マチガイ"
70 GOTO 40
80 PRINT "セイカイ"
90 END

心当たりある奴修正しる


238 :ナイコンさん:02/07/01 14:52
10 INPUT A
20 INPUT B
30 INPUT C
40 INPUT D
50 INPUT E
60 INPUT F
70 INPUT G
80 INPUT H
90 PRINT "ご苦労様"

239 :ナイコンさん:02/07/01 16:25
>>238
付け足し
95 print "オマエガナ"

240 :ナイコンさん:02/07/01 16:32
>>237
こんにちはマイコンかYO!
あってんじゃネーノ?

241 :ナイコンさん:02/07/01 19:44
10 CLS
20 FOR I=1 TO 1000
30 PRINT "金よこせ";
40 NEXT I
50 END

242 :ナイコンさん:02/07/02 16:10
10 CLS
20 PRINT "N88BASIC(dosバン)デJPEGエツラン&インサツプログラムサクセイホウキボン"
30 END

243 :ナイコンさん:02/07/02 21:35
1 ' シツモン
2 CLS
100 PRINT "ムカシ テキトウニ N88-BASIC ヲ イジッテタンダケド"
110 PRINT "キドウジニ 'How many files?(0-15)' ト ヒョウジサレルノガ"
120 PRINT "ゼンゼン イミガ ワカラナカッタ"
130 PRINT "0 ヲ ニュウリョクシテモ 15 ヲ ニュウリョクシテモ"
140 PRINT "ドコガ チガウノカ ワカラナカッタ"
150 PRINT "コレッテ ドウイウ イミ ナンデスカ?"
160 INPUT A$
170 PRINT A$
180 END

244 :ナイコンさん:02/07/02 21:45
100 OPEN "TEST.DAT" FOR OUTPUT AS #1
110 PRINT #1, "OPENメイレイ ノ テスト"
120 CLOSE #1
130 REM
140 REM この文を実行してエラーになるかどうかの話。
150 REM ...?(0-15) で、15を入力すれば #1 の部分に、#1〜#15を指定できる。
160 REM だったよね?


245 :ナイコンさん:02/07/02 22:05
GOTO 236


246 :ナイコンさん:02/07/05 20:18
10 CLS
20 PRINT "2ch2ニN88BASICイタツクリマシタ"
30 PRINT "http://www.2ch2.net/bbs/n88basic/index2.html"
40 END


247 :ナイコンさん:02/07/05 23:55
How many files(0-15)?
Microsoft Windows 98 Version 4.10.2222A
Copyright (C) 1999 by Microsoft
401604608 Bytes free
Ok

うちのPC(スペック的に古いけど)
それでも昔から考えるとアホみたいにメモリあるな

248 :ナイコンさん:02/07/05 23:59
DEFINT A-Z

処理速度アップする魔法の呪文


249 :ナイコンさん:02/07/06 11:18
RANDOMIZE(VAL(RIGHT$(TIME$,2))

昔はよくプログラムの頭につけたもんだ…

250 :ナイコンさん:02/07/06 12:17
new on 12


251 :ナイコンさん:02/07/06 14:08
>>242
10 RESTORE *D
20 READ A$:IF A$="*end" then end
30 PRINT A$
40 GOTO 20
100 *D
110 DATA ドーデモイイガ、ハンカク カナ ハ、タンマツ ニ ヨッテ
120 DATA ヒョウジデキナイノデ、ゼンカク デ オナガイシマス。
130 DATA *end


252 :251:02/07/06 14:12
print ">>242は余分ですた"

253 :ナイコンさん:02/07/06 14:53
10 REM >>251
20 REM ワシならこう書く。
30 REM 20 READ A$:IF A$<>"*end" THEN PRINT A$:GOTO 20

254 :ナイコンさん:02/07/06 20:52
10 REM --- N88BASIC ---
100 RANDOMIZE ( VAL(LEFT$(TIME$,2)+RIGHT$(TIME$,2)) )
110 WHILE (INKEY$<>""):WEND
120 WHILE (INKEY$=""):I=RND(1):WEND
130 REM RANDOMIZEと、キー入力待ちに仕込みをしてました。

255 :ナイコンさん:02/07/06 23:17
10 PRINT CHR$($0E);"ハンテンスマスタ"
15 MUSIC "V3L4トミソト"
20 IF INKEY$="" THEN GOTO 30
30 PRINT CHR$($0F);CHR$($07);"モドシマスタ"


256 :ナイコンさん:02/07/06 23:19

間違えますた

20 IF INKEY$="" THEN GOTO 20


257 :ナイコンさん:02/07/07 00:54
>>255
MZユーザーハケーン

258 :ナイコンさん:02/07/07 01:17
>>254
100 RANDOMIZE TIME-65536!
なんてどうよ。


259 :ナイコンさん:02/07/07 03:15
?"飽きずによくやってるね

260 :ナイコンさん:02/07/07 17:44
10 FOR I=0 TO 10000
20 NEXT I
30 TALK "f4 ^iq +te +yo- si."
40 FOR I=0 TO 1000
50 NEXT I
60 TALK "m4 ^O +mae +mo +na-."
70 GOTO 10

261 :254:02/07/14 08:56
100 '>>258 機種はなんでしょ?
110 'N88は文字列関数 TIME$ ("hh:mm:ss"が返る)しかないんで。
120 'TIMEは実数型の関数?それとも変数かな?
130 'でもN88だとエラーになるなあ。
140 'RANDOMIZEの引数がINTEGERしか使えんから。
150 '>>259オマエモナー
160 END

262 :ナイコンさん:02/07/14 22:47
ハニリイト
ok

263 :ナイコンさん:02/07/19 08:05
テニシカク
Ok

264 :ナイコンさん:02/07/19 12:07
>>262
>>263
2人とも
Syntax error
を忘れてるという罠。

265 :ナイコンさん:02/07/19 12:33
10 '>>264
20 print "N88BASIC系はカナでリターンするとOkがでるな"
30 end



266 :ナイコンさん:02/07/19 13:31
10 '>>265
20 C=(C=7)*7+C+1
30 COLOR C
40 PRINT"ナマハンカナチシキデカキコンデスマソ";
50 GOTO 20

267 :258:02/07/19 23:43
10 '>>254
20 PRINT "スマソ、モレ F-BASIC ユーザー デシタ。"
30 PRINT CHR$(34);"TIME";CHR$(34);"ハ、0ジ カラノ セキサン ビョウスウヲアタエル カンスウナンダ。"
40 PRINT "N88ダターラ、"
50 TM=VAL(LEFT$(TIME$,2))*3600+VAL(MID$(TIME$,4,2))*60+VAL(RIGHT$(TIME$,2))-65536!
60 PRINT "...ナンテヤッタラドウカナァ。"
70 PRINT "ビョウスウノ maxガ86400ダカラ、65536ヒイテ オケバ カナラズ integerノハンイニ オサマルデショ。"
80 NEW


268 :ナイコンさん:02/07/19 23:51
10 ' >>267
20 PRINT "ケシチャウノカヨ!!(By ミムラ)"
30 PRINT "ンジャ、オレモ・・・"
40 NEW


269 :254:02/07/21 00:40
100 'N88漢字BASIC
110 '>>258 (>>267)
120 '時刻 09:06:08 より前だとエラーになるよ。
130 '09:06:08 = 9*3600 + 6*60 + 7 = 32767、
140 '32767 - 65536 = -32769 で Out of Range だ。
150 '積算秒数が0〜86399だから、INTEGERの16ビット
160 '(正数で表現すると0〜65535)に収まらないんですよ。
170 'ま、ランダムシードをまぜまぜしたいだけだから、
180 'TIME=(中略) / 2 とかしとけばOKかな。
190 'でも深夜や、朝は起動させないという罠で、それはそれでいいかも。


270 :六本木パソコン:02/07/21 02:28
10 ' >>260
20 INPUT "PC6601SR ユーザーデスカ?(Y/N)",A$
30 IF A$="Y" or A$="y" THEN 100
40 IF A$="N" or A$="N" THEN PRINT "(・w・)ショボーン":END
100 '
110 TALK "f2# mo'remo:cec"
120 END

271 :260:02/07/21 05:03
5 REM >>270 スマソ
10 TALK"m2 ^zi +tu wa."
20 TALK"f4 ^Pi- +roku."
30 TALK"f4 ^Ma-kutu-."
40 TALK"m4 no +yu- +za- desita."
50 FORI=0TO4096:NEXTI
60 PRINT"ゴメンネ......"



272 :ナイコンさん:02/07/25 22:25
10 REM このスレも よろしくおながいします
20 REM BBSがちょっと違うけどね。ヨロシコ!
30 PRINT"http://www.alfheim.jp/~narikiri/narikiri/test/read.cgi?bbs=TheSun&key=1026442095"

273 :267:02/07/26 00:13
60000 '>>254=269
60010 PRINT "スルドイ!!"
60020 PRINT "ソウイエバ ビョウスウヲ 2デワッテイタカモシレナイ。"
60030 PRINT "ヨッテ、"
60040 TM=(VAL(LEFT$(TIME$,2))*3600+VAL(MID$(TIME$,4,2))*60+VAL(RIGHT$(TIME$,2))-65536!)/2
60050 PRINT TM; "アタリ デ カイケツ デスネ。"
60060 PRINT "ツッコミ アリガトウ。"
60070 LINE INPUT "--> ココデ カンシャノコトバヲ; ", A$
60080 PRINT ">>254=269"
60090 PRINT A$
60100 BEEP
60110 NEW

274 :ナイコンさん:02/07/26 23:45
10 CLS
20 RESTORE *DAT
30 READ A$
40 IF A$="*END" THEN END
50 PRINT A$
60 GOTO 30
1000 *D
1010 DATA "半角カナ、見えない端末だとこのスレに書かれたネタの一部が見えないという罠。"
1020 DATA "それと、プログラムの組み方でどのレスが同一人物かがわかったりして。"
1030 DATA "さて、私は誰でしょう?(w"
1100 DATA "*END"


275 :274:02/07/26 23:46
バグハッケソ

1000 *DAT


276 :ナイコンさん:02/07/27 22:32
100 RESTORE *I.DAT
110 READ ES$, OD$
120 S$=ES$+"@"
125 '
130 RESTORE *M.DAT
140 OPEN OD$ FOR OUTPUT AS #1
150 WHILE (S$<>ES$)
160  READ S$
170  IF S$<>ES$ THEN PRINT #1,S$
180 WEND
190 END
200 '
210 *I.DAT
220 DATA ""
230 DATA "SCRN:"
240 '
250 *M.DAT
260 DATA ">>274 = >>251テ゛ハナイテ゛ショウカ?"
270 DATA "ソレテ゛ハ ワタシハ タ゛レテ゛ショウ?"
280 DATA "ヒントハ、go toステートメントヲ キョクリョク"
290 DATA "サケルコト、while〜wendカ゛タ゛イスキナコトテ゛ス。"
300 DATA "モウ、ハ゛レハ゛レテ゛スネ。"
310 DATA "ア、セ゛ンカクカタカナハ、ノウナイヘンカンテ゛"
320 DATA "ハンカクカタカナニ ヘンカンオネカ゛イシマス。"
330 DATA ""


277 :ナイコンさん:02/07/30 20:40
10 RANDOMIZE CSRLIN+FRE("(^_^)")
20 'コレガサイコウ

278 :ナイコンさん:02/07/30 20:56
行番号が何千行もあるプログラム作って(内容は適当でOK),
list

だぁーっと表示されているうちに先行入力.
new

「お前はもう死んでいる」って言って喜んでた (阿呆

279 :ナイコンさん:02/07/31 11:37
kill "1-278"

280 :ナイコンさん:02/07/31 18:08
>>279
syntax error

dim kakiko$(1000)
a$="DQN"
kakiko$(279)=a$
print kakiko$(279);





281 :ナイコンさん:02/07/31 20:31
load "274.bas"
OK
1000 *DAT
1010 DATA "そういえば、自分の書いたプログラムを呼び出して書き直してる人いないね。"
1020 DATA ">>276 正解。自分で書いておきながら半角を自己レスで使ってる(鬱"
1030 DATA ">>279 これみて気がついたが、スレ番号をファイル名と取るか、リスト番号と取るか人それぞれだね"
1040 DATA "関係ないですが、ウチのBASICのディスク見ると、時代を感じるネタが満載だわ。"
1050 DATA "なんか、オウムネタ入ってるし、PLAY文での尊師のマーチもあるし。"


282 :ナイコンさん:02/07/31 22:27
NEW
OK
AUTO
10 'スレ管理.BAS
20 CLS
30 IF スレッド$="糞スレ" THEN NEW
40 IF スレッド$="DAT落ち" THEN SAVE "DAT.TXT":END
50 IF スレッド$="良スレ" THEN SAVE "GOOD.BAS":GOTO 30
60 ^CSAVE "スレ管理.BAS"
OK
NEW
OK
AUTO
10 '荒し対応.BAS
20 IF 書き込み$="優良書き込み" THEN age
30 IF 書き込み$="荒し書き込み" THEN 40 '無視
40 IF 書き込み$="ネタ" THEN sage
50 GOTO 20
60 ^C
SAVE "荒し対応.BAS"
OK


283 :ナイコンさん:02/08/19 00:51
>>282
バグかな?
荒らし対応パッチファイルです

15 LINE INPUT スレッド$
30 IF 書き込み$="荒し書き込み" THEN 9000 '無視
48 LABEL "優良書き込み"
9000 NEW
10000 LABEL "sage"
10010 NEW



284 :ナイコンさん:02/10/03 15:29
65535 REM ------- HOSHU -------

list :'N88-BASIC 1.1

 6553 5 REM ------- HOSHU -------

Ok

list :'N88-BASIC 1.0



285 :ナイコンさん:02/11/24 02:57
10 FOR I=0 TO 10000
20 NEXT I
30 TALK "f4 ^iq +te +yo- si."
40 FOR I=0 TO 1000
50 NEXT I
60 TALK "m4 ^O +mae +mo +na-."
70 GOTO 10


286 :どうよ?1:02/12/15 23:03
10 CONSOLE 0,25,0:SCREEN 3:CLS 3:COLOR 7:LOCATE ,,0:RANDOMIZE TIME:' PLAY "CDERCDER","EFGREFGR"
20 LOCATE 30,10:PRINT "KEYBOARD OLYMPIC 99":LOCATE 26,15:PRINT "***** PUSH SPACE KEY *****":WAIT 10
30 FOR I=0 TO 1:I=-(INKEY$=" "):J=RND:NEXT:PLAY "V100L16O4CDERCDERCDER","V100L16O4EFGREFGREFGR":WAIT 400
40 FOR J=0 TO 180:FOR I=0 TO 6:COLOR I+1:LOCATE 26,15:PRINT"***** PUSH SPACE KEY *****":WAIT 8:NEXT:NEXT
50 CLS 3:ST=1:SC=0
55 RESTORE 1000:FOR J=0 TO 3:FOR I=0 TO 2:READ KD$(I,J):NEXT:NEXT
60 LOCATE 30,10:PRINT "100m DASH STAGE=";ST:LOCATE 28,13:PRINT "Y O U R S C O R E = "SC:WAIT 1000
70 CLS 3:X=0:TX=0:KT$=KD$(RND*3,ST-1):KC=0:STM=TIME:LOCATE X,12:PRINT " Ω";:LOCATE TX,15:PRINT " γ";
80 K$=INKEY$:KC$=MID$(KT$,KC+1,1):IF KC$=K$ THEN PLAY "V100O5L128GC","V100O5L128BG":X=X+2:KC=KC+1:SC=SC+1:LOCATE X,12:PRINT" Ω";:GOSUB 200:IF KC>LEN(KT$) THEN KC=0
82 IF K$<>"" AND KC$<>K$ THEN PLAY "V100O2L128GC","V100O2L128BG":SC=SC-5:IF SC<1 THEN SC=0
85 LOCATE 8,4:PRINT "次はこのキーを押せ!:";KC$:LOCATE 42,4:PRINT "B O N U S :"1000-(TIME-STM):LOCATE 26,6:PRINT"Y O U R S C O R E = ";SC
88 IF RND<ST/1000 THEN TX=TX+2:LOCATE TX,15:PRINT" γ";:IF TX>75 THEN 300
90 GOTO 80

287 :どうよ?2:02/12/15 23:05
200 ' GOAL ?
210 IF X>75 THEN PLAY "L16O4CDERCDERCDGGGR","L16O4EFGREFGREFBBBR":WAIT 400 ELSE RETURN
220 FOR J=0 TO 180:FOR I=0 TO 6:COLOR I+1:LOCATE 26,18:PRINT "******** GOAL *********":WAIT 8:NEXT:NEXT:ST=ST+1:SC=SC+1000-(TIME-STM):CLS:GOTO 60
300 ' GAME OVER
310 PLAY "V100L8O2BGFECDCCC","V100O3(BFE)(DCG)(BFE)(DCG)O2(BGE)(GGF)(EDC)(CCCCCC)"
320 FOR J=0 TO 180:FOR I=0 TO 6:COLOR I+1:LOCATE 30,10:PRINT "GAME OVER STAGE=";ST:LOCATE 28,13:PRINT "Y O U R S C O R E = "SC:WAIT 8:NEXT:NEXT:WAIT 5000:CLS 3:COLOR 7:GOTO 20
1000 DATA WATASHIHA,OSYABERI,HAYAUCHI
1010 DATA HANASHIWOKIITA,NAZONOOOIKOTOBA,TUGINOYOUNIKATARU
1020 DATA KUWASHIIMEKANIZUMUHA,AKIRAKANINATTEINAIKOTOGARA,KONOKEKKAKARAKODOMONOHATUIKUNIHA
1030 DATA NICHANNERAANINATTEKARA,INTTERNETYARIHAJIMETEYOKATTA,IMAMADEFURUIKYUUHACHIDATTAKEDO

# 今日99BASICをインストールして、その勢いで、その日にタイピングゲーをつくってしまった。。。(まだ4面しかないですが)
# こんなプログラムがマジで動いてしまう99BASICはここからタダでGet!!しますた→ttp://www.sagami.ne.jp/tadaka/99Basic/download.html

288 :ナイコンさん:02/12/15 23:35
99BASICでb99ファイルをLOADして実行するやり方と
上のようなプログラムをコピペして実行するやり方を教えてちょんまげ

289 :どうよ?:02/12/16 00:15
>>288
LOAD"ファイル名.B99"

SAVE"ファイル名.TXT",A

290 :ナイコンさん:02/12/18 02:23
10 CLS3
20 CLEAR
30 WIDTH 80,25
40 CONSOLE 0,25,0,1
50 COLOR 7,0,0,2
60 '
70 DEFSEG=&HA800
80 FOR I=0 TO &H800
90 POKE I,&HAA
100 NEXT I

RENUM 100

291 :ナイコンさん:02/12/19 01:32
10 REM >>149
20 REM ゼビウスのBGMにしては、テンポ速すぎ、音程低すぎ。
30 REM オリジナルからの耳コピをここに書きまつ。
40 PLAY "T150V15L16"
50 PLAY "O5CO6CO5BO6CECO5BO6C"
60 PLAY "O5CO6CO5B-O6CECO5B-O6C"
70 PLAY "O5CO6CO5AO6CECO5AO6C"
80 PLAY "O5CO6CO5A-O6CECO5A-O6C"
90 GOTO 50


292 :ナイコンさん:02/12/19 23:26
1 FOR I=1 TO 7
2 COLOR I:PRINT "COLOR";I
3 NEXT I

REMUN
Ok
LIST
1 FOR I=1 TO 7
2 COLOR I:PRINT "COLOR";I
3 NEXT I
Ok

293 :ナイコンさん:02/12/20 00:09
Syntax Error(゚д゚)ウマー

294 :ナイコンさん:02/12/31 00:39
ソリラチシ
Syntax error
Ok

・・・し、しまった

295 :ナイコンさん:02/12/31 00:46
>>293
恐らく292に対して言ってるのだろうが、292はエラーにならない。
よく見るとREM文だから。

>>294
カナ入れてもエラーにはならないよ。


296 :ナイコンさん:02/12/31 00:51
・・・そ、そうだったか。もう覚えとらん。

297 :ナイコンさん:02/12/31 00:53
mon
*L


298 :ナイコンさん:02/12/31 02:04
>>295
機種によってカナ入力時の挙動が違う


299 :ナイコンさん:02/12/31 10:20
入力
_

300 :ナイコンさん:03/01/01 12:11
2003 PRINT "Happy New Year!"
RUN
Happy New Year!
Ok


301 :ナイコンさん:03/01/03 23:41
すげぇ懐かしいなぁ

302 :ナイコンさん:03/01/04 00:59
GOSUB 999

303 : :03/01/04 01:08
http://www2a.kagoya.net/~adults-toybox/sample1.wmv
http://www2a.kagoya.net/~adults-toybox/sample2.wmv
http://www2a.kagoya.net/~adults-toybox/

304 :ナイコンさん:03/01/04 10:27
初代88にPLAY文なんて無かったよ。つДT)

305 :NS:03/01/07 18:06
NEC PC-8001 BASIC Ver 1.5
Copyright 1979 (C) by Microsoft

OK
10 REM PC-Reset
20 DEF USR=0
30 PRINT USR(0)
run


306 :ナイコンさん:03/01/07 18:11
LOCATE 1,1000


307 :ナイコンさん:03/01/07 22:26
Illegal function call
in >>306
Ok


308 :ナイコンさん:03/01/07 22:39
1 GOTO 1000

1000 GOTO 1


309 :ナイコンさん:03/01/08 11:04
LIST 1-309
http://pc.2ch.net/test/read.cgi/i4004/1009478372/1-309
Ok



310 :ナイコンさん:03/01/08 12:43
100 motor 0 : motor 1 : goto 100


311 :ナイコンさん:03/01/08 18:59
CLS
Ok


312 :NS:03/01/08 21:54
10 REM HINOMARU:PC-8801/9801
20 SCREEN 0,1
30 LINE (0,0)-(639,199),7,BF
40 CIRCLE (320,100),100,2
50 PAINT (320,100),2,2
60 I$=INPUT$(1)
70 CLS 3
80 END


313 :ナイコンさん:03/01/09 21:47
Dangerous person in >>310
Ok
Delete 310
Ok


314 :山崎渉:03/01/13 21:34
(^^)

315 :ナイコンさん:03/01/22 17:10
大学入試センター試験にまだBASICって出てるの?

316 :ナイコンさん:03/01/22 21:31
漏れ、興亡の頃、数学でBASICなんて教わらなかったぞ
数学Tに代数幾何と微分積分、それに基礎解析のみだ
ちうか、文系のヤシラもやらんかったらしい
もう13年前の話だが、数学Uの教科書にはBASICの章が載っていたらしい

317 :ナイコンさん:03/01/23 18:38
>>315
新聞を見れ!

318 :X1:03/01/23 20:23
10 APSS 1
20 APSS -1
30 goto 10

夜中にやると家中の人が激怒するぞ。


319 :ナイコンさん:03/01/23 22:14
>>316:
CLS
PRINT "リアル高房だが今でも載ってるぞ。"
PRINT "当時のBASICを知る俺としては激しく希望する授業だ。"
PRINT
INPUT "OK?", a$

320 :ナイコンさん:03/02/03 22:41
10 'SHASEI
20 screen 3: cls 3
30 line(0,160)-(330,160)
40 line(0,240)-(330,240)
50 for S=-1 to 1 step 2
60 for T=int(-sqr(2000)) to 60
70 X1=T: Y1=sqr(3600-X1^2)
80 X=X1+330+int(sqr(2000)): Y=-Y1*S+200
90 pset (X,Y)
100 next: next
110 for R=1 to 10
120 for S=0 to 14
130 for T=7 to 0 step -7
140 for U=0 to 15
150 circle (460+S*25,200+2*S^2),U,T
160 next: next: next: next
170 line input "CLS 3 OK?";A$
180 cls 3
190 end

321 :山崎渉:03/03/13 17:12
(^^)

322 :ナイコンさん:03/04/04 14:38
10 DEFSEG=&H0
20 FOR I=0 TO 1000: POKE I,0: NEXT I

323 :ナイコンさん:03/04/04 20:38
昔、ヒューベーシックてえのがあったな
おまいら若造はしらんだろ


324 :山崎渉:03/04/17 12:13
(^^)

325 :山崎渉:03/04/20 06:08
   ∧_∧
  (  ^^ )< ぬるぽ(^^)

326 :ナイコンさん:03/05/10 15:03
10 CLS
20 CLEAR
30 PRINT "ベーシックで語り合いましょう"
40 FOR I=2 TO 999
50 "1000取るぞ!ごるぁ!!"
60 NEXT
70 PRINT "1000ゲット!"
70 PRINT "このスレッドは1000を超えました。"
80 PRINT "もう書けないので、新しいスレッドを立ててくださいです。。。"


327 :ナイコンさん:03/05/10 17:40
?SN Error in 50

328 :326:03/05/10 21:37
正解(--;;;

329 :山崎渉:03/05/22 02:11
━―━―━―━―━―━―━―━―━[JR山崎駅(^^)]━―━―━―━―━―━―━―━―━―

330 :ナイコンさん:03/05/28 16:15
10 goto 50
20 data "こうやってDataを頭に持ってきて"
30 data "読み込み速度を高速化するということしたよね〜"
40 data "それ以外にもサブルーチンを先頭に持ってくるとか。"
50 data "end"
60 'Init
70 defstr s
80 read s
90 if s<>"end" then print s else end
100 goto 80

331 :山崎 渉:03/07/15 11:10

 __∧_∧_
 |(  ^^ )| <寝るぽ(^^)
 |\⌒⌒⌒\
 \ |⌒⌒⌒~|         山崎渉
   ~ ̄ ̄ ̄ ̄

332 :ナイコンさん:03/07/20 16:43
1' RENSYA NOURYOKU SOKUTEI
10 FOR I=1 10 1000
20 IF INKEY$=" " THEN A=A+1
30 NEXT:PRINT A


333 :なまえをいれてください:03/07/22 12:28
ハッキリ言ってアメリカなどの多民族国家では黒人の方がアジア人よりもずっと立場は上だよ。
貧弱で弱弱しく、アグレッシブさに欠け、醜いアジア人は黒人のストレス解消のいい的。
黒人は有名スポーツ選手、ミュージシャンを多数輩出してるし、アジア人はかなり彼らに見下されている。
(黒人は白人には頭があがらないため日系料理天などの日本人店員相手に威張り散らしてストレス解消する。
また、日本女はすぐヤラせてくれる肉便器としてとおっている。
「○ドルでどうだ?(俺を買え)」と逆売春を持ちかける黒人男性も多い。)
彼らの見ていないところでこそこそ陰口しか叩けない日本人は滑稽。

334 :なまえをいれてください:03/07/22 12:44
ハッキリ言ってアメリカなどの多民族国家では黒人の方がアジア人よりもずっと立場は上だよ。
貧弱で弱弱しく、アグレッシブさに欠け、醜いアジア人は黒人のストレス解消のいい的。
黒人は有名スポーツ選手、ミュージシャンを多数輩出してるし、アジア人はかなり彼らに見下されている。
(黒人は白人には頭があがらないため日系料理天などの日本人店員相手に威張り散らしてストレス解消する。
また、日本女はすぐヤラせてくれる肉便器としてとおっている。
「○ドルでどうだ?(俺を買え)」と逆売春を持ちかける黒人男性も多い。)
彼らの見ていないところでこそこそ陰口しか叩けない日本人は滑稽。

335 :ナイコンさん:03/07/29 08:49
>>332
Syntax error in 10

釣りか?

336 :HiNT商品:03/07/29 09:09
というか、このプログラムだと「連射」かどうかわからんだろ。
押しっぱなしでもカウントしてしまう。


337 :_:03/07/29 09:53
http://homepage.mac.com/hiroyuki44/

338 :ナイコンさん:03/07/29 10:02
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
☆★☆★☆★ 新商品 ゾク・ゾク 入荷 ☆★☆★☆
★☆                       
☆★ 送料激安!!  送料激安!!  送料激安!!
★☆      http://www.get-dvd.com      
☆★  激安アダルトDVDショップ        
★☆    お買い得!! 1枚500円〜 急げ!   
☆★    インターネット初!「きたぐに割引」  
★☆    北海道・東北の皆様は送料も激安!   
☆★      http://www.get-dvd.com      
★☆        スピード発送!        
☆★      http://www.get-dvd.com      
★☆        商品が豊富!         
☆★      http://www.get-dvd.com      
★☆                       
☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆

339 :ナイコンさん:03/07/29 10:03
http://www.39001.com/cgi-bin/cpc/gateway.cgi?id=ookazujp
http://www.39001.com/cgi-bin/cpc/welcome.cgi?id=ookazujp

!!!!! ━━━━━━(゚∀゚)━━━━━━ キター!!!!!


340 :ナイコンさん:03/07/29 16:23
1' RENSYA NOURYOKU SOKUTEI
10 FOR I=1 10 1000
20 IF INKEY$=" " THEN A=A+1
25 EXEC&H1058
30 NEXT:PRINT A




341 : :03/07/29 20:38
1'MUGEN LOOP
10 RUN


342 :ナイコンさん:03/07/30 02:59
1 ' RENSYA NOURYOKU SOKUTEI for PC88
10 DIM K(2):K(0)=255:K(2)=191:F=1
20 FOR I=1 TO 1000
30 IF INP(9)=K(F+1) THEN F=-F:A=A+.5
40 NEXT:PRINT INT(A)

343 :ナイコンさん:03/08/01 18:21
1 ' RADAR GAME for PC8801 N88BASIC
10 WIDTH 40:CONSOLE 0,25,0:DEFINT A-Z:RANDOMIZE VAL(RIGHT$(TIME$,2)):DIM V(8)
20 CLS:GOSUB 230:P=8:F=2:EX=INT(RND(1)*9):EY=INT(RND(1)*9)
30 PRINT "M123456789 E123456789"
40 FOR I=1 TO 9:PRINT USING "#・・・・・・・・・ #・・・・・・・・・";I;I:NEXT:CONSOLE 12,13
50 CLS:PRINT "ミカタ クチクカン ハイビ":GOSUB 180:MX=X:MY=Y:LOCATE MX+1,MY+1:PRINT "D"
60 CLS:PRINT "テキノ コウゲキ":GOSUB 200:ON F GOTO 70,80
70 X=AX+X:Y=AY+Y:GOSUB 210:IF A THEN PRINT "ヤバーー":GOTO 100 ELSE 100
80 X=X*3+1:Y=Y*3+1:HX=MX:HY=MY:GOSUB 210
90 IF A THEN PRINT "ヤバー":F=1:AX=X-1:AY=Y-1:GOSUB 230:V(4)=V(8):P=7
100 LOCATE X+1,Y+1:PRINT "+":LOCATE 0,16:PRINT "ミカタノ コウゲキ":GOSUB 180
110 IF (EX=X)*(EY=Y) THEN X=X+12:Y=Y+1:PRINT "ヤッターー!!":GOTO 160
120 HX=EX:HY=EY:GOSUB 220:M$="+":R$="カスリモシネーョ":IF A THEN M$="O":R$="(゚ロ゚)ウマー"
130 PRINT R$:LOCATE X+12,Y+1:PRINT M$
140 LOCATE 0,22:PRINT "ナニカ キーヲ オシテ":A$=INPUT$(1):GOTO 60
150 X=X+1:Y=Y+1:PRINT "グハッ ヤラレターー!!":LOCATE EX+12,EY+1:PRINT "E"
160 LOCATE X,Y:PRINT "*":BEEP:BEEP:CONSOLE 0,25:LOCATE 0,22
170 INPUT "Replay? (Y/N)";A$:IF INSTR("Yy",A$) THEN 20 ELSE WIDTH 80:END
180 INPUT "X=";X:INPUT "Y=";Y:IF (X<1)+(Y<1)+(X>9)+(Y>9) THEN 180
190 X=X-1:Y=Y-1:RETURN
200 A=INT(RND(1)*(P+1)):Y=V(A)\3:X=V(A)-Y*3:V(A)=V(P):P=P-1:RETURN
210 PRINT USING "テキガ #ー# ヲ コウゲキ";X+1;Y+1:IF (MX=X)*(MY=Y) THEN RETURN 150
220 A=0:FOR I=-1 TO 1:FOR J=-1 TO 1:A=A+(HX=X+J)*(HY=Y+I):NEXT:NEXT:RETURN
230 FOR I=0 TO 8:V(I)=I:NEXT:RETURN

344 :ナイコンさん:03/08/01 18:36
2 ' DEBUG ROOM
70 X=AX+X:Y=AY+Y:HX=MX:HY=MY:GOSUB 210:IF A THEN PRINT "ヤバーー":GOTO 100 ELSE 100

345 :ぼるじょあ ◆ySd1dMH5Gk :03/08/02 04:51
     ∧_∧  ∧_∧
ピュ.ー (  ・3・) (  ^^ ) <これからも僕たちを応援して下さいね(^^)。
  =〔~∪ ̄ ̄ ̄∪ ̄ ̄〕
  = ◎――――――◎                      山崎渉&ぼるじょあ

346 :ナイコンさん:03/08/15 05:59
1 'HANABI - PC8801 N88-BASIC
10 SCREEN 0:CLS 3:CONSOLE ,,0:DEFINT A-Z:DIM Y(639)
20 A=170:F=1:RANDOMIZE VAL(RIGHT$(TIME$,2))
30 FOR I=0 TO 639
40 Y(I)=A-1:PSET (I,A),1:A=A+F:IF A<150 OR A>190 OR RND(1)>.5 THEN F=-F
50 NEXT
60 X=INT(RND(1)*560)+40:Y=INT(RND(1)*70)+40
70 C=INT(RND(1)*7)+1:R=INT(RND(1)*60)+20:S=INT(RND(1)*4)+3
80 FOR I=C TO 0 STEP -C
90 FOR J=Y(X) TO Y STEP -1
100 PSET (X,J),I
110 NEXT:NEXT
120 FOR I=C TO 0 STEP -C
130 FOR J=1 TO R STEP S
140 CIRCLE(X,Y),J,I
150 NEXT:NEXT
160 GOTO 60

347 :ナイコンさん:03/08/15 07:16
オチンチンを大きくするには
根元を締め付けて毎日マッサージすると大きくなるんだって
http://homepage3.nifty.com/manko/

348 :山崎 渉:03/08/15 22:14
    (⌒V⌒)
   │ ^ ^ │<これからも僕を応援して下さいね(^^)。
  ⊂|    |つ
   (_)(_)                      山崎パン

349 :山崎 渉:03/08/15 22:33
    (⌒V⌒)
   │ ^ ^ │<これからも僕を応援して下さいね(^^)。
  ⊂|    |つ
   (_)(_)                      山崎パン

350 :ナイコンさん:03/09/10 23:00
http://211.18.214.210/cgi-bin/parcel-detail?tr_num=91-3593-05516

351 :ナイコンさん:03/09/13 09:05
halt

352 :ナイコンさん:03/09/13 20:11
昔「MOD」って命令を初めてみたとき、
なんて便利な命令だって驚いたよ。
C=A-INT(A/B)*B
とかやってたから(w

353 :ナイコンさん:03/11/19 10:23
10 S$="10 S$="@@@,Q$:Q$=CHR$(34):PRINT USING S$;Q$,S$,Q$",Q$:Q$=CHR$(34):PRINT USING S$;Q$,S$,Q$


354 :353:03/11/20 12:13
おや、間違えてる……

10 S$="10 S$=@@@,Q$:Q$=CHR$(34):PRINT USING S$;Q$,S$,Q$",Q$:Q$=CHR$(34):PRINT USING S$;Q$,S$,Q$


355 :ナイコンさん:03/11/23 01:08
1010 CLS
1020 INPUT ">>352 MODって関数じゃないか? (Y/N)";I$
1030 IF I$="Y" OR "y" THEN P$="イッテヨシ!":GOTO 1060
1040 IF I$="N" OR "n" THEN P$="スマンカッタ":GOTO 1060
1050 GOTO 1020
1060 PRINT P$
1070 END

356 :ナイコンさん:03/12/04 23:39
>>355
ORの後に「I$=」が抜けてるよ。

357 :ナイコンさん:04/02/20 23:37
>>27
100 PRINT”P6ケイはスナミた゛とOKか゛て゛るよ!”


358 :ナイコンさん:04/02/20 23:44
>>357
110 PRINT”カナと、かな か゛と゛うし゛につか”;
120 PRINT”えるのは、P6とMSXのみ?”



359 :ナイコンさん:04/02/20 23:50
>>358
10 SCREEN ,,0
20 PRINT "ベーシックマスターレベル3も つかえるよ。"
30 PRINT "でもグラフキャラが だせない"
40 END

360 :ナイコンさん:04/02/21 00:00
訂正
30 PRINT "て゛もグラフキャラが た゛せない"


361 :ナイコンさん:04/02/21 08:13
>>360
10 REM はんかくとセ゛ンカクませ゛ちゃあ、た゛めて゛しょ。”


362 :ナイコンさん:04/02/21 10:52
10 CONSOLE,,,1
20 CLS 3
30 X=INT(RND(1)*7+1)
40 Y=INT(RND(1)*7+1)
50 Z=INT(RND(1)*7+1)
60 LOCATE 10,10:COLOR X:PRINT X
70 LOCATE 15,10:COLOR Y:PRINT Y
80 LOCATE 20,10:COLOR Z:PRINT Z
90 IF INKEY$=" " THEN GOTO 100 ELSE 30
100 IF X=Y AND Y=Z THEN PRINT "OOATARI!!":END
110 IF X=Y OR Y=Z OR Z=X THEN PRINT "ATARI!":END

363 :ナイコンさん:04/02/21 11:30
>>361
10 ' 「はんかくひらがな」か゛ じょうほうこうかんよう もじコードとして
20 ' ひろく りゅうつうしている きかくが あればな。
30 ' LEVEL3は、グラフキャラにはんかくひらがながわりあてられていて、
40 ' SCREENぶんの だい3ぱらめーたで きりかえします。
50 ' ちなみに、ドットパターンは 8x16ドットて゛した。

364 :ナイコンさん:04/03/05 08:29
1 ' PC-8801
10 SCREEN 0:CONSOLE 0,25,0,1:CLS:DEFINT A-Z:DIM F(127)
20 FOR I=0 TO 127:READ A$:F(I)=VAL("&H"+A$):NEXT
30 CLS 2:FOR I=1 TO 50:X=RND(1)*590:Y=RND(1)*170:PUT (X,Y),F:NEXT:GOTO 30
40 DATA 002B,000E,0002,0000,4000,0002,0000,4000,0002,0000,4000,0002,017F,A000,0002,017F
50 DATA A000,0002,017F,A000,0002,0102,4000,0002,0102,4000,0002,0102,4000,C087,0204,E01F
60 DATA C087,0204,E01F,C087,0204,E01F,309A,0208,8000,309A,0208,8000,309A,0208,8000,10A2
70 DATA 0210,8000,10A2,0210,8000,10A2,0210,8000,0842,823F,E01F,0842,823F,E01F,0842,823F
80 DATA E01F,0844,4260,8000,0844,4260,8000,0844,4260,8000,08A4,2280,8000,08A4,2280,8000
90 DATA 08A4,2280,8000,0994,2200,8000,0994,2200,8000,0994,2200,8000,0888,2218,800F,0888
100 DATA 2218,800F,0888,2218,800F,E894,4224,C010,E894,4224,C010,E894,4224,C010,1061,C122
110 DATA A010,1061,C122,A010,1061,C122,A010,E800,011F,000F,E800,011F,000F,E800,011F,000F

365 :うんこ:04/03/06 01:44
auto 10
10 REM #########
20 REM # BASIC #
30 REM #########
40 DEF INT I
50 PRINT "モマエラ ノ モッテタ PCハ?"
60 INPUT "1:FM7 2:PC6001mkII 3:PC8001mkII 4:MZ-700 5:MSX";I
70 IF I > 5 OR I < 1 THEN GOTO 60
80 IF I = 1 THEN PRINT "モレモ ホシカッタヨ"
90 IF I = 5 THEN PRINT "モレハ セイコチャンダッタヨ"
100 IF I > 1 OR I < 5 THEN GOTO 120
110 GOTO 150
120 PRINT "ウンコー"
130 IF INKEY$=CHR$(13) THEN GOTO 150
140 GOTO 120
150 END

366 :ナイコンさん:04/03/06 12:23
10 SCREEN 0:WIDTH 40:CLS 3:DEFINT A-Z:PI!=3.14159:PC=4
20 FOR I=1 TO 4:X=COS(PI!*I/4)*120:Y=SIN(PI!*I/4)*60
30 LINE(300+X,80+Y)-(300-X,80-Y),I
40 CIRCLE(300+X,80+Y),16,I:CIRCLE(300-X,80-Y),16,I:NEXT
50 LINE(290,75)-(310,150),7,B
60 CIRCLE(390,110),20,1,PI!*1.5,PI!*2:CIRCLE(430,110),20,1,PI!,PI!*1.5
70 CIRCLE(390,130),20,1,0,PI!/2:CIRCLE(430,130),20,1,PI!/2,PI!
80 LOCATE 24,16:PRINT "(・w・)/":LOCATE 24,17:PRINT "/";SPC(3);"/>>364"
90 FOR I=1 TO 4:COLOR=(I,7):COLOR=(PC,0):PC=I:FOR J=1 TO 200:NEXT:NEXT
100 GOTO 90

367 :ナイコンさん:04/03/07 09:10
10 PRINT"クーレナイー ニ ソーマッター コーノオーレーヲー"
20 PRINT"ナーグサメール ヤーツーハー モウイーナーイー"


368 :ナイコンさん:04/03/07 23:31
>>332
>>335
>>336
漏れもかつて連射ゲームを作ったけど、このようにした。

1' RENSYA NOURYOKU SOKUTEI
10 TIM=10 ' 制限時間(秒)
20 SC=0 ' スコア
30 C=0
40 TI$=TIME$:WHILE TI$=TIME$:WEND ' 時間調整
50 print "START!"
60 TI$=TIME$
110 WHILE TIM>0
120 I$=INKEY$
130 IF I$=" " AND C=0 THEN SC=SC+1:C=1:I$=""
140 IF I$="" AND C=1 THEN C=0:I$=" "
150 IF TI$<>TIME$ THEN TIM=TIM-1:TI$=TIME$
160 WEND
210 PRINT "Score=";SC
220 END
1010 ' 作ろうとしたときに漏れも336と同じような疑問を抱いたよ。
1020 ' けど、ナムコのニューマンアスレチックの「交互に連打」というのを見て
1030 ' スペースと空文字を交互に認識させればいいじゃないの?とひらめいた
1040 ' でもINKEY$はそれでも押しっぱなしに弱いんで
1050 ' 漏れはI/Oポートからキースキャンしてた
1060 ' (N88-BASICだったから)


369 :ナイコンさん:04/03/07 23:48
1 ' >>368
2 ' >>342

370 :ナイコンさん:04/03/08 12:15
10 PRINT "イマサラダケド"
20 PRINT ">>128"

DATA "QUICK BASICってのは、行番号がいらずサブルーチンを関数化できる"
DATA "その代わりグローバル変数とローカル変数の違いがある、これ。”
DATA "そして、master.lib組み込み。これ最強。"
DATA "しかしこれをやると、次から恋塚氏にシェアウェア代金3,500円を払わなければならないという"
DATA "諸刃の剣。素人にはお勧めできない。"

371 :ナイコンさん:04/04/20 23:49
PRINT "Omaera QBasic wo sitte iruka ?"
PRINT "More wa kore de BASIC wo mananda."


372 :ナイコンさん:04/05/03 01:17
? 2^13
8192.01
Ok


373 :ナイコンさん:04/05/13 17:38
10 PRINT"2ネンブリ ニ コノ スレ ニ キタYO..."
20 PRINT"マダ アッタ トハ ショウジキ ビクーリ(w"

374 :その1:04/06/07 15:19
100 '3ケタノ スウジアテ ゲーム
103 *--------------------
105 *MAE-SHORI
107 *--------------------
110 CLS 3
115 ANS%=0
117 WHILE ANS%<100 OR ANS%>999
120  ANS%=INT((RANDOMIZE(TIME)*999)+1)
130  ANS$=RIGHT$(STR$(ANS%),3)
140  IF MID$(ANS$,1,1)=MID$(ANS$,2,1) OR MID$(ANS$,2,1)=MID$(ANS$,3,1) OR MID$(ANS$,1,1)=MID$(ANS$,3,1) THEN ANS%=0
150 WEND


375 :その2:04/06/07 15:20
200 *--------------------
210 *MAIN-SHORI
220 *--------------------
230 PRINT "スウジアテヲ シマショウ"
235 CT%=0
233 YU$=SPACE$(3)
234 WHILE YU$<>ANS$
235  *M1
240  INPUT "カクケタノ スウジガ オナジニナラナイヨウニ 3ケタノ スウジヲ ニュウリョクシテ クダサイ",YU$
245  IF LEN(YU$)<>3 THEN BEEP:GOTO *M1
250  IF VAL(YU$)<100 OR VAL(YU$)>999 THEN BEEP:GOTO *M1
260  IF MID$(YU$,1,1)=MID$(YU$,2,1) OR MID$(YU$,2,1)=MID$(YU$,3,1) OR MID$(YU$,1,1)=MID$(YU$,3,1) THEN BEEP:GOTO *M1
270  *M2
280  HT%=0:BL%=0
290  IF MID$(YU$,1,1)=MID$(ANS$,1,1) THEN HT%=HT%+1
300  IF MID$(YU$,1,1)=MID$(ANS$,2,1) THEN BL%=BL%+1
310  IF MID$(YU$,2,1)=MID$(ANS$,2,1) THEN HT%=HT%+1
320  IF MID$(YU$,2,1)=MID$(ANS$,1,1) THEN BL%=BL%+1
330  IF MID$(YU$,2,1)=MID$(ANS$,3,1) THEN BL%=BL%+1
340  IF MID$(YU$,3,1)=MID$(ANS$,3,1) THEN HT%=HT%+1
350  IF MID$(YU$,3,1)=MID$(ANS$,2,1) THEN BL%=BL%+1
355  PRINT STR$(HT%)+"ヒット"+" "+STR$(BL%)+"ボール"
357  CT%=CT%+1
360 WEND


376 :その3:04/06/07 15:21
400 *--------------------
410 *ATO-SHORI
420 *--------------------
430 PRINT "*** オオアタリ ***"
440 PRINT STR$(CT%)+"カイデ アテマシタ"
450 IF CT%<=1 THEN PRINT "スゴク イイ カン シテマスネ!"
455 *A1
460 INPUT "モウ1ド チョウセン シマスカ(Y/N)",HN$
470 IF HN$="Y" OR HN$="y" THEN GOTO *MAE-SHORI
480 IF HN$="N" OR HN$="n" THEN END ELSE BEEP:GOTO *A1
490 END


377 :ナイコンさん:04/06/07 15:31
あらら、行番号間違えちゃったf(^^)
3桁の数字当てを作ってみました。
懐かしい


378 :ナイコンさん:04/06/25 02:48
10 SCREEN0:WIDTH40:KEYOFF:COLOR15,4,7
20 PRINT"ぬるぽ";
30 GOTO 20

379 :ナイコンさん:04/06/26 17:00
1 ' ( ・∀・)つ━■ ガッ☆`Д´)ノ>>378

380 :ナイコンさん:04/07/06 22:21
これはどーだ

10 PRINT CHR$(0);
20 GOTO 10


381 :ナイコンさん:04/08/02 16:03
LP:
PRINT "お前ら、半角カナはブラウザーによって化けるから使うなよ"
PRINT "自分が見えてるから人にも見えると思うのは間違いだぞ"
PRINT "半角カナで書きたい気持ちもわかるがな"
GOTO LP


382 :ナイコンさん:04/08/02 23:22
>>381
PRINT "的はずれな指摘をする前に、2chのread.cgiの出力するHTMLソースを読もう。"
PRINT "ちゃんとMETAタグでcharset=Shift_JISとしてあるよ。"
PRINT "つまり、これを正しく解釈・表示しないブラウザがあるとしたら、そのほうが問題。"

383 :ナイコンさん:04/10/11 10:35:08
REM
REM にっほ゜んのこっき ひのまる
REM
SCREEN 3,2,2:COLOR 3,15:CLS
CIRCLE(160,100),170,15
PAINT(160,100),2
REM
REM からーこーと゛おほ゛えてない!
REM

 

384 :517の人:04/10/11 10:54:55
べーしッ君

385 :ナイコンさん:04/10/11 13:26:58
ノブナガ
             |二|
             |二|            / ̄ ̄ ̄\
         ,, -─-┴-┴- ─-、       |     ク  |
       /::::::::::::::::::::::::::::::::::::::::::\     |     ソ  |
      /:::::::::::::::::::::::::::::::::::::::::::::::::::::ヽ、   |     ス   |
      /::::::/`'"'`'""'`"''"`''"`""`ヽ,::`、   |  立 レ  │
      !::::/               、::|   <  て     │
     l::,/       _   ,      ヽ::::|   |  た     |
     i::::! ,--──'"   `──--、 |::::!   |  ら     |
    へ|   , --─、ヽ /, --─、   |へ,   \___/
    | ヽ|   ,--─ ヽ    ,─--、  |ヽ |
    | y |   、__ ゚__.  | |  、_゚___,    | ζ|  / ̄ ̄\
    i 'ヽi        l  l       i. `i  |   切  |
     |  |        | |        |., |   |  る  |
     `" |ヽ、       | |      / /`'" <  ぜ  |
      ヽ 、   ,,,,, ヽ/,,,,,    ,' ,/     |      |
       ヽヽ """  ___ `""`,' /      \__/
        |ヽ、   `-─'   /,´|
    ,r--,,__|::: `ヽ、  ,,,,  ,,,/ :::|__,r─-、
 -─く  \i:: :   '゛--llll--'゜ ,   :i/  /`─--
     \  \ ヽ、    : '  /  / 
      \  \     :  /  / 
        \  \     /  /
         \  \  /  /
           \  /  /
             /  /




386 :ナイコンさん:04/10/15 11:41:47
>>380 ザソネソ

10 a=peek(0)
20 goto 10


387 :ナイコンさん:04/10/31 09:25:42
if no388=aori or no388=arashi then ジゴク else テンゴク

388 :ナイコンさん:04/10/31 11:53:27
? "ヌルポ"

389 :EXCULTer's / Active PC ◆CF/ockjcoQ :04/10/31 11:57:42
print chr$(12)+"new";

390 :ナイコンさん:04/10/31 12:44:37
10 WHILE 1
20 INPUT A$
30 IF INSTR(A$, "ヌルポ") OR INSTR(A$, "NULLPO") THEN ? "ガッ"
40 WEND

391 :ナイコンさん:04/11/08 07:42:25
>>318

100 beep
110 goto 100

これやったらもっと激怒すると思う

392 :ナイコンさん:04/11/11 11:31:02
100 BEEP 1
110 END


393 :ナイコンさん:04/11/14 14:49:05
【リスト1】 CHAOS.BAS のプログラム・リスト
100 PLAY "t240l32o5cdbefbagcbfgdbegabfgcbfgabdgfbegcbfgdbagebfggcbdgf", "l32o7cdbefbagcbfgdbegabfgcbfgabdgfbegcbfgdbagebfggcbdgf", "l32o4gagcbdgabfgdagfbcgdbfgebagdbfgcbagdbfgebdgcbagdbfgd", "l32o3acbagdbfgdbagebfgdbefagdbcgafdgebgffdgabegf"
110 GOTO 100

394 :ナイコンさん:04/11/15 00:36:37
>>393
4和音ってどの機種で?


395 :ナイコンさん:04/11/15 05:04:52
10 CLS:RES=1
20 PRINT RES;":ナイコンさん"
30 IF RES=1 THEN PRINT"新スレ立てました":GOTO 50
40 PRINT:INPUT A$:PRINT:PRINT A$:PRINT
50 RES=RES+1:IF RES>1000 THEN PRINT"このスレは1000を越えました。
新しいスレを立ててくださいです……" ELSE 20

396 :ナイコンさん:04/11/22 12:15:56
>>394
ピー
TOWNSで動作確認したので和音数適当だった Error in >>393

397 :ナイコンさん:04/12/09 22:35:30
>>392
プ

398 :ナイコンさん:04/12/11 19:37:07
100 REM
110 GOSUB 100
RUN
Out Of Memory
Ok

86 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)