Sayfa 10

RETURN REM OVAL GRAFİK 3 GRAPHİCO, TANE VERİ VAR PRINT"UANA BASLIK (0-39 HARF)": INPUTAS: İFLENCAS) GOSUBB85:PRİNT"VERİ #"Z"NİN ADI?" INPUTXSCZ GOSUB885:PRİNT"YERİ #"Z"NİN DEĞERİ?" GRAPHICI, GOSUBE4A:COLOR1,B CT) < DRAW, 160,30T0160,100:FORZ-İTOR DRAMI, ) 1 GETKEYVE 157) THENUSU-5:GOTO475 BO MOVSPR 1 ,U,1:60T0440 LERSPPOSCİ,1)-27 REM SAVE RUTİNİ IFV$z "5S" THENBSAVE TFVSECHRSE

BASLIK (1-39 HARF)" INPUTAS: İFLENCAS) TANE YERİ GOSUB875 #"Z"NİN ADI C1İ-5 HARF)?" ) İFLENCXSCZ ) )

NEXTEPRİNT #"Z"NİN RENGİ (1-16)7" INPUTCR CZ ) 3 NEXTEPRİNT #"Z"NİN DEĞERİ CZ) 2 İFPCZ)<LORPCZ) NEXT ,2:GOSUBESA FORZ , COLOR 1 )