home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / 10_LINE.ZIP / EXAMPLE3.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-09-05  |  879 b   |  43 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 410
  41. 410 END
  42.  
  43.