61
web linkleri / birkaç commodore dergisi...
« : 23.06.2009 05:31:24 »
O zaman, Türk Retro alemi olarak senden güzel haberler bekliyoruz Skate.
Bu özellik size üyenin attığı tüm iletileri gösterme olanağı sağlayacaktır . Not sadece size izin verilen bölümlerdeki iletilerini görebilirsiniz
aslında bu sayıları bir araya toplamak lazım,mesela ben sadece 6 sayı bulabildim,elimizdeki sayıları tarayıp koydukça,seti tamamlamış oluruz.
1 REM LASER SAVASI
15 RANDOMIZE
20 PRINT AT 10,0;"ACIKLAMA e/h": BEEP .05,2: BEEP .05,4
25 PAUSE 0
30 IF INKEY$="e" OR INKEY$="E" THEN GO SUB 8500
50 LET hs=0
60 RESTORE 9000: GO SUB 9000
70 PAPER 0: BORDER 5: INK 5: CLS
80 FOR f=0 TO 31: PRINT AT 0,f; PAPER 5;" ": NEXT f
90 FOR f=0 TO 31 STEP 31: FOR g=1 TO 21: PRINT AT g,f; PAPER 5;" ": NEXT g: NEXT f
100 LET k=0
110 FOR f=1 TO 9: FOR g=1 TO 9-k
120 PRINT AT f,g; PAPER 5;" "
130 NEXT g
140 LET k=k+1
150 NEXT f
160 LET k=0
170 FOR f=1 TO 9: FOR g=22+k TO 30
180 PRINT AT f,g; PAPER 5;" "
190 NEXT g
200 LET k=k+1
210 NEXT f
220 PRINT AT 12,15; PAPER 5;" ";AT 13,14;" ";AT 14,13;" ";AT 15,12;" "
230 FOR f=16 TO 21: FOR g=11 TO 20: PRINT AT f,g; PAPER 5;" ": NEXT g: NEXT f
240 LET k=10: LET p=21
250 FOR f=1 TO 10
260 PRINT AT f,k; INVERSE 1;"\a";AT f,p;"\b": REM A ve B grafik modda yazilmali
270 LET k=k-1: LET P=p+1
280 NEXT f
290 LET k=14: LET p=17
300 FOR f=12 TO 15
310 PRINT AT f,k;"\a";AT f,p;"\b": REM 'A ve'B' Grafikmodda yazilmalidir.
320 LET k=k-1: LET p=p+1
330 NEXT f
340 LET S=0: LET mi=0: LET C=1
350 IF s>hs THEN LET hs=S
360 PAPER 5: INK 0: PRINT AT 0,0;"PUAN ";s,"REKOR ";hs;AT 17,12;" KACAN ";AT 19,15;mi
370 LET h=INT (21+9*RND): LET v=21
380 IF C<20 THEN LET a$="\e": LET Co=2: REM 'E' Grafik WOdda...
390 IF c>=20 THEN LET a$="\d": LET co=6: REM 'D'grafik Odda...
400 LET g=5
410 PRINT PAPER 0;AT 21,1;" "
420 PAPER 0: INK 7: PRINT AT 21,g;" \c ": REM Grafik modda 'C'"
430 PRINT INK co;AT v,h;a$
440 IF INKEY$="b" THEN GO SUB 7900: IF g=30-h THEN GO TO 7100
450 LET g=g+(INKEY$="8" AND g<9)-(INKEY$="5" AND g>0)
460 LET vy=INT (RND*60-C)+1
470 IF vy<2 THEN PRINT AT V,h;" ": LET v=v-1
480 IF v=12 THEN GO TO 7500
500 IF RND<.15 AND h<30 THEN PRINT AT V,h;" ": LET h=h+1: GO TO 410
510 IF RND<.3 AND h>21 THEN PRINT AT V,h;" ": LET h=h-1
520 GO TO 410
7100 FOR q=1 TO 3: PRINT AT V,h; FLASH 1; BRIGHT 1; INK 2;"*": BEEP .001,50: BEEP .001,40: BEEP .001,20: BEEP
.002,1: NEXT q
7110 PRINT AT V,h;" "
7115 LET s=s+5+c*3: LET C=C+1
7120 GO TO 350
7500 PRINT FLASH 1; BRIGHT 1;AT v,h;"*": BEEP .05,-2: BEEP .05,-12: BEEP .02,-40: PRINT AT V,h;" ": LET
mi=mi+1
7505 IF mi=5 THEN GO TO 7600
7510 GO TO 350
7600 PRINT AT 10,13;"COK KACIRDINIZ": PAUSE 50: PRINT AT 5,1;"PUANINIZ ";s: FOR f=30 TO -30: BEEP .0025,f:
NEXT f: PRINT AT 20,3;"OYUN icin tusa basin"
7610 PAUSE 0
7620 GO TO 60
7900 BEEP .01,1: BEEP .01,15: BEEP .01,35
8000 BEEP .01,1: BEEP .01,15: BEEP .01,35
8010 PLOT g*8+12,9: DRAW 0,75+g*8: BEEP .01,30: PLOT OVER 1;g*8+12,9: DRAW OVER 1;0,75+g*8: BEEP .015,35
8020 PLOT g*8+12,9+(75+g*8): DRAW 232-g*16,0: PLOT OVER 1;g*8+12,9+(75+g*8): DRAW OVER 1,232-g*16,0
8030 PLOT (g*8+12)+(232-g*16),9+(75+g*8): DRAW 0,-(75+g*8): BEEP .0075,20: PLOT OVER 1;(g*8+12)+(232-
g*16),9+(75+g*8): DRAW OVER 1;0,-(75+g*8)
8040 RETURN
8500 PRINT ''TAB 10;"ATIS": PRINT "5-8 ILE POZISYON DEGISTIRIR B ILE LASER TOPUNUZU ATESLEY IN": PRINT "5
UZAYLI KACTIGINDA OYUN BITER": PRINT ''">>>": PAUSE 0: RETURN
9000 FOR f=144 TO 148: FOR n=0 TO 7: READ Z
9020 POKE USR CHR$ f+n,Z: NEXT n: NEXT f
9030 DATA 1,3,7,15,31,63,127,255
9031 DATA 128,192,224,240,248,252,254,255
9032 DATA 24,24,60,60,60,126,126,126
9033 DATA 60,126,219,219,126,60,66,129
9034 DATA 129,102,126,60,60,126,102,129
9040 RETURN