Bu sayfadaki yazılar
Sayfanın metni
Sayfa 17
FOR TO Cİ:FOR TO NEXT :NEXT END PROC REM PROC SCREEN REM DUP <"<CTRL-2 COLOUR “<CTRL-6><CLR>":PR
PRİNT AT(0,12)"SINUSOIDAL STERDY-ST ATE ANALYSIS" CENTRE AT<0,17)"Br NOYAN KINAYMAN" : CENTRE ATC(0,24)"PRESS Fİ KEY TO GO!
REM CENTRE ATC(8.12)"UZGUNUM, YN MATRISI SINSULAR!" REPEAT:GET C$:UNTİL C$< >"
REM *kk FROC COMPLEXMUL Kk) END PROC REM PROC MATADD REM *kk PRİNT AT(31.18)P5 FOR Isi TO Js1 TO I.I) Iİ) NEXT :NEKT END FROC
Klavyeyle gezinmek için ← ve → tuşları.
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