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...
Brana
Flying Officer
Posts: 169
Joined: Fri Nov 30, 2007 8:30 pm
Contact:

LLIST:PING?

Post by Brana »

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: 4437
Joined: Fri Jan 06, 2006 10:00 pm
Location: Oslo, Norway
Contact:

Post by Dbug »

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 »

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