home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / vrac / vester_e.zip / WXMAP.BAS < prev    next >
BASIC Source File  |  1994-08-08  |  4KB  |  88 lines
  1. 10 CLEAR,32768!:KEY OFF:CLS:A=0:B=0:H=0:M=0:D=0
  2. 14 X$="system":KEY 10,X$
  3. 15 GOTO 1000
  4. 20 PRINT"                    K3BC WEATHERFAX for IBM and CLONES"
  5. 30 PRINT"                           CGA, VGA, and AT&T":PRINT:PRINT
  6. 40 PRINT"      Map Storage in memory for Display. Can Print later after pix"
  7. 50 PRINT"        is centered by Scrolling commands or SAVE to Disk.":PRINT
  8. 60 PRINT"    User configured for a particular computer by filling in your SYSTEM"
  9. 70 PRINT"    CONFIGURATION. LOAD this Basic program and then  LIST 1000-2000 to"
  10. 80 PRINT"    see the CONFIGURATION. The COM port and Video Card are selected."
  11. 90 PRINT"    The line timing should be very close but if the map is slanted,"
  12. 100 PRINT"    change LT as noted and rerun. SAVE the final program with your"
  13. 110 PRINT"    machine's own CONFIGURATION."
  14. 240 PRINT:PRINT:PRINT:INPUT"      Do you want to copy now or later (N or L)?";X$
  15. 250 IF X$="N" GOTO 350
  16. 260 IF X$="n" GOTO 350
  17. 270 IF X$="L" GOTO 300
  18. 280 IF X$="l" GOTO 300
  19. 290 GOTO 240
  20. 300 PRINT:PRINT"      Now to choose your starting time----":PRINT
  21. 310 PRINT:INPUT"  What HOUR would you like to start?";H
  22. 320 A=1
  23. 330 INPUT"           and MINUTES after the hour?";M
  24. 340 T=0
  25. 350 PRINT:INPUT"..MINUTES of copy time (Default=14 min;max=31)";T
  26. 360 IF T=0 THEN T=1680/120
  27. 370 B%=H
  28. 380 A%=M*256+D:D%=(120*T):IF D%>3735 THEN D%=3735
  29. 390 PRINT:INPUT"     Do you want AUTO-SYNCHRONIZING (Y or N)";S$
  30. 400 IF S$="Y" THEN B=256
  31. 410 IF S$="y" THEN B=256
  32. 420 C%=A+B
  33. 430 DEF SEG=&H4700:PRINT:PRINT"   ...Program loading. Check for LSB tuning."
  34. 440 IF B=256 THEN PRINT"     .......You chose AUTO-SYNCH......."
  35. 450 IF VC=1 THEN BLOAD "easicgab.asm",&H100
  36. 460 IF VC=2 THEN BLOAD "easivgab.asm",&H100
  37. 470 IF VC=3 THEN BLOAD "easiattb.asm",&H100
  38. 475 POKE &H175,GT:POKE &H633,SW
  39. 476 IF TT=0 THEN POKE &H1CF,1
  40. 480 IF CO=1 THEN GOTO 500
  41. 490 POKE &H1E2,2:POKE &H1D6,2:POKE &H57C,2
  42. 500 IF V=2 THEN POKE &H22A,144:POKE &H408,97
  43. 510 IF V=1 THEN POKE &H22A,245:POKE &H408,138
  44. 520 LTB=INT(LT/256):LTA=LT-256*LTB
  45. 530 POKE &H614,LTA:POKE &H615,LTB
  46. 540 CLS:PRINT"   If FAX audio is present and you chose to copy NOW, press 'G' to start."
  47. 550 PRINT"After copy is complete, press U(up), D(down), L(left), and R(right) to"
  48. 560 PRINT"scroll screen over map. To Shrink CGA map, hit'S'(shrink) then'D'(display). You"
  49. 570 PRINT"can scroll (U)p and (D)own. To return hit X(expand) then D(display). Press 'P'"
  50. 580 PRINT"to Print,'G'to copy new map, and 'Y' to copy with Synchronizing. When you want"
  51. 590 PRINT"to terminate copying or printing press 'H' to HALT and return to scroll mode."
  52. 600 PRINT"Press 'Q' to QUIT back to BASIC where you can SAVE the map. To return to"
  53. 605 PRINT"the DOS prompt, hit F10 and then RETURN. If you chose AUTO-SYNC and"
  54. 610 PRINT"the SYNC did not occur, hit SPACEBAR to bypass AUTO-SYNC."
  55. 620 K=&H100:CALL K(A%,B%,C%,D%)
  56. 630 SCREEN 0
  57. 640 INPUT "    Do you want to SAVE the map to disk (Y or N)";Q$
  58. 650 PRINT:PRINT:PRINT
  59. 660 IF Q$="Y" THEN GOTO 710
  60. 670 IF Q$="y" THEN GOTO 710
  61. 680 IF Q$="N" THEN GOTO 810
  62. 690 IF Q$="n" THEN GOTO 810
  63. 700 GOTO 640
  64. 710 PRINT:PRINT:PRINT
  65. 720 PRINT:PRINT:PRINT
  66. 730 INPUT "   Desired File Name. Program will append suffix to it.(PATH\NAME)";F$
  67. 740 IF F$=""  GOTO 810
  68. 750 E%=INT((D%+20)/34.1)+1
  69. 760 IF VC=1 THEN A$=F$+".cga"
  70. 765 IF VC=2 THEN A$=F$+".vga"
  71. 770 IF VC=3 THEN A$=F$+".att"
  72. 780 BLOAD "saveb.asm",&H100
  73. 790 K=&H100:CALL K(E%,A$)
  74. 800 END
  75. 810 END
  76. 1000    '                  SYSTEM CONFIGURATION
  77. 1010    'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  78. 1020    '
  79. 1030   CO=1      'CO=1 for COM1---CO=2 for COM2
  80. 1040   LT=13460  'Line Timing. If pix top leans left, increase LT
  81. 1050   VC=2      'Video Card---1=CGA(640x200) 2=VGA(640x480) 3=AT&T(640x400)
  82. 1060   V=1       'Type of screen---1=CRT(desktop)  2=LCD(laptop)
  83. 1070             'Computers
  84. 1080   GT=217    'Gross Timer-Controls SYNC lock-may need lower for slow comp.
  85. 1100   TT=1      'Tone Tick audio cue--TT=0 is OFF--TT=1 is ON
  86. 1110   SW=30     'SYNC capture window (microsec).Larger for slower machines
  87. 2010 GOTO 20
  88.