Back to Main page.
Back to Main tapes page.
10  REM:BY BILL MCFADDEN-COMPLETED 5-17-77
20  REM:MAKES SHORTWAVE LOG SHEETS
30  DIM A$[4]
40  PRINT "START,STOP--SET TYPE HEAD TO TOP OF NEXT PAGE--";
50  INPUT B,D
60  IF B>399 OR D>399 THEN 40
70  PRINT LIN(-1)
80  GOSUB 100
90  GOTO 180
100  PRINT  USING 410
110  PRINT  USING 340
120  PRINT  USING 350
130  PRINT  USING 370
140  PRINT  USING 380
150  PRINT  USING 390
160  PRINT  USING 360
170  RETURN 
180  FOR A=B TO D
190  FOR C=A*25-24 TO A*25
200  CONVERT C TO A$
210  PRINT  USING 400;A$
220  PRINT  USING 360
230  NEXT C
240  PRINT 
250  PRINT  USING 420
260  PRINT  USING 430
270  PRINT  USING 440
280  PRINT  USING 450
290  PRINT LIN(-3)
300  IF A=D THEN 330
310  GOSUB 100
320  NEXT A
330  STOP 
340  IMAGE4X,"!",8X,"!",15X,"!",17X,"!",3X,"!",10X,"!",19X,"!",17X,"!"
350  IMAGE"NO. !  DATE  !    STATION    !     TIME ON     !LOG!FREQUENCY ! RECEPTION QUALITY !     TIME OFF    !",10X,"REMARKS"
360  IMAGE130("-")
370  IMAGE4X,"!",8X,"!",15X,"!",17("-"),"!",3X,"!",10X,"!",19("-"),"!",17("-"),"!"
380  IMAGE4X,"!",8X,"!",15X,"! GMT !  PST  !AM !",3X,"!",10X,"!SIG!INT!NO !FAD!OVA! GMT !  PST  !AM !"
390  IMAGE4X,"!",8X,"!",15X,"!",5X,"!",7X,"!PM !",3X,"!",10X,"!STR!FER!ISE!ING!MER!",5X,"!",7X,"!PM !"
400  IMAGE4A,"!",8X,"!",15X,"!",5X,"!",3X,":",3(3X,"!"),10X,"!",5(3X,"!"),5X,"!",3X,":",2(3X,"!")
410  IMAGE10X,"YEAR ",6("-"),29X,"SHORTWAVE LOG",37X,"NAME ",20("-")
420  IMAGE"SIG STR: SIGNAL STRENGTH",5X,"! INT FER: INTERFERENCE/NOISE/FADING !",20X,"OVA MER: OVERALL MERIT"
430  IMAGE"(0) UNUSABLE  (3) GOOD",7X,"! (0) EXTREME      (3) MODERATE      ! (0) UNUSABLE [0-1 TOTAL OF OTHER FOUR] (3) FAIR [10-13]"
440  IMAGE"(1) POOR      (4) STRONG     ! (1) SEVERE",7X,"(4) SLIGHT",8X,"! (1) VERY POOR [2-5]",20X,"(4) GOOD [14-17]"
450  IMAGE"(2) FAIR      (5) VERY STRONG! (2) EXCESSIVE    (5) ABSENT",8X,"! (2) POOR [6-9]",25X,"(5) EXCELLENT [18-20]"
460  END