トップページ⇒tech
92コメント12KB

みんなが一行ずつN88の命令文書く

■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん2007/11/07(水) 18:42:14
N88互換basicのみ。

100 cls
0002デフォルトの名無しさん2007/11/07(水) 18:51:12
110 PRINT"ｺﾝﾁﾊ"
0003デフォルトの名無しさん2007/11/07(水) 19:01:04
120 screen 1,0,0,1
0004デフォルトの名無しさん2007/11/07(水) 19:03:54
130 INPUT"友達の電話番号教えれ";$TELL
0005デフォルトの名無しさん2007/11/07(水) 19:11:55
140 if $TELL = "友達いない…" then
0006デフォルトの名無しさん2007/11/07(水) 19:13:19
NEW
0007デフォルトの名無しさん2007/11/07(水) 19:19:31
OUT &H68, 8
0008デフォルトの名無しさん2007/11/07(水) 20:13:06
BEEP 1
0009デフォルトの名無しさん2007/11/07(水) 23:48:29
auto
0010デフォルトの名無しさん2007/11/08(木) 10:55:08
LIST
0011デフォルトの名無しさん2007/11/09(金) 00:02:36
USR(0)
0012デフォルトの名無しさん2007/11/09(金) 00:41:25
POLL 1
0013どこに何があるかはとっくに忘れた2007/11/09(金) 10:49:26
peek(0)
0014デフォルトの名無しさん2007/11/10(土) 09:55:31
Goto 200
0015デフォルトの名無しさん2007/11/10(土) 15:19:26
200 FOR I = 1 TO 10
0016デフォルトの名無しさん2007/11/11(日) 08:06:02
NEXT I
0017デフォルトの名無しさん2007/11/11(日) 10:02:49
REM 空forでのウェイト調整か…何もかも懐かしい
0018デフォルトの名無しさん2007/11/14(水) 10:15:37
gosub allClear()
0019デフォルトの名無しさん2007/11/15(木) 16:10:46
rem n88のgosubに括弧なんて付けたっけ？
0020デフォルトの名無しさん2007/11/15(木) 20:21:48
rem よくわからんけど行番号だけ? ラベルってあったっけ?
0021デフォルトの名無しさん2007/11/16(金) 00:54:43
' n88ならラベルもあるよ
0022デフォルトの名無しさん2007/11/16(金) 23:18:04
100 *HOGE:GOTO *HOGE
0023デフォルトの名無しさん2007/11/22(木) 19:19:04
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
0024デフォルトの名無しさん2007/11/26(月) 17:54:14
?"何行も書くなよ。"
0025基本はこれだろ2007/12/08(土) 13:49:40
DEFINT A-Z
0026デフォルトの名無しさん2007/12/08(土) 20:01:09
NEW
0027デフォルトの名無しさん2007/12/08(土) 22:39:50
X=X+(A$="4")-(A$="6")
0028デフォルトの名無しさん2007/12/15(土) 10:54:53
10 ￥
0029デフォルトの名無しさん2007/12/15(土) 10:55:52
10 a[0]=100
0030デフォルトの名無しさん2007/12/15(土) 12:51:29
renum
0031デフォルトの名無しさん2007/12/16(日) 03:42:27
AKCNV 命令
0032デフォルトの名無しさん2007/12/17(月) 22:22:22
print"いい湯だな"
0033デフォルトの名無しさん2007/12/18(火) 23:48:12
How many files(0-15)?
0034デフォルトの名無しさん2007/12/19(水) 00:03:15
TRON
0035デフォルトの名無しさん2007/12/19(水) 01:58:10
print"緊急エラーです"
0036デフォルトの名無しさん2007/12/23(日) 13:54:27
10 ' SAVE"FILENAME.BAS"
20 SCREEN 0:CONSOLE ,,0,1:WIDTH 40,25:DEFINT I-N:CLS 3
30 I$=INKEY$:IF I$="" THEN 30
40 I=ASC(I$)
50 IF I=14 THEN *RET1
60 GOTO 30
100 END
200 *RET1
210
220 RETURN
0037デフォルトの名無しさん2007/12/24(月) 09:49:30
'1行ずつだ。欲張るなボケ
0038デフォルトの名無しさん2007/12/24(月) 09:57:39
LLIST
0039デフォルトの名無しさん2007/12/24(月) 10:55:36
MON
0040デフォルトの名無しさん2007/12/24(月) 21:31:40
' >>36 それ、210行目はコメントか何か入れないと削除されないか？
0041デフォルトの名無しさん2008/01/12(土) 14:04:58
INT 21H
0042デフォルトの名無しさん2008/01/12(土) 14:09:03
10 RANDOMIZE VAL(RIGHT$(TIME$,2))
11 DEFSTR M
12 MES[0] = "ﾊﾞｶ"
13 MES[1] = "VIP"
14 MES[2] = "ﾃﾝｻｲ"
15 FOR N=1 TO 10 STEP 1
16 PRINT "ﾀﾞｲ" N "ﾓﾝ"
20 A=INT(RND*10):B=INT(RND*10)
25 PRINT A " + " B "=",
30 INPUT C
40 IF A+B = C THEN SCORE = SCORE + 8
50 NEXT
60 PRINT "ｱﾅﾀﾊ " SCORE " ﾃﾝﾃﾞｽ"
70 PRINT MES[SCORE /20] + "!!!!!!!!!!!!!!"
80 END
0043デフォルトの名無しさん2008/01/12(土) 18:37:33
REM ｲﾁｷﾞｮｳ ﾃﾞ ｵﾈ
0044デフォルトの名無しさん2008/01/21(月) 16:52:07
10 IF A = B THEN IF C=D THEN IF A = C THEN IF B=D THEN 10
0045デフォルトの名無しさん2008/03/14(金) 20:00:04
10　*ICHIGYOU : GOTO *ICHIGYOU
0046うるせええ！！！１１１2008/03/15(土) 08:26:01
BEEP 1
0047ぶ〜ん2008/03/15(土) 09:08:15
fori=1to2step0:motor1:motor0:next
0048デフォルトの名無しさん2008/03/17(月) 09:57:55
LET SEX=0721
0049デフォルトの名無しさん2008/04/26(土) 16:20:52
ｈｆｄ
0050デフォルトの名無しさん2008/04/26(土) 16:47:43
860 RUN 'KYOUSEI KURIA
0051デフォルトの名無しさん2008/04/26(土) 21:03:13
510 REM ｵﾏｲﾗｷﾞｮｳﾊﾞﾝｺﾞｳﾏﾓﾚﾖ
0052デフォルトの名無しさん2008/04/27(日) 02:19:42
BEEP
0053デフォルトの名無しさん2008/04/27(日) 02:21:32
530 PRINT : 行番号忘れたorz
0054デフォルトの名無しさん2008/04/27(日) 09:15:46
540 TALK "ボク　ナンニモ　シラナイヨ"
0055デフォルトの名無しさん2008/04/27(日) 14:18:47
550 NEW ON 0
0056デフォルトの名無しさん2008/04/27(日) 16:24:44
RENUM
0057デフォルトの名無しさん2008/06/15(日) 13:36:26
kill
0058デフォルトの名無しさん2008/06/18(水) 13:31:43
580 DEF FNPRINTF(X) SIN(X)
0059pc9801series only2008/06/18(水) 14:52:32
590 SCREEN 3,0,0,1:CLS 3:RANDOMIZE(INT(RIGHT$(TIME$,2))):FOR I=1 TO 500:PSET(INT(RND(1)*640),INT(RND(1)*400)),INT(RND(1)*8):NEXT I
0060pc8801fe2 only2008/06/18(水) 15:03:53
590 SCREEN 1,0,0,1:CLS 3:RANDOMIZE(INT(RIGHT$(TIME$,2))):FOR I=1 TO 500:PSET(RND*640,RND*200,RND*8:NEXT I
0061デフォルトの名無しさん2008/06/18(水) 23:14:14
10 WIDTH 40,25:SCREEN 3,0,0,1:CONSOLE 0,25,0,1:COLOR ,,,,2:CLS 3
0062デフォルトの名無しさん2008/12/30(火) 20:12:11
１０　ＧＯＴＯ　１０
0063デフォルトの名無しさん2008/12/30(火) 20:58:42
10 END
0064デフォルトの名無しさん2008/12/31(水) 00:56:26
10 RUN
20 GOTO 10
0065デフォルトの名無しさん2009/04/19(日) 05:03:12
DATE "2009,4,19"
0066デフォルトの名無しさん2009/04/23(木) 13:54:52
A=0 : WHILE A<50 : A=A+1 : WEND
0067デフォルトの名無しさん2009/07/03(金) 15:49:14
LINE (2,3)-(4,5): LINE -(10, 20), 4
0068デフォルトの名無しさん2009/07/28(火) 23:39:11
10 WIDTH 40,25:X=8:FOR A=1 TO 25:X=X+1:LOCATE X,25:PRINT "Z";:NEXT A:FOR A=1 TO 24:LOCATE X,25:PRINT "Z":X=X-1:NEXT A:FOR A=1 TO 25:LOCATE X,25:PRINT "Z";:X=X+1:NEXT A
0069デフォルトの名無しさん2009/07/29(水) 03:56:18
PRINT "ｷﾞｮｳﾊﾞﾝｺﾞｳ = ﾚｽﾊﾞﾝｺﾞｳ ?"
0070デフォルトの名無しさん2009/07/30(木) 12:30:48
on stop gosub >900
0071デフォルトの名無しさん2009/08/09(日) 00:48:14
行番号は、レスのナンバーだからね。
これはだから、71

71 print "行番号71"
0072デフォルトの名無しさん2009/08/10(月) 18:50:05
Do
0073tor.rootkit.de2009/08/17(月) 17:57:25
自動焼人 ★　＝　自動保守 ◆KAWORUKOFI　＝　自動保守#K9K?_D[L

名言集　その４
『俺の経歴カックイイだろ？』

http://yutori7.2ch.net/test/read.cgi/news4vip/1249830540/　ID:PVAf+dux0　＝　自動焼人 ★

> 984 ：以下、名無しにかわりましてVIPがお送りします [sage] ：2009/08/10(月) 00:11:14.95 ID:PVAf+dux0
> 俺の簡単な年表（笑）
> 高二秋：自前のパソコンゲット
> 高三春：コテハンとしてデビュー、指揮官見習い
> 高三秋：指揮官デビュー
> 大一：新しい武器の開発や、突撃で数々の戦歴を残す
> 大二春：規制系キャップ取得、第一線から退く
> 大二夏：ネットでのゲーム作成プロジェクト始動
> 大二秋：政治系オフに参加
> 大二冬：最後の突撃、華々しく散る
> 大三春：政治系活動を本格始動
> 大三夏：三度目の選挙へ
>
> おまえらは、後を継ぐなよｗ

----------------------------------------------
この自動焼人 ★メールマガジンの配信停止をご希望される方は
http://qb5.2ch.net/test/read.cgi/sec2chd/1250169591/
にて自動焼人 ★までご連絡ください
0074852 デフォルトの名しさん2009/08/19(水) 07:18:27
GOTO 1
0075デフォルトの名無しさん2009/08/25(火) 22:02:42
100 GOTO 110
110 SATO 120
120 KATO 130
130 NATO 北大西洋条約機構
0076デフォルトの名無しさん2009/08/26(水) 01:35:45
>>75
'1行ずつだ。欲張るなボケ
0077デフォルトの名無しさん2009/12/07(月) 22:53:31
NEW
0078デフォルトの名無しさん2009/12/14(月) 14:19:26
goto 0
0079デフォルトの名無しさん2010/12/19(日) 13:00:10
PRINT FRE
0080デフォルトの名無しさん2010/12/19(日) 14:18:37
GOTO HELL
0081デフォルトの名無しさん2010/12/22(水) 23:44:44
>>44
? "昔から気になっていたのだが、これパースすると、どういう構文木になるの"

0082デフォルトの名無しさん2010/12/22(水) 23:45:52
CALL A
0083デフォルトの名無しさん2010/12/23(木) 14:06:21
CALL B
0084デフォルトの名無しさん2010/12/23(木) 20:35:38
CALL C
0085デフォルトの名無しさん2011/04/26(火) 04:17:18.50
N88って、配列とスカラーで名前空間別なの？
昔のソース読んでたら
100 DIM X(101)
...
200 X=X(1)
というコードがあったんだけど、X(0)やX(2)はおかしくならないのかな？
N88互換 for Windows95 で試したら、X(0)やX(2)に影響は無かった
0086デフォルトの名無しさん2011/04/26(火) 07:06:49.95
名前空間が別と言うか、型まで含んだ名前空間と言うか。
だから、a!, a#, a$, a%も共存できる。
0087デフォルトの名無しさん2011/04/26(火) 09:09:19.88
なるほど。ありがとう
0088デフォルトの名無しさん2011/05/11(水) 16:02:09.57
ASCIIコードの、&H1F (ユニットセパレータ) って、画面出力するとどんな感じでしたか？
↓
みたいな下矢印が表示されたのかな？もちろん半角で
0089デフォルトの名無しさん2011/05/11(水) 16:48:07.12
>>88
正解。
http://www.kiwi-us.com/~ohta/pc88/kanji/88ank.gif

最初、「そんなの端末によって違うだろボケ」と思って、スレタイ見直して納得したw
0090デフォルトの名無しさん2011/05/11(水) 17:10:34.26
ありがとうございます。その画像を探してました
昔のコードで、TVRAMに&H1F書き込んでグラフィック表示もどきの
ことをしていたので気になってました
0091天使 ◆uL5esZLBSE 2011/07/03(日) 13:40:10.07
ゴミは死ね（笑）
キリッ
0092デフォルトの名無しさん2011/11/22(火) 01:41:18.35
...
■ このスレッドは過去ログ倉庫に格納されています