Sayfa 6

NEXT NzE END PROC REM PROC REM Izi TO RNiFOR TO :NE XT IF THEN 1528 TO TÜ RN T NEXT 1489 END PROC IF AND Ma<RN) THEN MizM *1:G60TO 1528 IF MERN*1 THEN PROC FOR TO

SG--5SG:60TO 1488 REM REM ÖĞE Ol AR ÖĞ ONE DİR SİK OE Dİ OAK REM REM PROC PRİNT MATRIS REM

* THEN OPEN 4,4:Fz1 RCOMP TAS Kes; 4

FOR Js1i TO RNEPRİNT "<HOME "<RİGHT>"N PRİNT "TABCİ3) "ELEMA Ns * IF F THEN. 4,P1$

FOR K-i1i TO CNIPRİNT NT F THEN NEXT F THEN PÖOKE 198,G:WAIT #:1IF F TH EN 4 PRİNT ATC1,22)"SONUCLARI YENİDEN GO RMEK ISTERMİSİNİZ?" : "<RIGHT>CEZH) "<HOME

IF C$z”E" THEN EXEC PRİNT MATRIS END PROC REM xxx PROC GET MATRIS REM PRINT "<CLR>”":EXEC B OR DER

"FLASH FILL FOR TO RNEiFOR TÜ

İF AND E:GOTÜ 17890 OFFSEND PROC REM PROC SCREEN REM

COLOUR "<CTRL-8B><CLR><CTR <RYSON>< 145PACE >MATRIXCR PRİNT >MATR IS İSLEMLERİ PRİNT NOYAN KINAYMAN< ><RYSOFF >" MOB SET MATRISIN SKALERLE CARPIMI" MATRISIN TERSİ" TRANSPOZU":FSC6)-”"M ATRISIN DETERMİNANTI” MATRIS" B OR DER FOR Isi TO 8:CENTRE AT<X8,44*2x1)F$CI #L-36 44Jx2,1,L42,1 REPEAT:GET C$:UNTİL C$<>"":1F PLACE 8