Kezdőlap

A szöveg csak Firefox böngészőben jelenik meg helyesen. Használja a fenti PDF file-ra mutató link-et a letöltésre.

Először szokásunkhoz híven lássunk néhány jó megoldást !
Ez a program ZX 81 gépre készült és Montvai Lászlótól származik:

10 PRINT ''KEREM A SZOVEGET:''
20 INPUT A

$

30 CLS
40 FOR I=1 TO LEN A

$

50 IF A

$

(I)=''E'' OR A

$

(I)=''U'' OR A

$

(I)=''I'' OR A

$

(I)=''O'' OR A

$

(I)=''A'' THEN PRINT
TAB I;A

$

(I);
60 NEXT I
70 PRINT AT 20, 0; ''HA FOLYTATHATJUK, NYOMJ''; AT 21, 13; ''MEG EGY BILLENTYUT!''
80 PAUSE 4E4
90 CLS
100 GO TO 10

A következő HT‐1080 gépre készült, Tóth 254 Zoltán programjának javított változata:

CLEAR 100: DIM M

$

(18)

10 FOR N=1 TO 18: READ M

$

(N): NEXT N
20 CLS: PRINT STRING

$

(64, 42)
30 INPUT ''A SZÖVEG''; A

$

: CLS: IF LEN(A

$

)= 0 THEN 30
40 FOR K=1 TO LEN (A

$

): B

$

= MID

$

$

, K, 1)
50 FOR J=1 TO 18; IF B

$

< >M

$

(J) THEN NEXT J:PRINT '' '';
GO TO 70
60 PRINT B

$

70 NEXT K: PRINT
80 PRINT ,,NYOMJ MEG EGY BILLENTYŰT HA MEHET!''
90 A

$

= INKEY

$

100 IF A

$

= '' '' THEN 90 ELSE 20
110 DATA A, Á, E, É, I, O, Ö, U, Ü, a, á, e, é, i, o, ö, u,ü