Bir Oyunumuz Var...

Ufuk Metin · 64'ler sayı 3, Haziran 1988 · sayfa 32, 33

Bu sayıda sizlere derginiz 64'ler'in yarışmasını kazanarak size kendisini tanıtan arkadaşımız Ufuk Metin'in kendi yazdığı bir oyunu sunuyoruz. Oynadığınızda bayağı zevk alacağınız, yabancı oyunlar kalitesinde olmasa bile hoşça vakit geçirmenize yarayacak bir oyun, döküm ekini çok dikkatli olarak yazınız. YAZMADAN ÖNCE.. Programı yazmaya başlamadan önce 1. sayımızda verdiğimiz Basic dili editörü'nü kasetten veya disketten yükleyerek çalıştırın. Daha sonra New yazarak bilgisayarın hafızasını boşaltın. Ve aşağıdaki listeyi öyle girin...

REM #ik
BA HEM & INIS BA
40 REH * #
50 REM & UFUK METİN *
Sö REM #4
FTA RET
Sö Zödü
5
TO RERD
1Ağ FOR TÜ
DO B.D:
POKE
POKE V.
FPOKE
CEOUFUK METINKASPACE>"
135 PRINT"<4DOWN, 11SPACEDATE
FOR Aziz
5 TUSUMA
FOR TO
IF THEN
FPOKE A
HO TEN
PRLMT"<0LRR"
64'ler dergisi 32
135
idi
145
50

Her satırı yazdığınızda kontrollerinizi mutlaka yapın. Hatanız varsa kontrol edip düzeltin. Tümünü yazdığınızda kasete veya diskete kaydetmeyi unutmayın. Sonra da proğramı çalıştırın... , ÖNEMLİ NOT: 1000 ve 1010 numaralı satırlarda çok dikkatli olun. Bu satırlarda gördüğünüz'C — 8 4 ' işareti size 'Commodore' tuşuyla beraber ' 4 ' tuşuna basmanız gerektiğini belirtmektedir. Sizinde kendi ürününüz olan proğramlar var ise onları da bize gönderin değerlendirelim. Hepinize iyi klavyeler.

Bö FOR
I
DE : Kapa
Yü
Hz" 128" CELAL
a3
Si
23 TRBC
3544!
21
4
ZA
HOME
215 PRIMT' TREC
1F TItak$ THEN <B12
POKE V+21,1 :POKE V+39,1
FORE NV: POKE
POKE
245 GET Fiş
245 IF HEN 476
250 CE >> AHD
25
255 17 THEN 3
1iğ
27B IF Red THEM :5OTÜ 3
ka
253 1F 3
iğ
2aö IF Rai THEN GÖTÜ 3
yu
335 IF Rez THEM 3
1ğ
öcü
5
5
5
Ra
Da)
THERE
THEM
THEH
Çk:
129 AKD
AKD
34 AKD
THEN
50TO
Fi 1:
POKE V+2,X: POKE V+3,7
bike,
RE. Bi ia
Hed, DEM >
154
Lo HE
FORE
FÖR İzi Tü
POÖKE
50T0
1
15
ZE
BE Md, FU
FÖKE M4, 12
>
FOR: Izi TO
THEH
KE Mae
FÖKE SE8
HEAT İ:POKE
50T0 Zi
120"
LE
GÖTÜ
IF THEN :
H#="100": GOTO 640
Sü
İF 5-5 THEN :
H#=" 90": GOTO 640
ZA"
İF 5-5 THEN :
Hiz" ZA"
ı1F Ze? :
TatısaTo sdü
THEH :
Hiz" dü
ı1F THEN :
H#=" 50": GOTO 640
sağ
iF THEH
: H$="
Eda
<
AKD
; THEM dim <
—izd
YVüzidd 4
FMO SHD
201 FMO AND
FOR TO
ÜRE
bü
ELİ
hi
Bi
Bi
Bi
Sal T
HEH SüTÜ CE
IF SEZ THEM :
H#="120": GOTO 640
> THEN :
H#="110": GOTO 640
—
Bi
dü
bil
KA
KS
Di
THEH Ki
sa"
THEN
5
Zia
WU Bir Iİ TT
1”
SKD
; 5
FOR! Izi TO
:50TO 118 <asa>
POKE Be POKE
Ng
ZE
FOÖKE
133
E FOR İsi TO 3
POKE Isi TO 3
Bü: HEKT
740 POKE W+4/0: RETURN
1000 PRINT"CODOWN, 16SPACE, 5C
1010 PRINT"CEDOWN,4SPACE, 16C
=&+, 5DOWN, 2SPACE, 10C=&+
>ẠỊ
1020 PRINT 04DOWND": PRINT"**
*******************C5SP
ACE**********
1025 PRINT******************
DE,
Ep
RİDE
CAFE
DATA Beli 45,5
DATA
DATA ES.
DATA
A, 1 EA
DATA
DATA
TATAR
DATA
DATA
DATA BE, katlı
BE. LAB
2090 DATA 2,2,0,0,32,0,0,0,0
2100 DATA 170,138/168/0,0,0,
DATA 2.
DATA 178,
MM.
DATA
DATA
b