home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9111b.d64 / laser.src (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.