MSX-BASICの奥義を伝授するスレ

MSX-BASICの奥義を伝授するスレat TECH

MSX-BASICの奥義を伝授するスレ - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

800:799
 14/03/14 03:44:10.36 Dt0a1Iuk
799の「200年カレンダー」を、Windows用の「99Basic」向けに作り直した 
（「移植」とは呼べない。文字化けを除けばMSXでも動く。論理式を追放した。） 
 
 
  100 CLS 
  110 INPUT "年(1900～2100),月 ";Y,M 
  120 IF Y<1900 OR Y>2100 OR M<1 OR M>12 THEN RUN 
  130 YY=Y:Y=(Y+4) MOD 28 
  140 J=Y MOD 4:D=INT(Y/4)*5+J 
  150 IF J>0 THEN D=D+1 
  160 IF YY=1900 THEN D=1 
  170 X=0 
  180 FOR I=1 TO 12 
  190 IF I<=M THEN D=(D+X) MOD 7 
  200 READ X 
  210 IF I=2 AND J=0 THEN X=1 
  220 IF (YY=1900 AND I=2) OR (YY=2100 AND I=2) THEN X=0 
  230 IF I=M THEN XX=X+28 
  240 NEXT 
  250 PRINT:PRINT 
  260 FOR I=1 TO 7 
  270 READ A$:PRINT " ";A$;" "; 
  280 NEXT 
  290 PRINT:PRINT:PRINT SPACE$(D*4); 
 
（続く）

801:799
 14/03/14 03:58:27.59 Dt0a1Iuk
300 FOR I=1 TO XX 
  310 PRINT USING" ## ";I;:D=D+1 
  320 IF D=7 THEN D=0:PRINT:PRINT 
  330 NEXT 
  340 PRINT 
  350 IF D>0 THEN PRINT:PRINT 
  360 END 
  370 DATA 3,0,3,2,3,2,3,3,2,3,2,3 
  380 DATA "日","月","火","水","木","金","土" 
 
 
主な修正点：1900年1・2月と2100年3月～12月も表示できるように。 
 
・MSXで実行するときの注意点 
110行のINPUT文・380行のDATA文にある「年」「月」「火」などの全角文字、 
場合によっては270行の曜日前後にある空白を修正する必要がある。 
 
・MSXの漢字BASICで実行するときの注意点 
最低でも100行を「100 _CLS」に修正する必要がある。 
インターレスモード～_KANJI2・_KANJI3でないと、上部が強制スクロールされる。 
画面がちらつかない_KANJI・_KANJI1で実行するときは、改行の「PRINT」を削除する、 
最後にINPUT$(1)やIF INKEY$="" THEN を加えるなどの工夫が必要。

次ページ