rem matrix 
device 16f877
Config lvp_off, boden_on, pwrte_on, debug_off, wdt_off, hs_osc
declare hs 20
dim aa
dim ab
dim au
dim at
Dim a
Dim b
Dim C
Dim D
Dim e
Dim F
Dim g
Dim po as byte         'potméter
Dim freq as byte       'képváltás frekvencia
Dim pr 'program száma
Dim S  'adat sorok száma
Dim u  'véletlen szám
Dim kij 'pr kijelző
Dim x
Dim y
dim xpg
Dim z 
Dim vis as word 'visszaállítás
dim w
dim asz as word 'abra számláló

trisa=0
trisb=7
trisc=0
trisd=0
----------------------------------------------------------
kezd:
portb.5=0
If PORTB.1 = 0 Then szun
xpg=eread 2            'bekapcsolási értékek kiolvasása
if xpg=1 then x=eread 4
if xpg=1 then rapg
pr = eread 40
if pr=39 then auto
Goto tart
szun:                  'bekapcsolási értékek beállítása
pr=36
x=1
gosub beirx
delayms 400
If PORTB.1 = 0 Then szun
Goto tart
---------------------------------------------------------
'Minden adatsor hét tagból áll!
'Minden adatsor egy teljes képet jelent!

data 8,0,0,0,0,0,0             'nyíl le (14)
data 28,8,0,0,0,0,0
data 62,28,8,0,0,0,0
data 127,62,28,8,0,0,0
data 28,127,62,28,8,0,0
data 28,28,127,62,28,8,0
data 28,28,28,127,62,28,8
data 0,28,28,28,127,62,28
data 0,0,28,28,28,127,62
data 0,0,0,28,28,28,127
data 0,0,0,0,28,28,28
data 0,0,0,0,0,28,28
data 0,0,0,0,0,0,28
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,8               'nyíl fel (14)
data 0,0,0,0,0,8,28
data 0,0,0,0,8,28,62
data 0,0,0,8,28,62,127
data 0,0,8,28,62,127,28
data 0,8,28,62,127,28,28
data 8,28,62,127,28,28,28          '01 (pr. száma)
data 28,62,127,28,28,28,0
data 62,127,28,28,28,0,0
data 127,28,28,28,0,0,0
data 28,28,28,0,0,0,0
data 28,28,0,0,0,0,0
data 28,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,1,0,0,0              'nyíl balra (14)
data 0,0,1,3,1,0,0
data 0,1,3,7,3,1,0
data 1,3,7,15,7,3,1
data 2,6,15,31,15,6,2
data 4,12,31,63,31,12,4
data 8,24,63,127,63,24,8
data 16,48,126,126,126,48,16
data 32,96,124,124,124,96,32
data 64,64,120,120,120,64,64
data 0,0,112,112,112,0,0
data 0,0,96,96,96,0,0
data 0,0,64,64,64,0,0
data 0,0,0,0,0,0,0
data 0,0,0,64,0,0,0              'nyíl jobbra (14)
data 0,0,64,96,64,0,0
data 0,64,96,112,96,64,0
data 64,96,112,120,112,96,64
data 32,48,120,124,120,48,32
data 16,24,124,126,124,24,16
data 8,12,126,127,126,12,8
data 4,6,63,63,63,6,4
data 2,3,31,31,31,3,2             '(összesen s=56)
data 1,1,15,15,15,1,1
data 0,0,7,7,7,0,0
data 0,0,3,3,3,0,0
data 0,0,1,1,1,0,0
data 0,0,0,0,0,0,0

data 64,64,64,64,64,64,64        'futófény (s=20) 
data 96,96,96,96,96,96,96
data 112,112,112,112,112,112,112  '02 (pr. száma)
data 104,104,104,104,104,104,104
data 84,84,84,84,84,84,84
data 42,42,42,42,42,42,42
data 21,21,21,21,21,21,21
data 11,11,11,11,11,11,11
data 7,7,7,7,7,7,7
data 3,3,3,3,3,3,3
data 1,1,1,1,1,1,1
data 3,3,3,3,3,3,3
data 7,7,7,7,7,7,7
data 11,11,11,11,11,11,11
data 21,21,21,21,21,21,21
data 42,42,42,42,42,42,42
data 84,84,84,84,84,84,84
data 104,104,104,104,104,104,104
data 112,112,112,112,112,112,112
data 96,96,96,96,96,96,96

data 96, 96, 0, 0, 0, 3, 3  'ütközés (22)
data 0, 48, 48, 0, 6, 6, 0
data 0, 0, 24, 28, 12, 0, 0
data 0, 6, 6, 0, 48, 48, 0  '03
data 3, 3, 0, 0, 0, 96, 96
data 3, 3, 0, 0, 0, 96, 96
data 0, 6, 6, 0, 48, 48, 0
data 0, 0, 12, 28, 24, 0, 0
data 0, 48, 48, 0, 6, 6, 0
data 96, 96, 0, 0, 0, 3, 3
data 96, 96, 0, 0, 0, 3, 3  
data 0, 48, 48, 0, 6, 6, 0
data 0, 0, 24, 28, 12, 0, 0
data 0, 6, 6, 0, 48, 48, 0  
data 3, 3, 0, 0, 0, 96, 96
data 3, 3, 0, 0, 0, 96, 96
data 0, 6, 6, 0, 48, 48, 0
data 0, 0, 12, 28, 24, 0, 0
data 0,0,20,34,18,4,0
data 0,34,0,65,0,33,2
data 65,0,0,0,0,0,64
data 0,0,0,0,0,0,0

