home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / 15_LINE.ZIP / EXAMPLE4.BAS < prev    next >
BASIC Source File  |  1993-09-05  |  1KB  |  64 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 610
  61. 610 END
  62.  
  63.  
  64.