Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Path: utzoo!mnetor!uunet!seismo!ut-sally!husc6!cmcl2!rutgers!labrea!aurora!ames!sdcsvax!ucbvax!WALKER-EMH.ARPA!InfoMail-Mailer From: InfoMail-Mailer@WALKER-EMH.ARPA Newsgroups: comp.sys.atari.8bit Subject: Undeliverable Mail Message-ID: <8708011857.AA04172@ucbvax.Berkeley.EDU> Date: Thu, 30-Jul-87 18:28:00 EDT Article-I.D.: ucbvax.8708011857.AA04172 Posted: Thu Jul 30 18:28:00 1987 Date-Received: Sun, 2-Aug-87 09:57:37 EDT Sender: daemon@ucbvax.BERKELEY.EDU Distribution: world Organization: The ARPA Internet Lines: 337 Mail was not delivered to the following users because there were bad address(es) in TO and/or CC field(s): info-atari UNDELIVERED-MESSAGE: ---------------------------------------------------------------- Received: from score.stanford.edu by BBN.COM id aa26500; 30 Jul 87 18:00 EDT Date: Thu 30 Jul 87 12:28:35 PDT Subject: Info-Atari8 Digest V87 #63 From: Info-Atari8 @ SCORE.STANFORD.EDU Errors-to: Info-Atari8-request@Score.Stanford.EDU Maint-Path: Info-Atari8-request@Score.Stanford.EDU To: Info-Atari8 Distribution List: Reply-to: Info-Atari8@SCORE.STANFORD.EDU Text: Info-Atari8 Digest Thursday, July 30, 1987 Volume 87 : Issue 63 This weeks Editor: Bill Westfield Today's Topics: Re: Info-Atari8 Digest V87 #61 Turbo BASIC for the 800 800 Turbo BASIC Question for 800XL experts Re: Turbo BASIC for the 800 error handling in Actoion! ---------------------------------------------------------------------- Date: 28 Jul 87 14:16:31 PDT (Tuesday) Subject: Re: Info-Atari8 Digest V87 #61 From: "Hugh_E._Wells.ElSegundo"@Xerox.COM To: Info-Atari8@Score.Stanford.EDU In-Reply-to: Info-Atari8%Score.Stanford:EDU:Xerox's message of 7/27/87 Hi John, Yes, I would like to have a copy of the Turbo BASIC and will send a disk if you will post your address here or send it to me via slow mail. I'll post mine here so that we can correspond outside the net if you wish. Thanks, Hugh Wells 1411 18th St Manhattan Beach, CA 90266 7/28/87 Hi John, I thought I read PASCAL in the first reading when I responded to you. Upon the second reading I saw my error. Yes, I would still like to get Turbo Basic. Guess I've had PASCAL on my mind for so long that TURBO flipped my trigger. Anyway, I appreciate your assisstance, and will still send a disk when I receive your address. Are you looking for any kind of program (in BASIC) that I might provide? Thanks again, Hugh ------------------------------ Posted-From: The MITRE Corp., Bedford, MA To: info-atari8@score.stanford.edu Subject: Turbo BASIC for the 800 Date: Tue, 28 Jul 87 17:40:33 EDT From: jhs@mitre-bedford.ARPA Stop the presses!!! Several people replied to my plea for help with offers of programs to encode a boot disk as a file and then reconstruct the boot disk. As there have been requests, I will try to use that method rather than physical mail, except in cases where the requestor has no way to download a file. If you are in that category, PLEASE REPEAT YOUR REQUEST WITH MAILING ADDRESS. I hope that will be a very small number of mailings. ALL OTHERS please standby, and I will soon post (a) the program(s) to encode and decode boot disks, and (b) the encoded 800 Turbo BASIC disk. NOTE: The excitement is about a version for the 800 (or presumably 400 upgraded to 48K). Latecomers who have 800XLs or XE machines want the XL/XE version, which has some advantages. If you are in that category, please request the XL/XE version if you lack it. At present, there is no COMPILER for the 800, or at least I don't have it. (There is a compiler to go with the XL/XE version.) -John Sangster / jhs@mitre-bedford.arpa ------------------------------ Posted-From: The MITRE Corp., Bedford, MA To: info-atari8@score.stanford.edu Subject: 800 Turbo BASIC Date: Wed, 29 Jul 87 21:51:06 EDT From: jhs@mitre-bedford.ARPA Thanks to those who reported availability of encoders for boot disks. I received a copy of SHRINK, which however did not work right. As soon as I get a good copy of SHRINK or an equivalent, I will post both the decoder and the encoded Turbo BASIC disk. The 800 version, by the way, is called FROST BASIC, presumably after the author, FRank OSTrowski. If any of you already have FROST BASIC, obviously the new posting may not contain anything new. -John Sangster / jhs@mitre-bedford.arpa ------------------------------ Date: 29 Jul 87 23:16:48 GMT From: khayo@locus.ucla.edu Subject: Question for 800XL experts To: info-atari8@score.stanford.edu Hello ATARI-land; I'm new to this group, and I don't even have an Atari (!) [please, no flames], so my request may be very naive, silly or worse... A friend of mine, who is completely shut off from the marvels of information age due to the part of our world he lives in, just got an Atari 800XL. My conjecture is that he would like to get some freeware/shareware for it - he was tactful enough not to ask me explicitly. Since I have access to all kinds of BBS, networks etc, I should be able to get a lot of nice stuff for him. So where's the problem, you may ask? Elementary, Watson - I am a Macintosh type, so I would be downloading all these goodies into my Mac+, and there is an obvious question of how to transfer a Mac text file to an 800XL medium. Now my main question: what is the format in which the 800XL likes data to be stored on tape? If it is the TI/99A-like FSK modulation, I could probably write a trivial program that would force my Mac to simulate an Atari output via a sound synthesiser & the speaker jack - I'd then record this & send a cassette to my buddy. Does it hold water? If it does, I'd be eternally grateful for any info/pointers on the subject (as far as tape format goes, I'd obviously need both the hardware [modulation method] & software [file format] side of the story. Thank you very much in advance. This thing may not be of general interest, so please E-mail me at khayo@MATH.UCLA.EDU (regardless of what the header may say - our news software screws that up on occasion). Eric Behr ------------------------------ Date: 29 Jul 87 20:50:44 GMT From: mtune!whuts!homxb!houxl!oaa@RUTGERS.EDU (O.ALEXANDER) Subject: Re: Turbo BASIC for the 800 To: info-atari8@score.stanford.edu In article <8707282140.AA27106@mitre-bedford.ARPA>, jhs@MITRE-BEDFORD.ARPA.UUCP writes: > NOTE: The excitement is about a version for the 800 (or presumably 400 > upgraded to 48K). Latecomers who have 800XLs or XE machines want the > XL/XE version, which has some advantages. If you are in that category, > please request the XL/XE version if you lack it. > > -John Sangster / jhs@mitre-bedford.arpa Do you or anyone know if the 800 version will work with SpartaDOS (from ICD) version 2.x or 3.x. The XL/XE version does not because they both use the ram under the O.S. Owen Alexander ------------------------------ Date: 30 Jul 87 15:24:30 GMT From: kaoa01.dec.com!curzon@decwrl.dec.com (Richard Curzon KAO4-3/7A DTN 621-2196) Subject: error handling in Actoion! To: info-atari8@score.stanford.edu Further to Marc Appelbaum's question: since I am sending this to somebody today, I may as well send it to the newsgroup. This is the entire unexpurgated (but still short) working code of Bruce Langdon's, which does basically what Marc wants: checks if a file exists and reprompts if not. Allows an exit to Dos. Also has a neat block read function: ------------------------------------------------------------- ; PRINT 8/27/85, A. B. Langdon ; Print a text file, replacing unprintable ; characters by ^M, etc. ;SET $491=$4000 SET 14=$491^ BYTE rts=[$60] ; ;INCLUDE "D:SYSLIB.ACT" ;INCLUDE "D:SYSIO.ACT" ; Using channel 1, Close caused "system error" with DOS 2.1 but not DOS XL. ; First global ARRAY, other than BYTE ARRAY of length less than 257, ; is placed AFTER rest of program (undocumented?). BYTE ARRAY buffer(257) ; locate the buffer. CARD FLen, ; File length up to 64K i, Nbuf BYTE OpOK, b BYTE CIO_status ; global for CIO return value (per ACS convention) CARD FUNC GetAD(BYTE chan CARD addr, len) ; Block read TYPE IOCB=[BYTE hid,dno,com,sta CARD badr,put,blen BYTE aux1,aux2,aux3,aux4,aux5,aux6] IOCB POINTER ic BYTE chan16 BYTE POINTER b chan16 = (chan&$07) LSH 4 ic = $340+chan16 ic.com = 7 ; read ic.blen = len ic.badr = addr [$AE chan16 $20 $E456 $8C CIO_status] ; LDX chan, JSR CIO; STY CIO_status FLen ==+ ic.blen ; this to RETURN is special to this application. IF CIO_status = $88 THEN EOF(chan)=1 IF (FLen&$FF) = 0 THEN ; likely last sector of b = addr+ic.blen-1 ; a DOS 4 file. WHILE b^ = 0 DO b ==- 1 ic.blen ==- 1 FLen == -1 OD FI FI RETURN (ic.blen) PROC FixFlSp(BYTE ARRAY FileSpec) IF FileSpec(2)<>': AND FileSpec(3)<>': THEN ; prefix "D:" to file name FileSpec^==+2 i=FileSpec^ WHILE i>2 DO FileSpec(i)=FileSpec(i-2) i==-1 OD FileSpec(1)='D FileSpec(2)=': FI ; Could also convert to upper case: if >$60 then subtract $20. RETURN PROC SysErr(BYTE errno) PROC MyError(BYTE errno) IF errno=$80 THEN Error=SysErr Error(errno) FI ; break quits PrintF("error %I. Try again%E",errno) OpOK=0 RETURN PROC End=*() [$68$AA$68$CD$2E8$90$5$CD$2E6$90$F3 $48$8A$48$60] ; entry: PLA; TAX; PLA; CMP MEMLO+1; BCC lab; CMP MEMTOP+1; BCC entry; ; lab: PHA; TXA; PHA; RTS ; Trace back thru RTS's and return to cartridge or DOS. ; From ACS bulletin board. PROC PrintFile() CHAR ARRAY FileSpec(20) BYTE b, SHFLOK=$2BE CARD fwa, lwa, BufLen, MEMTOP=$2E5, MEMLO=$2E7 BufLen=MEMTOP-$80-buffer SysErr=Error DO Print("File Spec=") SHFLOK=$40 ; upper case InputS(FileSpec) IF FileSpec^=0 THEN END() FI FixFlSp(FileSpec) Close(2) OpOK=1 Error=MyError Open(2,FileSpec,4,0) UNTIL OpOK OD Error=SysErr Close(3) Open(3,"P:",8,0) FLen=0 ; With DOS 4, this artifice ensures ; that each GetAD reads one byte into ; next sector, to anticipate EOF. BufLen ==& $FF00 GetAD(2,buffer,1) IF buffer(0) = $FF THEN PrintE("Not a text file.") Close(2) RETURN ELSE PutD(3,buffer(0)) FI WHILE EOF(2) = 0 DO Nbuf = GetAD(2,buffer,BufLen) FOR i=0 TO Nbuf-1 DO b = buffer(i) & $7F IF buffer(i) = $9B THEN PutD(3,$9B) ELSEIF b < ' THEN PutD(3,'^) PutD(3,b+$40) ELSEIF b=$7F THEN PutD(3,'^) PutD(3,'_) ELSE PutD(3,b) FI OD OD Close(2) RETURN PROC Main() device=0 ; in case MAC/65 has been here DO PrintFile() Close(3) PrintE(" (RETURN to end)") OD RETURN --------------------------------------------------------------------------- Feel free to share. ------------------------------ End of Info-Atari8 Digest ************************** ------- -------------------END OF UNDELIVERED MESSAGE-------------------