home *** CD-ROM | disk | FTP | other *** search
/ Antennas / Antennas_CD-ROM_Walnut_Creek_September_1996.iso / mininec / mn3basic / lmn9.clp < prev    next >
Text File  |  1996-06-30  |  972b  |  32 lines
  1. 20000 REM ***** CYCLE LOADS *****
  2. 20010 INPUT "NUMBER OF LOADS       "; NL
  3. 20020 IF NL <= ML THEN 20050
  4. 20030 PRINT "NUMBER OF LOADS EXCEEDS DIMENSION..."
  5. 20040 GOTO 20010
  6. 20050 IF O$ > "C" THEN PRINT #3, "NUMBER OF LOADS"; NL
  7. 20060 IF NL < 1 THEN 20700
  8. 20070 A$ = "PULSE NO."
  9. 20080 FOR I = 1 TO NL
  10. 20090 PRINT
  11. 20100 PRINT "LOAD NO. "; I; ":"
  12. 20110 PRINT A$;
  13. 20120 INPUT LP(I)
  14. 20130 IF LP(I) > N THEN PRINT "PULSE NUMBER EXCEEDS NUMBER OF PULSES...": GOTO 14600
  15. 20140 NEXT I
  16. 20150 FLG = 0: L$ = "N"
  17. 20500 INPUT "INITIAL LOAD, INCREMENT, NO. STEPS"; LPL, LPI, LPS
  18. 20510 FOR LPV = LPL TO LPL + LPI * LPS STEP LPI
  19. 20520 FOR I = 1 TO NL
  20. 20530 LA(2, I, 1) = LPV
  21. 20540 LA(1, I, 1) = 0
  22. 20550 IF O$ > "C" THEN PRINT #3, A$; ": "; LP(I); ","; LA(1, I, 1); ","; LA(2, I, 1)
  23. 20560 NEXT I
  24. 20570 IF CC$ = "Y" THEN GOSUB 4960
  25. 20580 GOSUB 6200
  26. 20590 IF S$ = "Y" THEN GOSUB 5640
  27. 20600 IF SP$ = "Y" THEN GOSUB 6730
  28. 20610 FLG = 0
  29. 20620 NEXT LPV
  30. 20700 RETURN
  31.  
  32.