home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / vrac / vester_e.zip / WXPIX.BAS < prev   
BASIC Source File  |  1994-08-08  |  5KB  |  92 lines
  1. 10 CLEAR,32768!:KEY OFF:CLS:A=0:B=0:H=0:M=0:D=0:Z=0
  2. 15 GOTO 1020
  3. 20 X$="system":KEY 10,X$
  4. 21 PRINT"                K3BC WEATHERFAX FOR VGA DISPLAY (640x480x16)":PRINT
  5. 22 PRINT:PRINT"   Copies WX satellite photos and maps in a 16 gray (or color) shade format."
  6. 23 PRINT"   SYSTEM CONFIGURATION can be viewed (and then modified) by LIST 1000-2000"
  7. 24 PRINT"   and after inserting your system parameters, just SAVE(type F4)WXPIX."
  8. 25 PRINT"   Pix is stored in RAMDISK as PIX.WX normally to facilitate fast scroll. Can"
  9. 26 PRINT"   scroll the Pix, SAVE it to disk or Print in Blk/wh (not gray shades)."
  10. 27 PRINT"      Can be configured for LSB or USB receiving.":PRINT:PRINT
  11. 38 PRINT:PRINT:PRINT
  12. 39 INPUT"      Do you want to copy now or later (N or L)?";X$
  13. 40 IF X$="N" GOTO 90
  14. 45 IF X$="n" GOTO 90
  15. 50 IF X$="L" GOTO 65
  16. 55 IF X$="l" GOTO 65
  17. 60 GOTO 39
  18. 65 PRINT:PRINT"      Now to choose your starting time----":PRINT
  19. 70 PRINT:INPUT"  What HOUR would you like to start?";H
  20. 75 A=1
  21. 80 INPUT"           and MINUTES after the hour?";M
  22. 83 IF P$="Y" THEN D=1
  23. 84 IF P$="y" THEN D=1
  24. 85 T=0
  25. 90 PRINT:INPUT"..MINUTES of copy time (Default=14 min.)";T
  26. 95 IF T=0 THEN T=1680/120
  27. 110 B%=H
  28. 140 A%=M*256+D:D%=(120*T)
  29. 150 PRINT:INPUT"     Do you want AUTO-SYNCHRONIZING (Y or N)";S$
  30. 160 IF S$="Y" THEN B=256
  31. 165 IF S$="y" THEN B=256
  32. 167 C%=A+B
  33. 170 DEF SEG=&H5F00:PRINT:PRINT"   ...Program loading. Check for LSB tuning."
  34. 175 IF B=256 THEN PRINT"     .......You chose AUTO-SYNCH......."
  35. 176 BLOAD "3vga.asm",&H100:POKE &H316,0
  36. 177 LTB=INT(LT/256):LTA=LT-256*LTB:POKE &H4DE,LTA:POKE &H4DF,LTB
  37. 178 POKE &H175,GT:POKE &H4FD,SW
  38. 179 IF SB=1 THEN POKE &H19E,114:POKE &H1BA,114
  39. 180 IF SB=2 THEN POKE &H245,144:POKE &H246,144
  40. 181 IF CO=2 THEN POKE &H1D8,2:POKE &H1E5,2:POKE &H22C,2:POKE &H3C0,2:POKE &H723,2
  41. 182 IF TT=0 THEN POKE &H1D3,1
  42. 183 IF VC=2 THEN POKE &H15A,16
  43. 190 POKE &H235,34:POKE &H23A,34:POKE &H23D,34 'white count--increase=whiter
  44. 198 POKE &H7F0,ASC(DR$)  'RAMDISK drive-see line 1060 for designation
  45. 200 CLS:PRINT"   If FAX audio is present and you chose to copy NOW, press 'G' to start."
  46. 210 PRINT"After copy is complete, press Q or V to view and scroll with the arrows."
  47. 215 PRINT"Faster scroll with (U)p and (D)own. Page Up , Page Down and Home have"
  48. 220 PRINT"their usual function. Hit 1 thru 4 for different color palettes and hit G"
  49. 222 PRINT"to call up 16 Gray shades. Hit B to blank the whole screen."
  50. 225 PRINT"Hit S to Shrink pix vertically and X to e(X)pand it back. The pix copied"
  51. 230 PRINT"is contained in a file, 'PIX.WX', in the RAM-DISK D: and can be COPYed"
  52. 235 PRINT"to hard or floppy disk. 'SEEPIX.BAS' is used for view, scroll and (P)rint."
  53. 236 PRINT"You can Halt copying at any time by hitting H. Hit S while copying to Skip"
  54. 237 PRINT"SYNC to the left by 1/7 screen width. If you chose AUTO-SYNC and the"
  55. 238 PRINT"SYNC sigs don't occur, hit SPACEBAR to bypass AUTO-SYNC."
  56. 240 K=&H100:CALL K(A%,B%,C%,D%)
  57. 245 DEF SEG=&H4F00
  58. 246 BLOAD "vu960a.asm",&H100
  59. 270 A$=DR$+":pix.wx"
  60. 275 IF VC=2 THEN POKE 408,16
  61. 280 K=&H100:CALL K(CX%,DX%,A$)
  62. 290 PRINT:PRINT:PRINT:INPUT"    Would you like to SAVE the PIX -Yes or No (Default=N)";Z$
  63. 300 IF Z$="" THEN GOTO 320
  64. 310 IF Z$="y" THEN LI=1736:GOTO 330
  65. 320 GOTO 450
  66. 330 BLOAD "savepix.asm",&H100
  67. 340 PRINT:PRINT:PRINT:INPUT"    How many lines would you like to save (Default=All)";LI
  68. 350 IF LI=0 THEN LI=1736
  69. 360 LIB=INT(LI/256):LIA=LI-256*LIB:POKE &H18B,LIA:POKE &H18C,LIB
  70. 370 DXB=INT(DX%/256):DXA=DX%-256*DXB:POKE &H163,DXA:POKE &H164,DXB
  71. 380 CXB=INT(CX%/256):CXA=CX%-256*CXB:POKE &H166,CXA:POKE &H167,CXB
  72. 390 POKE &H192,224:POKE &H193,1:POKE &H1B9,224:POKE &H1BA,1
  73. 400 PRINT:PRINT:PRINT:INPUT"    What File Name (Program will add Suffix---.960)";NF$
  74. 410 IF NF$="" THEN GOTO 400
  75. 420 NF$=NF$+".960"
  76. 430 OF$=DR$+":pix.wx"
  77. 440 K=&H100:CALL K(A%,B%,OF$,NF$)
  78. 450 PRINT:PRINT:PRINT:PRINT"         HIT F2 TO COPY ANOTHER PIX---HIT F10 and ENTER TO GOTO DOS"
  79. 500 END
  80. 1000    '                      SYSTEM CONFIGURATION
  81. 1010    '   xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  82. 1020 LT=13500  'Line Timing-reduce if pix top leans right & vice versa
  83. 1030 CO=1      'CO=1 is COM1----CO=2 is COM2
  84. 1040 TT=1      'Tone Tick-audio cue--TT=0 is OFF--TT=1 is ON
  85. 1050 GT=213    'Gross Timer-controls SYNC lock-lower value for slower computers
  86. 1055           'If too low gives a larger dead space in NON-SYNCed pix overlap
  87. 1060 DR$="d"   'RAMDISK drive designation
  88. 1070 SB=1      'Sideband to tune to--1=USB---2=LSB
  89. 1080 VC=1      'Video Card--1=VGA(640x480)---2=EGA(640x350)
  90. 1090 SW=30     'SYNC capture window (microsec). Larger for slower machines
  91. 2010 GOTO 20
  92.