レス数が1スレッドの最大レス数(1000件)を超えています。残念ながら投稿することができません。
おちゃめくらぶ掲示板
-
レスにょ
otyaさんへ
＞RUNの後はアルファベット以外は使える(RUN<などがエラーにならない)のでCHKCHR使ってサブルーチンでRUN@再現可能かも
そうか・・・その手があったにょ。
(1)画面上から「R」「U」「N」が連続して出現する場所を調べる
(2)「RUN」に続く文字列を読み取りCHR$(0)が出るまでを文字変数に入れる
(3)その文字変数に入っている値が「@」から始まっているならばラベルジャンプ
というアルゴリズムで早速プログラムを作ったけど3行もかかってしまったにょ。
やはり何とか1行にまとめたいところにょ。
というわけでアルゴリズムを考え直したにょ。
別にRUNで始める必要はないので@のみに注目してやることで大幅にリストが削減されて
ようやく1行に収まったにょ。
@から始まってCHR$(0)で終わるまでがラベルとして認識しているわけにょ。
A$=""FOR I=767TO 0STEP-1A=CHKCHR(I%32,I/32)A$=(CHR$(A)*!!A+A$)*!!A:IF A-64THEN NEXT ELSE GOTO A$
RUNの有無は関係なく@しか見てないため[START]ボタンでの起動にも対応することができて
RUN@ラベル、@ラベル[START]のどちらでも任意の場所からスタート可能になったにょ。
これはかなり使えそうにょ。
ということで、最近公開した1行プログラムと合わせて1行プログラムコーナーを作ったにょ。
http://ww5.tiki.ne.jp/~ochame/petitcom/1line.htm
掲示板管理者へ連絡
無料レンタル掲示板
