Sayfa 31

Ç 128 Püf Noktalarının Programları

COLORO,2 COLOR4 ,2 COLORS SCNCLR GRAPHIC ©,1 INPUT "BOLUM BUYUKLUGU":N IF NzO THEN END DIM A<XN) DIM PCN) DIM FOR TO N PRINT 1“.BOLUM" INPUT PsP*ACI) INPUT "YAZI NEXT I INPUT " DEGİSİKLİK VARMI? <EZH) "AS IF LEFT$CAS,1)-"E" THEN BEGİN FOR I-1 TO N PRINT 1". NEXT I INPUT " BOLUM NUMARASI "31 PsP-ACI) INPUT INPUT "YAZI. GOTO 268 BEND SCNCLR GRAPHIC 1,1 COLOR 1,1 CIİRCLE FOR TO N CIRCLE,160,100,80,0,0,80,643.6 IF 1/2<> INTC1/2) THEN 680 IF CRs2 OR CR:2.5 THEN CR-3 COLOR 1,CR YE RDOT<1) NEXT 1

CHAR,14,24,"'BOSLUK' TUSUNA BASIN." GET KEY A$

SCNCLR GRAPHICO GRAFIK" GRAFIK" CHAR,4,20,"BITİRMEK ICIN 'BOSLUK' TUSUNA BASIN." GET KEY A$ IF A$z"Y" THEN RUN IF A$z"E" THEN 268

CNCLR PRİNT"DENKLEM YAZMA" PRİINT"BIR YAZIN" INPUT V$ PRINT CHR$C147) PRIİINT:PRİNT" 1000"; V$ PRIİINT:PRİNT"RUN PRINT CHRS$<C19): FOR Az9 TO 3 POKE NEXT A POKE 208,4 END PRINT INPUT © REM DENKLEM BU SATIRA YAZILACAK