home *** CD-ROM | disk | FTP | other *** search
/ World of Ham Radio 1997 / WOHR97_AmSoft_(1997-02-01).iso / basic / logconv.bas < prev    next >
BASIC Source File  |  1997-02-01  |  768b  |  18 lines
  1. 10 WIDTH 80:PRINT "LOG CONVERSION PROGRAM 2.0 (C) JOE KASSER G3ZCZ 1985"
  2. 20 REM CONVERTS CONTEST LOG TO STANDARD LOG
  3. 30 INPUT "WHAT IS THE LOG NAME ";L$
  4. 40 CLS:N=1
  5. 50 OPEN L$+".$$$" FOR OUTPUT AS #2
  6. 60 OPEN L$+".LOG" FOR INPUT AS #1
  7. 70 IF EOF(1) THEN 160
  8. 80 INPUT#1,D$,T$,B$,C$,R$,S$,M$,P$,QS$,QR$,X$
  9. 110 R$=LEFT$(X$,2):N$=STR$(N):N$=MID$(N$,2)
  10. 120 X$=MID$(X$,3,LEN(X$)):X$=N$+"-"+X$:N=N+1
  11. 130 PRINT#2, D$;",";T$;",";B$;",";C$;",";R$;",";S$;",";M$;",";P$;",";QS$;",";QR$;",";X$
  12. 140 PRINT D$;",";T$;",";B$;",";C$;",";R$;",";S$;",";M$;",";P$;",";QS$;",";QR$;",";X$
  13. 150 GOTO 70
  14. 160 CLOSE#1 : CLOSE#2
  15. 170 NAME L$+".LOG" AS L$+".RUN"
  16. 180 NAME L$+".$$$" AS L$+".LOG"
  17. 190 END
  18.