1 ORG 7000H
   2 LOAD 7000H
   3 SCREEN:EQU 3C00H
   4 KEZDSEB:EQU 8000
   5 GYORSUL:EQU 7
   6 MAXSEB:EQU 1500
   7 AKTAV0:EQU 32
   8 PROGRAM:LD HL,SCREEN2
   9 LD DE,SCREEN2+1
  10 LD BC,1023
  11 LD (HL),32
  12 LDIR
  13 LD A,32
  14 LD (POS),A
  15 XOR A
  16 LD (FAZIS),A
  17 LD HL,KEZDSEB
  18 LD (SZUNET),HL
  19 LD HL,PONT
  20 LD (HL)," "
  21 INC HL
  22 LD (HL)," "
  23 INC HL
  24 LD (HL)," "
  25 INC HL
  26 LD (HL)," "
  27 INC HL
  28 LD (HL),"0"
  29 LD HL,0
  30 LD (TAV),HL
  31 LD A,7
  32 LD (AKFAZIS),A
  33 LD A,AKTAV0
  34 LD (AKTAV),A
  35 LD A,5
  36 LD (ELETEK),A
  37 LD A,0
  38 LD (AK1000),A
  39 CIKLUS:CALL SCROLL
  40 CALL AKADALY
  41 CALL AKA1000
  42 C1:LD HL,(KEZDET)
  43 INC HL
  44 PUSH HL
  45 LD DE,3000H
  46 OR A
  47 SBC HL,DE
  48 POP HL
  49 JR C,RAND1
  50 LD HL,0
  51 RAND1:LD (KEZDET),HL
  52 XOR A
  53 OR (HL)
  54 JR Z,C1
  55 LD A,(MIVOLT)
  56 ADD A,(HL)
  57 LD (MIVOLT),A
  58 LD HL,SCREEN2
  59 LD D,0
  60 AND 63
  61 LD E,A
  62 ADD HL,DE
  63 LD (HL),191
  64 LD A,(POS)
  65 LD HL,14400
  66 BIT 5,(HL)
  67 CALL NZ,BALRA
  68 BIT 6,(HL)
  69 CALL NZ,JOBBRA
  70 LD (POS),A
  71 LD E,A
  72 LD D,0
  73 LD HL,SCREEN2+960
  74 ADD HL,DE
  75 LD A,191
  76 CP (HL)
  77 JP Z,UTKOZES
  78 INC HL
  79 CP (HL)
  80 JP Z,UTKOZES
  81 INC HL
  82 CP (HL)
  83 JP Z,UTKOZES
  84 DEC HL
  85 DEC HL
  86 EX DE,HL
  87 LD HL,KOCSI
  88 LD BC,3
  89 LDIR
  90 EX DE,HL
  91 DEC HL
  92 DEC HL
  93 DEC HL
  94 LD A,(FAZIS)
  95 INC A
  96 AND 3
  97 LD (FAZIS),A
  98 LD B,A
  99 INC A
 100 SRL A
 101 LD E,A
 102 LD D,0
 103 ADD HL,DE
 104 LD A,B
 105 BIT 0,A
 106 JR Z,VAGY8
 107 LD A,4
 108 JR SZEM
 109 VAGY8:LD A,8
 110 SZEM:OR (HL)
 111 DB 77H; LD (HL),A
 112 CALL FLIP
 113 CIKLUSXX:CALL PONTNOV
 114 CALL ELETNOV
 115 CALL TAVNOV
 116 LD DE,SCREEN
 117 CALL PONTIR
 118 CALL MAXPIR
 119 CALL ELETIR
 120 LD HL,(SZUNET)
 121 LD DE,GYORSUL
 122 OR A
 123 SBC HL,DE
 124 LD (SZUNET),HL
 125 LD DE,MAXSEB
 126 OR A
 127 SBC HL,DE
 128 JR NC,SEBOK
 129 LD HL,MAXSEB
 130 LD (SZUNET),HL
 131 SEBOK:LD HL,(SZUNET)
 132 LD B,H
 133 LD C,L
 134 CALL 0060H
 135 JP CIKLUS
 136 UTKOZES:LD A,(ELETEK)
 137 DEC A
 138 LD (ELETEK),A
 139 JR Z,GAMEOVR
 140 LD HL,SCREEN
 141 LD DE,SCREEN+1
 142 LD (HL),191
 143 LD BC,1023
 144 LDIR
 145 JP CIKLUSXX
 146 GAMEOVR:LD HL,0
 147 LD A,16
 148 C2:PUSH AF
 149 LD DE,15360
 150 LD BC,1024
 151 LDIR
 152 LD BC,3000
 153 CALL 0060H
 154 POP AF
 155 DEC A
 156 JR NZ,C2
 157 CALL 01C9H
 158 LD DE,SCREEN+541
 159 CALL PONTIR
 160 C3:LD A,(14400)
 161 BIT 0,A
 162 JP NZ,PROGRAM
 163 BIT 1,A
 164 JP NZ,1A19H
 165 JR C3
 166 SCROLL:LD HL,SCREEN2+959
 167 LD DE,SCREEN2+1023
 168 LD B,15
 169 C4:PUSH BC
 170 LD BC,64
 171 LDDR
 172 POP BC
 173 DJNZ C4
 174 LD B,64
 175 INC HL
 176 SORTORL:LD (HL),32
 177 INC HL
 178 DJNZ SORTORL
 179 RET
 180 BALRA:DEC A
 181 BIT 7,(HL)
 182 JR Z,BALRA1
 183 DEC A
 184 BALRA1:CP 128
 185 RET C
 186 XOR A
 187 RET
 188 JOBBRA:INC A
 189 BIT 7,(HL)
 190 JR Z,JOBBRA1
 191 INC A
 192 JOBBRA1:CP 62
 193 RET C
 194 LD A,61
 195 RET
 196 ELETNOV:LD A,(PONT+4)
 197 CP "0"
 198 RET NZ
 199 LD A,(PONT+3)
 200 CP "0"
 201 RET NZ
 202 LD HL,ELETEK
 203 INC (HL)
 204 LD A,(PONT+2)
 205 CP "0"
 206 RET NZ
 207 LD HL,AK1000
 208 INC (HL)
 209 RET
 210 PONTNOV:LD HL,PONT+4
 211 LD B,5
 212 PONTNO1:DB 7EH; LD A,(HL)
 213 INC A
 214 CP "9"+1
 215 JR C,PONTNO2
 216 LD A,"0"
 217 PONTNO2:DB 77H; LD (HL),A
 218 RET C
 219 DEC HL
 220 DB 7EH; LD A,(HL)
 221 CP " "
 222 JR NZ,PONTNO3
 223 LD (HL),"0"
 224 PONTNO3:DJNZ PONTNO1
 225 RET
 226 PONTIR:LD HL,PONT
 227 LD BC,5
 228 LDIR
 229 RET
 230 MAXPIR:LD DE,SCREEN+57
 231 LD HL,MAXPONT
 232 LD BC,5
 233 LDIR
 234 RET
 235 TAVNOV:LD HL,(TAV)
 236 INC HL
 237 LD (TAV),HL
 238 EX DE,HL
 239 LD HL,(MAXTAV)
 240 OR A
 241 SBC HL,DE
 242 RET NC
 243 LD DE,MAXPONT
 244 CALL PONTIR
 245 LD HL,(TAV)
 246 LD (MAXTAV),HL
 247 RET
 248 AKADALY:LD HL,AKTAV
 249 DEC (HL)
 250 RET NZ
 251 LD (HL),AKTAV0
 252 LD A,(AKFAZIS)
 253 INC A
 254 AND 7
 255 LD (AKFAZIS),A
 256 LD E,A
 257 LD D,0
 258 LD HL,AKPOZ
 259 ADD HL,DE
 260 DB 7EH; LD A,(HL)
 261 LD C,A
 262 LD HL,AKH
 263 ADD HL,DE
 264 DB 7EH; LD A,(HL)
 265 LD E,A
 266 LD B,0
 267 LD HL,SCREEN2
 268 ADD HL,BC
 269 LD (HL),191
 270 LD C,E
 271 INC HL
 272 LD D,H
 273 LD E,L
 274 DEC HL
 275 LDIR
 276 RET
 277 AKA1000:LD A,(AK1000)
 278 OR A
 279 RET Z
 280 XOR A
 281 LD (AK1000),A
 282 LD HL,SCREEN2
 283 LD DE,SCREEN2+1
 284 LD BC,63
 285 LD (HL),191
 286 LDIR
 287 RET
 288 ELETIR:LD HL,SCREEN+29
 289 LD DE,SCREEN+30
 290 LD (HL),"["
 291 LD A,(ELETEK)
 292 LD C,A
 293 DEC C
 294 RET Z
 295 LD B,0
 296 LDIR
 297 RET
 298 AKPOZ:DB 0,16,32,48,48,32,16,0
 299 AKH:DB 15,15,15,15,15,15,15,15
 300 POS:DB "#"
 301 MIVOLT:DB "#"
 302 KEZDET:DB "##"
 303 KOCSI:DB 166,179,153
 304 FAZIS:DB "#"
 305 SZUNET:DB "##"
 306 TAV:DB "##"
 307 MAXTAV: DW 0
 308 AKTAV:DB "#"
 309 AKFAZIS:DB "#"
 310 PONT:DB "99999"
 311 MAXPONT:DB "    0"
 312 ELETEK:DB "#"
 313 AK1000:DB "#"
 314 FLIP:LD HL,SCREEN2
 315 LD DE,SCREEN
 316 LD BC,1024
 317 LDIR
 318 RET
 319 SCREEN2:DS 1024
 320 END