1 REM ++++++++++++++++++++++++++++++++
2 REM ! Program ....   FNK.SUB
3 REM ! Utg}va  1.1    1983 ?? ??
4 REM ! av (c) ????  ??????????
5 REM ! screening  Tom Sj|berg 2401
7 REM ! Minne 16 Kbytes
8 REM ! Ins{nt av ????
9 REM ++++++++++++++++++++++++++++++++
10 REM .  Programmet {r avsett f|r
11 REM .  ex.v. tidtagning.
12 REM 
100 DEFFNK=(SWAP%(PEEK(65010%) XOR 255%)+(PEEK(65009%) XOR 255%))*5.12+(PEEK(65008%) XOR 255%)/50
110 REM ..................
120 POKE 65008%,255%,255%,255%
125 REM ---- plats f|r rutin som ------
126 REM ----     ska m{tas       ------
127 FOR T=0 TO 1000 : NEXT T
128 REM -------------------------------
130 A=FNK : REM IF A<>FNK GOTO 130 
140 ; CUR(23%,30%)A : GOTO 120