L ********** MODEM/1200 MODEL 1670 TEST PROGRAM BY JEFF PORTER 6/14/85R:o53280,6:53281,16:"";(550:680: ************** INSTRUCTIONS AND BAUD RATE SETUP25,2,2,(0)(0)(61)(1):RV18:CT0 <"1200 BAUD ANSWER":510: ******** DEFAULTF:<P5,2,2,(6):RV18:CT0:PR$"ATDP":550bZ"300 BAUD ORIGINATE ROTORY":450hd:n5,2,2,(6):RV18:CT0:550x"300 BAUD ANSWER":510:5,2,2,(0)(0)(61)(1):RV18:CT0:PR$"ATDT":550"1200 BAUD ORIGINATE TOUCH TONE":450:F5,2,2,(0)(0)(61)(1):RV18:CT0:550c"1200 BAUD ANSWER":510i: ********************* MAIN PROGRAM#5,A$A$""310" "(157);A$; ******* MAP EVERYTHING TO LOWER CASE AND CHECK FOR BAUD RATE8LAST$LAST$((A$)32((A$)95)96((A$)191))KA$(13)300u(LAST$,2,12)"CONNECT 1200"5:170(LAST$,2,7)"CONNECT"5:110"LAST$"",2106(RV)" "(157);(146);:A$ @A$""5:80: ***** INTERCEPT FUNCTION KEYS JA$""5:110* TA$""5:140> ^A$""5:170Q hA$""5,A$; r ******************* PRINT MESSAGE AFTER CARRIER DETECT |(((56577)16)0)(XXCP21)XXXX1 XX20XXCP205,(CC$,XX20,1); CTCT1!CT8CT0:RV164RV: ****** BLINK CURSOR%!210+!:c! **************** DIAL THE NUMBER - ORIGINATE MODE!"HONE NUMBER OF OTHER UNIT 436-4031";A$!A$PR$A$(13):LL(A$)!ZZ1LL:5,(A$,ZZ,1);:!XX0:RV18:CT0:210!:8" **************** SET EXTENDED RESPONSE CODES - ANSWER MODEL"5,"ATX1"(13)e"XX0:RV18:CT0:210k":" *************** TITLE SCREEN"&" "(147)(14)"0"ODEM/1200 EST ROGRAM: BY EFF ORTER"#:" [1] FOR 300 BAUD ORIGINATE ROTARY"&#D" [3] FOR 300 BAUD ANSWER"R#N" [5] FOR 1200 BAUD ORIGINATE TONE"w#X" [7] FOR 1200 BAUD ANSWER"#bCC$"OES THIS LOOK ?"(13)#lCC$CC$"S THERE ANY SPURIOUS NOISE?"(13)#vCC$CC$"RESS +++ TO HANG UP."(13)"$CC$CC$"HEN GO ON TO NEXT TEST."(13)0$CP(CC$)6$<$:i$"SE FUNCTION KEYS 1 OR 5 TO SELECT"$"EITHER THE 300 OR 1200 BAUD TEST."$"EST 2 MODEMS AT ONCE; ORIGINATING AT"$"BOTH BAUDS ON BOTH COMPUTERS."%"HE ANSWERING MODEM WILL AUTOMATICALLY"<%"ADJUST TO THE CORRECT BAUD RATE."k%"HE COMPUTER MUST BE OFF WHEN PLUGGING"%"OR UNPLUGGING THE MODEM."%