Sayfa 16

IF SS THEN PRİNT EXEC TETA PRİNT ":NEXT END PROC REM SUBPROC PROC TETA REM *kx ROG THEN A AND AND END PROC REM PROC PRINT ER REM *xx OPEN 4,4:PRIİNT#4:CLOSE 4:1F ST<8 TH EN PRİNT AT(8,24)"PRIİINTER BAGLI DEĞ RCOMP :PAUSE 2:END PROC 3:0PEN 4,4:CMD 4:PRINT P 2$:PRINT "STERDY-STATE CİRCUİT ANAL PRİNT "PROGRAM RESULTS: ":PRİNT NT "BRAN PRİNT EXEC RESULTS PRİNT 4:0 PEN 3,3:END PROC REM PROC INPUT REM *xkx4 PRİNT NT :PRINT P$ CE >BRANCH AT FETCH "<DOLİN>*,3,NNEPRİNT AT(33,1)" IF OR 2840 PRİNT FRM TO ADM VOLT. 5.

NEXT DÜZELTME PRİNT AT(0,24)"VERİLERİ DÜZELTMEK STIYORMUSUNUZ ?" ; REPEAT:GET C$:UNTİL C$z"H * THEN END PROC PRİNT ATC(8,24)DUP(" TOHANGI "<DOKN> " RNDBN THEN 2118 GET CALL DÜZELTME REM SUBPROC PROC GET REM PRİNT FOR Js1 TO FETCH AZVAL O R BONN THEN CALL GET FOR TO THEN Üst

1) z"J" OR IT, 1, T :END PROC REM PROC MATMUL REM PRINT AT(31.18)F5 FOR TÜ TO zO:FOR TO :NEKT FOR Izi TO Rİ:FOR Jzi TO NEXT END PROC REM *** PROC MATINV REM *kk FF-O:FOR Isi TO Cİ:FOR Jz1 TO :NE KT IF AND THEN THEN 4058 IF THEN PROC IF THEN RCOMFP OSUB 4128 IF ÜR THEN RCOMP 4158 FOR 1-1 TO Cİ IF THEN ICİ THEN 4188 IF OR

THEN R RCOMP : NEXT #1F X<Cİ THEN 4040 FOR Isi TO TO

NEXT END PROC REM *** SUBPROC FOR Jzi1i TO *xT2l1,K,J) #RETURN REM #k* SUBPROC FOR TO 11,1.J) RETURN

PROC MATTRANS REM kkk PRINT FOR Isi TO TO EXT :NEXT