匿名使用者2014.12.12 回答

TO P

PD FD 50 PD

END

TO B

PU FD 50 PD

END

TO CF ：X

IF EMPTY？ ：X THEN STOP

MAKE “E FIRST ：X

MAKE ”R 6-：E

REPEAT ：R［P］

REPEAT  1［B］

REPEAT 6-：R-1［P］

PU BK 300 LT 90 FD 50 RT 90 PD

MAKE “X BF ：X

CF ：X

END

TO YUAN

SETPC 0 PD （STAMPOVAL 20 20 ”TRUE）

END

TO UYAN

SETPC 15 PD （STAMPOVAL 20 20 “TRUE）

END

TO CFX ：X

PU SETXY ［-150 -100］PD

STAMPRECT 300 200 PU FD 150 RT 90 FD 300 LT 180

CF ：X PU FD 300 RT 90 FD 175 RT 90 FD 25 YUAN

END

TO TP ：X

REPEAT ：X*10［YUAN WAIT 1 UYAN PU FD 5 PD ］SETPC 0

END

TO CYUE ：X

MAKE ”Q FIRST ：X MAKE “W ITEM 2 ：X MAKE ”E LAST ：X

IF ：Q=1 THEN RT 90 TP 1 ELSE TP ：Q-1 RT 90 TP 1

IF ：Q=：W THEN TP 1

IF ：W>：Q THEN LT 90 MAKE “C ：W-：Q TP ：C RT 90 TP 1

IF ：Q>：W THEN RT 90 MAKE ”C ：Q-：W TP ：C LT 90 TP 1

IF ：W=：E THEN TP 1

IF ：E>：W THEN LT 90 MAKE “C ：E-：W TP ：C RT 90 TP 1

IF ：W>：E THEN RT 90 MAKE ”C ：W-：E TP ：C LT 90 TP 1

LT 180

END

TO GAME ：X

MAKE “Z 0

MAKE ”V ：X

WHILE ［NOT EMPTY？ ：V］［MAKE “Z ：Z+1 MAKE ”V BF ：V］

IF ：Z>3 THEN PR ［引數數量不能多於3個］ STOP

CFX ：X

CYUE ：X

END

這是一個滾球遊戲，

要以個表（如［1 2 3 ］）

是動態的