data 127,0,0,0,0,0,0          'potyog (39)
data 0,127,0,0,0,0,0
data 0,0,127,0,0,0,0
data 0,0,0,127,0,0,0
data 0,0,0,0,127,0,0
data 0,0,0,0,0,127,0
data 0,0,0,0,0,0,127
data 127,0,0,0,0,0,127          
data 0,127,0,0,0,0,127          '04
data 0,0,127,0,0,0,127
data 0,0,0,127,0,0,127
data 0,0,0,0,127,0,127
data 0,0,0,0,0,127,127
data 127,0,0,0,0,127,127          
data 0,127,0,0,0,127,127
data 0,0,127,0,0,127,127
data 0,0,0,127,0,127,127
data 0,0,0,0,127,127,127
data 127,0,0,0,127,127,127          
data 0,127,0,0,127,127,127
data 0,0,127,0,127,127,127
data 0,0,0,127,127,127,127
data 127,0,0,127,127,127,127          
data 0,127,0,127,127,127,127
data 0,0,127,127,127,127,127
data 127,0,127,127,127,127,127          
data 0,127,127,127,127,127,127
data 127,127,127,127,127,127,127

data 62,62,62,62,62,62,62
data 28,28,28,28,28,28,28
data 8,8,8,8,8,8,8
data 8,8,8,8,8,8,0
data 8,8,8,8,8,0,0
data 8,8,8,8,0,0,0
data 8,8,8,0,0,0,0
data 8,8,0,0,0,0,0
data 8,0,0,0,0,0,0
data 28,0,0,0,0,0,0
data 62,0,0,0,0,0,0

data 8,20,34,34,34,65,0       'sinus (8)
data 4,10,17,17,17,32,64
data 2,5,8,8,8,80,32
data 1,2,68,68,68,40,16    '05
data 0,65,34,34,34,20,8
data 64,32,17,17,17,10,4
data 32,80,8,8,8,5,2
data 16,40,68,68,68,2,1

data 0,0,0,0,7,5,7      'sétáló négyzet (32)
data 0,0,0,0,7,5,7
data 0,0,0,0,7,5,7           
data 0,0,0,7,7,7,7      
data 0,0,7,5,7,5,7      '06
data 0,7,5,7,7,5,7
data 7,5,7,0,7,5,7
data 15,15,15,0,7,5,7
data 31,21,31,0,7,5,7
data 63,45,63,0,7,5,7
data 119,85,119,0,7,5,7
data 119,117,119,112,7,5,7
data 119,85,119,80,119,5,7
data 119,85,119,112,87,117,7
data 119,85,119,0,119,85,119
data 119,85,119,0,119,85,119
data 119,85,119,0,119,85,119
data 119,85,119,7,117,87,112
data 119,85,119,5,119,80,112
data 119,87,119,7,112,80,112
data 119,85,119,0,112,80,112
data 126,90,126,0,112,80,112
data 124,84,124,0,112,80,112
data 120,120,120,0,112,80,112
data 112,80,112,0,112,80,112
data 0,112,80,112,112,80,112
data 0,0,112,80,112,80,112
data 0,0,0,112,112,112,112
data 0,0,0,0,112,80,112
data 0,0,0,0,56,40,56
data 0,0,0,0,28,20,28
data 0,0,0,0,14,10,14

data 127,62,28,8,20,34,65  'homokóra (14)
data 127,62,28,8,20,34,65
data 127,62,28,0,28,34,65
data 127,62,20,8,20,42,65 
data 127,54,28,0,28,34,73  '07
data 127,42,20,8,20,42,85
data 65,62,28,0,28,34,127
data 65,62,20,8,20,42,127
data 65,54,28,0,28,54,127
data 65,42,20,8,20,62,127
data 65,34,28,0,28,62,127
data 65,34,20,8,28,62,127
data 65,34,20,8,28,62,127
data 0,0,0,0,0,0,0

data 124,0,0,28,28,0,126    'lefolyó (14)
data 126,0,0,24,28,64,124
data 63,0,0,24,88,64,120
data 31,1,0,88,80,64,112   '08
data 15,1,65,88,64,64,96
data 7,1,97,73,64,64,64
data 3,1,113,65,65,64,0
data 1,1,121,65,65,1,0
data 0,1,125,65,1,1,1  
data 0,0,125,5,1,1,3
data 64,0,60,5,5,1,7
data 96,0,28,4,13,1,15
data 112,0,12,4,28,1,31
data 120,0,4,20,28,0,63

data 28,28,28,28,28,28,28  'kereszt (8)
data 28,28,93,65,93,28,28
data 28,28,99,99,99,28,28
data 28,0,119,119,119,0,28  '09
data 0,0,127,127,127,0,0
data 28,0,119,119,119,0,28
data 28,28,99,99,99,28,28
data 28,28,93,65,93,28,28

data 0, 0, 0, 8, 0, 0, 0     'radar  (27)
data 0, 0, 8, 8, 0, 0, 0
data 0, 8, 8, 8, 0, 0, 0
data 8, 8, 8, 8, 0, 0, 0
data 1, 2, 4, 8, 0, 0, 0       '10
data 0, 0, 0, 15, 0, 0, 0
data 0, 0, 0, 8, 4, 2, 1
data 0, 0, 0, 8, 8, 8, 8
data 0, 0, 0, 8, 16, 32, 64
data 0, 0, 0, 120, 0, 0, 0
data 64, 32, 16, 8, 0, 0, 0
data 8, 8, 8, 8, 0, 0, 0
data 9, 10, 12, 8, 0, 0, 0
data 9, 10, 12, 15, 0, 0, 0
data 9, 10, 12, 15, 4, 2, 1
data 9, 10, 12, 15, 12, 10, 9
data 9, 10, 12, 15, 28, 42, 73
data 9, 10, 12, 127, 28, 42, 73
data 73, 42, 28, 127, 28, 42, 73
data 65, 34, 20, 127, 28, 42, 73
data 64, 32, 16, 127, 28, 42, 73
data 64, 32, 16, 120, 28, 42, 73
data 64, 32, 16, 120, 24, 40, 72
data 64, 32, 16, 120, 16, 32, 64
data 64, 32, 16, 120, 0, 0, 0
data 64, 32, 16, 8, 0, 0, 0
data 0, 0, 0, 0, 0, 0, 0

