100 SYS 700 ;PAL 64
110 .OPT OO
120 ; "CLRSCR"
130 ; CLEARS SCREEN USING
140 ; "DISSOLVE" EFFECT
150 ;
160 CLRSCR =*
170 LDX #0
180 LOOP =*
190 LDA #255
200 STA 54287
210 LDA #128   ;SET UP
220 STA 54290
230 STA 54296  ;SID CHIP
240 LDY 54299  ;GET RANDOM NUMBER
250 LDA #32
260 STA 1024,Y
270 STA 1024+256,Y
280 STA 1024+512,Y
290 STA 1024+768,Y
300 JSR DELAY
310 INX
320 CPX #254
330 BNE LOOP
340 LDA #"[147]"
350 JSR $FFD2
360 DELAY TXA
370 PHA
380 LDX #5
390 CLRSBD LDY #0
400 CLRSYL DEY
410 BNE CLRSYL
420 DEX
430 BNE CLRSBD
440 PLA
450 TAX
460 RTS