S U B S N U T T A R
===================

BLINK       10 DEFFNB%=PEEK(884%+2%*PEEK(65011%))+SWAP%(PEEK(885%+2%*PEEK(65011
                 %)))+PEEK(65012%)-1%
            20 ; CUR(R,K)'*'; : POKE FNB%,PEEK(FNB%) XOR 128%

BLINK-INPUT  Rad 10 som ovan
            20 ; CUR(R,K); : INPUTLINE A$ :;CUR(R,K);
            30 FOR B%=1% TO LEN(A$) : C%=ASC(MID$(A$,B%,1%)) : POKE FNB%+B%,C%
               XOR 128% : NEXT B%

            ( XOR 128%  i b}da ovanst.rutiner g|r att man anv{der samma rutin
              f|r att t{nda, som att sl{cka blink ! )



COMMON VARIABLE   Anv{nds f|r att flytta data mellan program.Pgm'en m}ste
                       b|rja med denna rad.             (A$ i poke-arean)
            10 DIM A$=128 : POKE PEEK(65065%)+SWAP%(PEEK(65066%))+6%,128%,255%
               ,128%,0%


V[NTA HELTAL   10 K=K+1 : IF INP(56) >128% THEN 20 ELSE 10
               20 ;K

DECIMALER      10 X=INT( (10^D%) *X+0.5) / 10^D%    < D% = antal decimaler >


DELBARHET      10 IF X/Y = INT(X/Y) THEN ....       < sannt=delbart >


UDDA/J[MNT     10 IF X/2 = INT(X/2) THEN ....       < sannt=j{mnt >


KLOCKAN        FNK ger klockan avl{st i sekunder med 100-delar
               100 DEFFNK = ( (PEEK(65010%) XOR 255%) * 256% +
                              (PEEK(65009%) XOR 255%) ) * 5.12 +
                              (PEEK(65008%) XOR 255%)   / 50%
               200 S1=FNK : REM starttid
               210 .... vad som skall tidtagas ...
               300 S2=FNK : REM stoptid
               310 PRINT S2-S1 : REM resultatet

               OBS! kontroll under sj{lva avl{sningen utf|r ej i rutinen ovan!


               ________________________________________________________________
AND,OR,XOR     !  AND               !  OR                !  XOR               !
               !--------------------!--------------------!--------------------!
       Ackumul !            !            !            !
       Regist  !            !            !            !
               !--------------------!--------------------!--------------------!
       Result  !            !            !            !
               !--------------------!--------------------!--------------------!
               !  0+0=0    1+1=1    !  0+0=0    1+0=1    !  0+0=0    1+0=1    !
               !  1+0=0             !           0+1=1    !  1+1=0    0+1=1    !
               !  0+1=0             !           1+1=1    !                    !
               !  sannt b}da=1      !  sannt endera=1    !  sannt endast en=1 !
               ----------------------------------------------------------------



ERROR          100 ONERRORGOTO 102 :;'GE TAL';:INPUT A
               101 ;'**'A'**' : GOTO 103
               102 ONERRORGOTO 0 :E9%=ERRCODE :  GOSUB 1000 : GOTO 100
               103 ...........
               ...............
               1000 ;CHR$(7) : IF E9%=12 ;' FEL TAL ' : RETURN ELSE
                 ;' FELKOD'E9%'' : RETURN

STR[NGAR       CTRL-TKN i str{ngar. Poka in tkn p} sk{rmen POKE 31744,151,112,
                osv ,anv{nd L\KAREN eller annan hj{lpare och l{gg in dom i en
                str{ng exv. 100 A$="********"(g|r sk{rmeditering s} att dom
                till sk{rmen pokade tecknen kommer r{tt i A$=".... )
                OBS spara pgm med SAVE !
               Duger {ven f|r korta maskinsnuttar 10 REM ...koden....
               Inkl positionering : A$=CHR$(27,61,R+32,K+32)+'TOM'


DOSBUF         Se Bladet 1980.2 sid 5
               POKE 65065,245+<0 till 7>  0=62720 standard
                                          7=64768 ingen buf alls
               POKE 64786,adr,SWAP%(adr)  flyttar DOSBUF 0 till adr


MATTE          MODULO   DEFFN1(A,B) = A - int(A/B) * B           ger resten
               MAX      DEFFN2(A,B) = - (A>=B) * A - (B>A) * B   ger max-talet
               MIN      DEFFN3(A,B) = - (A<=B) * A - (B<A) * B   ger min-talet

 slut 
