Sayfa 29

ÖLETİNCE":END dön REM SURUCU NÜ DEĞİSTİRMEK <0B0> Lök BURUCU 2159; :PRİNT PRİNT YENİ NE "; ENPUT 20 EM FORMAT ATMA RUTİNİ 1190 > PÜRE Bid, FRİNT ATI LACAKRK KÖYÜNÜZ!" PİKE 046,10 PRİNT 15 ALMAZ. 10 KARANTER İş” <090> FRINT PRİNT NT :ERİNT FRİNT * EFE PRİNT “<ZUP> "SEC İNPUT PRİNT #ERİNT "EMİNMİLİNİZ GET THER 7

DİSKET DA LR GET a: 101P ZA: TREN 310 IF "RI" THEN 26 GÖTÜ a4 REM VALİDATE ETME ÖZÜR AN VaL ;

FOR Tsi OTO & KT DÜZENLİYOG ÜFEN 20 ü PE

YA ZİLMERİ FERİNT PRİNT 1S : NAS 15, 7

iF Z4-"H" GETİ Ee KEM DEĞİSTİRME ta

RERİRT BERNA EDE YENİ

NT ZPT THEN İP THEN Zi) Ge PRNO İL Üy O, GLA FUR si VeĞET De: PRINT PRİNT CET iP FT THEN: EYE “ 1:6 GTe Yaf FRİNI NS); FÜKE e <RVSONSRET URNA :

GET 2s: GOTO 20 REM HATA KANALI ÜPEN 1,6,15 PRİNT vr D CLOSE 1:RETURN REM DİSK İSMİ

GET Giz:iF THEN 950 1F THEN 1010 IF THEN 980 PRİNT

CLÖSE 15 PRİNT DİSKET DA HA ÇEŞHI" GET İF 1F öğü 20

POKE 53080,5:FÜKE Pen FOR TO ZO:PRİNT RR FOR TO Z200:NEXT PRİNT aca e şe e PRİNT -- FRİINT PRİNT *<£ PRİNT PRİNT MM ak

PRİNT RA PRİNT PRİNT