|
10 WIDTH "lpt1:",255
20 LPRINT "1 2 3 4 5 6 7 8 9 10 11 12";
30 LPRINT "13 14 15 16 17 18 19 20 21 22 23 24"
40 FOR J=7 TO 0 STEP-1
50 LPRINT CHR$(27) "*" CHR$(33) CHR$(18) CHR$(0);
60 FOR I=1 TO 18:LPRINT CHR$(2^J) CHR$(0) CHR$(0);:NEXT I
70 LPRINT " ";:NEXT J
80 FOR J=7 TO 0 STEP-1
90 LPRINT CHR$(27) "*" CHR$(33) CHR$(18) CHR$(0);
100 FOR I=1 TO 18:LPRINT CHR$(0) CHR$(2^J) CHR$(0);:NEXT I
110 LPRINT " ";:NEXT J
120 FOR J=7 TO 0 STEP-1
130 LPRINT CHR$(27) "*" CHR$(33) CHR$(18) CHR$(0);
140 FOR I=1 TO 18:LPRINT CHR$(0) CHR$(0) CHR$(2^J);:NEXT I
150 LPRINT " ";:NEXT J
爱牛网络公司拥有十三年网络营销推广经验的北京网络营销公司,专业的网络营销团队为您提供网络营销策划,网络推广,网络优化,网络营销外包,网站推广,网络营销推广公司。服务电话13552895708
|
