雨帆写的basic代码的花纹,仅仅写了两个,余下的今后再写。
40 REM花纹一
45 CLS:BOX 35,12,125,68
50 BOX 35,12,37,68,1:BOX 125,68,123,12,1
55 BOX 32,2,128,12
60 BOX 32,68,128,78
70 BOX 29,3,32,11,1:BOX 29,69,32,77,1
75 BOX 128,3,131,11,1:BOX 128,69,131,77,1
85 BOX 131,4,133,10:BOX 131,70,133,76
90 BOX 29,4,27,10:BOX 29,70,27,76
100 FOR I=14 TO 66 STEP 2
110 DRAW 36,I,0
120 DRAW 124,I,0
130 NEXT I
140 RETURN
150 REM花纹一完毕
*********************************************************************************
300 REM花纹二
310 CLS
320 LINE 0,10,161,10,1INE 0,69,161,69,1INE 0,0,161,0,1INE 0,80,161,80,1
330 LINE 1,0,1,81,1:LINE 159,0,159,81,1
340 FOR I=5 TO 160 STEP 10
350 LINE I,0,I,6:LINE I,73,I,81:NEXT I
360 FOR I=10 TO 160 STEP 10:LINE I,10,I,4:LINE I,69,I,75:NEXT I
370 FOR I=2 TO 160 STEP 10:LINE I,7,I+6,7:LINE I,72,I+6,72:NEXT I
380 FOR I=7 TO 160 STEP 10:LINE I,3,I+6,3:LINE I,76,I+6,76:NEXT I:RETURN
400 REM花纹二完毕
[此贴子已经被作者于2005-1-15 18:01:03编辑过]
|