home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 8
/
CDASC08.ISO
/
VRAC
/
26_LINE.ZIP
/
EXAMPLE2.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-09-04
|
2KB
|
107 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
810 U = 1
820 PRINT "______________"
830 U = U + 1
840 IF U < 500 GOTO 820 ELSE 860
850 V = 1
860 PRINT "______________"
870 V = V + 1
880 IF V < 500 GOTO 860 ELSE 900
890 W = 1
900 PRINT "______________"
910 W = W + 1
920 IF W < 500 GOTO 900 ELSE 940
930 X = 1
940 PRINT "______________"
950 X = X + 1
960 IF X < 500 GOTO 940 ELSE 980
970 Y = 1
980 PRINT "______________"
990 Y = Y + 1
1000 IF Y < 500 GOTO 980 ELSE 1020
1010 Z = 1
1020 PRINT "_____________"
1030 Z = Z + 1
1040 IF Z < 500 GOTO 1020 ELSE 1050
1050 END