Sayfa 49

96

ÜTÜS7

99 GOTO7E

100 D

101 töz 103 104 105 106 107 108 109 110 siz 118 ila 115 116 diz 118 119 izo izi 122 123 iza 125 126 ız? 128 120 130 131 1338 FERİ 135 136 137 138 159 140 144 143 145 146 147 148 tan 150 151 192 153 154 155 156 157 158 159 160 4361 162 163 165 166

3 GOSUB6S HEXS DÖKÜM BASLANGIC ADRESİ 2) 2) PRİNTPS;” TO 19 TECK<3ZORCK)9STHENCHS3Z NEXT PRİNT GETA$ : İF GÜTOL0S <204> İNPUT"DATA DOKUMU BASLANGIC ADRESİ 2) 2) TO 9 PRİNT" NEXT PRİNT 60T0118 İNPUT"DİSK OR TEYP ADİ (1-6 KARAKTER) POKESZ0, LENCAS) PRİNT OP#;"BASLANGIC ADRESİ 2) DEC (PS, 2) :GOSUBS8 :PÜKEZSZ, DEC: PRİNT ADRESİ İNPUTASÖ,PS:FRİNT 2) DEC 2) :POKE1OZÜ, DEC RESTORE : READAS : NEXT FORRSÖTÜ26 :READA Z-0:5YS679 RETURN İNPUT"CODE'UN ADRESİ 2) 2) :GOSUBSÖ:PER*DEC T SYS(P) AR XR O YR SP" OT (780) 781) :G0SUBES 2 186 :POKES21, 2 PRİNT" REM REM REM REM REM REM TUSA 1 RETURN REM

EFTSCAS, 1): 1

<197> <037> <250> <039> <107> <126> <098> <221> <azı> <1B0> <215> <002>

<046> <ı20> <231> <067> <227> <165> <079> <073> <032> <252> <ize> <080> <173> <126> <163> <017> <175> <17a> <175> <058> <160> <059> <212> <1s0> <169> <222> <050> <301> <108> <078> <086> <1365> <z20> <221> <222> <223> <224> <225> <2z8)