home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / 20_LINE.ZIP / EXAMPLE5.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-09-05  |  1.7 KB  |  82 lines
  1. 10 A = 1
  2. 20 PRINT "--------------"
  3. 30 A = A + 1
  4. 40 IF A < 500 GOTO 20 ELSE 60
  5. 50 B = 1
  6. 60 PRINT "--------------"
  7. 70 B = B + 1
  8. 80 IF B < 500 GOTO 60 ELSE 100
  9. 90 C = 1
  10. 100 PRINT "--------------"
  11. 110 C = C + 1
  12. 120 IF C < 500 GOTO 100 ELSE 140
  13. 130 D = 1
  14. 140 PRINT "--------------"
  15. 150 D = D + 1
  16. 160 IF D < 500 GOTO 140 ELSE 180
  17. 170 E = 1
  18. 180 PRINT "______________"
  19. 190 E = E + 1
  20. 200 IF E < 500 GOTO 180 ELSE 210
  21. 210 F = 1
  22. 220 PRINT "______________"
  23. 230 F = F + 1
  24. 240 IF F < 500 GOTO 220 ELSE 260
  25. 250 G = 1
  26. 260 PRINT "______________"
  27. 270 G = G + 1
  28. 280 IF G < 500 GOTO 260 ELSE 300
  29. 290 H = 1
  30. 300 PRINT "______________"
  31. 310 H = H + 1
  32. 320 IF H < 500 GOTO 300 ELSE 340
  33. 330 I = 1
  34. 340 PRINT "______________"
  35. 350 I = I + 1
  36. 360 IF I < 500 GOTO 340 ELSE 380
  37. 370 J = 1
  38. 380 PRINT "______________"
  39. 390 J = J + 1
  40. 400 IF J < 500 GOTO 380 ELSE 420
  41. 410 K = 1
  42. 420 PRINT "______________"
  43. 430 K = K + 1
  44. 440 IF K < 500 GOTO 420 ELSE 460
  45. 450 L = 1
  46. 460 PRINT "--------------"
  47. 470 L = L + 1
  48. 480 IF L < 500 GOTO 460 ELSE 500
  49. 490 M = 1
  50. 500 PRINT "______________"
  51. 510 M = M + 1
  52. 520 IF M < 500 GOTO 500 ELSE 540
  53. 530 N = 1
  54. 540 PRINT "______________"
  55. 550 N = N + 1
  56. 560 IF N < 500 GOTO 540 ELSE 580
  57. 570 O = 1
  58. 580 PRINT "______________"
  59. 590 O = O + 1
  60. 600 IF O < 500 GOTO 580 ELSE 620
  61. 610 P = 1
  62. 620 PRINT "______________"
  63. 630 P = P + 1
  64. 640 IF P < 500 GOTO 620 ELSE 660
  65. 650 Q = 1
  66. 660 PRINT "______________"
  67. 670 Q = Q + 1
  68. 680 IF Q < 500 GOTO 660 ELSE 700
  69. 690 R = 1
  70. 700 PRINT "______________"
  71. 710 R = R + 1
  72. 720 IF R < 500 GOTO 700 ELSE 740
  73. 730 S = 1
  74. 740 PRINT "______________"
  75. 750 S = S + 1
  76. 760 IF S < 500 GOTO 740 ELSE 780
  77. 770 T = 1
  78. 780 PRINT "______________"
  79. 790 T = T + 1
  80. 800 IF T < 500 GOTO 780 ELSE 820
  81.  
  82.