Couldn't reply directly...

Thread View: net.micro.atari8

1 messages

[T] Back to Threads [V] Tree View [G] Group Articles

1 total messages Started by PGELHAUSEN%MAR%ucbvax Tue, 29 Apr 1986 13:18

#209

Author: PGELHAUSEN%MAR%ucbvax
Date: Tue, 29 Apr 1986 13:18

44 lines
1715 bytes

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

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads