Sayfa 23

26) 00120 FOR 154 TO 1486 STEP 4:PRİNTH1,"B-P IF 1-72 THEN NEXT 001306 GET #2e,A$S:IF A$z"" THEN 08148 00156 TR>18:SE-İ 08168 IF THEN 325 88161 TUZ<SE)-İ 60162 PRINT#1,"Ul 2 #2,TR$:6 ET #2,SE$ 001786

00188 60198

FOR TO GET THEN 318 FLEFL*1 AND AND AND FOR 1153 TO 1İ8:PRINTH1İ,"B-P 3a*1lI GET #2,A$:IF A$z"" THEN A$zC$ IF THEN #2,L$:6 ET #a,H$ BLZ(ZG ,FL)SASCLHSA*CS) ) PRINT >"

08195 062068 80216

60230

00250 00255

00260 00265 086270 60288 686290

00388

60305

003186 NEXT 003206 IF THEN 168 868325 PRINT "BLOCKS FREE

1:CLOSE 2

<123> 00338 THEN 38 <876> 860348 OPEN 4 <aa7> (a2) : <229> 88345 FOR TO 2:PRİNT#L,DNSCI)"<4ASPACE <235> >"33NEXT 886358 PRINTH1 <a75> <179> 8686355 FOR TO :PR <187)> INT#1 <249> 88368 FOR 158 TO 143:FOR TO 28:1F <048> THEN 388 <ı124> <048> 88370 )4*"<3SPACE)”,3):NMSCT,1); "<aSPACE>" ; <849> 006375 GOT0 384 <065> 86386 IF THEN IF THEN IF THEN T-3:6G0T0 384 <1İ74> 68381 IF Tsi THEN IF THEN :GOTO 384 <868> 860382 IF Ts2 THEN 384 <227> 08383 <151) <B75)> 88384 NEXT 860385 IF NM$C8,1)-"" AND AND <19a> THEN 398 <225) <159> 08386 NEXT <076> 88398 FOR 1-8 TO 2 <065> 60391 FREE-"LEFT$(MID$CST <168> CE)"; <246> 88332 NEXT :PRİNTHİ:PRİNTHİ:CLÖSE 1 <158> 860395 PRİNT DURDURMAK ICIN «'E BASINIZ.... 886336 PRİNT TEKRAR İCİN HER <123> HANGI BIR TUS.. 90400 GET B$:1F B$-"* THEN 408 <147)> 66418 IF B$<)"e" THEN RUN <166> 88420 OPEN 4,4,6:PRIİNTH4,CHR$0C32):CLÜSE 4 <156)>

© PERİYODİK