Sayfa 31

DATA 0,192,8,240,3,76,171,2,36 DIM FOR Rs1 TO REPRİNT FOR Rz8 TO /2856:NEXT R FOR TO 9:POKE 687,4:POKE 693,4: POKE POKE S R PRİNT 2 THEN PRİNT PRINT "ANIMATOR PRINT EKRAN DÜZENLEME<4SPACE > G)OSTERİ" PRINT METRELER * ET DAD ET PRİNT "CİKİS" PRİNT GET IF THEN 290 ON OTO ON OR ON 940 asa FOR Rsi TO IF UBz-1 AND BFsi THEN FOR TO 1 STEP 388 FOR TO NU 1108 FOR TÜ PACXXIINEXT PA GET " AND THEN 430 IF * GOTO 228 NEXT 368 GET A$tIF A$-"” THEN 448 RETURN THEN KOPY PRİNT "# EKRANINI”: 2 INPU T Ci PRİNT TCe PRINT "EKRAN FOR TO C3 POKE B93,PO<Ci,2) POKE 696,POCR,2) SYS 6739 NEKT R PRİNT "<CLR><2DOLİN)PARAMETRELER : <DO ” FOR R-s0 TO İF TH EN * *"<ASPACE >! A$INEXT PRINT “ARKAPLANCASPACE "BG PRINT "HI SCREEN u PRİNT T>* FOR Rs€ TO SEPRİNT Mü$; 3 INPUT PA<LR) R PRİNT İNPUT BG<1 OR BG>16 THEN PRİNT INPUT OR NÜ>393 THEN 576

"EKRAN "X1"DEN <4LEFT>": 2 INPU

PRINT : INPUT BF<>O AND BF <>1 THEN 578 POKE 52280,BG-İ:POKE 53281,BG-İ GOTO PRİNT DİSKETE SAVE ET:" PRINT "SAVE EDİLECEK ISMİ? PRINT "<CTAMAMLANINCA PRINT :PRİNT IF FI$-"CIKIS" THEN 220 PRINT :PRİNT :PRİNT "*x LÜTFEN BEKL EYİN xx" OPEN 15:0PE N 2,8,2,"0:"*Fis PRİNT#2 FOR TO R CLOSE £ OPEN 15,8,15,F3$:CLOSE 15 SYS 57812F2$,8:POKE 194, 7828:POKE 174,0:POKE 1İ75,152:5SYS 6295 4 PRINT :PRİNT SAVE EDİLİYOR":F OR TO 1000:NEXT R:G0TO

PRİNT MISINIZ?" GET OR AND "H" THEN 858 IF THEN 228 END PRINT İl

Anımator Booter

S1I$-z" ANIMATOR DATA DOSYAISM 1 BOOT EDİLECEK PROGRAM ADI

S3$-" ":REM PROGRAMI RUN EDECEK KO MUT DIM FOR TO