*=$C000
START LDX #$00
STX $D020
STX $D021
LDA #$93 ;Clear screen
JSR $FFD2
LDA #$98 ;Home position of screen
JSR $FFD2
CYCLE LDA LAIN,X
CMP #$00
BEQ EXIT
STA $0400,X
INX
JMP CYCLE
EXIT RTS
LAIN TEXT 'LETS ALL LOVE LAIN!'
BYTE 0
------------------------------------------------------
10 REM LETS ALL LOVE LAIN
20 SA = 49152
30 FOR N = 0 TO 52
40 READ A% : POKE SA+N,A%: NEXT N
50 SYS SA
60 END
70 DATA 162,0,142,32,208,142,33,208
80 DATA 169,147,32,210,255,169,152,32
90 DATA 210,255,189,33,192,201,0,240
100 DATA 7,157,0,4,232,76,18,192
110 DATA 96,12,5,20,19,32,1,12
120 DATA 12,32,12,15,22,5,32,12
130 DATA 1,9,14,33,0
