1read 100read
2013年02月昔のPC303: PRINT("BASIC デマターリカタルスレ。") (461)
TOP カテ一覧 スレ一覧 2ch元 削除依頼 ▼
日立ベーシックマスターシリーズ レベル3 Mark6 (372)
PC98と言うな! PC-98と言え! (554)
FM77AV vs MZ-2500 vs MB-S1 (479)
【広島】松本無線に来てた人のスレ【同窓会】 (265)
【DAN】月刊I/O(工学社)を語れ2【KIM】 (658)
ここだけ時代が7年間ずれているスレ (497)
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元 削除依頼 ▲
PC98と言うな! PC-98と言え! (554)
== ジャンクPCマィコン化計画 == (666)
空気読めない奴等が隔離されて討論するスレ (410)
昔のPC・体験談を五七五で語ってください (483)
Ah!Ski の想い出 (371)
マシンになりきって会話するスレ (415)
--log9.info------------------
【讃岐】香川アイスフェローズ【うどん】 (286)
カーリング代表を別のものに例えるスレ (911)
カーリングが流行った理由は・・・ (274)
釧路工業武修館江南高校 (408)
ゴールキーパーについて語るスレ (717)
【アイスマン】大学アイスホッケー2【聖地東伏見】 (688)
アイスホッケー?(・∀・)イラネ! (263)
九州・中四国の大学アイスホッケー事情vol1 (342)
【ホッケー】 審判について語ろう 【ジャッジ】 (445)
ひとりぼっちのアイスホッケー観戦 (260)
ショートトラックスピードスケート (201)
札幌イーガー・ビーバーズ Part1 (806)
【古豪復活へ】立教大学アイスホッケー【期待大】 (201)
俺はカーリングをスポーツとは認めない! (768)
ホッケー総合 (470)
【讃岐】サーパス香川アイスホッケークラブ【うどん】 (258)
--log55.com------------------
[PDF] l 14116 k
【3DS】エルミナージュ ゴシック 3D REMIX part14
サガ スカーレット グレイス 総合スレ part112
【PSP】Fate/EXTRA総合 266スレ
【MM】メタルマックス総合スレ 戦車273台目【MS】
【PSP/VITA】クリミナルガールズ総合おしおき69回目
イースVIII ラクリモサ・オブ・ダーナLevel37
【3DS】イナズマイレブン総合その394【サッカーRPG】