Sayfa 14

POKE 633,13:END PRİNT POKE 53280,6:POKE NE,5 DEF ROTAS

PRINT "<CTRL-7> RESİM BİTTİKTEN SON RA:” PRİNT

ACE>'S'iSAVYE RESİM PRINT " FONKSİYON PRINT RUN PRINT " <RETURN>: 'R' İLE N><CTRL-İ> " DONME ACISI (-45 -- 90) 5S OR THEN 138 COSCUUKU) INPUT "<2DOLN> BAKIS ACISI zz) 90) IF OR THEN 158 IN(CV kUU ) AUU) NNZz28: INPUT "<2DOLİN> CİZGİ SAYISI IF NNZ>68 OR NNZ<3 THEN 178 (V*UU ) 438 PPsas INPUT "<2DOLİN> X DEGER ) <aSPACE

SYS RO PRİNT 1 GET A$:IF AND THEN 248 SYS AU IF IF A$-"F" THEN RUN IF THEN END INPUT "RESİM ADI ";FL$:PRİNT VEYA >ISKET" : GET AND THEN 300 : IF A$-"T" THEN IF A$-"D" THEN SYS GS,FL$,GT:RUN

AND A$SLI"R" AND A AND

"<RVSO <RVSON>D<RVSOFF

POKE 53280,0:POKE "<C LR><CTRL-E>FONKSİYON ? <GEREKMİYORS A IİRETURNİ)" PRİNT "FNRCX) INPU THEN 108 PRİNT "RUNİ00":POKE 631,19:POKE 632,13:POKE 633,13 POKE 198,3:END PRİNT z50672 POKE 53280,6:POKE 53281,5:5YS NE,5 DEF <8 )*.D/18 PRİNT I DEĞİSKENLİ GRAFİK *4444<DOLN)" za/1sa PRİNT "<CTRL-7) RESİM BİTTİKTEN SON RA:

PRINT " İCİNCL2SPACE)>'S '3SAVE RESİM PRINT " FONKSİYON FONKSİYONU PRINT "<2âSPACE RUN PRINT " <RETURN>:'R' İLE AYNİI<EDOLİN ><CTRL-I> Uz75: INPUT "DONME ACISI (-45 99

(X ...... INPUT SYS KY "<CLR>"; GET AHLI"S" AND A AND ASLI"R" AND THEN 480 SYS AU IF THEN END IF OR THEN RUN

886 > IF A$-"F" THEN RUN INPUT "RESİM ADI N>T<RVSOFF)EYP VEYA <RVSON>D<RVSOFF >ISKET" GET A$:IF 458 IF THEN IF A$-"D" THEN SYS