\ : t "I",#,"RTTY.INI" #,C$,CS$,CM,U1,U2,U4,U5,U6,DF( #2 L( ),F( ),Z(`):M@:T:R: < I : L(I):F I : F(I):P I `: Z(I): Z:Ed: SET SPEEDMn:nxA:B:C:BD-:U:  S ,,,,,,, , A:B:C:BD-: A:B:C:BD2: A:B:C:BD9: A:B:C:BDJ: +A:B:C:BDK: HA:B:C:BDd: _A:B:C:BDn U4,: U1,A: U2,B: U4,C: U2, : (INIT 8250 I/O) S S U:S$"ASCII " : U:S$"BAUDOT " H b Q  M,:H:N:PT: U5,: T ':/ s!  )"*******************************************************""  )"* K9EUI RTTY PROGRAM V7.8 03-24-96 *",  )"*******************************************************"6@JM@: J JBJ : )J"BYTES IN BUFFER":: |T )"R. RECEIVE 1. 45 BAUD / 60 WPM"^ )"T. XMIT KEYBOARD 2. 50 BAUD / 66 WPM"h )"Y. XMIT RY / U* 3. 57 BAUD / 75 WPM"*r )"C. XMIT CQ 4. 74 BAUD / 100 WPM"d| )"D. XMIT DISK FILE 5. 75 BAUD / 105 WPM" )"L. LIST BUFFER 6. 100 BAUD / 132 WPM" )"W. WRITE BUFFER" )"E. ERASE BUFFER 7. 110 BAUD ASCII" )"N. RECOVER BUFFER"H )"S. SETUP PROGRAM 8. OTHER BAUDOT SPEED" )"Q. QUIT 9. OTHER ASCII SPEED" )"I. INSERT CALL );"CALL= ";ST$:  )"[ IN RCVE: Press 1-7 to change speed. P toggles printer on/off ]"C: : ,:"ENTER LTR OR NO. OF CHOICE ";: ,iQ:Q$: (Q$) $: MN$"CDEILNQRSTWY"X(Q$): X` Q$(X ) X1 S(Q$): S Q: & X  : Q$(MN$,X,) :0: : Q$"R" HRD X ,0,F,L,F ,P, ,b, ,P, ,ZN:X: ASCII RCVEb:FL1l U5,:H: U pvN:  :  : ^ :  :  K(U6) :K$: K$() : >  K 0C(U1) : C C N C C  : ` N p 8: x:: LOOK FOR KBD INPUT:X(K$): X` K$(X ) K$"U" T :  K$"S" J :   K$"P" (: 6 K$() U  K$() Q$"T": Z[c :*: SELECT SPEED IN RCVE4:>S(K$): S S H : HR:\: BAUDOT LTRS RCVEf:.p U5,:N:  :  : h :  :  \zK(U6) :K$: K$() t: >l K zA(U1) : A CL(A): C z N  .: z: BAUDOT FIGS RCVE:%K(U6) :K$: K$() t: >5 K ZA(U1) :CF(A): C zk A } N  . O C z : :: DIPSPLAY/PRINT RCVD CHARACTERS$:. C V8 C C : : (C);;B PT C : VQL PT (C);WV`: LOOK FOR KBD INPUTj:tX(K$): X` K$(X )~ K$"U" T :  K$()  K$"S" J :   K$"P" (: 4  K$() Q$"T": ZM  K$"O" O: `  K$"L" zy  K$"H" O:   K$"F"   : SAVE TO BUFFER :  Mz T :    M,C:MM: M,! *!: PRINT2!:L!( PT PT:: <^!2 PT PTd!<!F: KBD XMIT!P:FL1!ZE:N!d  :  : r :  :  : U5,:A$!nA$: (A$) n "xP(A$):EE: EA #" P P: 3" P `C" P 0T" P n" P Q$"R": l" P ::  " P E:: " (P);" : n":": BAUDOT SEND":# U :0#LP: L P:T: hD# L` LL [# L@ T ^#" L@ T P: :T: ^#, L ^#6 L : r#@ L SP: ^#J LA T P: :T: ^$T SP T P: :SP$^PZ(L)4$h : L SP:$rB$|:l$: CHAR OUTt$:$K(U6)  : K $PP $ P P $ U1,P$ MO U P P : $%: SEND CR/LF$%:;% U SP: W%P : :P : :%P: :P: :P:T: :%P: : :%P : : :%:%&: XMIT DISK FILE%0MO:PX:PY:T$""&: Q$"D" 9&D ,: X O: ( );: X: ,a&N ,:"FILENAME ? ";: ,: N$|&X N$"" Q$"D" &b N$"" Q$"T" d&l ,: "SEND ID WHEN DONE or ";SI$&v: "I",#,N$: (N$,)".PIX" PY1' PY U );:"SEND BELLS or ";QX$F' QX$"Y" PXt'  : | :  : U5,: Q$"D" ~' ' PY : R: \'T$$(,#): () 4'P(T$):K$: K$() >' P P T$; ( PY ( P 8( P : : H( : X( P ( PX P' :P: : (  U P : ( P : (  U P : :T:P: : (*  )4 PY \: R6)> :MO: #:: SI$"N"  X)H: : Q$"T" d : lu)R X :P: ::)\ U p)f X  :P : ::)p X  :P: ::)z :): XMIT RY, U*, CQ*:C*V: ,: ,:"HOW MANY LINES ";W: ,: W i*:  : Q$"Y"  :  *  : U5,: : : *VV: Q$"Y"  *:*: CALL CQ* X + I :PC: V :PQ: V :P : V : I5+ 8 :P : V ?+ XT+P : V : B {+ : RY/U*+ U $ + I :PU: V :P*: V : I: . +$ I :PR: V :PY: V : I+. 8 :P : V : B 1,8 Q (C$):P((C$,Q,)): V : Q:;,B R,L VW t : m,V P : (P);,` K$: K$() VW: ~ ,j :,t Q$"C" PA: V :PR: V :P : V ,~ : : l, :- : DISK WRITE- :7- M@ :: k- :  ,: "ENTER FILENAME ";N$: N$"" - (N$,)".PIX" PY : PY- : "O",#,N$-  :  :  - X@ M- C(X): C R: ( . K$: K$() ( !. PY  5. C  g. C #,( );: #,( );::  . #,(C);: (C);. X.( : .2 : LIST BUFFER.< :.F M@ : /P :  :  :  /Z X@ M5/d C(X): C :  I/n C  a/x C :  q/ (C);/ K$: K$() / X/ : )"END OF BUFFER.";: " PRESS FOR MENU";Q$/ 0 : SELECT ODD BAUD RATE0 ::0 :DBD: X :: Xe0 );:"BAUD RATE <29 TO 300> ";BD:0 BD BD, BDD: 0 DBD:G:D((a)(D))0 B :YDG: (Y)  0 GG: B1 AY: A BB:A.1 (A) B:AAM1 S C:U : C:Ue1" S BDn Cs1, Q: 16 : SCREEN ROUTINES1@ :1J N:R: ,: :Indicate saving2T N: ,: : normal intensity = not savingX2^  );: : BD"BAUD ASCII RCVE: S=save U=nosave =menu ^T=xmit ";: :2h : BD"BAUD RCVE:[S=save U=off] [H=uos O=off] [L=ltrs F=figs] ^T=xmit =menu ";: :3r  );: : BD"BAUD XMIT: ^R=rcve ^D=send disk ^Z=send ID =menu ";: :I3| );: : BD;"BAUD DISK:"N$" =abort ";: :3 );: : BD"BAUD TEST XMIT: =abort ";: :3 );: : BD"BAUD XMIT CQ: =abort ";: :3 );: ,:" LIST BUFFER: = ABORT ";:04 );: ,:" SAVE BUFFER: = ABORT ";:D4 CL:PO():Q4 ,:i4 ,: ,: ,,:4 CL,PO:: FL1 FL1:  4 "--->"4 4 : QUIT ROUTINE4 R  5 :  ,:"BUFFER HAS NOT BEEN ERASED OR SAVED."E5 ,:"ARE YOU SURE or ";QX$j5 QX$"Y" QX$"y"  : s5 :5& : ERROR TRAPPING50 :5: : ,: v b 5D  X 5N 5X DF:QX:  )6b : ,: "FILE NOT FOUND ";QX$: l G6l Q$"T" : d : O6v :}6 : SYSTEM SETUP6 QX6 :TM$(,,)6 CM CM ,:"YOU MUST SELECT PORT 1 OR 2"7 CS$"" ,:"YOU MUST ENTER CALL"57 DF ,:"YOU MUST ENTER DELAY FACTOR"X7 ,:"P = PORT (1 or 2):"CMt7 ,:"C = CALL: "CS$7  ,:"D = DATE: "7  ,:"T = TIME: "TM$7  ,:"F = DELAY FACTOR: "DF7  ,:"X = EXIT TO MENU"8 ,:"ENTER LETTER OF ITEM";28 QX$: (QX$)  C8 MM$"CDFPTX"g8 X(QX$): X` QX$(X )8 X : QX$(MM$,X,) 4 8* : 84 X > ,H ,f ,R ,\ ,p 8> ,(: CS$:QX:  8H  ,(: QQ$:QQ$:  9R ,1:"",CM:QX:  ;9\  ,(: QQ$:QQ$:  Z9f  ,0:" ",DF:QX:  r9p CM CM  9z DF  9 CS$""  9 C$" DE "CS$9 QX 9 CM U1:U2:U4:U5:U6:  : U1:U2:U4:U5:U6.: "O",#,"RTTY.INI"S: #,C$,CS$,CM,U1,U2,U4,U5,U6,DF^: #:t: QX : |: :: : XMIT ID/TIME: :: TI$" "(,,): I (TI$):TC$(TI$,I,); P(TC$): (P);: : I+; 8 : ::`;$ , : : ,,"SPEED ="BD;"BAUD "S$;: :h;.:;8: INPUT / XMIT CALL LINE;B:;L:  ,: "CALL: ";ST$: ST$"" ;VSX$ST$C$" ": <` I (SX$).: BAUDOT XMIT DATAK> 0,31,31,31,31,31,31,5,31,4,2,31,31,8,31,31,31,31,31>  31,31,31,31,31,31,31,31,31,31,31,31,31,4,13,17,20,9,31> 26,11,15,18,31,26,12,3,28,29,22,23,19,1,10,16,21,7,6,24? 14,30,31,31,31,25,5,3,25,14,9,1,13,26,20,6,11,15,18,28@?( 12,24,22,23,10,5,16,7,30,19,29,21,17,31,31,31,31,31,31H?2:?<: BUFFER DELETE / RECOVER?FM@:R: ?P:  ,:"RECOVERING BUFFER"?Z M,?d X@ z?n C(X): C @x X@MX: