Info-IBMPC@WSMR-SIMTEL20.ARMY.MIL ("Info-IBMPC Digest") (01/05/91)
Info-IBMPC Digest Sat, 5 Jan 91 Volume 91 : Issue 5
Today's Editor:
Gregory Hicks - Rota Spain <GHICKS@WSMR-Simtel20.Army.Mil>
Today's Topics:
FIELDing Variables with BASICA (V90 #209)
Disk boot failure
IBM Keybord Code for Shift Key (and more)
Parts for a HP-7225-A Plotter (V90 #202)
Problems with a 3 1/2" HD floppy drive (V90 #211)
RE: New HD for IBM PS/2 (V90 #216)
Re: making calendars (V91 #2) (2 msgs)
MACSYMA for the PC/PS (V90 #192)
Problems Downloading Files
RECOVER from DOS RECOVER
Today's Queries:
Gateway Internet/GEnie Available?
elvis - built for MSDOS ? ( + GNU emacs query)
New Uploads:
FRACTINT V15.1 Uploaded
Send Replies or notes for publication to:
<INFO-IBMPC@WSMR-SIMTEL20.ARMY.MIL>
Send requests of an administrative nature (addition to, deletion from
the distribution list, et al) to:
<INFO-IBMPC-REQUEST@WSMR-SIMTEL20.ARMY.MIL>
Archives of past issues of the Info-IBMPC Digest are available by FTP
only from WSMR-SIMTEL20.ARMY.MIL in directory PD2:<ARCHIVES.IBMPC>.
----------------------------------------------------------------------
Date: Wed, 02 Jan 91 16:56:36 EST
From: JGROVER@maine.maine.edu (John Grover)
Subject: FIELDing Variables with BASICA (V90 #209)
I sent this solution to the basica question concerning FIELDing
variables directly to the user, but perhaps it's also of interest to
others....
To have large numbers of fielded variables, that is too many to fit on
one line do this: for each line after the first, the first field in the
statement is as long as the sum of all others preceding, and has a name
which is never, make that NEVER used for anything else... a short
example:
REM OPEN YOUR FILE AS #1
FIELD 1, 2 AS WINKIN$, 4 AS BLINKIN$ 20 AS NOD$
FIELD 1, 26 AS SLEEPY$, 8 AS GRUMPY$, 2 AS DOPEY$
REM BLAH BLAH BLAH
In this example, SLEEPY$ is a dummy field variable which essentially
holds the place of all other fields before it.
John Grover
Computing Center
University of Maine
------------------------------
Date: Tue, 02 Jan 90 18:14:02 MET
From: Maciek <PYKA%PLWRTU11@SEARN.SUNET.SE>
Subject: Disk boot failure
In my opinion you have something wrong with a boot sector on your
drive. Is it also possible that you don't have an active partition
that will boot your computer.
To make sure your partition is still active, run FDISK program from
your DOS diskette and select option 'Display partition info'. You
should see a letter 'A' in the partition status field. If not, select
option 'Select active partition' from menu. This is non destructive for
your disk!
If it fails reboot your machine form diskette and type SYS C:. This
transfers the system from the diskette to the hard disk and writes the
proper boot sector to the disk.
I hope that this helps to resolve your problems.
Good luck
Maciek.
------------------------------
Date: Tue, 02 Jan 90 18:34:24 MET
From: Maciek <PYKA%PLWRTU11@SEARN.SUNET.SE>
Subject: IBM Keybord Code for Shift Key (and more)
You can find answer in two bytes at adress 0:0417 and 0:0418. First of
them contains following informations:
Bit Meaning
0: right shift key depressed
1: left shift ket depressed
2: Ctrl-sift keys depressed
3: Alt-shift keys depressed
4: ScrollLock state (1 - active)
5: NumLock state (1 - active)
6: CapsLock state (1 - active)
7: Insert state (1 - active)
1 ==> key is depressed.
Second one contains the following:
Bit Meaning
0: Ctrl-shift (left Ctrl key) depressed
1: Alt-shift (left Alt key) depressed
2: SysReq depressed (Pause] is active)
4: ScrollLock key depressed
5: NumLock key depressed
6: CapsLock key depressed
7: Insert key depressed
Bits 0-2 of 0:0418 are defined only for the 101-key enhanced keyboard.
All information from TECH Help! 3.2a
Maciek
------------------------------
Date: Wed, 2 Jan 1991 11:24:59 PST
From: George_C._Burkitt.El_Segundo@xerox.com
Subject: Parts for a HP-7225-A Plotter (V90 #202)
If all else fails, try H-P at Hewlett-Packard S.A.
Van Der Hooplaan 241
P.O. Box 999
1185 LN AMSTELVEEN
The Netherlands
Tel: 31/20547-9999
Fax: 31/20)43 1120
Telex: 18919 hpner nl
They should have a service dept with helpful techs.
------------------------------
Date: Wed, 2 Jan 1991 17:36:22 PST
From: George_C._Burkitt.El_Segundo@xerox.com
Subject: Problems with a 3 1/2" HD floppy drive (V90 #211)
From: TIMBUCK@VTVM1.CC.VT.EDU
A couple of possibilities ...
1) the drive is defective;
2) the controller is defective;
3) the software driver is defective;
4) you may be using the LD media when HD is required, etc. For most
drives, the media differences are small enough not to be an issue.
5) the drive is not a HD drive. (Toshiba made both types);
6) you may need to alter the command line parameters to select the
proper mode.
7) the CMOS battery is dying.
8) the computer BIOS may be obsolete.
9) Some drives require a different input to identify HD applications.
Pins 1,2,3,4,5 and 6 are not really standardized between the various
suppliers..
------------------------------
Date: Wed, 02 Jan 91 15:42:24 CST
From: Bill Hayes <IANR012%UNLVM.BITNET@CUNYVM.CUNY.EDU>
Subject: RE: New HD for IBM PS/2 (V90 #216)
I've upgraded an IBM Model 50 for a professor here by adding a SCSI
card and an 80 MByte Hard Disk. Due to the hardware mountings, etc.,
you can not mount a 5-1/4" drive inside a PS/2. The upgrade cost
around $500, if memory serves me correct.
Bill Hayes
Programmer/Analyst
------------------------------
Date: Wed, 2 Jan 91 14:06:54 EST
From: "Stott, Paul" <FCTY7241%RYERSON.bitnet@ugw.utcs.utoronto.ca>
Subject: Re: making calendars (V91 #2)
The following Turbo C program illustrates an algorithm to determine the
day of the week for any date. The result is an integer ranging from 0
(Monday) to 6 (Sunday).
#include <stdio.h>
long jdn(long year, long month, long day)
{long x;
x = year*367 + month*275/9 - (year+(month>2))*7/4
- ((year-(month<3))/100+1)*3/4 + day + 1721029;
return x;
}
void main()
{ long dayno, day, month, year;
int x;
printf("Enter date - YYYY MM DD\n");
x = scanf("%li %li %li", &year,&month,&day);
dayno = jdn(year,month,day);
printf("%i\n",dayno%7);
}
------------------------------
Date: Wed, 2 Jan 91 12:26:38 CST
From: david@wubios.wustl.edu (David J. Camp)
Subject: Re: making calendars
In Reply to this Note From: Chuck R. <346b36g@cmuvm.bitnet>
>Does anybody have a formula to tell me which day of the week a month of
>any given year starts on? I'm making a calendar program. Thanks for
>your help.
Why make a calendar program, when the whole things will fit on one
page? I am including my perpetual calendar below, which includes a
formula for determining the day-of-week of March 1. -David-
.\"
.\" This is calendar.7, a manual page to display a perpetual calendar.
.\" Copyright (C) 1991 David J. Camp
.\"
.\" This program is free software; you can redistribute it and/or modify
.\" it under the terms of the GNU General Public License as published by
.\" the Free Software Foundation; either version 1, or (at your option)
.\" any later version.
.\"
.\" This program is distributed in the hope that it will be useful,
.\" but WITHOUT ANY WARRANTY; without even the implied warranty of
.\" MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
.\" GNU General Public License for more details.
.\"
.\" You should have received a copy of the GNU General Public License
.\" along with this program; if not, write to the Free Software
.\" Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
.\"
.\" david@wubios.wustl.edu ^ Mr. David J. Camp
.\" david%wubios@wugate.wustl.edu < * > +1 314 382 0584
.\" ...!uunet!wugate!wubios!david v "God loves material things."
.nf
THE LAST PERPETUAL CALENDAR by David J. Camp
OFFSET = (YEAR + (YEAR / 4) - (YEAR / 100) + (YEAR / 400)) MODULO 7
echo 0 k $YEAR sy ly ly 4 / ly 100 / - ly 400 / + + 7 % p | dc
OFFSET= Mar Apr May Jun Jul Aug Sep Oct Nov Dec Jan Feb
0123456
------- --- --- --- --- --- --- --- --- --- --- --- ---
WTFSSMT 1 1
TFSSMTW 2 1 2 1
FSSMTWT 3 2 1 3 1 2
SSMTWTF 4 1 3 1 2 4 2 3
SMTWTFS 5 2 4 2 3 1 5 3 4
MTWTFSS 6 3 1 5 3 4 2 6 4 1 5
TWTFSSM 7 4 2 6 4 1 5 3 7 5 2 6
------- --- --- --- --- --- --- --- --- --- --- --- ---
WTFSSMT 8 5 3 7 5 2 6 4 8 6 3 7
TFSSMTW 9 6 4 8 6 3 7 5 9 7 4 8
FSSMTWT 10 7 5 9 7 4 8 6 10 8 5 9
SSMTWTF 11 8 6 10 8 5 9 7 11 9 6 10
SMTWTFS 12 9 7 11 9 6 10 8 12 10 7 11
MTWTFSS 13 10 8 12 10 7 11 9 13 11 8 12
TWTFSSM 14 11 9 13 11 8 12 10 14 12 9 13
------- --- --- --- --- --- --- --- --- --- --- --- ---
WTFSSMT 15 12 10 14 12 9 13 11 15 13 10 14
TFSSMTW 16 13 11 15 13 10 14 12 16 14 11 15
FSSMTWT 17 14 12 16 14 11 15 13 17 15 12 16
SSMTWTF 18 15 13 17 15 12 16 14 18 16 13 17
SMTWTFS 19 16 14 18 16 13 17 15 19 17 14 18
MTWTFSS 20 17 15 19 17 14 18 16 20 18 15 19
TWTFSSM 21 18 16 20 18 15 19 17 21 19 16 20
------- --- --- --- --- --- --- --- --- --- --- --- ---
WTFSSMT 22 19 17 21 19 16 20 18 22 20 17 21
TFSSMTW 23 20 18 22 20 17 21 19 23 21 18 22
FSSMTWT 24 21 19 23 21 18 22 20 24 22 19 23
SSMTWTF 25 22 20 24 22 19 23 21 25 23 20 24
SMTWTFS 26 23 21 25 23 20 24 22 26 24 21 25
MTWTFSS 27 24 22 26 24 21 25 23 27 25 22 26
TWTFSSM 28 25 23 27 25 22 26 24 28 26 23 27
------- --- --- --- --- --- --- --- --- --- --- --- ---
WTFSSMT 29 26 24 28 26 23 27 25 29 27 24 28
TFSSMTW 30 27 25 29 27 24 28 26 30 28 25 (29)
FSSMTWT 31 28 26 30 28 25 29 27 29 26
SSMTWTF 29 27 29 26 30 28 30 27
SMTWTFS 30 28 30 27 29 31 28
MTWTFSS 29 31 28 30 29
TWTFSSM 30 29 31 30
------- --- --- --- --- --- --- --- --- --- --- --- ---
WTFSSMT 31 30 31
TFSSMTW 31
------------------------------
Date: Wed, 2 Jan 91 16:46:24 PST
From: GPT%CCV.ESNET@CCC.NERSC.GOV
Subject: MACSYMA for the PC/PS (V90 #192)
NIZARD%FRBDX11.BITNET@CUNYVM.CUNY.EDU asks
> Does anybody out there know about an implementation of REDUCE or
> MACSYMA (formal calculus) systems on PC/PS?
The Oct. 1990 issue of PHYSICS TODAY has an advertisement by SYMBOLICS,
inc., for MACSYMA. Their address is
SYMBOLICS, Inc.
MACSYMA Division
8 New England Executive Park East
Burlington MA 01803
USA
Phone 1-800-MACSYMA (that's 1-800-622-7962)
(in Massachusetts, 617-221-1250)
This particular ad did not mention specific computers, but an earlier
ad claimed that it would run on "100% ibm compatible" 386 machines.
Regards,
Greg Tomaschke.
Tomaschke@nersc.gov
GPT@ccv.nersc.gov
GPT%CCV.ESNET@CCC.NERSC.GOV
Disclaimer: I have no connection whatsoever with Symbolics, Inc. I am
a satisfied user of Paradigm's DOE-Macsyma.
------------------------------
Date: Tue, 02 Jan 90 18:08:26 MET
From: Maciek <PYKA%PLWRTU11@SEARN.SUNET.SE>
Subject: Problems Downloading Files
You probably have problems with your mail because it is going through
non ASCII computers. The solution is to tell the fileserver to
uuencode the file before sending it. Programs for UUENCODE/UUDECODE
are aviable by SIMTEL (I don't remember directory).
Good luck!
Maciek
------------------------------
Date: Tue, 02 Jan 90 18:24:53 MET
From: Maciek <PYKA%PLWRTU11@SEARN.SUNET.SE>
Subject: RECOVER from DOS RECOVER
1. RECOVER tries to convert any found, redable sector on the hard disc
to the file. Sorry - sector or portion of sectors that seems to be a
file. 512 files is DOS limitation storage of Root directory.
2. The only way to undo the RECOVER command is a program like the Peter
Norton program NDD (Norton Disc Doctor). This programm has the option
to Recover from a DOS Recover, and undo operation. The best way to you
for future is to delete recover from your hard disc. However, I don't
think that this is normally a useful command.
Good luck
Maciek
------------------------------
Date: Wed, 2 Jan 91 14:47:19 EST
From: Trevor Cradduck <trevorc@uwovax.uwo.ca>
Subject: Gateway Internet/GEnie
Does anyone know of a gateway to/from Internet and GEnie?
Trevor Cradduck <TREVORC@UWOVAX.UWO.CA>
University of Western Ontario, London, Canada
------------------------------
Date: Wed, 2 Jan 91 13:21:11 GMT
From: Derek Jones <derek@aivru.sheffield.ac.uk>
Subject: elvis - built for MSDOS ? ( + GNU emacs query)
Hello all,
1.) Has anyone ported 'elvis' to MS-DOS? Can you point me in the
right direction? IS a bug fix file also available?
2.) Is a port of *GNU* emacs to MSDOS, in particular elisp? I like
FREEMACS, but would prefer not to have to write in elisp *and* MINT.
Possibly a elisp -> MINT translator (or vice versa)?
Thanks in advance
Derek Jones.
System Manager.
A.I. Vision Research Unit,
Sheffield University,
Western Bank,
Sheffield.
S10 2TN
U.K.
Tel: (0742) 768555 X 6551
email: derek@aivru.sheffield.ac.uk
[Don't think this is what you're looking for, but the following EMACS
related files are available from WSMR-SIMTEL20.army.mil by anonymous
FTP...
PD1:<MSDOS.FREEMACS>
(Since you already have FREEMACS, I'll not include these files...)
PD1:<MSDOS.MEMACS>
UE310110.ARC MicroEMACS 3.10 EXE - HP 110 MSDOS portable"
UE310150.ARC MicroEMACS 3.10 EXE - HP 150 MSDOS"
UE310ANS.ARC MicroEMACS 3.10 EXE - MSDOS w/ANSI graphics"
UE310C.ARC MicroEMACS 3.10 C source code"
UE310CMD.ARC MicroEMACS 3.10 Command and startup files"
UE310DG.ARC MicroEMACS 3.10 EXE - Data General 10 PC"
UE310DOC.ARC MicroEMACS 3.10 Documentation"
UE310H.ARC MicroEMACS 3.10 Header and assembly files"
UE310IBM.ARC MicroEMACS 3.10 EXE - IBMPC MONO/CGA/EGA/VGA"
UE310MAK.ARC MicroEMACS 3.10 Makefiles and linkfiles"
UE310TI.ARC MicroEMACS 3.10 EXE - Texas Inst. Professional"
UE310Z3.ARC MicroEMACS 3.10 EXE - Zenith 100 PC series"]
------------------------------
Date: Wed, 2 Jan 91 12:21:14 EST
From: twegner@mwunix.mitre.org (Timothy Wegner)
Subject: FRACTINT V15.1 Uploaded
Thanks to excellent response from the Internet community, we located
and fixed bugs in Fractint version 15. Fractint version 15.1 has been
uploaded to SIMTEL20:
pd1:<msdos.graphics>
FRAIN151.ZIP FRACTINTv15.1 multi-featured fractal generator
FRASR151.ZIP C & ASM source for FRACTINT 15.1 fractal gen.
Fractint is a freeware fractal generating program for the PC. This
version sports a completely new user interface and has greatly reduced
memory requirements due to the use of overlays. New features include
Lsystems and a palette editor.
The source code can be compiled using either the Microsoft or Borland C
and Assembler products. Version 15.1 contains bug fixes for version
15.0. SIMTEL20 has deleted the older files fraint15.zip and
frasrc15.zip.
Timothy Wegner
twegner@mwunix.mitre.org
------------------------------
End of Info-IBMPC Digest V91 #5
*******************************
-------