Home of the original IBM PC emulator for browsers.
[PCjs Machine "ibm5150"]
Waiting for machine "ibm5150" to load....
The programs on this disk include a very handy file-compression utility,
another to suppress the color signal when using a mono monitor, a very
interesting wave-form drawing utility (requires an 8087 chip),
and other useful programs.
System Requirements: Some programs require color graphics & BASIC.
How to Start: To run a COM or EXE program simply type its name and
press <ENTER>. For instructions on running BASIC programs, please
refer to the GETTING STARTED section in this catalog. To read DOC
files simply enter TYPE filename.ext and press <ENTER>.
Suggested Registration: Contact authors.
File Descriptions:
DSKHND BAS Disk handler program from October Softalk
123KEY DOC Documentation file for 123KEY.PRO
123KEY BAT Batch file to run LOTUS 123 with PROKEY
123KEY PRO PROKEY file to enable numeric keypad with LOTUS 123
DHDEMO BAS Demo program for DSKHND.BAS
NOCOLOR ASM Suppress color for using mono monitor on C/G adapter
FREE DOC Catalog of user-supported software
SURF87 EXE Produces wave forms on graphics printer (Requires 8087)
SURF87 DOC Documentation file for SURF87.EXE
SURFPR BAS Printer installation program for SURF87.EXE
SQUEEZE EXE File compression program
UNSQUEEZ EXE Uncompress program
SQUSQ DOC Documentation file for SQUEEZ.EXE and UNSQUZ.EXE
NOCOLOR COM Executable program file
SCROLL BAS Scroll window program from PC Magazine, Oct 83, page 650
NOCOLOR DOC Documentation file for NOCOLOR.COM
PINUP? PIC Pinup picture; COPY to LPT1: (4 files)
PROKEY SUBSET FOR 1-2-3 [123KEY.DOC]
-----------------------
In order for Prokey to work with a 123 spreadsheet, certain
setups are required. First, the 123 system disk must contain
the files PROKEY.EXE (the main PROKEY tm. program) as well as
the file 123KEY.PRO which is the file that contains all the
custom key assignments to be used while in 1-2-3.
An additional third file may be included 123KEY.BAT (may be
re-named Autoexec.bat). This file installs prokey and the keys
before it calls in the main 1-2-3 program.
[123KEY.BAT]= PROKEY/R 123KEY.PRO
123
^Z
Upon boot-up the PROKEYS for 1-2-3 will be loaded into high
memory and will be invisible to the user until called.
One additional set-up is required on each new spreadsheet that
is started. Because of the way 1-2-3 defines certain of the
function keys, it is necessary to inbed the definitions some
where in a group of isolated spreadsheet cells. In doing so
you will cause PROKEY to interact with the 1-2-3 typing alternative.
The result is to move the functions STEP NAME ABS QUERY TABLE CALC GRAPH
from their respective keys F3 F4 F7 F8 F9 F10 to their new assignments
respectively altF3 altF4 altF7 altF8 altF9 altF10.
The move is to allow the re-assignment of those function keys as follows:
F3 becomes HOME
F4 becomes END
F7 becomes the UP arrow
F8 becomes the DOWN arrow
F9 becomes the LEFT arrow
F10 becomes the RIGHT arrow
You may now leave your NumLock key on and use the keypad as a
numeric keypad. As stated above this requires a ONE-TIME-ONLY
setup on EACH NEW spreadsheet. The setup is an automatic feature
built into the Prokey set loaded by the first step. To use the
setup feature do this:
**** AFTER YOU HAVE CALLED IN A NEW SHEET OR CLEARDED THE ****
**** OLD SHEET TO BUILD A NEW ONE, PRESS altF2 . ****
AltF2 moves the cursor to Cell position BA1 and writes
cells that 1-2-3 's typing alternative will use in
re-defining the keypad. If this group of cells at
BA1 is going to interfere with the spreadsheet, you
may change their location by useing the 1-2-3 MOVE
command to move the group to another section of the sheet.
Or if you can change the prokey 123PRO.KEY file to have
another beginning cell in place of BA1 (To do this pull
up 123PRO.KEY with an editor and find BA1, change it!).
Each cell in this special group has a range name and they
remain the same in a 1-2-3 move. It is these names that
the typing alternative uses in looking for those cells.
|------|------|
| HELP |EDIT |
| | |
| alt | alt | Print this template on an
| step |setup | Epson or Epson-like printer
|------|------| in the compressed print mode.
| HOME |END |
| | | then draw the arrows in the
| alt |alt | bottom four boxes as follows:
| name |abs |
|------|------|
| | |
| GOTO |WINDOW|
| | |
|------|------|
| /|\ | | |
| | | \|/ | up down
| alt |alt |
|query |table |
|------|------| left right
| /___ | ___\ |
| \ | / |
| alt |alt | Now tape this to your 1-2-3
| calc |graph | plastic template.
|______|______|
To use this you need to own PROKEY and download three files to put on your
1-2-3 system disk. They are as follows : [123KEY.DOC]=this explanation
[123KEY.PRO]=the prokey definition file [123KEY.BAT]=the new 123 autoexec.bat
PC-SIG Disk No. #115, version v1
The following is a list of the file checksums which should be produced by
the CRCK4 program on disk #9 (and others). If the CRC numbers do not match
you may have a bad file. To use type: CRCK4 <filespec>
CRCK4 output for this disk:
CRCK ver 4.2B (MS DOS VERSION )
CTL-S pauses, CTL-C aborts
--> FILE: 123KEY .BAT CRC = 00 00
--> FILE: 123KEY .DOC CRC = 3B B9
--> FILE: 123KEY .PRO CRC = 06 41
--> FILE: DHDEMO .BAS CRC = 6D 19
--> FILE: DSKHND .BAS CRC = 67 F2
--> FILE: FREE .DOC CRC = 46 62
--> FILE: NOCOLOR .ASM CRC = EE 1B
--> FILE: NOCOLOR .COM CRC = C8 93
--> FILE: NOCOLOR .DOC CRC = 1B B6
--> FILE: PINUP1 .PIC CRC = C9 50
--> FILE: PINUP2 .PIC CRC = 42 DC
--> FILE: PINUP3 .PIC CRC = A7 76
--> FILE: PINUP4 .PIC CRC = 6B 00
--> FILE: SCROLL .BAS CRC = BD 5C
--> FILE: SQUEEZE .EXE CRC = 46 CE
--> FILE: SQUSQ .DOC CRC = EA 27
--> FILE: SURF87 .DOC CRC = 09 1F
--> FILE: SURF87 .EXE CRC = 8F BC
--> FILE: SURFPR .BAS CRC = 9B 58
--> FILE: UNSQUEEZ.EXE CRC = 56 C6
---------------------> SUM OF CRCS = C7 B7
DONE
These and other Public Domain and user-supported programs from:
PC Software Interest Group
1125 Stewart Ct Suite G
Sunnyvale, CA 94086
(408) 730-9291
10 'This program demonstrates Disk Handler
20 'from the October Issue of SofTalk, p. 72.
30 'Written by Howard Glosser
40 'Define SEGMENT and Load DISKHAND.BIN
50 'CLEAR,32768 ' This line is necessary only for 64K machines.
60 DEF SEG=&H1700 ' Use DEF SEG=&HF00 with machines with less then 96K.
70 BLOAD "DISKHAND.BIN",0
80 DISK%=0
90 CLS
100 LOCATE 1,5:PRINT" ** Disk Handler Demonstration **":PRINT
110 '
120 'Find Default Drive
130 '
140 FIND%=1:SET%=2:DISKPARM$=SPACE$(1)
150 PRINT"Find the Default Drive"
160 DISKOPT%=FIND%
170 PRINT"*** Subroutine Call"
180 CALL DISK% (DISKOPT%,DISKPARM$):SAVDRV$=DISKPARM$
190 PRINT"Got back and DEFAULT DRIVE is "CHR$(34)DISKPARM$ CHR$(34)
200 PRINT
210 '
220 'Set default drive
230 '
240 PRINT"Now let's set a new default drive":LOCATE ,,1:BEEP:PRINT
250 PRINT"Specify NEW default drive letter (A B C D:";:GOSUB 460
260 DISKPARM$=KY$:DISKOPT%=SET%
270 PRINT"*** Subroutine Call"
280 CALL DISK% (DISKOPT%,DISKPARM$)
290 PRINT"Return from subroutine and new default should be set"
300 '
310 ' ** Find out if it really changed
320 '
330 PRINT
340 PRINT"Find out if default drive really changed"
350 DISKOPT%=FIND%
360 PRINT"*** Subroutine Call"
370 CALL DISK% (DISKOPT%,DISKPARM$)
380 IF DISKPARM$<>SAVDRV$ THEN 420
390 SOUND 50,7:COLOR 0,7
400 PRINT"Default drive NOT changed. Invalid or same drive letter specified!"
410 COLOR 6,1:GOTO 440
420 PRINT"It's changed! The default drive is now "CHR$(34)DISKPARM$ CHR$(34)
430 SOUND 500,1:SOUND 400,1
440 END
450 '
460 ' **** Key-In Routine
470 '
480 KY$=INKEY$:IF KY$="" THEN 480
490 '
500 ' Check for small or capital letters
510 '
520 IF KY$<CHR$(97) OR KY$>CHR$(122) THEN 570
530 '
540 ' ** Change lowercase to uppercase
550 '
560 KY$=CHR$(ASC(KY$)-32)
570 '
580 PRINT KY$
590 RETURN
600 END' of program.
10 '***** Disk Handler ***** from the October, 1983 issue of SofTalk, p.71.
20 '
30 'FIND or SET the default drive in a BASIC program.
40 '
50 'Written by Howard Glosser
60 'DEF SEG=&H1700. Use DEF SEG &HF00 for machine with LESS then 96K.
70 '
80 'This builds and checks the subroutine.
90 '
100 CLS
110 DEF SEG=&H1700' Use DEF SEG &HF00 for machine with LESS then 96K.
120 FOR MEM%=0 TO 66
130 READ DT%
140 POKE MEM%,DT%
150 CHECKSUM%=CHECKSUM%+DT%
160 NEXT
170 READ DT%
180 IF CHECKSUM%=DT% THEN 230
190 PRINT"Error in DATA Statements - Check lines 290 - 370":END
200 '
210 '******* This Saves the routine
220 '
230 BSAVE"DISKHAND.BIN",0,&H43
240 PRINT"Diskhandler routine created."
250 END
260 '
270 '***** DATA Statements to build routine
280 '
290 DATA &H55,&H8B,&HEC,&H8B,&H76,&H8,&H8B,&H14
300 DATA &H83,&HFA,&H1,&H74,&H8,&H83,&HFA,&H2
310 DATA &H74,&H10,&H90,&HEB,&H2A,&H90,&HB4,&H19
320 DATA &HCD,&H21,&HFE,&HC0,&H32,&HE4,&HC,&H40
330 DATA &HEB,&H15,&H90,&H8B,&H76,&H6,&H8B,&H7C
340 DATA &H1,&H8B,&H15,&H80,&HF2,&H40,&HFE,&HCA
350 DATA &HB4,&HE,&HCD,&H21,&HEB,&H9,&H90,&H8B
360 DATA &H7E,&H6,&H8B,&H75,&H1,&H88,&H4,&H5D
370 DATA &HCA,&H4,&H0,&H1D35
380 END' of program.
U S E R S U P P O R T E D S O F T W A R E
======================== 11/14/83 REVISION =========================
THIS CATALOG IS A COMPLEMENTS OF:
SEAWARE CORPORATION
P.O. BOX 1656
DELRAY BEACH, FL 33444
(305) 276-5072
THIS IS A CATALOG OF USER SUPPORTED SOFTWARE. IT IS SUPPLIED AS A SERVICE
TO CUSTOMERS AND POTENTIAL CUSTOMERS. THE LATEST REVISION IS ALWAYS
AVAILABLE BY CALLING THE BAT-BBS AT (305) 276-5072. (BAT-BBS IS A
COMBINATION VOICE/DATA PHONE LINE. 4 RINGS=VOICE.
2 RINGS/HANDUP/REDIAL=BAT-BBS MODEM CONNECTION). IN NO WAY IS THIS LIST AN
ENDORSEMENT OF ANY PRODUCT SHOWN HERE BY SEAWARE CORPORATION. UNLESS
OTHERWISE NOTED, ALL PROGRAMS RUN ON AN IBM(TM) PERSONAL COMPUTER.
IF YOU WISH TO RECEIVE A PROGRAM LISTED IN THIS CATALOG, PLEASE COMMUNICATE
DIRECTLY WITH THE AUTHOR OR CONTACT SOURCE LISTED BELOW. SEAWARE CORP.
DOES NOT HAVE THE PROGRAM, NOR WILL IT HANDLE YOUR CONTRIBUTIONS (UNLESS
SPECIFICALLY INDICATED).
FREEWARE IS A CONCEPT AND TRADEMARK OF ANDREW FLUEGELMAN (THE HEADLANDS
PRESS, INC., BOX 862, TIBURON, CA, 94920). EACH PACKAGE DISPLAYS A NOTICE
ASKING FOR A VOLUNTARY CONTRIBUTION TO BE SENT TO THE AUTHOR. ANDREW'S
FREEWARE PACKAGE IS PC-TALK, A COMMUNICATIONS PROGRAM.
THE FREEWARE CONCEPT IS BASED ON THESE PRINCIPLES:
- PEOPLE NEED TO TRY PROGRAMS TO SEE IF THEY ARE USEFUL.
- SOFTWARE AUTHORS CAN BE SUPPORTED DIRECTLY BY USERS.
- COPYING AND NETWORKING OF PROGRAMS CAN BE ENCOURAGED.
IF YOU ARE THE AUTHOR OF A USER SUPPORTED PROGRAM. PLEASE LEAVE A MESSAGE
ON THE BAT-BBS AS TO THE DETAILS OF YOUR PUBLIC OFFER.
PERMISSION IS GRANTED TO COPY AND SHARE THIS CATALOG PROVIDED THE ABOVE
NOTICE IS INCLUDED AND UNALTERED.
====================================================================
PROGRAM...............: PC-TALK
LATEST REVISION.......: 3
SUGGESTED CONTRIBUTION: $35
CONTACT...............: THE HEADLANDS PRESS, INC.
P.O. BOX 862
TIBURON, CA 94920
AUTHOR................: ANDREW FUGLEMAN
SYSTEM REQUIREMENTS...: 96K IBM PERSONAL COMPUTER (INTERPRETED) OR 128K
(TO RUN COMPILED). AN ASYNCHRONOUS COMMUNICATION ADAPTER. A HAYES
SMARTMODEM (RECOMMENDED) OR OTHER MODEM (300 BAUD OR 1200 BAUD). A
PRINTER (OPTIONAL).
CONTRIBUTION PROVIDES.: A DISKETTE WITH SOURCE OF THE LATEST VERSON.
DISKETTE ONLY.........: $5
DESCRIPTION: PC-TALK IS A GENERAL PURPOSE COMMUNICATION PROGRAM WHICH
ALLOWS COMPLETE FREEDOM IN MAKING CONNECTIONS TO EXTERNAL COMPUTER
EQUIPMENT BY USING THE ASYNCHRONOUS COMMUNICATION ADAPTER. ITS
PRIMARY FLEXABILITY COMES WITH ITS ABILITY TO CONTROL A HAYES
SMARTMODEM. FOR THE HAYES MODEM, A DIALING DIRECTORY IS AVAILABLE.
OPTIONS ARE ALSO AVAILABLE TO CONTROL BAUD RATE, SYSTEM PARAMETERS,
SCREEN "SNAP-SHOT" PRINTING/STORAGE, DATA TRANSFER (ASCII, BINARY,
PACING, AND XMODEM MODES), DISKETTE DIRECTORIES, DISK DATA PREVIEWING,
AND MORE.
====================================================================
PROGRAM...............: "1-RINGYDINGY"(TM)
LATEST REVISION.......: 1.2
SUGGESTED CONTRIBUTION: $25
CONTACT...............: JIM BUTTON
P.O. BOX 5786
BELLEVUE, WA 98006
AUTHOR................: JIM BUTTON
SOURCE: CL2925
COMPUSERVE: 71435,2012
SYSTEM REQUIREMENTS...: "1-RINGYDINGY" REQUIRES A 64K OR
LARGER IBM PC (WITH PC-DOS 1.0 OR 1.1), A 96K OR LARGER IBM
PC (WITH PC-DOS 2.0 OR LATER), ONE DISK DRIVE, AND A SERIAL
I/O PORT WITH A MODEM. YOU MUST ALSO HAVE A VIDEO MONITOR
CAPABLE OF DISPLAYING 80 CHARACTERS PER LINE.
CONTRIBUTION PROVIDES.: PROGRAM AND DOCUMENTATION ON DISKETTE.
DISKETTE ONLY.........: SEND DISKETTE WITH RETURN POSTAGE &
MAILER OR $6.
DESCRIPTION:
"1-RINGYDINGY" IS A GENERAL PURPOSE ASYNCHRONOUS
COMMUNICATIONS PROGRAM. IT WAS DESIGNED WITH THE "KISS"
("KEEP IT SIMPLE, STUPID") PRINCIPLE IN MIND. ALTHOUGH IT
EMPLOYS A SIMPLE AND STRAIGHTFORWARD APPROACH TO
COMMUNICATIONS, ITS CAPABILITIES SURPASS THOSE OF SOME OF
THE MORE EXPENSIVE COMMUNICATIONS PROGRAMS ON THE MARKET
TODAY.
WITH "1-RINGYDINGY" YOU WILL BE ABLE TO:
- COMMUNICATE AT SPEEDS UP TO 9600 BAUD (LIMITED BY THE SPEED OF
YOUR SERIAL PORT AND MODEM.)
- EXCHANGE (SEND OR RECEIVE) TEXT FILES WITH OTHER COMPUTERS.
WHILE SENDING TEXT FILES, YOU MAY DYNAMICALLY SEND SELECTED
RECORDS FROM THE FILE AND SKIP PAST OTHER RECORDS NOT TO BE
SENT.
- EXCHANGE (SEND OR RECEIVE) NON-TEXT (EXE OR COM) FILES WITH
OTHER COMPUTERS WHICH SUPPORT THE "X-MODEM" PROTOCOL.
- USE MODEMS WHICH DON'T SUPPORT AUTO-DIAL.
- USE MODEMS WHICH DO SUPPORT AUTO-DIAL. THIS INCLUDES NOT ONLY
THE HAYES SMARTMODEM, BUT ALSO A VARIETY OF OTHER MODEMS WHICH
USE OTHER COMMANDS TO AUTODIAL A PHONE NUMBER.
- CAPTURE INCOMING DATA IN A DISK FILE.
- SETUP YOUR OWN "FILTERS" TO REMOVE OR CHANGE UNDESIRABLE
CHARACTERS IN THE INCOMING DATA.
- DYNAMICALLY SLOW DOWN THE SPEED AT WHICH YOU TRANSMIT, SO AS
NOT TO OVERRUN THE COMPUTER AT THE OTHER END.
- DYNAMICALLY ALTER YOUR COMMUNICATIONS PARAMETERS, SUCH AS
PARITY, SPEED, AND NUMBER OF DATA BITS.
- BUILD AUTOMATIC LOGON SEQUENCES OF ANY LENGTH, TO ENABLE YOU TO
LOG ON TO A VARIETY OF REMOTE COMPUTERS WITHOUT HAVING TO
REMEMBER PHONE NUMBERS, PASSWORDS AND ACCESS COMMANDS.
- CHANGE THE COLORS ON YOUR DISPLAY (IF YOU HAVE A COLOR DISPLAY)
TO SUIT YOUR PERSONAL TASTE.
- MOVE BACK AND FORTH BETWEEN DIFFERENT DIRECTORIES ON YOUR HARD
DISK (IF YOU HAVE DOS 2.0) FOR RETRIEVING AND SENDING DATA.
- COMMUNICATE PROPERLY WITH COMPUTERS WHICH USE "XON/XOFF"
CHARACTERS.
IN SHORT, "1-RINGYDINGY" IS EASY TO USE, EASY TO UNDERSTAND,
POWERFUL, AND SMALL IN SIZE.
====================================================================
PROGRAM...............: PC-FILE
LATEST REVISION.......: 9.1
SUGGESTED CONTRIBUTION: $25
CONTACT...............: JIM BUTTON
P.O. BOX 5786
BELLEVUE, WA 98006
AUTHOR................: JIM BUTTON
SOURCE: CL2925
COMPUSERVE: 71435,2012
SYSTEM REQUIREMENTS...: PC-FILE REQUIRES A 64K OR LARGER IBM PERSONAL
COMPUTER, WITH AT LEAST ONE DISK DRIVE. A PRINTER IS OPTIONAL.
PC-FILE CAN BE SET UP TO SUPPORT EITHER 40 CHARACTER OR 80 CHARACTER
WIDE DISPLAYS.
CONTRIBUTION PROVIDES.: PROGRAM AND DOCUMENTATION ON DISKETTE.
DISKETTE ONLY.........: SEND DISKETTE WITH RETURN POSTAGE &
MAILER.
DESCRIPTION: PC-FILE IS A GENERAL PURPOSE "DATA BASE MANAGER"
PROGRAM. IT WAS WRITTEN WITH ONE OVERRIDING GOAL IN MIND: EASE OF
USE. WITH PC-FILE, IT'S VERY EASY FOR THE CASUAL OR PROFESSIONAL USER
TO CREATE AND MAINTAIN DATA FILES ON THE COMPUTER, AND TO CREATE
SIMPLE PRINTED REPORTS BASED ON THAT DATA.
YOU CAN USE PC-FILE FOR ALL KINDS OF TASKS:
- MAINTAIN MAILING LISTS AND PRINT LABELS,
- MAINTAIN PRICE LISTS,
- MAINTAIN TELEPHONE DIRECTORIES,
- KEEP VARIOUS TYPES OF INVENTORY RECORDS,
- BUILD PERSONNEL FILES,
- KEEP CUSTOMER LISTS,
- BUILD AND MAINTAIN FILES TO BE USED BY OTHER PROGRAMS,
LIKE VISICALC AND MAILMERGE,
- AND MANY OTHER TASKS WHICH ONLY YOU CAN DREAM UP.
PC-FILE WILL ALLOW YOU TO SORT YOUR DATA INTO ALMOST ANY SEQUENCE. IT
ALLOWS RAPID ACCESS TO ANY RECORD IN THE FILE, WITH A SOPHISTICATED
SEARCH TECHNIQUE ALLOWING COMPARISON SEARCHES ON ANY FIELD IN THE
RECORD. FOR EXAMPLE, YOU CAN DISPLAY ALL EMPLOYEES OVER A CERTAIN
AGE, OR ALL CLIENTS IN A CERTAIN STATE, OR ALL ITEMS THAT ARE NOT IN A
CERTAIN CATEGORY. YOU CAN PRINT OUT REPORTS FROM YOUR DATABASE,
LISTING ALL OR SOME OF THE FIELDS, FROM ALL OR SOME OF THE RECORDS, IN
MANY DIFFERENT SEQUENCES, WITH TOTALS ON THE NUMERIC FIELDS. REPORTS
CAN BE SENT DIRECTLY TO YOUR VIDEO SCREEN, OR TO ANY ONE OF MANY
DIFFERENT TYPES OF PRINTERS. THEY CAN ALSO BE SENT TO DISK, FOR LATER
USE WITH YOUR WORD PROCESSING PROGRAMS.
YOU CAN CREATE ENTIRE NEW DATABASES FROM EXISTING DATABASES. THE NEW
DATABASES CAN BE IN A DIFFERENT FORMAT, AND CAN BE A SUBSET OF THE
DATABASE FROM WHICH THEY WERE "CLONED".
YOU CAN EXPORT YOUR DATABASE FILES FOR USE WITH VISICALC AND OTHER
"CALC" TYPE PROGRAMS, OR TO "MAILMERGE" FILES.
BUT ABOVE ALL ELSE, PC-FILE IS EASY! MOST PEOPLE CAN USE IT WITH NO
TRAINING OR INSTRUCTIONS.
====================================================================
PROGRAM...............: FRED (FREE EDITOR)
LATEST REVISION.......: 1.21
SUGGESTED CONTRIBUTION: $20
CONTACT...............: DAVID N. SMITH
44 OLE MUSKET LANE
DANBURY, CT 06810
AUTHOR................: DAVID N. SMITH
SYSTEM REQUIREMENTS...: IBMPC, 1 DISKETTE DRIVE, 96K MEMORY
MINIMUM, DOS 1.1 OR 2.0.
CONTRIBUTION PROVIDES.:
DISKETTE ONLY.........: SEND DISKETTE WITH RETURN POSTAGE &
MAILER.
DESCRIPTION:
FRED IS A FULL SCREEN EDITOR FOR THE IBM PC. IT DISPLAYS FILES
UP TO 1500 LINES LONG AND WITH LINES UP TO 254 CHARACTERS LONG ON
A MONOCHROME DISPLAY OR 80 COLUMN GRAPHICS DISPLAY. THE SCREEN
IS A WINDOW ONTO THE FILE. THE WINDOW CAN MOVE UP, DOWN, LEFT
AND RIGHT. LINES WHICH ARE LONGER THAN THE SCREEN ARE PARTLY
DISPLAYED. IF YOU INSERT DATA, CHARACTERS SEEM TO BE LOST OFF OF
THE END OF THE LINE; THEY ARE NOT LOST BUT ARE JUST NO LONGER
DISPLAYED. MOVE THE CURSOR OFF OF THE SCREEN TO THE RIGHT AND
THEY WILL REAPPEAR AS THE WINDOW MOVES.
IF A FILE IS TOO BIG TO FIT INTO MEMORY, IT COMPLAINS POLITELY;
IF MEMORY NEARS THE LIMIT WHILE YOU ARE EDITING, FRED TELLS YOU
AND LETS YOU CONTINUE EDITING BUT WON'T LET YOU ADD MORE LINES.
IN GENERAL, IT IS FORGIVING; YOU CAN EVEN REMOVE THE DISKETTE IT
IS READING FROM OR WRITING TO WITHOUT BOMBING IT OR LOOSING DATA
IN MEMORY BUT I DO NOT RECOMMEND IT (NOR GUARANTEE IT).
IT UPDATES THE DISPLAY BUFFER DIRECTLY SO THAT SCREEN UPDATES
APPEAR INSTANTANEOUS; IT IS FULLY POSSIBLE TO SCROLL THROUGH A
FILE AT TYPAMATIC SPEEDS.
FRED IS WRITTEN IN ABOUT 590 LINES OF COMPILED BASIC AND ABOUT 30
LINES OF ASSEMBLER. SINCE ITS PERFORMANCE IS HORRID EXCEPT WHEN
COMPILED, SOURCE IS NOT DISTRIBUTED.
FRED IS SIMILAR TO THE IBM PERSONAL EDITOR; MOST OF IT'S KEYS ARE
THE SAME AND ITS APPROACH TO HANDLING THE SCREEN IS ABOUT THE
SAME. I USE THE PERSONAL EDITOR; FRED WAS AN EXPERIMENT FROM
SOME TIME AGO WHICH I HAD LAID ASIDE. SEVERAL MONTHS OF READING
THE DIALOGS ON THE IBM PC SPECIAL INTEREST GROUP ON COMPUSERVE
CONVINCED ME THAT THERE ARE MANY PEOPLE OUT THERE WHO STILL USE
EDLIN AND WHO WILL NEVER PAY $100 FOR AN EDITOR. THEREFORE I GOT
FRED OUT AND POLISHED IT UP A BIT TO GIVE AWAY. I HOPE THAT
PEOPLE FIND IT USEFUL.
THE DOCUMENTATION IS SOMEWHAT SPARSE; THERE IS NO TUTORIAL AND
LITTLE ELSE BUT A LIST OF KEYS. I SUSPECT THAT MOST PC USERS
WON'T HAVE ANY TROUBLE USING IT SINCE MOST OF THE KEYS DO THE
"RIGHT" THING.
====================================================================
PROGRAM...............: PC-WRITE
LATEST REVISION.......: 1
SUGGESTED CONTRIBUTION: $75
CONTACT...............: QUICKSOFT
219 FIRST N. #224
SEATTLE, WA 98109
(206) 282-0452
AUTHOR................: BOB WALLACE
SYSTEM REQUIREMENTS...:
CONTRIBUTION PROVIDES.: REGISTRATION PROVIDES ADDITIONAL SERVICES, SUCH AS
SOURCE FILES, TELEPHONE SUPPORT, A PRINTED MANUAL, AND A FREE COPY OF THE
NEXT UPDATED VERSION.
IN ADDITION, REGISTERED OWNERS RECEIVE A COMMISSION ($25) WHEN SOMEONE
REGISTERS ONE OF THE OWNER'S COPIES. THIS COMMISSION IS NOT MULTI-LEVEL
OR "PYRAMIDAL", SINCE ONLY ONE PERSON RECEIVES IT. IT'S JUST A SALES
COMMISSION.
PEOPLE WHO LIKE PC-WRITE REGISTER AND GIVE COPIES TO FRIENDS OR BUSINESS
ASSOCIATES WITH IBM PC'S. IF ONE REGISTERS, THEY GET A CHECK IN THE
MAIL, AN EXTRA BONUS.
TO REGISTER YOUR COPY, SEND THE AMOUNT REQUESTED TO QUICKSOFT, OR CALL
WITH YOUR VISA/MASTERCARD NUMBER. WE WILL NEED YOUR OLD REGISTRATION
NUMBER SO WE CAN PROPERLY CREDIT THE OWNER. YOU WILL RECEIVE YOUR NEW
REGISTRATION NUMBER OVER THE PHONE OR WITH YOUR OTHER MATERIALS.
DISKETTE ONLY.........: $10
DESCRIPTION: PC-WRITE IS A WORD PROCESSOR AND TEXT EDITOR FOR THE IBM
PERSONAL COMPUTER. IT HELPS YOU WRITE AND FORMAT BOOKS, REPORTS, LETTERS,
PROGRAMS, MANUALS, OR OTHER TEXT.
PC-WRITE WAS DEVELOPED FOR THE IBM PERSONAL COMPUTER. IT MAY NOT RUN ON
OTHER COMPUTERS, EVEN THOSE WHICH CLAIM TO BE "COMPATIBLE" WITH THE IBM PC.
IF YOU ARE TRYING TO USE PC-WRITE ON ANOTHER MACHINE, YOU MAY BE OUT OF
LUCK. SOME, SUCH AS THE COMPAQ, MAY BE COMPATIBLE ENOUGH.
THE PC-WRITE DISKETTE CONTAINS TWO PROGRAMS: THE EDITOR AND PAGE PRINTER.
YOU USE THE EDITOR TO CREATE YOUR TEXT, AND THE PAGE PRINTER TO DIVIDE IT
INTO PAGES FOR PRINTING.
IF YOU HAVE NEVER USED A COMPUTER OR AN EDITING PROGRAM, WELCOME TO WORD
PROCESSING! THE MANUAL INCLUDES A TUTORIAL SECTION TO HELP YOU GET
STARTED. IT ALSO AVOIDS THE USE OF TECHNICAL JARGON AS MUCH AS POSSIBLE.
IF YOU HAVE USED OTHER EDITING PROGRAMS, ESPECIALLY FULL SCREEN EDITORS,
YOU WILL FIND PC-WRITE EASY TO PICK UP. YOU WILL ALSO FIND IT SMALL, FAST,
AND RESPONSIVE.
PC-WRITE INCLUDES MANY FEATURES:
- INSERT, REPLACE, AND DELETE TEXT ANYWHERE YOU WANT.
- SEARCH FOR A PIECE TEXT AND REPLACE IT WITH OTHER TEXT.
- MOVE AND COPY BLOCKS OF TEXT FROM ONE PLACE TO ANOTHER.
- SET MARGINS AND TABS, REFORMAT AND JUSTIFY PARAGRAPHS.
- PRINT YOUR TEXT IN PAGES WITH HEADERS AND FOOTERS.
- SPLIT SCREEN MODE LETS YOU EDIT TWO FILES AT ONCE.
- SEARCH AND REPLACE USE "WILD CARD" MATCH CHARACTERS.
- VERY FAST OPERATION LETS YOU EDIT EFFICIENTLY.
- CONVENIENT TRANSPOSE, CHANGE CASE, AND BOOKMARK KEYS.
- YOU CAN SET ANY CONTROL KEY TO BE ANY OTHER KEY.
====================================================================
PROGRAM...............: EXTENDED BATCH LANGUAGE
LATEST REVISION.......: 2.0
SUGGESTED CONTRIBUTION: $30 (SUGGESTED CONTRIBUTION FOR PUBLIC USE)
($30 LICENSE FEE REQUIRED FOR BUSINESS USE)
CONTACT...............: SEAWARE CORP.
P.O. BOX 1656
DELRAY BEACH, FL 33444
(305) 276-5072
AUTHOR................: FRANK CANOVA
SYSTEM REQUIREMENTS...: 64K IBM PERSONAL COMPUTER AND PC-DOS (ANY VERSION)
CONTRIBUTION PROVIDES.: A DISKETTE WITH THE PROGRAM, DEMONSTRATION
FILES, AND SAMPLES. A 70 PAGE HARDCOPY MANUAL WITH EXAMPLES, TIPS,
AND DESCRIPTIONS. A PASSWORD AND USER ID TO THE BAT-BBS, A HOT-LINE
FOR HELP, TIPS, SWAPPING PROGRAMS WITH OTHER USERS, FREE UPDATES, AND
OTHER SERVICES SUCH AS THIS CATALOG.
DISKETTE ONLY.........: $5 FOR DISKETTE AND POSTAGE/HANDLING.
DESCRIPTION: EXTENDED BATCH LANGUAGE IS A COMMAND PROGRAMMING
LANGUAGE. IT IS A HIGH LEVEL LANGUAGE THAT CAN BE USED AS A DIRECT
REPLACEMENT OR IN CONJUNCTION WITH DOS BATCH FILES. IT CAN OPERATE
WITH IBM DOS VERSIONS 1.0, 1.1, OR 2.X. COMPARED WITH STANDARD DOS
BATCH FILES, BAT HAS SUPERIOR CONTROL STRUCTURES, STRING HANDLING, AND
USER INTERFACES. IT ALSO HAS TRACING FACILITIES, AND IS EASY TO LEARN
AND USE. MANY ASPECTS OF THE LANGUAGE ARE LIKE BASIC. USERS OF
VM/370 WILL ALSO FIND IT SIMILAR TO EXECS. THE EFFECT OF USING BAT IS
TO PUT "COVERS" ON THE PROGRAMS AND SYSTEM THAT IT CONTROLS. A
FRIENDLY, EASY TO USE INTERFACE IS EASILY CREATED.
EXTENDED BATCH LANGUAGE HAS MORE POWER AND ENHANCED CAPABILITIES THAN
EITHER DOS 1.1 OR DOS 2.0. THIS PROGRAM USES THESE CAPABILITIES TO
SOLVE COMMON PROBLEMS FOR......
THE SYSTEM PROGRAMMER - WHO NEEDS TO DO LONG SEQUENCES OF TASKS
BETWEEN LINKER, COMPILERS, DEBUGGERS, AND EDITORS. HE CAN NOW CREATE
AN INTELLIGENT LINK BETWEEN THESE PROGRAMS. FOR INSTANCE, HE MAY WISH
TO DO A LINK DEPENDING ON IF THE PREVIOUS COMPILE WAS SUCCESSFUL. HE
CAN ALSO RESPOND AUTOMATICALLY FROM A KEYBOARD "STACK" INTO VARIOUS
UTILITIES.
THE SECRETARY - WHO HAS SEVERAL TYPES OF TASKS TO PERFORM (WORD
PROCESSING, ACCOUNTING PACKAGES, ETC) AND REQUIRES A SIMPLE WAY OF
CHANGING FROM ONE TYPE OF TASK TO ANOTHER, PERHAPS WITH OPTIONAL HELP
TEXT.
THE STUDENT - WHO WISHES TO GO FROM ONE GAME TO ANOTHER WITHOUT HAVING
TO LEARN THE SYSTEM COMMANDS REQUIRED TO MAKE EACH AVAILABLE.
TESTERS - WHO WISH TO AUTOMATE LONG, BORING TESTS AND PROCEDURES ON
THE PERSONAL COMPUTER. AN EXCELLENT TOOL FOR A MANUFACTURING LINE.
WITH EXTENDED BATCH LANGUAGE, YOU CAN HAVE:
- BETTER CONTROL OF MESSAGES TO THE SCREEN
- ACCEPT RESPONSES FROM THE USER AND CREATE RESPONSES TO PROGRAMS
- STRING HANDLING OPERATIONS (SUBSTRING, LENGTH, ETC.)
- ARITHMETIC EXPRESSIONS AND ASSIGNMENTS
- COMPARISONS AND PROGRAM RETURN CODES
- SEARCH FOR FILES OR TELL IF THEY EXIST
- COMPLETE FREEDOM TO MIX DOS AND BAT COMMANDS WITHIN THE SAME
CONTROL FILE
====================================================================
PROGRAM...............: EPISTAT
LATEST REVISION.......: 2.0
SUGGESTED CONTRIBUTION: $25
CONTACT...............: TRACY L. GUSTAFSON, M.D.
1705 GATTIS SCHOOL ROAD
ROUND ROCK, TX 78664
AUTHOR................: TRACY L. GUSTAFSON, M.D.
SYSTEM REQUIREMENTS...:
MINIMUM OPTIMAL
IBM PC WITH 64K RAM IBM PC WITH 96K RAM
ONE 160K DISK DRIVE TWO DISK DRIVES
COLOR/GRAPHICS ADAPTER COLOR GRAPHICS ADAPTER
MONOCHROME MONITOR HI-RES COLOR MONITOR
BASICA BASICA
IBM OR EPSON PRINTER
WITH GRAPHICS
CONTRIBUTION PROVIDES.: PROGRAM AND DOCUMENTATION ON DISKETTE.
DISKETTE ONLY.........: FREE PROGRAMS IF YOU SEND DISKETTE.
DESCRIPTION: EPISTAT IS A COLLECTION OF PROGRAMS WRITTEN IN BASICA
FOR STATISTICAL ANALYSIS OF SMALL TO MEDIUM-SIZED DATA SAMPLES ( <
1000 OBSERVATIONS PER SAMPLE AND < 28 DATA SAMPLES PER FILE). IT
INCLUDES PROGRAMS TO ENTER, APPEND, AND EDIT DATA, AS WELL AS PERFORM
SEVERAL KINDS OF DATA TRANSFORMATIONS. THE DATAFILES CAN BE PRINTED,
GRAPHED, OR SAVED TO DISK. THE 21 PROGRAMS IN EPISTAT CAN ALSO
PERFORM 34 COMMON STATISTICAL TESTS OR FUNCTIONS.
THE PROGRAMS ARE INTENDED TO BE AS SELF-EXPLANATORY AND USER-FRIENDLY
AS POSSIBLE. ALL QUESTIONS CAN BE ANSWERED WITH A NUMBER, A "Y" FOR
YES, OR AN "N" FOR NO. A THOROUGH STUDY OF THIS GUIDE IS NOT
NECESSARY BEFORE USING THE PROGRAMS. ON THE OTHER HAND, NEITHER THE
PROGRAMS NOR THIS MANUAL PURPORT TO TEACH THE PROPER USE OR
INTERPRETATION OF STATISTICS. RATHER, SOME FAMILIARITY WITH THE KINDS
OF DATA REQUIRED AND THE UNDERLYING ASSUMPTIONS APPROPRIATE TO EACH
STATISTICAL TEST IS ASSUMED.
ONE WILL NOTE THAT SOME OF THE PROGRAMS EMPHASIZE EPIDEMIOLOGIC AND
MEDICAL APPLICATIONS. DESPITE THE WORDING OF VARIOUS PROGRAM
QUESTIONS OR STATEMENTS, THESE TEST ALSO APPLY TO MANY OTHER TYPES OF
DATA. FOR FURTHER EXPLANATIONS OF TESTS, REFER TO:
1. COLTON, THEODORE. STATISTICS IN MEDICINE. LITTLE, BROWN AND CO.
BOSTON, 1974.
2. FLEISS, JOSEPH. STATISTICAL METHODS FOR RATES AND PROPORTIONS.
JOHN WILEY AND SONS. NEW YORK, 1973.
====================================================================
PROGRAM...............: LADYBUG
LATEST REVISION.......: 0.9
SUGGESTED CONTRIBUTION: $35
CONTACT...............: DAVID N. SMITH
44 OLE MUSKET LANE
DANBURY, CT 06810
AUTHOR................: DAVID N. SMITH
COMPUSERVE: 73145,153.
SYSTEM REQUIREMENTS...:
- 128K OF MEMORY.
- ONE SINGLE SIDED DISK DRIVE. (BUT TWO, OR A DOUBLE SIDED ARE
RECOMMENDED).
- A GRAPHICS ADAPTOR.
- A GRAPHICS DISPLAY OF ANY KIND. (COLOR IS SUPPORTED ONLY ON
A COLOR DISPLAY; 80 COLUMN EDITING IS SUPPORTED ONLY ON A
HIGH RESOLUTION MONITOR.)
- DOS 1.1 OR 2.0
- AN IBM PC.
CONTRIBUTION PROVIDES.:
DISKETTE ONLY.........: FREE, SEND A DISKETTE AND A SELF ADDRESSED
RETURNABLE MAILER TO ABOVE ADDRESS.
DESCRIPTION:
LADYBUG IS A GRAPHICS LANGUAGE BASED ON LOGO TURTLE GRAPHICS. IT
CONTAINS MOST OF THE GRAPHICS COMMANDS, PROCEDURE MAKING COMMANDS, AND
CONTROL COMMANDS FROM THE APPLE II(1) IMPLEMENTATION OF LOGO DONE BY
TERRAPIN, INC. THIS VERSION IS DESCRIBED IN THE BOOK LOGO FOR THE
APPLE II, BY HAROLD ABELSON, PUBLISHED BY MCGRAW-HILL IN 1982. IT IS
VERY SIMILAR TO OTHER VERSIONS FOR THE APPLE II, TEXAS INSTRUMENTS,
AND TRS-80(2) COMPUTERS.
LADYBUG IS A VERSION OF LOGO PATTERNED AFTER THE APPLE II
IMPLEMENTATION DEVELOPED BY TERRAPIN, INC. IN GENERAL IT HAS:
- ALL OF THE GRAPHICS COMMANDS.
- ALL OF THE MATHEMATICAL COMPUTATIONS.
- ALL OF THE CONTROL COMMANDS.
IN ADDITION IT HAS:
- A LARGE LIBRARY OF PROCEDURES ADAPTED FROM A VARIETY OF
SOURCES.
- PAINTING OF AREAS.
- CLIPPING OF DRAWINGS (AS WELL AS WRAPAROUND).
- A FAST FULL SCREEN EDITOR.
- SUPPORT FOR USING BOTH DISPLAYS IF BOTH ARE PRESENT.
- SOUNDS -- PLAY STATEMENT LIKE BASIC.
THE MAJOR FEATURES MISSING ARE:
- LIST MANIPULATION.
- VARIABLE NUMBERS OF PARAMETERS TO PRIMITIVES.
- SAVING SCREEN IMAGES.
LADYBUG IS DISTRIBUTED AS COMPILED BASIC; SOURCE IS NOT DISTRIBUTED
NOR IS IT AVAILABLE.
====================================================================
PROGRAM...............: ULTRA-ZAP
ULTRA-FORMAT
ULTRA-FILE
LATEST REVISION.......: ?
SUGGESTED CONTRIBUTION: ?
CONTACT...............: FREESOFT ULTRA-UTILITIES
P.O. BOX 27608
ST. LOUIS, MO 63146
AUTHOR................: ?
SYSTEM REQUIREMENTS...: TO USE THEM, YOU'LL NEED AN IBM-PC WITH AT LEAST
64K RAM AND ONE SINGLE OR DOUBLE-SIDED DISK DRIVE
AND AN 80 COLUMN MONITOR.
CONTRIBUTION PROVIDES.:
DISKETTE ONLY.........: FREE PROGRAMS IF YOU SEND DISKETTE.
DESCRIPTION:
THERE IS NOW AVAILABLE A THREE VOLUME SET OF IBM-PC
UTILITIES THAT DO EVERYTHING THE NORTON UTILITIES DO AND
MUCH, MUCH MORE. TO GET THEM, SEND ONE FORMATTED
DOUBLE-SIDED DISKETTE OR 2 FORMATTED SINGLE-SIDED DISKETTES,
AND A SELF-ADDRESSED, POSTAGE-PAID RETURN MAILER TO THE
ADDRESS ABOVE.
THE PACKAGE INCLUDES:
* ULTRA-ZAP: PROGRAM FOR DISPLAYING/MODIFYING DISK SECTORS
AND FILE SECTORS, COPYING DISK SECTORS, SEARCHING FOR BYTE
OR CHARACTER SEQUENCES IN DISK OR FILE SECTORS, FILLING OR
ZEROING DISK SECTORS, AND INTERROGATING DISKETTES TO DISPLAY
THEIR PROTECTION TECHNIQUES. THIS PROGRAM CAN WORK ON ANY
DISK SECTOR, REGARDLESS OF PROTECTION, ETC.
* ULTRA-FORMAT: CAN FORMAT STANDARD OR COPY-PROTECTED DISK
TRACKS, ALSO CAN REPAIR FILES CONTAINING "FLAKY" SECTORS BY
PLACING A FRESH FORMAT ON A TRACK WITHOUT ERASING PRIOR
DATA.
* ULTRA-FILE: PROGRAM FOR DISPLAYING ALL DIRECTORY
INFORMATION ABOUT A DISK FILE, ASSIGNING OR REMOVING SYSTEM
OR HIDDEN STATUS TO A FILE, BUILDING FILES FROM SCRATCH,
RESURRECTING ACCIDENTALLY ERASED FILES, AND SELECTIVELY
KILLING FILES FROM A MENU (FAST!).
ALL IN ALL, IT IS AN EXTREMELY POWERFUL PACKAGE THAT MAKE
LIFE MUCH EASIER FOR YOU AND YOUR IBM-PC.
====================================================================
PROGRAM...............: DESK-TOP
LATEST REVISION.......: ?
SUGGESTED CONTRIBUTION: $25
CONTACT...............: MICROCOMPUTER MANAGEMENT
45 DRUM HILL ROAD
CONCORD, MA 01742
AUTHOR................: ?
SYSTEM REQUIREMENTS...: ?
CONTRIBUTION PROVIDES.: ?
DISKETTE ONLY.........: FREE PROGRAMS IF YOU SEND TWO
FORMATED DOUBLE SIDED DISKS AND A
PREPAID MAILER.
DESCRIPTION:
IT IS AN DESK TOP AID FOR EXECUTIVES. AMONGST MANY OTHER
THINGS, IT CONTAINS MACRO AND MENU-WRITING FOR 1-2-3. ALL
CHOICES ARE USER-MODIFIABLE.
(( MORE DETAILS WILL BE AVAILABLE AT A LATER DATE ))
DT IS BEING MARKETED UNDER THE FREEWARE<TM> CONCEPT. TO GET
YOUR COPY, SEND TWO FORMATTED DOUBLE SIDED DISKS AND A PREPAID
MAILER, AND WE'LL RETURN DT. IF YOU LIKE IT, WE ASK FOR A $25
DONATION. OR, SEND THE $25.00 AND WE'LL SUPPLY THE DISKS AND
POSTAGE.
MICROCOMPUTER MANAGEMENT
45 DRUM HILL ROAD
CONCORD, MA 01742
<<END OF CATALOG>>
PAGE 60,132
; NOCOLOR.ASM: FOR TURNING OFF THE VIDEO COLOR,
; ALLOWING USERS WITH COMPOSITE B/W MONITORS TO
; USE PROGRAMS WHICH SET THE COLOR ON.
; PROGRAM BY RICH WINKEL
BOTTOM SEGMENT AT 0H
ORG 024H
KBDIP DW ? ;IP FOR KBD INT
KBDCS DW ? ;CS FOR KBD INT
ORG 0417H
KB_FLAG DB ? ;ROM BIOS DATA
ORG 0465H
CRTMODE DB ? ;CURRENT CRT MODE
BOTTOM ENDS
;
NOCOLOR SEGMENT
ASSUME CS:NOCOLOR,DS:BOTTOM
ORG 100H
MAIN PROC NEAR
JMP INIT
;
; KEYBOARD INTERRUPT INTERCEPT ROUTINE
;
CATCH: STI ;INTERRUPTS BACK ON
PUSH AX
IN AL,60H ;CHECK SCAN CODE
CMP AL,0FH ;IS IT TAB KEY?
JNZ L2 ;NO, ON TO KEYBOARD ROUTINE
PUSH DS ;OTHERWISE, CHECK FOR
XOR AX,AX ;ALT KEY SHIFT
MOV DS,AX ;GET DOWN TO THE BOTTOM
MOV AL,KB_FLAG ;GET KEYBOARD FLAG BYTE FROM ROM DATA
TEST AL,08H ;ALT SHIFT?
JZ L1 ;NO, ON TO KEYBOARD ROUTINE
PUSH DX ;OTHERWISE,
MOV DX,03D8H ;POINT TO MODE SELECT PORT ON CG CARD
MOV AL,CRTMODE ;GET BYTE FOR MODE REG
OR AL,04H ;TURN ON B/W BIT
MOV CRTMODE,AL ;SAVE CRT STATE
OUT DX,AL ;TURN OFF COLOR
IN AL,61H ;NOW, PREPARE TO RETURN
MOV AH,AL ;RESET
OR AL,80H ;THE
OUT 61H,AL ;KEYBOARD
MOV AL,AH ;CONTROL
OUT 61H,AL ;PORT
CLI ;TURN OFF INTERRUPTS
MOV AL,20H ;RESET INTERRUPT CONTROLLER (8259)
OUT 20H,AL
POP DX
POP DS
POP AX
IRET ;BACK TO BUSINESS
L1: POP DS ;ONWARD TO KBD ROUTINE
L2: POP AX
DB 0EAH ;PREFIX BYTE FOR FAR JUMP
JFARIP DW 0H ;IP FOR KBD ROUTINE
JFARCS DW 0H ;CS FOR KBD ROUTINE
;
; INSTALLATION ROUTINE
;
INIT: XOR AX,AX ;GET INTO
MOV DS,AX ;BOTTOM SEGMENT
MOV AX,KBDIP ;GET IP FOR KBD INTERRUPT
MOV CS:JFARIP,AX ;PUT IN OUR FAR JUMP
MOV AX,KBDCS ;GET CS FOR KBD INTERRUPT
MOV CS:JFARCS,AX ;PUT IN OUR FAR JUMP
MOV AX,CS ;BACK TO
MOV DS,AX ;OUR SEGMENT
MOV DX,OFFSET CATCH ;USE DOS TO POINT KBD INT TO US
MOV AX,2509H ;'RESET INT 9H VECTOR TO DS:DX'
INT 21H ;DO IT
MOV AH,09H ;PRINT MESSAGE
MOV DX,OFFSET MSG ;POINT TO MESSAGE
INT 21H ;DO IT
MOV DX,OFFSET INIT ;GET LAST ADDRESS OF RESIDENT CODE
INT 27H ;TERMINATE AND STAY RESIDENT
;
MSG DB 0AH,09H,' NOCOLOR installed.',0DH,0AH,0AH
DB 09H,'Press Alt-Tab to disable color.',0AH,'$'
;
MAIN ENDP
NOCOLOR ENDS
END MAIN
NOCOLOE.COM
Those PC owners using a COLOR/GRAPHICS card with a monochrome monitor
may find this program useful. Many programs assume that if you have
a C/G card, you have a color display, and proceed to produce color-
encoded video output, which makes indecipherable garbarge on a
monochrome screen.
Use this program to switch your Color/Graphics card to B/W mode from
within such a program.
Run NOCOLOR at the DOS prompt. From then on, hitting Alt-Tab will
switch the C/G card to B/W mode.
10 ' SCROLL.BAS - Modified from the listing of DEMO.BAS on page 650 of
20 ' the October 1983 issue of "PC-Magazine"
30 '
40 CLEAR ,16000
50 DEFINT A-Z
60 FOR I = 1 TO 6
70 FOR J = 1 TO 10
80 READ X
90 TOT = TOT + X
100 NEXT
110 READ Y
120 IF TOT = Y THEN TOT = 0 : GOTO 160
130 BEEP
140 PRINT "Error in data statement #";1000 + 10 * (I - 1)
150 STOP
160 NEXT
170 RESTORE
180 DEF SEG = 16000 / 16
190 LOCAT = 0
200 FOR I = 1 TO 6
210 FOR J = 1 TO 10
220 READ X
230 POKE LOCAT,X
240 LOCAT = LOCAT + 1
250 NEXT
260 READ X
270 NEXT
280 BSAVE "SCROLL.BIN",0,60
290 CLS
300 PRINT "Subroutine file SCROLL.BIN created"
310 PRINT
320 PRINT "Hit ENTER for demo."
330 K$ = INKEY$
340 IF K$ < > CHR$(13) THEN 330
350 CLS
360 DEF SEG = 16000 / 16
370 BLOAD "SCROLL.BIN",0
380 FOR I = 1 TO 10
390 FOR J = 1 TO 16:PRINT "DEMO ";
400 NEXT
410 NEXT
420 OFFSET = 0
430 A = 7
440 B = 1
450 C = 0
460 D = 19
470 E = 22
480 F = 59
490 G = 32
500 FOR I = 1 TO 11
510 CALL OFFSET(A,B,C,D,E,F,G)
520 SOUND 32767,18
530 NEXT
540 IF A = 7 THEN A = 6 : GOTO 500
550 SOUND 32767,18
560 B = 0
570 C = 0
580 D = 19
590 E = 4
600 F = 59
610 CALL OFFSET(A,B,C,D,E,F,G)
620 SOUND 32767,18
630 B = 0
640 C = 5
650 D = 19
660 E = 9
670 F = 59
680 CALL OFFSET(A,B,C,D,E,F,G)
690 FOR I = 1 TO 5
700 B = 0
710 C = 5
720 D = 70 - (2 * I)
730 E = 4 + I
740 F = 68 + (2 * I)
750 CALL OFFSET(A,B,C,D,E,F,G)
760 SOUND 32767,18
770 NEXT
780 END
790 '
800 ' Note: Parameter requirements for SCROLL.BIN subroutine.
810 '
820 ' (All must be integer - explicitly or via DEFINT statement.)
830 '
840 ' OFFSET = Offset (from last DEF SEG) to beginning of routine
850 ' (wherever routine was loaded)
860 ' A = "6" = "scroll up"
870 ' = "7" = "scroll down"
880 ' B = number of lines to scroll
890 ' C,D = row and column of upper left corner of "scroll window"
900 ' E,F = " " " " lower right corner of " "
910 ' G = Attribute to be used on "blanked" lines
920 '
930 ' NOTES:
940 ' (1) (C,D) and (E,F) are relative to (0,0)
950 ' (2) None of the parameters are value checked by the subroutine,
960 ' so results of invalid parameters are unpredictable.
970 ' (3) If B=0 then the entire window is "blanked"
980 '
1000 DATA 85,139,236,139,118,18,139,28,138,227,1267
1010 DATA 139,118,16,139,28,138,195,139,118,14,1044
1020 DATA 139,28,138,235,139,118,12,139,28,138,1114
1030 DATA 203,139,118,10,139,28,138,243,139,118,1275
1040 DATA 8,139,28,138,211,139,118,6,139,28,954
1050 DATA 138,251,179,0,205,16,93,202,14,0,1098
1060 END ' of program.
SQUEEZE AND UNSQUEEZ DOCUMENTATION
These two programs compress and decompress files. Compression
(using SQUEEZE) allows files take less storage on disk, to be
transmitted faster, etc. Additionally, compressed files provide
some information security, since they are encoded and are not
intelligible until decompressed (using UNSQUEEZ). These programs
are compatible with the CP/M squeeze and unsqueeze programs
(information on CP/M bulletin boards is often squeezed). In
fact, these versions were obtained in source format from the
Compuserve CP/M SIG (from the C database). The only changes made
were those required to compile on the IBM PC using the C86
compiler.
Credit should be given to Richard Greenlaw who wrote this version
of SQUEEZE and UNSQUEEZ and to those who enhanced it.
SQUEEZE.EXE
Typical compression factors are:
.COM 6% (Don't bother)
.ASM 33% (using full ASCII set)
.HEX 46% (using only uppercase and a few others)
Squeezing a really big file takes a few minutes.
Usage: SQUEEZE filename
The squeezed file name is formed by changing the middle
letter of the file type to Q. If there is no file type,
the squeezed file type is QQQ. If the name exists it is
overwritten!
The transformations compress strings of identical bytes and
then encode each resulting byte value and EOF as bit strings
having lengths in inverse proportion to their frequency of
occurrence in the intermediate input stream. The latter uses
the Huffman algorithm. Decoding information is included in
the squeezed file, so squeezing short files or files with
uniformly distributed byte values will actually increase size.
UNSQUEEZ.EXE
UNSQUEEZ converts the information compressed with SQUEEZE or
compatible compression programs back to their original data.
Usage: UNSQUEEZ filename
Note: The file will be UNSQUEEZED to a file with the original
unsqueezed name. For example if the file CVTHEX.BAS was
squeezed, it would create a file called CVTHEX.BQS. UNSQUEEZ
CVTHEX.BQS will create a file called CVTHEX.BAS
RESTRICTIONS AND LIMITATIONS
1. These versions do not support the DOS 2. hierarchical direct-
ories. Thus the file to be squeezed or unsqueezed must be
in the current directory of the specified disk.
2. If the disk is full, these programs do not detect it. They
terminate normally, with a directory entry that shows the
actual size of the file and a file that has been truncated
to fit on the disk. No damage is done to the disk or
directory. If this happens, delete the truncated file, make
some room on the disk (either by deleting unnecessary infor-
mation or rerunning the program on a disk with sufficient
space.
3. The output file is always placed on the same disk drive as
the input file.
I may fix these later, but for now, I am so happy to be able to
squeeze files for archive so am using the programs as is.
Dan Galorath [72245,1114]
*********************************************************************
** SURFACE87 **
*********************************************************************
This program developed from an article in 80-Micro, May 1983, page
236. The article is written by Delmer D. Hinrichs. I got tired of
running benchmarks on the 8087 in my IBM-PC and remembered this
program, which draws elaborate, drop of water type waveforms on dot
matrix printers, such as the EPSON MX series. Elaborate yes, but even
in compiled BASIC a moderately complex picture can take an hour or two
while the program computes hundreds of thousands of sine functions.
SURFACE87 is written entirely in 8088/87 assembler, taking advan-
tage of the number crunching power of the 8087. If you don't have an
8087 installed in your PC or compatible computer, this program will
not produce anything worthwhile. If you do, some very intriguing
waveforms can be cranked out on your printer in an average of
fifteen minutes.
You are invited to experiment with values outside those suggested
by the program. A negative height multiplier, for instance, will make
a negative peak. Different size waves make the peaks fatter or skinnier.
A good set of values to start out with are 1 peak, circular wave forms,
left margin 300, X position 250, Y position 250, wave lengths 71,
height multiplier 530. This creates the classic three dimensional
drop of water in the pond image you have probably seen a hundred times
in magazines--in less than ten minutes.
Output is intended for printer, but can optionally be sent to the
screen or disk. The screen image is compressed by a factor of four in
order to represent the 720,000 possible dots. A disk file can be speci-
fied but make sure you have 91,200 bytes free on the disk. SURFACE87
can also print the files it writes. A good way to experiment, once
you have a feel for the screen verses printer images, is to send the
picture to the screen and electric disk. This saves a lot of paper
and if you create a really wonderful design you can save it to real
disk and print it out anytime at maximum speed.
This file is one of three or four. SURF87.EXE is the main
program. SURF87.HEX must be run through a hex-converter program to
produce SURF87.EXE. SURFPR.BAS is a PC-BASIC program to install
alternate printers on SURF87. The program comes ready to go for all
EPSON GRAFTRAX printers, including the IBM Graphics Printer. If your
printer has a bit-plot mode, it can most likely be installed.
Technical details:
For IBM compatibles--if your computer understands the IBM video
BIOS routines in Interrupt 10H, the printer call Interrupt 17H and
standard MS-DOS function calls (version 1.10 and later) you should
have no problems with this program.
For IBM-PC--in order to allow as many people as possible to use
the program the disk files only use the DOS 1.10 function calls, so
sorry about no PATH names.
SURFACE87 disk files are standard random files with a block size
of 960. In BASIC, a program to print these files can be written by
going to BASIC with the /S:960 option, and then doing an
OPEN "filename" AS #1 LEN=960.
Printers other than the EPSON sometimes have more and less than 960
dot widths, and this is one way to get at the actual data produced.
Alternatively, SURFPR has sixteen bytes of space for each printer
set-up sequence, and can be used to move the image around the page.
There is error detection built in to cope with out of disk space
or printer problems. If you have specified output to disk and printer,
for instance, and run out of space on the disk file, the program will
close the disk file and continue sending to the printer. If the
printer then runs out of paper, the program will find that it doesn't
have anything to do and will return to 'Program possibilities'. So if
you are printing a picture and it looks crummy, just turn off the
printer for a second and you will be back at the main menu.
Program translation and modifications by:
Marty Smith SOURCE ST2259 / COMPUSERVE 72155,1214
310 Cinnamon Oak Lane (713) 464-6737 [Home]
Houston, TX 77079 (713) 661-1241 [Office]
11/7/83
10 DEFINT A-Z
20 I=0:J=0:BOX=0:X=0:Y=0:Z=0:REC=0:A$="":X$="":FS$="SURF87.EXE"
30 TRUE=-1:FALSE=0:B1=0:B2=0:B3=0:B4=0:ROW=0:COL=0:SURF$=SPACE$(32)+"SURFACE87"
40 DIM WORD(64),BYTE(128),FILE$(64),PCODE(20),PCODE$(32)
50 DEF SEG : POKE 106,0 : KEY OFF : KEY 10,""
60 FOR I=1 TO 32 : READ PCODE$(I) : NEXT
70 DATA soh,stx,etx,eot,enq,ack,bel,bs,ht,lf,vt,ff,cr,so,si,dle
80 DATA dc1,dc2,dc3,dc4,nak,syn,etb,can,em,sub,esc,fs,gs,rs,us,sp
90 GOTO 1000
100 ' open
110 ON ERROR GOTO 200
120 OPEN FS$ FOR INPUT AS #1
130 CLOSE #1
140 OPEN FS$ AS #1 LEN=128
150 FOR I=0 TO 63:FIELD #1,I*2 AS DUMMY$,2 AS FILE$(I) : NEXT
160 ON ERROR GOTO 0
170 RETURN
200 ' file error stuff
210 CLOSE
220 IF ERR=71 THEN PRINT "Disk not ready. Please try again." : RESUME
230 IF ERR=70 THEN PRINT "Disk is write protected. Please remove tab to write mods to disk." : RESUME
240 IF ERR=53 THEN PRINT "I can't find "+FS$+"." : GOSUB 250 : RESUME
245 GOTO 260
250 LINE INPUT "Please re-enter filename -->";FS$ : RETURN
260 IF ERR=75 OR ERR=76 THEN PRINT FS$+" has a PATH problem." : GOSUB 250 : RESUME
270 IF ERR=72 OR ERR=57 THEN PRINT "Sorry, can't seem to work with this disk" : ON ERROR GOTO 0 : END
280 ON ERROR GOTO 0
290 GOTO 500
300 'get record
310 ON ERROR GOTO 200
320 GET #1,REC
330 FOR I=0 TO 63 : WORD(I)=CVI(FILE$(I)) : NEXT
340 ON ERROR GOTO 0
350 RETURN
400 ' box b1,b2-b3,b4 --> top.row,top.col-bot.row,bot.col
405 ROW=CSRLIN:COL=POS(0)
410 LOCATE B1,B2,0 : PRINT CHR$(201); : PRINT STRING$(B4-B2-1,205);CHR$(187);
420 FOR BOX=B1+1 TO B3-1 : LOCATE BOX,B2 : PRINT CHR$(186);:LOCATE BOX,B4:PRINT CHR$(186); :NEXT
430 LOCATE B3,B2 : PRINT CHR$(200); : PRINT STRING$(B4-B2-1,205);CHR$(188);
440 LOCATE ROW,COL
450 RETURN
500 ' end
510 KEY 10,"SCREEN 0,0,0"+CHR$(13)
520 KEY ON
530 END
600 ' enter printer codes from keyboard.
610 LOCATE ,,1 : X=0 : ROW=CSRLIN : COL=POS(0)
620 I$="" : WHILE I$="" : I$=INKEY$ : WEND
630 IF I$=CHR$(0)+CHR$(68) THEN 700 ' finished
640 IF I$<>CHR$(0)+CHR$(83) THEN 650
645 X=X-1 : IF X<1 THEN X=0 : BEEP : LOCATE ROW,COL,1 : PRINT SPACE$(20); : LOCATE ROW,COL,1 : GOTO 620 ELSE 660
650 PCODE(X)=ASC(I$) : X=X+1 : IF X>15 THEN PRINT : PRINT "Only 16 allowed." : GOTO 700
660 LOCATE ROW,COL,1 : PRINT SPACE$(X*3+10); : LOCATE ROW,COL,1
670 FOR I=0 TO X-1 : IF PCODE(I)<33 THEN PRINT PCODE$(PCODE(I));" "; ELSE PRINT CHR$(PCODE(I));" ";
680 NEXT
690 GOTO 620
700 PRINT : PRINT "Is this correct (y/n)?"
710 I$=INKEY$ : IF I$="n" OR I$="N" THEN LOCATE ROW,COL : PRINT SPACE$(X*3+10);
720 IF I$="n" OR I$="N" THEN LOCATE ROW+1,COL : PRINT SPACE$(24); : LOCATE ROW,COL : GOTO 610
730 IF I$<>"y" AND I$<>"Y" THEN 710
740 RETURN
800 ' write a record
810 ON ERROR GOTO 200
820 FOR I=0 TO 63 : LSET FILE$(I)=MKI$(WORD(I)) : NEXT
830 PUT #1,REC
840 ON ERROR GOTO 0
850 RETURN
900 ' print codes in hex -- x=bytes,z=word(z)
910 A$=HEX$(WORD(Z)) : IF LEN(A$)=3 THEN B$="0"+LEFT$(A$,1) ELSE B$=LEFT$(A$,2)
920 PRINT B$+CHR$(32);
930 Y=X\2
940 FOR I=1 TO Y
950 A$=HEX$(WORD(I+Z))
960 IF LEN(A$)=1 THEN A$="000"+A$ ELSE IF LEN(A$)=2 THEN A$="00"+A$ ELSE IF LEN(A$)=3 THEN A$="0"+A$
970 PRINT RIGHT$(A$,2)+CHR$(32); : PRINT LEFT$(A$,2)+CHR$(32);
980 NEXT
990 Y=X MOD 2
995 IF Y=0 THEN ROW=CSRLIN : COL=POS(0) : LOCATE ROW,COL-3 : PRINT SPACE$(3);
996 PRINT
997 RETURN
1000 ' main
1010 CLS
1020 PRINT SURF$
1030 PRINT
1040 PRINT " Printer installation program"
1050 PRINT
1060 PRINT " (c) 1983 Martin R. Smith, Jr."
1070 PRINT
1080 PRINT " Press <enter> to continue.";
1090 LOCATE ,,1
1100 I$=INKEY$ : IF I$="" THEN 1100
1110 PRINT : PRINT : PRINT
1120 PRINT "Surface87 should work with most dot-matrix printers that have a bit-plot"
1130 PRINT "mode. It is set up to send 960 bytes to the EPSON(tm) series of printers"
1140 PRINT "with GRAFTRAX(tm) firmware."
1150 PRINT
1160 PRINT "In order to make it work with other printers, I need to know:"
1180 PRINT
1190 PRINT " (1) The filename you have given SURF87."
1200 PRINT " (2) The way your printer treats bit-plot bytes."
1210 PRINT " (3) How to set the printer line-spacing to 8/72 inch."
1220 PRINT " (4) How to make the printer treat the next 960 bytes as bit-plots."
1225 PRINT " (5) How to return the line-spacing to normal."
1230 PRINT :PRINT "In order to begin, get your printer manual out and hit <enter>,"
1240 PRINT "or hit <x> to quit.";
1250 I$=INKEY$ : IF I$=CHR$(13) THEN 1300 ELSE IF I$="x" OR I$="X" THEN 500 ELSE 1250
1300 ' enter data
1310 CLS
1320 PRINT SURF$
1330 PRINT
1340 PRINT "Please enter the name you have given SURFACE87"
1350 LINE INPUT "<enter> alone will assume SURF87.EXE. -->";A$
1360 IF A$="" THEN 1380
1370 FS$=A$
1380 GOSUB 100
1400 REC=1 : GOSUB 300
1410 IF WORD(0)=&H5A4D THEN 1500
1420 PRINT "This is not an .EXE type file."
1430 PRINT "Please make sure you have HEX-CONVERTED your download and try again."
1440 GOTO 500
1500 REC=5 : GOSUB 300
1510 IF WORD(7)=&HFB4 AND WORD(56)=&H303C THEN 1600
1520 PRINT "I don't think this is SURFACE87."
1530 PRINT "This program modifies an existing file, and might cause problems"
1540 PRINT "with "+FS$+", so please check that you have specified the right"
1550 PRINT "file and try again."
1560 GOTO 500
1600 CLS
1610 PRINT SURF$ : PRINT SPACE$(32)+FS$ : PRINT
1620 PRINT "Dot matrix printers in bit-plot mode represent dots in two ways:"
1630 PRINT
1640 PRINT " METHOD 1 PRINT HEAD WIRES METHOD 2"
1650 PRINT " TOP"
1660 PRINT " 80h 128 o 01h 1"
1670 PRINT " 40h 64 o 02h 2"
1680 PRINT " 20h 32 o 04h 4"
1690 PRINT " 10h 16 o 08h 8"
1700 PRINT " 08h 8 o 10h 16"
1710 PRINT " 04h 4 o 20h 32"
1720 PRINT " 02h 2 o 40h 64"
1730 PRINT " 01h 1 o 80h 128"
1740 PRINT " BOTTOM"
1750 B1= 5:B2=45:B3= 7:B4=57:GOSUB 400
1760 B1= 5:B2= 5:B3= 7:B4=17:GOSUB 400
1770 B1= 5:B2= 5:B3=16:B4=17:GOSUB 400
1780 B1= 5:B2=45:B3=16:B4=57:GOSUB 400
1800 PRINT "Please enter the number of the method your printer uses. (1 or 2) ";
1810 LOCATE ,,1
1820 I$=INKEY$ : IF I$<>"1" AND I$<>"2" AND I$<>CHR$(27) THEN 1820
1830 IF I$=CHR$(27) THEN 500
1840 IF I$="1" THEN DOTHEAD=TRUE : DH$="TOP DOT = 128" ELSE DOTHEAD=FALSE : DH$="TOP DOT = 1"
1850 REC=61 : GOSUB 300
1860 IF DOTHEAD THEN WORD(0)=&H201:WORD(1)=&H804:WORD(2)=&H2010:WORD(3)=&H8040: GOTO 1900
1870 WORD(0)=&H4080:WORD(1)=&H1020:WORD(2)=&H408:WORD(3)=&H102
1900 CLS : PRINT SURF$ : PRINT SPACE$(32)+FS$ : PRINT SPACE$(32)+DH$ : PRINT
1910 PRINT "The next three items involve sending codes to the printer."
1920 PRINT
1930 PRINT "In order to make this as easy as possible, your keyboard will"
1940 PRINT "become a code generator. Each key will be treated literally."
1950 PRINT
1970 PRINT "For example, say you need to send and ESCape to the printer."
1980 PRINT "Just hit the ESCape key, and I'll know what you mean."
1990 PRINT "If you need to send a number, hold down the ALT key, type"
2000 PRINT "the number on the numeric keypad, and then release the ALT key."
2010 PRINT "To send the letter 'A' or the letter '8', just type it in."
2020 PRINT
2030 PRINT "If you make a mistake, use the DEL key on the numeric keypad as a backspace."
2040 PRINT "When you are done, press the F10 - Function Key 10."
2050 PRINT
2060 PRINT "A table of ASCII codes for below 33 will be at the top of the"
2070 PRINT "screen to help."
2080 PRINT : PRINT " Press <enter> when you are ready to begin."
2090 I$=INKEY$ : IF I$="" THEN 2090
2100 CLS : PRINT
2110 PRINT " 1 = soh 2 = stx 3 = etx 4 = eot 5 = enq 6 = ack 7 = bel "
2120 PRINT " 8 = bs 9 = ht 10 = lf 11 = vt 12 = ff 13 = cr 14 = so "
2130 PRINT " 15 = si 16 = dle 17 = dc1 18 = dc2 19 = dc3 20 = dc4 21 = nak "
2140 PRINT " 22 = syn 23 = etb 24 = can 25 = em 26 = sub 27 = esc 28 = fs "
2150 PRINT " 29 = gs 30 = rs 31 = us 32 = sp"
2160 B1=1:B2=1:B3=7:B4=78 : GOSUB 400
2170 PRINT
2180 PRINT "Enter your codes, using the DEL key as a backspace, the F10 key when done." : PRINT
2190 PRINT "First, I need the codes to set your printer to 8/72 inch."
2200 PRINT "Any other initial set-up code should go here."
2210 GOSUB 600
2220 IF X = 0 THEN 2310
2230 A$=HEX$(X) : IF LEN(A$)=1 THEN A$="0"+A$
2240 B$=HEX$(PCODE(0)) : CODE$="&H"+B$+A$
2250 WORD(8)=VAL(CODE$)
2260 FOR I=1 TO X STEP 2
2270 A$=HEX$(PCODE(I)) : IF LEN(A$)=1 THEN A$="0"+A$
2280 B$=HEX$(PCODE(I+1)) : CODE$="&h"+B$+A$
2290 WORD((I+1)\2+8)=VAL(CODE$)
2300 NEXT
2310 PRINT
2320 PRINT "Second, I need codes to print the next 960 bytes as bit plots."
2330 GOSUB 600
2340 IF X = 0 THEN 2430
2350 A$=HEX$(X) : IF LEN(A$)=1 THEN A$="0"+A$
2360 B$=HEX$(PCODE(0)) : CODE$="&H"+B$+A$
2370 WORD(24)=VAL(CODE$)
2380 FOR I=1 TO X STEP 2
2390 A$=HEX$(PCODE(I)) : IF LEN(A$)=1 THEN A$="0"+A$
2400 B$=HEX$(PCODE(I+1)) : CODE$="&h"+B$+A$
2410 WORD((I+1)\2+24)=VAL(CODE$)
2420 NEXT
2430 PRINT
2440 PRINT "Last, I need printer codes to reset things back to normal."
2445 PRINT "Then send two line feeds (chr$(10) or ^J) to advance paper to top of form."
2450 GOSUB 600
2460 IF X = 0 THEN 2550
2470 A$=HEX$(X) : IF LEN(A$)=1 THEN A$="0"+A$
2480 B$=HEX$(PCODE(0)) : CODE$="&H"+B$+A$
2490 WORD(16)=VAL(CODE$)
2500 FOR I=1 TO X STEP 2
2510 A$=HEX$(PCODE(I)) : IF LEN(A$)=1 THEN A$="0"+A$
2520 B$=HEX$(PCODE(I+1)) : CODE$="&h"+B$+A$
2530 WORD((I+1)\2+16)=VAL(CODE$)
2540 NEXT
2550 PRINT
2600 CLS
2610 PRINT SURF$
2620 PRINT : PRINT FS$
2630 PRINT : PRINT DH$
2640 PRINT : PRINT "Codes to set line space to 8/72 inch (in hex):"
2650 X=WORD(8) AND 255 : Z=8
2660 GOSUB 900
2670 PRINT : PRINT "Codes to set up 960 bit-plot bytes:"
2680 X=WORD(24) AND 255 : Z=24
2685 GOSUB 900
2690 PRINT : PRINT "Codes to reset printer:"
2700 X=WORD(16) AND 255 : Z=16
2710 GOSUB 900
2720 PRINT : PRINT "Does everything look correct (y/n)?"
2730 LOCATE ,,1
2740 I$=INKEY$ : IF I$="n" OR I$="N" THEN 1600
2750 IF I$<>"y" AND I$<>"Y" THEN 2740
2760 GOSUB 800
2770 CLOSE #1
2780 PRINT : PRINT FS$+" has been installed with new printer codes!"
2790 GOTO 500
Volume in drive A has no label
Directory of A:\
123KEY BAT 31 12-11-83 4:09p
123KEY DOC 4166 12-11-83 4:09p
123KEY PRO 602 12-11-83 4:10p
CRC TXT 1499 11-09-84 2:37p
CRCK4 COM 1536 10-21-82 7:54p
DHDEMO BAS 1859 12-11-83 4:01p
DSKHND BAS 1220 12-11-83 4:02p
FREE DOC 25694 12-11-83 3:23p
NOCOLOR ASM 3370 12-11-83 4:15p
NOCOLOR COM 256 12-11-83 4:17p
NOCOLOR DOC 506 12-11-83 4:16p
PINUP1 PIC 6464 12-11-83 4:38p
PINUP2 PIC 10489 12-11-83 4:39p
PINUP3 PIC 7171 12-11-83 4:42p
PINUP4 PIC 8285 12-11-83 4:40p
SCROLL BAS 2464 1-07-84 7:30p
SQUEEZE EXE 18432 12-11-83 3:43p
SQUSQ DOC 3162 12-13-83 8:27p
SURF87 DOC 4358 12-13-83 8:31p
SURF87 EXE 8576 12-11-83 2:50p
SURFPR BAS 10615 12-11-83 3:25p
UNSQUEEZ EXE 15744 12-11-83 3:49p
22 file(s) 136499 bytes
18432 bytes free