data 120,120,120,120,120,120,127  'dugattyú (12) 
data 0,120,120,120,120,127,119    '11
data 0,0,120,120,127,119,119
data 0,0,0,127,119,119,119
data 0,0,15,15,127,119,119
data 0,15,15,15,15,127,119
data 15,15,15,15,15,15,127
data 0,15,15,15,15,127,119
data 0,0,15,15,127,119,119
data 0,0,0,127,119,119,119
data 0,0,120,120,127,119,119
data 0,120,120,120,120,127,119

data 127, 64, 64, 64, 64, 64, 64  'x-y (12)
data 32, 127, 32, 32, 32, 32, 32
data 16, 16, 127, 16, 16, 16, 16
data 8, 8, 8, 127, 8, 8, 8
data 4, 4, 4, 4, 127, 4, 4
data 2, 2, 2, 2, 2, 127, 2  '12
data 1, 1, 1, 1, 1, 1, 127
data 2, 2, 2, 2, 2, 127, 2
data 4, 4, 4, 4, 127, 4, 4
data 8, 8, 8, 127, 8, 8, 8
data 16, 16, 127, 16, 16, 16, 16
data 32, 127, 32, 32, 32, 32, 32

data 0,0,8,0,0,0,0           ' szív  (20)
data 0,0,28,0,0,0,0
data 0,34,28,0,0,0,0
data 0,99,28,0,0,0,0
data 0,99,93,0,0,0,0           '13
data 0,99,93,65,0,0,0
data 0,99,93,65,34,0,0
data 0,99,93,65,34,20,0
data 0, 99, 93, 65, 34, 20, 8  
data 0, 99, 127, 127, 62, 28, 8  
data 0, 99, 93, 65, 34, 20, 8  
data 0, 99, 127, 127, 62, 28, 8  
data 0, 99, 93, 65, 34, 20, 8  
data 0, 99, 127, 127, 62, 28, 8
data 0, 99, 93, 65, 34, 20, 8  
data 0, 99, 127, 127, 62, 28, 8
data 0, 99, 93, 65, 34, 20, 8  
data 0, 99, 127, 127, 62, 28, 8
data 0, 99, 93, 65, 34, 20, 8 
data 0,0,0,0,0,0,0

data 71,98,64,0,1,35,113     'keresztbe-kasul (12)
data 32,55,34,0,34,118,2
data 16,24,23,34,116,12,4
data 8,12,40,119,10,24,8
data 4,38,116,0,23,50,16
data 34,115,2,0,32,103,34      '14
data 113,35,1,0,64,98,71
data 2,118,34,0,34,55,32
data 4,12,116,34,23,24,16
data 8,24,10,119,40,12,8
data 16,50,23,0,116,38,4
data 34,103,32,0,2,115,34

data 42,34,34,34,34,62,0    'zsilip  (32)
data 34,42,34,34,34,62,0
data 34,34,42,34,34,62,0       ' 15
data 34,34,34,42,34,62,0
data 20,34,34,42,34,62,0
data 0,62,34,42,34,62,0
data 0,62,34,42,34,34,20
data 0,62,34,42,34,34,34
data 0,62,34,34,42,34,34

data 0,62,34,34,34,42,34
data 0,62,34,34,34,34,42
data 0,62,34,34,34,34,34
data 0,62,34,34,34,34,20
data 0,62,34,34,34,62,0
data 0,62,66,2,66,62,0
data 0,126,2,2,2,126,0
data 0,126,2,66,2,126,0 
data 0,126,2,34,2,126,0

data 0,126,2,18,2,126,0
data 0,126,2,10,2,126,0
data 0,62,66,10,66,62,0
data 0,62,34,42,34,62,0
data 0,62,33,40,33,62,0
data 0,63,32,40,32,63,0
data 0,63,32,36,32,63,0
data 0,63,32,34,32,63,0
data 0,63,32,33,32,63,0

data 0,63,32,32,32,63,0
data 0,62,33,32,33,62,0
data 0,62,34,34,34,62,0
data 20,34,34,34,34,62,0
data 34,34,34,34,34,62,0

data 127,65,65,65,65,65,127       'pulzál(12)
data 127,127,99,99,99,127,127
data 127,127,127,119,127,127,127
data 0,62,62,54,62,62,0
data 0,0,28,20,28,0,0
data 0,0,0,8,0,0,0             '16
data 0,0,28,20,28,0,0
data 0,62,62,54,62,62,0
data 127,127,127,119,127,127,127
data 127,127,99,99,99,127,127
data 127,65,65,65,65,65,127 
data 0, 0, 0, 0, 0, 0, 0

data 120,0,0,28,0,0,15       'inga (8)
data 8,16,36,73,18,4,8       
data 8,8,8,8,8,8,8         '17
data 8,4,18,73,36,16,8
data 15,0,0,28,0,0,120
data 8,4,18,73,36,16,8
data 8,8,8,8,8,8,8
data 8,16,36,73,18,4,8

