home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_26_1988_Transactor_Publishing.d64 / clrscr.pal (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  536b  |  38 lines
  1. 100 sys 700 ;pal 64
  2. 110 .opt oo
  3. 120 ; "clrscr"
  4. 130 ; clears screen using
  5. 140 ; "dissolve" effect
  6. 150 ;
  7. 160 clrscr =*
  8. 170 ldx #0
  9. 180 loop =*
  10. 190 lda #255
  11. 200 sta 54287
  12. 210 lda #128   ;set up
  13. 220 sta 54290
  14. 230 sta 54296  ;sid chip
  15. 240 ldy 54299  ;get random number
  16. 250 lda #32
  17. 260 sta 1024,y
  18. 270 sta 1024+256,y
  19. 280 sta 1024+512,y
  20. 290 sta 1024+768,y
  21. 300 jsr delay
  22. 310 inx
  23. 320 cpx #254
  24. 330 bne loop
  25. 340 lda #"[147]"
  26. 350 jsr $ffd2
  27. 360 delay txa
  28. 370 pha
  29. 380 ldx #5
  30. 390 clrsbd ldy #0
  31. 400 clrsyl dey
  32. 410 bne clrsyl
  33. 420 dex
  34. 430 bne clrsbd
  35. 440 pla
  36. 450 tax
  37. 460 rts
  38.