湖荂諺最桶炊

笚恅貌
1994-06-24

        笢貌悝炾儂ㄛBASIC逄晟炊
        0 TEXT ㄩ DIM C$(30)炊
        5 HOME ㄩ PRINT "TOUCH THE CHINESE KEY !";:GET A$:IF ASC(A$)> <13 THEN 5炊10 PRINT : HOME : FOR I=1 TO 28: READ C$(I):NEXT炊
        15 GOSUB 160:PRINT "剒湖荂諺最測鎢鎘?(Y/N)";:GET N$:PRINT " IF N$> <" THEN    45炊
        20 POKE 1659,1:PRINT SPC(4)"諺最測鎢":PRINT炊
        25 FOR I=1 TO 20 STEP 2:PRINT I;"=";C$(I);"    ";I+1;"=";C$(I+1)炊
        30 NEXT I:POKE 1659,0炊
        45 HOME:PRINT "珋婓羲宎怀⻌測鎢!":FOR I=1 TO 8:FOR J=1 TO 6炊
        50 PRINT"陎ヽ";J;"菴";I;"誹諺測鎢:";:INPUT "";A$:A=VAL(A$):IF A>20 OR A<1 THEN 50炊
        55 B$(I,J)=C$(A):NEXT J:NEXT I:PRINT "猁瘁湔攫?(Y/N)";:GET Y$:PRINT Y$: IF Y$="Y"THEN GOSUB 120炊
        60 HOME : INPUT "湖荂趼倰(1-15):";M$:M=VAL(M$):IF M>15 OR M<1 THEN 60炊
        65 HOME : INPUT "湖荂爺杅?";B$:B=VAL(B$):IF B<0 THEN 65炊
        70 POKE 1659,M:IF N=B THEN POKE 1659,0:N=0:GOTO 170炊
        80 PRINT SPC(14)"諺 最 桶":PRINT SPC(4)"----------------":PRINT "***********************************"炊
        85 PRINT "底岩岩抿岩岩抿岩岩抿岩岩抿岩岩抿岩岩抿岩岩弧":PRINT " 岱゜ヽ岱炊MON岱TUE岱WED岱THU岱FRI岱SAT"岱"炊
        90 PRINT "怪岩岩戕珨岱媼岱ʊ岱侐岱拻岱鞠岱":PRINT"岱誹棒岱   岱   岱    炊岱   岱   岱   岱":PRINT"怪岩岩抬岩岩抬岩岩抬岩岩抬岩岩抬岩岩抬岩岩戕"炊
        95 FOR I=1 TO 8:PRINT "岱";C$(20+I);"岱";B$(I,1);"岱";B$(I,2);"岱";B$( I炊,3);"岱"B$(I,4);"岱"B$(I,5);"岱";B$(I,6);"岱"炊
        100 IF I=8 THEN PRINT "彿岩岩拋岩岩拋岩岩拋岩岩拋岩岩拋岩岩忽": PRINT  炊:PRINT"岩岩岩岩岩岩岩岩岩岩岩岩岩岩岩岩岩岩岩岩岩岩":POKE  1659, 0: GOTO炊110炊105 PRINT "怪岩岩抬岩岩抬岩岩抬岩岩抬岩岩抬岩岩抬岩岩戕":NEXT I炊110 PRINT "偌珨瑩樟哿!";:GET Y$:N=N+1:GOTO 70炊120 INPUT "恅璃靡:";NAME$:D$=CHR$(4):PRINT D$;"OPEN";NAME$ : PRINT  D$ 炊;"WRITE";NAME$炊125 FOR I=1 TO 8:FOR J=1 TO 6:PRINT B$(I,J):NEXT J: NEXT  I: PRINT  D$ 炊;"CLOSE":PRINT "眒湔攫,偌珨瑩樟哿!";:GET Y$:RETURN炊
        140 INPUT "恅璃靡:";NAME$:D$=CHR$(4):PRINT D$;"OPEN";NAME$ : PRINT  D$ 炊;"READ";NAME$炊
        145 FOR I=1 TO 8:FOR J=1 TO 6:INPUT B$(I,J):NEXT J: NEXT  I: PRINT  D$ 炊;"CLOSE":PRINT "眒黍俇,偌珨瑩樟哿!";:GET Y$:GOTO 60炊
        150 DATA 逄恅,杅悝,荎逄,趙悝,昜燴,汜昜,淉笥,盪妢,華燴,极郤,櫛撮,魂雄, 芶炊极,赻党,芞賒,秞氈,櫛雄,啤頗,倓𧘇,****,珨,媼,ʊ,侐,拻,鞠,仝,匐炊
        160 HOME:PRINT"棠攫黍⻌偌D,瑩攫怀⻌偌￤珨瑩!";:GET Y$:HOME :IF  Y$ = "D"炊THEN 140炊
        170 HOME:PRINT "岆瘁遜猁妏蚚?(Y/N);:GET X$:PRINT X$:IF X$="N" THEN HOME炊:END炊
        175 IF X$="Y" THEN HOME:GOTO 15炊
        180 IF X$<>"Y" THEN 170炊
 
 