La noia e' grande amica
*= $0801
word eop
word 7102
byte $9e
byte "2059"
eop
byte 0
;--------------
ldy #0
;set maiuscole/semigrafiche
lda #$14
sta $d018
;preparazione osc3 per rand
ldx #$81
stx $d412
stx $d40f
;inibire C=+Shift
dex
stx $0291
lp1
lda #$04
tax
sta p+2
lp2
lda $d41b
and #$01 ; 0/1
sta $02
lda #$4d ; shift M/N
;clc
adc $02
p sta $0400,y
iny
bne lp2
inc p+2
dex
bne lp2
k jsr key
beq k
k2 jsr key
bne k2
beq lp1
;--------------
key
lda $dc01
and $dc00
and #$10
rts