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