13 lines
185 B
QBasic
13 lines
185 B
QBasic
PROGRAM:PIE
|
|
01 VM 3
|
|
02 FOR C=1 TO 6
|
|
03 B=(C-1)*60:E=C*60-1
|
|
04 FOR R=1 TO 23
|
|
05 ARC 29,42,R,R,B,E,C:NEXT
|
|
06
|
|
07 FOR R=26 TO 28
|
|
08 ARC 29,42,R,R,B,E,C+8:NEXT
|
|
09 NEXT
|
|
10 GOTO 10
|
|
#
|