home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / vrac / vester_e.zip / LINETIME.BAS < prev    next >
BASIC Source File  |  1994-08-08  |  2KB  |  32 lines
  1. 10 CLEAR,32768!:KEY OFF:CLS
  2. 20 PRINT:PRINT:PRINT:PRINT:PRINT"                  LINE TIMING CALCULATION"
  3. 30 PRINT:PRINT"   This simple program calculates the Line Timing numbers for all of the"
  4. 40 PRINT"modes used in the K3BC SSTV system based on the correct line timing that"
  5. 50 PRINT"has been determined for the Scottie 1 mode. Since the Scottie 1 mode is"
  6. 60 PRINT"by far the most popular, you just copy a Scottie 1 picture, and note the"
  7. 70 PRINT"amount that the top of the picture leans. Count the pixels it is out of"
  8. 80 PRINT"square and multiply that number by 4.7. The resulting number is added to"
  9. 90 PRINT"LT3 if the top off the picture leans left, and subtracted from LT3 if the"
  10. 100 PRINT"picture leans right. Once you have the Scottie pictures perfectly square"
  11. 110 PRINT"by iterating this process, then fill in the value for LT3 below."
  12. 120 PRINT:PRINT:PRINT:INPUT"    What is the corrected value for LT3";LT3
  13. 130 PRINT:A3=38825!-LT3
  14. 140 A1=A3*(307/878):A2=A3*(614/878):A4=A3*(568/878):A5=A3*(768/878):A6=A3*(960/878)
  15. 150 A7=A3*(915/878):A77=A3*(464/878):A8=A3*(745/878):A9=A3*(546/878):A99=A3*(1024/878)
  16. 160 LT1=30270-A1:LT2=60540!-A2:LT4=7294-A4:LT5=42890!-A5:LT6=4487-A6:LT7=16795-A7
  17. 170 LT77=16930-A77:LT8=15860-A8:LT9=47959!-A9:LT99=13500-A99
  18. 175 PRINT:PRINT"   Based on this corrected value for LT3, the new values should be:":PRINT
  19. 180 PRINT"   LT1=" INT(LT1)
  20. 190 PRINT"   LT2=" INT(LT2)
  21. 200 PRINT"   LT3=" INT(LT3)
  22. 210 PRINT"   LT4=" INT(LT4)
  23. 220 PRINT"   LT5=" INT(LT5)
  24. 230 PRINT"   LT6=" INT(LT6)
  25. 240 PRINT"   LT7=" INT(LT7)
  26. 250 PRINT"   LT77=" INT(LT77)
  27. 260 PRINT"   LT8=" INT(LT8)
  28. 270 PRINT"   LT9=" INT(LT9)
  29. 280 PRINT"   LT99=" INT(LT99)
  30. 290 PRINT:PRINT"     Some minor additional adjustment on these values may be needed."
  31. 300 PRINT:PRINT:PRINT"                                                         K3BC"
  32.