home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
High Voltage Shareware
/
high1.zip
/
high1
/
DIR16
/
20_LINE.ZIP
/
EXAMPLE5.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-09-05
|
2KB
|
82 lines
10 A = 1
20 PRINT "--------------"
30 A = A + 1
40 IF A < 500 GOTO 20 ELSE 60
50 B = 1
60 PRINT "--------------"
70 B = B + 1
80 IF B < 500 GOTO 60 ELSE 100
90 C = 1
100 PRINT "--------------"
110 C = C + 1
120 IF C < 500 GOTO 100 ELSE 140
130 D = 1
140 PRINT "--------------"
150 D = D + 1
160 IF D < 500 GOTO 140 ELSE 180
170 E = 1
180 PRINT "______________"
190 E = E + 1
200 IF E < 500 GOTO 180 ELSE 210
210 F = 1
220 PRINT "______________"
230 F = F + 1
240 IF F < 500 GOTO 220 ELSE 260
250 G = 1
260 PRINT "______________"
270 G = G + 1
280 IF G < 500 GOTO 260 ELSE 300
290 H = 1
300 PRINT "______________"
310 H = H + 1
320 IF H < 500 GOTO 300 ELSE 340
330 I = 1
340 PRINT "______________"
350 I = I + 1
360 IF I < 500 GOTO 340 ELSE 380
370 J = 1
380 PRINT "______________"
390 J = J + 1
400 IF J < 500 GOTO 380 ELSE 420
410 K = 1
420 PRINT "______________"
430 K = K + 1
440 IF K < 500 GOTO 420 ELSE 460
450 L = 1
460 PRINT "--------------"
470 L = L + 1
480 IF L < 500 GOTO 460 ELSE 500
490 M = 1
500 PRINT "______________"
510 M = M + 1
520 IF M < 500 GOTO 500 ELSE 540
530 N = 1
540 PRINT "______________"
550 N = N + 1
560 IF N < 500 GOTO 540 ELSE 580
570 O = 1
580 PRINT "______________"
590 O = O + 1
600 IF O < 500 GOTO 580 ELSE 620
610 P = 1
620 PRINT "______________"
630 P = P + 1
640 IF P < 500 GOTO 620 ELSE 660
650 Q = 1
660 PRINT "______________"
670 Q = Q + 1
680 IF Q < 500 GOTO 660 ELSE 700
690 R = 1
700 PRINT "______________"
710 R = R + 1
720 IF R < 500 GOTO 700 ELSE 740
730 S = 1
740 PRINT "______________"
750 S = S + 1
760 IF S < 500 GOTO 740 ELSE 780
770 T = 1
780 PRINT "______________"
790 T = T + 1
800 IF T < 500 GOTO 780 ELSE 820