1 :
デフォルトの名無しさん:
REM N-BASICヲオモイダソウ
2 :
デフォルトの名無しさん:01/11/02 04:37
REM PROGRAM STRAT
3 :
デフォルトの名無しさん:01/11/02 04:38
FOR C=1 TO 10
NEW
5 :
デフォルトの名無しさん:01/11/02 04:38
PRINT "コンナフウニカキコンデネ"
6 :
デフォルトの名無しさん:01/11/02 04:39
NEXT C
7 :
デフォルトの名無しさん:01/11/02 04:41
NEW
8 :
デフォルトの名無しさん:01/11/02 04:42
GOSUB 100
9 :
デフォルトの名無しさん:01/11/02 04:44
FOR C=1 TO 100 : PRINT "4ノバカヤロ-" : NEXT C
10 :
デフォルトの名無しさん:01/11/02 04:47
LIST
11 :
デフォルトの名無しさん:01/11/02 04:48
5 名前:デフォルトの名無しさん :01/11/02 04:38
PRINT "コンナフウニカキコンデネ"
6 名前:デフォルトの名無しさん :01/11/02 04:39
NEXT C
7 名前:デフォルトの名無しさん :01/11/02 04:41
NEW
8 名前:デフォルトの名無しさん :01/11/02 04:42
GOSUB 100
9 名前:デフォルトの名無しさん :01/11/02 04:44
FOR C=1 TO 100 : PRINT "4ノバカヤロ-" : NEXT C
13 :
デフォルトの名無しさん:01/11/02 05:04
いけ!
あえぐ "イクーイクー"
でる "ピュッ"
おわり
10 end
20 end
30 end
40 end
50 end
15 :
デフォルトの名無しさん:01/11/02 05:08
NEW
思い出した。以上。
========== 終了 ===============
俺は全銀システムの一部を、BASICで構築した伝説の男。
俺を超えて見ろ!!!
俺は宛名書きソフトを、BASICで構築しようとして断念した男。
俺を超えて見ろ!!!
(let ((f #'(lambda (x) (princ x))))
(apply f '("クソスレウザイ")))
WIDTH 80:CONSOLE 0,25,0,1
21 :
デフォルトの名無しさん:01/11/02 14:00
NEW
懐かしさでは、俺のこの1行が最高だな。
10 DEFINT A-Z
23 :
デフォルトの名無しさん:01/11/02 15:14
RUN
(define (x)(display 'コマンドまたはファイル名が違います.)(x))
(x)
コマンドまたはファイル名が違います.コマンドまたはファイル名が違います.コマンドまたはファイル名が違います.コマンドまたはファイル名が違います.コマンドまたはファイル名が違います.コマンドまたはファイル名が違います.
POKE &H8000, 0
だったかな?
26 :
デフォルトの名無しさん:01/11/02 16:07
27 :
デフォルトの名無しさん:01/11/02 18:41
bug太郎氏のシリーズはどのくらいあったっけ?
N-typeとかすごかったよなぁ
END
29 :
デフォルトの名無しさん:01/11/03 00:22
NEW
30 :
デフォルトの名無しさん:01/11/03 00:23
REM RESTART!
31 :
デフォルトの名無しさん:01/11/03 00:23
INPUT "A=",A;
32 :
デフォルトの名無しさん:01/11/03 03:25
33 :
デフォルトの名無しさん:01/11/06 00:02
10 SAVE "1:SAMPLE.BAS"
やばい。かなりうろ覚えだ
RANDOMIZE VAL(RIGHT$(TIME$,2))
36 :
デフォルトの名無しさん:01/11/06 00:08
BEEP 1
PRINT CHR$(12)
OOP 1
>>34 N-BASICならcloadとcsaveだろ。
あと、1:とかはN88-BASICからだったような気も。
>>35 RANDOMIZEもN88-BASICからだったと思われ。
N-BASICだとRAND(-1)とか、そんな感じだったような記憶がある。
N-BASIC Ver1.0はバグがあって、80文字目が消えちゃうことがあるから
Ver1.1のROMに差し替えてね(w
41 :
デフォルトの名無しさん:01/11/07 00:01
MOUNT
REMOVE
42 :
デフォルトの名無しさん:01/11/07 00:09
PRINT CHR$(12);:FOR I=1 TO 2:I=1:MOTOR:NEXT
43 :
デフォルトの名無しさん:01/11/07 00:10
10 NEW
44 :
デフォルトの名無しさん:01/11/07 00:14
1:print rnd 0 ;:goto 1
45 :
デフォルトの名無しさん:01/11/07 10:48
10 CLS
20 SCREEN 3,0,0,1
…
個人的にSCREENがブーム。
なぜか、いつも3,0,0,1だったような??
PRINT INT(RND(1)*6)+1
47 :
デフォルトの名無しさん:01/11/07 15:30
INP(0)
PEEK(&HF302....
GOTO *CYUUBOU
MON
TM
↑よく店頭デモ機で打ちこんで逃げていた。
知らない奴が見ると壊れているように見える。
MON
GE3CC
よく遊んだな、このゲーム。
店頭デモ機に打ち込むコマンドはこれが基本でしょ?
KEY 5,"NEW"+CHR$(13)
CLS:FOR I=0 TO 1:I=0:IF TIME$=>"12:34:56" THEN BEEP:NEXT
これだと、突然音が鳴り出してびっくり...のはず。
>52
NEXTがTHENに効いてるから、ループしないと思われ…
>>50 ワタシモ
カナリ ヤリコミマシタ!!
________/
 ̄ ̄ ̄V __
/ - \  ̄ ̄
_●__v_ 三. └vvv┐ .|  ̄ ̄
V■\(_) 三 ┌vvv┘ .| ──
< \ \ /  ̄ ̄
55 :
デフォルトの名無しさん:01/11/24 20:26
>>40 リターンキーで入力し終わったらカーソルキーで
上に戻ってもう一度リターンキー。
これを忘れると消えてたね。
このバグはカラーモードの時だけだった気がするけど。
>>45 SCREENはN-80とN-88じゃない?
on time gosub 最強
バグファイヤーの自キャラってワイデス40だっけ?
58 :
デフォルトの名無しさん:01/11/24 23:55
>57
発音注意!ウィドスでしょ?
59 :
デフォルトの名無しさん:01/11/25 00:16
10 new 0
たしかnewでリセットが出来たはず…
LISTでここぞと思ったらSTOP