data 0,0,0,0,0,0,8  'szökőkút (61)
data 0,0,0,0,0,8,0
data 0,0,0,0,8,0,0
data 0,0,0,8,0,0,8
data 0,0,8,0,0,8,0    '18
data 0,8,0,0,8,0,0
data 8,0,0,8,0,0,8
data 20,0,8,0,0,8,0
data 34,8,0,0,8,0,0
data 8,65,0,8,0,0,8
data 20,0,73,0,0,8,0
data 34,8,0,65,8,0,0
data 8,65,0,8,65,0,8
data 20,0,73,0,0,73,0
data 34,8,0,65,8,0,65
data 8,65,0,8,65,0,8
data 20,0,73,0,0,73,0
data 34,8,0,65,8,0,65
data 8,65,0,8,65,0,8
data 20,0,73,0,0,73,0
data 34,8,0,65,8,0,65
data 8,65,0,8,65,0,8
data 20,0,73,0,0,73,0
data 34,8,0,65,8,0,65
data 8,65,0,8,65,0,8
data 20,0,73,0,0,73,0
data 34,8,0,65,8,0,65
data 8,65,0,8,65,0,8
data 20,0,73,0,0,73,0
data 34,8,0,65,8,0,65
data 8,65,0,8,65,0,8
data 20,0,73,0,0,73,0
data 34,8,0,65,8,0,65
data 8,65,0,8,65,0,8
data 20,0,73,0,0,73,0
data 34,8,0,65,8,0,65
data 8,65,0,8,65,0,8
data 20,0,73,0,0,73,0
data 34,8,0,65,8,0,65
data 8,65,0,8,65,0,8
data 20,0,73,0,0,73,0
data 34,8,0,65,8,0,65
data 8,65,0,8,65,0,8
data 20,0,73,0,0,73,0
data 34,8,0,65,8,0,65
data 8,65,0,8,65,0,8
data 20,0,73,0,0,73,0
data 34,8,0,65,8,0,65
data 8,65,0,8,65,0,0
data 20,0,73,0,0,65,0
data 34,8,0,65,0,0,65
data 8,65,0,0,65,0,0
data 20,0,65,0,0,65,0
data 34,0,0,65,0,0,65
data 0,65,0,0,65,0,0
data 0,0,65,0,0,65,0
data 0,0,0,65,0,0,65
data 0,0,0,0,65,0,0
data 0,0,0,0,0,65,0
data 0,0,0,0,0,0,65
data 0,0,0,0,0,0,0

data 0,0,16,0,0,0,0           'körbe cső (40)      
data 0,0,48,0,0,0,0
data 0,0,112,0,0,0,0
data 64,96,80,0,0,0,0
data 112,80,80,0,0,0,0       
data 120,72,88,0,0,0,0
data 124,68,92,0,0,0,0
data 127,66,92,0,0,0,0           '19
data 127,65,95,0,0,0,0
data 127,65,93,7,0,0,0
data 127,65,93,5,7,0,0
data 127,65,93,5,5,3,1
data 127,65,93,5,5,5,7
data 127,65,93,5,13,9,15
data 127,65,93,5,29,17,31
data 127,65,93,5,29,33,127
data 127,65,93,5,125,65,127
data 127,65,93,117,93,65,127
data 127,65,93,85,93,65,127
data 127,65,93,85,93,65,127
data 127,65,93,93,93,65,127
data 127,65,93,85,93,65,127
data 127,65,93,85,93,65,127
data 127,65,125,85,93,65,127
data 127,33,29,85,93,65,127
data 31,17,29,85,93,65,127
data 15,9,13,85,93,65,127
data 7,5,5,85,93,65,127
data 1,3,5,85,93,65,127
data 0,0,7,85,93,65,127
data 0,0,0,87,93,65,127
data 0,0,0,80,95,65,127
data 0,0,0,80,92,66,127
data 0,0,0,80,92,68,124
data 0,0,0,80,88,72,120
data 0,0,0,80,80,80,112
data 0,0,0,80,80,96,64
data 0,0,0,80,112,0,0
data 0,0,0,112,0,0,0
data 0,0,0,0,0,0,0

data 120,0,5,9,1,65,112     'körbe és forog (8) 
data 60,0,8,9,65,65,97
data 30,0,16,72,65,65,67     '20
data 15,0,64,88,64,65,7
data 7,65,64,72,80,0,15
data 67,65,65,72,8,0,30
data 97,65,65,9,4,0,60
data 112,65,1,13,1,0,120

data 15,9,9,15,0,0,0       ' négy negyed (68)
data 15,15,15,15,0,0,0
data 15,9,9,15,0,0,0
data 15,15,15,15,0,0,0
data 15,9,9,15,0,0,0
data 15,15,15,15,0,0,0
data 15,9,9,15,0,0,0
data 15,9,9,11,8,0,0
data 15,9,9,9,8,8,0
data 15,9,9,8,8,8,8         '21
data 15,9,8,8,8,8,24
data 15,8,8,8,8,8,56
data 14,8,8,8,8,8,120
data 12,8,8,8,8,72,120
data 8,8,8,8,72,72,120
data 0,8,8,72,72,72,120
data 0,0,8,104,72,72,120
data 0,0,0,120,72,72,120
data 0,0,0,120,120,120,120
data 0,0,0,120,72,72,120
data 0,0,0,120,120,120,120
data 0,0,0,120,72,72,120
data 0,0,0,120,120,120,120
data 0,0,0,120,72,72,120
data 0,0,0,124,64,72,120
data 0,0,0,126,64,64,120
data 0,0,0,127,64,64,112
data 0,0,0,127,65,64,96
data 0,0,0,127,65,65,64
data 0,0,0,127,65,65,1
data 0,0,0,127,65,1,3
data 0,0,0,127,1,1,7
data 0,0,0,63,1,1,15
data 0,0,0,31,1,9,15
data 0,0,0,15,9,9,15
data 0,0,0,15,15,15,15
data 0,0,0,15,9,9,15
data 0,0,0,15,15,15,15
data 0,0,0,15,9,9,15
data 0,0,0,15,15,15,15
data 0,0,0,15,9,9,15
data 0,0,8,11,9,9,15
data 0,8,8,9,9,9,15
data 8,8,8,8,9,9,15
data 24,8,8,8,8,9,15
data 56,8,8,8,8,8,15
data 120,8,8,8,8,8,14
data 120,72,8,8,8,8,12
data 120,72,72,8,8,8,8
data 120,72,72,72,8,8,0
data 120,72,72,104,8,0,0
data 120,72,72,120,0,0,0
data 120,120,120,120,0,0,0
data 120,72,72,120,0,0,0
data 120,120,120,120,0,0,0
data 120,72,72,120,0,0,0
data 120,120,120,120,0,0,0
data 120,72,72,120,0,0,0
data 120,72,64,124,0,0,0
data 120,64,64,126,0,0,0
data 112,64,64,127,0,0,0
data 96,64,65,127,0,0,0
data 64,65,65,127,0,0,0
data 1,65,65,127,0,0,0
data 3,1,65,127,0,0,0
data 7,1,1,127,0,0,0
data 15,1,1,63,0,0,0
data 15,9,1,31,0,0,0

