Weather FAX reciever for Radio Shack CoCo [rec.ham-radio,rec.radio.shortwave]

[Mike Storke N7MSD]

Archive-name: wefax-105
Original-posting-by: storkus at arrakis.nevada.edu (Mike Storke N7MSD)
Original-subject: WEFAX 105 Program
Reposted-by: emv at math.lsa.umich.edu (Edward Vielmetti)

[This is an experimental alt.sources re-posting from the newsgroup(s)
rec.ham-radio,rec.radio.shortwave. Comments on this service to emv at math.lsa.umich.edu 
(Edward Vielmetti).]



  Because I will be leaving home tomorrow and I am STILL getting requests for
the WEFAX 105 program AND getting complaints that people can't access the
LISTSERV at PUCC.PRINCETON.EDU database, I am putting it up here in plain ascii
code.  Simply remove all information not part of the program and save it to
your disk as an ASCII Basic Program.  Yes, I KNOW you're not supposed to do
this because it wastes net bandwidth, but I am compelled to due to the amount
of requests for this.  This program's length is about as long as some of the
messages we've been seeing here lately.
  Now a few tips for using the program, but 1st a warning:
BE SURE THAT YOU DO **NOT** TURN UP THE AUDIO TOO LOUD ON YOUR RADIO!!!!!!!
The friend that gave this program to me knows someone whom he gave it to that
burned out the cassette port on his computer due to too much radio audio.  So,
don't say I didn't warn you.
  As I have said, the program uses the CoCo's built-in cassette port to receive
and demodulate weather faxes (and others).  The pictures are of very high
quality, but there is no grey scale.  It runs on ANY Color Computer (but it was
designed to run on the 1 and 2), and runs in Disk Extended Color Basic (DECB),
which is what is built into the machine's roms when you buy it.
  Although a disk drive is not required, if you're thinking of saving pictures
you will need one.  Because the size of the pictures (they are a basic memory
dump), the program does NOT use files, but the whole disk!  Because of this,
BE SURE to use a clean disk for saving pictures.  1 Single-side disk will
store 2 pictures.
  As far as hardware between the computer and radio, you simply need a cable to
connect between the audio input portion of the cassette port and the earphone
plug of the radio.  Since the cassette plug is a 5 pin DIN, this is easy.  A
pinout of the port is given in the CoCo's manual (one of them).
  So, remember the warning...get set up...and have fun!!  73's and see you in
mid January (please don't send me mail until then, as it will probably bounce,
and if it doesn't, I won't be receiving it), Mike, N7MSD
-------------------------------CUT-HERE----------------------------------------


