Before Bride of Frank | Boycott Citgo | 9/11 White Van Camera Crew | Hudson County Politics | Hudson County Facts | Outlaw Motorcycle Gangs | New Jersey Mafia | Hal Turner, FBI Informant
Removing Viruses and Spyware | Reinstalling Windows XP, Vista, or 7 | Reset Windows Passwords | Windows Blue Screen of Death | Computer Noise | Don't Trust External Hard Drives!
Internet Advertising SEO - Search Engine Optimization - Search Engine Marketing - SEM iTunes Beatles Billboards Anthony Olszewski Intellectual Predator Email this Page

CLASSIC PC | YOU DO SUCCEED | DOWNLOAD | FAQ LIBRARY
LINKS | LINUX | MAIN MENU | PS2 | REFERENCE | USENET


Diagnostic Programs
BASIC Code Listings
Test Serial Ports

3200 REM ==== ====
3205 REM ==== TEST SERIAL PORTS ====
3210 PRINT : PRINT
3220 INPUT "Test serial ports (Y/N)? ", A$
3225 IF A$ <> "Y" AND A$ <> "y" THEN 3900
3300 PRINT : PRINT "Test plug should be attached": PRINT
3310 INPUT "Enter port to test: 0) Quit 1) COM1 2) COM2 3) COM3 4) COM4 "; N%
3315 IF N% < 0 OR N% > 4 THEN 3310
3320 IF N% = 0 THEN 3900
3330 DEF SEG = &H0: J% = (PEEK(&H400 + N% + N% - 1)) * 256 + PEEK(&H400 + N% + N% - 2)
3332 IF J% = 0 THEN PRINT : PRINT "Port"; N%; " not installed": GOTO 3900
3400 REM ==== TEST TRANSMIT/RECEIVE ====
3410 PRINT : PRINT "Testing transmit/receive - ";
3415 E% = 0
3420 FOR I% = 32 TO 96
3422 OUT J%, I%
3423 K% = 0
3424 WHILE K% < 64
3426 L% = INP(J% + 5): IF L% - INT(L% / 2) * 2 = 1 THEN K% = 999
3428 K% = K% + 1
3430 WEND
3436 IF INP(J%) <> I% THEN E% = E% + 1
3438 NEXT I%
3440 IF E% >= 64 THEN PRINT "Failed": GOTO 3500
3445 PRINT E%; "errors"
3500 REM ==== TEST INTERRUPT PROCESSING ====
3505 PRINT : PRINT "Testing interrupt - ";
3508 ON ERROR GOTO 3544
3510 IF N% = 1 THEN OPEN "COM1:9600,N,8,1" FOR RANDOM AS #1
3515 IF N% = 2 THEN OPEN "COM2:9600,N,8,1" FOR RANDOM AS #1
3520 T$ = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ": U$ = ""
3522 ON COM(N%) GOSUB 3580
3524 COM(N%) ON
3526 FOR K% = 1 TO 1024: NEXT K%
3528 U$ = ""
3530 PRINT #1, T$;
3535 FOR K% = 1 TO 1024: NEXT K%
3540 IF U$ = T$ THEN PRINT "OK": GOTO 3590
3542 PRINT "Failed": GOTO 3590
3544 PRINT "Failed": GOTO 3610
3580 L% = LOC(1): IF L% = 0 THEN RETURN
3582 U$ = U$ + INPUT$(L%, #1)
3586 RETURN
3590 COM(N%) OFF: ON ERROR GOTO 0
3600 REM ==== TEST RTS/CTS ====
3610 PRINT : PRINT "Testing RTS/CTS - ";
3615 E% = 0
3620 FOR I% = 1 TO 16
3630 OUT J% + 4, 2
3632 FOR K% = 1 TO 256: NEXT K%
3634 L% = INT(INP(J% + 6) / 16)
3636 IF L% - INT(L% / 2) * 2 <> 1 THEN E% = 1
3640 OUT J% + 4, 0
3642 FOR K% = 1 TO 256: NEXT K%
3644 L% = INT(INP(J% + 6) / 16)
3646 IF L% - INT(L% / 2) * 2 <> 0 THEN E% = 1
3648 NEXT I%
3650 IF E% = 0 THEN PRINT "OK": GOTO 3700
3655 PRINT "Failed"
3700 REM ==== TEST DTR/DSR ====
3710 PRINT : PRINT "Testing DTR/DSR - ";
3715 E% = 0
3720 FOR I% = 1 TO 16
3730 OUT J% + 4, 1
3732 FOR K% = 1 TO 256: NEXT K%
3734 L% = INT(INP(J% + 6) / 32)
3736 IF L% - INT(L% / 2) * 2 <> 1 THEN E% = 1
3740 OUT J% + 4, 0
3742 FOR K% = 1 TO 256: NEXT K%
3744 L% = INT(INP(J% + 6) / 32)
3746 IF L% - INT(L% / 2) * 2 <> 0 THEN E% = 1
3748 NEXT I%
3750 IF E% = 0 THEN PRINT "OK": GOTO 3900
3755 PRINT "Failed"
3900 END

Second Thief, Best Thief
New Jersey Short Stories

Nunchaku Style Bike Lock on Wheel
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!

Hal Turner sues 7chan, 4chan, ebaumsworld and others.
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 Facts Winter 2006 by Anthony Olszewski
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!