storkus@arrakis.nevada.edu (Mike Storke N7MSD) (12/17/89)
Archive-name: wefax-105 Original-posting-by: storkus@arrakis.nevada.edu (Mike Storke N7MSD) Original-subject: WEFAX 105 Program Reposted-by: emv@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@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@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@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@arrakis.nevada.edu * *SnailMail Address: P.O. Box 6 Minden, NV 89423 "I WANT MY C!!!!!!!!!!!!!!!!!"* *Packet Address: N7MSD@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 * *******************************************************************************