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, 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.
Page continues BELOW this image!
How to Care for Tropical Fish, Parrots, and other Pets
Asbury Park Bruce Springsteen's Jersey Shore Rock Haven!
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!
|