Sayfa 28

asan IF 19a IF IF IF IF IF GöTO TA REM PROGRAM BASI PRİNT "<CLR)>":POKE 53280,0:POKE 532 sı, a İNPUT HAFTA RETURN HAFTA":GOTO REM BİLGİ GİRİSİ THEN FOR İsi TO FOP 1-1 TO 8 PRİNT "<CLR>":POKE 1043,a:POKE ,46:POKE 1045,1 FOR Oz1 TO " PRİNT "<HOME>”" FOR Oz10 TO NEEPRİNT >. IF Isi THEN FOR TO İ-İtPOKE PRİNT HAFTA" PRİNT MAC” INPUT “<DOLMD1. TAKIM IF BONN OR THEN Sada İF THEN PEEK THEN 5008 IF B>9 THEN THEN INPUT INPUT TAKİM TF OR DC1 THEN Sağa IF BsD THEN 5000 IF THEN 15C1)4D4#404*102711F PEE THEN 5008

THEN İSA: THEN GÖSÜR THEN 2008 THEN 1078 THEN THEN NELİ

zD*911F THEN Saga INPUT "<İİSPACE PRİNT LEFT)<7SPACE)" PRİNT >"

PRİNT "<DOMN>< 13SPACE >- << -

GET WS: İF THEN 440 IF THEN IF CE THEN 11 IF CsE THEN THEN 41 SI NEXT POKE 1X9),174:POKE 153c0a),174 REM PUANA GÖRE arza PRİNT "<CLR>':FOR Nz1 TO

İF KOL THEN 1050 IF KeL THEN 1268 GOTO

NEXT Mİ NEXT N PRİNT > TAK İMLAR <

7SPACE »G<2SPACE YRCASPACE SM YACASPACE *P<DOLM>"

FOR N-1 TO NN PRİNT N"<LEFT).. RINT TABC(22)BN) PRİNT CUP > "<UP* > PRİNT "<UP>"TABC35S)PCN) NEXT N PRİNT . HAFTA TOPLAM

GOL <38PACE 1: "TP PRİNT A GOL PRİNT "<7SPACEYMENUYE DONUS ICİN 'S PACE'<UP>" GOSUB IF * 6GOTO 1178 YTATSACNI) 1 SOCNİ *

GOoTO 1a5a REM BİLGİSAYARA YÜKLEME PRİNT "<CLRİ< YUKLEME ICİN BANTI HAZIRLAYIN," PRİNT "<DOLN>< 13SPACE HAZIR OLUNCA? İSSPACE ) 'SPACE'" GOSUB ÖPEN 1,1,0,R$

FOR Nz1 TO NN BENDE BEND 3 İNPUTH Lİ MCN)

İL YANIT NEXT N CLOSE 1 1070 REM BİLGİSAYARDAN KAYIT PRİNT "<CLR)"1 İF X&-"" THEN PRİNT " PRİNT |

CIN BANTI HAZIRLAYIN,"

PRİNT 13SPACE 16SPACE > '<DOM N>” GOSUB 2506 HAFTA" ÖPEN 1,1,1,R$ FOR TO NN

Lİ, NEXT N CLOSE 1 30 REM ses GET A$ aza GET A$:IF A&-"" THEN PETUPN RPEM HATA UYARISI POKE 514*4,0:POKE 31423,0 #POKE POKE PL,Pİ:POKE 5141,1 531.20:FOR TO 2300:NEXT ©