LLIST:PING?

Everything related to BASIC version 1.x (Oric 1 and Atmos) or HYPERBASIC (Telestrat).
Don't hesitate to give your small program samples, technical insights, or questions...
Post Reply
Brana
Flying Officer
Posts: 152
Joined: Fri Nov 30, 2007 8:30 pm
Contact:

LLIST:PING?

Post by Brana » Mon Mar 09, 2009 5:29 pm

Hello, is there anything that I could do to keep the Basic program running, after issuing the LLIST command from with in the program itself;

Example:

10 CLS
20 LLIST
30 PING

Now, (example) I want to RUN this program, but I would never hear the PING?

Is there anything maybe to POKE for in order to keep the program running after the LLIST-ing?

Brana

User avatar
Dbug
Site Admin
Posts: 2387
Joined: Fri Jan 06, 2006 10:00 pm
Location: Oslo, Norway
Contact:

Post by Dbug » Mon Mar 09, 2009 7:47 pm

I remember there was a trick which was doable once upon a time.

Basically it was something like that:

As a first line of the program, do something like:

0 ON V GOTO 1,30
1 REM HERE IS THE BEGINNING OF THE PROGRAM
10 CLS
19 V=1:A=DEEK(#1B):DOKE #1B,"adress of CONT"
20 LLIST
30 DOKE #1B,A ' RESTORE OLD ADRESS
31 PING

The idea is that after the LLIST, the BASIC would display "Ready", but since the ready is now redirected to call CONT, it would start again on the line 0, with the existing variables still working (here V=1), so it would jump to the line you indicate in the ON GOTO (here 30).
Then of course in the end you have to restore a valid adress for Ready, else you are not going to quit the program (stored in A).

I don't remember the details, it's all from memory.

User avatar
Twilighte
Game master
Posts: 819
Joined: Sat Jan 07, 2006 12:07 am
Location: Luton, UK
Contact:

Post by Twilighte » Tue Mar 10, 2009 12:23 am

Very neat if it works, referring to AUG the address of CONT is #C96E (Oric-1) and #C9A0(Atmos) :)

Post Reply

Who is online

Users browsing this forum: No registered users and 1 guest