1read 100read
2013年02月昔のPC303: PRINT("BASIC デマターリカタルスレ。") (461) TOP カテ一覧 スレ一覧 2ch元 削除依頼
OS-9スレッド (541)
PC-9821/9801スレッド Part54 (564)
[←F-BASIC386] BASICの進化 [VisualBasic→] (339)
PC98と言うな! PC-98と言え! (554)
空気読めない奴等が隔離されて討論するスレ (410)
PC-9821/9801スレッド Part54 (564)

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


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

2 :
今気が付いた。
関数() はC言語の構文だった。
マジ、鬱。

3 :
>>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 :
10 REM ソモソモ シッパイ イゼンニ 2デ ザセツシテル スレッド

5 :
5 PRINT "5ゲット- ズザザザ"

6 :
cload "konosure.bas"
OK
run
Syntax Error in 1
OK


7 :
NEW

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

9 :
1 REM 1000ゲット ver0.1
10 DEFINT A-Z
20 IF LN=1000 THEN 40
30 GOTO 20
40 PRINT "1000 !!!!!";
50 END

10 :
>>9
いつまでも1000ゲットできないと思われ。
あ、変数クリアしないBASICなら可能性はあるか・・・。

11 :
#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 :
10 for I=1 to 4
20 print mid("マターリ",I,1);
30 for J=0 to 10000:next J
40 next I

13 :
? "FORTRANヲ ツカワセロ。 ゴルァ!"

14 :
10 PRINT"QuickBASICヤBASIC09ハ OK?"

15 :
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 :
NEW
OK
10 PRINT "80ギョウノウシロニOKナンテデネー"
20 PRINT "ウツダシノウ"
30 BOOT

17 :
10 PRINT "コマンドマチノトキ OKトデルキシュトREADYトデルキシュヲオシエロ"
20 PRINT "BASICノシュルイニモヨルハズ"

18 :
10 REM コチラモヨロシク
20 GOSUB http://pc.2ch.net/test/read.cgi/i4004/1008847300/

19 :
10 PRINT"MZハ リョウホウアッタゾ"
20 PRINT"S-BASICハREADYデWICSハOKダッタキオクガ"
30 END

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

21 :
>>20
GOTO *Google

22 :
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 :
10 INPUT "F-BASIC モ Ready ダッタトオモウンダケド。"
20 PRINT "アト、 HuBASIC ハプログラムジッコウチュウニ BREAK シテ、"
30 PRINT "CONT デキルジョウタイノトキハ Ok. トナルデスヨ。"
40 END

24 :
シッカシ、半角カナ ハ 読ミヅライナア(ワライ)
ムカシハ ナントモ ナカッタノニ

25 :
ON ERROR GOTO イッテヨシ

26 :
ニカカインラトニ!(藁

27 :
スナミ
?SN Error
Ok


28 :
ミイテ
Ready
リニト■

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

30 :
RUN
ナゼカNECノBASICダト、ウマクイカナインダヨネナゼカNECノBASICダト、ウマクイカナインダヨネナゼカNECノBASICダト、ウマクイカナインダヨネナゼカNECノBASICダト、ウマクイカナインダヨネナゼカNECノBASICダト、ウマクイカナインダヨネナゼカNECノBASICダト、ウマクイカナインダヨネ
BREAK IN 30
OK
25 COLOR I
コレ忘れてたよ。

31 :
10 DEFINT A-Z
20 PRINT "N-88 BASIC(86)とか";
30 PRINT "BASIC 98では";
40 PRINT "全角が使えて助かったな"
50 REM
60 PRINT "X1turboもそうじゃなかったっけ?"
70 END

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

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

34 :
ハニリイト
OK


35 :
10 STOP ON
20 ON STOP GOSUB 40
30 GOTO 30
40 RETURN
RUN■

36 :
DIR
?SN Error


37 :
セスニミカ フコンナコトモアッタナ・・・フ
Syntax Error
OK


38 :
10 PRINT">>33"
20 変数="MZ-2500はこんなことまで出来たっけ?"
30 PRINT 変数

39 :
10 PRINT">>31"
20 [変数]="X1turbo の場合は [ ] で囲む必要がありました。"
30 PRINT [変数]

40 :
>>35
10 STOP ON 'ダケデ可

41 :
MONアー
h]■

42 :
10 PRINT ">>38"
20 変数$="$が要るぞ、忘れるなゴルァ!!"
30 PRINT 変数$

43 :
[for N88-BASIC(86)]
LIST
10 WIDTH 80,25:CONSOLE 0,25,0,1,0
20 PRINT "正直、うらやましいな、変数に漢字使えるの・・・"
Ok
RUN
正直、うらやましいな、変数に漢字使えるの・・・
Ok


44 :
10 ON ERROR GOTO 40
20 SCREEN,
30 PRINT"98!":END
40 PRINT"88!":END
50 REM N88-BASIC ノ ナゾ

45 :
printf("
イマダ!45ゲットォォォォワショーイ!!\n
 ̄ ̄ ̄ ̄ ̄∨ ̄ ̄ ̄       (´´\n
     /■\       (´⌒(´\n
  ⊂(´∀` ⊂⌒`つ≡≡≡(´⌒;;;≡≡≡\n
        ̄ ̄  (´⌒(´⌒;;\n
      ズザーーーーーッ\n
");

46 :
PRINT"未だ工事!"

47 :
2 ゲットォォォ
3 ゲットォォォ
RENUM

48 :
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 :
PRINT SEARCH(I4004%,"マターリノカミ@")

50 :
NEW
Ready
RUN
*ERROR 19
Ready


51 :
POKE$952,0
Ready
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAA■

52 :
800 ?"懐かしいねぇ。GW-BASIC"

53 :
>>51
POKE$952,166
Ready


54 :
1000 REM MS-BASICデマターリ
4380 GOSUB >>52:PRINT"ウマー"
5550 PRINT"S-BASIC vs CBS-BASIC"
5560 IF INKEY$="" THEN 5560

55 :
55 CHAIN "FORMAT /P /G"
RUN
Syntax Error in 55
OK
NEW
10 PRINT "そういや,領域確保が必要だったんだっけ・・・"
20 PRINT "どんなコマンドだっけ.もうすっかり忘れちゃったなあ."

56 :
>>40
10 PRINT "ウオ、ウヤラレタ"
20 PRINT "デナオシテキマス"
30 GOTO 30

57 :
=40=54
若いということは良いことだ。(^^)

58 :
57 GOTO >>1

59 :
BOOT
Aer you sure?(y/n) Y

60 :
KEY 5,"new"+chr$(13)

61 :
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 :
100 REM >>60
110 PRINT "ヒデエ(w";

63 :
RETURN

64 :
load "60.bas"
OK
run
OK
KEY 1,"save "+chr$(&H22)
OK
CLS 3

65 :
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 :
ジョウキ ノ プログラム エラー デ トマル スマソ
OK

67 :
ヤハリ トマラズ ナニヲヤッテンダ オレ

68 :
NEW ON 1

69 :
TRON

70 :
MON

71 :
カタカナハナゼエラーニナラナイカ
Ok

72 :
100 GOSUB >>65
110 INPUT "イツカラツイタンダロウネ、オセーテヨ";A$

73 :
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 :
   DO 100 I=0,0
     WRITE (*,*) '読みにきーよ'
100 CONTINUE
   END

75 :
Hit Any Key!

76 :
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 :
100 REM うわ。せっかくインデントしたのに半角スペースが消えてるよ(;´Д`

78 :
>>74
これFORTRANじゃん…

79 :
10 PRINT "MSX-BASIC ナツカシイ"
20 GOTO10

80 :
CALL FORMAT

81 :
100 GOSUB>>73
110 PRINT"ヨシノヤネタドッカデミタゾ

82 :
1000 PRINT"小泉孝太郎は佐藤藍子がお鍋してる時の姿
1010 PRINT"佐藤藍子は小泉孝太郎がお釜してる時の姿
1020 PRINR"だまされるなよ

83 :
>>82
Syntax Error

84 :
>>83
1020
?"信託す偉い人、もういない

85 :
10 CLS:CLEAR
20 PRINT "なぜに最初にCLSする奴が少ないのだ?"
30 END

86 :
1 REM ウケケ
5 CLS
10 ON STOP GOSUB 30
20 PRINT "ヘヘヘ"
30 RETURN

87 :
>>86
ヘヘヘ
RETURN without GOSUB in 30

88 :
guha---
1 REM ウケケ
5 CLS
10 ON STOP GOSUB 30
20 PRINT "ヘヘヘ":GOTO 20
30 RETURN

89 :
>>88
6 PRINT ">>35 デ ガイシュツ":END

90 :
>>73
WIDTH 80,25:LOCATE 12,36:PRINT "ハゲシクワラタ"


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



92 :
KEY 5,"DEFUSR=0:A=USR(0)"+CHR$(13)

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


94 :
'printするなら;をつけたほうが楽しいと思う

95 :
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 0100read 1read
1read 100read
TOP カテ一覧 スレ一覧 2ch元 削除依頼
紙テープ (263)
x68000 vs Amiga (406)
Pascalのいた時代 (308)
昔のパソコンを懐かしんでしみじみと一言ずつ語ろう (312)
Ah!Ski の想い出 (371)
昔のシステムをフリーウェアにしてもらおう! (246)
--log9.info------------------
何故喜多郎は日本で評価されないのか (572)
大掃除のはかどる曲ってないすかね (505)
五線譜には書き表せない神秘のリロスレ (668)
♪チン♪チキ♪チン♪チキ◆ちんどん屋◆♪チン♪チキ♪チン♪チキ (270)
TEX-MEX、好きな人いますか? (259)
【Kill】サウンドクラッシュPart12【or be killed】 (250)
演奏をうpしてコメント貰うスレPart9 (521)
ジャズシンガー加護亜依を語るスレッド その101 (586)
おまいらコルトレーンチェンジ弾ける? (432)
【黒い】 ドナルド・バード 【プロフェッサー】 (326)
【Hno】日野皓正 2【Teru】 (318)
【PE'Z】ヒイズミマサユ機【hzm】 (651)
【メデスキ】medeski,martinwood【と他2人】 (962)
ジャズ界に不要な人、もの。 (497)
ロック好きの俺にJAZZ教えてください (333)
【朝顔】大谷能生2【観察】 (409)
--log55.com------------------
暴力で教育を破壊するスレ
私学の地歴公民採用について2
スクールカウンセラーって必要?
博士号の無い教育学部の教員とは・・・
学力なんかよりも深刻な子どもの「体力低下」!!
男嫌いの女性(特に女子学生)が増えている
青森県公立学校教員採用候補者選考試験
【青学の恥】瀬尾佳美【基地害准教授】3