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
AT CMOS SETUP UTILTY

1200 REM ==== CMOS SETUP UTILITY ====
1205 DIM C%(64)
1210 GOSUB 1600: REM get current setup
1220 GOSUB 1800: REM display it
1230 GOSUB 1500: REM display menu
1240 IF A$ = "E" OR A$ = "e" THEN GOSUB 1400: GOTO 1220
1242 IF A$ = "R" OR A$ = "r" THEN GOSUB 1700: GOTO 1220
1246 IF A$ = "S" OR A$ = "s" THEN GOSUB 1650: GOTO 1220
1248 IF A$ = "W" OR A$ = "w" THEN GOSUB 1750: GOTO 1210
1250 END
1400 REM ==== Edit date/time ====
1403 LOCATE 22, 1: INPUT "Enter time - HH:", A$
1406 C%(5) = VAL("&H" + A$)
1408 LOCATE 22, 21: INPUT " MM:", A$
1410 C%(3) = VAL("&H" + A$)
1412 LOCATE 22, 29: INPUT " SS:", A$
1414 C%(1) = VAL("&H" + A$)
1420 LOCATE 23, 1: INPUT "Enter date - MM:", A$
1422 C%(9) = VAL("&H" + A$)
1424 LOCATE 23, 21: INPUT " DD:", A$
1426 C%(8) = VAL("&H" + A$)
1428 LOCATE 23, 29: INPUT " YY:", A$
1430 C%(10) = VAL("&H" + A$)
1432 S% = 0
1434 RETURN
1500 REM ==== Display menu ====
1510 LOCATE 25, 1
1520 PRINT "[R]ead from disk [S]ave to disk [W]rite to CMOS [E]dit date/time e[X]it";
1534 A$ = INKEY$: IF A$ = "" THEN 1534
1536 IF A$ = "E" OR A$ = "R" OR A$ = "S" OR A$ = "W" OR A$ = "X" THEN 1550
1538 IF A$ = "e" OR A$ = "r" OR A$ = "s" OR A$ = "w" OR A$ = "x" THEN 1550
1540 GOTO 1534
1550 RETURN
1600 REM ==== Get CMOS contents ====
1610 C$ = "Current CMOS settings": S% = 10
1620 FOR I% = 0 TO 63: OUT 112, I%: C%(I% + 1) = INP(113): NEXT I%
1630 RETURN
1650 REM ==== Save CMOS contents ====
1652 LOCATE 22, 1
1655 INPUT "Enter filename : ", F$
1660 INPUT "Enter description: ", C$
1665 OPEN F$ FOR OUTPUT AS #1
1670 PRINT #1, C$
1675 FOR I% = 0 TO 63: PRINT #1, C%(I% + 1): NEXT I%
1680 CLOSE #1
1690 RETURN
1700 REM ==== Load data from file ====
1702 ON ERROR GOTO 1730: S% = 10
1705 LOCATE 22, 1: INPUT "Enter filename : ", F$
1710 OPEN F$ FOR INPUT AS #1
1715 INPUT #1, C$
1720 FOR I% = 0 TO 63: INPUT #1, C%(I% + 1): NEXT I%
1725 FOR I% = 1 TO 6: C%(I%) = 0: NEXT I%
1728 GOTO 1740
1730 PRINT "File not found. Press any key"
1732 C$ = INKEY$: IF C$ = "" THEN 1732
1735 RESUME 1745
1740 ON ERROR GOTO 0
1742 CLOSE #1
1745 RETURN
1750 REM ==== Write data to CMOS RAM ====
1760 FOR I% = S% TO 63: OUT 112, I%: OUT 113, C%(I% + 1): NEXT I%
1770 RETURN
1800 REM ==== Display CMOS contents ====
1810 I% = C%(1): GOSUB 1950: SS% = I%: REM Time (seconds)
1811 I% = C%(3): GOSUB 1950: MM% = I%: REM Time (minutes)
1812 I% = C%(5): GOSUB 1950: HH% = I%: REM Time (hours)
1813 I% = C%(8): GOSUB 1950: DD% = I%: REM Date (day)
1814 I% = C%(9): GOSUB 1950: MN% = I%: REM Date (month)
1815 I% = C%(10): GOSUB 1950: YY% = I%: REM Date (year)
1820 MB% = C%(22) + C%(23) * 256
1821 MX% = C%(24) + C%(25) * 256
1825 DA% = INT(C%(17) / 16): DB% = C%(17) - DA% * 16: REM Drives A: and B:
1830 D0% = C%(26): REM Hard drive 0 (C)
1831 D1% = C%(27): REM Hard drive 1 (D)
1840 CLS
1841 PRINT , "AT CMOS Setup Utility": PRINT
1842 PRINT , C$: PRINT
1850 PRINT " Time:", , RIGHT$(STR$(HH% + 100), 2); ":"; RIGHT$(STR$(MM% + 100), 2); ":"; RIGHT$(STR$(SS% + 100), 2)
1852 PRINT " Date:", , RIGHT$(STR$(MN% + 100), 2); "/"; RIGHT$(STR$(DD% + 100), 2); "/"; RIGHT$(STR$(YY% + 100), 2)
1854 PRINT " Base memory size:", MB%; "K bytes"
1856 PRINT " Extended memory size:", MX%; "K bytes"
1858 PRINT " Diskette drive A:", : I% = DA%: GOSUB 1990
1860 PRINT " Diskette drive B:", : I% = DB%: GOSUB 1990
1862 PRINT " Hard disk 0:", , : I% = D0%: GOSUB 1980
1864 PRINT " Hard disk 1:", , : I% = D1%: GOSUB 1980
1880 RETURN
1950 REM == Convert BCD to decimal ===
1952 I% = I% - INT(I% / 16) * 16 + INT(I% / 16) * 10
1954 RETURN
1980 REM == Print hard disk type ==
1981 IF I% = 0 THEN PRINT "Not installed" ELSE PRINT I%
1989 RETURN
1990 REM == Print diskette type ==
1991 IF I% = 0 THEN PRINT "Not installed"
1992 IF I% = 1 THEN PRINT "5' 360Kb DS/DD"
1993 IF I% = 2 THEN PRINT "5' 1.2Mb DS/HD"
1994 IF I% = 3 THEN PRINT "3' 720Kb DS/DD"
1995 IF I% = 4 THEN PRINT "3' 1.44Mb DS/HD"
1996 IF I% > 4 THEN PRINT "unknown"
1998 RETURN

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!