1 REM Ins{nd av Petter Stahre <4501>    1985-10-05 11.50.36
60 INTEGER : EXTEND 
65500 ! <!><!><!><!><!><!><!><!><!><!><!><!><!><!><!><!>
65501 ! <!>
65502 ! <!>        S  c  r  o  l  l  .  B  a  c
65503 ! <!> 
65504 ! <!> Av Petter Stahre <4501>
65505 ! <!> Klart 85-09-29
65506 ! <!> F|r ABC806,802 med 80 tkn:s sk{rm
65507 ! <!> Funktion:
65508 ! <!>
65509 ! <!> FNUp(Rad1,Rad2,Text$)    = Scrollar all text
65510 ! <!>                            fr}n Rad1 till Rad2
65511 ! <!>                            ett steg upp, Text$
65512 ! <!>                            hamnar p} rad nr Rad2.
65513 ! <!> FNDown(Rad1,Rad2,Text$)  = Samma som ovan, men
65514 ! <!>                            allt scrollas ner}t,
65515 ! <!>                            Text$ hamnar p} rad Rad1.
65516 ! <!>
65517 ! <!><!><!><!><!><!><!><!><!><!><!><!><!><!><!><!>
65518 DEF FNUp(Rad1,Rad2,Text$)
65519   Rad2=Rad2+1 : Tkn=80*(Rad2-Rad1)
65520   POKE VAROOT(S$),Tkn,SWAP%(Tkn),30720+(Rad1*80),SWAP%(30720+(Rad1*80)),Tkn,SWAP%(Tkn)
65521   Sk{rm$=MID$(S$,81,Tkn-80) : ; CUR(Rad1,0) Sk{rm$ CUR(Rad2-1,0) Text$ SPACE$(80-LEN(Text$));
65522   RETURN 0
65523 FNEND 
65524 DEF FNDown(Rad1,Rad2,Text$)
65525   Rad2=Rad2+1 : Tkn=80*(Rad2-Rad1)
65526   POKE VAROOT(S$),Tkn,SWAP%(Tkn),30720+(Rad1*80),SWAP%(30720+(Rad1*80)),Tkn,SWAP%(Tkn)
65527   Sk{rm$=MID$(S$,1,Tkn-80) : ; CUR(Rad1+1,0) Sk{rm$ CUR(Rad1,0) Text$ SPACE$(80-LEN(Text$));
65528   RETURN 0
65529 FNEND