home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / MusGraph / KOALA-TO-MICRO-ILLUST (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  768 b   |  22 lines

  1. 1 PRINT"ô  KOALA TO MICRO ILLUSTRATOR CONVERTER"
  2. 2 PRINT"BY BOB UNDERDOWN"
  3. 6 IFA=0THENPOKE51,0:POKE52,19:POKE55,0:POKE56,19
  4. 10 IFA=0THENINPUT"NAME OF KOALA PIC ";A$:A=1:LOADA$,8,1
  5. 20 PRINT"MOVING BIT MAP":FORI=0TO7999:A=PEEK(I+24576):POKE(I+8384),A:NEXTI
  6. 30 PRINT"MOVING VIDEO MATRIX":FORI=0TO999:A=PEEK(I+32576):POKE(I+6384),A:NEXTI
  7. 40 PRINT"MOVING COLOR MEMORY":FORI=0TO999:A=PEEK(I+33576):POKE(I+7384),A:NEXTI
  8. 60 READA:IFA=-1THEN80
  9. 70 POKEC+6364,A:C=C+1:GOTO60
  10. 80 INPUT"NAME FOR MICRO ";KO$
  11. 90 POKE840,PEEK(45):POKE841,PEEK(46)
  12. 100 POKE43,220:POKE44,24:POKE45,0:POKE46,64
  13. 110 SAVE"0:PIC.ZZZZ",8
  14. 120 POKE43,1:POKE44,8:POKE45,PEEK(840):POKE46,PEEK(841)
  15. 130 OPEN15,8,15,"R0:PIC."+KO$+"=:PIC.ZZZZ"
  16. 140 CLOSE15
  17. 200 DATA255,128,105,103, 20,  0
  18. 210 DATA  0,232,  3,232,  3, 64
  19. 220 DATA 31,  1,  0, 40,200,  0
  20. 230 DATA  0, -1
  21. 8224                                                                          
  22.