1000 '************************************************************************* 1010 '　　　　英語メニュープログラム 1020 ' '92 Apr.5-6 1030 ' by H.Miyamoto 1040 'SAVE "MENU.BAS",A 1050 '************************************************************************* 1060 '=========メイン========================================================== 1070 '~~~~~~~~ ｼｮｷｾｯﾃｲ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 1080 COMMON TJ$:CONSOLE 20,5,0,1 1090 GOSUB *CLSALL 1100 COLOR 2:LOCATE 18,21:IF TJ$<>"" THEN PRINT "英"+TJ$+"テストおしまい！お疲れさまでした。" 1110 COLOR 4:LOCATE 70,0:PRINT DATE$ 1120 COLOR 6:LOCATE 25,1:PRINT "［英語テストのメニュー］" 1130 COLOR 5:LOCATE 25,3:PRINT "ｱ｣｣｣｣｣｣｣｣｣｣ｵ" 1140 COLOR 5:LOCATE 25,4:PRINT "･ 英単語テスト → １ ･" 1150 COLOR 5:LOCATE 25,5:PRINT "･ 英熟語テスト → ２ ･" 1160 COLOR 5:LOCATE 25,6:PRINT "ｹ｣｣｣｣｣｣｣｣｣｣ｽ" 1170 COLOR 7:LOCATE ,10:PRINT" ◎ 入力は、数値キー(1〜9)、[＊] キーおよび [RET] キーによって行います。" 1180 COLOR 7:LOCATE ,11:PRINT" ◎ '?' が表示されているときは、数値キーを押した後、[RET] キーを押して下さい。" 1190 COLOR 7:LOCATE ,12:PRINT" ◎ 途中で止めたい場合、[＊] キーを押すとメニュー画面に戻れます。" 1200 '~~~~~~~~ ﾆｭｳﾘｮｸ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 1210 LOCATE ,17:PRINT SPACE$(80) 1220 IF SENTAKU$<>"" THEN COLOR 2:LOCATE 28,17:PRINT"入力キーが違います！":FOR I=0 TO 8000:NEXT:SENTAKU$="":GOTO 1210 1230 COLOR 5:LOCATE 25,17:PRINT"何かキーを押してください。" 1240 SE$="" 1250 SE$=INKEY$ 1260 COLOR 3:LOCATE 70,1:PRINT TIME$ 1270 IF SE$="" GOTO 1250 ELSE GOSUB *SENTAKU 1280 IF SENTAKU$<>"1" AND SENTAKU$<>"2" THEN GOTO 1210 1290 IF SENTAKU$="1" THEN RUN"TANGO" ELSE RUN"JUKUGO" 1300 '=========サブルーチン==================================================== 1310 '~~~~~~~~ ｶﾞﾒﾝ ｼｮｳｷｮ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 1320 *CLSALL 1330 CLS 1340 FOR N=0 TO 20 1350 LOCATE ,N:PRINT SPACE$(80) 1360 NEXT N 1370 RETURN 1380 '~~~~~~~~ ｽｳﾁ ｾﾝﾀｸ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 1390 *SENTAKU 1400 CLS 1410 COLOR 5:LOCATE 18,17:INPUT WAIT 35,"番号を選んで、[RET] キーを押してください。";SENTAKU$ 1420 RETURN