100 'Lóverseny DEMO '84.1
110 C=0 : V%=0
120 DIM K%(12) : C=VARPTR(K%(0)) 'Tárcim
130 ' 128-129 és 130-131 kód definiálása
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 poziciója
170 FOR C=0 TO 5 : LO%(C)=3 : NEXT C : CLS
180 PRINT CHR$(2)CHR$(4)" L ó v e r s e n y "CHR$(18)CHR$(20)
190 PRINT $4,41,"C" : PRINT $7,41,"É" : 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) 'Előtörlés
240 FOR C=0 TO 500 : NEXT C
250 GOSUB 360 : GOSUB 360 : BEEP 50, 400
260 'Lovak mozgatása
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 'Mozgás hangja
300 LO%(V%)=LO%(V%)+1
310 IF LO%(V%)<>39 THEN 270 'Tovább!
320 PRINT $14,8, "Győzött a"V%". pályán futó ló!"
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 'Következő futam inditása
360 BEEP 50,50 : FOR C=0 TO 100 : NEXT C : RETURN
370 END 'Lóverseny