PGELHAUSEN%MAR%ucbvax@ucbvax.UUCP (04/29/86)
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 "<up-arrow>" 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) ------