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