org $7480
               opt %0100101

kdkontrol      equ $f0

start          lda <display
               sta 560
               lda >display
               sta 561

               lda #0
               sta 710
               lda #$7f
               sta 709

               lda #0
               sta kdkontrol
               sta kdkontrol+1

               ldx #0
_kd9           lda kdkontrol
               clc
               adc kd,x
               sta kdkontrol
               bcc _kd8
               inc kdkontrol+1
_kd8           inx
               cpx #199
               bne _kd9

               lda kdkontrol
               cmp #$b0
               bne _kd11
               lda kdkontrol+1
               cmp #$16
               bne _kd11
               rts
_kd11          jmp $e477

display        equ *

               dta d'ppp',b(66),a(text)
               dta d'pppp'
               dta b(6)
               dta b(6),d'pppp'
               dta b(2),b(0),b(2),b(0),b(2),b(0),b(2),b(0),b(2)

               dta b(65),a(display)

text           dta d'Janusz Grzyb przedstawia:               '

               dta d'  around the planet '
               dta d'                    '


kd             dta d'........................................'
               dta d'autor: Janusz Grzyb                     '
               dta d'   33-100 Tarnow ul.Makuszynskiego 28   '
               dta d'          tel.21-08-90  (0-14)          '
               dta d'........................................'
               dta d'                                        '

               org $2e2
               dta a(start)