ポケコン
-
0
名前:
名無し募集中。。。
:2005/04/09 04:30
-
理工なんだけど、基礎化学..
-
2 名前:投稿者により削除されました
-
3
名前:
なんか?
:2006/06/02 10:11
-
ポケコンか…ちょっと関係ないかな?でも書いてみよう。
以下listコマンドで見たときのやつ。Part1
5:GOTO 110
10:さて、このプログラムはリセットしたように見せるジョークプログラムです
20:ちなみに10から100行はメモ用スペースです。うーん、意味ないね。
30:いや…作ったとき変になったので残しておきます
40:ところでこれタイミングが微妙におかしいですので…
110:CLS
120:LOCATE 0,2
130:PRINT "MEMORY CLEAR
O.K. (Y/N)
140:A$ = INKEY$
150:IF A$="Y" THEN 180
160:IF A$="N" THEN END
170:GOTO 140
180:CLS
190:S$ = CHR$ 135
200:PRINT S$;S$;S$;S$;S$
;S$;S$;S$;S$;S$;S$;S$;
S$;S$;S$;S$;S$;S$;S$;S
$;S$;S$;S$;S$,S$;"
";S$
,S$;" ALL RESET
";S$,S$;"
";S$,S$;
S$;S$;S$;S$;S$;S$;S$;S
$;S$;S$;S$;S$;S$;S$;S$
;S$;S$;S$;S$;S$;S$;S$;
S$
-
4
名前:
なんか?
:2006/06/02 10:12
-
Part1修正版
5:GOTO 110
10:さて、このプログラムはリセットしたように見せるジョークプログラムです
20:ちなみに10から100行はメモ用スペースです。うーん、意味ないね。
30:いや…作ったとき変になったので残しておきます
40:ところでこれタイミングが微妙におかしいですので…
110:CLS
120:LOCATE 0,2
130:PRINT "MEMORY CLEAR
O.K. (Y/N)
140:A$ = INKEY$
150:IF A$="Y" THEN 180
160:IF A$="N" THEN END
170:GOTO 140
180:CLS
190:S$ = CHR$ 135
200:PRINT S$;S$;S$;S$;S$
;S$;S$;S$;S$;S$;S$;S$;
S$;S$;S$;S$;S$;S$;S$;S
$;S$;S$;S$;S$,S$;"
";S$
,S$;" ALL RESET
";S$,S$;"
";S$,S$;
S$;S$;S$;S$;S$;S$;S$;S
$;S$;S$;S$;S$;S$;S$;S$
;S$;S$;S$;S$;S$;S$;S$;
S$
-
5
名前:
なんか?
:2006/06/02 10:16
-
Part2
210:FOR I=0 TO 73
220:A$ = INKEY$
230:IF A$="Y" THEN CLS :
PRINT "RUN MODE" :END
240:NEXT I
250:LOCATE 0,0
260:PRINT "
AL
L RESET
"
270:GCURSOR (42,22)
280:PRAINT "F8FC2224F800
FEFE80808000FEFE808080
00000000000000FEFE3252
8C00FEFE929292004C9E92
F26400FEFE9292920002FE
FE0200"
290:FOR I=0 TO 40
300:A$ = INKEY$
310:IF A$="Y" THEN CLS :
PRINT "RUN MODE" :END
320:NEXT I
330:GOTO 180
-
6
名前:
なんか?
:2006/06/02 10:16
-
Terapadを用意してすべて貼り付けて次の置き換えを実行
検索: \n(半角スペースの次に\n)
置換:\n
検索: (全角スペース)
置換: (半角スペース)
とすればずいぶんわかりやすいんじゃないかな?
入力するとき220,260,280行目は
1.1行分入力する。
2.[▲]ボタンでその行に2行目以降を追加
とすると全部位置が合います。
長文書きましたが、楽しいプログラムかな?
質問はするな、
|