rejtveny_c64.bas

10 poke53280,3:poke53281,1:print"{clear}"
20 dimk$(20):s=22
30 a1$=chr$(3*s):a2$=chr$(3*s+3):a3$=chr$(100-s)
40 a4$=chr$(68):a5$=chr$(3*s+9):a6$=chr$(4*s-12)
50 s$=a1$+a2$+a3$+a2$+a4$+a2$+a5$+a2$+a6$+a2$+a5$
60 a=len(s$):a$=str$(a)
70 print"{down}{down}{down}{right}a szo{left}{up},{down}";a$;" betu{left}{up}R{down}bo{left}{up}R{down}l a{left}{up},{down}ll"
80 fori=1toa:k$(i)=mid$(s$,i,1):i$=str$(i)
90 print"{right}{down}{down}{blue}melyik a(z)";i$;". betu{left}{up}R{down}?"
100 input"{down}{right}{right}";l$:x=asc(l$):y=x-64
110 ifl$="0"thenprint"{down}{down}{down}{down}{down}{down}{down}{down}":end
120 ifl$>k$(i)then150
130 ifl$<k$(i)then180
140 ifl$=k$(i)then210
150 print"{down}       "
160 print"{right}{red}elo{left}{up}R{down}re{left}{up},{down}bb!{up}{up}{up}{up}{up}{up}{up}{up}"
170 goto90
180 print"{down}       "
190 print"{green}{right}ha{left}{up},{down}tra{left}{up},{down}bb!{up}{up}{up}{up}{up}{up}{up}{up}"
200 goto90
210 print"{down}       "
220 print"{right}tala{left}{up},{down}lat!"
230 goto240
240 poke1832+i,y
250 print"{up}{up}{up}{up}{up}{up}{up}{up}{up}"
260 next:print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":end