Sayfa 28

Bazda BERDİ gaz7a nazan

THEM 250 1" TREN GÖSÜB &7A 1F THEN GÖSÜB

THEN GÖSÜBR THEN 4da PRİNT 1 ME BKİ PRİNT * CRVSON> LİSTESİC7SP PRİNT * )* PRİNT * PRİNT * <RVSOND NURUMULASRAC Br PRİNT * CRVSOND PACE >" PRİNT * CEVSON) DÜRÜMLESRAC * ACE > PRİNT * <RVSON> DÜRÜMÜ SAKLAC PRİNT * DİSKETTE SAK LA" PRİNT * <RVSON> FACE)" GET THEN IF G$-*2* TKEN END

REM SÜBPROGRAMLAR REM SUB EKRAN RENGİ IF THEN POKE 53280,0:POKE 532

REM SUB DİM ,RESCİS) DIM FI<TS,2)

REM SÜB ÖPEN $:ÖPEN 2,8 ,2,NS:RETURN

REM SUB YENİ DİSKET PRİNT *SCLR FORMATLAN MIS BİR ÖİSKET TAKIP * PRİNT *<RVSON) HERHANGİ BİR TUSA BA GET THEN 630 GOSÜB 1678 FRINT *CRYSON> YENİ DİSKETİNİZ HAZI

REM SUB TAKİM READ 151 TO

NTCCTS- REM SÜB FİKSTÜR 578 GOSUB TO TÜ

REM SUB SEHİR READ isi TÜ TE

N REM SUB TAKIM İNPUT POKE 19,B4t INPUT <RVSON> TAKIM SA YISI PRİNT "<OLR) <RVSON> AKIMLARI <RVSOFF)" FOR TO İF THEN PRİNT LA Yi HARFLI TAKIM MEXT | FOR TO TO THEN KIITS(K) NEXT KİNEKT İ:POKE 1318 REM SUB SAVE-İ * GOSUB Ta Tt CLOSE

TO HS:GOSUB 13 PRİNT *<DOLMD *H*.HAFTA MACLARI GİR 19,649

PRİNT OYUNLAR 1 FOR Isi Tü A)

iMTSO:GOSUB | PRİNT “<DOKN) FİKSTÜR DÖĞRÜ MUTLESP * GET G$11F THEN 1818 iF THEN 1858 THEN 1818 FOR 1-1 TÜ İİ, BI | NEXT

REM SUB TAKIMIN SEHRİ POKE 19,64:PRİNT SEHR İzi TÖ TS 19,8 REM SUB SAVE-2 FOR TO | CLOSE

REM SUB HAFTANIN MACLARI INPUT *<RVSON> HAFTA CRVYSOFF Y" EH PRİBİT HAFTA MA İSİ TO TS1FOR TO TSTİF

1788 NEXT GLCHİ OG THEN PRİ NT ATILAN GÖL