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 ******************************* -------