home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 2 #5 / utv2n5s2.d64 / decimals (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  432 b   |  19 lines
  1. 10 ifa=0thena=1:load"chr v2",8,1
  2. 20 ifa=1thena=2:load"vision",8,1
  3. 30 poke 53280,0:poke 53281,0
  4. 40 poke 55,0:poke 56,104
  5. 50 poke 53265,peek(53265)and207
  6. 55 poke 53265,11
  7. 60 poke 56576,(peek(56576)and252)or2
  8. 70 poke 53272,(peek(53272)and15)or176
  9. 80 poke 648,108
  10. 90 poke53272,(peek(53272)and240)or12
  11. 100 print"[147]";
  12. 110 poke53287,2:poke53288,12
  13. 115 poke 53265,peek(53265) or 16
  14. 120 forx=0to1:poke53277,peek(53277)or(2^x):poke 53271,peek(53271)or(2^x)
  15. 130 next
  16. 140 poke28664,160:poke28665,161
  17. 150 poke 56,(6*16)+8:clr
  18. 160 load"vision.exe",8
  19.