data 0,0,0,0,0,0,64       'kártyavár  (41)
data 0,0,0,0,0,0,80
data 0,0,0,0,0,0,84
data 0,0,0,0,0,0,85
data 0,0,0,0,0,2,85     '22
data 0,0,0,0,0,10,85
data 0,0,0,0,0,42,85
data 0,0,0,0,64,42,85
data 0,0,0,0,80,42,85
data 0,0,0,0,84,42,85
data 0,0,0,0,85,42,85
data 0,0,0,2,85,42,85
data 0,0,0,10,85,42,85
data 0,0,0,42,85,42,85
data 0,0,64,42,85,42,85
data 0,0,80,42,85,42,85
data 0,0,84,42,85,42,85
data 0,0,85,42,85,42,85
data 0,2,85,42,85,42,85
data 0,10,85,42,85,42,85
data 0,42,85,42,85,42,85
data 64,42,85,42,85,42,85
data 80,42,85,42,85,42,85
data 84,42,85,42,85,42,85
data 85,42,85,42,85,42,85
data 85,42,85,42,85,42,85
data 85,42,85,42,85,42,85
data 85,42,85,42,85,42,85
data 85,42,85,42,85,42,85
data 85,42,85,42,85,42,85
data 85,42,85,42,85,42,85
data 85,42,85,42,85,42,85
data 85,42,85,42,85,42,85
data 85,42,85,42,85,42,85
data 0,85,42,85,42,85,42
data 0,0,85,42,85,42,85
data 0,0,0,85,42,85,42
data 0,0,0,0,85,42,85
data 0,0,0,0,0,85,42
data 0,0,0,0,0,0,85
data 0,0,0,0,0,0,0

data 112,112,112,112,112,112,112    ' torony (48)
data 56,56,56,56,56,56,112
data 28,28,28,28,28,28,112
data 14,14,14,14,14,28,112 
data 7,7,7,7,7,28,112
data 14,14,14,14,7,28,112
data 28,28,28,28,7,28,112
data 56,56,56,28,7,28,112           '23
data 112,112,112,28,7,28,112
data 56,56,112,28,7,28,112
data 28,28,112,28,7,28,112
data 14,28,112,28,7,28,112
data 7,28,112,28,7,28,112
data 7,28,112,28,7,28,56
data 7,28,112,28,7,28,28
data 7,28,112,28,7,14,14
data 7,28,112,28,7,7,7
data 7,28,112,28,14,14,14
data 7,28,112,28,28,28,28
data 7,28,112,56,56,56,56
data 7,28,112,112,112,112,112
data 7,28,56,56,56,56,56
data 7,28,28,28,28,28,28
data 7,14,14,14,14,14,14
data 7,7,7,7,7,7,7
data 14,14,14,14,14,14,7
data 28,28,28,28,28,28,7
data 56,56,56,56,56,28,7
data 112,112,112,112,112,28,7
data 56,56,56,56,112,28,7
data 28,28,28,28,112,28,7
data 14,14,14,28,112,28,7
data 7,7,7,28,112,28,7
data 14,14,7,28,112,28,7
data 28,28,7,28,112,28,7
data 56,28,7,28,112,28,7
data 112,28,7,28,112,28,7
data 112,28,7,28,112,28,14
data 112,28,7,28,112,28,28
data 112,28,7,28,112,56,56
data 112,28,7,28,112,112,112
data 112,28,7,28,56,56,56
data 112,28,7,28,28,28,28
data 112,28,7,14,14,14,14
data 112,28,7,7,7,7,7
data 112,28,14,14,14,14,14
data 112,28,28,28,28,28,28
data 112,56,56,56,56,56,56

data 8,16,32,64,32,16,8     'cikk-cakk (24)
data 4,8,16,32,64,32,16
data 2,4,8,16,32,64,32
data 1,2,4,8,16,32,64          '24
data 2,5,8,16,32,64,0
data 4,10,17,32,64,0,0
data 8,20,34,65,0,0,0
data 16,40,68,2,1,0,0
data 32,80,8,4,2,1,0
data 64,32,16,8,4,2,1
data 32,16,8,4,2,1,2
data 16,8,4,2,1,2,4
data 8,4,2,1,2,4,8
data 4,2,1,2,4,8,16
data 2,1,2,4,8,16,32
data 1,2,4,8,16,32,64
data 0,1,2,4,8,80,32
data 0,0,1,2,68,40,16
data 0,0,0,65,34,20,8
data 0,0,64,32,17,10,4
data 0,64,32,16,8,5,2
data 64,32,16,8,4,2,1
data 32,64,32,16,8,4,2
data 16,32,64,32,16,8,4

data 28,0,0,0,0,0,28       'körbe vonalak (36)   
data 16,8,4,0,16,8,4
data 16,16,16,0,4,4,4
data 0,16,16,20,4,4,0
data 0,0,20,20,20,0,0         '25
data 0,4,4,20,16,16,0
data 4,4,4,0,16,16,16
data 4,8,16,0,4,8,16
data 28,0,0,0,0,0,28
data 56,0,0,0,0,0,14
data 112,0,0,0,0,0,7
data 0,112,0,0,0,7,0
data 0,0,112,0,7,0,0
data 0,0,0,119,0,0,0
data 0,0,7,0,112,0,0
data 0,7,0,0,0,112,0
data 7,0,0,0,0,0,112
data 14,0,0,0,0,0,56
data 28,0,0,0,0,0,28
data 4,8,16,0,4,8,16
data 4,4,4,0,16,16,16
data 0,4,4,20,16,16,0
data 0,0,20,20,20,0,0
data 0,16,16,20,4,4,0
data 16,16,16,0,4,4,4
data 16,8,4,0,16,8,4
data 28,0,0,0,0,0,28
data 14,0,0,0,0,0,56
data 7,0,0,0,0,0,112
data 0,7,0,0,0,112,0
data 0,0,7,0,112,0,0
data 0,0,0,119,0,0,0
data 0,0,112,0,7,0,0
data 0,112,0,0,0,7,0
data 112,0,0,0,0,0,7
data 56,0,0,0,0,0,14

