home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 November / 64er_Magazin_91-11_1991_Markt__Technik_de_Side_B.d64 / laser.src (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  739b  |  21 lines
  1. 10 sys36864
  2. 20 .opt oo
  3. 30 *= 49152
  4. 40 p =56577
  5. 100 lda #15:sta p+2:lda #0:sta p:sta 2:sta 3:sta 166:sta 167
  6. 102 lda #1:sta 180:sta 181:sta 182:lda #20:sta 4:sta 5:lda #90:sta 6
  7. 104 lda #<iq:ldy #>iq:sei:sta 788:sty 789:lda #1:sta 56325:cli:rts
  8. 200 iq lda 2:bne iq1
  9. 202 iqb lda p:and #1;7:sta p:lda #0:sta 166:jmp iq2
  10. 210 iq1 dec 180:bne iq2:lda 166:bne iqa:lda 4:sta 180:lda p:ora #2;8:sta p
  11. 211 sta 166:jmp iq2
  12. 212 iqa lda 6:sta 180:jmp iqb
  13. 220 iq2 lda 3:bne iq3
  14. 222 iqd lda p:and #2;8:sta p:lda #0:sta 167:jmp iq4
  15. 224 iq3 ldx #1;2:cmp #128:bcs iq5:ldx #1;5
  16. 226 iq5 dec 181:bne iq4:lda 167:bne iqc:lda 5:sta 181
  17. 230 txa:ora p:sta p:sta 167
  18. 240 iq4 dec 182:bne iq7:lda #64:sta 182:jmp $ea31
  19. 242 iq7 jmp $ea7e
  20. 250 iqc lda 6:sta 181:jmp iqd
  21.