10 REM THIS PROGRAM IS PUBLIC DOMAIN
12 REM ** MODIFIED FOR RADIO SHACK DMP-110, 120 ETC. **
14 REM CONV. BY LEE ROMINGER & JIM ROMINGER, WA6WNE
20 PCLEAR4
30 F1=651:REM 60 LPM ADJUST
40 F2=901:REM 90 LPM ADJUST
50 F3=1027:REM 120 LPM ADJUST
55 POKE150,18:REM PRINT=2400 BAUD
56 IFPEEK(33021)=50 THEN POKE359,57:POKE65314,85:! 13,0:! 12,63
60 CLS
70 PRINT"   WEATHER FACSIMILE RECEIVER"
80 PRINTSTRING$(32,"-");
90 PRINT
100 PRINT"THIS PROGRAM WILL RECEIVE FM FAX";
110 PRINT"AT 60, 90 & 120 LINES/MINUTE."
120 PRINT"CONNECT THE CASSETTE EAR (BLACK)";
130 PRINT"PLUG TO THE RADIO'S EAR JACK OR"
140 PRINT"CONNECT IT ACROSS THE SPEAKER."
150 PRINT"CHECK THAT THE RADIO IS TUNED IN";
160 PRINT"AND THAT THE BFO IS TURNED ON."
170 PRINT"AFTER THE PROGRAM IS READY YOU"
180 PRINT"CAN USE THE TUNING METER TO"
190 PRINT"ADJUST THE RADIO."
200 PRINT
210 PRINT"PLEASE WAIT..."
220 AD=&H600:LI=900
230 READA$,CS
240 IF A$="X" THEN 320
250 FOR I=1 TO 64 STEP 2
260 A=VAL("&H"+MID$(A$,I,2))
270 POKE AD,A:CS=CS-A:AD=AD+1
280 NEXT
290 IF CS THEN PRINT"DATA ERROR IN LINE";LI:END
300 PRINT at 462,944-LI
310 LI=LI+1:GOTO 230
320 A=INT(F1/256):POKE&H600,A:POKE&H601,F1-256*A
330 A=INT(F2/256):POKE&H608,A:POKE&H609,F2-256*A
340 A=INT(F3/256):POKE&H610,A:POKE&H611,F3-256*A
360 PRINT"RECEIVE *60* *90* *120* LPM"
370 PRINT"  3357,8027,8080,10865,14823"
380 PRINT" *PRINT TO RADIO SHACK PRINTER*"
390 PRINT
400 PRINT"  *REVERSE VIDEO THE PICTURE*"
410 PRINT
420 A$=CHR$(PEEK(&HC000))+CHR$(PEEK(&HC001))
430 IF A$<>"DK" THEN PRINT:PRINT:PRINT:GOTO470
440 PRINT"DISK     *VIEW* #1 *** #2 ***"
450 PRINT"PICTURE  *LOAD*    ***    ***"
460 PRINT"STORAGE  *SAVE*    ***    ***"
470 PRINT
480 PRINT"TUNING    I--------I"
490 PRINT"METER:   1500    2300"
500 PRINT
510 PRINT"JOYSTICK       RESTART SCAN"
520 PRINT"USE WHEN    PHASE  HOLD  PHASE"
530 PRINT"RECEIVING:   <--   SCAN   -->";
540 EXEC CS
900 DATA0285050A004D00E7038207040033009904000800002600720F718634B7FF030F,1740
901 DATA660F671700E3260EB7FFDEBEC0066F846F01AD9FC004B7FFDF7FFF407F098610,3846
902 DATACE03D78E0400A6848A40A7808C060025F51703338D0220DE8D57080B0002840D,2661
903 DATA100002821216000281041B22048F021C440332090E660011090E77001D090E88,1154
904 DATA001C80800000788D2813956803D61A9C6803D580800000678602200286039761,2490
905 DATA8D0F131568034B1A1C68034A808000004E17027235109F628D2ADD648D773410,2244
906 DATA1700908D1F1093642707351017008420E71700EE8D4D27EBAEE43003EC84AD8B,3021
907 DATA3510206F8D18FC015A4454548D1B2607C1082302C60839C10423FBC60439B7FF,2850
908 DATADEAD9FA00AB7FFDF39B7FFDEBEC000B7FFDF8C444B39B6FF008401398DF827FC,4792
909 DATA9766398DF19166270B8E222E301F26FC8DE49766399E628D6B91642204D16424,3391
910 DATA073005E6842AF0398D61916522F3D16525EF39CE04008D536D012A0496651F89,3174
911 DATA3402E0E45CE7E4C6203D33CB8D366D012A0496641F893406E6842A1033C6E6C4,3524
912 DATAA68D001FA7C4E78D00192014E6C6C840E7C64CA16123F533C820A6E46A6226EC,4040
913 DATA326339CFEC84841FC41F39A60244444444E602C40F39B6FF205A2705B1FF2027,3274
914 DATAF839C6208DF02708C6408DEA27028DE654D16727158E05409667D767E686CA40,3880
915 DATAE7869667E686C4BFE786398634B7FF03863CB7FF0186D6B7FF208680B4FF0027,4605
916 DATA053DAC842008DC52DD56DC50DD54862AB7FF208680B4FF0027043D12200ACC26,3373
917 DATA02DD56CC0E00DD548634B7FF019E4086D6B7FF208680B4FF0027038E0001862A,3555
918 DATAB7FF208680B4FF0026029E42301F26FCA69439DF483A3386DF4C8601A7844F5F,3616
919 DATADD4AB6FF205CC1262504A1012005B1FF2027F2D74E1DA18BD34ADD4A9348251B,3557
920 DATADD4AD64EF7FF02D14F6984240430012005CC0001E70112C606200F8601B4FF00,3018
921 DATA260617FE7716FD8EC6049C4C25B4DC48934A2F07A18B83000126F917FF2D399E,3332
922 DATA52DE448660208C5F9E50DE46862020838DF55F8DEA8DF0C6608DE48DEAC6C020,4425
923 DATADE5F2006C6082002C610308DFD123ACE00408608E680E7C04A26F98D49861197,3397
924 DATA4F8E26029F52CE0E00DF5033C820DF54308901209F568DB8DE54DF509E569F52,3497
925 DATA8CFE0225E6397FFF22CEFFC6A75AA75CA75E860444C6074424063341A7C02002,3602
926 DATAA7C15A26F23986F0B7FF22CEFFC6A75AA75DA75F860E20DC8690F6015BC13F26,4381
927 DATA015C3D584958498E2602308BB6015A813F26014C308620380000000000000000,1695
928 DATA000000000000008DBD8DCDFC015A340617FD6BFC015A10A3E127028DBB17FD83,2983
929 DATA27E9398DA18E260263808CFE0225F939108E0E00C620A680A7A05A26F9308840,3427
930 DATA108C260025EE39108E0E00C620A6A0A7805A26F9308840108C260025EE392602,2740
931 DATA262226426E026E226E42B602B622B642C6002002C611D760D661C10326028D24,2738
932 DATA17FF43318CD88609AEA134229661810326068D9C8D7620048D728DAB0C603522,3091
933 DATA4A26E539B7FFDEFEC006CC0200EDC4CC1102ED428E0E00AF44AD9FC004B7FFDF,4263
934 DATAD660260FC600A6854C1026FBE95CC11723F439C62BA6854C1026FBDA5CC14323,3644
935 DATAF439C6ED2002C6F7340417FED9D665C00686033DDB64EBE0D760860297618D0C,4102
936 DATA7FFF407F098617FC8D26FB393476B7FFDEBEC006D661E7846F01CC0E00ED04CE,4147
937 DATAFFFF9660C6183D108301332503C30002334183001224F9C30013E7031F30E702,2785
938 DATA108E0018AD9FC0048D1F6C04EC02108311012602CB025CC1122303C6014CED02,2497
939 DATA313F26E0B7FFDF35F617FC2A260C7FFF407F098617FC2516FB3C3917FE48B6FF,3905
940 DATA228401263886FE976F8E2602861B8D6E86148D6A86128D668660975F4FC680E5,3411
941 DATA0026028B01E5886026028B028CFCC22428E58900C026028B04E589012026028B,2803
942 DATA08E589018026028B10E58901E026028B20E589024026028B408B808D214F5426,2817
943 DATABE30010A5F26B530890240860D8D0F8CFE0225A4861E8D06861B8D028613B7FF,2920
944 DATADEAD9FA002B7FFDF390000000000000000000000000000000000000000000000,1434
945 DATAX,1560

-------------------------------------------------------------------------------
*******************************************************************************
*Mike P. Storke, N7MSD  INET Address: storkus at arrakis.nevada.edu              *
*SnailMail Address: P.O. Box 6 Minden, NV 89423 "I WANT MY C!!!!!!!!!!!!!!!!!"*
*Packet Address: N7MSD at WA6RDH "Pascal: The Handcuff of the programmer. :-{    *
*DISCLAIMERS???  Why, when "I think what I say and I say what I think!"-From a*
*NOTICE: Due to Christmas Vacation here at UNLV, I won't*character in Freddy's*
*be able to answer anything directed to me from the INET*Nightmares, episode: *
*from the night of December 14th to mid January. SORRY!*"Silence is Golden"   *
*This has got to be the most compact sig file in history*A Wholesome TV show  *
*******************************************************************************