PPArkisto

C64 ohjelmat

Muut konsolit ja retro

Sivu 1 / 1

Viestit

Sivu 1 / 1
Rekisteröitynyt:
09.03.2005
Kirjoitettu: tiistai, 07. kesäkuuta 2005 klo 20.20
Muokattu: 08.06.2005 klo 11.21
Elikkäs tänne alueelle laitettais c64 ohjelmia (lähdekoodi), pieniä tahi suuria, ihan miten vaan. Jos tänne alkaa koodia kertyä, niin toivon että niistä on kaikille hyötyä basic-ohjelmoinnissa. smile

Tässäpä esimerkkinä pikku ohjelmanpoikanen:

10 PRINT "1"
20 PRINT "11"
30 PRINT "111"
40 PRINT "1111"
50 PRINT "11111"
60 PRINT "111111"
70 PRINT "1111111"
80 PRINT "11111111"
90 PRINT "111111111"
100 PRINT "1111111111"
110 PRINT "11111111111"
120 PRINT "1111111111"
130 PRINT "111111111"
140 PRINT "11111111"
150 PRINT "1111111"
160 PRINT "111111"
170 PRINT "11111"
180 PRINT "1111"
180 PRINT "111"
180 PRINT "11"
190 GOTO 10
RUN


tämä "ohjelmanpoikanen" siis printtaa jatkuvastimuuttuvaa kuviota, kokeile niin näet...smile
"Jotta emme unohtaisi yhteisön pyrkimyksiä, todettakoon, että paska auttaa käyttäjää ymmärtämään järjestelmän ulkopuolelle jääneitä epäonnistuneita prosesseja."
Rekisteröitynyt:
10.12.2002
Kirjoitettu: tiistai, 07. kesäkuuta 2005 klo 23.11
10 input "onkos vähän pöljä ketju?";kys
20 if kys="joo" goto 120
110 end
120 print "Totta!"
130 goto 110

Menikö oikein?
Rekisteröitynyt:
15.10.2004
Kirjoitettu: keskiviikko, 08. kesäkuuta 2005 klo 00.15
Lainaus:07.06.2005 Evilhead kirjoitti:
10 input "onkos vähän pöljä ketju?";kys
20 if kys="joo" goto 120
110 end
120 print "Totta!"
130 goto 110

Menikö oikein?

Kyllähän tässä ketjussa voisi olla ihan järkeäkin jos vain esim. ketjun aloittaja mainitsisi viestissään että millainen ohjelmanpoikanen on kyseessä.
Rekisteröitynyt:
11.03.2005
Kirjoitettu: keskiviikko, 08. kesäkuuta 2005 klo 09.03
10 let a=a+1
20 print "a"
30 if a>1000 goto 50
40 goto 10
50 print "Käytät liikaa aikaa koneen ääressä! Mars lenkille!"
60 end
Stage One Boss: "Mad Zella"Dell 9300 >BR>Atari 520 StfmCommodore 64Sega Sc-3000 H
Rekisteröitynyt:
14.05.2001
Kirjoitettu: perjantai, 10. kesäkuuta 2005 klo 00.18
ezkimoukko, dollari taisi unohtua.

10 PRINT "LADATAAN SAMANTHA FOX STRIP POKER"
20 PRINT INPUT "MIKÄ ON SALASANA";PASS$
30 IF PASS$ = "PYYHEKUMI" THEN GOTO 100
40 PRINT "VAARIN!! FORMATOIDAAN FLOPPY..."
50 GOTO 40
100 LOAD"SAMANTHA",8

^ Täysin turha salasanan tarkistus
They'll tear you apart, bone by bone and build with you a human throne...This key unlocks gates of hell. Steady traveler, use it well   koti.mbnet.fi/pyyhis - www.v2.fi/pelit/
Rekisteröitynyt:
15.10.2004
Kirjoitettu: perjantai, 10. kesäkuuta 2005 klo 01.10
Lainaus:10.06.2005 Pyyhekumi kirjoitti:
ezkimoukko, dollari taisi unohtua.

10 PRINT "LADATAAN SAMANTHA FOX STRIP POKER"
20 PRINT INPUT "MIKÄ ON SALASANA";PASS$
30 IF PASS$ = "PYYHEKUMI" THEN GOTO 100
40 PRINT "VAARIN!! FORMATOIDAAN FLOPPY..."
50 GOTO 40
100 LOAD"SAMANTHA",8

^ Täysin turha salasanan tarkistus

Mihin minä dollaria tuossa viestissäni olisin tarvinnut? Voithan sinä lähettää minulle postissa dollareita. cool
Rekisteröitynyt:
09.03.2005
Kirjoitettu: perjantai, 10. kesäkuuta 2005 klo 14.32
Lainaus:10.06.2005 Pyyhekumi kirjoitti:
ezkimoukko, dollari taisi unohtua.

10 PRINT "LADATAAN SAMANTHA FOX STRIP POKER"
20 PRINT INPUT "MIKÄ ON SALASANA";PASS$
30 IF PASS$ = "PYYHEKUMI" THEN GOTO 100
40 PRINT "VAARIN!! FORMATOIDAAN FLOPPY..."
50 GOTO 40
100 LOAD"SAMANTHA",8

^ Täysin turha salasanan tarkistus

Eipä toimi ei... "?SYNTAX ERROR IN 20"
"Jotta emme unohtaisi yhteisön pyrkimyksiä, todettakoon, että paska auttaa käyttäjää ymmärtämään järjestelmän ulkopuolelle jääneitä epäonnistuneita prosesseja."
Rekisteröitynyt:
14.05.2001
Kirjoitettu: perjantai, 10. kesäkuuta 2005 klo 22.41
Hmm.. tarkistin vielä emulla että se toimii, ja toimihan se.
Tarkistappas sä että se on varmasti ; eikä :
[kuva]
They'll tear you apart, bone by bone and build with you a human throne...This key unlocks gates of hell. Steady traveler, use it well   koti.mbnet.fi/pyyhis - www.v2.fi/pelit/
Rekisteröitynyt:
02.11.2003
Kirjoitettu: maanantai, 13. kesäkuuta 2005 klo 14.55
GOTO-helvettiä.
TiLTin käyttäjäprofiili. All your base are belong to us.
Sivu 1 / 1