& :10 MINUTE TIMER PROGRAM&;:WRITTEN BY MIKE KB0XL&F200,1&L(&n2@68,"THIS IS A 10 MIN TIMER"&<@100,"FOR IDENTIFYING YOUR&F@132,"STATION. AT THE TONES&P@164,"IDENTIFY YOUR CALLSIGN'Z:INSERT YOUR OWN CALLSIGN ON THE NEXT LINE:'dd'ENTER YOUR OWN CALLSIGN IN LINE 100 AND THEN THE NEW PROGRAM 'HAMTIMER'n:" *URCALL*'xH0100'M09'S059' @297,"*************"'@329,"* "M":"S" *"'@361,"*************"(@418,"ENJOY *COCORADIO* FOR TRS80C";(<@454,""(IȀT1419(PҋT(W܋S(^M(45,3:65,3:85,3:125,8:85,3:125,10:H:12009'S059' @297,"*************"'@329,"* "M":"S" *"'@361,"*************"(@418,"EDE5F2006C6082002C610308DFD123ACE00408608E680E7C04A26F98D49861197,339784F8E26029F52CE0E00DF5033C820DF54308901209F568DB8DE54DF509E569F52,349788CFE0225E6397FFF22CEFFC6A75AA75CA75E860444C6074424063341A7C02002,36029(ʆA7C15A26F23986F0B7FF22CEFFC6A75AA75DA75F860E20DC8690F6015BC13F26,43819sԆ015C3D584958498E2602308BB6015A813F26014C308620380000000000000000,16959ކ000000000000008DBD8DCDFC015A340617FD6BFC015A10A3E127028DBB17FD83,2983: 27E9398DA18E260263808CFE0225F939108E0E00C620A680A7A05A26F9308840,3427:T108C260025EE39108E0E00C620A6A0A7805A26F9308840108C260025EE392602,2740:262226426E026E226E42B602B622B642C6002002C611D760D661C10326028D24,2738:17FF43318CD88609AEA134229661810326068D9C8D7620048D728DAB0C603522,3091;54A26E539B7FFDEFEC006CC0200EDC4CC1102ED428E0E00AF44AD9FC004B7FFDF,4263;D660260FC600A6854C1026FBE95CC11723F439C62BA6854C1026FBDA5CC14323,3644;$F439C6ED2002C6F7340417FED9D665C00686033DDB64EBE0D760860297618D0C,4102<.7FFF407F098617FC8D26FB393476B7FFDEBEC006D661E7846F01CC0E00ED04CE,4147#t975FA684108E0058C6084966A05A26FA30886024ED8E0058C608A680438DB25A,3468>m~26F8351230014A26D33900000000000000000000000000000000000000000000,786>yX,1560DF398DAB860D,3825=j8DEF861B8DEB86538DE786308DE386378DDF86368DDB86388DD7866034128680,4265>#t975FA684108E0058C6084966A05A26FA3& 200,1&B:PRINTER SET-UP MENU FOR COCOFAX PROGRAM.&H&\(@44,"cocofax";&2@101,"*WHAT KIND OF PRINTER?*&<@194," e=EPSON/GEMINI ON-LINE&F " p=PROWRITER/NEC ON-LINE&P " o=OTHER TYPE OF PRINTER&Z&d&n' x " r=RETURN TO MAIN MENU'5B$:B$""130'?A$B$'OA$"E"190'_A$"P"210'oA$"O"190'A$"R"240'200,1'Ȏ"COCOFAX1'Ҡ200,1'܎"COCOFAX2'恥130'"T20;L1;D;P3;D;P3;L3;D;P3;D;P3;D;P1("T20;L3;D;P3;D;P3;D;P3;L1;D;P3;D;P1("ENTER'5B$:B$""130'?A$B$'OA$"E"190'_A$"P"210'oA$"O"190'A$"R"240'200,1'Ȏ"COCOFAX1'Ҡ200,1'܎"COCOFAX2'恥130'"T20;L1;D;P3;D;P3;L3;D;P3;D;P3;D;P1("T20;L3;D;P3;D;P3z& :ORIGINAL ARTICLE IN RAINBOW MAGAZINE, FEBRUARY 1985. DOC UMENTATION ALSO AVAILABLE FROM SPEC-COM JOURNAL, MEM- BERSHIP SERVICES, P.O. BOX H, LOWDEN, IOWA 52255.&:IT IS BEST TO VIEW THIS PRO GRAM ON A BLACK & WHITE TV.':THIS IS THE C.ITOH #8510A PROWRITER/NEC PRINTER TRS80C MODIFIED VERSION. FOR EPSON OR GEMINI PRINTERS, RUN'COCO FAX1. OTHER PRINTER INFORMA- TION CAN BE OBTAINED FROM RON TONNESON K0QVF, FAIRFAX, IOWA.(c(:CHANGES FOR THE PROWRITER VERSION ARE IN LINES 400, 480, 550, 760, 1130, 1140, 1150, 1160 AND 1170.(2:ADJUST LINES 190, 200, 210 FOR CORRECT SPEED SKEWING.)<:BEST SHORTWAVE FREQUENCIES FOR FACSIMILE TRANSMISSIONS ARE 3.357 & 4.975 (NSS) AND 8.027, 8.080, 10.865, 16.410 MHZ. (NAM) NORFOLK, VIRGINIA ALSO VHF 137.50, 137.62 MHZ. AND 1691.0 OR 1694.5 MHZ ON SATELLITE RECEPTION.)F:FOR MORE INFORMATION ON FAX READ THE SPEC-COM JOURNAL(TM) P.O. BOX H, LOWDEN, IA 52255* P 200,1*4Z(3):@68," SPEC-COM (TM) JOURNAL ";*Nd@138,"cocoradiofax";*on@198," WEFAX RECEIVE 1.3 ";*x@259," INTERFACELESS SOFTWARE ";*@321,"FOR THE TRS80C COLOR COMPUTER";*@391,"prowriter version";+@451," BY MARTIN GOODMAN 02/85 ";+T15000:+5' WEFAX 1.3 VERSION 2/86+P' BEGIN BASIC PROGRAM+W4+^ȡ+yF1651: 60 LPM ADJUST+F2901: 90 LPM ADJUST+F31027: 120 LPM ADJUST,:CUSTOM PRINTER POKE STATE- MENT HAS BEEN REMOVED AND INCLUDED IN MENU5 PROGRAM.,,3" COCOFAX DEMODULATOR",D(32,"-");,i" COCOFAX WILL RECEIVE HF FAX";,"" AT 60, 90 & 120 LINES/MINUTE.",,,6 "1. INTERFACE RECEIVER TO COCO. TURN UP AUDIO ON TV SET.-@"2. TUNE IN FACSIMILE STATION.-8J"3. ADJUST SIGNAL INTO BAR GRAPH-^T"4. SELECT 60-90-120 LPM FORMAT.-^"5. READY PRINTER 300-9600 BAUD.-h"6. RIGHT JOYSTICK LEVER DOWN.-r"7. MOVE VFO FOR LIGHTER/DARKER.-|-"L-O-A-D-I-N-G"-AD&H600:LI730.A$,CS. A$"X" 500.. I1 64 2.HA("&H"(A$,I,2)).c’ AD,A:CSCSA:ADAD1.i̋.օ CS "DATA ERROR IN LINE";LI:.@462,774LI.LILI1: 410.A(F1256):&H600,A:&H601,F1256A/A(F2256):&H608,A:&H609,F2256A/1A(F3256):&H610,A:&H611,F3256A/T" SELECT *60* *90* *120* LPM"/Z/&" *PRINT TO PROWRITER PRINTER*"/0/:" *REVERSE PICTURE IN MEMORY*"/D/NA$((&HC000))((&HC001))/X A$"DK" :::6400b" DISK *VIEW* #1 *** #2 ***"0=l" PICTURE *LOAD* *** ***"0bv" STORAGE *SAVE* *** ***"0h0" TUNING I--------I HERTZ"0" METER: 1500 2300 TONES"01 " CAREFULLY TUNE HF RECEIVER VFO FOR CORRECT PICTURE DISPLAY!"1 CS1?' MACHINE LANGUAGE ROUTINE1Ɔ0285050A004D00E7038207040033009904000800002600720F718634B7FF030F,17401І660F671700E3260EB7FFDEBEC0066F846F01AD9FC004B7FFDF7FFF407F098610,38462 چCE03D78E0400A6848A40A7808C060025F51703338D0220DE8D57080B0002840D,26612k100002821216000281021D22048F021C440332090E660011090E77001D090E88,11542001C80800000788D2813956803D61A9C6803D580800000678602200286039761,249038D0F131568034B1A1C68034A808000004E17027235109F628D2ADD648D773410,22443L1700908D1F1093642707351017008420E71700EE8D4D27EBAEE43003EC84AD8B,30213 3510206F8D18FC015A4454548D1B2607C1082302C60839C10423FBC60439B7FF,28503DEAD9FA00AB7FFDF39B7FFDEBEC000B7FFDF8C444B39B6FF008401398DF827FC,47924- 9766398DF19166270B8E222E301F26FC8DE49766399E628D6B91642204D16424,33914x*073005E6842AF0398D61916522F3D16525EF39CE04008D536D012A0496651F89,3174443402E0E45CE7E4C6203D33CB8D366D012A0496641F893406E6842A1033C6E6C4,35245>A68D001FA7C4E78D00192014E6C6C840E7C64CA16123F533C820A6E46A6226EC,40405YH326339CFEC84841FC41F39A60244444444E602C40F39B6FF205A2705B1FF2027,32745RF839C6208DF02708C6408DEA27028DE654D16727158E05409667D767E686CA40,38805\E7869667E686C4BFE786398634B7FF03863CB7FF0186D6B7FF208680B4FF0027,46056:f053DAC842008DC52DD56DC50DD54862AB7FF208680B4FF0027043D12200ACC26,33736p02DD56CC0E00DD548634B7FF019E4086D6B7FF208680B4FF0027038E0001862A,35556zB7FF208680B4FF0026029E42301F26FCA69439DF483A3386DF4C8601A7844F5F,36167DD4AB6FF205CC1262504A1012005B1FF2027F2D74E1DA18BD34ADD4A9348251B,35577fDD4AD64EF7FF02D14F6984240430012005CC0001E70112C606200F8601B4FF00,30187260617FE7716FD8EC6049C4C25B4DC48934A2F07A18B83000126F917FF2D399E,3332752DE448660208C5F9E50DE46862020838DF55F8DEA8DF0C6608DE48DEAC6C020,44258G6R4D6L4BR8"8)ZR$"U6R4D3L3BDRBDRBDRBR4"8EZB$"U6R3D3L2R3D3L3BR7"8XZL$"NU6R5BR3"8lZN$"U6R4D6BR4"8Z0$"U6R4D6L4BR8"8Z1$"BR3NU6BR5"8Z2$"BU6R4D3L4D3R4BR4"8Z3$"R4U3L4BU3R4D6BR4"8Z4$"BU6D3R4U3D6BR4"9Z5$"R4U3L4U3R4BD6BR4"9Z6$"U6R4BD3NL4D3L3BR7"91Z7$"BU6R4D6BR4"9M"Z8$"NR4U3NR4U3R4D6BR4"9g,Z9$"BU3NR4U3R4D6BR4"96QD$"BU3BR1R3BR4BD3"9@QB$"BR8"9J9T:MAP'9^4,1::1,09h N$: N$"END" :9r NN9| I1 NN9 MT,MU:MX(MU180)256365:MY(90MT)160180:W I1 (MX,MY)(MX,MY),:MVMX:MWMY:: (MX,MY),:_ I:o(MV,MW),:»(0,162)(255,192),,BF:́ 1640::WORLD MAP': AFRICA,29:37,10,35,-5,36,-6,21,-17:18,-16,14,-17,5,-8,5,-2; 6,5,4,6,4,10,-2,9;+-12,14,-17,12,-33,18,-34,17;L-34,26,-26,33,-24,35,-20,34;j-16,41,-5,39,12,51,11,44;&32,32,33,22,31,20,30,20;034,10;: MADAGASCAR,7;D-13,49,-17,44,-20,44,-23,43;N-25,43,-25,47,-15,51;X AUSTRALIA,22<b-11,142,-18,141,-15,135,-12,137<=l-12,130,-15,130,-14,127,-22,11428,-97,30,-84,25,-82,26,-80>232,-82,35,-75,39,-76,38,-75>S 41,-74,42,-70,45,-65,44,-66>t46,-60,49,-67,46,-71,50,-65> 52,-56,60,-65,58,-68,59,-70>*62,-74,63,-78,55,-79,52,-78>453,-83,55,-83,58,-95,67,-85>>68,-81,69,-84,68,-88,72,-95?H68,-97,70,-99,68,-100,70,-142?.R S AMERICA,36?L\12,-73,8,-78,9,-79,8,-79?lf4,-77,0,-80,-6,-81,-15,-75?p-18,-70,-50,-75,-54,-73,-55,-65?z-50,-68,-47,-66,-46,-67,-45,-66?-41,-65,-41,-62,-39,-62,-37,-57@-34,-58,-35,-55,-28,-49,-25,-48@#-20,-40,-12,-38,-8,-35,-5,-36@A0,-50,-2,-53,1,-50,6,-55@a11,-63,11,-70,10,-71,9,-72@t GREENLAND,13@84,-25,81,-45,80,-68,78,-73@ʆ76,-68,75,-58,68,-53,60,-44@Ԇ68,-32,70,-22,82,-10,82,-36@ކ83,-20@ ICELAND,4A67,-16,66,-23,63,-20,64,-14A' BAFFIN ISL,8AH 74,-78,74,-88,71,-90,70,-77Ai 65,-73,64,-77,62,-65,67,-81Av  CUBA,6A $23,-82,22,-85,22,-81,20,-78A .20,-74,23,-80A 8 HAITI,6A B20,-73,19,-72,18,-74,17,-71A L19,-68,20,-70A V JAMAICA,3B `19,-78,18,-77,18,-76B' j EURASIA,66BE t78,105,72,72,66,70,73,71Ba ~65,35,68,38,71,25,62,5B} 58,5,60,10,55,14,66,25B 54,20,54,10,57,9,50,2B 48,-5,43,-1,43,-8,37,-8B 36,-1,44,5,44,10,38,15B 40,18,44,12,45,13,35,23C 41,25,36,30,36,36,31,32C( Ć13,43,23,60,26,56,24,52CD Ά30,49,26,67,8,77,15,80Cb ؆22,92,1,105,14,101,9,105C 12,109,20,107,23,115,30,122C 38,118,40,125,35,127,35,129C 40,128,45,135,54,140,55,135C 59,143,63,164,51,157,58,164D 64,178,67,180,67,189,70,174D 72,102,77,112D(  JAPAN,8DI (45,142,37,138,36,135,33,130Dj 232,131,35,140,42,142,43,145Du < UK,3D F58,-5,50,-5,52,2D P IRELAND,4D Z55,-6,54,-10,52,-10,53,-6D d BORNEO,5D n7,117,2,109,-3,110,-4,116D x5,119E PHILIPPINE,7E& 18,121,13,121,10,126,7,123E? 5,125,10,126,16,123EO SUMATRA,4El 6,95,-5,105,-2,105,5,97Ey JAVA,2E -6,105,-7,120E Ȇ NEW GUINEA,8E ҆0,132,-8,142,-7,145,-11,150E ܆-4,145,-2,137,-3,135,-2,134E NW ZEALAND,5F -34,173,-39,175,-46,167,-47,169F& -38,178F5  HAWAII,3FR 22,-159,19,-156,20,-155F\  ENDFx "1630:::NEW MAP DRAW -6,105,-7,120E Ȇ NEW GUINEA,8E ҆0,132,-8,142,-7,145,-11,150E ܆-4,145,-2,137,-3,135,-2,134E NW ZEALAND,5F -34,1 y&- :@65,"*COCORADIO* SATELLITE TRACKER";&R@130,"SAMPLE DATA INFORMATION:"&t@194,"DATE: USE TODAY'S DATE&(@226,"ORBIT NUMBER: 34 (51H SHUTTLE)"&2@258,"REF ORBIT DATE: 080185&<@290,"INCLINATION: 49.6015&F@322,"PERIOD (MIN): 90.5'"P@354,"ECCENTRICITY: .00033231'LZ@386,"LONGITUDE REF AT APOGEE: 317.5'rd@418,"ARGUMENT OF PERIGEE: 312.2'n@483," ";'xT110000:'4:50'TC28::SEC/HR''S(X)(X(XX1))(C(X)(X(XX1))PI2(8PI3.14159265:GC0.176842228:RE6378(]:" *SATELLITE TRACKER*" (270:370:470:480:500:530:540:550:560:570:580(ȁ1620::MAP'(ҁ1370::CHARS'):܁830:650:1230:670:1230:1000:1220:1070:1240:1100:1230:1130:1240:1160:1230:1190)TIK$: IK$"" 220) IK$"T" 150,3: T(NNR)PER (NNR)PERPER PER256:670:1220: T) IK$"M" 1630:IK$"T":240) 220)"DATE (MMDDYY)";*290:MIM:DID:YIY:*" Q$::DATE'*3, (Q$)5 Q$"0"Q$*S6 (Q$)6 "HUH";:290*g@IM((Q$,2))*}JID((Q$,3,2))*TIY((Q$,2))*^910: D$"BAD" "NO SUCH DATE.":290*h*r"TIME (HHMMSS)";*|390:H0TH:M0TM:S0TS:0:+ Q$::TIME'+* (Q$)5 Q$"0"Q$+J (Q$)6 "HUH";:390+^TH((Q$,2))+tTM((Q$,3,2))+TS((Q$,2))+… TH0 TH24 TM0 TM59 TS0 TS59 "NO SUCH TIME.":390+̐+։"REF ORBIT NO.";NR:, "REF DATE (MMDDYY)";,*ꁦ290:RMIM:RDID:RYIY:,J"REF TIME (HHMMSS)";:390,`R1TH:R2TM:R3TS,f,"INCLINATION (DEG)";AI:AIAIPI180:,"PERIOD (MIN)";PER:,&"ECCENTRICITY";EC:,0"LONGITUDE REF AT APOGEE";RL:-:"ARGUMENT OF PERIGEE";AP:APAPPI180:-+D:CALC CONSTANTS'-_NCI(AI):SI(AI):GRADE((CI)1)((SI)1)-wXCA(AP):SA(AP)-b (SASI)1 L00:-lCL(S(SASI)): CL0 L00:-v (CACL)1 L0(S(SASI))90:. L0(S(SASI))C(CACL)180PI:.:CALC T'.T((((M1)30.58(M2)20.5)DY365.25(((Y 3)0)(M2)))(((RM1)30.58(RM2)20.5)RDRY365.25(((RY 3)0)(RM2))))2460(HHR1)60(MMR2)(SSR3)60:.:LAT&LON'.NNR(TPER)/MA2PI(T(TPER)PER)PER/EAMA/GDEVEAEC(EA)MA: (DEV)1E6 730/jEAEADEV(1EC(EA)): 710/TA2(((1EC)(1EC))(EA2))/LXSI(APTA): (LX)1 LT(LX)PI2:: LTS(LX)/LATLT180PI0CC(APTA)(LT): (CC)1 CC(CC)10I SI0 SX((APTA)) : SXGRADE((LT))10 (CC)1 CC0 LONSXC(CC)180PIT3.998RLL0 : LONSX(1CC)90T3.998RLL00 (LON)180 LONLON(LON)360: 7901 ALTGC(1EC2)(PER(2PI))(23)(1EC(TA))RERE1D* ALT0 :"NEGATIVE ALT. ORBIT ABORTED.":1J41W>:TIMER'1uHSEC((1TC3600)60)1RMMM0(SEC60):SSS0SEC(SEC60)60:HHH01\ SS59 SSSS60:MMMM11f MM59 MMMM60:HHHH12Qp HH23 HHHH24:DD1:IMM:IDD:IYY: 910: D$"BAD" MM1:D1: M13 M1:YY1: Y100 Y02yz 60000 H0HH:M0MM:S0SS:022:TEST DATE'2 IM 930,950,930,940,930,940,930,930,940,930,940,930: 9902MD31:9602MD30:9603(IY 3)0 MD29 : MD283,(ID1)(IDMD)9903Dʅ(IY0)(IY99)9903RD$"OK":3aD$"BAD":3m:TIME'3"C8BM8,170;XZT$;XZI$;XZM$;XZE$;XQB$;XQD$;"3HH$" "((HH100),2)3MM$" "((MM100),2)3SS$" "((SS100),2)4DS$HH$MM$SS$4$1250:4!.:DATE'4Q8"C8BM8,180;XZD$;XZA$;XZT$;XZE$;XQB$;XQD$;"4BDS$((M),2)"-"((D),2)"-"((Y),2): 1250:4L:ORBIT #'4V"C8BM8,190;XZO$;XZR$;XZB$;XZI$;XZT$;XQD$;"4`DS$(N):1250:4j:LAT'5t"C8BM144,170;XZL$;XZA$;XZT$;XQD$;"5>~DS$((LAT.5))" ":1250:5I:LON'5q"C8BM144,180;XZL$;XZO$;XZN$;XQD$;"5DS$((LON.5))" ":1250:5:ALT'5"C8BM144,190;XZA$;XZL$;XZT$;XQD$;"6DS$((ALT.5)):DS$DS$(9(DS$)," "): 1250:6:POINT'6@ν((LON180)256365,(90LAT)160180,1):6lؾ((LON180)256365,(90LAT)160180):6w:DS$'6 I1 (DS$)612406"C3NU6RNU6RNU6RNU6RNU6L4"6 DX$"Z"(DS$,I,1)6 DX$"Z." DX$"QP"6 DX$"Z " DX$"QB"7( DX$"Z-" DX$"QD"7:2DX$"X"DX$"$;": "C8;"DX$7E<12307MF I7SP7`Z:CHARS'7wdZT$"BU6R4L2D6BR6"7nZI$"BU6BR2D6BR6"7xZM$"U6R2ND3R2D6BR4"7ZE$"U6R4BD3L4D3R4BR4"7ZD$"U6R3DRD4LDL3BR8"7ZA$"U3NR4U3R4D6BR4"8 ZO$"U 3P*********KINNEY*SOFTWARE********************PRESENTS************* (C) COPYRIGHT 1985 DICK KINNEY ******ALL RIGHTS RESERVED********************VERSION2.3********** SLOSCANII π߀ꀀπ߀߀ꀀπ߀ꀀπ߀߀ꀀπ߀߀ꀀ SLOSCANII MENU ##SSTV*FORMAT###################A 128-60 K CLEAR B 128-67 J 128-100 M MENU C 256-60 Q QUIT D 256-67 X BRIGHT E 240-100 Y NORMAL F 240-134 Z DARKEN H 384-60 I 384-67 LINES-MSEC \&&3c `&3&4`w&4_\OL&&<&怭'#<&ɷƷʷ̷ηзҷ·Ć"4 v&'3O 3G/3H13I33J53K73L93M;3Nͷ͆(#ȷ÷Ŷ""33F##3A@3@3B3C3(33$3*3F3 3333. \ '3733A*<+3 d3L(+%33 373C37|3.3. 3.L+3#_ &_ \ '#0$ \ '<#Y$3 3_ \ '#/$|3|3 3 +߶3#|3$_ '_|3$ \ ' $3$#3$Ӷ33*'@3 'P'q'"|3 :37X:愄 33&33&q|3 :37X:愄0033&33&O|3 :37X:愄33&3 |3(|3 33&:37X:愄33&33&3$ L+A'39|33 d33.3(&&|3F3F#$3* 3F 3* 13('*|3(3(3B'3*'3* 3*O )3(O_!|33#3O O 3@'oA'B'C'D'E'΁F'݁G'H'I'J'Q'K'QL'M'_N'X'Y'Z'O33($33 'L!# (#ffDD@@3 'P'q'"|3 :37X:怦 33&33&1|3 :37X:怦0033&33&|3 :37X:怦33&3 |3|3 33&:37X:怦33&33&@3@3A3B3(Ć@3@3A3(3B 3@3(3A3B 3@3(3A3B 3@3(3A3Bn 3@3(#3A3BY 3@3(3A3BD 3@3(3A3B/,9@3@3(3A3B 3C3C3Ct3P& 200,1&#:SWR CALCULATIONS&)&Q(@66,"*COCORADIO* VSWR CALCULATOR";&w2@131,"DO YOU WANT TO DETERMINE:"&<@200,"1 SWR?"&F" 2 REFLECTED POWER?&P" 3 RETURN TO COCORADIO&Z&d:" ENTER NUMBER YOU WANT";M' n M1 150'x M2 270'* M3 1580'= M2 1 100':"DETERMINE THE SWR FROM THE FORWARD AND THE REFLECTED POWER."'::"WHAT IS THE FORWARD POWER IN WATTS";FF':"WHAT IS THE REFLECTED POWER IN WATTS";FR(F11(FRFF)(F21(FRFF)()ȇ:"THE SWR IS ";(?҇ "##.##";F1F2;(L܇" TO 1"(:"WOULD YOU LIKE 1 DO ANOTHER ONE 2 MENU ENTER NUMBER";M( M1 150( M2 50( M2 1 230)-:"DETERMINE THE REFLECTED POWER FROM THE SWR AND FORWARD POWER")P:"THE SWR IS: ( ) TO 1";R)q":@96,"THE SWR IS:"R" TO 1"),:"FORWARD POWER IN WATTS";FP)6P(R1)(R1))@PSP2)JPRPSFP)TPCPRFP100)^K1(PRFP))hP4FPK)rP5P4FP*|:"REFLD POWER IS ";*( "#,###.##";PR;*6" WATTS"*N"OR EQUAL TO ";*d "#,###.##";PC;*t" PERCENT"*LPFPPR*‡:"POWER IN LOAD= ";*̇ "#,###.##";LP;*և" WATTS"*::::"PRESS ";E$+::"WHAT IS THE COAX Z IN OHMS";CZ+&:"WITH SWR OF "R" TO 1"+2Z1RCZ+BV(FPZ1)+]:"COAX MAX. VOLTS=";+t "###,###.##";V;+&" RMS"+0VPV1.414+: 16);+D "###,###.##";VP;+N" PEAK"+XZ2CZR+bA(FPZ2)+l:"COAX MAX. AMPS= ";,v "###.##";A;," RMS",)A2A1.414,5 20);,I "###.##";A2;,V" PEAK",s:"WHEN LOAD WATTS= ";, "#,###.##";FP;,Ƈ" RMS",Ї"THEN FRWD WATTS= ";,ڇ "#,###.##";P4;," RMS","AND REFLD WATTS= ";- "#,###.##";P5;-" RMS"-) :"PRESS ";E$-/-Z ::"---" CZ"OHM,"FP"WATT VALUES ---"-k*V1(FPCZ)-|4A1(FPCZ)->:"COAX VOLTAGE= ";-H "###,###.##";V1;-R" RMS"-\V2V11.414-f 16);-p "###,###.##";V2;-z" PEAK".:"COAX AMPERES= ";./ "###.##";A1;.;" RMS".KA3A11.414.W 20);.k "###.##";A3;.x" PEAK".ʇ:::"SELECT: 1 MENU 2 CHANGE COAX Z 3 HARD COPY ENTER NUMBER";M/Hԇ#2,"II:IHMHHI::::AIHHHHHHHHHIII::. MMMMMMMMMMMMMMMMMMMMMHMHHHHHHHV:'"/އ#2,"III:IHMHIAMMMIHHHHHHHHHIHII!'..MMMMMMMMMMMMMMMMM!!!/'''"/#2,"IIIII:I:IIHMMMMMHHHHHHHHHHHII:::'''''ԅ M1 50/ޅ M2 490/ M3 10200 M3 1 : 9700+#2,"* * * * * * * * * * * * * * * *"0P#2,4)"---SWR CALCULATIONS---"0]#2,"-"0#2,3)">>>>> SWR="R"TO 1 <<<<<"0$#2,"FORWARD PWR= ";0.#2,"#,###.##";FP;08#2," WATTS"0B#2,"REFL'D PWR= ";0L#2,"#,###.##";PR;1V#2," WATTS"1%`#2,"WHICH IS ";1<j#2,"###.##";PC;1Tt#2,"% OF FWD PWR"1o~#2,"POWER IN LOAD=";1#2,"#,###.##";LP;1#2," WATTS"1#2,"- - - - - - - - - - - - - - - -"1#2,"WITH A COAX Z OF="CZ"OHMS"2#2,"COAX MAX. VOLTS=";2 #2,"##,###.##";V;20ć#2," RMS"2?·#2,16);2Y؇#2,"##,###.##";VP;2j#2," PEAK"2#2,"COAX MAX. AMPS= ";2#2,"###.##";A;2#2," RMS"2 #2,19);2#2,"###.##";A2;2#2," PEAK"3(#2,"WHEN LOAD WATTS= ";32#2,"#,###.##";FP;3.<#2," RMS"3LF#2,"THEN FORW'D PWR= ";3eP#2,"#,###.##";P4;3wZ#2," WATTS"3d#2,"AND REFL'D PWR= ";3n#2,"#,###.##";P5;3x#2," WATTS"3#2,"- - - - - - - - - - - - - - - -"4 #2,CZ"OHM,"FP"WATT VALUES"4)#2,"COAX VOLTAGE= ";4C#2,"##,###.##";V1;4S#2," RMS"4b#2,16);4|#2,"##,###.##";V2;4ȇ#2," PEAK"4҇#2,"COAX AMPERES= ";4܇#2,"###.##";A1;4#2," RMS"4#2,19);4#2,"###.##";A3;5 #2," PEAK"56#2,"* * * * * * * * * * * * * * * *"5<5H,"ENTER;V1;FS#2," RMS"Fb#2,16);F|#2,"##,###.##";V2;Fȇ#2," PEAK"F҇#2,"COAX";4܇#2,"###.##";A1;4#2," RMS"4#2,19);4#2,"###.##";A3;5  F&R :MIKE STONE WB0QCD, SPEC-COM SOFTWARE, PO BOX H, LOWDEN, IOWA 52255.&:INSTRUCTION PROGRAM FOR *COCORADIO* DISK PACKAGE&T1 500:&( A$(6),B$(2)&2(3)& FOR RESTART ............. THANK YOU! .............................,A$(5)"... THANK YOU FOR PURCHASING THIS UNIQUE PROGRAM AND FOR NOT REDISTRIBUTING IT TO OTHERS ............. REFER TO DOCUMENTATION FOR ANY PROBLEMS. IF YOU HAVE ANY SUGGESTIONS OR UPGRADES, WE'D LIKE TO HEAR ABOUT THEM - PLEASE CONTACT US! ........-A$(6)"................................... FOR OTHER TRS80C SOFTWARE PRODUCTS, OUR CATALOG IS AVAILABLE FOR AN SASE ........................................NOW HIT KEY, TYPE TO CONTINUE........................ 73'S! ..............-0B$(2)(32,32)-DB$(1)(32,32)-U359,57:0,1-s@71,"spec-com software";- T1100:-ȇ@139,"presents:";-Ҁ T11000:-܇@231,"c o c o r a d i o";- T1500:-@298,"information";.T11800:. K16.% I1 (A$(K)).="A((A$(K),I,1)).Q, A65 AA64.^6 1535,A.q@ T1 40: T.yJ X.T I,K.^ K1 2 .h I1 (A$(K)).rA((A$(K),I,1)).| A65 AA64. 1535,A. T1 50: T. X/ I,K/ 350/E 8E,05,E0,A6,01,A7,84,30,01,8C,05,FF,26,F5,39 AA64.^6 1535,A.q@ T1 40: T.yJ X.T I,K.^ K1 2 .h I1 (A$(K)).rA((A$(K),I,1)).| A65 AA64. 1535,A. T1 50: T. X/::650/,l" DISK *VIEW* #1 *** #2 ***"/Qv" PICTURE *LOAD* *** ***"/v" STORAGE *SAVE* *** ***"/|/" TUNING I--------I HERTZ"/" METER: 1500 2300 TONES"/0( " CAREFULLY TUNE HF RECEIVER VFO FOR CORRECT PICTURE DISPLAY!"01 CS0QƂ' MACHINE LANGUAGE ROUTINE0І0285050A004D00E7038207040033009904000800002600720F718634B7FF030F,17400چ660F671700E3260EB7FFDEBEC0066F846F01AD9FC004B7FFDF7FFF407F098610,384612CE03D78E0400A6848A40A7808C060025F51703338D0220DE8D57080B0002840D,26611}100002821216000281041B22048F021C440332090E660011090E77001D090E88,11541001C80800000788D2813956803D61A9C6803D580800000678602200286039761,249028D0F131568034B1A1C68034A808000004E17027235109F628D2ADD648D773410,22442^ 1700908D1F1093642707351017008420E71700EE8D4D27EBAEE43003EC84AD8B,302123510206F8D18FC015A4454548D1B2607C1082302C60839C10423FBC60439B7FF,28502 DEAD9FA00AB7FFDF39B7FFDEBEC000B7FFDF8C444B39B6FF008401398DF827FC,47923?*9766398DF19166270B8E222E301F26FC8DE49766399E628D6B91642204D16424,339134073005E6842AF0398D61916522F3D16525EF39CE04008D536D012A0496651F89,31743>3402E0E45CE7E4C6203D33CB8D366D012A0496641F893406E6842A1033C6E6C4,35244 HA68D001FA7C4E78D00192014E6C6C840E7C64CA16123F533C820A6E46A6226EC,40404kR326339CFEC84841FC41F39A60244444444E602C40F39B6FF205A2705B1FF2027,32744\F839C6208DF02708C6408DEA27028DE654D16727158E05409667D767E686CA40,38805fE7869667E686C4BFE786398634B7FF03863CB7FF0186D6B7FF208680B4FF0027,46055Lp053DAC842008DC52DD56DC50DD54862AB7FF208680B4FF0027043D12200ACC26,33735z02DD56CC0E00DD548634B7FF019E4086D6B7FF208680B4FF0027038E0001862A,35555B7FF208680B4FF0026029E42301F26FCA69439DF483A3386DF4C8601A7844F5F,36166-DD4AB6FF205CC1262504A1012005B1FF2027F2D74E1DA18BD34ADD4A9348251B,35576xDD4AD64EF7FF02D14F6984240430012005CC0001E70112C606200F8601B4FF00,30186260617FE7716FD8EC6049C4C25B4DC48934A2F07A18B83000126F917FF2D399E,3332752DE448660208C5F9E50DE46862020838DF55F8DEA8DF0C6608DE48DEAC6C020,44257YDE5F2006C6082002C610308DFD123ACE00408608E680E7C04A26F98D49861197,339774F8E26029F52CE0E00DF5033C820DF54308901209F568DB8DE54DF509E569F52,34977ʆ8CFE0225E6397FFF22CEFFC6A75AA75CA75E860444C6074424063341A7C02002,36028:ԆA7C15A26F23986F0B7FF22CEFFC6A75AA75DA75F860E20DC8690F6015BC13F26,43818ކ015C3D584958498E2602308BB6015A813F26014C308620380000000000000000,16958000000000000008DBD8DCDFC015A340617FD6BFC015A10A3E127028DBB17FD83,2983927E9398DA18E260263808CFE0225F939108E0E00C620A680A7A05A26F9308840,34279f108C260025EE39108E0E00C620A6A0A7805A26F9308840108C260025EE392602,27409262226426E026E226E42B602B622B642C6002002C611D760D661C10326028D24,2738917FF43318CD88609AEA134229661810326068D9C8D7620048D728DAB0C603522,3091:G4A26E539B7FFDEFEC006CC0200EDC4CC1102ED428E0E00AF44AD9FC004B7FFDF,4263:$D660260FC600A6854C1026FBE95CC11723F439C62BA6854C1026FBDA5CC14323,3644:.F439C6ED2002C6F7340417FED9D665C00686033DDB64EBE0D760860297618D0C,4102;(87FFF407F098617FC8D26FB393476B7FFDEBEC006D661E7846F01CC0E00ED04CE,4147;sBFFFF9660C6183D108301332503C30002334183001224F9C30013E7031F30E702,2785;L108E0018AD9FC0048D1F6C04EC02108311012602CB025CC1122303C6014CED02,2497< V313F26E0B7FFDF35F617FC2A260C7FFF407F098617FC2516FB3C3917FE48B6FF,3905" 'L< " <1> SOUND GENERATOR TEST A'pF " <2> SOUND GENERATOR TEST B'P " <3> SOUND GENERATOR TEST C'Z " <4> SOUND GENERATOR TEST D'd" <5> SOUND GENERATOR TEST E'n" <6> SOUND GENERATOR TEST F(!x" <7> SOUND GENERATOR TEST G(D" <8> SOUND GENERATOR TEST H(e" <9> RETURN TO FSTV MENU"(" press spacebar to stop";(N$: N$"" 160(N(N$)( N1 300( N2 350(ȅ N3 410(҅ N4 470(܅ N5 520) N6 570) N7 650)/ N8 700)B N9 "MENU2)R N1 160)b N9 160)"'SOUND GENERATOR TEST 1),"L255;V31;01;A;D;C;F;B;AG;E;D;V16;A;C;G;A;D;V4;E;A;B;C;A;E;D;B")6 "" 300)@4: T1 150: T)J*T'SOUND GENERATOR TEST 2*=^"L255;03;V31;12;11;10;9;8;7;6;5;4;3;2;1"*kh"L255;02;V31;12;11;10;9;8;7;6;5;4;3;2;1"*{r ""350*|4: T1 150: T**'SOUND GENERATOR TEST 3*"L255;V31;02;1;2;3;4;5;6;7;8;9;10;11;12"+"L255;03;V31;1;2;3;4;5;6;7;8;9;10;11;12"+! ""410+84: T1 150: T+>Ž+[̂'SOUND GENERATOR TEST 4+v "L255;C;D;E;F;G;A;B"+ "" 470+4: T1 150: T++'SOUND GENERATOR TEST 5+"L255;03;V31;L10;A;V16;A;V8;A;V3;A;V1;L20;A", "" 520,4: T1 150: T,!&,>0'SOUND GENERATOR TEST 6,k:"L250;V31;02;1;3;6;05;1;3;01;11;6;11;6",~DJ100(3)90,N T1 J,X T,b "" 570,l4: T1 150: T,v,'SOUND GENERATOR TEST 7-"L255;01;V31;12;9;12;9;12;9;4;6;4;6;1;3;1;3"-"P50"-- "" 650-D4: T1 150: T-J-g'SOUND GENERATOR TEST 8-|"V15;T255;L255"-Ѐ X1 15- "CDEACB;V-"- X- "" 710-4: T1 150: T-- 'SOUND GENERATOR TEST 9.- "O4;T255;L255;1;2;2;3;3;4;5;6;7;8;9;10;10;11;11;12;12".\ "12;11;11;10;10;9;8;7;6;5;4;3;3;2;2;1;1".m* "" 790.44: T1 150: T.> "CDEACB;V-"- X- "" 710-4: T1 150: T-- 'SOUND GENERATOR TEST 9.- "O4;T255&a ' ORIGINAL PROGRAM WRITTEN BY MARTIN GOODMAN IN RAINBOW MAGAZINE, FEBRUARY 1985 ISSUE&' IT IS BEST TO VIEW THIS PROGRAM ON A B/W TV SET.'-' LINE 240 DETERMINES THE SPEED OF PRINTER BAUD RATE & IS PRESET AT 9600 BAUD. FOR OTHER RATES, SEE PAGE 55 OF DOCUMENTATION.'(' OTHER PRINTER VERSIONS OF THIS PROGRAM ARE AVAILABLE SUCH AS THE C.ITOH PROWRITER. WRITE FOR DETAILS.(2' A MACHINE LANGUAGE BREAK DOWN PRINTOUT IS AVAILABLE FROM RON TONNESON K0QVF IN FAIRFAX, IOWA.(o<'CASSETTE VERSION WILL NOT LOAD OR SAVE PICTURES (BUT IS MOVEABLE TO DISK)(F'FOR COMPLETE DOCUMENTA- TION ON THIS PROGRAM, SEND $3.00 TO SPEC-COM JOURNAL, P.O. BOX H, LOWDEN, IA 52255.)EP' HF SHORTWAVE FAX FREQS. 3.357, 4.975, 8.027, 8.080 10.865 AND OTHERS. )nZ(3):@68," SPEC-COM (TM) JOURNAL ";)yd200,1)n@138,"cocoradiofax";)x@198," WEFAX RECEIVE 1.3 ";)@259," INTERFACELESS SOFTWARE ";*@321,"FOR THE TRS80C COLOR COMPUTER";*-@419," BY MARTIN GOODMAN 02/85 ";*T@451," PUBLIC DOMAIN PROGRAM ";*dT15000:*' WEFAX 1.2 VERSION 1/85*' BEGIN BASIC PROGRAM*4*F1651: 60 LPM ADJUST*F2901: 90 LPM ADJUST*F31027: 120 LPM ADJUST+6' PRINTER BAUD RATE IS CONTROLLED BY MENU 5 PROGRAM+<+X" COCOFAX DEMODULATOR"+i(32,"-");+" COCOFAX WILL RECEIVE HF FAX";+"" AT 60, 90 & 120 LINES/MINUTE."+,+6"1. INTERFACE RCVR TO COMPUTER.,@"2. TUNE IN FACSIMILE STATION.,*J"3. ADJUST SIGNAL INTO BAR GRAPH,PT"4. SELECT 60-90-120 LPM FORMAT.,u^"5. WAIT TILL START OF NEW PIX.,h"6. RIGHT JOYSTICK LEVER DOWN.,r"7. MOVE VFO FOR LIGHTER/DARKER.,|" *STANDBY FOR MENU SELECTOR*,,"L-O-A-D-I-N-G"-AD&H600:LI900-A$,CS-1 A$"X" 510-D I1 64 2-^A("&H"(A$,I,2))-y̒ AD,A:CSCSA:ADAD1-֋- CS "DATA ERROR IN LINE";LI:-@462,944LI-LILI1: 420-A(F1256):&H600,A:&H601,F1256A.A(F2256):&H608,A:&H609,F2256A.GA(F3256):&H610,A:&H611,F3256A.j" SELECT *60* *90* *120* LPM".p&.0" *PRINT TO EPSON PRINTER*".:.D" *REVERSE PICTURE IN MEMORY*".N.XA$((&HC000))((&HC001))/b A$"DK" : "&L :***THIS IS A MODIFICATION OF THE SLOSCAN DISPLAY AND HARDCOPY UTILIY&z:AS PUBLISHED IN DEC 1983 "A5" MAGAZINE.&:THE MODIFICATIONS INCLUDE:&(: 1: ADJUSTMENT OF THE ASPECT RATIO&2: 2: ADDITION OF A 2 TIMES SIZE OPTION'5<: 3: ADDITION OF SOME ASSEMBLY CODE TO SPEED UP THE PRINT'rF:THESE MODIFICATIONS WERE WRITTEN BY RON TONNESON K0QVF'yP:'Z:***SLOSCAN IMAGE DISPLAY***'d:*** & HARDCOPY UTILITY***'n:*** BY KINNEY SOFTWARE ***'x:(C)COPYRIGHT1983 DICK KINNEY(!:****ALL RIGHTS RESERVED****(C:*****NOTICE FOLLOWS********(a:***NOTICE: THE HARDCOPY(:FUNCTION OF THIS PROGRAM(:WILL ONLY WORK ON THE(:EPSON WITH GRAFTRAX(:AND GEMINI 10-X PRINTERS)$:REFER TO SLOSCAN INSTRUCTIONS FOR INFORMATION ON USE WITH OTHER PRINTERS)+:)28)C 100,&H6FFF)[ I&H7000 &H706A)s D$: D("&H"D$))} I,D) I)0 &H7000)"1 &H7048),)6:)@" C-O-C-O-S-S-T-V)A)B" EPSON WITH GRAFTRAX"*J*)T" SSTV IMAGE REPLAY AND HARDCOPY"*P^" (C)COPYRIGHT 1983 DICK KINNEY"*Vc*zd" insert sstv picture disk"*h:*r" PICTURE NAME ON DISK? (HCPY=HARD COPY)";N$*| N$"HCPY"450*4,2*1,0*M N$,1024:1+K$+K$""420+! 300+C:*******HARDCOPY PROGRAM****+L4,2+Uֿ1,0+:" HARDCOPY OF SLOSCAN PICTURE PREPARE PRINTER"+::+" TO SPEED UP PRINTOUT"+" POKE 150,1 (9600BAUD)"," AND SETUP SERIAL INTERFACE"," FOR 9600 BAUD",9" SMALL OR LARGE(S OR L)?",E&K$ ,Z0 K$ "S" 580,v: K$ "L" 580 : 550,D#2,(27);"A";(8),N4,2:1,0,X K$ "S" 690,b K1 32 1,l I0 1,v#2,(27);"K";(128);(1);-A0(K)- #2- I-K-' 300-: K1 32 1-]#2,(27);"K";(192);(0);-jA1(K)-sЇ#2-{ڋ K-䁥 300- 86,FE,97,6F,BD,B3,ED,8E- 2B,DF,3A,A6,84,43,7D,70- 69,26,04,44,44,44,44,5F- 44,24,02,CB,03,44,24,02. CB,0C,44,24,02,CB,30,44.: 24,02,CB,C0,1F,98,AD,9F.X* A0,02,AD,9F,A0,02,1F,10.v4 83,00,20,1F,01,8C,14,00.> 24,C9,73,70,69,0F,6F,39.H 86,FE,97,6F,BD,B3,ED,8E.R 2B,DF,3A,A6,84,43,AD,9F.\ A0,02,1F,10,83,00,20,1F/ f 01,8C,14,00,24,ED,0F,6F/p 39,00,00/!z4,02,CB,C0,1F,98,AD,9F.X* A0,02,AD,9F,A0,02,1F,10.v4 83,00,20,1F,01,8C,14,00.> 24,C9,73,70,69,0F,6F,39.H 86,FE,97,6F,BD,B3,ED,8E.R 2B,DF,3A,A6,84,43,AD,9F.\ A0,02,1F,10,83,00,20,1F/ f 01,8C,14,04E2R4F2R4U2H4L8BD2BG2BD10BR4G2D2F2R4E2U2H2L4"A4M$(33)"00D4R12G6D14R4U12E6U6L16":M$(34)"04G4D6F2G2D6F4R8E4U6H2E2U6H4L8BD6D2F2R4E2U2H2L4G2D2F2BD4G2D2F2R4E2U2H2L4":M$(35)"04G4D6F4R8D4G2L4H2L4D2F4R8E4U16H4L8BD6D2F2R4E2U2H2L4G2":M$(36)M$(15)B\M$(40)"06D2L4G2D8F2R10D4L12D2F2R4D2R4U2R4E2U8H2L10U4R12U2H2L4U2L4":M$(42)"04G4D4F2G2D6F4R6E2F2R2U6H4E4U4H4L8BD4BR2D2F2R2E2H2L4BL1BD10D2F2R2U2H2L2":M$(41)"00D11R7G7D4R2E4D5R10U10L5E5U6G5U7L11BF4D3R3U3L3D3BF2BR3BD8BR1D2R2U2L2":M$(43)"05D10R6U10L6"CM$(50)"05D8R8U8L8D8BD8D8R8U8L8":M$(51)"05D6R8U6L8D6BD10BR4G8R8E8L8":M$(47)"06D6L6D6R6D6R6U6R6U6L6U6L6":M$(52)"00D6R16U6L16D6BD12D6R16U6L16":M$(53)"05D14R6U14L6D14BD4D6R6U6L6":M$(54)"04G4D4R4U2E2R4F2D2G2L2G2D4BD2D6R6U6L6BU2R6U2E4U6H4L8"DM$(55)"05BD18D6R6U6L6":M$(56)"10BD16G8R8E8L8":M$(57)"00BD10D4R16U4L16":M$(48)"06D2L4G2D8F2R4D4R4U4R4U4L10U4R10U4L4U2L4":M$(37)"S8":M$(38)"S10":M$(58)"08""S10"(M$(27),3)"S4"E:"THERE ARE"FPG"PAGES":::"ENTER PAGE NUMBER THAT YOU WANT FIRST";PG$(1):PG$(1)""PG(1)1:PG(1)(PG$(1))E7 PG(1)1PG(1)FPG2300E $@256,"ENTER LAST PAGE NUMBER YOU WANT DISPLAYED or PRESS FOR LAST PAGE":PG$(2):PG$(2)""PG(2)FPG:PG(2)(PG$(2))E 8PG(2)1PG(2)FPG2340F? 9:@96,"CHOOSE:":@169,"1) HIGH SPEED DISPLAY":@233,"2) LOW SPEED DISPLAY"Fi ;DSP$:DSP$"1"DSP$"2"2365:2363F =DSP$"1"DSP65495:DSP65494F >DSP,0::@96,"CHOOSE:":@169,"1) POP-OUT LETTERS":@233,"2) PRE-PRINTED LETTERS"G LCH$:CH$"1"CH$"2"2390:2380G VCH$"1"CH1G- `CH$"2"CH3G jGPCH::@96,"CHOOSE:":@169,"1) AUTOMATIC DISPLAYER":@233,"2) SWITCH ACTIVATED":@268,"AFTER PAGE 1 ONLY":@329,"3) SWITCH ACTIVATED":@364,"AFTER EVERY PAGE"H lDS$:DS$"1"DS$"2"DS$"3"2415:2412Hf o:@71,"DELAY (IN SECONDS)":@99,"AFTER SWITCH IS ACTIVATED":@162,"<1 - 9> OR FOR NO DELAY"H pVS$:VS$"N"2420H rVS(VS$):VS1VS92416H t:@167,"ONE MINUTE, PLEASE":CH3DS$"3"@199,"THEN PRESS SWITCH"I ~HHPG(1)PG(2):R$MM$(HH):J06:P(1,R$,"]"):LP1:LN$(J)(R$,L):R$(R$,P1):J:CB((LN$(0),1)):CO((LN$(0),2,1)):CF((LN$(0),3,1)):CS((LN$(0),4,1)):1,GP:(CB):CH12570:2580I 1,0Ja NL16:LN$LN$(NL):Y$((4(32(NL1)))2):X0:YY$Y$:LL(LN$):SP22((4(10LL)1)):Q1LL:L$(LN$,Q,1):P(1,S$,L$)1:L$M$(P):P49LP1:LP0Jp P55LP2J P56LP2J CS$(CS):CO$(CO):P57LP3J L$M$(0)XX20J SC$"S10"2733J 2740J L$M$(10)XX8K L$M$(27)XX5K' L$"S8"XX8:L$"S8"3130KM L$"S10"XX10:L$"S10"3130Kb L$M$(0)3160K OF$(L$,2):OF(OF$):L$(L$,3):XXSP:X$(XOF):P57Y$((YY$))K K$"BM"X$","Y$"C"CS$SC$L$:K$:KQ0:Z(X$):Y(Y$):LP22970L 6LP3SC$"S10"YY10L3 ;LP3SC$"S8"YY5LM FOR ANOTHER PAGE *OR TO RETURN TO MAIN MENU"0CC$:CC$"Q"CC$(13)10400%ޅCC$""97009CC$"0"10700WX(CC$):X0X710700a9700MM$(PG)LN$(0)"]"LN$(1)"]"LN$(2)"]"LN$(3)"]"LN$(4)"]"LN$(5)"]"LN$(6)"]":0$1120:@416,"PRESS LINE NUMBER TO CHANGE:"1&X$:X$"0"X01(X$"0"107010)X(X$):X1X610621`.1120:@448,"ENTER LINE"X":":820:960:2P`CB((LN$(0),1)):CO((LN$(0),2,1)):CF((LN$(0),3,1)):CS((LN$(0),4,1))::"PAGE NUMBER"PG:@32,"COLORS:":@64,"1=GREEN 2=YELLOW 3=BLUE 4=RED":@96,"BACKGROUND-OUTLINE - FILL-SHADOW":@132,CB:@140,CO:@148,CF:@156,CS2t@173,(241):BL110:@173BL,(243):BL:@184,(242):ZZ16:@161(ZZ32),"LINE "ZZ" "(245)LN$(ZZ)(250):ZZ:@430,"1234567890":3]:"***DELETE A PAGE***":@160,"CHOOSE:":@200,"1) DELETE ONE PAGE":@232,"2) DELETE PAGES TO END":CH:CH1CH211603pCH1176,11673:@160,"WHAT NUMBER IS THE FIRST PAGE TO BE DELETED?":PG:PG1PGFPG11673PG1PGFPG1160311804+:@160,"WHAT PAGE DO YOU WANT DELETED?":PG:PG1PGFPG11764R$MM$(PG):650:1120:@416,"IS THIS THE PAGE? , , OR (TO QUIT)"4CC$:CC$"N"CH111764CC$"N"CH211674ąCC$"Q"4΅CC$"Y"12424؁12005څCH112505'܀XPGFPG:MM$(PG)"":X:FPGPG1:5DPPGFPG1:MM$(DP)MM$(DP1):DP:FPGFPG1::@160,"PAGE "PG" HAS BEEN DELETED ALL PAGES AFTER "PG" HAVE BEEN LOWERED BY 1 NUMBER":@320,"DO YOU WANT TO DELETE MORE PAGES":@395," OR "6CC$:CC$"Y"11766(CC$"N"6)213006<:"***CHANGE A PAGE***"::"THERE ARE"FPG"PAGES"::"ENTER THE PAGE NUMBER THAT YOU WANT TO CHANGE";PG:PG1PGFPG13406PR$MM$(PG):650:1120:@416,"IS THIS THE PAGE? , , "7jCC$:CC$"Y"13907kCC$"N"13407&lCC$"Q"71m13867On1060:CC$(13)13407U7:"***COPY A PAGE***"::"THERE ARE"FPG"PAGES"::"ENTER PAGE NUMBER THAT YOU WANT TO COPY";OP:OP1OPFPG14208:"CHOOSE:":" 1)COPY OVER OLD PAGE":" 2)INSERT BETWEEN PAGES":" 3)COPY AT THE END":CH:CH1CH2CH31460::"CHOOSE <1>, <2>, OR <3>":"PAGE"PG" TO BE COPIED":14408CH215208CH315809Ȟ:"ENTER PAGE NUMBER THAT YOU WANT THE COPY MADE OVER";PGN:PGN1PGNFPG14809MM$(PGN)MM$(OP):9p:"ENTER PAGE NUMBER THAT YOU WANT THE NEW COPY TO follow";LP:LP0LPFPG152091650:OPLPMM$(LP1)MM$(OP1)9OPLPMM$(LP1)MM$(OP)9"9,FPGFPG1:MM$(FPG)MM$(OP):::JT:"***INSERT A PAGE***":@160,"WHAT PAGE NUMBER WILL THE NEW PAGE follow?":LP:LP0LPFPG1620:rPGLP1:RNFPG1PG11:MM$(RN)MM$(RN1):RN:KK8720:1700:FPGFPG1:KK8CC$(13)1620:;ZRFPG:SC$"S4":S$" ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890<>#$%&'()*+@/:;=!?.,-":M$(1)"04G4D20R4U10R8D10R4U20H4L8BD6D4R8U4H2L4G2":M$(2)"00D24R12E4U6H2E2U6H4L12BD4BR4D6R6E2U2H2L6BD10D6R6E2U2H2L6":M$(3)"04G4D16F4R12U4L8H4U8E4R8U4L12"<M$(4)"00D24R10E6U12H6L10BF4D16R4E4U8H4L4":M$(31)"00D14R10F2D2G2L6U2L4D4F2R10E4U6H4L8U6R12U4L16":M$(5)"00D24R16U4L12U6R6U4L6U6R12U4L16":M$(6)"00D24R4U10R6U4L6U6R12U4L16":M$(7)"04G4D16F4R8E4U8L8D4R4D2G2L4H2U12E2R4F2R4U2H4L8"={:M$(8)"00D24R4U10R8D10R4U24L4D10L8U10L4":M$(9)"00D4R6D16L6D4R16U4L6U16R6U4L16":M$(10)"12D18G2L4H2U2L4D4F4R8E4U20L4":M$(11)"00D24R4U8F8R4U2H10E10U2L4G8U8L4":M$(12)"00D24R16U4L12U20L4":M$(13)"00D24R4U16F4E4D16R4U24L2G6H6L2">`vM$(14)"00D24R4U14F2D2F2D2F2D2F2R4U24L4D14H2U2H2U2H2U2H2L4":M$(15)"04G4D16F4R8E4U16H4L8BR2BD4G2D12F2R4E2U12H2L4":M$(16)"00D24R4U10R8E4U6H4L12BD4BR4D6R6E2U2H2L6":M$(17)"04G4D14F4R4F2R4E2H2E2U14H4L8BR2BD4G2D10F2R4E2U10H2L4"?JM$(18)"00D24R4U10R2F6D4R4U6H4E4U6H4L12BD4BR4R6F2D2G2L6U6":M$(19)"04G4D6F4R6F2D2G2L4H2L4D2F4R8E4U6H4L6H2U2E2R4F2R4U2H4L8":M$(20)"00D4R6D20R4U20R6U4L16":M$(21)"00D20F4R8E4U20L4D18G2L4H2U18L4":M$(22)"00D16F8E8U16L4D14G4H4U14L4"@9M$(23)"00D22F2R2E4F4R2E2U22L4D18H4G4U18L4":M$(24)"00D8F4G4D8R4U6E4F4D6R4U8H4E4U8L4D6G4H4U6L4":M$(25)"00D10F6D8R4U8E6U10L4D8G4H4U8L4":M$(26)"00D4R12G12D8R16U4L12E12U8L16":M$(47)"00BD8BR8BU8BL8":M$(27)"08G4D2R4D14L8D4R16U4L4U20L4"A, M$(28)"02G2D4R4U2R8D6L8G4D10R16U4L12U4E2R8E2U10H2L12":M$(29)"02G2D4R4U2R8D4G2L4D4R4F2D4L8U2L4D4F2R12E2U8H2E2U8H2L12":M$(30)"00D14R8D10R4U10R4U4L4U10L4D10L4U10L4":M$(32)"04G4D16F4R8E4U6H4L8U& 200,1&'ATV MENU&!&E(@ 98," *SELECT FSTV PROGRAM*&i2@197, "a=ATV MESSAGE GENERATOR&< " b=BANNER SCROLLER&F " c=TV TEST PATTERNS&P " d=SUBCARRIER TESTER&Z&d " r=RETURN TO MAIN MENU'nB$:B$""110' xA$B$'$A$"A""3DMSGGEN'6A$"B"240'LA$"C""TESTPAT'cA$"D""AUDIOGEN'uA$"R"190'110'@389,"7";'"T20;L1;D;P3;D;P3;L3;D;P3;D;P3;D;P1'҇@390,"3";'"T20;L3;D;P3;D;P3;D;P3;L1;D;P3;D;P1'"ENTER(u(0):@128, " NOW LOADING MACHINE LANGUAGE PROGRAM. TYPE EXEC & WHEN 'OK' APPEARS ON SCREEN."(M"BANNER389,"7";'"T20;L1;D;P3;D;P3;L3;D;P3;D;P3;D;P1'҇@390,"3";'"T20;L3;D;P3;D;P3;D;P3;L1;D;P3;D;P1'"ENTER(u+h& :@138,"'LARGE LETTER":@166,"3D MESSAGE DISPLAYER'":@232,"FOR COCORADIO DISK":@295,"BY STUART B. HARRIS,":@330," (C) 1983 ":@389," STANDBY FOR MAIN MENU ":ZZ15000:ZZ:8400:MM$(130):M$(65)'w<:NF$" LOADED "FPG"PAGES":@32,"CHOOSE ONE:":@100,"1) LOAD PAGES FROM TAPE":@164,"3) ENTER THE PAGES":@132,"2) SAVE PAGES TO TAPE":@196,"4) PREVIEW PAGES"( F@228,"5) DELETE A PAGE":@260,"6) CHANGE A PAGE":@292,"7) COPY A PAGE":@324,"8) INSERT NEW PAGE":@359,"BETWEEN PAGES":@388,"9) DISPLAY PAGES":KK:KK1KK960(WZKK320,110,240,450,1160,1340,1420,1620,1740:60)-n:"***SAVE PAGES ON TAPE***"::"DATE OR NAME OF FILE";NF$::" REWIND TAPE ":" THEN, PRESS PLAY & RECORD"::"PRESS WHEN READY";CC$:@267,"RECORDING":TC12:TC2@324,"DO NOT REMOVE TAPE YET"):ZZ13300:ZZ:"O",#1,NF$:PG1FPG:#1,MM$(PG)::200,1:@267,(255)"RECORDING"(255):PG:#1:TC:)PGFPG1)720:FPGPG:CC$"Q")PGPG1:250:PGPG1:*@:"***LOAD PAGES FROM TAPE***"::"NAME OF PROGRAM TO BE LOADED (IF ANY)";NF$::"REWIND TAPE & PRESS PLAY"::"PRESS WHEN READY";ZZ$::"I",#1,NF$:PGFPG1*h(1)410*r#1,MM$(PG)::@267,(255)"LOADING"(255):200,1:PGPG1:360+#1:PGPG1:FPGPG:ZZ1100:ZZ:+ž:"***BREAK DOWN PAGES***"::@64,"ENTER first PAGE NUMBER THAT YOU WANT VIEW":@192,"or PRESS FOR PAGE 1":PG$(1):PG$(1)""PG(1)1+PG$(1)""510+PG(1)(PG$(1)):PG(1)1PG(1)FPG450,:@64,"ENTER last PAGE NUMBER THAT YOU WANT TO VIEW":@192,"or PRESS FOR LAST PAGE IN MEMORY":PG$(2):PG$(2)""PG(2)FPG,PG$(2)""560,PG(2)(PG$(2)):PG(2)PG(1)PG(2)FPG510-%0:"ENTER LENGTH OF TIME YOU WANT TOVIEW EACH PAGE IN SECONDS (1-15)";VS:VS15560-4:VS0VS1-^DPGPG(1)PG(2):R$MM$(PG):R$""PG-b650:1120:DLY1VS550:DLY:PG:-J06:P(1,R$,"]"):LP1:LN$(J)(R$,L):R$(R$,P1):J:.tЀX06:LN$(X)"":X::X06:X0"PAGE NUMBER"PG:@64,"COLOR CODE:":"1=GREEN 2=YELLOW 3=BLUE 4=RED":@160,"ENTERING ORDER:":"BACKGROUND-OUTLINE -FILL-SHADOW". X0."ENTER LINE"X":":820:940.4B$"".>A$:A$""830.HA$(13)B$""B$" ".RA$(13)LN$(X)B$:920/ &] :TO USE THIS A5 LOGO WITH ANY PROGRAM, JUST INSERT THE PRO- GRAM NAME IN LINE 550&z256:ER0:NL16:M4:FC1&490:::M,1:1,1&(A$" SPEC-COM (TM) HR JOURNAL":B$" AMATEUR RADIO SOFTWARE TRS80C":500&2510&(X56,Y39)(X53,Y36),+R»(X56,Y42),+_̒359,126+|֕256:ER0:NL16:M4:FC1+520+(27)256(28)1874:359,57:+::A$;: I1 12:::B$;:+A(FC256NL):,3,1:1,1: G1 2000:G,$4,1: 1,0: Y1 2000: Y,C4,1: 1,1: L1 2000: L,]&3,1:1,1:G12000:,{04,1: 1,0: Y13000: Y,:"CLOCK4wܷ- 2]'M&C O"1#&# &# =߆ == =ܷ'\0 = 4DDDD 5!!1 Z&⮍md1"j]&1`- > JF == 7 1 Z&$1!j&1`-5 03BB<@@@|BBBB|BBBB>B<@@@|BBBBB0|B<@@DHpHDBB0wIIAAA\bBBBBLR`@@@>@<|> BBBBF:BBBB$AAAIIwB$$BBBBBB>B<~ ~000IUUUUUU>>>>>IA""**II<``<<Ã<0@@@@   @@  $BB$<<<"A"A@@NQQI>"AAAAA~!!!>!!!~>A@@@@@A>~!!!!!!!~@@@~@@@@@@~@@@@>A@@@GAA>AAAAAAAA>>D8ABDHpHDBA@@@@@@@@AcUIAAAAAAAaQIECAA>AAAAAAA>~AAA~@@@@>AAAAIEB=~AAA~HDBA>A@@>A>AAAAAAAA>AAAAAA"AAAAAIUcAAA""AAAAA" @< <@@ <<*I  $$$$$$$>I( I>pQr'E  %BF9A""A @@>ACEIQaA>>>A >AA> "@@@~A>>A@@~AAA> >AAA>AAA>>AAA?A>   >A  !%&)*-.0357;>5 BAS!MENU4 BAS<REPLAY PBAS=DHAMTIMERBASPRELOAD BAS CLOCK BAS"ENTER BAS#|MENU2 BAS3DMSGGENBASkBANNER BIN$MENU1 BAS'TESTPAT BAS(REPLAY EBAS%MENU3 BAS+HAUDIOGENBASCOCOFAX1BASLOG-QSL BAS,vMORSE BAS/HELP BASIBOOT BAS1VSWR BASANTENNA BAS2COCOSSTVBINPRERTTY BAS44OSCAR BAS |SAT LOC BAS6PENTER2 BAS8COCORTTYBIN9ACOCOFAX2BAS}MSG GEN BAS:MENU5 BAS!MENU4 BAS<REPLAY PBAS=DHAMTIMERBAS& 5,3&$'CLOCK PROGRAM 10/85&I:" cocoradio clock program:'%( " MOST OF THE INCLUDED PROGRAMS IN *COCORADIO* ARE WRITTEN IN BASIC LANGUAGE SOFTWARE. THIS CLOCK PROGRAM CAN BE USED AS A 'TIME IN USE' COUNTER OR AS A REAL TIME-OF-THE-DAY CLOCK.(2@225,"TO USE AS A 'COUNTER', INSERT 0000. TO USE AS A CLOCK, INSERT THE CORRECT TIME. THE 'CLOCK' PROGRAM WILL RUN AND DISPLAY ON MOST BASIC PROGRAMS UNLESS THE BREAK KEY IS USED. READY FOR LOADING:(5<@480," (PRESS ANY KEY TO MOVE CLOCK)";:I$(LFI$: I$"" 70(yP@480," RELOCATING CLOCK. STANDBY!! ";(ZQ(39)256(40)(d200,Q356(nQ(39)256(40)(xE(27)256(28)(EE13(BE359(WQ356)T E B 1) W,(T))WW1)%T)0Ȣ Q23)Aҕ200,Q158:)M܎"MENU1AX WHAT TIME IS IT? HHMM  /(Q0ڽ'l'a'V'K:Q0'Y'* IS THE TIME CORRECT AS SET? (Y OR N) Q0  9000040&:' :  x̷Ƿ·L;' SL:' A0L6' /0~L4&t2':'i 0a\LW5~??90KHEBm IS THE TIME CORRECT AS SET? (Y OR N) Q0  900y& :MENU SELECT COMMAND PROGRAM FOR cocoradio DISK PACKAGE (C) RELEASED OCTOBER 1985 BY SPEC-COM COMMUNICATIONS PO BOX H, LOWDEN, IA. 52255&:DISK LOOP THRU AND GRAPHIC PROGRAM ROUTINES WRITTEN BY MIKE STONE WB0QCD.',(3):@64,"SPEC-COM (TM) SOFTWARE PRESENTS:";'M(@198,"AMATEUR 'HAM' RADIO";'h2@265,"INTERFACELESS";'<@322,"SHORTWAVE LISTENER'S PACKAGE";'F@394,"VERSION 2.0";'P@139,"c";'Z"T20;L1;D;P3;L3;D;P3;L1;D;P3;L3;D;P1'd@140,"o";(n"T20;L1;D;P3;D;P3;D;P1(x@141,"c";(H"T20;L1;D;P3;L3;D;P3;L1;D;P3;L3;D;P1(W@142,"o";(s"T20;L1;D;P3;D;P3;D;P1(@143,"r";("T20;L3;D;P3;L1;D;P3;L3;D;P1(@144,"a";("T20;L3;D;P3;L1;D;P1(ȇ@145,"d";("T20;L1;D;P3;L3;D;P3;D;P1) ܇@146,"i";)!"T20;L3;D;P3;D;P1)0@147,"o";)L"T20;L1;D;P3;D;P3;D;P1)@450," ANY KEY TO CONTINUE";:""260)"T20;L3;D;P3;L1;D;P3;L3;D;P1") :@34,"cocoradio mainmenu ")"@ 98,"a=AMATEUR TELEVISION (FSTV)*," f=FACSIMILE TRANS/RECEIVE*76" h=HELPFUL INFORMATION"*Z@" l=LOGBOOK/QSL CARD PRINTER*|J" m=MORSE CODE TRAINER (CW)*T" o=OSCAR SATELLITE TRACKER*^" r=RADIOTELETYPE (RTTY)*h" s=SLOW SCAN TELEVISION (SSTV)+r" t=HAM RADIO QSO TIMER"+|" v=VSWR UTILITY+9" y=YAGIS ANTENNA UTILITY+" ";, B$:B$""490,0"T20;L3;D;P3;L1;D;P3;L3;D;P1",:A$B$,NA$"A""MENU2,aA$"C""COAX,uA$"F""MENU4,&A$"H""HELP,0A$"L"660,:A$"M""MORSE,DA$"O""OSCAR,NA$"R""PRERTTY,XA$"S""MENU3-bA$"T""HAMTIMER-lA$"Y""ANTENNA-0vA$"W""WORLDMAP-CA$"V""VSWR-M490-0:200,1:@66,"NOW LOADING LOGBOOK PROGRAM";-@162," CASSETTE BASED DATA STORER";-@258,"STANDBY... FOR DISK LOADING";- T15000:-"LOGBOOK$"T""HAMT7H   ! ? P %q %  %@5Z&)&$' '' '|  7# & @&45   0 %s0` 0&Z& ``_Z&99999`  09 ' 1?&9 ' 45 45 &  q9'i' '& ':^'9n0 %,& ' 0 % % s  %'6&9' 'm '#|?. &@z'`'A4Z'%_\ 04`0Z&455kz|Z& E`E}&/s0 % %` 6Z&}' L94 ZZ!Z&59,09 %94 ''&  & 4 5 059s m xw dtglazhubircvpqyfno{E A SIU DRJNFCKTZLWHYPQOBGMXV4400'%'!''4 #  ' o5 o5%-14):+/2,#<=673!*05'&8.>9          z-'$%'$45'FZ&FFFC90&9 _\'$F%\'F$_\'F%\' F$z & 9GZ' F%?  94/Z' ' 5ʪzjR2"  2R42Z' ' 5ʪzR2  2R460l'&'HP$$H&  54P 4Z'  =' 5ʺzjRB2"  "2BRjJzΆV|< 2`@( xHhP0p`@( xHhP0p OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOq HX/nHʺzjRB2"  "2BRjJzΆV|< 2`@( xHhP0p`@( xHhP0p OOOOOOOOOOOOOOOOOOOOOOOOOO & 200,1&+ :@104, "c o c o r t t y"&J@167, "MESSAGE GENERATOR"'? 12 " " 'H(60't2 &H178D, &H20: &H178E, &H0A:: 70(\ ELSE ENTER ";Z$:Z$"N" 50 : )6F@33,"ENTER YOUR RTTY MESSAGE LETTER BY LETTER. ENTER <#> TO END MESSAGE. MAXIMUM 30 CHARACTERS. THIS WILL BE SENT AT THE END OF EACH TRANSMISSION. PRESS TO BEGIN MESSAGE.": C$: C$"" 70*CP 21 " ": : Y 7207 7238:*uZQQ01: "?":@66,Q" SPACE(S) OUT OF 30 USED*d L$: L$"" 100*n@3,L$: Z 1 200: Z*x L$"#" Y,0: 140+ 67 " ": : M(L$): Y,M: Y,q: (&H178D)32 230 : @33, "ENTER YOUR CALL SIGN LETTER BY LETTER. ENTER <#> TO TERMINATE. MAXIMUM 10 CHARACTERS. PRESS TO BEGIN.",C$: C$"" 150- 32 " ": : Y 7243 7253:-PP1:"?":@66,P"SPACE(S) OUT OF 10 USED-L$: L$"" 180-@3,L$: T 1 200: T.ȅ L$"#" Y,0: 230/%҅ 41 " ": : M(L$): Y,M: Y0&܅ 43 " ": : 72570O(0):@66," NOW EXECUTING COCORTTY";0z@386," INTERFACE RECEIVE SOURCE ...";0T15000:0 7257:7258'72590 75340X$: X$"" 2700 2700" C 1 2000: C: & 200,1& ' " cocofax transmit HAS NOT YET BEEN SUCCESSFULLY INTERFACED INTO THE *COCORADIO* TRS80C SOFTWARE. WATCH THE USATVS JOURNAL FOR UPDATES! ' T17000:'O:PRINTER BAUD RATE SETUP FOR COCOFAX PROGRAM.'U'i(@44,"cocofax";'2@100,"*IS YOUR PRINTER READY?*";'<@168, "a=300 BAUD RATE'F " b=600 BAUD RATE'P " c=1200 BAUD RATE( Z " d=2400 BAUD RATE(,d " e=4800 BAUD RATE(Ln " f=9600 BAUD RATE(px " v=VIDEO DISPLAY ONLY(v( " l=LOAD IN PRINTER PRE-DRIVER(B$:B$""150(A$B$(A$"A"150,180: PRINT=300 BAUD;GOTO230)A$"B"150,87: PRINT=600 BAUD;GOTO230)DA$"C"150,41: PRINT=1200 BAUD;GOTO230)rȅA$"D"150,18: PRINT=2400 BAUD;GOTO230)҅A$"E"150,7: PRINT=4800 BAUD;GOTO230)܅A$"F"150,1: PRINT=9600 BAUD;GOTO230)200,1)A$"V"270)A$"L""MENU5*150*"COCOFAX2A$"C"150,41: PRINT=1200 BAUD;GOTO230)rȅA$"D"150,18: PRINT=2400 BAUD;GOTO230)҅A$"E"150,7: PRINT=4800 BAUD;GOTO230)܅A$"F"150,1: PRINT=9600 BAUD;GOTO230)200,1)A$"V"270)A$"L""MENU5* A>L :***THIS IS A MODIFICATION OF THE SLOSCAN DISPLAY AND HARDCOPY UTILIY>z:AS PUBLISHED IN DEC 1983 "A5" MAGAZINE.>:THE MODIFICATIONS INCLUDE:>(: 1: ADJUSTMENT OF THE ASPECT RATIO>2: 2: ADDITION OF A 2 TIMES SIZE OPTION?5<: 3: ADDITION OF SOME ASSEMBLY CODE TO SPEED UP THE PRINT?rF:THESE MODIFICATIONS WERE WRITTEN BY RON TONNESON K0QVF?yP:?Z:***SLOSCAN IMAGE DISPLAY***?d:*** & HARDCOPY UTILITY***?n:*** BY KINNEY SOFTWARE ***?x:(C)COPYRIGHT1983 DICK KINNEY@!:****ALL RIGHTS RESERVED****@C:*****NOTICE FOLLOWS********@a:***NOTICE: THE HARDCOPY@:FUNCTION OF THIS PROGRAM@:WILL ONLY WORK ON THE@:NEC PC8023 AND C.ITOH@:MODEL 8510 PRINTERSA!:REFER TO SLOSCAN INSTRUCTIONS FOR INFORMATION ON USE WITH OTHER PRINTERSA(:A/8A@ 100,&H6FFFAX I&H7000 &H706DAp D$: D("&H"D$)Az I,DA IA0 &H7000A"1 &H704DA,A6:A@" C-O-C-O-S-S-T-VAJAT" PROWRITER/NEC PRINTERSB^B'h" SSTV IMAGE REPLAY AND HARDCOPY"BNr" (C)COPYRIGHT 1983 DICK KINNEY"Bt|:" insert sstv picture disk"B|:B" PICTURE NAME ON DISK? (HCPY=HARD COPY)";N$B N$"HCPY"480B4,2B1,0BM N$,1024BK$C̅K$""450Cց 300C;:*******HARDCOPY PROGRAM****CD4,2CM1,0C:" HARDCOPY OF SLOSCAN PICTURE PREPARE PRINTER"C::C" TO SPEED UP PRINTOUT"C" POKE 150,1 (9600BAUD)"C&" AND SETUP SERIAL INTERFACE"D0" FOR 9600 BAUD"D1:" SMALL OR LARGE(S OR L)?"D=DK$ DRN K$ "S" 610DnX K$ "L" 610 : 580Db#2,(27);"T16"Dl4,2:1,0Dv#2,(27);"Q"D#2,(27);"L";"024"D K$ "S" 740D K32 1 1D I0 1E#2,(27);"S";"0768";E A0(K)E)#2E1Ƌ IE8ЋKECځ 300EW K32 1 1Es#2,(27);"S";"0384";EA1(K)E#2E KE 300E 86,FE,97,6F,BD,B3,ED,8EE* 13,FF,3A,A6,84,43,7D,70E4 4C,27,04,44,44,44,44,5FF> 44,24,02,CB,03,44,24,02F2H CB,0C,44,24,02,CB,30,44FPR 24,02,CB,C0,1F,98,AD,9FFn\ A0,02,AD,9F,A0,02,AD,9FFf A0,02,AD,9F,A0,02,C6,20Fp 3A,8C,2C,00,25,C5,73,70Fz 4C,0F,6F,39,00,86,FE,97F 6F,BD,B3,ED,8E,13,FF,3AG A6,84,43,AD,9F,A0,02,ADG" 9F,A0,02,C6,20,3A,8C,2CG: 00,25,ED,0F,6F,39G@0,1F,98,AD,9FFn\ A0,02,AD,9F,A0,02,AD,9FFf A0,02,AD,9F,A0,02,C6,20Fp 3A,8C,2C,00,25,C5,73,70Fz 4C,0F,6F,39,00,86,FE,97F 6F,BD,B3,ED,8E,13,FF,3AG A6,84,43,AD,9F,A0,