100 'Loverseny DEMO '84.1
110 C=0 : V%=0
120 DIM K%(12) : C=VARPTR(K%(0)) 'TARCIM
130 ' 128.129 ES 130.131 KOD DEFINIALASA
140 POKE C,0,0,2,2,62,94,30,20,36,35,0,0,0,0,0,0
145 POKE C+16,0,32,68,108,126,120,120,20,36,35
150 POKE 16459,C-256*INT(C/256),INT(C/256)
160 DIM LO%(5) ' LOVAK POZICIOJA
170 FOR C=0 TO 5 : LO%(C)=3 : NEXT C : CLS
180 PRINT CHR$(2)CHR$(4)" L O V E R S E N Y "CHR$(18)CHR$(20)
190 PRINT $4,41,"C" : PRINT $7,41,"E" : PRINT $10,41,"L"
200 FOR C=35 TO 160 : SET(248,C) : NEXT C
210 FOR C=1 TO 5 : PRINT $2*C+1,0,C;CHR$(128)CHR$(130) : NEXT C
220 POKE 16443,PEEK(16443) AND 127 'NMI TILOS
230 RANDOM : PRINT CHR$(6) 'ELOTORLES
240 FOR C=0 TO 500 : NEXT C
250 GOSUB 360 : GOSUB 360 : BEEP 50,400
260 'LOVAK MOZGATASA
270 V%=RND(5) : IF V%=0 THEN 270
280 PRINT $2*V%+1,LO%(V%),CHR$(5)" "CHR$(21)CHR$(128)CHR$(130)
290 BEEP 50+10*V%,3 'MOZGAS HANGJA
300 LO%(V%)=LO%(V%)+1 
310 IF LO%(V%)<>39 THEN GOTO 270 'TOVABB
320 PRINT $14,8,"GYOZOTT A"V%". PALYAN FUTO LO!"
330 FOR C=0 TO 2000 : NEXT C : PRINT CHR$(22)
340 POKE 16443,PEEK(16443)+128 : OUT 0,PEEK(16443) 'NMI MEHET!
350 GOTO 170 'KOVETKEZO FUTAM INDITASA
360 BEEP 50,50 : FOR C=0 TO 100 :  NEXT C : RETURN
370 END 'LOVERSENY
