Sayfa 16

REM REM * REM SUPER BES ISLEM REM * REM *C3SPACE LEVENT GÜNTAY REM * REM POKE 53260.. PRİNT *<CLR)<CTRL CISPACE > <RVSON) 1 <RVSOFF )CESPACE PRİNT <RVSON) 2 PRİNT *CBDOKN>C3SPACE 3 SÖFF ) CESPACE YCARRMA PRİNT 4 )C2SPACE BOLME PRİNT *C2DOKN>CISPACE 8 CRV ALMA GET METİF THEN 7S IF OR THEN 7S ON 100.1000.2000.300 0.4000 REM ccc REM TOPLAMA & CLR PRİNT TOPLAMA" Isi TO 131PRİNT * PRİNT > PRİNT BE IF THEN PRİNT THEN PRİNT

A-B THEN FOR Isi TO FOR TO 1 STEP -i Es. C)8 THEN NEXT PRİNT *<CUR) * “es

PRİNT Isi TO PRİNT GİF THEN PRİNT PRİNT TO 1 STEP T 1GOSUB 5000100 TO 100 REM cc REM CUR PRİNT C IK ARMA" İsi TO " PRİNT *CRVSORF > CDOKND PRİNT Fani > IF THEN GÖSÜB 155 ©

İF THEN 1508 IF A-B<. THEN FOR Isi TO IF THEN FOR Isi TO FOR XsA TO 1 STEP

10 IF C<. THEN Ös181GOTO 1675 <154> NEXT <145> THEN PRİNT *<CLR) * PRİNT Tsi TO PRİNT TO 1 STEP MİOSCOS.N. 1GOSUB 1008 <casa> FOR İsi TO LENCAS) <166> IF THEN 1550 IF AO<BA THEN 1040 <103> IF AND İSLENCA#) THEN GÖT 0 1040 cısı> 1 <853> REM c <109> REM * CARPMA <asa> CUR <085> PRİNT C ARP OR Isi TO * casa> PRİNT * TAS <196> PRİNT BE IF OR THEN PRİ NT VERİ"EFOR Usi TO 1 1GOTO 2000 FOR TO 1 STEP -1 ciza> IF ÖF THEN » NEXT <876> . PRİNT *CCLR) “ASIPRINT TABCA)BE <150> PRUNT Isi TO PRİNT GİF PRİNT *CLEFT) ARSAN PRİNT NS0 TO 1 STEP T 3000100 TO 2000 REM © <a47> REM BÖLME CUR * NOKTADAN SONRAKİ BA SAMAK SAYISI (192: FRİN” BO LOM 1“1 TO İNPUT * IF OR As. THEN PRİ T