home *** CD-ROM | disk | FTP | other *** search
/ Power Programming / powerprogramming1994.iso / progtool / hamradio / mininec3.arc / MNPRE.BAS < prev    next >
BASIC Source File  |  1985-12-04  |  1KB  |  36 lines
  1. 10 REM $TITLE: 'IGNOMINI        /E'
  2. 20 DEFINT I-N
  3. 30 MAXSEGS=75
  4. 40 ON ERROR GOTO 320
  5. 50 INPUT "NEC Dataset Name (.NEC)";F$:F$=F$+".NEC"
  6. 60 OPEN "MININEC.INP" AS #2 LEN=30
  7. 70 FIELD #2,2 AS S$,4 AS X1$,4 AS Y1$,4 AS Z1$,4 AS X2$,4 AS Y2$,4 AS Z2$,4 AS R$
  8. 80 PUT #2  'Dummy first record for no. of wires
  9. 90 OPEN F$ FOR INPUT AS #1
  10. 100 ON ERROR GOTO 0
  11. 110 IF EOF(1) THEN 300
  12. 120 LINE INPUT #1,L$
  13. 130 IF LEFT$(L$,2)<>"GW" THEN 110
  14. 132 PRINT L$
  15. 140 I=3-(MID$(L$,3,1)=","):J=INSTR(I,L$,",")
  16. 150 GOSUB 230:IX=X:LSET S$=MKI$(IX)
  17. 160 NSEGS=NSEGS+IX:IF NSEGS>MAXSEGS THEN 280
  18. 170 NWIRES=NWIRES+1
  19. 180 GOSUB 230:LSET X1$=MKS$(X):GOSUB 230:LSET Y1$=MKS$(X):GOSUB 230:LSET Z1$=MKS$(X)
  20. 190 GOSUB 230:LSET X2$=MKS$(X):GOSUB 230:LSET Y2$=MKS$(X):GOSUB 230:LSET Z2$=MKS$(X)
  21. 200 I=J+1:R=VAL(MID$(L$,I)):IF R>0 THEN LSET R$=MKS$(R) ELSE 290
  22. 210 PUT #2
  23. 220 GOTO 110
  24. 230 I=J+1:J=INSTR(I,L$,","):IF J THEN X=VAL(MID$(L$,I,J-I)):RETURN
  25. 240 PRINT"Not enough fields in this GW card."
  26. 250 CLOSE:KILL "MININEC.INP"
  27. 260 PRINT:PRINT"Any key for Initial Options"
  28. 270 WHILE INKEY$="":WEND:SYSTEM
  29. 280 PRINT"Segment limit exceeded ("MAXSEGS")":GOTO 250
  30. 290 PRINT"Wire radius must be positive number.":GOTO 250
  31. 300 LSET S$=MKI$(NWIRES):PUT #2,1
  32. 310 CLOSE:SYSTEM
  33. 320 PRINT F$" file not found. <Ctrl-Break> to exit.":PRINT
  34. 330 CLOSE:KILL "MININEC.INP"
  35. 340 RESUME 50
  36.