第2回昔のPC板杯ﾌﾟﾛｸﾞﾗﾑｺﾝﾃｽﾄ会場

16 ：ハチマルエムゴラビ：02/02/03 18:10.net

10 CONSOLE 0,25,0:WIDTH 80,25:COLOR 7,0,0:PRINT CHR$(12)
20 DEFINT A-Z:X=40:R=1:SC=0:K=0:T=10000:DIM L$(1):L$(0)=" ＜  ＼ ":L$(1)=" ／  ＞ "
30 FOR A=32 TO 48 STEP 8:LOCATE A,15:PRINT"┃":NEXT
40 LOCATE X-2,12:PRINT"  ●  ":LOCATE X-3,13:PRINT" ／■＼ "
50 LOCATE X-3,14:PRINT L$((R+1)/2)
60 K=(INKEY$=" "):SC=SC+((X>28 AND X<32)+(X>48 AND X<53))*K:R=R*(K*2+1):X=X+R
70 ON (X<20 OR X>60)+2 GOTO 90,,80
80 LOCATE 38,10:PRINT SC:T=T-3:FOR A=1 TO T:NEXT:ON (T>1)+2 GOTO 40,,90
90 LOCATE X,12:PRINT"  ":LOCATE X-3,13:PRINT" ＼  ／ ":LOCATE X-3,14:PRINT"_●■＿ "
100 IF INKEY$=CHR$(13) THEN RUN ELSE 100