🚀 go-pugleaf

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