Mezuak

Zabaldu:
Twitter
Facebook
Emaila

12 instrukzio-lerro nahikoa dira edozein luzerako mezua pantailaren eskuinaldetik ezkerralderantz pasatzen jardun erazteko nahi adina denboran zehar.

Programa honen aplikazioa edozein izan daiteke: dendetako erakusleihotan oharrak ikustarazteko, definizioak ezagutarazteko, oharrak edo datuak azaltzeko edo oraintxe pasa berriak ditugun hauteskundeetako programa politikoak eta sloganak zabaltzeko.

Programaren mamia, bi instrukzio-lerrotan dago.

20 LET L = LEN A$ eta 100 PRINT AT 11, Z; A$ (P TO U)

Lehendabizikoak A$ aldagaiaren (gure mezua hain zuzen) karaktere-kopurua L aldagaian gordetzen du.

Bigarrenak, A$ aldagaiaren (mezuaren) zati bat idazterazten du; P eta U zenbakizko aldagaiek adierazten duten zatia. Adibide batekin berehalaxe ulertuko duzu.

Demagun Elhuyar-eko Robot industrialak bideoari buruz mezu bat ipini nahi dugula. Hauxe bera:

"BEREZ ASTUNA DEN GAI BATEZ HOGEI MINUTU GUSTORA PASA NAHI BADITUZU, SALGAI DAGO JADANIK ROBOT INDUSTRIALAK BIDEOA (Informazio gehiago nahi izanez gero, jo ELHUYARera Urbieta kalea 7. Telefono

429945)".

Mezu honek 200 karaktere ditu, espazioak barne. Beraz 20. instrukzio-lerroak LET L=LEN A$ egikaritzen (exekutatzen) denean, L=200 balioko du. Ondoren pantailaren eskuinaldean mezuaren lehen letra inprimatuko du; P=1 eta U=1 gero lehenengo biak P=1 U=2 [A$ (P TO U)] eta honela mezu osoa idatzi arte. Ikus irudiak.

Pantailan 32 karaktere baino gehiago ez dira sartzen lerro horizontal batean. Beraz: mezua 32 karaktere baino luzeagoa denean, 33. karakterea inprimatzeko P+1 egiten da; hau da:

Mezua amaitzeko beti hutsune batez amaitu behar da. Bestela mezuko azken karakterea 32 bider errepikatuko da pantaila itsusituaz.

Mezua aldatzeko nahikoa da 10 LET A$=" mezua ...... " egitea ondoren ENTER eta RUN sakatu.

PROGRAMA

1 REM "MEZUAK J.M. ITURRIOTZ 1986 ©"
10 LET A$ = "BEREZ ASTUNA DEN GAI BATEZ HOGEI MINUTU GUSTORA PASA NAHI BADITUZU, SALGAI DAGO JADANIK ROBOT INDUSTRIALAK BIDEOA (Informazio gehiago nahi izanez gero, jo ELHUYARera Urbieta kalea 7. Telefonoa 429945"
20 LET L = LEN A$ :REM "Mezuaren karaktere-kopurua gorde"
30 LET Z = 31 :REM "0-31 bitarteko karaktere-lerroa ireki"
40 LET P = 1 :REM "Mezuaren lehen letra"
50 LET U = 1 :REM "Mezuaren luzera aldakorra kontrolatzeko aldagaia"
100 PRINT AT 12, Z; A$ (P TO U) :REM "Mezua idatzi"
110 PAUSE 7 :REM "Mezuaren abiadura kontrolatzeko"
120 IF U L THEN LET U = U + 1
130 LET Z = Z - 1
140 IF Z = -1 AND U = L THEN LET Z = 0 : LET P = P + 1
150 IF P L THEN GOTO 30 : REM "Idatz berriro mezu osoa"
160 GOTO 100 :REM "jarraitu mezua osatu arte"

Oharra: REM instrukzioak ez dute inolako eraginik programan. REM instrukziorik gabe berdin funtzionatzen du.