1 REM Subrutinen BLINK som g|r det
2 REM enkelt att f} blinkande text
3 REM p} ABC80's bildsk{rm.
4 REM
5 REM ABC-klubben 1986-05-30
6 REM
10 REM TEST AV BLINK
20 PRINT CHR$(12%)
30 X$='Det fungerar !'
40 R%=10% : K%=5% : A%=LEN(X$)
50 PRINT CUR(R%,K%)X$
60 GOSUB 1000
70 PRINT CUR(20%,0%)'Tryck tangent ';
80 GET X$ : GOTO 60
1000 REM BLINK--------------------
1001 REM Subrutin som startar/av-
1002 REM bryter blink i |nskat
1003 REM antal positioner p} bild-
1004 REM sk{rmen. Fungerar p}
1005 REM ABC80 med eller utan
1006 REM 80-teckenstillsats.
1007 REM -------------------------
1008 REM INVARIABLER
1009 REM R%=Rad f|r position
1010 REM K%=Kolumn f|r position
1011 REM A%=Antal positioner
1012 REM SLASKVARIABLER
1013 REM R1% K1% I% J%
1014 REM -------------------------
1015 R1%=R% : K1%=K%
1016 FOR I%=1% TO A%
1017 J%=PEEK(884%+2%*R1%)+K1%
1018 J%=J%+256%*PEEK(885%+2%*R1%)
1019 POKE J%,PEEK(J%) XOR 128%
1020 K1%=K1%+1%
1021 IF K1%>=PEEK(472%) LET R1%=R1%+1% : K1%=0%
1022 IF R1%<=23% NEXT I%
1023 RETURN