main:
    sub sp,4
    mov ba,vbcc___l149
    push    ba
    mov ba,2
    push    ba
    mov ba,2
    push    ba
    call    print
    add sp,6
    mov ba,vbcc___l150
    push    ba
    mov ba,4
    push    ba
    mov ba,2
    push    ba
    call    print
    add sp,6
    mov ba,vbcc___l151
    push    ba
    mov ba,5
    push    ba
    mov ba,2
    push    ba
    call    print
    add sp,6
    mov ba,1
    push    ba
    call    wait_key
    add sp,2
    call    clear_screen
    mov hl,8230
    mov a,[hl]
    ex  ba,a
    mov x,ba
    mov hl,64
    mov ba,x
    push    hl
    mov hl,sp
    or  a,[hl]
    xchg    a,b
    inc hl
    or  a,[hl]
    xchg    a,b
    pop hl
    mov y,ba
    mov ba,y
    mov hl,8230
    mov [hl],a
    mov ba,0
    mov [shock],ba
    mov ba,vbcc___l152
    push    ba
    mov ba,2
    push    ba
    mov ba,2
    push    ba
    call    print
    add sp,6
    mov ba,vbcc___l153
    push    ba
    mov ba,3
    push    ba
    mov ba,2
    push    ba
    call    print
    add sp,6
    mov ba,vbcc___l154
    push    ba
    mov ba,4
    push    ba
    mov ba,2
    push    ba
    call    print
    add sp,6
    mov ba,vbcc___l155
    push    ba
    mov ba,5
    push    ba
    mov ba,2
    push    ba
    call    print
    add sp,6
vbcc___l156:
    mov hl,8203
    mov a,[hl]
    ex  ba,a
    mov x,ba
    push    x
    mov ba,0
    push    ba
    mov ba,0
    push    ba
    call    print_bin
    add sp,6
    mov hl,8202
    mov a,[hl]
    ex  ba,a
    mov x,ba
    push    x
    mov ba,0
    push    ba
    mov ba,8
    push    ba
    call    print_bin
    add sp,6
    mov hl,8201
    mov a,[hl]
    ex  ba,a
    mov x,ba
    push    x
    mov ba,1
    push    ba
    mov ba,4
    push    ba
    call    print_bin
    add sp,6
    mov ba,[shock]
    cmp ba,0
    jz  vbcc___l179
    jmp vbcc___l158
vbcc___l179:
vbcc___l161:
    mov ba,2
    push    ba
    call    get_key
    add sp,2
    mov ba,x
    cmp ba,0
    jz  vbcc___l180
    jmp vbcc___l158
vbcc___l180:
vbcc___l163:
vbcc___l159:
    jmp vbcc___l156
vbcc___l158:
    call    clear_screen
    mov ba,vbcc___l164
    push    ba
    mov ba,2
    push    ba
    mov ba,2
    push    ba
    call    print
    add sp,6
    mov ba,[shock]
    cmp ba,0
    jnz vbcc___l181
    jmp vbcc___l166
vbcc___l181:
    mov hl,8288
    mov a,[hl]
    ex  ba,a
    mov x,ba
    mov hl,16
    mov ba,x
    push    hl
    mov hl,sp
    or  a,[hl]
    xchg    a,b
    inc hl
    or  a,[hl]
    xchg    a,b
    pop hl
    mov y,ba
    mov ba,y
    mov hl,8288
    mov [hl],a
    mov ba,0
    mov [sp+0],ba
    jmp vbcc___l168
vbcc___l167:
    mov hl,8289
    mov a,[hl]
    ex  ba,a
    mov x,ba
    mov hl,16
    mov ba,x
    push    hl
    mov hl,sp
    or  a,[hl]
    xchg    a,b
    inc hl
    or  a,[hl]
    xchg    a,b
    pop hl
    mov y,ba
    mov ba,y
    mov hl,8289
    mov [hl],a
    mov ba,0
    mov [sp+0],ba
    jmp vbcc___l172
vbcc___l171:
    mov ba,[sp+0]
    push    ba
    mov ba,0
    push    ba
    mov ba,0
    push    ba
    call    print_dec
    add sp,6
vbcc___l174:
    mov ba,[sp+0]
    mov hl,1
    add ba,hl
    mov [sp+0],ba
vbcc___l172:
    mov ba,[sp+0]
    mov hl,50
    cmp ba,hl
    jge vbcc___l182
    jmp vbcc___l171
vbcc___l182:
vbcc___l173:
    mov hl,8289
    mov a,[hl]
    ex  ba,a
    mov x,ba
    mov hl,-17
    mov ba,x
    push    hl
    mov hl,sp
    and a,[hl]
    xchg    a,b
    inc hl
    and a,[hl]
    xchg    a,b
    pop hl
    mov y,ba
    mov ba,y
    mov hl,8289
    mov [hl],a
    mov ba,0
    mov [sp+2],ba
    jmp vbcc___l176
vbcc___l175:
    mov ba,[sp+2]
    push    ba
    mov ba,0
    push    ba
    mov ba,0
    push    ba
    call    print_dec
    add sp,6
vbcc___l178:
    mov ba,[sp+2]
    mov hl,1
    add ba,hl
    mov [sp+2],ba
vbcc___l176:
    mov ba,[sp+2]
    mov hl,50
    cmp ba,hl
    jge vbcc___l183
    jmp vbcc___l175
vbcc___l183:
vbcc___l177:
vbcc___l170:
    mov ba,[sp+0]
    mov hl,1
    add ba,hl
    mov [sp+0],ba
vbcc___l168:
    mov ba,[sp+0]
    mov hl,10
    cmp ba,hl
    jge vbcc___l184
    jmp vbcc___l167
vbcc___l184:
vbcc___l169:
vbcc___l166:
    mov ba,0
    mov x,ba
vbcc___l148:
    add sp,4
    ret