4000 REM ==== PROGRAM 10.1 ==== 4005 REM ==== TERMINAL PROGRAM ==== 4020 S$ = "": GOSUB 4800: REM Set serial parameters 4025 IF S$ = "" THEN 4599 4040 OPEN S$ FOR RANDOM AS #1 4050 ON COM(N%) GOSUB 4600 4060 COM(N%) ON 4070 CLS : PRINT "Type CTRL/Q for 'quick brown fox', CTRL/Z to quit" 4080 LOCATE , , 1 4100 REM ==== MAIN PROGRAM ==== 4120 K$ = INKEY$: IF K$ = "" THEN 4120 4130 K% = ASC(K$) 4140 IF K% = 26 THEN 4200 4150 IF K% = 17 THEN PRINT #1, "The quick brown fox jumps over the lazy dog": GOTO 4120 4160 PRINT #1, K$; 4170 GOTO 4120 4200 PRINT : INPUT "Exit Terminal (Y/N) "; K$ 4220 IF K$ = "Y" OR K$ = "y" THEN 4240 4230 GOTO 4120 4240 COM(N%) OFF 4599 END 4600 L% = LOC(1): IF L% = 0 THEN RETURN 4610 PRINT INPUT$(L%, #1); 4620 RETURN 4800 REM ==== SET SERIAL PARAMETERS ==== 4810 CLS 4820 INPUT "Choose serial port: 0) Quit 1) COM1 2) COM2 "; N% 4821 IF N% > 2 THEN 4820 4822 IF N% = 0 THEN RETURN 4823 IF N% = 1 THEN S$ = "COM1:" 4824 IF N% = 2 THEN S$ = "COM2:" 4830 INPUT "Choose speed: 1) 300 2) 1200 3) 2400 4) 4800 5) 9600 "; I% 4831 IF I% < 1 OR I% > 5 THEN 4830 4832 IF I% = 1 THEN S$ = S$ + "300," 4833 IF I% = 2 THEN S$ = S$ + "1200," 4834 IF I% = 3 THEN S$ = S$ + "2400," 4835 IF I% = 4 THEN S$ = S$ + "4800," 4836 IF I% = 5 THEN S$ = S$ + "9600," 4840 INPUT "Choose data format: 1) 8-N-1 2) 7-E-1 3) 7-O-1 "; I% 4841 IF I% < 1 OR I% > 3 THEN 4840 4842 IF I% = 1 THEN S$ = S$ + "N,8,1" 4843 IF I% = 2 THEN S$ = S$ + "E,7,1" 4844 IF I% = 3 THEN S$ = S$ + "O,7,1" 4850 RETURN Second Thief, Best Thief New Jersey Short Stories Great New Bike Lock! $25 – Lock Included – Free Shipping in the USA Payment by PayPal – E-mail anthony.olszewski@gmail.com Mail Orders Accepted I Love Hoboken! Hudson County Hate Monger and FBI informant Hal Turner charges in suit: "Criminal activity . . . includes photographs of pre-teen and teenage girls in various states of undress." New York City Politics Message Board Brooklyn Politics: The Saga of Brooklyn District Attorney Charles "Joe" Hynes The Prosecution of New York City Political Activists John O'Hara and Sandra Roper Courts Take Property and Freedom from Judge John Phillips by Declaring him "Mentally Incapacitated" The Trail of the Tiger – Tammany: 1789-1928 Boss Tweed and The History of New York City Political Corruption Theft by deception as a way of life . . . Hudson County Facts James McGreevey vs. Bret Schundler The 2001 Race for Governor of New Jersey Martin Bormann – Nazi in Exile Now on Sale at Amazon Hudson County, New Jersey is a place of many firsts - including genocide and slavery. Political corruption is a tradition here. First issue in a series by Anthony Olszewski – Click HERE to find out more. Print Edition Now on Sale at Amazon Read Online at Google Book Search Advertiser and Distributor Inquiries Welcome Marvin Corwick New Jersey State Employee is Fired "the release of the information, done against the advice of staff and without the authorization of his superiors, showed a lack of good judgment and undermined the hard-earned faith and trust in the division as an impartial assistant to local governments." Page continues BELOW this image! How to Care for Tropical Fish, Parrots, and other Pets Contact COMPUTERCRAFT Return To The COMPUTERCRAFT Main Menu Asbury Park Bruce Springsteen's Jersey Shore Rock Haven! Featured Link Great Domain Names For Sale! Very brandable Domains for Sale -- The GET NJ family of Sites, managed by Anthony Olszewski, features tens of thousands of Pages Online at dozens of active domains, many with a New Jersey focus. Other advertising opportunities – including enterprise and exclusive placements – exist at a wide range of Web Sites. Your ad can appear at one Page or at many, many thousands of Pages simultaneously! A large slice of the domains have been Online for more than five years, some for over ten! In addition to advertising, many great Domains are available for purchase or license Text Link Advertising Program Business name, Web Site Link and a brief description or motto – runs for one month in the Page (or Pages) of your choice. Hudson County Politics From Frank Hague to Robert Janiszewski, in this New Jersey county, political corruption is a tradition. Former NJ Governor Brendan Byrne wants to be buried here so he can stay active in Democratic politics! You'll find lots about Senator Robert Menendez, too. GRAVE ROBBER Jersey City Computer Repair 297 Griffith Street, Jersey City, NJ - 201-798-2292 - In the Heights just off of Kennedy Blvd. - Very close to Journal Square and Union City, just five minutes away from Hoboken, Downtown Jersey City, Newport, the Waterfront, Secaucus, North Bergen and Weehawken - Tech support for The Jersey City Mayor's Office during the administration of Bret Schundler - PC repair - Tivos, too!, upgrade, hardware install, software install, data recovery, spyware removal, virus removal, replace hard drive, replace motherboard, data recovered from notebook computers, recover lost XP passwords, password recovery The Statue of Liberty, Ellis Island, and The Central Railroad Terminal Visit Liberty State Park! Stealth Jet at the World Trade Center During OpSail 2000 For All Sorts of Unique New York City Information, Visit GET NY!