home *** CD-ROM | disk | FTP | other *** search
/ Between Heaven & Hell 2 / BetweenHeavenHell.cdr / 100 / 47 / loglib.2 < prev    next >
Text File  |  1985-09-28  |  3KB  |  70 lines
  1. 5000 REM SUBROUTINE PACKAGE VER 791008
  2. 5005 GOTO 5550 \ REM GET STNDATA
  3. 5010 GOTO 5060 \ REM SET UP VARIABLES & CONSTANTS
  4. 5015 GOTO 5180 \ REM PRINT TITLE LINE
  5. 5020 GOTO 5110 \ REM PRINT LINE OF DATA
  6. 5025 GOTO 5600 \ REM READ ENTRY FROM DISC
  7. 5030 GOTO 5500 \ REM PRINT HEADING
  8. 5035 GOTO 5620 \ REM WRITE ENTRY TO  DISC
  9. 5040 GOTO 5230 \ DETERMINE OUTPUT DEVICE
  10. 5045 GOTO 5640 \ REM RETURN TO SYSTEM
  11. 5050 GOTO 5260 \ REM DETERMINE NAME OF LOG FILE & GET N
  12. 5060 DIMX$(64) \ P1=66\P2=1
  13. 5065 DIMM1$(36)\M1$="JanFebMarAprMayJunJulAugSepOctNovDec"
  14. 5070 T0 = 9 \ T1=T0+ 4 \ T2= T1+ 3 \ T3 = T2 +3
  15. 5075 T4=T3+10\T5=T4+10\T6=T5+4\T7=T6+5\T8=T7+4\T9=T8+6
  16. 5080 DEF FNT$(V)
  17. 5085 V1=INT(V/1000)\V2=INT((V-V1*1000)/100)
  18. 5090 V3=INT((V-V1*1000-V2*100)/10)\V4=INT(V-V1*1000-V2*100-V3*10)
  19. 5095 RETURN CHR$(48+V1)+CHR$(48+V2)+CHR$(48+V3)+CHR$(48+V4)
  20. 5096 FNEND
  21. 5100 RETURN
  22. 5110 PRINT #A,%5I,I,TAB(6),%2I,D1,TAB(T0),M1$((D2-1)*3+1,(D2-1)*3+3),
  23. 5112 PRINT #A,TAB(T1),%2I,D3,TAB(T2),
  24. 5115 T$=FNT$(T)
  25. 5120 PRINT #A,T$,TAB(T3),%Z8F3,F,TAB(T4),C$,TAB(T5),%3I,S,TAB(T6),
  26. 5130 PRINT #A,%3I,R,TAB(T7),M$,TAB(T8),%4I,P,TAB(T9),
  27. 5140 IF Q1=1 THEN PRINT#A,"S", ELSE PRINT#A,"-",
  28. 5150 IF Q2=1 THEN PRINT#A,"R", ELSE PRINT#A,"-",
  29. 5160 PRINT#A,"  ",X$
  30. 5165 P1=P1-1\IFP1>2THEN5170 ELSE P1=66\P2=P2+1\!#A\!#A"-"\!#A\GOSUB5500
  31. 5170 RETURN
  32. 5180 PRINT#A,"QSO #",TAB(5),"   DATE",TAB(T1+3),"TIME",TAB(T3),
  33. 5190 PRINT#A," BAND",TAB(T4),"STATION",TAB(T5)," S",TAB(T6),
  34. 5200 PRINT#A," R",TAB(T7-1),"MODE",TAB(T8)," PWR",TAB(T9),
  35. 5210 PRINT#A,"QSL  COMMENTS"
  36. 5220 RETURN
  37. 5230 INPUT"Which output device (0-7) ? ",A
  38. 5240 IF A>7 OR A<0 THEN 5230
  39. 5250 RETURN
  40. 5260 INPUT"What is the name of the log file ? ",L$\IFL$=""THEN5260
  41. 5270 INPUT"Which drive is it on ? ",D$\IFD$=""THEN 5270
  42. 5275 IF LEN(D$)>1THEN5270
  43. 5310 L1$=L$+","+D$ \ REM LOG FILE
  44. 5320 L2$="*"+L$+","+D$
  45. 5325 IF FILE(L1$)=3 THEN 5327 ELSEPRINT"LOG FILE IS NOT ON DISC"\GOTO5045
  46. 5327 IF FILE(L2$)=3 THEN 5330 ELSEPRINT"LOG POINTER FILE ERROR"\GOTO 5045
  47. 5330 OPEN#2,L2$
  48. 5340 READ#2,N
  49. 5350 CLOSE#2
  50. 5360 RETURN
  51. 5500 PRINT#A\PRINT#A,"STATION LOG  ",C9$,TAB(32),"PAGE",P2,
  52. 5510 PRINT#A,TAB(48),"FILE ",L1$\P1=P1-4\GOTO 5180
  53. 5550 X1$="STNDATA,"
  54. 5555 FOR I=1 TO 4\ I$=STR$(I) \ X$=X1$+I$(2,2)
  55. 5560 IF FILE(X$)=3 THEN EXIT 5590è5565 NEXT
  56. 5570 PRINT"STNDATA file is not on system"\ X=1\RETURN
  57. 5590 OPEN#2,X$ \ READ#2,L$,C9$ \ CLOSE#2
  58. 5595 RETURN
  59. 5600 READ #0,&D1,&D2,&D3,T,F,C$,S,R,M$,P,&Q1,&Q2,X$
  60. 5610 RETURN
  61. 5620 WRITE#1,&D1,&D2,&D3,T,F,C$,S,R,M$,P,&Q1,&Q2,X$
  62. 5630 RETURN
  63. 5640 FOR I=1 TO 4
  64. 5650 IF FILE ("SYSTEM,"+STR$(I))=2 THEN EXIT 5690
  65. 5660 NEXT
  66. 5670 PRINT"put the SYSTEM disc in the computer, then hit 'RETURN'"
  67. 5680 INPUT "",A$ \ GOTO 5640
  68. 5690 CHAIN "SYSTEM,"+STR$(I)
  69. 5695 REM ERROR  E1<>5650 THEN +10 ELSE I>4 THEN 5670 ELSE 5660
  70.