行を揃えるには？

 投稿者：西岡省吾ﾒｰﾙ  投稿日：2011年10月22日(土)06時29分38秒
  RESTORE
LET P=0
LET R=0
LET x=3
5 LET P=P+1
  LET R=R+1
  READ A$
  IF LEFT$(A$,1)="x" THEN LET p=p-1
  IF left$(A$,1)="v" THEN LET p=p-1
  IF left$(A$,1)="l" THEN LET p=p-1
  IF left$(a$,1)="x" THEN LET x=x+1
  IF left$(a$,1)="v" THEN LET v=v+1
  IF left$(A$,1)="l" THEN LET l=l+1
  PRINT a$;
8 INPUT b$
  IF B$=a$ THEN PRINT p;a$;r;x
  IF INT(p/10)=p/10 AND b$=a$ THEN GOTO 30
  IF b$=a$ THEN GOTO 10
  IF b$<>a$ THEN GOTO 23
10 beep 3000.3000,70
   GOTO 5
13 DATA migiasi,katahaba,zenkutu,kabenite,ryoutewokunde,atamanousiro,migitenohiji,migiasiosiri,hidariasiwomata,nekkorogatte3
   DATA migiasiwoonaka,ryouasinoura,ara-,udetate,batu,migitekubi,migiasiwo,tewokunde,katano,kubino
23 beep 3000.4000,200
24 beep 300.4000,200
25 beep 3000.4000,200
   GOTO 8
30 beep 3000.4000,1000
   GOTO 5

END
 		 

Re: 行を揃えるには？

 投稿者：白石和夫  投稿日：2011年10月22日(土)16時05分16秒
  > No.1681[元記事へ]

行番号には同じ桁数の整数のみを用いる，最初の行，END行にも行番号を付加しておくことが有効です。
また，オプションメニュー－自動修正の「インデント」のチェックを外して，自力でインデントを管理するのも有効です。
ただし，GOTO文の使用が不可避でないかぎり行番号を使わないのがおそらく最善の策です。たとえば，
RESTORE
LET P=0
LET R=0
LET x=3
DO
   LET P=P+1
   LET R=R+1
   READ A$
   IF LEFT$(A$,1)="x" THEN LET p=p-1
   IF left$(A$,1)="v" THEN LET p=p-1
   IF left$(A$,1)="l" THEN LET p=p-1
   IF left$(a$,1)="x" THEN LET x=x+1
   IF left$(a$,1)="v" THEN LET v=v+1
   IF left$(A$,1)="l" THEN LET l=l+1
   PRINT a$;
   DO
      INPUT b$
      IF B$=a$ THEN
         PRINT p;a$;r;x
         IF INT(p/10)=p/10 THEN
            beep 3000.4000,1000
         ELSE
            beep 3000.3000,70
         END IF
         EXIT DO
      END IF
      beep 3000.4000,200
      beep 300.4000,200
      beep 3000.4000,200
   LOOP
LOOP
DATA migiasi,katahaba,zenkutu,kabenite,ryoutewokunde,atamanousiro,migitenohiji,migiasiosiri,hidariasiwomata,nekkorogatte3
DATA migiasiwoonaka,ryouasinoura,ara-,udetate,batu,migitekubi,migiasiwo,tewokunde,katano,kubino
END
 		 

戻る