程 序 源 代 码 |
|
|
| 霓虹广告 说明:该程序用ASC码中的光条符号组成英语单词"WELCOME"(欢迎)，然后从左到右，从右到左，从上到下，轮换方向使WELCOME一词显示和熄灭，15种颜色也轮流变换，就像城市建筑物上的霓虹灯广告牌一样。 |
5 CLS : LOCATE 10, 25: PRINT "霓虹广告牌" 10 SCREEN 8 20 FOR i = 1 TO 15 30 FOR m = 1 TO 2 40 IF m = 2 THEN a$ = " ": GOTO 55 45 a$ = CHR$(177) 50 COLOR i, 0 55 IF i MOD 3 = 0 THEN x1 = 71: x2 = 10: k = -1: GOTO 70 60 IF i MOD 3 = 2 THEN 80 65 x1 = 10: x2 = 71: k = 1 70 FOR x = x1 TO x2 STEP k 75 IF i MOD 3 = 2 THEN 90 80 FOR y = 5 TO 17 85 IF i MOD 3 = 2 THEN 65 90 IF x = 12 OR x = 13 OR x = 16 OR x = 17 THEN IF y < 12 OR y > 15 THEN 400 100 IF x = 14 OR x = 15 THEN IF y < 10 OR y > 13 THEN 400 110 IF x = 20 OR x = 21 OR x = 28 OR x = 29 OR x = 36 OR x = 37 THEN 400 120 IF x = 44 OR x = 45 OR x = 52 OR x = 53 OR x = 64 OR x = 65 THEN 400 130 IF x > 23 AND x < 28 THEN IF y > 6 AND y < 10 THEN 400 135 IF x > 23 AND x < 28 THEN IF y > 11 AND y < 16 THEN 400 140 IF x > 31 AND x < 36 THEN IF y < 16 THEN 400 150 IF x = 40 OR x = 41 THEN IF y > 6 AND y < 16 THEN 400 160 IF x = 42 OR x = 43 THEN IF y > 8 AND y < 12 THEN 400 170 IF x = 48 OR x = 49 THEN IF y > 6 AND y < 16 THEN 400 180 IF x = 56 OR x = 57 OR x = 60 OR x = 61 THEN IF y < 7 OR y > 10 THEN 400 185 IF x = 58 OR x = 59 THEN IF y < 9 OR y > 12 THEN 400 190 IF x > 67 AND x < 72 THEN IF y > 6 AND y < 10 OR y > 11 AND y < 16 THEN 400 300 COLOR i, 0 310 LOCATE y, x: PRINT a$ 400 IF i MOD 3 = 2 THEN 415 405 NEXT y 410 IF i MOD 3 = 2 THEN 425 415 NEXT x 420 IF i MOD 3 = 2 THEN 405 425 FOR t = 1 TO 20000: NEXT 430 NEXT m, i 440 END |
|
|