Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Path: utzoo!watmath!clyde!burl!ulysses!bellcore!decvax!decwrl!glacier!oliveb!hplabs!hpda!hpisoa2!hpitg!ucbvax!PGELHAUSEN%MAR@ucbvax From: PGELHAUSEN%MAR%ucbvax@ucbvax.UUCP Newsgroups: net.micro.atari8 Subject: Couldn't reply directly... Message-ID: <14355835@ucbvax> Date: Tue, 29-Apr-86 09:18:00 EDT Article-I.D.: ucbvax.14355835 Posted: Tue Apr 29 09:18:00 1986 Date-Received: Tue, 13-May-86 08:58:28 EDT Lines: 44 From: JUP::MAILER 28-APR-1986 19:39 To: MAR::PGELHAUSEN Subj: Undeliverable mail The following message could not be delivered because 550 User "rgenter"bbn-labs-b" Unknown ------ Date: 28 Apr 86 19:28:00 PST From: mar.pgelhausen@ames-vmsb.ARPA Subject: --- Wherre did I come from? --- To: rgenter"bbn-labs-b@ames-vmsb.ARPA Reply-To: mar.pgelhausen@ames-vmsb.ARPA The cheapest hack I can think of goes like this: When you start a program you type: RUN "Dx:PROGNAME.BAS" : REM or something like this, followed by a [ret] REM the cursor then goes the the start of this line. REM so print "" REM find cursor's row from peek(84), REM loop on a LOCATE XPOS,YPOS,SCRVAL until SCRVAL = ":" REM LOCATE again on XPOS-1,YPOS,SCRVAL and you have a REM number (in ASCII) "1"-"4" or you have a "D" Something like this 10 XP=0:YP=PEEK(84)-1 20 POS. XP,YP:LOC.XP,YP,CH:IF CH = 58 GOTO 40 30 IF YP=39 GOTO 100 35 YP=YP+1:GOTO 20 40 LOC. XP,YP-1,CH:CH=CH-48:IF CH>8 CH=1 50 ?"Drive #";CH;" (I Think...)" 60 GOTO 999 70 ?"could NOT find colon!" 999 END Good luck! (This is on the spur of the moment, and has not been tested..... -Richard Hartman (address under flux) ------