home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / vrac / vester_e.zip / MAPSKED.BAS < prev    next >
BASIC Source File  |  1994-08-08  |  5KB  |  102 lines
  1. 10 CLEAR,32768!:KEY OFF:CLS:H=0:H1=0:H2=0:H3=0:H4=0:M=0:M1=0:M2=0:M3=0:M4=0
  2. 15 GOTO 1020
  3. 20 B=0:B1=0:B2=0:B3=0:B4=0:P=0:P1=0:P2=0:P3=0:P4=0:F5$="f"
  4. 30 PRINT"                      K3BC WEATHERFAX for IBM and CLONES":PRINT
  5. 40 PRINT"      Scheduled storage of high resolution MAPS on Disk. Has a limit of 5 "
  6. 50 PRINT"   maps. Use SEEMAP after storage to view and Print these at a"
  7. 60 PRINT"   later time. Copy time for all pictures is set to same minutes. They"
  8. 70 PRINT"   are stored in sequence scheduled. Normal procedure is to set schedule"
  9. 80 PRINT"   time a little early and SYNC so storage only begins after a SYNC se-"
  10. 90 PRINT"   quence is received. If maps are in adjacent time slots, you may want"
  11. 100 PRINT"   to not do this but use NO SYNC to avoid possible hangup if SYNC se-"
  12. 110 PRINT"   quence doesn't appear on first map of the adjacent slots."
  13. 120 PRINT:PRINT"     Program is user configured for a particular computer by filling in your"
  14. 130 PRINT"   SYSTEM CONFIGURATION. LOAD this BASIC program and then LIST 1000-2000"
  15. 140 PRINT"   to see the CONFIGURATION. The COM port, video card, and screen type "
  16. 150 PRINT"   are selected. The line timing should be very close, but if map is"
  17. 160 PRINT"   slanted, iteratively change LT as noted and rerun a map copy. After"
  18. 170 PRINT"   you are satisfied, SAVE the program with the final values inserted;"
  19. 180 PRINT"   ie,type F3 (brings up SAVE ') and then  WXMAP and hit ENTER."
  20. 240 IF VC=1 THEN P$="easicgab.asm"
  21. 245 IF VC=2 THEN P$="easivgab.asm"
  22. 250 IF VC=3 THEN P$="easiattb.asm"
  23. 350 PRINT:PRINT:INPUT"   Minutes of copy time per MAP (Default=14 min;max=28 min)";T
  24. 360 IF T=0 THEN T=14
  25. 370 D%=120*T:IF D%>3735 THEN D%=3735
  26. 400 PRINT:PRINT:PRINT:PRINT"      Now to make your SCHEDULE---------"
  27. 410 PRINT:INPUT"  What HOUR for the first map";H
  28. 420 INPUT"     and MINUTES after the hour";M
  29. 430 INPUT"  Do you want AUTO-SYNCHRONIZING  (Y or N)";S$
  30. 440 IF S$="y" THEN B=256
  31. 450 INPUT"  What path/file name ";F$
  32. 460 INPUT"      Do you want to schedule another map or pix (Y or N)";N$
  33. 470 IF N$="n" THEN F1$="f":IF N$="n" THEN GOTO 740
  34. 480 INPUT"  What HOUR for the next map";H1
  35. 490 INPUT"     and MINUTES after the hour";M1
  36. 500 INPUT"   Do you want AUTO-SYNCHRONIZING (Y or N)";S$
  37. 510 IF S$="y" THEN B1=256
  38. 520 INPUT"  What path/file name ";F1$
  39. 530 INPUT"      Do you want to schedule another map or pix (Y or N)";N$
  40. 540 IF N$="n" THEN F2$="f":IF N$="n" THEN GOTO 740
  41. 550 INPUT"  What HOUR for the next map";H2
  42. 560 INPUT"     and MINUTES after the hour";M2
  43. 570 INPUT"  Do you want AUTO-SYNCHRONIZING (Y or N)";S$
  44. 580 IF S$="y" THEN B2=256
  45. 590 INPUT"  What path/file name ";F2$
  46. 600 INPUT"      Do you want to schedule another map or pix (Y or N)";N$
  47. 610 IF N$="n" THEN F3$="f":IF N$="n" THEN GOTO 740
  48. 620 INPUT"  What HOUR for the next map";H3
  49. 630 INPUT"     and MINUTES after the hour";M3
  50. 640 INPUT"   Do you want AUTO-SYNCHRONIZING (Y or N)";S$
  51. 650 IF S$="y" THEN B3=256
  52. 660 INPUT"  What path/file name ";F3$
  53. 670 INPUT"      Do you want to schedule another map or pix (Y or N)";N$
  54. 680 IF N$="n" THEN F4$="f":IF N$="n" THEN GOTO 740
  55. 690 INPUT"  What HOUR for the next map";H4
  56. 700 INPUT"     and MINUTES after the hour";M4
  57. 710 INPUT"  Do you want AUTO-SYNCHRONIZING (Y or N)";S$
  58. 720 IF S$="y" THEN B4=256
  59. 730 INPUT"  What path/file name ";F4$
  60. 740 INPUT"   RECHECK your schedule for correctness. Is it OK (Y or N)";R$
  61. 750 IF R$="" GOTO 740
  62. 760 IF R$="n" GOTO 10
  63. 770 IF R$="y" GOTO 780
  64. 780 B%=H:A%=M*256:C%=1+B
  65. 790 DEF SEG=&H4500
  66. 800 BLOAD P$,&H100:POKE &H2D0,60 'Poke returns P$ to BASIC at map end so can SAVE
  67. 803 IF CO=1 THEN GOTO 805
  68. 804 POKE &H1E2,2:POKE &H1D6,2:POKE &H57C,2:POKE &H5D5,2
  69. 805 IF V=2 THEN GOTO 807
  70. 806 POKE &H22A,245:POKE &H408,138:GOTO 810
  71. 807 POKE &H22A,144:POKE &H408,97:GOTO 810
  72. 810 LTB=INT(LT/256):LTA=LT-256*LTB:POKE &H614,LTA:POKE &H615,LTB:POKE &H175,GT:POKE &H633,SW
  73. 811 IF TT=0 THEN POKE &H1CF,1
  74. 820                'reserved for possible pokes
  75. 830 PRINT:PRINT:PRINT:PRINT"     PROGRAM BEING EXECUTED. SEE YOU LATER TODAY FOR MAP VIEWING!"
  76. 840 K=&H100:CALL K(A%,B%,C%,D%)
  77. 850 E%=INT((D%+20)/34.1)+1
  78. 860 IF VC=1 THEN A$=F$+".cga"
  79. 870 IF VC=2 THEN A$=F$+".vga"
  80. 880 IF VC=3 THEN A$=F$+".att"
  81. 890 DEF SEG=&H4500
  82. 900 BLOAD "saveb.asm",&H100
  83. 910 K=&H100:CALL K(E%,A$)
  84. 920 DEF SEG=&H4500
  85. 930 H=H1:H1=H2:H2=H3:H3=H4:M=M1:M1=M2:M2=M3:M3=M4:B=B1:B1=B2:B2=B3:B3=B4:P=P1
  86. 940 P1=P2:P2=P3:P3=P4:F$=F1$:F1$=F2$:F2$=F3$:F3$=F4$:F4$=F5$
  87. 950 IF F$="f" GOTO 970
  88. 960 GOTO 780
  89. 970 PRINT" YOUR SCHEDULED MAP STORAGE IS COMPLETED. Use SEEMAP to view maps."
  90. 980 END
  91. 1000        '                 SYSTEM CONFIGURATION
  92. 1010    'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  93. 1020 CO=1     'CO=1 for COM1----CO=2 for COM2
  94. 1030 LT=13460 'Line Timing. If Pix top leans left, increase LT & vice versa
  95. 1040 VC=1     'Video Card--1=CGA(640x200) 2=VGA(640x480) 3=AT&T(640x400)
  96. 1050 V=2      'Type of screen---1=CRT(desktop)  2=LCD(laptop)
  97. 1060 GT=217   'Gross Timer-Controls SYNC lock-may need to be lower for slower
  98. 1070          'computers.Too high gives SYNC breaks,too low gives map missing.
  99. 1080 TT=1     'Tone-Tick audio cue--TT=0 is OFF---TT=1 is ON
  100. 1090 SW=30    'SYNC capture window (microsec). Larger for slower machines
  101. 2010 GOTO 20
  102.