home *** CD-ROM | disk | FTP | other *** search
/ Between Heaven & Hell 2 / BetweenHeavenHell.cdr / 100 / 47 / logprint.2 < prev    next >
Text File  |  1985-09-28  |  3KB  |  79 lines
  1. 10 REM LOGPRINT VER 791114
  2. 20 ERRSET 630,E1,E2
  3. 30 REM BY JOE KASSER G3ZCZ
  4. 40 REM COPYRIGHT SNOW MICRO SYSTEMS INC. 1979
  5. 50 GOSUB 5010\X=0\GOSUB5005\IFX=1THEN590
  6. 60 GOSUB 5050 \ REM GET DATA FILE NAME
  7. 70 INPUT"Scan/print whole log, by prefix or date (W, P or D ) ? ",A$
  8. 80 IFA$=""THEN70
  9. 90 P1=66 \ P2=1 \ Q3=0
  10. 100 IF A$(1,1)="W" THEN 110 ELSE 120
  11. 110 Q=3 \ GOTO 270
  12. 120 IF A$(1,1)="P" THEN 130 ELSE 150
  13. 130 INPUT"Which prefix ? ",A$\IFA$=""THEN130
  14. 140 Q=2 \ GOTO 270
  15. 150 IF A$(1,1)="D" THEN 160 ELSE 70
  16. 160 INPUT "Start Date ?  ",D7
  17. 170 INPUT "Start Month (1-12) ? ",D8
  18. 180 INPUT "Start Year (19xx) ?  ",D9 \ IF D9<1900 THEN 180
  19. 190 Q=1
  20. 200 INPUT "Do you only want one day ?  ",A$\IFA$=""THEN200
  21. 210 IF A$(1,1)="Y" THEN 260
  22. 220 INPUT"End day ?  ",D4\IFD4>31ORD4<1THEN220
  23. 230 INPUT"End Month (1-12)?  ",D5\IFD5>12ORD5<1THEN230
  24. 240 INPUT"End year (19xx) ?  ",D6 \ IF D6<1900 THEN 240
  25. 250 GOTO 270
  26. 260 D4 = D7 \ D5 = D8 \ D6 = D9
  27. 270 PRINT \ GOSUB 5040
  28. 280 D9=(D9-1900)*10000+D8*100+D7
  29. 290 D6=(D6-1900)*10000+D5*100+D4
  30. 300 IF N=0 THEN 610
  31. 310 GOSUB 5030
  32. 320 OPEN #1,L1$
  33. 330 FOR I=1 TO N
  34. 340 READ #1,&D1,&D2,&D3,T,F,C$,S,R,M$,P,&Q1,&Q2,X$
  35. 350 IF Q=1 THEN 440
  36. 360 IF Q=3 THEN 470
  37. 362 FORJ=1TOLEN(X$)\IFX$(J,J)<>"<"THEN363ELSEEXIT364
  38. 363 NEXT J \ GOTO 370
  39. 364 J3=J\ FOR J=J3+1 TO LEN(X$) \ IF X$(J,J)<>">" THEN365ELSEEXIT366
  40. 365 NEXT J \ GOTO 370
  41. 366 C2$=X$(J3+1,J-1)
  42. 368 IF LEN(C2$)<LEN(A$)THEN370
  43. 369 IF C2$(1,LEN(A$))=A$ THEN470
  44. 370 IF LEN(C$)<LEN(A$) THEN 430
  45. 380 FORJ=1TO LEN(C$)\ IF C$(J,J)="/"THENEXIT400
  46. 390 NEXT\ GOTO420
  47. 400 C1$=C$(J+1,LEN(C$)) \ IFLEN(C1$)=1 THEN 420
  48. 410 IF LEN(C1$)<LEN(A$)THEN420
  49. 415 IFC1$(1,LEN(A$))=A$ THEN 470
  50. 420 IF C$(1,LEN(A$))=A$ THEN 470
  51. 430 IF Q=2 THEN 480
  52. 440 D0=D3*10000+D2*100+D1
  53. 450 IF D0<D9 THEN 480
  54. 460 IF D0>D6 THEN EXIT 490
  55. 470 GOSUB 5020 \Q3=1\REM PRINT LINE OF DATAè480 NEXT
  56. 490 CLOSE#1
  57. 500 IF Q=2 THEN 510 ELSE 520
  58. 510 IFQ3=1THEN560ELSEPRINTA$," was not in the log"\PRINT
  59. 520 IF Q=1 THEN 530 ELSE 540
  60. 530 IF Q3=1 THEN 560 ELSE PRINT"No contacts on that date"\GOTO560
  61. 540 IF Q=3 THEN 550 ELSE 560
  62. 550 IF Q3=1THEN560ELSEPRINT"No contacts in the log book"
  63. 560 INPUT"Do you want log page ejected ? ",A$\IF A$="" THEN560
  64. 570 IF A$(1,1)="Y" THEN 580 ELSE 590
  65. 580 FOR I=P2 TO 62\PRINT#A\NEXT
  66. 590 INPUT"Again ? ",A$\IF A$=""THEN590
  67. 600 IFA$(1,1)="Y"THEN70ELSEIFA$(1,1)="N"THEN605ELSE590
  68. 605 GOTO 5045
  69. 610 PRINT"LOG BOOK IS EMPTY "
  70. 620 GOTO 605
  71. 630 ERRSET 630,E1,E2
  72. 640 IFE2=15THEN605
  73. 670 IF E1<>5560 THEN680 ELSE IF I>4 THEN 5570 ELSE 5565
  74. 680 IF E1<>5650 THEN 690 ELSE IF I>4 THEN 5670 ELSE 5660
  75. 690 IFE2<>8THEN 700 ELSE PRINT"HARD DISC ERROR"\GOTO605
  76. 700 IFE2<>7THEN 710 ELSE  PRINT"FILE ERROR"\GOTO605
  77. 710 PRINT"ERROR ",E2," AT LINE ",E1\GOTO605
  78. 5000 REM SUBROUTINE PACKAGE VER 790908
  79.