Bu sayfadaki yazılar
Sayfanın metni
Sayfa 17
REM REM * KOK ALMA 8 CUR BASAMAK SAYISI PRİNT K O UMA İsi TO BİRRİNT İNPUT *CDOMNDSAYI "JA IF ACIINTCA) THEN PRİNT BIR TAM SAYI DEGİL":GOTO 4160 IF OR A>99 THEN PRİNT İSTENEN SINIRLAR İCİNDE DEĞİ 4160 IF THEN GÖSÜB 4170 GosUB 4106 GÖSUB "7 IFC THEN PRİNT CHR&<0446)7 IF C>10134 THEN 10 GOSUB SOLM THEN 4040 4178
IF ARD THEN GOTO 4165 T FOR Isi TO 1G0TO 4000 PRİNT PRİNT
MI, <RVSONDO<RVSOFF)EVAM MI ” GET M&e** THEN 4160 IF THEN 18 GOTO 4000 REM © REM ALTPROGRAM PRİNT 1 PRİNT Mİ. MI
Klavyeyle gezinmek için ← ve → tuşları.
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