Lars Gjörling
<6825>
· Text 6853 · w8 · kommentar
1987-05-26 23:45
Ärende: RUNRAM
Det nya namnet behöver inte vara lika långt, det får inte vara längre,
men om det är kortare, så kan man fylla ut med ascii-nollor.
Efter att har kört RUNRAM, måste du söka upp kommandolistan i tolken
och byta ut 'GOTO' mot 'HOP'+CHR¤(0). Enklast med det här programmet:
10 INTEGER : EXTEND
20 DIM Tolk¤=0
30 POKE VAROOT(Tolk¤),0,96,0,0,0,96 ! Tolk¤ har nu sin dataarea samman-
fallande med BASIC-tolken.
40 Adr=INSTR(1,Tolk¤,'GOTO') ! Adr är nu den byte i Tolk¤, där 'GOTO'
börjar.
50 MID¤(Tolk¤,ADR,4)='HOP'+CHR¤(0) ! 'GOTO' byts mot 'HOP'+CHR¤(0)
Om du kör programmet och sedan skriver ett nytt program (efter 'NEW')
så finner du att basic inte längre förstår ordet 'GOTO'.
Om du exempelvis skriver programmet
10 ; 'Detta är ett testprogram'
20 HOP 50
30 ; 'Om det funkar, skall denna rad inte skrivas ut alls'
40 END
50 ; 'Hurra! Den nya instruktionen HOP fungerade!'
så kan du konstatera om det fungerade.
Mvh Lars