data 97,1,0,0,0,64,67         'körbe araszol (22)    
data 34,65,0,0,0,65,34
data 32,35,0,0,0,98,2
data 32,17,2,0,32,68,2
data 48,1,1,0,64,64,6
data 16,34,1,0,64,34,4       '26
data 16,16,3,0,96,4,4
data 16,8,1,34,64,8,4
data 24,0,1,65,64,0,12
data 8,16,2,65,32,4,8
data 8,8,0,99,0,8,8
data 8,4,32,65,2,16,8
data 12,0,64,65,1,0,24
data 4,8,64,34,1,8,16
data 4,4,96,0,3,16,16
data 4,34,64,0,1,34,16
data 6,64,64,0,1,1,48
data 2,68,32,0,2,17,32
data 2,98,0,0,0,35,32
data 34,65,0,0,0,65,34
data 67,64,0,0,0,1,97
data 65,34,0,0,0,34,65

data 62,62,62,0,0,0,8       'jobbra-balra (12) 
data 124,124,124,0,64,72,64
data 120,120,120,0,104,96,96      '27
data 112,112,112,8,112,112,112
data 96,96,104,0,120,120,120
data 64,72,64,0,124,124,124
data 8,0,0,0,62,62,62
data 1,9,1,0,31,31,31
data 3,3,11,0,15,15,15
data 7,7,7,8,7,7,7
data 15,15,15,0,11,3,3
data 31,31,31,0,1,9,1

data 0,0,0,0,0,114,119           'lövedék (24) 
data 0,0,0,0,0,112,114
data 0,0,0,0,0,114,119     
data 0,0,0,0,2,119,119
data 0,0,0,2,0,119,119 
data 0,0,2,0,0,119,119             '28
data 0,4,0,0,0,119,119
data 8,0,0,0,0,119,119
data 0,16,0,0,0,119,119
data 0,0,32,0,0,119,119
data 0,0,0,32,0,119,119
data 0,0,0,0,32,119,119
data 0,0,0,0,0,39,119
data 0,0,0,0,0,7,39
data 0,0,0,0,0,39,119
data 0,0,0,0,32,119,119
data 0,0,0,32,0,119,119
data 0,0,32,0,0,119,119
data 0,16,0,0,0,119,119
data 8,0,0,0,0,119,119
data 0,4,0,0,0,119,119
data 0,0,2,0,0,119,119
data 0,0,0,2,0,119,119
data 0,0,0,0,2,119,119

data 1,1,1,121,0,0,120            'körbe téglalap (24)
data 3,1,1,60,0,64,112
data 7,1,0,30,64,64,96
data 15,0,0,79,64,64,64
data 30,0,1,103,64,64,0           '29
data 60,1,1,115,64,0,0
data 121,1,1,121,0,0,0
data 115,65,1,60,0,0,0
data 103,65,64,30,0,0,0
data 79,64,64,79,0,0,0
data 30,64,64,103,1,0,0
data 60,0,64,115,1,1,0
data 120,0,0,121,1,1,1
data 112,64,0,60,1,1,3
data 96,64,64,30,0,1,7
data 64,64,64,79,0,0,15
data 0,64,64,103,1,0,30
data 0,0,64,115,1,1,60
data 0,0,0,121,1,1,121
data 0,0,0,60,1,65,115
data 0,0,0,30,64,65,103
data 0,0,0,79,64,64,79
data 0,0,1,103,64,64,30
data 0,1,1,115,64,0,60

data 8,0,0,65,0,0,8            'pont-kereszt (11)
data 28,0,65,65,65,0,28
data 62,65,65,65,65,65,62
data 127,65,65,65,65,65,127
data 34,127,34,34,34,127,34          '30
data 20,20,127,20,127,20,20
data 8,8,8,127,8,8,8
data 0,8,8,62,8,8,0
data 0,0,8,28,8,0,0
data 0,0,0,8,0,0,0
data 0,0,0,0,0,0,0

data 28,28,28,65,65,65,0       'körbe körök (10)
data 0,28,28,28,65,65,65
data 0,0,28,62,8,65,99
data 0,0,0,127,8,8,119
data 0,0,65,99,8,28,62                 '31
data 0,65,65,65,28,28,28
data 65,65,65,28,28,28,0
data 99,65,8,62,28,0,0
data 119,8,8,127,0,0,0
data 62,28,8,99,65,0,0

data 96,96,0,0,0,0,0               'puzzle (12)
data 99,99,0,0,0,0,0
data 99,99,0,0,0,3,3
data 99,99,0,0,0,99,99      '32
data 99,99,28,28,28,99,99
data 127,127,28,28,28,99,99
data 127,127,31,31,31,99,99
data 127,127,31,31,31,127,127
data 127,127,127,127,127,127,127
data 28,28,127,127,127,28,28
data 28,28,99,99,99,28,28
data 0,0,0,0,0,0,0

data 0,0,0,0,0,0,127           'fel-le v (18)
data 0,0,0,0,0,8,119
data 0,0,0,0,8,20,99
data 0,0,0,8,20,34,65
data 0,0,8,20,34,65,0             '33      
data 0,8,20,34,65,0,0
data 8,20,34,65,0,0,0
data 28,34,65,0,0,0,0
data 62,65,0,0,0,0,0
data 127,0,0,0,0,0,0
data 119,8,0,0,0,0,0
data 99,20,8,0,0,0,0
data 65,34,20,8,0,0,0
data 0,65,34,20,8,0,0
data 0,0,65,34,20,8,0
data 0,0,0,65,34,20,8
data 0,0,0,0,65,34,28
data 0,0,0,0,0,65,62

