Lars Hedberg
<2497>
· Text 2823 · w8 · kommentar
1986-02-27 18:48
Ärende: Ladda TED.800 och TEDTERM.800 från BASIC.
Eftersom jag inte vet hur ted jobbar så vet jag inte något svar. Men
det är mycket möjligt att man kan lägga in ett chain i slutet på programet.
Jag har bara lyckats skriva små texter som då bara saboterar variblerna,
men om en lång text finns inne kan även TED.BAC förstöras. Om man vill
helgardera sig måste alla variabler vara lokala, och sedan får man sänka
takpekaren, det vet jag inte hur man gör (i alla fall inte för tillfället).
Jag upptäckte dock en sak nyss, och det var att programmet som jag skrv
in för hand inte fungerar, jag råkade flytta lite på siffrorna mellan
kommatecknen. Här är den riktiga versionen:
10 ; 'T=Tedterm / E=Ted ?'; : GET R¤
20 IF R¤='T' OR R¤='t' THEN R¤='TEDTERM ABS' ELSE R¤='TED ABS'
30 B¤=CHR¤(1,255,0,195,30,96)
40 Z=CALL(VARPTR(B¤),VARPTR(R¤))
Det borde fungera lite bättre, skall försöka lägga in det i monitorn.
Jag vet inte hur man gör, men skam den som ger sig...
Hälsningar TFP