Sayfa 29

gia3a Bizse arasa 01318

REM SUB GÖLLERİ PRİNT *CÖLRO<RUSON> TANIN GÖLLERİ (RVSOFF> RINT FOR TÜ THEM İF THEN PRİNT 1 REM SUB TAKIM LİSTESİ PRİNT "ÇELR ** TAKIMLARI FOR Izi TO RANT “HOME

FOR TO ETURN 1 REM SUB SONLCLARIN GİRİLMESİ GÜSÜB 19,643PRİNT "<RVSON > SONUCLAR SONUCSÜZ. Kaf THEN RETURN FOR TO İNPU T * GEL TREN PRİNT :G0OTO 1408 PRİNT 1NPUT * PRİNT NEKT LERRİNT TO GEL. 1)<8 OR GeL THEN İ720:NEXT L PRİNT *<RVSON> SONUCLAR DOGRU MUZ E GET G$:1F THEN İF THEN tana FOR TO KrİF OR THEN 1478 Bİ, DSİ MEL 2), 2) NEXT LiGOSÜB 1770 POKE 18,8:RETURN.

REM SUB ASX" CHÖME * PRİNT ASIPRINT * 7SPACE ) <RVSOFF <ESPACE > NTER<ÂSPACE )* BET G$:1F G$-** THEN 1530 IF THEN 1618 IF THEN PRİNT * <R VSÖN)C3SPACE ) FatEKRAN RENGİ (3SPACE

PRİNT * FEN , 1 1 RETURN REM SUB SAVE-3 PRİNT SON DURUMU SAKL AYACAK EZH" GET THEN 1658 IF THEN RETURN

BOSUB 57OTGOSUB 1698

FOR İsi TO To 2 PRİNTHB,FCL

REM SUB İF THEN PRİNT - THEN PRİNT 19)" BETURN 3 REM SUB PUAN DURUMU PRİNT AFPLANIYOR. (RVSOFF >

PUAN DÜRÜMÜ HES &-T1

YEGLCF Cİ. IF THEN 1888 IF GDG2 THEN , 1880 A, S5 Lİ MEP Cİ LI DAL 4 LE, İF THEN 1928 A CİLLE, LE NERT JENEKT 1 FOR 1-1 TO Tü KI PÇL A, AK) iNEKT K NEKT 2/60)“ s* PRİNT PUAN DURUMU ST RALANIYOR. * FOR İsi TO TE-LiFOR TF THEN 2010 FOR TO NEKT FOR TO TO To 1 PCB, EXT 1

PRİNT TURN REF SUB PUAN PRİNT

3SPACE YALISPACE <RVSOFE FOR TÜ TSİPRİNT O) PRİNT Jz0 TO BİPRİNT TAB Iİ NT

REM SUB TAKIMIN DÜRÜMÜ.

İNPUT TAKIMIN ADT THEM BEYT THEN GÖSÜB