data 0,2,5,8,80,32,0      'EKG (18)
data 0,1,2,68,40,16,0
data 0,0,1,98,20,8,0
data 0,0,0,113,10,4,0          '34
data 0,0,0,56,5,2,0
data 0,0,0,28,2,1,0
data 1,0,0,78,1,0,1
data 2,0,0,39,0,0,2
data 4,0,0,19,0,0,4
data 8,0,0,73,0,0,8
data 16,0,0,100,0,0,16
data 32,0,0,114,0,0,32
data 64,0,64,57,0,0,64
data 0,64,32,28,0,0,0
data 0,32,80,14,0,0,0
data 0,16,40,71,0,0,0
data 0,8,20,35,64,0,0
data 0,4,10,17,32,64,0
 
data 120,120,120,120,0,0,0  'kiszorítós (16)
data 120,120,120,120,0,0,0        
data 113,113,113,113,0,0,0
data 99,99,99,99,0,0,0
data 71,71,71,71,0,0,0
data 15,15,15,15,0,0,0
data 15,15,15,15,0,0,0
data 15,15,15,0,0,0,15     '35
data 15,15,0,0,0,15,15
data 15,0,0,0,15,15,15
data 0,0,0,15,15,15,15
data 0,0,0,15,15,15,15
data 0,0,0,71,71,71,71
data 0,0,0,99,99,99,99
data 0,0,0,113,113,113,113
data 0,0,0,120,120,120,120
data 0,0,0,120,120,120,120
data 120,0,0,0,120,120,120
data 120,120,0,0,0,120,120
data 120,120,120,0,0,0,120
-------------------------------------------
data 0,1,1,1,1,1,1              'ADORJÁN (47)
data 1,2,2,2,3,2,2
data 3,4,4,4,7,4,4                   '36
data 7,8,8,8,15,8,8
data 14,17,17,17,31,17,17
data 28,34,34,34,62,34,34
data 57,69,69,69,125,69,69
data 115,10,10,10,122,10,11
data 103,20,20,20,116,20,23
data 79,40,40,40,104,40,47
data 30,81,81,81,81,81,94
data 60,34,34,34,34,34,60
data 120,69,69,69,69,69,120
data 113,10,10,10,10,10,113
data 99,20,20,20,20,20,99
data 71,40,40,40,40,40,71
data 14,81,81,81,81,81,14
data 28,34,34,34,34,34,28
data 57,69,69,69,69,69,57
data 115,10,10,10,11,10,114
data 103,20,20,20,23,20,100
data 79,40,40,40,47,41,72
data 60,34,34,34,60,36,34
data 120,68,68,68,120,73,68
data 112,8,8,8,112,18,9
data 96,16,16,16,96,36,19
data 65,33,33,33,65,73,38
data 2,66,66,66,2,18,76
data 4,4,5,5,5,37,25
data 8,8,9,10,10,75,50
data 17,16,19,20,20,23,100

data 34,32,39,40,40,47,72
data 68,64,78,81,81,95,17
data 8,0,28,34,34,62,34

data 17,1,57,69,69,125,69
data 34,2,114,11,10,122,10
data 68,4,100,22,21,116,20
data 8,8,72,44,42,105,40
data 17,17,17,89,85,83,81
data 34,34,34,50,42,38,34
data 68,68,68,100,84,76,68
data 8,8,8,72,40,24,8
data 16,16,16,16,80,48,16
data 32,32,32,32,32,96,32
data 64,64,64,64,64,64,64
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
---------------------------------------------------------

olvas:                      'adatsorok olvasása
if portb.2 = 0 then valtas
If Z = S Then restore vis
If Z = S Then Z = 0
Read a
Read b
Read c
Read d
Read e
Read f
Read g
inc z

abra:
for asz=0 to freq        'képek megjelenítése    
PORTD = 1
PORTC = a
delayms 12               'ledek bekapcsolási ideje
PORTD = 2
PORTC = b
delayms 12
PORTD = 4
PORTC = c
delayms 12
PORTD = 8
PORTC = d
delayms 12
PORTD = 16
PORTC = e
delayms 12
PORTD = 32
PORTC = f
delayms 12
PORTD = 64
PORTC = g
delayms 12
next asz

elag:
asz=0
portc=0
portd=0
gosub poti
if aa = 1 then tau
if xpg=1 then rapg
If PORTB.1 = 0 Then nariro
goto olvas

rapg:
If x = 1 Then ra11
if x = 2 then ra22
if x = 3 then ra33

valtas:
Z = 0
x = 0
If PORTB.1 = 0 Then onmuk
If PORTB.2 = 0 Then valtas
delayms 200
if aa=1 then tau
inc pr
If pr = 37 then pr=1           'utolsó pr+1
ewrite 40,[pr]
goto tart

onmuk:                    'automata léptetés bekapcsolása
If PORTB.1 = 0 Then onmuk
If PORTB.2 = 0 Then onmuk
delayms 200
pr=39
ewrite 40,[pr]
goto auto

