Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit: Tekstiskrolleri (VIC-20)

Sivun loppuun

visy [19.01.2004 09:39:59]

#

älä kopioi kommentteja vicille

by visy
kommentti alkaa ;

1 print chr$(147)                ; ruudun tyhjennys
5 for t = 1 to 100		 ; toisto 100 x
10 restore			 ; nollataan dataindeksi
20 for b = 1 to 61		 ; scrollin pituus
30 for p = 1 to pi		 ; haetaan oikea kohta
40 read lu$			 ; luetaan tyhjyyteen
50 next p
60 for a = 1 to 18
70 read lu$			 ; luetaan merkki
80 poke 781,10			 ; riville 10
90 poke 782,a			 ; kohtaan a
100 sys65520			 ; kutsutaan kursorinsiirtoa
110 print lu$			 ; tulostetaan
120 next a
121 restore
122 pi = pi + 1
130 next b
134 pi = 0
135 restore
136 next t
140 data .,t,u,k,k,a
150 data .,o,m,i,s,t
160 data a,a,.,c,o,d
170 data e,.,b,y,.,v
180 data i,s,y,.,f,o
190 data r,.,w,o,l,f
200 data .,i,n,.,2,0
210 data 0,0,4,.,.,.
220 data s,u,p,p,o,r
230 data t,.,v,i,c,2
240 data 0,.,.,.,.,.
250 data .,.,.,.,.,.
260 data .,.,.,.,.,.

kaviaari [22.01.2004 09:22:37]

#

Vic-20 on eväämättä paras kone :)

sooda [22.01.2004 11:21:44]

#

Mikä ihme on vic-20?

Quiz [22.01.2004 13:34:33]

#

Joku vanha kotitietokone...

visy [23.01.2004 10:56:54]

#

vic-20 on kiva :)

T.M. [24.01.2004 00:38:15]

#

Joku kone jonka näyttöön mahtuu 6x13 merkkiä? :D

anttipanda [18.07.2005 12:36:05]

#

"Mikä ihme on vic-20?"
"Joku vanha kotitietokone..."
"Joku kone jonka näyttöön mahtuu 6x13 merkkiä? :D"

Teinit:) Commodore on maailman paras tietokonemerkki:)

Kipperi [30.04.2006 23:00:22]

#

Harmillista etten elänyt kotitietokoneiden kulta-ajalla. Onneksi omistan vicin...:P Jupiter Lander :P

moptim [25.03.2007 11:56:57]

#

Kerpele, mulla ei ole. Kai toi QuickBasicilla toimisi...

moptim [19.05.2007 20:32:08]

#

Prkl, eipä taitas toimiakaan.

nörtti [22.12.2007 12:24:07]

#

Toimii ihan hyvin VICE emullaatorilla.

Iltanen [19.05.2008 17:07:35]

#

"Joku kone jonka näyttöön mahtuu 6x13 merkkiä? :D"
D44h, VICin näyttöön sopii 22x23 8x8 pikselin merkkiä. Kiva scrolli, ehkä postaan joskus pienen konekielisen alirutiinin niin sais pixeli kerrallaan tuon.

Hienoa että joku on tännekin postannut VICciasiaa.

Make1971 [22.11.2016 22:16:00]

# 

' näyttötila
SCREEN 1
' täysiruutu
'_FULLSCREEN
' ruudun tyhjennys
CLS
' toisto 100 x
FOR t = 1 TO 100
    ' nollataan dataindeksi
    RESTORE
    ' DATAA luetaan
    FOR b = 1 TO 26
        ' haetaan oikea kohta
        FOR p = 1 TO pi
            ' luetaan tyhjyyteen
            READ lu$
        NEXT p
        ' SCROLL-tekstin pituus
        FOR a = 5 TO 35
            _LIMIT 40 ' rajoita nopeutta
            ' luetaan merkki
            READ lu$
            ' riville 10, kohtaan a
            LOCATE 10, a
            ' tulostetaan
            PRINT lu$
        NEXT a
        RESTORE
        pi = pi + 1
    NEXT b
    pi = 0
    RESTORE
NEXT t
DATA .,N,„,i,n,.
DATA h,o,m,m,a,.
DATA t,o,i,m,i,i,.
DATA Q,B,6,4,.,l,l,a,.
DATA .,Y,e,a,r,.
DATA 2,0,1,6,.,.
DATA R,e,m,a,k,e,.
DATA M,.,S
DATA .,.,.,.,.,.

Sivun alkuun

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta