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

N88互換basicのみ。

100 cls

110 PRINT"ｺﾝﾁﾊ"

120 screen 1,0,0,1

130 INPUT"友達の電話番号教えれ";$TELL

140 if $TELL = "友達いない…" then

NEW

OUT &H68, 8

BEEP 1

auto

LIST

USR(0)

POLL 1

peek(0)

Goto 200

200 FOR I = 1 TO 10

NEXT I

REM 空forでのウェイト調整か…何もかも懐かしい

gosub allClear()

rem n88のgosubに括弧なんて付けたっけ？

rem よくわからんけど行番号だけ? ラベルってあったっけ?

' n88ならラベルもあるよ

100 *HOGE:GOTO *HOGE

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

?"何行も書くなよ。"

DEFINT A-Z

NEW

X=X+(A$="4")-(A$="6")

10 ￥

10 a[0]=100

renum

AKCNV 命令

print"いい湯だな"

How many files(0-15)?

TRON

print"緊急エラーです"

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

'1行ずつだ。欲張るなボケ

LLIST

MON

' >>36 それ、210行目はコメントか何か入れないと削除されないか？

INT 21H

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

REM ｲﾁｷﾞｮｳ ﾃﾞ ｵﾈ

10 IF A = B THEN IF C=D THEN IF A = C THEN IF B=D THEN 10

10　*ICHIGYOU : GOTO *ICHIGYOU

BEEP 1

fori=1to2step0:motor1:motor0:next

LET SEX=0721

ｈｆｄ

860 RUN 'KYOUSEI KURIA

510 REM ｵﾏｲﾗｷﾞｮｳﾊﾞﾝｺﾞｳﾏﾓﾚﾖ

BEEP

530 PRINT : 行番号忘れたorz

540 TALK "ボク　ナンニモ　シラナイヨ"

550 NEW ON 0

RENUM

kill

580 DEF FNPRINTF(X) SIN(X)

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

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

10 WIDTH 40,25:SCREEN 3,0,0,1:CONSOLE 0,25,0,1:COLOR ,,,,2:CLS 3

１０　ＧＯＴＯ　１０

10 END

10 RUN
20 GOTO 10

DATE "2009,4,19"

A=0 : WHILE A<50 : A=A+1 : WEND

LINE (2,3)-(4,5): LINE -(10, 20), 4

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

PRINT "ｷﾞｮｳﾊﾞﾝｺﾞｳ = ﾚｽﾊﾞﾝｺﾞｳ ?"

on stop gosub >900

行番号は、レスのナンバーだからね。
これはだから、71

71 print "行番号71"

Do

自動焼人 ★　＝　自動保守 ◆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/
にて自動焼人 ★までご連絡ください

GOTO 1

100 GOTO 110
110 SATO 120
120 KATO 130
130 NATO 北大西洋条約機構

>>75
'1行ずつだ。欲張るなボケ

NEW

goto 0

PRINT FRE

GOTO HELL

>>44
? "昔から気になっていたのだが、これパースすると、どういう構文木になるの"

CALL A

CALL B

CALL C

N88って、配列とスカラーで名前空間別なの？
昔のソース読んでたら
100 DIM X(101)
...
200 X=X(1)
というコードがあったんだけど、X(0)やX(2)はおかしくならないのかな？
N88互換 for Windows95 で試したら、X(0)やX(2)に影響は無かった

名前空間が別と言うか、型まで含んだ名前空間と言うか。
だから、a!, a#, a$, a%も共存できる。

なるほど。ありがとう

ASCIIコードの、&H1F (ユニットセパレータ) って、画面出力するとどんな感じでしたか？
↓
みたいな下矢印が表示されたのかな？もちろん半角で

>>88
正解。
http://www.kiwi-us.com/~ohta/pc88/kanji/88ank.gif

最初、「そんなの端末によって違うだろボケ」と思って、スレタイ見直して納得したw

ありがとうございます。その画像を探してました
昔のコードで、TVRAMに&H1F書き込んでグラフィック表示もどきの
ことをしていたので気になってました

ゴミは死ね（笑）
キリッ

...