tart:                         'paraméterek beállítása
If pr = 1 Then S = 56
If pr = 1 Then vis = 0         's pr. sorok száma
If pr = 2 Then S = 20
If pr = 2 Then vis = 392     'vis visszaállítás .. sorra 
If pr = 3 Then S = 22
If pr = 3 Then vis = 532
If pr = 4 Then S = 39
If pr = 4 Then vis = 686
If pr = 5 Then S = 8
If pr = 5 Then vis = 959
If pr = 6 Then S = 32
If pr = 6 Then vis = 1015
If pr = 7 Then S = 14
If pr = 7 Then vis = 1239
If pr = 8 Then S = 14
If pr = 8 Then vis = 1337  
If pr = 9 Then S = 8
If pr = 9 Then vis = 1435
If pr = 10 Then S = 27
If pr = 10 Then vis = 1491
If pr = 11 Then S = 12
If pr = 11 Then vis = 1680
If pr = 12 Then S = 12
If pr = 12 Then vis = 1764
If pr = 13 Then S = 20
If pr = 13 Then vis = 1848
If pr = 14 Then S = 12
If pr = 14 Then vis = 1988
If pr = 15 Then S = 32
If pr = 15 Then vis = 2072
If pr = 16 Then S = 12
If pr = 16 Then vis = 2296
If pr = 17 Then S = 8
If pr = 17 Then vis = 2380
If pr = 18 Then S = 61
If pr = 18 Then vis = 2436
If pr = 19 Then S = 40
If pr = 19 Then vis = 2863
If pr = 20 Then S = 8
If pr = 20 Then vis = 3143
If pr = 21 Then S = 68
If pr = 21 Then vis = 3199
If pr = 22 Then S = 41
If pr = 22 Then vis = 3675
If pr = 23 Then S = 48 
If pr = 23 Then vis = 3962
If pr = 24 Then S = 24
If pr = 24 Then vis = 4298
If pr = 25 Then S = 36
If pr = 25 Then vis = 4466
If pr = 26 Then S = 22
If pr = 26 Then vis = 4718
If pr = 27 Then S = 12
If pr = 27 Then vis = 4872
If pr = 28 Then S = 24
If pr = 28 Then vis = 4956
If pr = 29 Then S = 24
If pr = 29 Then vis = 5124
If pr = 30 Then S = 11
If pr = 30 Then vis = 5292
If pr = 31 Then S = 10
If pr = 31 Then vis = 5369
If pr = 32 Then S = 12
If pr = 32 Then vis = 5439
If pr = 33 Then S = 18
If pr = 33 Then vis = 5523
If pr = 34 Then S = 18
If pr = 34 Then vis = 5649
If pr = 35 Then S = 20
If pr = 35 Then vis = 5775
If pr = 36 Then S = 47
If pr = 36 Then vis = 5915
gosub poti
gosub prsz
restore vis              'adatmutató visszaállítás
Goto olvas

ra11:                     '1 véletlen pr.
x=1
gosub prsz
If PORTB.2 = 0 Then narb
If PORTB.1 = 0 Then vissza
Gosub gene
a = u
Gosub gene
b = u
Gosub gene
c = u
Gosub gene
d = u
Gosub gene
e = u
Gosub gene
f = u
Gosub gene
g = u
Goto abra

ra22:                    ' 2. véletlen pr.
x=2
gosub prsz
if portb.2 = 0 then narc
If PORTB.1 = 0 Then vissza
a=b
b=c
c=d
d=e
e=f
f=g
gosub gene
g=u
goto abra

kisza:
w=0
gosub gene
if u=0 then u=1
if u=128 then u=127
gosub poti

ra33:                   '3. véletlen pr.
x = 3
gosub prsz
inc w
if w = 1 then a=u
if w = 2 then b=u
if w = 3 then c=u
if w = 4 then d=u
if w = 5 then e=u
if w = 6 then f=u
if w = 7 then g=u
if w = 8 then a=0
if w = 9 then b=0
if w = 10 then c=0
if w = 11 then d=0
if w = 12 then e=0
if w = 13 then f=0
if w = 14 then g=0
if w=15 then kisza
If PORTB.1 = 0 Then vissza
If PORTB.2 = 0 Then nara
goto abra

vissza:
aa=0
at=0
xpg=0
y=0
z=0
gosub beirxpg
portb.5=0
If PORTB.1 = 0 Then vissza
goto kezd

gene:                    'véletlemszám generátor
u=(random-1)%11111111      
return

auto:                     'automata pr. váltás
pr = 1
at=0
aa = 1
gosub aubea
goto tart

tau:
if z=s then inc at
if at=au then rata
toggle portb.5             'tizedespont villogtatás
If PORTB.1 = 0 Then ewrite 40, [pr]
If PORTB.1 = 0 Then vissza
goto olvas

rata:
inc pr
Z = 0
x = 0
at=0
if pr=36 then pr=1       'utolsó pr automata léptetésnél
gosub aubea
goto tart

nariro:
If PORTB.1 = 0 Then nariro
If PORTB.2 = 0 Then nariro
delayms 200
xpg=1
gosub beirxpg
x=eread 4
goto rapg

nara:           'váltás véletlen pr-ok között a,b,c
If PORTB.2 = 0 Then nara
delayms 200
x=1
gosub beirx
goto ra11

narb:
If PORTB.2 = 0 Then narb
delayms 200
x=2
gosub beirx
goto ra22

narc:
If PORTB.2 = 0 Then narc
delayms 200
x=3
gosub beirx
goto kisza

poti:                       'poti érték kiolvasás
pot portb.0,64,po
if po < 8 then po=8
freq =po/8                   'képváltás frekvenciája
if pr=7 then freq=po/4   
if pr=13 then freq=po/4
if pr=16 then freq=po/2
if pr=17 then freq=po/4
if pr=18 then freq=po/24
if pr=30 then freq=po/2
if pr=32 then freq=po/2
if pr=34 then freq=po/16
if xpg=1 then gosub rapoti
return

rapoti:                      'véletlen képváltás fr.
if x=1 then freq=po
if x=2 then freq=po/4
if x=3 then freq=po/8
return

prsz:                         'programszám kijelzés
kij=pr
if pr>9 then kij=kij+6
if pr>19 then kij=kij+6
if pr>29 then kij=kij+6
if kij=54 then kij=0
if xpg=0 then low portb.4
if xpg=1 then high portb.4     'tizedespont bekapcsolás
if xpg=1 then gosub rapsz
porta=kij
return

rapsz:                         'véletlen pr. kijelzés
if x=1 then kij=1
if x=2 then kij=2
if x=3 then kij=3
return

aubea:                  'automatikus ismétlések száma
au=4                
if pr=1 then au=2
if pr=5 then au=10
if pr=8 then au=15
if pr=9 then au=8
if pr=14 then au=8
if pr=17 then au=6
if pr=20 then au=10
if pr=21 then au=2
if pr=27 then au=8
if pr=31 then au=10
if pr=33 then au=8
if pr=34 then au=8
return

beirx:                  'adatbeírás (véletlen pr. szám)
ewrite 4,[x]
return

beirxpg:                'adatbeírás (pr. vagy véletlen) 
ewrite 2,[xpg]
return